SDV53PP.m

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 ---SDV53PP   395     printed  Apr 09, 2024@22:00:07                                                                                                                                                                                                      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       ;