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

Timestamp:

May 17, 2012, 6:11:54 PM (12 years ago)

Author:

Sam Habiel

Message:

Update based on OHUM's latest routines

File:

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

ccr/branches/ohum/p/C0CMED1.m

@@ -1 +1 @@
 C0CMED1 ; WV/CCDCCR/SMH - CCR/CCD PROCESSING FOR MEDICATIONS ;01/10/09
-        ;;1.2;C0C;;May 11, 2012;Build 46
+        ;;1.2;C0C;;May 11, 2012;Build 47
         ;;Last modified Sat Jan 10 21:42:27 PST 2009
         ; Copyright 2009 WorldVistA.  Licensed under the terms of the GNU
@@ -43 +43 @@
         N ALL S ALL=+FLAGS
         N ACTIVE S ACTIVE=$P(FLAGS,U,3)
+        N PENDING S PENDING=$P(FLAGS,U,4) ;OHUM/RUT 3120504 ADDED FOR VALIDATION OF PENDING MEDICATIONS
         ; 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.
@@ -62 +63 @@
         . N MED M MED=MEDS(RXIEN)
         . I 'ALL,ACTIVE,$P(MED(100),U,2)'="ACTIVE" QUIT
+        . I 'ALL,PENDING,$P(MED(100),U,2)'="PENDING" QUIT ;OHUM/RUT 3120504 ADDED FOR VALIDATION OF PENDING MEDICATIONS
         . S MEDCOUNT=MEDCOUNT+1
         . W:$G(DEBUG) "RXIEN IS ",RXIEN,!