- DG531141P ;ALB/SJD - DG*5.3*1141 POST-INSTALL ;Jan 06, 2025@14:36
- ;;5.3;Registration;**1141**;Jan 06, 2025;Build 1
- ;
- ; This routine will upload a correction to the 2025 (2024 income Year)
- ; Maximum Annual Pension Rate (MAPR) zero dependent entry
- ; into the PARAMETERS file (#8989.5).
- ;
- ;ICRs
- ; Reference to BMES^XPDUTL,MES^XPDUTL in ICR #10141
- ; Reference to EN^XPAR in ICR #2263
- ;
- Q
- ;
- EN ; Entry point for post-install
- D BMES^XPDUTL(">>> Beginning the DG*5.3*1141 Post-install routine...")
- D MAPR
- D BMES^XPDUTL(">>> Patch DG*5.3*1141 Post-install complete.")
- Q ;;EN
- ;
- MAPR ; Update Maximum Annual Pension Rate
- ;
- D BMES^XPDUTL(">>> Updating Maximum Annual Pension Rate Parameter in PARAMETERS (#8989.5)")
- D MES^XPDUTL(" file for calendar year 2025 (income year 2024).")
- ;
- ;Set the correct MAPR 0 dependent max value of $16,965
- D SETPARM("DGMT MAPR 0 DEPENDENTS",2024,"16965")
- Q ;;MAPR
- ;
- SETPARM(DGPARM,DGINST,DGVALU) ;set PACKAGE entity parameters
- ;
- ; Input:
- ; DGPARM - PARAMETER DEFINITION name
- ; DGINST - parameter instance
- ; DGVALU - parameter value
- ;
- ; Output:
- ; None
- ;
- N DGERR
- ;
- ; Call to EN^XPAR to set the correct (#8989.5) parameter
- D EN^XPAR("PKG",DGPARM,DGINST,DGVALU,.DGERR)
- I $G(DGERR) D Q
- .D BMES^XPDUTL(" "_DGPARM_" parameter, instance "_DGINST_", FAILED! ("_DGVALU_")")
- .D MES^XPDUTL(" - Submit a YOUR IT Services ticket with the Enterprise Service Desk")
- .D MES^XPDUTL(" for assistance.")
- ;
- I '$G(DGERR) D
- .D BMES^XPDUTL(" "_DGPARM_" parameter, instance "_DGINST_", set to $"_$FN(DGVALU,",")_".")
- Q ;;SETPARM
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG531141P 1654 printed Mar 13, 2025@21:40:39 Page 2
- DG531141P ;ALB/SJD - DG*5.3*1141 POST-INSTALL ;Jan 06, 2025@14:36
- +1 ;;5.3;Registration;**1141**;Jan 06, 2025;Build 1
- +2 ;
- +3 ; This routine will upload a correction to the 2025 (2024 income Year)
- +4 ; Maximum Annual Pension Rate (MAPR) zero dependent entry
- +5 ; into the PARAMETERS file (#8989.5).
- +6 ;
- +7 ;ICRs
- +8 ; Reference to BMES^XPDUTL,MES^XPDUTL in ICR #10141
- +9 ; Reference to EN^XPAR in ICR #2263
- +10 ;
- +11 QUIT
- +12 ;
- EN ; Entry point for post-install
- +1 DO BMES^XPDUTL(">>> Beginning the DG*5.3*1141 Post-install routine...")
- +2 DO MAPR
- +3 DO BMES^XPDUTL(">>> Patch DG*5.3*1141 Post-install complete.")
- +4 ;;EN
- QUIT
- +5 ;
- MAPR ; Update Maximum Annual Pension Rate
- +1 ;
- +2 DO BMES^XPDUTL(">>> Updating Maximum Annual Pension Rate Parameter in PARAMETERS (#8989.5)")
- +3 DO MES^XPDUTL(" file for calendar year 2025 (income year 2024).")
- +4 ;
- +5 ;Set the correct MAPR 0 dependent max value of $16,965
- +6 DO SETPARM("DGMT MAPR 0 DEPENDENTS",2024,"16965")
- +7 ;;MAPR
- QUIT
- +8 ;
- SETPARM(DGPARM,DGINST,DGVALU) ;set PACKAGE entity parameters
- +1 ;
- +2 ; Input:
- +3 ; DGPARM - PARAMETER DEFINITION name
- +4 ; DGINST - parameter instance
- +5 ; DGVALU - parameter value
- +6 ;
- +7 ; Output:
- +8 ; None
- +9 ;
- +10 NEW DGERR
- +11 ;
- +12 ; Call to EN^XPAR to set the correct (#8989.5) parameter
- +13 DO EN^XPAR("PKG",DGPARM,DGINST,DGVALU,.DGERR)
- +14 IF $GET(DGERR)
- Begin DoDot:1
- +15 DO BMES^XPDUTL(" "_DGPARM_" parameter, instance "_DGINST_", FAILED! ("_DGVALU_")")
- +16 DO MES^XPDUTL(" - Submit a YOUR IT Services ticket with the Enterprise Service Desk")
- +17 DO MES^XPDUTL(" for assistance.")
- End DoDot:1
- QUIT
- +18 ;
- +19 IF '$GET(DGERR)
- Begin DoDot:1
- +20 DO BMES^XPDUTL(" "_DGPARM_" parameter, instance "_DGINST_", set to $"_$FNUMBER(DGVALU,",")_".")
- End DoDot:1
- +21 ;;SETPARM
- QUIT
