DG53P555.m

DG53P555 ; BAY/JAT- Patch DG*5.3*555 Install Utility Routine ; 11/7/03 11:25am

 ;;5.3;Registration;**555**;AUG 13, 1993

 ;

ENV ;Main entry point for Environment check point.

 ;

 S XPDABORT=""

 D PROGCHK(.XPDABORT) ;checks programmer variables

 I XPDABORT="" K XPDABORT

 Q

PRE ;Main entry point for Pre-install items.

 Q

 ;

 ;

POST ;Main entry point for Post-install items.

 ;

 D POST1

 Q

POST1 ;remove references to field #1 in Race file (it is a

 ; partial duplicate of field #2) data dictionary

 ;

 K ^DD(10,1)

 K ^DD(10,"B","ABBREVIATION",1)

 K ^DD(10,"GL",0,2,1)

 Q

PROGCHK(XPDABORT)       ;checks for necessary programmer variables

 ;

 I '$G(DUZ)!($G(DUZ(0))'="@")!('$G(DT))!($G(U)'="^") D

 . D BMES^XPDUTL("*****")

 . D MES^XPDUTL("Your programming variables are not set up properly.")

 . D MES^XPDUTL("Installation aborted.")

 . D MES^XPDUTL("*****")

 . S XPDABORT=2

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DG53P555   910     printed  Apr 09, 2024@21:56:51                                                                                                                                                                                                     Page 2

DG53P555  ; BAY/JAT- Patch DG*5.3*555 Install Utility Routine ; 11/7/03 11:25am

 +1       ;;5.3;Registration;**555**;AUG 13, 1993

 +2       ;

ENV       ;Main entry point for Environment check point.

 +1       ;

 +2        SET XPDABORT=""

 +3       ;checks programmer variables

           DO PROGCHK(.XPDABORT)

 +4        IF XPDABORT=""

               KILL XPDABORT

 +5        QUIT 

PRE       ;Main entry point for Pre-install items.

 +1        QUIT 

 +2       ;

 +3       ;

POST      ;Main entry point for Post-install items.

 +1       ;

 +2        DO POST1

 +3        QUIT 

POST1     ;remove references to field #1 in Race file (it is a

 +1       ; partial duplicate of field #2) data dictionary

 +2       ;

 +3        KILL ^DD(10,1)

 +4        KILL ^DD(10,"B","ABBREVIATION",1)

 +5        KILL ^DD(10,"GL",0,2,1)

 +6        QUIT 

PROGCHK(XPDABORT) ;checks for necessary programmer variables

 +1       ;

 +2        IF '$GET(DUZ)!($GET(DUZ(0))'="@")!('$GET(DT))!($GET(U)'="^")

               Begin DoDot:1

 +3                DO BMES^XPDUTL("*****")

 +4                DO MES^XPDUTL("Your programming variables are not set up properly.")

 +5                DO MES^XPDUTL("Installation aborted.")

 +6                DO MES^XPDUTL("*****")

 +7                SET XPDABORT=2

               End DoDot:1

 +8        QUIT