Changeset 426 for ccr/trunk/p/C0CMED.m

Timestamp:

Mar 29, 2009, 7:58:12 PM (15 years ago)

Author:

Sam Habiel

Message:

Implemented Flags in VA Meds

File:

• ccr/trunk/p/C0CMED.m (modified) (2 diffs)

ccr/trunk/p/C0CMED.m

@@ -41 +41 @@
         ;
         ; --Get parameters for meds
+        S @MEDOUTXML@(0)=0 ; By default, empty.
         N C0CMFLAG
         S C0CMFLAG=$$GET^C0CPARMS("MEDALL")_"^"_$$GET^C0CPARMS("MEDLIMIT")_"^"_$$GET^C0CPARMS("MEDACTIVE")_"^"_$$GET^C0CPARMS("MEDPENDING")
@@ -56 +57 @@
 VISTA   
         N MEDCOUNT S MEDCOUNT=0
+        K ^TMP($J,"MED")
         N HIST S HIST=$NA(^TMP($J,"MED","HIST")) ; Meds already dispensed
         N PEND S PEND=$NA(^TMP($J,"MED","PEND")) ; Pending Meds
         N NVA S NVA=$NA(^TMP($J,"MED","NVA")) ; non-VA Meds
+        S @HIST@(0)=0,@PEND@(0)=0,@NVA@(0)=0 ; At first, they are all empty... (prevent undefined errors)
         ; N IPIV ; Inpatient IV Meds
         ; N IPUD ; Inpatient UD Meds
-        K ^TMP($J,"MED")
-        D EXTRACT^C0CMED1(MEDXML,DFN,HIST,.MEDCOUNT) ; Historical OP Meds
-        D EXTRACT^C0CMED2(MEDXML,DFN,PEND,.MEDCOUNT) ; Pending Meds
-        D EXTRACT^C0CMED3(MEDXML,DFN,NVA,.MEDCOUNT) ; non-VA Meds 
+        D EXTRACT^C0CMED1(MEDXML,DFN,HIST,.MEDCOUNT,C0CMFLAG) ; Historical OP Meds
+        D:$P(C0CMFLAG,U,4) EXTRACT^C0CMED2(MEDXML,DFN,PEND,.MEDCOUNT) ; Pending Meds
+        D:+C0CMFLAG EXTRACT^C0CMED3(MEDXML,DFN,NVA,.MEDCOUNT) ; non-VA Meds 
         I @HIST@(0)>0 D  
         . D CP^C0CXPATH(HIST,MEDOUTXML)