| [613] | 1 | DGMTU21 ;ALB/RMO - Income Utilities Cont. ;6 MAR 1992 8:40 am
|
|---|
| 2 | ;;5.3;Registration;**33,45,182**;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | ALL(DFN,DGTYPE,DGDT,DGRTY,DGMT) ;Select patient relation, individual annual
|
|---|
| 5 | ; income and income relation arrays of internal
|
|---|
| 6 | ; entry numbers
|
|---|
| 7 | ; Input -- DFN Patient file IEN
|
|---|
| 8 | ; DGTYPE Type of Relation which can
|
|---|
| 9 | ; contain:
|
|---|
| 10 | ; V for veteran
|
|---|
| 11 | ; S for spouse
|
|---|
| 12 | ; C for dependent children
|
|---|
| 13 | ; or
|
|---|
| 14 | ; D for all dependents
|
|---|
| 15 | ; DGDT Date/Time
|
|---|
| 16 | ; DGRTY Type of Array to Return
|
|---|
| 17 | ; which can contain:
|
|---|
| 18 | ; I for Ind Annual Income
|
|---|
| 19 | ; P for Patient Relation
|
|---|
| 20 | ; R for Income Relation
|
|---|
| 21 | ; (Optional - default IPR)
|
|---|
| 22 | ; DGMT IFN of Means Test (optional)
|
|---|
| 23 | ; Output -- DGREL Patient Relation IEN Array
|
|---|
| 24 | ; DGINC Individual Annual Income IEN Array
|
|---|
| 25 | ; DGINR Income Relation IEN Array
|
|---|
| 26 | ; DGDEP Number of Dependents
|
|---|
| 27 | K DGINC,DGINR,DGREL
|
|---|
| 28 | N DGCNT,DGLY,DGPRTY
|
|---|
| 29 | S:'$D(DGRTY) DGRTY="IPR" S DGLY=$$LYR^DGMTSCU1(DGDT)
|
|---|
| 30 | D GETREL^DGMTU11(DFN,DGTYPE,DGLY,$G(DGMT))
|
|---|
| 31 | S DGPRTY="" F S DGPRTY=$O(DGREL(DGPRTY)) Q:DGPRTY="" D SET
|
|---|
| 32 | I DGRTY'["P" K DGREL
|
|---|
| 33 | ALLQ Q
|
|---|
| 34 | ;
|
|---|
| 35 | SET ;Set individual annual income and income relation arrays
|
|---|
| 36 | N DGCNT,DGPRI,DGINI,DGIRI
|
|---|
| 37 | I "CD"[DGPRTY S DGCNT=0 F S DGCNT=$O(DGREL(DGPRTY,DGCNT)) Q:'DGCNT D
|
|---|
| 38 | .S DGPRI=+DGREL(DGPRTY,DGCNT) D GET
|
|---|
| 39 | .I DGINI,DGRTY["I" S DGINC(DGPRTY,DGCNT)=DGINI
|
|---|
| 40 | .I DGIRI,DGRTY["R" S DGINR(DGPRTY,DGCNT)=DGIRI
|
|---|
| 41 | I "SV"[DGPRTY D
|
|---|
| 42 | .S DGPRI=+DGREL(DGPRTY) D GET
|
|---|
| 43 | .I DGINI,DGRTY["I" S DGINC(DGPRTY)=DGINI
|
|---|
| 44 | .I DGIRI,DGRTY["R" S DGINR(DGPRTY)=DGIRI
|
|---|
| 45 | Q
|
|---|
| 46 | ;
|
|---|
| 47 | GET ;Look-up individual annual income and income relation IEN
|
|---|
| 48 | S DGINI=+$$IAI^DGMTU3(DGPRI,DGLY,$S($G(DGMT):$P($G(^DGMT(408.31,DGMT,0)),"^",19),1:1))
|
|---|
| 49 | S DGIRI=+$O(^DGMT(408.22,"AIND",DGINI,0))
|
|---|
| 50 | Q
|
|---|
