- 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
