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

Timestamp:

Feb 20, 2009, 10:55:40 AM (15 years ago)

Author:

George Lilly

Message:

use MRN instead of SSN for OpenVista

File:

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

ccr/trunk/p/GPLACTOR.m

@@ -96 +96 @@
  S @AMAP@("ACTORSSNTEXT")=""
  S @AMAP@("ACTORSSNSOURCEID")=""
- S ZX=$$SSN^CCRDPT(AIEN)
- I ZX'="" D  ; IF THERE IS A SSN IN THE RECORD
- . S @AMAP@("ACTORSSN")=ZX
- . S @AMAP@("ACTORSSNTEXT")="SSN"
+ I $G(^MSCDPTID)]"" S MRN=$$^MSCDPTID(DFN) ;TEST FOR MRN ON OPENVISTA ;GPL
+ I $D(MRN) D  ; IF MRN IS PRESENT
+ . S @AMAP@("ACTORSSN")=MRN
+ . S @AMAP@("ACTORSSNTEXT")="MRN"
  . S @AMAP@("ACTORSSNSOURCEID")=AOID
+ E  D  ; NO MRN, USE SSN
+ . S ZX=$$SSN^CCRDPT(AIEN)
+ . I ZX'="" D  ; IF THERE IS A SSN IN THE RECORD
+ . . S @AMAP@("ACTORSSN")=ZX
+ . . S @AMAP@("ACTORSSNTEXT")="SSN"
+ . . S @AMAP@("ACTORSSNSOURCEID")=AOID
  S @AMAP@("ACTORADDRESSTYPE")=$$ADDRTYPE^CCRDPT(AIEN)
  S @AMAP@("ACTORADDRESSLINE1")=$$ADDR1^CCRDPT(AIEN)