DGMTDD4.m

DGMTDD4 ;ALB/AMA - Individual Annual Income file (#408.21) Data Dictionary Calls, CON'T ; 10/3/07 1:44pm

 ;;5.3;PIMS;**1016**;JUN 30, 2012;Build 20

 ;

14 ;Executable Help for Total Employment Income (408.21/.14)

 Q:(X="?")

 I +$$MTVERS($G(DGMTI))=0 D  Q

 . ;Help text for pre-Feb 2005 Data Collection format

 . W !?8,"Enter in this field the annual amount of Total Income from Employment"

 . W !?8,"received during the previous calendar year.  This includes wages,"

 . W !?8,"salary, earnings and tips."

 . W !!?8,"A monthly amount can be entered with an '*' after it."

 . Q

 E  D

 . ;Help text for Feb 2005 Data Collection format

 . W !?8,"Enter in this field the gross income amount received from Employment"

 . W !?8,"during the previous calendar year.  This includes wages, bonuses,"

 . W !?8,"salary, earnings, and tips.  Exclude income from your farm, ranch,"

 . W !?8,"property, or business."

 . W !!?8,"A monthly amount can be entered with an '*' after it."

 Q

17 ;Executable Help for Net Income from Farm (408.21/.17)

 Q:(X="?")

 I +$$MTVERS($G(DGMTI))=0 D  Q

 . ;Help text for pre-Feb 2005 Data Collection format

 . W !?8,"Enter in this field the annual amount of All Other Income received"

 . W !?8,"during the previous calendar year."

 . W !!?8,"Business or Farm Income.  Net income from operation of a farm or other"

 . W !?8,"business is countable.  If a veteran reports this type of income, have"

 . W !?8,"the veteran complete VA Form 21-4165, Pension Claim Questionnaire for"

 . W !?8,"Farm Income, or VA Form 21-4185, Report of Income from Property or"

 . W !?8,"Business.  Subtract the veteran's business or farm expenses from gross"

 . W !?8,"income.  The result should be entered in this field.  If the veteran or"

 . W !?8,"veteran's spouse or child receives a salary from the business, it"

 . W !?8,"should be reported in the 'Total Employment Income' field.  Also, note"

 . W !?8,"that depreciation is not a deductible expense for VA purposes."

 . W !!?8,"A monthly amount can be entered with an '*' after it."

 . Q

 E  D

 . ;Help text for Feb 2005 Data Collection format

 . W !?8,"Enter in this field the net income amount from your farm, ranch,"

 . W !?8,"property, or business received during the previous calendar year."

 . W !!?8,"Business or Farm Income.  Net income from operation of a farm or other"

 . W !?8,"business is countable.  If a veteran reports this type of income, have"

 . W !?8,"the veteran complete VA Form 21-4165, Pension Claim Questionnaire for"

 . W !?8,"Farm Income, or VA Form 21-4185, Report of Income from Property or"

 . W !?8,"Business.  To identify the net income, subtract the veteran's business"

 . W !?8,"or farm expenses from the gross income derived from the business or"

 . W !?8,"farm.  The result should be entered in this field.  If the veteran or"

 . W !?8,"veteran's spouse or child receives a salary from the business, it"

 . W !?8,"should be reported in the 'Total Employment Income' field.  Also, note"

 . W !?8,"that depreciation is not a deductible expense for VA purposes."

 . W !!?8,"A monthly amount can be entered with an '*' after it."

 Q

8 ;Executable Help for Other Income Amounts (408.21/.08)

 Q:(X="?")

 I +$$MTVERS($G(DGMTI))=0 D  Q

 . ;Help text for pre-Feb 2005 Data Collection format

 . W !?8,"Enter in this field the annual amount of Social Security received"

 . W !?8,"during the previous calendar year.  Do not include SSI."

 . W !!?8,"A monthly amount can be entered with an '*' after it."

 . Q

 E  D

 . ;Help text for Feb 2005 Data Collection format

 . W !?8,"Enter in this field the annual amount of other income received during"

 . W !?8,"the previous calendar year.  This includes, but is not limited to,"

 . W !?8,"Social Security Retirement and/or Disability Income; compensation"

 . W !?8,"benefits such as VA disability, unemployment, retirement, and pension"

 . W !?8,"income; interest; and dividends.  Exclude welfare, Supplemental"

 . W !?8,"Security Income (SSI), or need-based payments from a governmental"

 . W !?8,"agency, profit from occasional sale of property, reinvested interest"

 . W !?8,"on IRAs.  See 38 CFR 3.272 for more information."

 . W !!?8,"A monthly amount can be entered with an '*' after it."

 Q

112 ;Executable Help for Total Non-Reimbursed Medical Expenses (408.21/1.12)

 Q:(X="?")

 I +$$MTVERS($G(DGMTI))=0 D  Q

 . ;Help text for pre-Feb 2005 Data Collection format

 . W !?8,"Enter the total amount of unreimbursed medical expenses paid by the"

 . W !?8,"veteran during the previous calendar year.  The expenses can be for the"

 . W !?8,"veteran or for persons that the veteran has a legal or moral obligation"

 . W !?8,"to support.  The expenses must actually have been paid by the veteran."

 . W !?8,"Reportable medical expenses include amounts paid for the following:"

 . W !?8,"fees of physicians, dentists, and other providers of health services;"

 . W !?8,"hospital and nursing home fees; medical insurance premiums (including"

 . W !?8,"the Medicare premium); drugs and medicines; eyeglasses; any other"

 . W !?8,"expenses that are reasonable related to medical care.  Do not list"

 . W !?8,"expenses which the veteran has paid if the veteran expects to receive"

 . W !?8,"reimbursement from insurance or some other source."

 . W !!?8,"By law, not all of the unreimbursed medical expenses paid by the veteran"

 . W !?8,"during the previous calendar year may be deducted from the total annual"

 . W !?8,"income.  The total amount of the unreimbursed medical expenses entered"

 . W !?8,"in this field will be automatically adjusted based upon the veteran's"

 . W !?8,"maximum annual pension amount and number of dependents."

 . Q

 E  D

 . ;Help text for Feb 2005 Data Collection format

 . W !?5,"Enter the total amount of non-reimbursed medical expenses paid by the"

 . W !?5,"veteran during the previous calendar year.  The expenses can be for the"

 . W !?5,"veteran or for persons that the veteran has a legal or moral obligation"

 . W !?5,"to support.  The expenses must actually have been paid by the veteran."

 . W !?5,"Reportable medical expenses include amounts paid for the following:"

 . W !?5,"fees of physicians, dentists, and other providers of health services;"

 . W !?5,"hospital and nursing home fees; medical insurance premiums (including"

 . W !?5,"the Medicare premium); drugs and medicines; eyeglasses; any other"

 . W !?5,"expenses that are reasonably related to medical care.  Do not list"

 . W !?5,"expenses which the veteran has paid if the veteran expects to receive"

 . W !?5,"reimbursement from insurance or some other source."

 . W !!?5,"By law, not all of the non-reimbursed medical expenses paid by the"

 . W !?5,"veteran during the previous calendar year may be deducted from the total"

 . W !?5,"annual income.  The total amount of the non-reimbursed medical expenses"

 . W !?5,"entered in this field will be automatically adjusted based upon the"

 . W !?5,"veteran's maximum annual pension amount and number of dependents."

 . W !!?5,"Intake clerks should remind the veteran to keep receipts for claimed"

 . W !?5,"medical expenses."

 Q

102 ;Executable Help for Funeral and Burial Expenses (408.21/1.02)

 Q:(X="?")

 I +$$MTVERS($G(DGMTI))=0 D  Q

 . ;Help text for pre-Feb 2005 Data Collection format

 . W !?8,"Enter in this field amounts paid by the veteran during the previous"

 . W !?8,"calendar year for funeral or burial expenses of the veteran's spouse or"

 . W !?8,"child.  Do not report amounts paid for funeral or burial expenses of"

 . W !?8,"other relatives such as parents, siblings, etc."

 . Q

 E  D

 . ;Help text for Feb 2005 Data Collection format

 . W !?8,"Enter in this field amounts paid by the veteran during the previous"

 . W !?8,"calendar year for funeral or burial expenses of the veteran's deceased"

 . W !?8,"spouse or child or for pre-paid funeral or burial expenses of the"

 . W !?8,"veteran, spouse, or any dependent child.  Do not report amounts paid"

 . W !?8,"for funeral or burial expenses of other relatives such as parents,"

 . W !?8,"siblings, etc."

 Q

MTVERS(DGMTI) ;Determine the Means Test Version Indicator

 I 'DGMTI Q 1

 N MTVERS

 S MTVERS=+$P($G(^DGMT(408.31,DGMTI,2)),"^",11)

 Q MTVERS

DGMTDD4   ;ALB/AMA - Individual Annual Income file (#408.21) Data Dictionary Calls, CON'T ; 10/3/07 1:44pm

 +1       ;;5.3;PIMS;**1016**;JUN 30, 2012;Build 20

 +2       ;

14        ;Executable Help for Total Employment Income (408.21/.14)

 +1        IF (X="?")

               QUIT 

 +2        IF +$$MTVERS($GET(DGMTI))=0

               Begin DoDot:1

 +3       ;Help text for pre-Feb 2005 Data Collection format

 +4                WRITE !?8,"Enter in this field the annual amount of Total Income from Employment"

 +5                WRITE !?8,"received during the previous calendar year.  This includes wages,"

 +6                WRITE !?8,"salary, earnings and tips."

 +7                WRITE !!?8,"A monthly amount can be entered with an '*' after it."

 +8                QUIT 

               End DoDot:1

               QUIT 

 +9       IF '$TEST

               Begin DoDot:1

 +10      ;Help text for Feb 2005 Data Collection format

 +11               WRITE !?8,"Enter in this field the gross income amount received from Employment"

 +12               WRITE !?8,"during the previous calendar year.  This includes wages, bonuses,"

 +13               WRITE !?8,"salary, earnings, and tips.  Exclude income from your farm, ranch,"

 +14               WRITE !?8,"property, or business."

 +15               WRITE !!?8,"A monthly amount can be entered with an '*' after it."

               End DoDot:1

 +16       QUIT 

17        ;Executable Help for Net Income from Farm (408.21/.17)

 +1        IF (X="?")

               QUIT 

 +2        IF +$$MTVERS($GET(DGMTI))=0

               Begin DoDot:1

 +3       ;Help text for pre-Feb 2005 Data Collection format

 +4                WRITE !?8,"Enter in this field the annual amount of All Other Income received"

 +5                WRITE !?8,"during the previous calendar year."

 +6                WRITE !!?8,"Business or Farm Income.  Net income from operation of a farm or other"

 +7                WRITE !?8,"business is countable.  If a veteran reports this type of income, have"

 +8                WRITE !?8,"the veteran complete VA Form 21-4165, Pension Claim Questionnaire for"

 +9                WRITE !?8,"Farm Income, or VA Form 21-4185, Report of Income from Property or"

 +10               WRITE !?8,"Business.  Subtract the veteran's business or farm expenses from gross"

 +11               WRITE !?8,"income.  The result should be entered in this field.  If the veteran or"

 +12               WRITE !?8,"veteran's spouse or child receives a salary from the business, it"

 +13               WRITE !?8,"should be reported in the 'Total Employment Income' field.  Also, note"

 +14               WRITE !?8,"that depreciation is not a deductible expense for VA purposes."

 +15               WRITE !!?8,"A monthly amount can be entered with an '*' after it."

 +16               QUIT 

               End DoDot:1

               QUIT 

 +17      IF '$TEST

               Begin DoDot:1

 +18      ;Help text for Feb 2005 Data Collection format

 +19               WRITE !?8,"Enter in this field the net income amount from your farm, ranch,"

 +20               WRITE !?8,"property, or business received during the previous calendar year."

 +21               WRITE !!?8,"Business or Farm Income.  Net income from operation of a farm or other"

 +22               WRITE !?8,"business is countable.  If a veteran reports this type of income, have"

 +23               WRITE !?8,"the veteran complete VA Form 21-4165, Pension Claim Questionnaire for"

 +24               WRITE !?8,"Farm Income, or VA Form 21-4185, Report of Income from Property or"

 +25               WRITE !?8,"Business.  To identify the net income, subtract the veteran's business"

 +26               WRITE !?8,"or farm expenses from the gross income derived from the business or"

 +27               WRITE !?8,"farm.  The result should be entered in this field.  If the veteran or"

 +28               WRITE !?8,"veteran's spouse or child receives a salary from the business, it"

 +29               WRITE !?8,"should be reported in the 'Total Employment Income' field.  Also, note"

 +30               WRITE !?8,"that depreciation is not a deductible expense for VA purposes."

 +31               WRITE !!?8,"A monthly amount can be entered with an '*' after it."

               End DoDot:1

 +32       QUIT 

8         ;Executable Help for Other Income Amounts (408.21/.08)

 +1        IF (X="?")

               QUIT 

 +2        IF +$$MTVERS($GET(DGMTI))=0

               Begin DoDot:1

 +3       ;Help text for pre-Feb 2005 Data Collection format

 +4                WRITE !?8,"Enter in this field the annual amount of Social Security received"

 +5                WRITE !?8,"during the previous calendar year.  Do not include SSI."

 +6                WRITE !!?8,"A monthly amount can be entered with an '*' after it."

 +7                QUIT 

               End DoDot:1

               QUIT 

 +8       IF '$TEST

               Begin DoDot:1

 +9       ;Help text for Feb 2005 Data Collection format

 +10               WRITE !?8,"Enter in this field the annual amount of other income received during"

 +11               WRITE !?8,"the previous calendar year.  This includes, but is not limited to,"

 +12               WRITE !?8,"Social Security Retirement and/or Disability Income; compensation"

 +13               WRITE !?8,"benefits such as VA disability, unemployment, retirement, and pension"

 +14               WRITE !?8,"income; interest; and dividends.  Exclude welfare, Supplemental"

 +15               WRITE !?8,"Security Income (SSI), or need-based payments from a governmental"

 +16               WRITE !?8,"agency, profit from occasional sale of property, reinvested interest"

 +17               WRITE !?8,"on IRAs.  See 38 CFR 3.272 for more information."

 +18               WRITE !!?8,"A monthly amount can be entered with an '*' after it."

               End DoDot:1

 +19       QUIT 

112       ;Executable Help for Total Non-Reimbursed Medical Expenses (408.21/1.12)

 +1        IF (X="?")

               QUIT 

 +2        IF +$$MTVERS($GET(DGMTI))=0

               Begin DoDot:1

 +3       ;Help text for pre-Feb 2005 Data Collection format

 +4                WRITE !?8,"Enter the total amount of unreimbursed medical expenses paid by the"

 +5                WRITE !?8,"veteran during the previous calendar year.  The expenses can be for the"

 +6                WRITE !?8,"veteran or for persons that the veteran has a legal or moral obligation"

 +7                WRITE !?8,"to support.  The expenses must actually have been paid by the veteran."

 +8                WRITE !?8,"Reportable medical expenses include amounts paid for the following:"

 +9                WRITE !?8,"fees of physicians, dentists, and other providers of health services;"

 +10               WRITE !?8,"hospital and nursing home fees; medical insurance premiums (including"

 +11               WRITE !?8,"the Medicare premium); drugs and medicines; eyeglasses; any other"

 +12               WRITE !?8,"expenses that are reasonable related to medical care.  Do not list"

 +13               WRITE !?8,"expenses which the veteran has paid if the veteran expects to receive"

 +14               WRITE !?8,"reimbursement from insurance or some other source."

 +15               WRITE !!?8,"By law, not all of the unreimbursed medical expenses paid by the veteran"

 +16               WRITE !?8,"during the previous calendar year may be deducted from the total annual"

 +17               WRITE !?8,"income.  The total amount of the unreimbursed medical expenses entered"

 +18               WRITE !?8,"in this field will be automatically adjusted based upon the veteran's"

 +19               WRITE !?8,"maximum annual pension amount and number of dependents."

 +20               QUIT 

               End DoDot:1

               QUIT 

 +21      IF '$TEST

               Begin DoDot:1

 +22      ;Help text for Feb 2005 Data Collection format

 +23               WRITE !?5,"Enter the total amount of non-reimbursed medical expenses paid by the"

 +24               WRITE !?5,"veteran during the previous calendar year.  The expenses can be for the"

 +25               WRITE !?5,"veteran or for persons that the veteran has a legal or moral obligation"

 +26               WRITE !?5,"to support.  The expenses must actually have been paid by the veteran."

 +27               WRITE !?5,"Reportable medical expenses include amounts paid for the following:"

 +28               WRITE !?5,"fees of physicians, dentists, and other providers of health services;"

 +29               WRITE !?5,"hospital and nursing home fees; medical insurance premiums (including"

 +30               WRITE !?5,"the Medicare premium); drugs and medicines; eyeglasses; any other"

 +31               WRITE !?5,"expenses that are reasonably related to medical care.  Do not list"

 +32               WRITE !?5,"expenses which the veteran has paid if the veteran expects to receive"

 +33               WRITE !?5,"reimbursement from insurance or some other source."

 +34               WRITE !!?5,"By law, not all of the non-reimbursed medical expenses paid by the"

 +35               WRITE !?5,"veteran during the previous calendar year may be deducted from the total"

 +36               WRITE !?5,"annual income.  The total amount of the non-reimbursed medical expenses"

 +37               WRITE !?5,"entered in this field will be automatically adjusted based upon the"

 +38               WRITE !?5,"veteran's maximum annual pension amount and number of dependents."

 +39               WRITE !!?5,"Intake clerks should remind the veteran to keep receipts for claimed"

 +40               WRITE !?5,"medical expenses."

               End DoDot:1

 +41       QUIT 

102       ;Executable Help for Funeral and Burial Expenses (408.21/1.02)

 +1        IF (X="?")

               QUIT 

 +2        IF +$$MTVERS($GET(DGMTI))=0

               Begin DoDot:1

 +3       ;Help text for pre-Feb 2005 Data Collection format

 +4                WRITE !?8,"Enter in this field amounts paid by the veteran during the previous"

 +5                WRITE !?8,"calendar year for funeral or burial expenses of the veteran's spouse or"

 +6                WRITE !?8,"child.  Do not report amounts paid for funeral or burial expenses of"

 +7                WRITE !?8,"other relatives such as parents, siblings, etc."

 +8                QUIT 

               End DoDot:1

               QUIT 

 +9       IF '$TEST

               Begin DoDot:1

 +10      ;Help text for Feb 2005 Data Collection format

 +11               WRITE !?8,"Enter in this field amounts paid by the veteran during the previous"

 +12               WRITE !?8,"calendar year for funeral or burial expenses of the veteran's deceased"

 +13               WRITE !?8,"spouse or child or for pre-paid funeral or burial expenses of the"

 +14               WRITE !?8,"veteran, spouse, or any dependent child.  Do not report amounts paid"

 +15               WRITE !?8,"for funeral or burial expenses of other relatives such as parents,"

 +16               WRITE !?8,"siblings, etc."

               End DoDot:1

 +17       QUIT 

MTVERS(DGMTI) ;Determine the Means Test Version Indicator

 +1        IF 'DGMTI

               QUIT 1

 +2        NEW MTVERS

 +3        SET MTVERS=+$PIECE($GET(^DGMT(408.31,DGMTI,2)),"^",11)

 +4        QUIT MTVERS