iSharkFly-Open
/
VistA-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

correction to call to ^%ZOSF("TEST")

This commit is contained in:
george 2009-02-25 04:27:46 +00:00
parent d898bf93d2
commit 8602f515de
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
p/GPLACTOR.m
View File

@ -95,7 +95,7 @@ PATIENT(INXML,AIEN,AOID,OUTXML) ; PROCESS A PATIENT ACTOR
S @AMAP@("ACTORSSN")="" S @AMAP@("ACTORSSN")=""
S @AMAP@("ACTORSSNTEXT")="" S @AMAP@("ACTORSSNTEXT")=""
S @AMAP@("ACTORSSNSOURCEID")="" S @AMAP@("ACTORSSNSOURCEID")=""
S X="^MSCDPTID" ; ROUTINE TO TEST FOR MRN ON OPENVISTA S X="MSCDPTID" ; ROUTINE TO TEST FOR MRN ON OPENVISTA
X ^%ZOSF("TEST") ; TEST TO SEE IF THE ROUTINE EXISTS X ^%ZOSF("TEST") ; TEST TO SEE IF THE ROUTINE EXISTS
I $T S MRN=$$^MSCDPTID(DFN) ;TEST FOR MRN ON OPENVISTA ;GPL I $T S MRN=$$^MSCDPTID(DFN) ;TEST FOR MRN ON OPENVISTA ;GPL
I $D(MRN) D ; IF MRN IS PRESENT I $D(MRN) D ; IF MRN IS PRESENT