- 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 ---[H[J[2J[HDG53P555 910 printed Feb 19, 2025@00:05:52 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