SDV53PP ;alb/mjk - SD Pre-Init Driver for v5.3 ; 3/26/93
;;5.3;Scheduling;;Aug 13, 1993
;
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
;
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDV53PP 395 printed Nov 22, 2024@18:11:47 Page 2
SDV53PP ;alb/mjk - SD Pre-Init Driver for v5.3 ; 3/26/93
+1 ;;5.3;Scheduling;;Aug 13, 1993
+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 ;
