| 1 | DVBHS6 ;ALB/JLU;Screen six of the HINQ screens ;10/4/91
|
|---|
| 2 | ;;4.0;HINQ;**11,49**;03/25/92
|
|---|
| 3 | EN ;Entry point from the edit template.
|
|---|
| 4 | ;with patch DVB*4*49 the income information will no longer be displayed
|
|---|
| 5 | ;this code is left here for historical purposes
|
|---|
| 6 | Q
|
|---|
| 7 | N Y
|
|---|
| 8 | K DVBX(1)
|
|---|
| 9 | F LP2=.3623,.3628,.36285,.3629 S X="DVBDIQ(2,"_DFN_","_LP2_")" K @X
|
|---|
| 10 | I $D(X(1)) S DVBX(1)=X(1)
|
|---|
| 11 | S DIC="^DPT(",DA=DFN,DIQ(0)="E",DIQ="DVBDIQ("
|
|---|
| 12 | S DR=".36225;.3628;.36285;.3629"
|
|---|
| 13 | D EN^DIQ1
|
|---|
| 14 | I $D(DVBX(1)) S X(1)=DVBX(1) K DVBX(1)
|
|---|
| 15 | S DVBSCRN=6 D SCRHD^DVBHUTIL
|
|---|
| 16 | S DVBJS=64
|
|---|
| 17 | ;
|
|---|
| 18 | W !,?6,"Amount Earned Annual Income (SPOUSE): "
|
|---|
| 19 | W $S($D(DVBSPENC):"$"_DVBSPENC,1:"")
|
|---|
| 20 | W !,?1,"Amount of Annual Social Security (SPOUSE): "
|
|---|
| 21 | W $S($D(DVBSPSSA):"$"_DVBSPSSA,1:"")
|
|---|
| 22 | W !,?2,"Type of other Annual Retirement (SPOUSE): "
|
|---|
| 23 | I $D(DVBSPRET) S V=DVBSPRET D TR W V
|
|---|
| 24 | W !,"Amount of other Annual Retirement (SPOUSE): "
|
|---|
| 25 | W $S($D(DVBSPETO):"$"_DVBSPETO,1:"")
|
|---|
| 26 | W !,?4,"Amount of other Annual Income (SPOUSE): "
|
|---|
| 27 | W $S($D(DVBSPINC):"$"_DVBSPINC,1:"")
|
|---|
| 28 | W !!,?4,"Amount of Earned Annual Income (PAYEE): "
|
|---|
| 29 | W $S($D(DVBEINC):"$"_DVBEINC,1:"")
|
|---|
| 30 | ;
|
|---|
| 31 | ;W !!!,DVBON,"[1]",DVBOFF X DVBLIT1
|
|---|
| 32 | ;W ?4,"Amount Annual"
|
|---|
| 33 | ;W !,?6,"Soc. Sec. (PAYEE):"
|
|---|
| 34 | ;W ?26,"$",$S(+DVBDIQ(2,DFN,.3623,"E"):DVBDIQ(2,DFN,.3623,"E"),1:0)
|
|---|
| 35 | ;W ?48,$S($D(DVBSSA):"$"_DVBSSA,1:"")
|
|---|
| 36 | ;
|
|---|
| 37 | W !!!,DVBON,"[1]",DVBOFF X DVBLIT1
|
|---|
| 38 | W ?4,"Receiving Soc. Sec. (PAYEE):"
|
|---|
| 39 | ;W !,?6,"Soc. Sec. (PAYEE):"
|
|---|
| 40 | W ?33,DVBDIQ(2,DFN,.36225,"E")
|
|---|
| 41 | W ?48,$S($D(DVBSSA):$S(DVBSSA:"YES",1:"NO"),1:"NO")
|
|---|
| 42 | ;
|
|---|
| 43 | W !,DVBON,"[2]",DVBOFF X DVBLIT1
|
|---|
| 44 | W ?4,"Other Annual"
|
|---|
| 45 | W !,?13,"Retirement (PAYEE):"
|
|---|
| 46 | W ?26,DVBDIQ(2,DFN,.36285,"E")
|
|---|
| 47 | I $D(DVBRETT) S V=DVBRETT D TR W ?48,V
|
|---|
| 48 | ;
|
|---|
| 49 | W !,DVBON,"[3]",DVBOFF X DVBLIT1
|
|---|
| 50 | W ?4,"Amount Other Annual"
|
|---|
| 51 | W !,?13,"Retirement (PAYEE):"
|
|---|
| 52 | W ?26,"$",$S(+DVBDIQ(2,DFN,.3628,"E"):DVBDIQ(2,DFN,.3628,"E"),1:0)
|
|---|
| 53 | W ?48,$S($D(DVBRETO):"$"_DVBRETO,1:"")
|
|---|
| 54 | ;
|
|---|
| 55 | W !,DVBON,"[4]",DVBOFF X DVBLIT1
|
|---|
| 56 | W ?4,"Amount Other Annual"
|
|---|
| 57 | W !,?17,"Income (PAYEE):"
|
|---|
| 58 | W ?26,"$",$S(+DVBDIQ(2,DFN,.3629,"E"):DVBDIQ(2,DFN,.3629,"E"),1:0)
|
|---|
| 59 | W ?48,$S($D(DVBOINC):"$"_DVBOINC,1:"")
|
|---|
| 60 | Q
|
|---|
| 61 | TR S V=$S(V="B":"BLACKLUNG",V="M":"MILITARY",V="C":"CIVIL SERVICE",V="R":"RAILROAD",V="O":"OTHER",V="X":"COMBINATION",1:V) Q
|
|---|
