Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: SDV53PP

SDV53PP.m

Go to the documentation of this file.

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       ;