Changeset 601 for ccr/trunk/p/C0CACTOR.m


Ignore:
Timestamp:
Nov 11, 2009, 1:04:41 AM (14 years ago)
Author:
George Lilly
Message:

support for incoming CCDs

File:
1 edited

Legend:

Unmodified
Added
Removed

  • ccr/trunk/p/C0CACTOR.m

    r588 r601  
    109109 X ^%ZOSF("TEST") ; TEST TO SEE IF THE ROUTINE EXISTS
    110110 I $T S MRN=$$^MSCDPTID(DFN) ;TEST FOR MRN ON OPENVISTA ;GPL
    111  I MRN'="" D  ; IF MRN IS PRESENT
     111 I $G(MRN)'="" D  ; IF MRN IS PRESENT
    112112 . S @AMAP@("ACTORSSN")=MRN
    113113 . S @AMAP@("ACTORSSNTEXT")="MRN"
Note: See TracChangeset for help on using the changeset viewer.