- 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 Feb 19, 2025@00:26:16 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