Changeset 381 for ccr

Timestamp:

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

Author:

George Lilly

Message:

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

File:

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

ccr/trunk/p/GPLACTOR.m

@@ -96 +96 @@
  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