Changeset 423 for ccr/trunk/p

Timestamp:

Mar 29, 2009, 5:58:09 PM (16 years ago)

Author:

Sam Habiel

Message:

correction to C0CMED

File:

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

ccr/trunk/p/C0CMED.m

@@ -40 +40 @@
         ; 6. RPMS Meds are in C0CMED6. Need to create other routines for subdivisions of RPMS Meds is not known at this time.
         ;
-        ; --Find out what system we are on...   
-        I $$RPMS^C0CUTIL() D RPMS QUIT
-        I ($$VISTA^C0CUTIL())!($$WV^C0CUTIL())!($$OV^C0CUTIL()) D VISTA QUIT
         ; --Get parameters for meds
         N C0CMFLAG
         S C0CMFLAG=$$GET^C0CPARMS("MEDALL")_"^"_$$GET^C0CPARMS("MEDLIMIT")_"^"_$$GET^C0CPARMS("MEDACTIVE")_"^"_$$GET^C0CPARMS("MEDPENDING")
+        ; --Find out what system we are on and branch out...
+        I $$RPMS^C0CUTIL() D RPMS QUIT
+        I ($$VISTA^C0CUTIL())!($$WV^C0CUTIL())!($$OV^C0CUTIL()) D VISTA QUIT
 RPMS    
         D EXTRACT^C0CMED6(MEDXML,DFN,MEDOUTXML,C0CMFLAG) QUIT