Changeset 674


Ignore:
Timestamp:
Jan 22, 2010, 2:45:25 AM (15 years ago)
Author:
George Lilly
Message:

first version with Procedures

Location:
ccr/trunk/p
Files:
3 edited

Legend:

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

    r576 r674  
    149149 D PUSH^C0CXPATH(TAB,"EXTRACT;C0CVITAL;//ContinuityOfCareRecord/Body/VitalSigns;^TMP(""C0CCCR"",$J,DFN,""VITALS"")")
    150150 D PUSH^C0CXPATH(TAB,"MAP;C0CLABS;//ContinuityOfCareRecord/Body/Results;^TMP(""C0CCCR"",$J,DFN,""RESULTS"")")
     151 D PUSH^C0CXPATH(TAB,"EXTRACT;C0CPROC;//ContinuityOfCareRecord/Body/Procedures;^TMP(""C0CCCR"",$J,DFN,""PROCEDURES"")")
    151152 Q
    152153 ;
  • ccr/trunk/p/C0CPROC.m

    r673 r674  
    6262 . . . S ZRNF("PROCDATETEXT")="Procedure Date"
    6363 . . . S ZRNF("PROCDATETIME")=ZDATE
     64 . . . S ZRNF("PROCDESCOBJATTRCODE")="" ;NO PROC ATTRIBUTES YET
    6465 . . . S ZRNF("PROCDESCOBJATTR")=""
    6566 . . . S ZRNF("PROCDESCOBJATTRCODESYS")="" ;WE DON'T HAVE PROC ATTRIBUTES
     
    7172 . . . S ZRNF("PROCSTATUS")="Completed" ; Is this right?
    7273 . . . S ZRNF("PROCTYPE")=$P(ZCPT,U,2) ; NEED TO ADD THIS TO TEMPLATE
     74 . . . D RNF1TO2^C0CRNF(C0CPRC,"ZRNF") ; ADD THIS ROW TO THE ARRAY
     75 N ZRIM S ZRIM=$NA(^TMP("C0CRIM","VARS",DFN,"PROCEDURES"))
     76 M @ZRIM=@C0CPRC@("V")
    7377 Q
    7478 ;
     
    97101MAP(PROCXML,C0CPRC,PROCOUT) ; MAP PROCEDURES XML
    98102 ;
     103 N ZTEMP S ZTEMP=$NA(^TMP("C0CCCR",$J,DFN,"PROCTEMP")) ;WORK AREA FOR TEMPLATE
     104 K @ZTEMP
     105 N ZBLD
     106 S ZBLD=$NA(^TMP("C0CCCR",$J,DFN,"PROCBLD")) ; BUILD LIST AREA
     107 D QUEUE^C0CXPATH(ZBLD,PROCXML,1,1) ; FIRST LINE
     108 N ZINNER
     109 D QUERY^C0CXPATH(PROCXML,"//Procedures/Procedure","ZINNER") ;ONE PROC
     110 N ZTMP,ZVAR,ZI
     111 S ZI=""
     112 F  S ZI=$O(@C0CPRC@("V",ZI)) Q:ZI=""  D  ;FOR EACH PROCEDURE
     113 . S ZTMP=$NA(@ZTEMP@(ZI)) ;THIS PROCEDURE XML
     114 . S ZVAR=$NA(@C0CPRC@("V",ZI)) ;THIS PROCEDURE VARIABLES
     115 . D MAP^C0CXPATH("ZINNER",ZVAR,ZTMP) ; MAP THE PROCEDURE
     116 . D QUEUE^C0CXPATH(ZBLD,ZTMP,1,@ZTMP@(0)) ;QUE FOR BUILD
     117 D QUEUE^C0CXPATH(ZBLD,PROCXML,@PROCXML@(0),@PROCXML@(0))
     118 N ZZTMP
     119 D BUILD^C0CXPATH(ZBLD,PROCOUT) ;BUILD FINAL XML
     120 K @ZTEMP,@ZBLD
    99121 Q
    100122 ; 
  • ccr/trunk/p/C0CRNF.m

    r666 r674  
    4242 . . E  S @C0CFRTN@(C0CFN)=C0CFJ_"^"_C0CFI
    4343 . S C0CFJ=$O(^DD(C0CFJ)) ; NEXT SUBFILE
     44 Q
     45 ;
     46TESTRNF ; TEST THE RNF1TO2 ROUTINE
     47 S G1("ONE")=1
     48 S G1("TWO")=2
     49 S G1("THREE")=3
     50 D RNF1TO2("GPL","G1")
     51 S G1("ONE")="NOT1"
     52 S G1("TWO")="STILL2"
     53 S G1("THREE")=3
     54 D RNF1TO2("GPL","G1")
     55 ZWR GPL
     56 Q
     57 ;
     58RNF1TO2(ZOUT,ZIN) ; ADDS AN RNF1 ARRAY (ZIN) TO THE END OF AN RNF2 ARRAY
     59 ; (ZOUT) BOTH ARE PASSED BY NAME
     60 ; RNF1 IS OF THE FORM:
     61 ; @ZIN@("VAR1")=VAL1
     62 ; @ZIN@("VAR2")=VAL2
     63 ; RNF2 IS OF THE FORM:
     64 ; @ZOUT@("F","VAR1")=""
     65 ; @ZOUT@("F","VAR2")=""
     66 ; @ZOUT@("V",n,"VAR1")=VAL1
     67 ; @ZOUT@("V",n,"VAR2")=VAL2
     68 ; WHERE n IS THE "ROW" OF THE ARRAY
     69 N ZI S ZI=""
     70 N ZN
     71 I '$D(@ZOUT@("V",1)) S ZN=1
     72 E  S ZN=$O(@ZOUT@("V",""),-1)+1
     73 F  S ZI=$O(@ZIN@(ZI)) Q:ZI=""  D  ;
     74 . S @ZOUT@("F",ZI)=""
     75 . S @ZOUT@("V",ZN,ZI)=@ZIN@(ZI)
    4476 Q
    4577 ;
Note: See TracChangeset for help on using the changeset viewer.