Changeset 371 for ccr/trunk/p

Timestamp:

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

Author:

George Lilly

Message:

use MRN instead of SSN for OpenVista

Location:

ccr/trunk/p

Files:

• GPLACTOR.m (modified) (1 diff)
• GPLCCR.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)

ccr/trunk/p/GPLCCR.m

@@ -40 +40 @@
  S OARY=$NA(^TMP("GPLCCR",$J,DFN,"CCR",1))
  S ONAM=UFN
- I UFN="" S ONAM="PAT_"_DFN_"_CCR_V1_0_15.xml"
+ I UFN="" S ONAM="PAT_"_DFN_"_CCR_V1_0_16.xml"
  S ODIRGLB=$NA(^TMP("GPLCCR","ODIR"))
  I '$D(@ODIRGLB) D  ; IF NOT ODIR HAS BEEN SET