| 1 | DG53686P ;ALB/PHH - 2006 MEANS TEST THRESHOLDS ;12/6/2005
|
|---|
| 2 | ;;5.3;Registration;**686**;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | ; This routine will upload the 2006 Means Test Thresholds and
|
|---|
| 5 | ; Maximum Annual Pension Rates onto your system.
|
|---|
| 6 | ;
|
|---|
| 7 | EN ; Entry point for post-install
|
|---|
| 8 | D MT
|
|---|
| 9 | D MAPR
|
|---|
| 10 | Q
|
|---|
| 11 | ;
|
|---|
| 12 | MT ; Update Means Test Thresholds
|
|---|
| 13 | N DA,DIE,DIC,DINUM,DR,I,X,Y,EXST
|
|---|
| 14 | S EXST=0
|
|---|
| 15 | D BMES^XPDUTL(">>>Means Test Thresholds for 2006 being installed...")
|
|---|
| 16 | I $D(^DG(43,1,"MT",3060000)) D
|
|---|
| 17 | .D BMES^XPDUTL(" ...Entry exists for income year 2005, entry being deleted")
|
|---|
| 18 | .D MES^XPDUTL(" and replaced with nationally released thresholds.")
|
|---|
| 19 | .S DIK="^DG(43,1,""MT"",",DA=3060000,DA(1)=1
|
|---|
| 20 | .D ^DIK,IX1^DIK
|
|---|
| 21 | .K DA,D0,DIK
|
|---|
| 22 | K DO
|
|---|
| 23 | S DIC="^DG(43,1,""MT"","
|
|---|
| 24 | S DIC(0)="L"
|
|---|
| 25 | S DA(1)=1
|
|---|
| 26 | S (DINUM,X)=3060000
|
|---|
| 27 | D FILE^DICN
|
|---|
| 28 | S DA=+Y
|
|---|
| 29 | ;
|
|---|
| 30 | I +Y'=3060000 D Q
|
|---|
| 31 | . D BMES^XPDUTL(" ...Problem encountered adding 2006 thresholds. Please try")
|
|---|
| 32 | . D MES^XPDUTL(" again or contact the CIO Field Office for assistance.")
|
|---|
| 33 | ;
|
|---|
| 34 | D MES^XPDUTL("")
|
|---|
| 35 | S DIE=DIC,DR=""
|
|---|
| 36 | F I=1:1 S X=$P($T(DATA+I),";;",2) Q:X="QUIT" D ; build dr string
|
|---|
| 37 | . S DR=DR_+X_"////"_$P(X,"^",2)_";"
|
|---|
| 38 | . D MES^XPDUTL(" "_$P(X,"^",3)_" set to $"_$FN($P(X,"^",2),","))
|
|---|
| 39 | D ^DIE
|
|---|
| 40 | Q
|
|---|
| 41 | ;
|
|---|
| 42 | DATA ; lines to stuff in values (field////value)
|
|---|
| 43 | ;;2^26902^MT COPAY EXEMPT VET INCOME
|
|---|
| 44 | ;;3^5383^MT COPAY EXEMPT 1ST DEP INCOME
|
|---|
| 45 | ;;4^1806^MT COPAY EXEMPT INCOME PER DEP
|
|---|
| 46 | ;;8^80000^THRESHOLD PROPERTY
|
|---|
| 47 | ;;17^8450^CHILD INCOME EXCLUSION
|
|---|
| 48 | ;;QUIT
|
|---|
| 49 | Q
|
|---|
| 50 | ;
|
|---|
| 51 | MAPR ; Update Maximum Annual Pension Rates
|
|---|
| 52 | ;
|
|---|
| 53 | D BMES^XPDUTL(">>>Setting Maximum Annual Pension Rate Parameters...")
|
|---|
| 54 | ;
|
|---|
| 55 | ;set MAPR rate parameter to 5(%)
|
|---|
| 56 | D SETPARM("DGMT MAPR GLOBAL RATE",2005,5)
|
|---|
| 57 | ;
|
|---|
| 58 | ;set MAPR max values
|
|---|
| 59 | D SETPARM("DGMT MAPR 0 DEPENDENTS",2005,10579)
|
|---|
| 60 | D SETPARM("DGMT MAPR 1 DEPENDENTS",2005,13855)
|
|---|
| 61 | D SETPARM("DGMT MAPR N DEPENDENTS",2005,1806)
|
|---|
| 62 | Q
|
|---|
| 63 | ;
|
|---|
| 64 | SETPARM(DGPARM,DGINST,DGVALU) ;set PACKAGE entity parameters
|
|---|
| 65 | ;
|
|---|
| 66 | ; DBIA: #2263 SUPPORTED PARAMETER TOOL ENTRY POINTS
|
|---|
| 67 | ;
|
|---|
| 68 | ; Input:
|
|---|
| 69 | ; DGPARM - PARAMETER DEFINITION name
|
|---|
| 70 | ; DGINST - parameter instance
|
|---|
| 71 | ; DGVALU - parameter value
|
|---|
| 72 | ;
|
|---|
| 73 | ; Output:
|
|---|
| 74 | ; None
|
|---|
| 75 | ;
|
|---|
| 76 | N DGERR
|
|---|
| 77 | ;
|
|---|
| 78 | D EN^XPAR("PKG",DGPARM,DGINST,DGVALU,.DGERR)
|
|---|
| 79 | I $G(DGERR) D Q
|
|---|
| 80 | .D MES^XPDUTL(DGPARM_" parameter, instance "_DGINST_", FAILED! ("_DGVALU_")")
|
|---|
| 81 | ;
|
|---|
| 82 | I '$G(DGERR) D
|
|---|
| 83 | .I DGPARM="DGMT MAPR GLOBAL RATE" D
|
|---|
| 84 | ..D MES^XPDUTL(" "_DGPARM_" parameter, instance "_DGINST_", set to "_DGVALU_"%.")
|
|---|
| 85 | .I DGPARM'="DGMT MAPR GLOBAL RATE" D
|
|---|
| 86 | ..D MES^XPDUTL(" "_DGPARM_" parameter, instance "_DGINST_", set to $"_$FN(DGVALU,",")_".")
|
|---|
| 87 | Q
|
|---|
