- DGOVBC2 ;ALB/MRL - VBC OUTPUT, CONTINUED ; 12 FEB 87
- ;;5.3;Registration;**279,1015**;Aug 13, 1993;Build 21
- N DGREL,DGINC,DGINR,DGDEP,DG421
- S DGD=$S($D(^DPT(DFN,.362)):^(.362),1:"")
- W ! D L D MB^VADPT W !,"8. Aid & Attendance: ",$S(VAMB(1):"$"_+$P(VAMB(1),"^",2),1:"NONE"),?40,"Housebound : ",$S(VAMB(2):"$"_+$P(VAMB(2),"^",2),1:"NONE"),?90,"Social Security: ",$S(VAMB(3):"$"_+$P(VAMB(3),"^",2),1:"NONE")
- W !?3,"VA Pension : ",$S(VAMB(4):"$"_+$P(VAMB(4),"^",2),1:"NONE"),?40,"Military Retirement: ",$S(VAMB(5):"$"_+$P(VAMB(5),"^",2),1:"NONE"),?90,"GI Insurance : ",$S(VAMB(9):"$"_+$P(VAMB(9),"^",2),1:"NONE")
- W !?3,"Disability : ",$S(VAMB(7):"$"_+$P(VAMB(7),"^",2),1:"NONE"),?40,"SSI : ",$S(VAMB(6):"$"_+$P(VAMB(6),"^",2),1:"NONE"),?90
- ;MODIFIED BELOW TO RETURN 408.21 INFORMATION FOR OTHER INCOME
- D ALL^DGMTU21(DFN,"V",DT,"I")
- S DGOI421=$P($G(^DGMT(408.21,+$G(DGINC("V")),0)),U,17)
- W "Other Income : ",$S(DGOI421']"":"NONE",1:"$"_+DGOI421)
- W !?3,"Other Retirement: ",$S(VAMB(8):"$"_+$P(VAMB(8),"^",2),1:"NONE"),! D L
- K VAMB S DGD=$S($D(^DPT(DFN,.361)):^(.361),1:"") W !,"9. ",$S($P(DGD,"^",1)'="V":"",1:"Verified "),"SC Disabilities:" S DGX=$X+2
- I 'DGSC W " NOT A SERVICE-CONNECTED APPLICANT, NOT APPLICABLE!!" G 1
- S DGCT=0 F I=0:0 S I=$O(^DPT(DFN,.372,I)) Q:'I S I1=^(I,0),I2=$S($D(^DIC(31,+I1,0)):$P(^(0),"^",1)_" ("_+$P(I1,"^",2)_"%); ",1:""),DGCT=DGCT+1 I +$P(I1,"^",3) W:(130-$X)<$L(I2) ! W ?DGX,I2
- I 'DGCT W " NONE ON FILE!!"
- 1 W ! D L W !,"10. Former POW: ",$S(DGPOW:"YES",1:"NO"),?30,"| 11. Marital Status: ",DGMS
- W ?80,"| 12. Means Test: ",$S(DGMT]"":DGMT,1:"NOT REQUIRED"),!,"______________________________|_________________________________________________|_________________________________________________"
- S X="|____________________|_________|_________________________________________________________________________________________________|" W !,DGLIN,!,DGLIN,!,"| DATE SEEN",?21,"| SEEN BY",?31,"| REMARKS",?129,"|"
- F I=$Y:1:$S($D(IOSL):(IOSL-8),1:58) W !,X
- W !,DGLIN,!,"Date/Time Printed: " D H^DGUTL S Y=DGTIME X ^DD("DD") W Y,!
- Q D KVAR^VADPT K %,DFN1,DGSCOND,DG1,DG36,DGA,DGA1,DGAD,DGADM,DGCT,DGD,DGD1,DGD2,DGDATE,DGL,DGMS,DGMT,DGP,DGPOW,DGPT,DGSC,DGSV1,DGT,DGTIME,I,I1,I2,J,X,X1,X2,VAUTN,Y,VAUTD Q
- L F DGL=1:1:$S($D(IOM):(IOM-2),1:130) W "_"
- Q
- DGOVBC2 ;ALB/MRL - VBC OUTPUT, CONTINUED ; 12 FEB 87
- +1 ;;5.3;Registration;**279,1015**;Aug 13, 1993;Build 21
- +2 NEW DGREL,DGINC,DGINR,DGDEP,DG421
- +3 SET DGD=$SELECT($DATA(^DPT(DFN,.362)):^(.362),1:"")
- +4 WRITE !
- DO L
- DO MB^VADPT
- WRITE !,"8. Aid & Attendance: ",$SELECT(VAMB(1):"$"_+$PIECE(VAMB(1),"^",2),1:"NONE"),?40,"Housebound : ",$SELECT(VAMB(2):"$"_+$PIECE(VAMB(2),"^",2),1:"NONE"),?90,"Social Security: ",$SELECT(VAMB(3):"$"_+$PIECE(VAMB(3),"^",2),1:"NONE"
- )
- +5 WRITE !?3,"VA Pension : ",$SELECT(VAMB(4):"$"_+$PIECE(VAMB(4),"^",2),1:"NONE"),?40,"Military Retirement: ",$SELECT(VAMB(5):"$"_+$PIECE(VAMB(5),"^",2),1:"NONE"),?90,"GI Insurance : ",$SELECT(VAMB(9):"$"_+$PIECE(VAMB(9),"^",2),1:"NONE")
- +6 WRITE !?3,"Disability : ",$SELECT(VAMB(7):"$"_+$PIECE(VAMB(7),"^",2),1:"NONE"),?40,"SSI : ",$SELECT(VAMB(6):"$"_+$PIECE(VAMB(6),"^",2),1:"NONE"),?90
- +7 ;MODIFIED BELOW TO RETURN 408.21 INFORMATION FOR OTHER INCOME
- +8 DO ALL^DGMTU21(DFN,"V",DT,"I")
- +9 SET DGOI421=$PIECE($GET(^DGMT(408.21,+$GET(DGINC("V")),0)),U,17)
- +10 WRITE "Other Income : ",$SELECT(DGOI421']"":"NONE",1:"$"_+DGOI421)
- +11 WRITE !?3,"Other Retirement: ",$SELECT(VAMB(8):"$"_+$PIECE(VAMB(8),"^",2),1:"NONE"),!
- DO L
- +12 KILL VAMB
- SET DGD=$SELECT($DATA(^DPT(DFN,.361)):^(.361),1:"")
- WRITE !,"9. ",$SELECT($PIECE(DGD,"^",1)'="V":"",1:"Verified "),"SC Disabilities:"
- SET DGX=$X+2
- +13 IF 'DGSC
- WRITE " NOT A SERVICE-CONNECTED APPLICANT, NOT APPLICABLE!!"
- GOTO 1
- +14 SET DGCT=0
- FOR I=0:0
- SET I=$ORDER(^DPT(DFN,.372,I))
- IF 'I
- QUIT
- SET I1=^(I,0)
- SET I2=$SELECT($DATA(^DIC(31,+I1,0)):$PIECE(^(0),"^",1)_" ("_+$PIECE(I1,"^",2)_"%); ",1:"")
- SET DGCT=DGCT+1
- IF +$PIECE(I1,"^",3)
- IF (130-$X)<$LENGTH(I2)
- WRITE !
- WRITE ?DGX,I2
- +15 IF 'DGCT
- WRITE " NONE ON FILE!!"
- 1 WRITE !
- DO L
- WRITE !,"10. Former POW: ",$SELECT(DGPOW:"YES",1:"NO"),?30,"| 11. Marital Status: ",DGMS
- +1 WRITE ?80,"| 12. Means Test: ",$SELECT(DGMT]"":DGMT,1:"NOT REQUIRED"),!,"______________________________|_________________________________________________|_________________________________________________"
- +2 SET X="|____________________|_________|_________________________________________________________________________________________________|"
- WRITE !,DGLIN,!,DGLIN,!,"| DATE SEEN",?21,"| SEEN BY",?31,"| REMARKS",?129,"|"
- +3 FOR I=$Y:1:$SELECT($DATA(IOSL):(IOSL-8),1:58)
- WRITE !,X
- +4 WRITE !,DGLIN,!,"Date/Time Printed: "
- DO H^DGUTL
- SET Y=DGTIME
- XECUTE ^DD("DD")
- WRITE Y,!
- Q DO KVAR^VADPT
- KILL %,DFN1,DGSCOND,DG1,DG36,DGA,DGA1,DGAD,DGADM,DGCT,DGD,DGD1,DGD2,DGDATE,DGL,DGMS,DGMT,DGP,DGPOW,DGPT,DGSC,DGSV1,DGT,DGTIME,I,I1,I2,J,X,X1,X2,VAUTN,Y,VAUTD
- QUIT
- L FOR DGL=1:1:$SELECT($DATA(IOM):(IOM-2),1:130)
- WRITE "_"
- +1 QUIT
