DG53P571.m

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 ---DG53P571   1388     printed  Apr 09, 2024@21:56:45                                                                                                                                                                                                    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       ;