- DGYKPP ;ALB/REW - Environment Check for ADT/R 10/1 Maintenance Patch ; 6/14/94
- ;;5.3;Registration;**31**;Aug 13, 1993
- ;
- ; NOTE: DGBDT = begin time (don't use in post-init modules)
- ;
- % D NOW^%DTC S DGBDT=$H,DT=X,Y=% W !!,"Initialization Started: " D DT^DIQ W !!
- USER I $S('($D(DUZ)#2):1,'$D(^VA(200,+DUZ,0)):1,'$D(DUZ(0)):1,DUZ(0)'="@":1,1:0) W !!?3,"The variable DUZ must be set to an active user code and the variable",!?3,"DUZ(0) must equal '@' to initialize.",! K DIFQ G NO
- ;
- MAS53 I $D(DIFQ),+$G(^DG(43,1,"VERSION"))'=5.3 K DIFQ W !!,?3,"MAS Version 5.3 must be installed first!" G NO
- ;
- NO I '$D(DIFQ) W !,"INITIALIZATION ABORTED"
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGYKPP 656 printed Feb 19, 2025@00:26:13 Page 2
- DGYKPP ;ALB/REW - Environment Check for ADT/R 10/1 Maintenance Patch ; 6/14/94
- +1 ;;5.3;Registration;**31**;Aug 13, 1993
- +2 ;
- +3 ; NOTE: DGBDT = begin time (don't use in post-init modules)
- +4 ;
- % DO NOW^%DTC
- SET DGBDT=$HOROLOG
- SET DT=X
- SET Y=%
- WRITE !!,"Initialization Started: "
- DO DT^DIQ
- WRITE !!
- USER IF $SELECT('($DATA(DUZ)#2):1,'$DATA(^VA(200,+DUZ,0)):1,'$DATA(DUZ(0)):1,DUZ(0)'="@":1,1:0)
- WRITE !!?3,"The variable DUZ must be set to an active user code and the variable",!?3,"DUZ(0) must equal '@' to initialize.",!
- KILL DIFQ
- GOTO NO
- +1 ;
- MAS53 IF $DATA(DIFQ)
- IF +$GET(^DG(43,1,"VERSION"))'=5.3
- KILL DIFQ
- WRITE !!,?3,"MAS Version 5.3 must be installed first!"
- GOTO NO
- +1 ;
- NO IF '$DATA(DIFQ)
- WRITE !,"INITIALIZATION ABORTED"
- +1 QUIT