Index: ccr/trunk/p/GPLACTOR.m
===================================================================
--- ccr/trunk/p/GPLACTOR.m	(revision 370)
+++ ccr/trunk/p/GPLACTOR.m	(revision 371)
@@ -96,9 +96,15 @@
  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)
Index: ccr/trunk/p/GPLCCR.m
===================================================================
--- ccr/trunk/p/GPLCCR.m	(revision 370)
+++ ccr/trunk/p/GPLCCR.m	(revision 371)
@@ -40,5 +40,5 @@
  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