Index: ccr/trunk/p/GPLACTORS.m
===================================================================
--- ccr/trunk/p/GPLACTORS.m	(revision 37)
+++ ccr/trunk/p/GPLACTORS.m	(revision 37)
@@ -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
+           ;
+