iSharkFly-Open
/
VistA-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

use MRN instead of SSN for OpenVista

This commit is contained in:
george 2009-02-20 15:55:40 +00:00
parent 57cf1d97c3
commit 0505d7f8be
2 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
p/GPLACTOR.m
View File

@ -95,11 +95,17 @@ PATIENT(INXML,AIEN,AOID,OUTXML) ; PROCESS A PATIENT ACTOR
S @AMAP@("ACTORSSN")=""
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)
S @AMAP@("ACTORADDRESSLINE2")=$$ADDR2^CCRDPT(AIEN)

2
p/GPLCCR.m
View File

@ -39,7 +39,7 @@ XPAT(DFN,XPARMS,DIR,FN) ; EXPORT ONE PATIENT TO A FILE
D CCRRPC(.CCRGLO,DFN,XPARMS,"CCR")
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
. ;S @ODIRGLB="/home/glilly/CCROUT"