DGBTCR2 ;ALB/SCK - BENEFICIARY TRAVEL FORM 70-3542d CONTINUE; 2/7/88@08:00 6/11/93@09:30
;;1.0;Beneficiary Travel;**7,14,20**;September 25, 2001;Build 185
;This routine is a modification of AIVBTPRT / pmg / GRAND ISLAND ;07 Jul 88 12:02 PM
Q
PRINT ;Continuation of DGBTCR1, called by DGBTCR
MILEAGE W !,"| 6. Miles Traveled",?30,"| 7. Authorized Mileage Rate:",?66,"| 8. MileageAllowance (Item 6 X Item 7) | 8a. CommonCarrier Fee"
W ?131,"|"
RMV ;W !,"|",?30,"|",?66,"|",?131,"|"
W !,"|",?10,DGBTM6," miles",?30,"|",?40,DGBTM7," per mile",?66,"|",?80,DGBTM8,?107,"|",$G(DGBTM8A),?131,"|" D LINE
COST1 W !,"| 9. Meals & Lodging Costs |",?32,"10. Ferry, Bridges, Etc.",?66,"| 11. Total (Sum of 8, 8a, 9, and 10)",?131,"|"
RMV1 ;W !,"|",?30,"|",?66,"|",?131,"|"
W !,"|",?7,DGBTM9,?30,"|",?40,DGBTM10,?66,"|",?80,DGBTM11,?131,"|" D LINE
COST2 W !,"| 12. Most Economical",?30,"| 13. Total (Sum of 9 and 12)",?66,"| 14. AMOUNT CLAIMED AND PAYABLE *",?131,"|"
W !,"| Public Trans. Costs",?30,"|",?66,"|"," MINUS",?80,$P(DGBTM14,"^",2)," APPLIED DEDUCTIBLE",?131,"|"
RMV2 ;W !,"|",?30,"|",?66,"|",?131,"|"
W !,"|",?7,DGBTM12,?30,"|",?40,DGBTM13,?66,"|",?80,$P(DGBTM14,"^"),?131,"|" D LINE
W !,"| * The amount payable is the amount entered in Item 14.",?131,"|" D LINE
CERTIFY W !,"| I CERTIFY THAT THE CLAIMANT REPORTED FOR AN AUTHORIZED SERVICE ON THE DATE SHOWN. (Authority VA Regulation 6100 & PL 100-322)",?131,"|" D LINE
W !,"| 15. Date/Time of Claim",?30,"| 16. Signature of Certifying Official",?131,"|" ;,!,"|",?30,"|",?131,"|"
W !,"|",?8,DGBTM15,?30,"|",?37,DGBTM16,?131,"|" D LINE
PAYEE W !,"| I have neither obtained transportation at Government expense nor through the use of Government request, tickets, or tokens;",?131,"|"
W !,"| and have not used any Government-owned conveyance or incurred any expenses which may be presented as charges against the",?131,"|"
W !,"| Dept. of Veterans Affairs for transportation, meals, or lodging in connection with my authorized travel that is not herein",?131,"|"
W !,"| claimed. I hereby claim the amount entered in Item 14 above. I certify that the claim is correct and just and that payment",?131,"|",!,"| has not been received.",?131,"|" ;,!,"|",?131,"|"
W !,"| I hereby acknowledge receipt, in cash or check to be mailed, of the amount in Item 14 above, in full payment of this claim.",?131,"|" D LINE
W !,"| 17. Signature of Payee",?100,"| 18. Date",?131,"|" ;,!,"|",?100,"|",?131,"|"
W !,"|",?7,DGBTM17,?100,"|",?131,"|" D LINE
REMKS W !,"|",?7,"REMARKS: ",DGBTVAR("R"),?102,"ACCOUNT: ",$P(^DGBT(392.3,$P(DGBTVAR(0),"^",6),0),"^",2) W:$P(DGBTVAR("A"),"^",3)=1 " REVIEW VISIT" W ?131,"|" D LINE
;
TRIP ;
W !,"|",?7,"TOTAL TRIP",?66,"| TOTAL MONTHLY DEDUCTIBLE",?131,"|"
W !,"|",?7,"1 WAY = ",$G(ONEWAY),?66,"| ","$"_$G(DTOTAL),?131,"|"
W !,"|",?10,"RT = ",$G(RTRIP),?66,"| ",?131,"|"
D LINE
;
AUDIT W !,"|",?60,"AUDIT BLOCK",?131,"|",!,"|" K I S $P(I,"-",131)="" W I,"|"
W !,"|",?7,"AMOUNT PAID FOUND CORRECT",?66,"| Remarks",?131,"|",!,"|" K I S $P(I,"-",65)="" W I
W ?66,"|",?131,"|",!,"|",?7,"Auditor's Initials",?45,"Date",?66,"|",?131,"|" D LINE W !,"VA Form 70-3542d",!
Q
LINE K I S $P(I,"=",131)="" W !,"|",I,"|"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDGBTCR2 3290 printed Dec 13, 2024@01:40:30 Page 2
DGBTCR2 ;ALB/SCK - BENEFICIARY TRAVEL FORM 70-3542d CONTINUE; 2/7/88@08:00 6/11/93@09:30
+1 ;;1.0;Beneficiary Travel;**7,14,20**;September 25, 2001;Build 185
+2 ;This routine is a modification of AIVBTPRT / pmg / GRAND ISLAND ;07 Jul 88 12:02 PM
+3 QUIT
PRINT ;Continuation of DGBTCR1, called by DGBTCR
MILEAGE WRITE !,"| 6. Miles Traveled",?30,"| 7. Authorized Mileage Rate:",?66,"| 8. MileageAllowance (Item 6 X Item 7) | 8a. CommonCarrier Fee"
+1 WRITE ?131,"|"
RMV ;W !,"|",?30,"|",?66,"|",?131,"|"
+1 WRITE !,"|",?10,DGBTM6," miles",?30,"|",?40,DGBTM7," per mile",?66,"|",?80,DGBTM8,?107,"|",$GET(DGBTM8A),?131,"|"
DO LINE
COST1 WRITE !,"| 9. Meals & Lodging Costs |",?32,"10. Ferry, Bridges, Etc.",?66,"| 11. Total (Sum of 8, 8a, 9, and 10)",?131,"|"
RMV1 ;W !,"|",?30,"|",?66,"|",?131,"|"
+1 WRITE !,"|",?7,DGBTM9,?30,"|",?40,DGBTM10,?66,"|",?80,DGBTM11,?131,"|"
DO LINE
COST2 WRITE !,"| 12. Most Economical",?30,"| 13. Total (Sum of 9 and 12)",?66,"| 14. AMOUNT CLAIMED AND PAYABLE *",?131,"|"
+1 WRITE !,"| Public Trans. Costs",?30,"|",?66,"|"," MINUS",?80,$PIECE(DGBTM14,"^",2)," APPLIED DEDUCTIBLE",?131,"|"
RMV2 ;W !,"|",?30,"|",?66,"|",?131,"|"
+1 WRITE !,"|",?7,DGBTM12,?30,"|",?40,DGBTM13,?66,"|",?80,$PIECE(DGBTM14,"^"),?131,"|"
DO LINE
+2 WRITE !,"| * The amount payable is the amount entered in Item 14.",?131,"|"
DO LINE
CERTIFY WRITE !,"| I CERTIFY THAT THE CLAIMANT REPORTED FOR AN AUTHORIZED SERVICE ON THE DATE SHOWN. (Authority VA Regulation 6100 & PL 100-322)",?131,"|"
DO LINE
+1 ;,!,"|",?30,"|",?131,"|"
WRITE !,"| 15. Date/Time of Claim",?30,"| 16. Signature of Certifying Official",?131,"|"
+2 WRITE !,"|",?8,DGBTM15,?30,"|",?37,DGBTM16,?131,"|"
DO LINE
PAYEE WRITE !,"| I have neither obtained transportation at Government expense nor through the use of Government request, tickets, or tokens;",?131,"|"
+1 WRITE !,"| and have not used any Government-owned conveyance or incurred any expenses which may be presented as charges against the",?131,"|"
+2 WRITE !,"| Dept. of Veterans Affairs for transportation, meals, or lodging in connection with my authorized travel that is not herein",?131,"|"
+3 ;,!,"|",?131,"|"
WRITE !,"| claimed. I hereby claim the amount entered in Item 14 above. I certify that the claim is correct and just and that payment",?131,"|",!,"| has not been received.",?131,"|"
+4 WRITE !,"| I hereby acknowledge receipt, in cash or check to be mailed, of the amount in Item 14 above, in full payment of this claim.",?131,"|"
DO LINE
+5 ;,!,"|",?100,"|",?131,"|"
WRITE !,"| 17. Signature of Payee",?100,"| 18. Date",?131,"|"
+6 WRITE !,"|",?7,DGBTM17,?100,"|",?131,"|"
DO LINE
REMKS WRITE !,"|",?7,"REMARKS: ",DGBTVAR("R"),?102,"ACCOUNT: ",$PIECE(^DGBT(392.3,$PIECE(DGBTVAR(0),"^",6),0),"^",2)
if $PIECE(DGBTVAR("A"),"^",3)=1
WRITE " REVIEW VISIT"
WRITE ?131,"|"
DO LINE
+1 ;
TRIP ;
+1 WRITE !,"|",?7,"TOTAL TRIP",?66,"| TOTAL MONTHLY DEDUCTIBLE",?131,"|"
+2 WRITE !,"|",?7,"1 WAY = ",$GET(ONEWAY),?66,"| ","$"_$GET(DTOTAL),?131,"|"
+3 WRITE !,"|",?10,"RT = ",$GET(RTRIP),?66,"| ",?131,"|"
+4 DO LINE
+5 ;
AUDIT WRITE !,"|",?60,"AUDIT BLOCK",?131,"|",!,"|"
KILL I
SET $PIECE(I,"-",131)=""
WRITE I,"|"
+1 WRITE !,"|",?7,"AMOUNT PAID FOUND CORRECT",?66,"| Remarks",?131,"|",!,"|"
KILL I
SET $PIECE(I,"-",65)=""
WRITE I
+2 WRITE ?66,"|",?131,"|",!,"|",?7,"Auditor's Initials",?45,"Date",?66,"|",?131,"|"
DO LINE
WRITE !,"VA Form 70-3542d",!
+3 QUIT
LINE KILL I
SET $PIECE(I,"=",131)=""
WRITE !,"|",I,"|"
+1 QUIT
