| [613] | 1 | DGMTDD3 ;ALB/RMO - Individual Annual Income file (#408.21) Data Dictionary Calls ;17 MAR 1992 10:46 am
|
|---|
| 2 | ;;5.3;Registration;;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | ID ;Identifier for Individual Annual Income file
|
|---|
| 5 | N DGPRI
|
|---|
| 6 | S DGPRI=+$P($G(^(0)),U,2)
|
|---|
| 7 | W " ",$P($G(^DPT(+$G(^DGPR(408.12,DGPRI,0)),0)),U) W:$P($G(^DGPR(408.12,DGPRI,0)),U,2)'=1 " Relation: ",$$NAME^DGMTU1(DGPRI)," (",$$REL^DGMTU1(DGPRI),")"
|
|---|
| 8 | Q
|
|---|
| 9 | ;
|
|---|
| 10 | EMP ;"Trigger" Cross-reference on the Total Income From Employment
|
|---|
| 11 | ;field (#.14) to delete educational expenses on file for a child
|
|---|
| 12 | N DGFLD,DGIN0,DGLY,DGMTPAR,DGVAL
|
|---|
| 13 | S DGIN0=$G(^DGMT(408.21,DA,0)),DGLY=+DGIN0 D PAR^DGMTSCU
|
|---|
| 14 | I "^3^4^5^6^"[(U_$P($G(^DGPR(408.12,+$P(DGIN0,U,2),0)),U,2)_U),$P(DGIN0,U,14)-$P(DGMTPAR,U,17)'>0 D
|
|---|
| 15 | .I $P($G(^DGMT(408.21,DA,1)),U,3)]"" S DGVAL=$P(^(1),U,3),DGFLD=1.03 D KILL S $P(^DGMT(408.21,DA,1),U,3)=""
|
|---|
| 16 | Q
|
|---|
| 17 | ;
|
|---|
| 18 | OTH ;"Trigger" Cross-reference on the Other Property or Assets
|
|---|
| 19 | ;field (#2.04) to delete debts on file
|
|---|
| 20 | N DGFLD,DGVAL
|
|---|
| 21 | I $P($G(^DGMT(408.21,DA,2)),U,5)]"" S DGVAL=$P(^(2),U,5),DGFLD=2.05 D KILL S $P(^DGMT(408.21,DA,2),U,5)=""
|
|---|
| 22 | Q
|
|---|
| 23 | ;
|
|---|
| 24 | KILL ;Kill Cross-references
|
|---|
| 25 | N DGIX,X
|
|---|
| 26 | S X=DGVAL,DGIX=0
|
|---|
| 27 | F S DGIX=$O(^DD(408.21,DGFLD,1,DGIX)) Q:'DGIX X ^(DGIX,2) S X=DGVAL
|
|---|
| 28 | Q
|
|---|
| 29 | ;
|
|---|
| 30 | FUN ;Input Transform check for Funeral and Burial Expenses field (#1.02)
|
|---|
| 31 | N DGIRI
|
|---|
| 32 | S DGIRI=+$O(^DGMT(408.22,"AIND",DA,0))
|
|---|
| 33 | I $D(^DGMT(408.22,DGIRI,0)),'$P(^(0),U,5),'$P(^(0),U,8) W !?5,"This field does not need to be filled in unless the patient was married",!?5,"or had dependent children last calendar year." K X
|
|---|
| 34 | Q
|
|---|
| 35 | ;
|
|---|
| 36 | NET ;Input Transform check for Net Worth fields (#2.01-#2.05)
|
|---|
| 37 | N DGPRI
|
|---|
| 38 | S DGPRI=+$P($G(^DGMT(408.21,DA,0)),U,2)
|
|---|
| 39 | I "^3^4^5^6^"[(U_$P($G(^DGPR(408.12,DGPRI,0)),U,2)_U) W !?5,"This field does not need to be filled in for a child." K X
|
|---|
| 40 | Q
|
|---|
| 41 | ;
|
|---|
| 42 | DEB ;Input Transform check for Net Worth Debts field (#2.05)
|
|---|
| 43 | D NET
|
|---|
| 44 | I $D(X),$P($G(^DGMT(408.21,DA,2)),U,4)<X W !?5,"'Debts' cannot exceed 'Other Property or Assets'." K X
|
|---|
| 45 | Q
|
|---|
| 46 | ;
|
|---|
| 47 | NAM ;Output Transform for Patient Relation field (#.02)
|
|---|
| 48 | S Y=$$NAME^DGMTU1(Y)
|
|---|
| 49 | Q
|
|---|
| 50 | ;
|
|---|
| 51 | EDHLP ;Executable Help for Educational Expenses field (#1.03)
|
|---|
| 52 | N DGPRI
|
|---|
| 53 | S DGPRI=+$P($G(^DGMT(408.21,DA,0)),U,2)
|
|---|
| 54 | I $P($G(^DGPR(408.12,DGPRI,0)),U,2)=1 D VET
|
|---|
| 55 | I "^3^4^5^6^"[(U_$P($G(^DGPR(408.12,DGPRI,0)),U,2)_U) D CHILD
|
|---|
| 56 | W !!?5,"Type a Dollar Amount between 0 and 99999, 2 Decimal Digits",!
|
|---|
| 57 | Q
|
|---|
| 58 | ;
|
|---|
| 59 | VET ;Veteran's educational expenses
|
|---|
| 60 | W !?5,"Enter in this field amounts paid by the veteran during the previous",!?5,"calendar year for the veteran's educational expense. Do not report"
|
|---|
| 61 | W !?5,"educational expenses of the veteran's children or spouse. Educational",!?5,"expenses include tuition, fees, and books if the veteran is enrolled",!?5,"in a program of education."
|
|---|
| 62 | Q
|
|---|
| 63 | ;
|
|---|
| 64 | CHILD ;Child's educational expenses
|
|---|
| 65 | W !?5,"Enter in this field the child's educational expenses if the child is",!?5,"enrolled in a program of education beyond the high school level."
|
|---|
| 66 | W !?5,"Educational expenses include amounts paid for tuition, fees and books."
|
|---|
| 67 | Q
|
|---|
