Oh...and most of the time, I find it easier just to use $$FIND1^DIC
S MYDA=$$FIND1^DIC(19,,"M","HL MAIN",,,"MROOT") W MYDA
8235
or, if you don't need any error messages, just
S MYDA=$$FIND1^DIC(19,,"M","HL MAIN") W MYDA
8235
will do as well.
--- Greg Woodhouse <[EMAIL PROTECTED]> wrote:
> 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
>
=====
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
