Changeset 1433 for ccr/branches/ohum/p/C0CNMED4.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/C0CNMED4.m (modified) (2 diffs)

ccr/branches/ohum/p/C0CNMED4.m

@@ -1 +1 @@
 C0CNMED4        ; WV/CCDCCR/SMH/gpl - CCR/CCD PROCESSING FOR MEDICATIONS - Inpatient Meds/Unit Dose ;10/13/08 ; 5/10/12 2:54pm
-        ;;1.2;C0C;;May 11, 2012;Build 46
+        ;;1.2;C0C;;May 11, 2012;Build 47
         ; Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
         ; General Public License See attached copy of the License.
@@ -61 +61 @@
         S MEDMAP=$NA(^TMP("C0CCCR",$J,"MEDMAP")) 
         ;N MEDCOUNT S MEDCOUNT=@MEDMAP@(0) ; We already have meds in the array
+        S C0CMFLAG=$$GET^C0CPARMS("MEDALL")_"^"_$$GET^C0CPARMS("MEDLIMIT")_"^"_$$GET^C0CPARMS("MEDACTIVE")_"^"_$$GET^C0CPARMS("MEDPENDING") ;SETTING FLAG
         N I S I=0 
         F  S I=$O(MEDS("med",I)) Q:'I  D  ; For each medication
+        . ;OHUM/RUT 3120507 ;STATUS VALIDATION FOR INPATIENT
+               . I ($P(C0CMFLAG,"^",1)'=1) D
+               . . I ($P(C0CMFLAG,"^",3)=1)&(MEDS("med",I,"vaStatus@value")'="ACTIVE") D
+               . . . K MEDS("med",I) Q
+               . . I ($P(C0CMFLAG,"^",4)=1)&(MEDS("med",I,"vaStatus@value")'="PENDING") D
+               . . . K MEDS("med",I) Q
+               . ;OHUM/RUT
         . N MED M MED=MEDS("med",I)
         . I $G(MED("vaType@value"))'="I" Q  ; not inpatient