DGVPTDV4 ;alb/mjk - DVBHS6 for export with PIMS v5.3; 4/21/93
;;5.3;Registration;**1015**;Aug 13, 1993;Build 21
;
DVBHS6 ;ALB/JLU;Screen six of the HINQ screens;
;;V4.0;HINQ;**11**;03/25/92
EN ;Entry point from the edit template.
N Y
K DVBX(1)
F LP2=.3623,.3628,.36285,.3629 S X="DVBDIQ(2,"_DFN_","_LP2_")" K @X
I $D(X(1)) S DVBX(1)=X(1)
S DIC="^DPT(",DA=DFN,DIQ(0)="E",DIQ="DVBDIQ("
S DR=".36225;.3628;.36285;.3629"
D EN^DIQ1
I $D(DVBX(1)) S X(1)=DVBX(1) K DVBX(1)
S DVBSCRN=6 D SCRHD^DVBHUTIL
S DVBJS=64
;
W !,?6,"Amount Earned Annual Income (SPOUSE): "
W $S($D(DVBSPENC):"$"_DVBSPENC,1:"")
W !,?1,"Amount of Annual Social Security (SPOUSE): "
W $S($D(DVBSPSSA):"$"_DVBSPSSA,1:"")
W !,?2,"Type of other Annual Retirement (SPOUSE): "
I $D(DVBSPRET) S V=DVBSPRET D TR W V
W !,"Amount of other Annual Retirement (SPOUSE): "
W $S($D(DVBSPETO):"$"_DVBSPETO,1:"")
W !,?4,"Amount of other Annual Income (SPOUSE): "
W $S($D(DVBSPINC):"$"_DVBSPINC,1:"")
W !!,?4,"Amount of Earned Annual Income (PAYEE): "
W $S($D(DVBEINC):"$"_DVBEINC,1:"")
;
;W !!!,DVBON,"[1]",DVBOFF X DVBLIT1
;W ?4,"Amount Annual"
;W !,?6,"Soc. Sec. (PAYEE):"
;W ?26,"$",$S(+DVBDIQ(2,DFN,.3623,"E"):DVBDIQ(2,DFN,.3623,"E"),1:0)
;W ?48,$S($D(DVBSSA):"$"_DVBSSA,1:"")
;
W !!!,DVBON,"[1]",DVBOFF X DVBLIT1
W ?4,"Receiving Soc. Sec. (PAYEE):"
;W !,?6,"Soc. Sec. (PAYEE):"
W ?33,DVBDIQ(2,DFN,.36225,"E")
W ?48,$S($D(DVBSSA):$S(DVBSSA:"YES",1:"NO"),1:"NO")
;
W !,DVBON,"[2]",DVBOFF X DVBLIT1
W ?4,"Other Annual"
W !,?13,"Retirement (PAYEE):"
W ?26,DVBDIQ(2,DFN,.36285,"E")
I $D(DVBRETT) S V=DVBRETT D TR W ?48,V
;
W !,DVBON,"[3]",DVBOFF X DVBLIT1
W ?4,"Amount Other Annual"
W !,?13,"Retirement (PAYEE):"
W ?26,"$",$S(+DVBDIQ(2,DFN,.3628,"E"):DVBDIQ(2,DFN,.3628,"E"),1:0)
W ?48,$S($D(DVBRETO):"$"_DVBRETO,1:"")
;
W !,DVBON,"[4]",DVBOFF X DVBLIT1
W ?4,"Amount Other Annual"
W !,?17,"Income (PAYEE):"
W ?26,"$",$S(+DVBDIQ(2,DFN,.3629,"E"):DVBDIQ(2,DFN,.3629,"E"),1:0)
W ?48,$S($D(DVBOINC):"$"_DVBOINC,1:"")
Q
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
DGVPTDV4 ;alb/mjk - DVBHS6 for export with PIMS v5.3; 4/21/93
+1 ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21
+2 ;
DVBHS6 ;ALB/JLU;Screen six of the HINQ screens;
+1 ;;V4.0;HINQ;**11**;03/25/92
EN ;Entry point from the edit template.
+1 NEW Y
+2 KILL DVBX(1)
+3 FOR LP2=.3623,.3628,.36285,.3629
SET X="DVBDIQ(2,"_DFN_","_LP2_")"
KILL @X
+4 IF $DATA(X(1))
SET DVBX(1)=X(1)
+5 SET DIC="^DPT("
SET DA=DFN
SET DIQ(0)="E"
SET DIQ="DVBDIQ("
+6 SET DR=".36225;.3628;.36285;.3629"
+7 DO EN^DIQ1
+8 IF $DATA(DVBX(1))
SET X(1)=DVBX(1)
KILL DVBX(1)
+9 SET DVBSCRN=6
DO SCRHD^DVBHUTIL
+10 SET DVBJS=64
+11 ;
+12 WRITE !,?6,"Amount Earned Annual Income (SPOUSE): "
+13 WRITE $SELECT($DATA(DVBSPENC):"$"_DVBSPENC,1:"")
+14 WRITE !,?1,"Amount of Annual Social Security (SPOUSE): "
+15 WRITE $SELECT($DATA(DVBSPSSA):"$"_DVBSPSSA,1:"")
+16 WRITE !,?2,"Type of other Annual Retirement (SPOUSE): "
+17 IF $DATA(DVBSPRET)
SET V=DVBSPRET
DO TR
WRITE V
+18 WRITE !,"Amount of other Annual Retirement (SPOUSE): "
+19 WRITE $SELECT($DATA(DVBSPETO):"$"_DVBSPETO,1:"")
+20 WRITE !,?4,"Amount of other Annual Income (SPOUSE): "
+21 WRITE $SELECT($DATA(DVBSPINC):"$"_DVBSPINC,1:"")
+22 WRITE !!,?4,"Amount of Earned Annual Income (PAYEE): "
+23 WRITE $SELECT($DATA(DVBEINC):"$"_DVBEINC,1:"")
+24 ;
+25 ;W !!!,DVBON,"[1]",DVBOFF X DVBLIT1
+26 ;W ?4,"Amount Annual"
+27 ;W !,?6,"Soc. Sec. (PAYEE):"
+28 ;W ?26,"$",$S(+DVBDIQ(2,DFN,.3623,"E"):DVBDIQ(2,DFN,.3623,"E"),1:0)
+29 ;W ?48,$S($D(DVBSSA):"$"_DVBSSA,1:"")
+30 ;
+31 WRITE !!!,DVBON,"[1]",DVBOFF
XECUTE DVBLIT1
+32 WRITE ?4,"Receiving Soc. Sec. (PAYEE):"
+33 ;W !,?6,"Soc. Sec. (PAYEE):"
+34 WRITE ?33,DVBDIQ(2,DFN,.36225,"E")
+35 WRITE ?48,$SELECT($DATA(DVBSSA):$SELECT(DVBSSA:"YES",1:"NO"),1:"NO")
+36 ;
+37 WRITE !,DVBON,"[2]",DVBOFF
XECUTE DVBLIT1
+38 WRITE ?4,"Other Annual"
+39 WRITE !,?13,"Retirement (PAYEE):"
+40 WRITE ?26,DVBDIQ(2,DFN,.36285,"E")
+41 IF $DATA(DVBRETT)
SET V=DVBRETT
DO TR
WRITE ?48,V
+42 ;
+43 WRITE !,DVBON,"[3]",DVBOFF
XECUTE DVBLIT1
+44 WRITE ?4,"Amount Other Annual"
+45 WRITE !,?13,"Retirement (PAYEE):"
+46 WRITE ?26,"$",$SELECT(+DVBDIQ(2,DFN,.3628,"E"):DVBDIQ(2,DFN,.3628,"E"),1:0)
+47 WRITE ?48,$SELECT($DATA(DVBRETO):"$"_DVBRETO,1:"")
+48 ;
+49 WRITE !,DVBON,"[4]",DVBOFF
XECUTE DVBLIT1
+50 WRITE ?4,"Amount Other Annual"
+51 WRITE !,?17,"Income (PAYEE):"
+52 WRITE ?26,"$",$SELECT(+DVBDIQ(2,DFN,.3629,"E"):DVBDIQ(2,DFN,.3629,"E"),1:0)
+53 WRITE ?48,$SELECT($DATA(DVBOINC):"$"_DVBOINC,1:"")
+54 QUIT
TR SET V=$SELECT(V="B":"BLACKLUNG",V="M":"MILITARY",V="C":"CIVIL SERVICE",V="R":"RAILROAD",V="O":"OTHER",V="X":"COMBINATION",1:V)
QUIT
