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

Routine for processing the Actors section.. needs Sam's calls added

This commit is contained in:
george 2008-07-03 23:34:12 +00:00
parent cd6dc2b91d
commit 4e82b53cf9
1 changed files with 54 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
p/GPLACTORS.m Normal file
View File

@ -0,0 +1,54 @@
GPLACTORS ; CCDCCR/GPL - CCR/CCD PROCESSING FOR ACTORS ; 7/3/08
;;0.1;CCDCCR;nopatch;noreleasedate
;
; PROCESS THE ACTORS SECTION OF THE CCR
;
EXTRACT(IPXML,ALST,OUTXML) ; EXTRACT ACTOR FROM ALST INTO PROVIDED XML TEMPLATE
;
N I,J,ATMP,FIRST,AMAP,AOID,ATYP,AIEN
S FIRST=1 ; NEED TO KNOW WHICH IS THE FIRST ACTOR
F I=1:1:@ALST@(0) D ; PROCESS ALL ACTORS IN THE LIST
. I @ALST@(I)["@@" Q ; NOT A VALID ACTOR
. S AOID=$P(@ALST@(I),"^",1) ; ACTOR OBJECT ID
. S ATYP=$P(@ALST@(I),"^",2) ; ACTOR TYPE
. S AIEN=$P(@ALST@(I),"^",3) ; ACTOR RECORD NUMBER
. I ATYP="" Q ; NOT A VALID ACTOR
. ;
. ; MAP ACTOR VARIABLES HERE
. ;
. S @AMAP@("ACTOROBJECTID")=AOID ;ACTOR OBJECT ID
. S @AMAP@("ACTORGIVENNAME")=""
. S @AMAP@("ACTORMIDDLENAME")=""
. S @AMAP@("ACTORFAMILYNAME")=""
. S @AMAP@("ACTORDATEOFBIRTH")=""
. S @AMAP@("ACTORGENDER")=""
. S @AMAP@("ACTORSSN")=""
. S @AMAP@("ACTORSSNSOURCEID")=""
. S @AMAP@("ACTORADDRESSTYPE")=""
. S @AMAP@("ACTORADDRESSLINE1")=""
. S @AMAP@("ACTORADDRESSLINE2")=""
. S @AMAP@("ACTORADDRESSCITY")=""
. S @AMAP@("ACTORADDRESSSTATE")=""
. S @AMAP@("ACTORADDRESSZIPCODE")=""
. S @AMAP@("ACTORTELEPHONE")=""
. S @AMAP@("ACTORTELEPHONETYPE")=""
. S @AMAP@("ACTOREMAIL")=""
. S @AMAP@("ACTORADDRESSSOURCEID")=""
. S @AMAP@("ACTORINFOSYSNAME")=""
. S @AMAP@("ACTORINFOSYSSOURCEID")=""
. S @AMAP@("ACTORDISPLAYNAME")=""
. S @AMAP@("ACTORRELATION")=""
. S @AMAP@("ACTORRELATIONSOURCEID")=""
. S @AMAP@("ACTORSPECIALITY")=""
. ;
. ;
. D MAP^GPLXPATH(INXML,AMAP,"ATMP") ; MAP THE VARIABLE
. I FIRST D ; FIRST TIME , ONLY COPY THE ARRAY
. . D CP^GPLXPATH("ATMP",OUTXML) ;
. . S FIRST=0 ; NO LONGER THE FIRST TIME
. I 'FIRST D ; ALL NON-FIRST ACTORS MUST BE INSERTED
. . D INSERT^GPLXPATH("ATMP","//",OUTXML) ; INSERT AT ROOT
;
Q
;