Changeset 380 for ccr/trunk/p

Timestamp:

Feb 24, 2009, 11:16:28 PM (16 years ago)

Author:

George Lilly

Message:

SAC compliant checking for MRN on OpenVista

File:

• ccr/trunk/p/GPLACTOR.m (modified) (1 diff)

ccr/trunk/p/GPLACTOR.m

@@ -96 +96 @@
  S @AMAP@("ACTORSSNTEXT")=""
  S @AMAP@("ACTORSSNSOURCEID")=""
- I $T(^MSCDPTID)]"" S MRN=$$^MSCDPTID(DFN) ;TEST FOR MRN ON OPENVISTA ;GPL
+ 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
  . S @AMAP@("ACTORSSN")=MRN