DGYM78EN ;ALB/MLI - Environment check for DG*5.3*78 ; 3/4/96 @ 815
;;5.3;Registration;**78**;Aug 13, 1993
;
; This enviroment check routine will ensure that patches RT*2*22
; and DG*5.3*72 are installed prior to installation of this patch.
; It will abort if these patches haven't been installed.
;
EN ; begin processing
I '$D(^DD(190,300)) D ; check for old barcode field
. W !!,*7,">>> You must install patch RT*2*22 first!"
. S XPDQUIT=2
I '$D(^DD(2,.6)) D ; check for test pt indicator
. W !!,*7,">>> You must install patch DG*5.3*72 first!"
. S XPDQUIT=2
I $G(XPDQUIT) W !!,">>> Installation aborted."
I '$G(XPDQUIT) D
. W !!,"Patches RT*2*22 and DG*5.3*72 found..."
. I XPDENV=1 W "continuing with installation"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGYM78EN 758 printed Dec 13, 2024@03:00:15 Page 2
DGYM78EN ;ALB/MLI - Environment check for DG*5.3*78 ; 3/4/96 @ 815
+1 ;;5.3;Registration;**78**;Aug 13, 1993
+2 ;
+3 ; This enviroment check routine will ensure that patches RT*2*22
+4 ; and DG*5.3*72 are installed prior to installation of this patch.
+5 ; It will abort if these patches haven't been installed.
+6 ;
EN ; begin processing
+1 ; check for old barcode field
IF '$DATA(^DD(190,300))
Begin DoDot:1
+2 WRITE !!,*7,">>> You must install patch RT*2*22 first!"
+3 SET XPDQUIT=2
End DoDot:1
+4 ; check for test pt indicator
IF '$DATA(^DD(2,.6))
Begin DoDot:1
+5 WRITE !!,*7,">>> You must install patch DG*5.3*72 first!"
+6 SET XPDQUIT=2
End DoDot:1
+7 IF $GET(XPDQUIT)
WRITE !!,">>> Installation aborted."
+8 IF '$GET(XPDQUIT)
Begin DoDot:1
+9 WRITE !!,"Patches RT*2*22 and DG*5.3*72 found..."
+10 IF XPDENV=1
WRITE "continuing with installation"
End DoDot:1
+11 QUIT
