DGYM78EN.m

DGYM78EN ;ALB/MLI - Environment check for DG*5.3*78 ; 3/4/96 @ 815

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

 ;

 ; 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

DGYM78EN  ;ALB/MLI - Environment check for DG*5.3*78 ; 3/4/96 @ 815

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

 +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