YS501P82 ;BP/TMD,Pre-init Routine for YS*5.01*82 ; 2/18/04 9:29am
 ;;5.01;MENTAL HEALTH;**82**;Dec 30, 1994;Build 3
 ;
ENV ;Main entry point for Environment check point.
 ;
 S XPDABORT=""
 D PROGCHK(.XPDABORT) ;checks programmer variables
 I XPDABORT="" K XPDABORT
 Q
 ;
POST ;Main entry point for Post-init items.
 ;
 ;Remove left over nodes from file restructuring
 I $D(^DD(604,18.1)) K ^DD(604,18.1)
 I $D(^DD(604,.53)) K ^DD(604,.53)
 Q
 ;
PROGCHK(XPDABORT) ;checks for necessary programmer variables
 ;
 I '$G(DUZ)!($G(DUZ(0))'="@")!('$G(DT))!($G(U)'="^") D
 .D BMES^XPDUTL("*****")
 .D MES^XPDUTL("Your programming variables are not set up properly.")
 .D MES^XPDUTL("Installation aborted.")
 .D MES^XPDUTL("*****")
 .S XPDABORT=2
 Q