Changeset 1333 for ccr/branches/ohum/p/C0CENV.m

Timestamp:

Jan 4, 2012, 12:05:49 AM (12 years ago)

Author:

George Lilly

Message:

ohum new version

File:

• ccr/branches/ohum/p/C0CENV.m (modified) (4 diffs)

ccr/branches/ohum/p/C0CENV.m

@@ -1 @@
-C0CENV ;WV/JMC - CCD/CCR Environment Check/Install Routine ; Aug 16, 2009
- ;;1.0;C0C;;May 19, 2009;
- ;
- ;
-ENV ; Does not prevent loading of the transport global.
- ; Environment check is done only during the install.
- ;
- N XQA,XQAMSG
- ;
- ;
- ; Make sure the patch name exist
- ;
- I '$D(XPDNM) D  Q
- . D BMES("No valid patch name exist")
- . S XPDQUIT=2
- . D EXIT
- ;
- D CHECK
- D EXIT
- Q
- ;
- ;
-CHECK ; Perform environment check
+C0CENV  ;WV/JMC - CCD/CCR Environment Check/Install Routine ; Aug 16, 2009
+        ;;1.0;C0C;;May 19, 2009;Build 1
         ;
- I $S('$G(IOM):1,'$G(IOSL):1,$G(U)'="^":1,1:0) D
- . D BMES("Terminal Device is not defined")
- . S XPDQUIT=2
- ;
- I $S('$G(DUZ):1,$D(DUZ)[0:1,$D(DUZ(0))[0:1,1:0) D
- . D BMES("Please log in to set local DUZ... variables")
- . S XPDQUIT=2
- ;
- I $P($$ACTIVE^XUSER(DUZ),"^")'=1 D
- . D BMES("You are not a valid user on this system")
- . S XPDQUIT=2
+        ;
+ENV     ; Does not prevent loading of the transport global.
+        ; Environment check is done only during the install.
+        ;
+        N XQA,XQAMSG
+        ;
+        ;
+        ; Make sure the patch name exist
+        ;
+        I '$D(XPDNM) D  Q
+        . D BMES("No valid patch name exist")
+        . S XPDQUIT=2
+        . D EXIT
+        ;
+        D CHECK
+        D EXIT
         Q
         ;
         ;
-EXIT ;
+CHECK   ; Perform environment check
+        ;
+        I $S('$G(IOM):1,'$G(IOSL):1,$G(U)'="^":1,1:0) D
+        . D BMES("Terminal Device is not defined")
+        . S XPDQUIT=2
+        ;
+        I $S('$G(DUZ):1,$D(DUZ)[0:1,$D(DUZ(0))[0:1,1:0) D
+        . D BMES("Please log in to set local DUZ... variables")
+        . S XPDQUIT=2
+        ;
+        I $P($$ACTIVE^XUSER(DUZ),"^")'=1 D
+        . D BMES("You are not a valid user on this system")
+        . S XPDQUIT=2
+        Q
         ;
         ;
- I $G(XPDQUIT) D BMES("--- Install Environment Check FAILED ---") Q
- D BMES("--- Environment Check is Ok ---")
-        ;
- Q
+EXIT    ;
         ;
         ;
-PRE ;Pre-install entry point
+        I $G(XPDQUIT) D BMES("--- Install Environment Check FAILED ---") Q
+        D BMES("--- Environment Check is Ok ---")
+        ;
+        Q
+        ;
+        ;
+PRE     ;Pre-install entry point
         ;
         ; No action needed in pre-install
@@ -54 +54 @@
         ;
         ;
-POST ;Post install
+POST    ;Post install
         ;
         ; Check for RPMS system with V LAB file.
@@ -131 +131 @@
         ;
         ;
-POST6 ; Checkpoint call back entry point.
+POST6   ; Checkpoint call back entry point.
         ; Check for RPMS system and determine LAB patch level
         ;  and need to load in C0C version of LA7 routines.
@@ -174 +174 @@
         ;
         ;
-BMES(STR) ; Write BMES^XPDUTL statements
+BMES(STR)       ; Write BMES^XPDUTL statements
         ;
         D BMES^XPDUTL($$CJ^XLFSTR(STR,IOM))