Changeset 974
- Timestamp:
- Oct 4, 2010, 1:46:18 PM (14 years ago)
- Location:
- ccr/trunk/p
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/C0CCCR.m
r783 r974 41 41 N C0CRTN ; RETURN ARRAY 42 42 D CCRRPC(.C0CRTN,DFN,XPARMS,"CCR") 43 S OARY=$NA(^TMP("C0CC CR",$J,DFN,"CCR",1))43 S OARY=$NA(^TMP("C0CCUR",$J,DFN,"CCR",1)) 44 44 S ONAM=UFN 45 45 I UFN="" S ONAM="PAT_"_DFN_"_CCR_V1_0_0.xml" … … 62 62 ; 63 63 N G1 64 S G1=$NA(^TMP("C0CC CR",$J,DFN,"CCR"))64 S G1=$NA(^TMP("C0CCUR",$J,DFN,"CCR")) 65 65 I $D(@G1@(0)) D ; CCR EXISTS 66 66 . D PARY^C0CXPATH(G1) … … 78 78 ; SEE C0CPARMS FOR A COMPLETE LIST OF SUPPORTED PARAMETERS 79 79 K ^TMP("C0CCCR",$J) ; CLEAN UP THE GLOBAL BEFORE WE USE IT 80 M ^TMP("C0CSAV",$J)=^TMP($J) ; SAVING CALLER'S TMP SETTINGS 81 K ^TMP($J) ; START CLEAN 80 82 I '$D(DEBUG) S DEBUG=0 81 83 S CCD=0 ; NEED THIS FLAG TO DISTINGUISH FROM CCD … … 89 91 I '$D(TESTMEDS) S TESTMEDS=0 ; FLAG FOR TESTING C0CMED SECTION 90 92 S TGLOBAL=$NA(^TMP("C0CCCR",$J,"TEMPLATE")) ; GLOBAL FOR STORING TEMPLATE 91 S CCRGLO=$NA(^TMP("C0CC CR",$J,DFN,"CCR")) ; GLOBAL FOR BUILDING THE CCR93 S CCRGLO=$NA(^TMP("C0CCUR",$J,DFN,"CCR")) ; GLOBAL FOR BUILDING THE CCR 92 94 S ACTGLO=$NA(^TMP("C0CCCR",$J,DFN,"ACTORS")) ; GLOBAL FOR ALL ACTORS 93 95 ; TO GET PART OF THE CCR RETURNED, PASS CCRPART="PROBLEMS" ETC … … 142 144 . I J=0 S DONE=1 ; DONE WHEN TRIM RETURNS FALSE 143 145 ;S CCRGRTN=$NA(^TMP("C0CCCR",$J,DFN,CCRPART)) ; RTN GLOBAL OF PART OR ALL 144 M CCRGRTN=^TMP("C0CCCR",$J,DFN,CCRPART) ; RTN GLOBAL OF PART OR ALL 146 I CCRPART="CCR" M CCRGRTN=@CCRGLO ; ENTIRE CCR 147 E M CCRGRTN=^TMP("C0CCCR",$J,DFN,CCRPART) ; RTN GLOBAL OF PART 145 148 I '$D(C0CNRPC) S ^TMP("C0CRPC",$H,"RESULT",CCRGRTN(0))="" 146 ;K ^TMP("C0CCCR",$J) ; BEGIN TO CLEAN UP 149 K ^TMP("C0CCCR",$J) ; BEGIN TO CLEAN UP 150 K ^TMP($J) ; REALLY CLEAN UP 151 M ^TMP($J)=^TMP("C0CSAV",$J) ; RESTORE CALLER'S $J 147 152 Q 148 153 ; -
ccr/trunk/p/C0CMED.m
r973 r974 76 76 N PEND S PEND=$NA(^TMP($J,"MED","PEND")) ; Pending Meds 77 77 N NVA S NVA=$NA(^TMP($J,"MED","NVA")) ; non-VA Meds 78 K @HIST K @PEND K @NVA ; MAKE SURE THEY ARE EMPTY 78 79 S @HIST@(0)=0,@PEND@(0)=0,@NVA@(0)=0 ; At first, they are all empty... (prevent undefined errors) 79 80 ; N IPIV ; Inpatient IV Meds … … 94 95 . E D CP^C0CXPATH(NVA,MEDOUTXML) 95 96 . W:$G(DEBUG) "HAS NON-VA MEDS",! 97 N ZI 98 S ZI=$NA(^TMP("C0CCCR",$J,"MEDMAP")) 99 M ^TMP("C0CRIM","VARS",DFN,"MEDS")=@ZI ; PERSIST MEDS VARIABLES 100 K @ZI ; CLEAN UP MED MAP AFTER - GPL 10/10 101 K @PEND 102 K @HIST 103 K @NVA 96 104 Q 97 105 -
ccr/trunk/p/C0CMED2.m
r508 r974 258 258 . . S MEDFIRST=0 ; RESET FIRST FLAG 259 259 . . D CP^C0CXPATH(RESULT,OUTXML) ; First one is a copy 260 . D:'MEDFIRST INSINNER^C0CXPATH(OUTXML,RESULT) ; AFTER FIRST, INSERT INNER XML260 . D:'MEDFIRST INSINNER^C0CXPATH(OUTXML,RESULT) ; AFTER FIRST, INSERT INNER 261 261 N MEDTMP,MEDI 262 262 D MISSING^C0CXPATH(OUTXML,"MEDTMP") ; SEARCH XML FOR MISSING VARS -
ccr/trunk/p/C0CMED3.m
r697 r974 105 105 . . . S NDFIEN=$P(NDFDATA(20),U) 106 106 . . . S VAPROD=$P(NDFDATA(22),U) 107 . . . S @MAP@("MEDPRODUCTNAMETEXT")=$$GET1^DIQ(50.68,VAPROD,.01) ; 108 . . ; GPL - RESET THE NAME TO THE REAL NAME OF THE DRUG NOW THAT WE 109 . . ; HAVE IT. 107 110 . . ; 108 111 . . ; NDFIEN is not necessarily defined; it won't be if the drug … … 256 259 . W "MEDICATION MISSING ",! 257 260 . F MEDI=1:1:MEDTMP(0) W MEDTMP(MEDI),! 258 N ZI259 S ZI=$NA(^TMP("C0CCCR",$J,"MEDMAP"))260 M ^TMP("C0CRIM","VARS",DFN,"MEDS")=@ZI ; PERSIST MEDS VARIABLES261 261 Q 262 262 ; -
ccr/trunk/p/C0CPARMS.m
r508 r974 24 24 N PTMP ; 25 25 S C0CPARMS=$NA(^TMP("C0CPARMS",$J)) ;BASE FOR THIS RUN 26 ;K @C0CPARMS ;START WITH EMPTY PARMS; MAY NOT WANT TO DO THIS KILL26 K @C0CPARMS ;START WITH EMPTY PARMS; MAY NOT WANT TO DO THIS KILL 27 27 I $G(INPARMS)'="" D ; OVERRIDES PROVIDED 28 28 . N C0CI S C0CI=""
Note:
See TracChangeset
for help on using the changeset viewer.