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

DG53768P.m

Go to the documentation of this file.
  1. DG53768P ;ALB/PHH - 2007 MEANS TEST THRESHOLDS ;11/27/2007
  1. ;;5.3;Registration;**768**;Aug 13, 1993;Build 1
  1. ;
  1. ; This routine will upload the 2008 Means Test Thresholds and
  1. ; Maximum Annual Pension Rates onto your system.
  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 DA,DIE,DIC,DINUM,DR,I,X,Y,EXST
  1. S EXST=0
  1. D BMES^XPDUTL(">>>Means Test Thresholds for 2008 being installed...")
  1. I $D(^DG(43,1,"MT",3080000)) D
  1. .D BMES^XPDUTL(" ...Entry exists for income year 2007, entry being deleted")
  1. .D MES^XPDUTL(" and replaced with nationally released thresholds.")
  1. .S DIK="^DG(43,1,""MT"",",DA=3080000,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)=3080000
  1. D FILE^DICN
  1. S DA=+Y
  1. ;
  1. I +Y'=3080000 D Q
  1. . D BMES^XPDUTL(" ...Problem encountered adding 2008 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 X=$P($T(DATA+I),";;",2) Q:X="QUIT" D ; build dr string
  1. . S DR=DR_+X_"////"_$P(X,"^",2)_";"
  1. . D MES^XPDUTL(" "_$P(X,"^",3)_" set to $"_$FN($P(X,"^",2),","))
  1. D ^DIE
  1. Q
  1. ;
  1. DATA ; lines to stuff in values (field////value)
  1. ;;2^28429^MT COPAY EXEMPT VET INCOME
  1. ;;3^5688^MT COPAY EXEMPT 1ST DEP INCOME
  1. ;;4^1909^MT COPAY EXEMPT INCOME PER DEP
  1. ;;8^80000^THRESHOLD PROPERTY
  1. ;;17^8950^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",2007,5)
  1. ;
  1. ;set MAPR max values
  1. D SETPARM("DGMT MAPR 0 DEPENDENTS",2007,11181)
  1. D SETPARM("DGMT MAPR 1 DEPENDENTS",2007,14643)
  1. D SETPARM("DGMT MAPR N DEPENDENTS",2007,1909)
  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