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

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

initial load of WorldVistAEHR

File size: 955 bytes
Line 
1DIENVSTP ;IRMFO-SF/FM STAFF-ENVIRONMENT CHECK ROUTINE ;11/6/98 12:53
2 ;;22.0;VA FileMan;;Mar 30, 1999
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5 ; Check XPDENV 0 = Loading; 1 = Installing
6 I 'XPDENV Q ; Loading Distribution - No Check
7 ;
8INSCHK ; Do Checks During Install Only
9 S XPDNOQUE=1 ;prevents QUEUEING of a FM patch install
10 ;
11TMCHK ; Check to see if TaskMan is still running
12 S X=$$TM^%ZTLOAD
13 I X,'$D(^%ZTSCH("WAIT")) D
14 . W $C(7)
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 . W $C(7)
24 . D BMES^XPDUTL("* Install Stopped Because Logon Were NOT Inhibited.")
25 . D MES^XPDUTL(" Transport Global Was NOT Unloaded!")
26 . S XPDQUIT=2
27 Q
Note: See TracBrowser for help on using the repository browser.