Changeset 422 for ccr/trunk/p/C0CMED.m

Timestamp:

Mar 29, 2009, 5:48:58 PM (15 years ago)

Author:

Sam Habiel

Message:

First take on implementing paramters for RPMS...

File:

• ccr/trunk/p/C0CMED.m (modified) (2 diffs)

ccr/trunk/p/C0CMED.m

@@ -1 +1 @@
 C0CMED  ; WV/CCDCCR/GPL/SMH - CCR/CCD Medications Driver; Mar 23 2009
-        ;;0.5;CCDCCR;;JUL 16,2008;
+        ;;0.6;CCDCCR;;JUL 16,2008;
         ; Copyright 2008,2009 George Lilly, University of Minnesota and Sam Habiel.
         ; Licensed under the terms of the GNU General Public License.
@@ -40 +40 @@
         ; 6. RPMS Meds are in C0CMED6. Need to create other routines for subdivisions of RPMS Meds is not known at this time.
         ;
-        ; --Prep variables      
+        ; --Find out what system we are on...   
         I $$RPMS^C0CUTIL() D RPMS QUIT
         I ($$VISTA^C0CUTIL())!($$WV^C0CUTIL())!($$OV^C0CUTIL()) D VISTA QUIT
-        ; Extraction Sections
+        ; --Get parameters for meds
+        N C0CMFLAG
+        S C0CMFLAG=$$GET^C0CPARMS("MEDALL")_"^"_$$GET^C0CPARMS("MEDLIMIT")_"^"_$$GET^C0CPARMS("MEDACTIVE")_"^"_$$GET^C0CPARMS("MEDPENDING")
 RPMS    
-        D EXTRACT^C0CMED6(MEDXML,DFN,MEDOUTXML) QUIT
+        D EXTRACT^C0CMED6(MEDXML,DFN,MEDOUTXML,C0CMFLAG) QUIT
 VISTA   
         N MEDCOUNT S MEDCOUNT=0