Changeset 353 for ccr/trunk/p/GPLIMMU.m

Timestamp:

Feb 3, 2009, 2:22:52 PM (16 years ago)

Author:

George Lilly

Message:

Immunizations running and integrated (but without codes)

File:

• ccr/trunk/p/GPLIMMU.m (modified) (4 diffs)

ccr/trunk/p/GPLIMMU.m

@@ -21 +21 @@
  ; 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 +48 @@
  ;
  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 +78 @@
  . . 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 +86 @@
  . . S @VMAP@("IMMUNEPRODUCTCODE")="" ;FIX THIS
  . . S @VMAP@("IMMUNEPRODUCTCODESYSTEM")="" ;FIX THIS
- B
  Q
  . S VMAP=$NA(@TVMAP@(J))