Changeset 424 for ccr/trunk/p/C0CMED6.m

Timestamp:

Mar 29, 2009, 6:35:15 PM (15 years ago)

Author:

George Lilly

Message:

More changes to C0CMED6

File:

• ccr/trunk/p/C0CMED6.m (modified) (1 diff)

ccr/trunk/p/C0CMED6.m

@@ -47 +47 @@
         ; 
         N MEDS,MEDS1,MAP
-        D GETRXS^BEHORXFN("MEDS1",DFN,$P(FLAGS,U,2)) ; 2nd piece of FLAGS is # of days to retrieve
+        D GETRXS^BEHORXFN("MEDS1",DFN,$P($P(FLAGS,U,2),"-",2)) ; 2nd piece of FLAGS is # of days to retrieve, which comes in the form "T-360"
         N ALL S ALL=+FLAGS
         N ACTIVE S ACTIVE=$P(FLAGS,U,3)
         N PENDING S PENDING=$P(FLAGS,U,4)
+        S @OUTXML@(0)=0  ;By default, no meds
         ; If MEDS1 is not defined, then no meds
-        I '$D(MEDS1) S @OUTXML@(0)=0 QUIT
+        I '$D(MEDS1) QUIT
         I DEBUG ZWR MEDS1,MINXML
         N MEDCNT S MEDCNT=0 ; Med Count