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
