DG53P571 ;ALB/RPM - PATCH DG*5.3*571 INSTALL UTILITIES ; 12/15/03 4:52pm
;;5.3;Registration;**571**;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-init items.
;
Q
;
;
POST ;Main entry point for Post-init items.
;
;set expiration package parameter to 90 days
D SETPARM("DGQE VIC REQUEST EXPIRATION",90)
;
;set purge package parameter to 7 days
D SETPARM("DGQE VIC REQUEST PURGE",7)
Q
;
SETPARM(DGPARM,DGDAYS) ;set PACKAGE entity parameters
;
; DBIA: #2263 SUPPORTED PARAMETER TOOL ENTRY POINTS
;
; Input:
; DGPARM - PARAMETER DEFINITION name
; DGDAYS - parameter value
;
; Output:
; None
;
N DGERR
;
D EN^XPAR("PKG",DGPARM,1,DGDAYS,.DGERR)
D BMES^XPDUTL("*****")
I '$G(DGERR) D
. D MES^XPDUTL(DGPARM_" parameter set to "_DGDAYS_" days SUCCESSFULLY")
E D
. D MES^XPDUTL(DGPARM_" parameter set FAILED")
D MES^XPDUTL("*****")
Q
;
;
PROGCHK(XPDABORT) ;checks for necessary programmer variables
;
I '$G(DUZ)!($G(DUZ(0))'="@")!('$G(DT))!($G(U)'="^") DO
.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[HDG53P571 1388 printed Nov 22, 2024@17:49:49 Page 2
DG53P571 ;ALB/RPM - PATCH DG*5.3*571 INSTALL UTILITIES ; 12/15/03 4:52pm
+1 ;;5.3;Registration;**571**;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
+6 ;
+7 ;
PRE ;Main entry point for Pre-init items.
+1 ;
+2 QUIT
+3 ;
+4 ;
POST ;Main entry point for Post-init items.
+1 ;
+2 ;set expiration package parameter to 90 days
+3 DO SETPARM("DGQE VIC REQUEST EXPIRATION",90)
+4 ;
+5 ;set purge package parameter to 7 days
+6 DO SETPARM("DGQE VIC REQUEST PURGE",7)
+7 QUIT
+8 ;
SETPARM(DGPARM,DGDAYS) ;set PACKAGE entity parameters
+1 ;
+2 ; DBIA: #2263 SUPPORTED PARAMETER TOOL ENTRY POINTS
+3 ;
+4 ; Input:
+5 ; DGPARM - PARAMETER DEFINITION name
+6 ; DGDAYS - parameter value
+7 ;
+8 ; Output:
+9 ; None
+10 ;
+11 NEW DGERR
+12 ;
+13 DO EN^XPAR("PKG",DGPARM,1,DGDAYS,.DGERR)
+14 DO BMES^XPDUTL("*****")
+15 IF '$GET(DGERR)
Begin DoDot:1
+16 DO MES^XPDUTL(DGPARM_" parameter set to "_DGDAYS_" days SUCCESSFULLY")
End DoDot:1
+17 IF '$TEST
Begin DoDot:1
+18 DO MES^XPDUTL(DGPARM_" parameter set FAILED")
End DoDot:1
+19 DO MES^XPDUTL("*****")
+20 QUIT
+21 ;
+22 ;
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
+9 ;
