Changeset 353 for ccr/trunk/p
- Timestamp:
- Feb 3, 2009, 2:22:52 PM (16 years ago)
- Location:
- ccr/trunk/p
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/GPLCCR.m
r348 r353 135 135 D PUSH^GPLXPATH(TAB,"EXTRACT;GPLVITAL;//ContinuityOfCareRecord/Body/VitalSigns;^TMP(""GPLCCR"",$J,DFN,""VITALS"")") 136 136 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"")") 137 138 I TESTALERT D PUSH^GPLXPATH(TAB,"EXTRACT;GPLALERT;//ContinuityOfCareRecord/Body/Alerts;^TMP(""GPLCCR"",$J,DFN,""ALERTS"")") 138 139 Q -
ccr/trunk/p/GPLIMMU.m
r351 r353 21 21 ; PROCESS THE IMMUNIZATIONS SECTION OF THE CCR 22 22 ; 23 MAP(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 ; 23 41 EXTRACT(IPXML,DFN,OUTXML) ; EXTRACT IMMUNIZATIONS INTO VARIABLES 24 42 ; … … 30 48 ; 31 49 N RPCRSLT,J,K,PTMP,X,VMAP,TBU 32 S TVMAP=$NA(^TMP("GPLCCR",$J,"IMMU VALS"))50 S TVMAP=$NA(^TMP("GPLCCR",$J,"IMMUNE")) 33 51 S TARYTMP=$NA(^TMP("GPLCCR",$J,"IMMUARYTMP")) 34 52 S IMMA=$NA(^TMP("PXI",$J)) ; … … 60 78 . . S @VMAP@("IMMUNEDATETIME")=C0CT ;FORMATTED DATE/TIME 61 79 . . S C0CIP=$$ZVALUEI^C0CRNF("ENCOUNTER PROVIDER","C0CI") ;IEN OF PROVIDER 62 . . S @VMAP@("IMMUNESOURCEACTORID")="ACTORPROVID OR_"_C0CIP80 . . S @VMAP@("IMMUNESOURCEACTORID")="ACTORPROVIDER_"_C0CIP 63 81 . . S C0CIIEN=$$ZVALUEI^C0CRNF("IMMUNIZATION","C0CI") ;IEN OF IMMUNIZATION 64 82 . . ; FOR LOOKING UP THE CODE (TBD GPL) … … 68 86 . . S @VMAP@("IMMUNEPRODUCTCODE")="" ;FIX THIS 69 87 . . S @VMAP@("IMMUNEPRODUCTCODESYSTEM")="" ;FIX THIS 70 B71 88 Q 72 89 . S VMAP=$NA(@TVMAP@(J))
Note:
See TracChangeset
for help on using the changeset viewer.