Changeset 425 for ccr

Timestamp:

Mar 29, 2009, 6:41:25 PM (16 years ago)

Author:

Sam Habiel

Message:

Updated C0CMED

File:

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

ccr/trunk/p/C0CMED.m

@@ -43 +43 @@
         N C0CMFLAG
         S C0CMFLAG=$$GET^C0CPARMS("MEDALL")_"^"_$$GET^C0CPARMS("MEDLIMIT")_"^"_$$GET^C0CPARMS("MEDACTIVE")_"^"_$$GET^C0CPARMS("MEDPENDING")
+        W:$G(DEBUG) "Med Parameters: ",!
+        W:$G(DEBUG) "ALL: ",+C0CMFLAG,!
+        W:$G(DEBUG) "LIMIT: ",$P(C0CMFLAG,U,2),!
+        W:$G(DEBUG) "ACTIVE: ",$P(C0CMFLAG,U,3),!
+        W:$G(DEBUG) "PEND: ",$P(C0CMFLAG,U,4),!
         ; --Find out what system we are on and branch out...
+        W:$G(DEBUG) "Agenecy: ",$G(DUZ("AG"))
         I $$RPMS^C0CUTIL() D RPMS QUIT
         I ($$VISTA^C0CUTIL())!($$WV^C0CUTIL())!($$OV^C0CUTIL()) D VISTA QUIT