Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DG53910P

DG53910P.m

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