source: WorldVistAEHR/trunk/r/HINQ-DVB--DVBA--DVBE--DVBC/DVBHS6.m@ 1005

Last change on this file since 1005 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.1 KB
Line 
1DVBHS6 ;ALB/JLU;Screen six of the HINQ screens ;10/4/91
2 ;;4.0;HINQ;**11,49**;03/25/92
3EN ;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
61TR 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
Note: See TracBrowser for help on using the repository browser.