- DG53910P ;ALB/NCA - 2015 MEANS TEST THRESHOLDS ; 11/20/12 2:55pm
- ;;5.3;Registration;**910**;Aug 13, 1993;Build 6
- ;
- ; This routine will upload the 2015 Means Test Thresholds and
- ; Maximum Annual Pension Rates into the MAS PARAMETERS file (#43)
- ; and the PARAMETERS file (#8989.5).
- ;
- Q
- ;
- EN ; Entry point for post-install
- D MT
- D MAPR
- Q
- ;
- MT ; Update Means Test Thresholds
- N D,DA,DI,DIE,DIC,DIK,DINUM,D0,DQ,DR,I,X,Y,DGEXST,DGX
- S DGEXST=0
- D BMES^XPDUTL(">>>Means Test Thresholds for 2015 being installed...")
- I $D(^DG(43,1,"MT",3150000)) D
- .D BMES^XPDUTL(" ...Entry exists for income year 2015, entry being deleted")
- .D MES^XPDUTL(" and replaced with nationally released thresholds.")
- .S DIK="^DG(43,1,""MT"",",DA=3150000,DA(1)=1
- .D ^DIK,IX1^DIK
- .K DA,D0,DIK
- K DO
- S DIC="^DG(43,1,""MT"","
- S DIC(0)="L"
- S DA(1)=1
- S (DINUM,X)=3150000
- D FILE^DICN
- S DA=+Y
- ;
- I +Y'=3150000 D Q
- . D BMES^XPDUTL(" ...Problem encountered adding 2015 thresholds. Please try")
- . D MES^XPDUTL(" again or contact the CIO Field Office for assistance.")
- ;
- D MES^XPDUTL("")
- S DIE=DIC,DR=""
- F I=1:1 S DGX=$P($T(DATA+I),";;",2) Q:DGX="QUIT" D ; build dr string
- . S DR=DR_+DGX_"////"_$P(DGX,"^",2)_";"
- . D MES^XPDUTL(" "_$P(DGX,"^",3)_" set to $"_$FN($P(DGX,"^",2),",")_".")
- D ^DIE
- Q
- ;
- DATA ; lines to stuff in values (field////value)
- ;;2^31978^MT COPAY EXEMPT VET INCOME
- ;;3^6396^MT COPAY EXEMPT 1ST DEP INCOME
- ;;4^2198^MT COPAY EXEMPT INCOME PER DEP
- ;;8^80000^THRESHOLD PROPERTY
- ;;17^10300^CHILD INCOME EXCLUSION
- ;;QUIT
- Q
- ;
- MAPR ; Update Maximum Annual Pension Rates
- ;
- D BMES^XPDUTL(">>>Setting Maximum Annual Pension Rate Parameters...")
- ;
- ;set MAPR rate parameter to 5(%)
- D SETPARM("DGMT MAPR GLOBAL RATE",2014,5)
- ;
- ;set MAPR max values
- D SETPARM("DGMT MAPR 0 DEPENDENTS",2014,12868)
- D SETPARM("DGMT MAPR 1 DEPENDENTS",2014,16851)
- D SETPARM("DGMT MAPR N DEPENDENTS",2014,2198)
- Q
- ;
- SETPARM(DGPARM,DGINST,DGVALU) ;set PACKAGE entity parameters
- ;
- ; DBIA: #2263 SUPPORTED PARAMETER TOOL ENTRY POINTS
- ;
- ; Input:
- ; DGPARM - PARAMETER DEFINITION name
- ; DGINST - parameter instance
- ; DGVALU - parameter value
- ;
- ; Output:
- ; None
- ;
- N DGERR
- ;
- D EN^XPAR("PKG",DGPARM,DGINST,DGVALU,.DGERR)
- I $G(DGERR) D Q
- .D MES^XPDUTL(DGPARM_" parameter, instance "_DGINST_", FAILED! ("_DGVALU_")")
- ;
- I '$G(DGERR) D
- .I DGPARM="DGMT MAPR GLOBAL RATE" D
- ..D MES^XPDUTL(" "_DGPARM_" parameter, instance "_DGINST_", set to "_DGVALU_"%.")
- .I DGPARM'="DGMT MAPR GLOBAL RATE" D
- ..D MES^XPDUTL(" "_DGPARM_" parameter, instance "_DGINST_", set to $"_$FN(DGVALU,",")_".")
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG53910P 2712 printed Feb 19, 2025@00:05:18 Page 2
- DG53910P ;ALB/NCA - 2015 MEANS TEST THRESHOLDS ; 11/20/12 2:55pm
- +1 ;;5.3;Registration;**910**;Aug 13, 1993;Build 6
- +2 ;
- +3 ; This routine will upload the 2015 Means Test Thresholds and
- +4 ; Maximum Annual Pension Rates into the MAS PARAMETERS file (#43)
- +5 ; and the PARAMETERS file (#8989.5).
- +6 ;
- +7 QUIT
- +8 ;
- EN ; Entry point for post-install
- +1 DO MT
- +2 DO MAPR
- +3 QUIT
- +4 ;
- MT ; Update Means Test Thresholds
- +1 NEW D,DA,DI,DIE,DIC,DIK,DINUM,D0,DQ,DR,I,X,Y,DGEXST,DGX
- +2 SET DGEXST=0
- +3 DO BMES^XPDUTL(">>>Means Test Thresholds for 2015 being installed...")
- +4 IF $DATA(^DG(43,1,"MT",3150000))
- Begin DoDot:1
- +5 DO BMES^XPDUTL(" ...Entry exists for income year 2015, entry being deleted")
- +6 DO MES^XPDUTL(" and replaced with nationally released thresholds.")
- +7 SET DIK="^DG(43,1,""MT"","
- SET DA=3150000
- SET DA(1)=1
- +8 DO ^DIK
- DO IX1^DIK
- +9 KILL DA,D0,DIK
- End DoDot:1
- +10 KILL DO
- +11 SET DIC="^DG(43,1,""MT"","
- +12 SET DIC(0)="L"
- +13 SET DA(1)=1
- +14 SET (DINUM,X)=3150000
- +15 DO FILE^DICN
- +16 SET DA=+Y
- +17 ;
- +18 IF +Y'=3150000
- Begin DoDot:1
- +19 DO BMES^XPDUTL(" ...Problem encountered adding 2015 thresholds. Please try")
- +20 DO MES^XPDUTL(" again or contact the CIO Field Office for assistance.")
- End DoDot:1
- QUIT
- +21 ;
- +22 DO MES^XPDUTL("")
- +23 SET DIE=DIC
- SET DR=""
- +24 ; build dr string
- FOR I=1:1
- SET DGX=$PIECE($TEXT(DATA+I),";;",2)
- if DGX="QUIT"
- QUIT
- Begin DoDot:1
- +25 SET DR=DR_+DGX_"////"_$PIECE(DGX,"^",2)_";"
- +26 DO MES^XPDUTL(" "_$PIECE(DGX,"^",3)_" set to $"_$FNUMBER($PIECE(DGX,"^",2),",")_".")
- End DoDot:1
- +27 DO ^DIE
- +28 QUIT
- +29 ;
- DATA ; lines to stuff in values (field////value)
- +1 ;;2^31978^MT COPAY EXEMPT VET INCOME
- +2 ;;3^6396^MT COPAY EXEMPT 1ST DEP INCOME
- +3 ;;4^2198^MT COPAY EXEMPT INCOME PER DEP
- +4 ;;8^80000^THRESHOLD PROPERTY
- +5 ;;17^10300^CHILD INCOME EXCLUSION
- +6 ;;QUIT
- +7 QUIT
- +8 ;
- MAPR ; Update Maximum Annual Pension Rates
- +1 ;
- +2 DO BMES^XPDUTL(">>>Setting Maximum Annual Pension Rate Parameters...")
- +3 ;
- +4 ;set MAPR rate parameter to 5(%)
- +5 DO SETPARM("DGMT MAPR GLOBAL RATE",2014,5)
- +6 ;
- +7 ;set MAPR max values
- +8 DO SETPARM("DGMT MAPR 0 DEPENDENTS",2014,12868)
- +9 DO SETPARM("DGMT MAPR 1 DEPENDENTS",2014,16851)
- +10 DO SETPARM("DGMT MAPR N DEPENDENTS",2014,2198)
- +11 QUIT
- +12 ;
- SETPARM(DGPARM,DGINST,DGVALU) ;set PACKAGE entity parameters
- +1 ;
- +2 ; DBIA: #2263 SUPPORTED PARAMETER TOOL ENTRY POINTS
- +3 ;
- +4 ; Input:
- +5 ; DGPARM - PARAMETER DEFINITION name
- +6 ; DGINST - parameter instance
- +7 ; DGVALU - parameter value
- +8 ;
- +9 ; Output:
- +10 ; None
- +11 ;
- +12 NEW DGERR
- +13 ;
- +14 DO EN^XPAR("PKG",DGPARM,DGINST,DGVALU,.DGERR)
- +15 IF $GET(DGERR)
- Begin DoDot:1
- +16 DO MES^XPDUTL(DGPARM_" parameter, instance "_DGINST_", FAILED! ("_DGVALU_")")
- End DoDot:1
- QUIT
- +17 ;
- +18 IF '$GET(DGERR)
- Begin DoDot:1
- +19 IF DGPARM="DGMT MAPR GLOBAL RATE"
- Begin DoDot:2
- +20 DO MES^XPDUTL(" "_DGPARM_" parameter, instance "_DGINST_", set to "_DGVALU_"%.")
- End DoDot:2
- +21 IF DGPARM'="DGMT MAPR GLOBAL RATE"
- Begin DoDot:2
- +22 DO MES^XPDUTL(" "_DGPARM_" parameter, instance "_DGINST_", set to $"_$FNUMBER(DGVALU,",")_".")
- End DoDot:2
- End DoDot:1
- +23 QUIT