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 Dec 13, 2024@02:39:48 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
