Changeset 426 for ccr/trunk/p/C0CMED1.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/C0CMED1.m (modified) (5 diffs)

ccr/trunk/p/C0CMED1.m

@@ -22 +22 @@
         Q
         ;
-EXTRACT(MINXML,DFN,OUTXML,MEDCOUNT)      ; EXTRACT MEDICATIONS INTO PROVIDED XML TEMPLATE
+EXTRACT(MINXML,DFN,OUTXML,MEDCOUNT,FLAGS)       ; EXTRACT MEDICATIONS INTO PROVIDED XML TEMPLATE
         ;
         ; INXML AND OUTXML ARE PASSED BY NAME SO GLOBALS CAN BE USED
@@ -31 +31 @@
         ; MED is holds each array element from MEDS(J), one medicine
         ; MEDCOUNT is a counter passed by Reference.
+        ; FLAGS are: MEDALL(bool)^MEDLIMIT(int)^MEDACTIVE(bool)^MEDPENDING(bool)
+        ; FLAGS are set-up in C0CMED.
         ;
         ; RX^PSO52API is a Pharmacy Re-Enginnering (PRE) API to get all
@@ -39 +41 @@
         N MEDS,MAP
         K ^TMP($J,"CCDCCR") ; PLEASE DON'T KILL ALL OF ^TMP($J) HERE!!!!
-        D RX^PSO52API(DFN,"CCDCCR")
+        N ALL S ALL=+FLAGS
+        N ACTIVE S ACTIVE=$P(FLAGS,U,3)
+        ; Below, X1 is today; X2 is the number of days we want to go back
+        ; X is the result of this calculation using C^%DTC.
+        N X,X1,X2
+        S X1=DT
+        S X2=-$P($P(FLAGS,U,2),"-",2)
+        D C^%DTC
+        ; I discovered that I shouldn't put an ending date (last parameter)
+        ; because it seems that it will get meds whose beginning is after X but
+        ; whose exipriation is before the ending date.
+        D RX^PSO52API(DFN,"CCDCCR","","","",X,"")
         M MEDS=^TMP($J,"CCDCCR",DFN)
         ; @(0) contains the number of meds or -1^NO DATA FOUND
@@ -47 +60 @@
         N RXIEN S RXIEN=0
         F  S RXIEN=$O(MEDS(RXIEN)) Q:RXIEN=""  D  ; FOR EACH MEDICATION IN THE LIST
+        . N MED M MED=MEDS(RXIEN)
+        . I 'ALL,ACTIVE,$P(MED(100),U,2)'="ACTIVE" QUIT
         . S MEDCOUNT=MEDCOUNT+1
         . W:$G(DEBUG) "RXIEN IS ",RXIEN,!
@@ -52 +67 @@
         . ; K @MAP DO NOT KILL HERE, WAS CLEARED IN C0CMED
         . W:$G(DEBUG) "MAP= ",MAP,!
-        . N MED M MED=MEDS(RXIEN) ; PULL OUT MEDICATION FROM
         . S @MAP@("MEDOBJECTID")="MED"_MEDCOUNT ; MEDCOUNT FOR ID
         . ; S @MAP@("MEDOBJECTID")="MED"_MED(.01) ;Rx Number