source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YS501P82.m@ 623

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

initial load of WorldVistAEHR

File size: 741 bytes
Line 
1YS501P82 ;BP/TMD,Pre-init Routine for YS*5.01*82 ; 2/18/04 9:29am
2 ;;5.01;MENTAL HEALTH;**82**;Dec 30, 1994;Build 3
3 ;
4ENV ;Main entry point for Environment check point.
5 ;
6 S XPDABORT=""
7 D PROGCHK(.XPDABORT) ;checks programmer variables
8 I XPDABORT="" K XPDABORT
9 Q
10 ;
11POST ;Main entry point for Post-init items.
12 ;
13 ;Remove left over nodes from file restructuring
14 I $D(^DD(604,18.1)) K ^DD(604,18.1)
15 I $D(^DD(604,.53)) K ^DD(604,.53)
16 Q
17 ;
18PROGCHK(XPDABORT) ;checks for necessary programmer variables
19 ;
20 I '$G(DUZ)!($G(DUZ(0))'="@")!('$G(DT))!($G(U)'="^") D
21 .D BMES^XPDUTL("*****")
22 .D MES^XPDUTL("Your programming variables are not set up properly.")
23 .D MES^XPDUTL("Installation aborted.")
24 .D MES^XPDUTL("*****")
25 .S XPDABORT=2
26 Q
Note: See TracBrowser for help on using the repository browser.