- SDV53PP ;alb/mjk - SD Pre-Init Driver for v5.3 ; 3/26/93
- ;;5.3;Scheduling;**1015**;Aug 13, 1993;Build 21
- ;
- EN ; -- main entry point
- D SCE
- ENQ Q
- ;
- SCE ; -- check if new global is set up
- G SCEQ:$D(^SCE)
- D LINE^DGVPP
- W !,"The new ^SCE global must be defined using %GLOMAN before the install can start!",!,"Please refer to the Install Guide for details.",*7
- D LINE^DGVPP
- K DIFQ
- SCEQ Q
- ;
- ;
- SDV53PP ;alb/mjk - SD Pre-Init Driver for v5.3 ; 3/26/93
- +1 ;;5.3;Scheduling;**1015**;Aug 13, 1993;Build 21
- +2 ;
- EN ; -- main entry point
- +1 DO SCE
- ENQ QUIT
- +1 ;
- SCE ; -- check if new global is set up
- +1 IF $DATA(^SCE)
- GOTO SCEQ
- +2 DO LINE^DGVPP
- +3 WRITE !,"The new ^SCE global must be defined using %GLOMAN before the install can start!",!,"Please refer to the Install Guide for details.",*7
- +4 DO LINE^DGVPP
- +5 KILL DIFQ
- SCEQ QUIT
- +1 ;
- +2 ;