Index: ccr/trunk/p/GPLCCR.m
===================================================================
--- ccr/trunk/p/GPLCCR.m	(revision 352)
+++ ccr/trunk/p/GPLCCR.m	(revision 353)
@@ -135,4 +135,5 @@
  D PUSH^GPLXPATH(TAB,"EXTRACT;GPLVITAL;//ContinuityOfCareRecord/Body/VitalSigns;^TMP(""GPLCCR"",$J,DFN,""VITALS"")")
  D PUSH^GPLXPATH(TAB,"MAP;GPLLABS;//ContinuityOfCareRecord/Body/Results;^TMP(""GPLCCR"",$J,DFN,""RESULTS"")")
+ D PUSH^GPLXPATH(TAB,"MAP;GPLIMMU;//ContinuityOfCareRecord/Body/Immunizations;^TMP(""GPLCCR"",$J,DFN,""IMMUNE"")")
  I TESTALERT D PUSH^GPLXPATH(TAB,"EXTRACT;GPLALERT;//ContinuityOfCareRecord/Body/Alerts;^TMP(""GPLCCR"",$J,DFN,""ALERTS"")")
  Q
Index: ccr/trunk/p/GPLIMMU.m
===================================================================
--- ccr/trunk/p/GPLIMMU.m	(revision 352)
+++ ccr/trunk/p/GPLIMMU.m	(revision 353)
@@ -21,4 +21,22 @@
  ; PROCESS THE IMMUNIZATIONS SECTION OF THE CCR
  ;
+MAP(IPXML,DFN,OUTXML) ; MAP IMMUNIZATIONS
+ ;
+ N C0CZV,C0CZVI ; TO STORE MAPPED VARIABLES
+ N C0CZT ; TMP ARRAY OF MAPPED XML
+ S C0CZV=$NA(^TMP("GPLCCR",$J,"IMMUNE")) ; TEMP STORAGE FOR VARIABLES
+ D EXTRACT(IPXML,DFN,OUTXML) ;EXTRACT THE VARIABLES
+ B
+ N C0CZI,C0CZIC ; COUNT OF IMMUNIZATIONS
+ S C0CZIC=@C0CZV@(0) ; TOTAL FROM VARIABLE ARRAY
+ F C0CZI=1:1:C0CZIC D  ;FOR EACH IMMUNIZATION
+ . S C0CZVI=$NA(@C0CZV@(C0CZI)) ;THIS IMMUNIZATION
+ . D MAP^GPLXPATH(IPXML,C0CZVI,"C0CZT") ;MAP THE VARIABLES TO XML
+ . I C0CZI=1 D  ; FIRST ONE
+ . . D CP^GPLXPATH("C0CZT",OUTXML) ;JUST COPY RESULTS
+ . E  D  ;NOT THE FIRST
+ . . D INSINNER^GPLXPATH(OUTXML,"C0CZT")
+ Q
+ ;
 EXTRACT(IPXML,DFN,OUTXML) ; EXTRACT IMMUNIZATIONS INTO VARIABLES
  ;
@@ -30,5 +48,5 @@
  ;
  N RPCRSLT,J,K,PTMP,X,VMAP,TBU
- S TVMAP=$NA(^TMP("GPLCCR",$J,"IMMUVALS"))
+ S TVMAP=$NA(^TMP("GPLCCR",$J,"IMMUNE"))
  S TARYTMP=$NA(^TMP("GPLCCR",$J,"IMMUARYTMP"))
  S IMMA=$NA(^TMP("PXI",$J)) ;
@@ -60,5 +78,5 @@
  . . S @VMAP@("IMMUNEDATETIME")=C0CT ;FORMATTED DATE/TIME
  . . S C0CIP=$$ZVALUEI^C0CRNF("ENCOUNTER PROVIDER","C0CI") ;IEN OF PROVIDER
- . . S @VMAP@("IMMUNESOURCEACTORID")="ACTORPROVIDOR_"_C0CIP
+ . . S @VMAP@("IMMUNESOURCEACTORID")="ACTORPROVIDER_"_C0CIP
  . . S C0CIIEN=$$ZVALUEI^C0CRNF("IMMUNIZATION","C0CI") ;IEN OF IMMUNIZATION
  . . ; FOR LOOKING UP THE CODE (TBD GPL)
@@ -68,5 +86,4 @@
  . . S @VMAP@("IMMUNEPRODUCTCODE")="" ;FIX THIS
  . . S @VMAP@("IMMUNEPRODUCTCODESYSTEM")="" ;FIX THIS
- B
  Q
  . S VMAP=$NA(@TVMAP@(J))