A couple of things: I wonder if you don't actually want to use LIST^DIC
here. Generally, FIND^DIC is used to search for specific entries. For
example, if you wanted to look for patients matching "WOODHOUSE" you
would do something like
D FIND^DIC(2,,"@;.01;more
fields","M","WOODHOUSE","*",,,,"TROOT","MROOT")
(You don't need to enter empty strings as parameters, just skip the
null valued parameters as above.)
The significance of the "M" is that it means multi-index lookup. If
there are indexes set up to support lookup by last name, by SSN, by
DFN, etc., then you can match any one of these. On the other hand, you
can give a specific cross-reference (or set of cross-references) to
use, instead.
--- 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
