Changeset 418 for ccr/trunk/p/C0CUTIL.m

Timestamp:

Mar 23, 2009, 12:21:08 AM (15 years ago)

Author:

Sam Habiel

Message:

Refactoring C0CMED
Updated C0CUTIL with checks on whether we are in RPMS, Vista, WorldVista, or OpenVista

File:

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

ccr/trunk/p/C0CUTIL.m

@@ -123 +123 @@
  Q
  ;
-RPMS ; Are we running on an RPMS system rather than Vista?
+RPMS() ; Are we running on an RPMS system rather than Vista?
  Q $G(DUZ("AG"))="I" ; If User Agency is Indian Health Service
+VISTA() ; Are we running on Vanilla Vista?
+ Q $G(DUZ("AG"))="V" ; If User Agency is VA
+WV() ; Are we running on Customized Vista (WV or OpenVista)?
+ Q $G(DUZ("AG"))="E"!($G(DUZ("AG"))="O") ; Codes for WV and Other.