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

Timestamp:

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

Author:

George Lilly

Message:

reset to certification routines with tabs

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;Build 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
         ;
-        ;
-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
+ 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
         ;
         ;
-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
+EXIT ;
         ;
         ;
-EXIT    ;
+ I $G(XPDQUIT) D BMES("--- Install Environment Check FAILED ---") Q
+ D BMES("--- Environment Check is Ok ---")
+        ;
+ Q
         ;
         ;
-        I $G(XPDQUIT) D BMES("--- Install Environment Check FAILED ---") Q
-        D BMES("--- Environment Check is Ok ---")
-        ;
-        Q
-        ;
-        ;
-PRE     ;Pre-install entry point
+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))