source: WorldVistAEHR/trunk/r/VA_FILEMAN-ARJT-DI-DD-DM-DT-%DT-%RCR/DIENV.m@ 724

Last change on this file since 724 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 911 bytes
Line 
1DIENV ;IRMFO-SF/FM STAFF-ENVIRONMENT CHECK ROUTINE ;10/29/98 07:15
2 ;;22.0;VA FileMan;;Mar 30, 1999
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5 Q
6 ; Check XPDENV 0 = Loading; 1 = Installing
7 I 'XPDENV Q ; Loading Distribution - No Check
8 ;
9INSCHK ; Do Checks During Install Only
10 S XPDNOQUE=1 ;prevents QUEUEING of a FM patch install
11 ;
12TMCHK ; Check to see if TaskMan is still running
13 S X=$$TM^%ZTLOAD
14 I X D
15 . D MES^XPDUTL("* Install Stopped Because TaskMan Has NOT Been Stopped!")
16 . D MES^XPDUTL(" Transport Global Was NOT Unloaded!")
17 . S XPDQUIT=2
18 ;
19LINH ; Check to see if Logons are Inhibited
20 D GETENV^%ZOSV ; $P(Y,"^",2) = Installing Volume
21 S X=+$G(^%ZIS(14.5,"LOGON",$P(Y,"^",2)))
22 I X D Q ; Bail Out of Install
23 . D MES^XPDUTL("* Install Stopped Because Logon Were NOT Inhibited.")
24 . D MES^XPDUTL(" Transport Global Was NOT Unloaded!")
25 . S XPDQUIT=2
26 Q
Note: See TracBrowser for help on using the repository browser.