Changeset 353 for ccr/trunk/p


Ignore:
Timestamp:
Feb 3, 2009, 2:22:52 PM (16 years ago)
Author:
George Lilly
Message:

Immunizations running and integrated (but without codes)

Location:
ccr/trunk/p
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/GPLCCR.m

    r348 r353  
    135135 D PUSH^GPLXPATH(TAB,"EXTRACT;GPLVITAL;//ContinuityOfCareRecord/Body/VitalSigns;^TMP(""GPLCCR"",$J,DFN,""VITALS"")")
    136136 D PUSH^GPLXPATH(TAB,"MAP;GPLLABS;//ContinuityOfCareRecord/Body/Results;^TMP(""GPLCCR"",$J,DFN,""RESULTS"")")
     137 D PUSH^GPLXPATH(TAB,"MAP;GPLIMMU;//ContinuityOfCareRecord/Body/Immunizations;^TMP(""GPLCCR"",$J,DFN,""IMMUNE"")")
    137138 I TESTALERT D PUSH^GPLXPATH(TAB,"EXTRACT;GPLALERT;//ContinuityOfCareRecord/Body/Alerts;^TMP(""GPLCCR"",$J,DFN,""ALERTS"")")
    138139 Q
  • ccr/trunk/p/GPLIMMU.m

    r351 r353  
    2121 ; PROCESS THE IMMUNIZATIONS SECTION OF THE CCR
    2222 ;
     23MAP(IPXML,DFN,OUTXML) ; MAP IMMUNIZATIONS
     24 ;
     25 N C0CZV,C0CZVI ; TO STORE MAPPED VARIABLES
     26 N C0CZT ; TMP ARRAY OF MAPPED XML
     27 S C0CZV=$NA(^TMP("GPLCCR",$J,"IMMUNE")) ; TEMP STORAGE FOR VARIABLES
     28 D EXTRACT(IPXML,DFN,OUTXML) ;EXTRACT THE VARIABLES
     29 B
     30 N C0CZI,C0CZIC ; COUNT OF IMMUNIZATIONS
     31 S C0CZIC=@C0CZV@(0) ; TOTAL FROM VARIABLE ARRAY
     32 F C0CZI=1:1:C0CZIC D  ;FOR EACH IMMUNIZATION
     33 . S C0CZVI=$NA(@C0CZV@(C0CZI)) ;THIS IMMUNIZATION
     34 . D MAP^GPLXPATH(IPXML,C0CZVI,"C0CZT") ;MAP THE VARIABLES TO XML
     35 . I C0CZI=1 D  ; FIRST ONE
     36 . . D CP^GPLXPATH("C0CZT",OUTXML) ;JUST COPY RESULTS
     37 . E  D  ;NOT THE FIRST
     38 . . D INSINNER^GPLXPATH(OUTXML,"C0CZT")
     39 Q
     40 ;
    2341EXTRACT(IPXML,DFN,OUTXML) ; EXTRACT IMMUNIZATIONS INTO VARIABLES
    2442 ;
     
    3048 ;
    3149 N RPCRSLT,J,K,PTMP,X,VMAP,TBU
    32  S TVMAP=$NA(^TMP("GPLCCR",$J,"IMMUVALS"))
     50 S TVMAP=$NA(^TMP("GPLCCR",$J,"IMMUNE"))
    3351 S TARYTMP=$NA(^TMP("GPLCCR",$J,"IMMUARYTMP"))
    3452 S IMMA=$NA(^TMP("PXI",$J)) ;
     
    6078 . . S @VMAP@("IMMUNEDATETIME")=C0CT ;FORMATTED DATE/TIME
    6179 . . S C0CIP=$$ZVALUEI^C0CRNF("ENCOUNTER PROVIDER","C0CI") ;IEN OF PROVIDER
    62  . . S @VMAP@("IMMUNESOURCEACTORID")="ACTORPROVIDOR_"_C0CIP
     80 . . S @VMAP@("IMMUNESOURCEACTORID")="ACTORPROVIDER_"_C0CIP
    6381 . . S C0CIIEN=$$ZVALUEI^C0CRNF("IMMUNIZATION","C0CI") ;IEN OF IMMUNIZATION
    6482 . . ; FOR LOOKING UP THE CODE (TBD GPL)
     
    6886 . . S @VMAP@("IMMUNEPRODUCTCODE")="" ;FIX THIS
    6987 . . S @VMAP@("IMMUNEPRODUCTCODESYSTEM")="" ;FIX THIS
    70  B
    7188 Q
    7289 . S VMAP=$NA(@TVMAP@(J))
Note: See TracChangeset for help on using the changeset viewer.