Changeset 1333 for ccr/branches/ohum/p/C0CMED1.m

Timestamp:

Jan 4, 2012, 12:05:49 AM (12 years ago)

Author:

George Lilly

Message:

ohum new version

File:

• ccr/branches/ohum/p/C0CMED1.m (modified) (2 diffs)

ccr/branches/ohum/p/C0CMED1.m

@@ -1 +1 @@
 C0CMED1 ; WV/CCDCCR/SMH - CCR/CCD PROCESSING FOR MEDICATIONS ;01/10/09
-        ;;1.0;C0C;;May 19, 2009;Build 38
+        ;;1.0;C0C;;May 19, 2009;Build 1
         ;;Last modified Sat Jan 10 21:42:27 PST 2009
         ; Copyright 2009 WorldVistA.  Licensed under the terms of the GNU
@@ -56 +56 @@
         ; @(0) contains the number of meds or -1^NO DATA FOUND
         ; If it is -1, we quit.
-        I $P(MEDS(0),U)=-1 S @OUTXML@(0)=0 QUIT
+        I $P(MEDS(0),U)=-1 S @OUTXML@(0)=0 Q
         ZWRITE:$G(DEBUG) MEDS
         N RXIEN S RXIEN=0
-        F  S RXIEN=$O(MEDS(RXIEN)) Q:RXIEN=""  D  ; FOR EACH MEDICATION IN THE LIST
+        F  S RXIEN=$O(MEDS(RXIEN)) Q:$G(RXIEN)=""  D  ; FOR EACH MEDICATION IN THE LIST
         . N MED M MED=MEDS(RXIEN)
         . I 'ALL,ACTIVE,$P(MED(100),U,2)'="ACTIVE" QUIT