Here's an example (using the OPTION file and looking for "HL MAIN"):
>>D FIND^DIC(19,,"@;.01;1;1.1","M","HL MAIN","*",,,,"OUT","MROOT")
>>ZW OUT
OUT("DILIST",0)=1^*^0^
OUT("DILIST",0,"MAP")=.01^1^1.1
OUT("DILIST",2,1)=8235
OUT("DILIST","ID",1,.01)=HL MAIN MENU
OUT("DILIST","ID",1,1)=HL7 Main Menu
OUT("DILIST","ID",1,1.1)=HL7 MAIN MENU
>>
--- Kevin Toppenberg <[EMAIL PROTECTED]> wrote:
> I can't figure out why sometime FIND^DIC is
> successful, and sometimes it is not. It seems to
> depend on what fields I request vs. whether the
> patient has data for those fields, and whether or not
> I use flags of "M" or not.
>
> Here is a long screen log of various tries, with some
> succeeding and some not. Note that this is a real
> patient, so I xx'd out the DOB and SSNum.
>
> Any ideas?
>
> Thanks
> Kevin
>
>
>
>
> GTM>set value="WIGLE,Gordon s"
>
> GTM>do
> FIND^DIC(2,"","","M",value,"*","","","","Matches","TMGMsg")
>
> GTM>zwr Matches(*)
> Matches("DILIST",0)="1^*^0^"
>
Matches("DILIST",0,"MAP")="FID(.03)^FID(.09)^FID(.301)^FID(391)^FID(994)"
> Matches("DILIST",1,1)="WIGLE,GORDON S"
> Matches("DILIST",2,1)=68158
> Matches("DILIST","ID",1,.03)="09/13/19xx"
> Matches("DILIST","ID",1,.09)=xxxxxxxx
> Matches("DILIST","ID",1,.301)=""
> Matches("DILIST","ID",1,391)=""
> Matches("DILIST","ID",1,994)=""
> Matches("DILIST","ID","WRITE",1,1)=""
>
> GTM>kill Matches
>
> GTM>do
> FIND^DIC(2,"","","M",value,"*","","","","Matches","TMGMsg")
>
> GTM>zwr Matches(*)
> Matches("DILIST",0)="1^*^0^"
>
Matches("DILIST",0,"MAP")="FID(.03)^FID(.09)^FID(.301)^FID(391)^FID(994)"
> Matches("DILIST",1,1)="WIGLE,GORDON S"
> Matches("DILIST",2,1)=68158
> Matches("DILIST","ID",1,.03)="09/13/19xx"
> Matches("DILIST","ID",1,.09)=xxxxxxxxxxxxx
> Matches("DILIST","ID",1,.301)=""
> Matches("DILIST","ID",1,391)=""
> Matches("DILIST","ID",1,994)=""
> Matches("DILIST","ID","WRITE",1,1)=""
>
> GTM>kill Matches
>
> GTM>do
> FIND^DIC(2,"","","",value,"*","","","","Matches","TMGMsg")
>
> GTM>zwr Matches(*)
> Matches("DILIST",0)="1^*^0^"
>
Matches("DILIST",0,"MAP")="FID(.03)^FID(.09)^FID(.301)^FID(391)^FID(994)"
> Matches("DILIST",1,1)="WIGLE,GORDON S"
> Matches("DILIST",2,1)=68158
> Matches("DILIST","ID",1,.03)="09/13/19xx"
> Matches("DILIST","ID",1,.09)=xxxxxxxxxxx
> Matches("DILIST","ID",1,.301)=""
> Matches("DILIST","ID",1,391)=""
> Matches("DILIST","ID",1,994)=""
> Matches("DILIST","ID","WRITE",1,1)=""
>
> GTM>set Fields="@;.01;.02;.03;.09;22700"
>
> GTM>do
> FIND^DIC(2,"","",Fields,value,"*","","","","Matches","TMGMsg")
>
> GTM>zwr Matches(*)
> %GTM-E-UNDEF, Undefined local variable: Matches
>
> GTM>set Fields="@;.01;.02;.03"
>
> GTM>do
> FIND^DIC(2,"","",Fields,value,"*","","","","Matches","TMGMsg")
>
> GTM>zwr Matches(*)
> %GTM-E-UNDEF, Undefined local variable: Matches
>
> GTM>set Fields="@;.01"
>
> GTM>do
> FIND^DIC(2,"","",Fields,value,"*","","","","Matches","TMGMsg")
>
> GTM>zwr Matches(*)
> %GTM-E-UNDEF, Undefined local variable: Matches
>
> GTM>set Fields=""
>
> GTM>do
> FIND^DIC(2,"","",Fields,value,"*","","","","Matches","TMGMsg")
>
> GTM>zwr Matches(*)
> Matches("DILIST",0)="1^*^0^"
>
Matches("DILIST",0,"MAP")="FID(.03)^FID(.09)^FID(.301)^FID(391)^FID(994)"
> Matches("DILIST",1,1)="WIGLE,GORDON S"
> Matches("DILIST",2,1)=68158
> Matches("DILIST","ID",1,.03)="09/13/19xx"
> Matches("DILIST","ID",1,.09)=xxxxxxxxxxx
> Matches("DILIST","ID",1,.301)=""
> Matches("DILIST","ID",1,391)=""
> Matches("DILIST","ID",1,994)=""
> Matches("DILIST","ID","WRITE",1,1)=""
>
> GTM>set Fields="@;.01;.02;.03"
>
> GTM>do
> FIND^DIC(2,"","M",Fields,value,"*","","","","Matches","TMGMsg")
>
> GTM>zwr Matches(*)
> %GTM-E-UNDEF, Undefined local variable: Matches
>
> GTM>set Fields=""
>
> GTM>do
> FIND^DIC(2,"","M",Fields,value,"*","","","","Matches","TMGMsg")
>
> GTM>zwr Matches(*)
> %GTM-E-UNDEF, Undefined local variable: Matches
>
> GTM>do
> FIND^DIC(2,"","",Fields,value,"*","","","","Matches","TMGMsg")
>
> GTM>zwr Matches(*)
> Matches("DILIST",0)="1^*^0^"
>
Matches("DILIST",0,"MAP")="FID(.03)^FID(.09)^FID(.301)^FID(391)^FID(994)"
> Matches("DILIST",1,1)="WIGLE,GORDON S"
> Matches("DILIST",2,1)=68158
> Matches("DILIST","ID",1,.03)="09/13/19xx"
> Matches("DILIST","ID",1,.09)=xxxxxxxxxxx
> Matches("DILIST","ID",1,.301)=""
> Matches("DILIST","ID",1,391)=""
> Matches("DILIST","ID",1,994)=""
> Matches("DILIST","ID","WRITE",1,1)=""
>
>
>
> __________________________________________________
> Do You Yahoo!?
> Tired of spam? Yahoo! Mail has the best spam protection around
> http://mail.yahoo.com
>
>
> -------------------------------------------------------
> This SF.Net email is sponsored by: IntelliVIEW -- Interactive
> Reporting
> Tool for open source databases. Create drag-&-drop reports. Save time
> by over 75%! Publish reports on the web. Export to DOC, XLS, RTF,
> etc.
> Download a FREE copy at http://www.intelliview.com/go/osdn_nl
> _______________________________________________
> Hardhats-members mailing list
> [email protected]
> https://lists.sourceforge.net/lists/listinfo/hardhats-members
>
=====
A practical man is a man who practices the errors of his forefathers.
--Benjamin Disraeli
====
Greg Woodhouse
[EMAIL PROTECTED]
[EMAIL PROTECTED]
-------------------------------------------------------
This SF.Net email is sponsored by: IntelliVIEW -- Interactive Reporting
Tool for open source databases. Create drag-&-drop reports. Save time
by over 75%! Publish reports on the web. Export to DOC, XLS, RTF, etc.
Download a FREE copy at http://www.intelliview.com/go/osdn_nl
_______________________________________________
Hardhats-members mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/hardhats-members
