Changeset 376 for ccr/trunk/p/GPLACTOR.m


Ignore:
Timestamp:
Feb 24, 2009, 1:15:03 PM (15 years ago)
Author:
George Lilly
Message:

fixed OpenVistA MRN retrieval and Vitals typo

File:
1 edited

Legend:

Unmodified
Added
Removed

  • ccr/trunk/p/GPLACTOR.m

    r371 r376  
    9696 S @AMAP@("ACTORSSNTEXT")=""
    9797 S @AMAP@("ACTORSSNSOURCEID")=""
    98  I $G(^MSCDPTID)]"" S MRN=$$^MSCDPTID(DFN) ;TEST FOR MRN ON OPENVISTA ;GPL
     98 I $T(^MSCDPTID)]"" S MRN=$$^MSCDPTID(DFN) ;TEST FOR MRN ON OPENVISTA ;GPL
    9999 I $D(MRN) D  ; IF MRN IS PRESENT
    100100 . S @AMAP@("ACTORSSN")=MRN
Note: See TracChangeset for help on using the changeset viewer.