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

2009-02-25 04:27:46 +00:00 · 2009-02-25 04:27:46 +00:00 · 8602f515de
parent d898bf93d2
commit 8602f515de
1 changed files with 1 additions and 1 deletions
--- a/p/GPLACTOR.m
+++ b/p/GPLACTOR.m
@ -95,7 +95,7 @@ PATIENT(INXML,AIEN,AOID,OUTXML) ; PROCESS A PATIENT ACTOR
 S @AMAP@("ACTORSSN")=""
 S @AMAP@("ACTORSSNTEXT")=""
 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
 I $T S MRN=$$^MSCDPTID(DFN) ;TEST FOR MRN ON OPENVISTA ;GPL
 I $D(MRN) D  ; IF MRN IS PRESENT