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

DGV53PP.m

Go to the documentation of this file.

DGV53PP ;alb/mjk - DG Pre-Init Driver for v5.3 ; 3/26/93

 ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

EN ; -- main entry point

 D LINE^DGVPP,EN^DGV53PP1 G ENQ:'$D(DIFQ)

 D LINE^DGVPP

ENQ Q

GL ; -- check if new global is set up

 G GLQ:$D(^XXXX)

 W !,"The new ^XXXX global must be defined using %GLOMAN before the install can start!",!,"Please refer to the Install Guide for details.",*7

 K DIFQ

GLQ Q

DGV53PP   ;alb/mjk - DG Pre-Init Driver for v5.3 ; 3/26/93

 +1       ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

 +2       ;

EN        ; -- main entry point

 +1        DO LINE^DGVPP

           DO EN^DGV53PP1

           IF '$DATA(DIFQ)

               GOTO ENQ

 +2        DO LINE^DGVPP

ENQ        QUIT

 +1       ;

GL        ; -- check if new global is set up

 +1        IF $DATA(^XXXX)

               GOTO GLQ

 +2        WRITE !,"The new ^XXXX global must be defined using %GLOMAN before the install can start!",!,"Please refer to the Install Guide for details.",*7

 +3        KILL DIFQ

GLQ        QUIT