Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: DGBTCR2

Package: Beneficiary Travel

Routine: DGBTCR2


Information

DGBTCR2 ;ALB/SCK - BENEFICIARY TRAVEL FORM 70-3542d CONTINUE; 2/7/88@08:00 6/11/93@09:30

Source Information

Source file <DGBTCR2.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT ;Continuation of DGBTCR1, called by DGBTCR
MILEAGE
RMV ;W !,"|",?30,"|",?66,"|",?131,"|"
COST1
RMV1 ;W !,"|",?30,"|",?66,"|",?131,"|"
COST2
RMV2 ;W !,"|",?30,"|",?66,"|",?131,"|"
CERTIFY
PAYEE
REMKS
TRIP ;
AUDIT
LINE

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"| 6. Miles Traveled",?30,"| 7. Authorized Mileage Rate:",?66,"| 8. MileageAllowance (Item 6 X Item 7) | 8a. CommonCarrier Fee"
  • Line Location: MILEAGE+0
Function Call: WRITE
  • Prompt: ?131,"|"
  • Line Location: MILEAGE+1
Function Call: WRITE
  • Prompt: !,"|",?10,DGBTM6," miles",?30,"|",?40,DGBTM7," per mile",?66,"|",?80,DGBTM8,?107,"|",$G(DGBTM8A),?131,"|"
  • Line Location: RMV+1
Function Call: WRITE
  • Prompt: !,"| 9. Meals & Lodging Costs |",?32,"10. Ferry, Bridges, Etc.",?66,"| 11. Total (Sum of 8, 8a, 9, and 10)",?131,"|"
  • Line Location: COST1+0
Function Call: WRITE
  • Prompt: !,"|",?7,DGBTM9,?30,"|",?40,DGBTM10,?66,"|",?80,DGBTM11,?131,"|"
  • Line Location: RMV1+1
Function Call: WRITE
  • Prompt: !,"| 12. Most Economical",?30,"| 13. Total (Sum of 9 and 12)",?66,"| 14. AMOUNT CLAIMED AND PAYABLE *",?131,"|"
  • Line Location: COST2+0
Function Call: WRITE
  • Prompt: !,"| Public Trans. Costs",?30,"|",?66,"|"," MINUS",?80,$P(DGBTM14,"^",2)," APPLIED DEDUCTIBLE",?131,"|"
  • Line Location: COST2+1
Function Call: WRITE
  • Prompt: !,"|",?7,DGBTM12,?30,"|",?40,DGBTM13,?66,"|",?80,$P(DGBTM14,"^"),?131,"|"
  • Line Location: RMV2+1
Function Call: WRITE
  • Prompt: !,"| * The amount payable is the amount entered in Item 14.",?131,"|"
  • Line Location: RMV2+2
Function Call: WRITE
  • Prompt: !,"| I CERTIFY THAT THE CLAIMANT REPORTED FOR AN AUTHORIZED SERVICE ON THE DATE SHOWN. (Authority VA Regulation 6100 & PL 100-322)",?131,"|"
  • Line Location: CERTIFY+0
Function Call: WRITE
  • Prompt: !,"| 15. Date/Time of Claim",?30,"| 16. Signature of Certifying Official",?131,"|"
  • Line Location: CERTIFY+1
Function Call: WRITE
  • Prompt: !,"|",?8,DGBTM15,?30,"|",?37,DGBTM16,?131,"|"
  • Line Location: CERTIFY+2
Function Call: WRITE
  • Prompt: !,"| I have neither obtained transportation at Government expense nor through the use of Government request, tickets, or tokens;",?131,"|"
  • Line Location: PAYEE+0
Function Call: WRITE
  • Prompt: !,"| and have not used any Government-owned conveyance or incurred any expenses which may be presented as charges against the",?131,"|"
  • Line Location: PAYEE+1
Function Call: WRITE
  • Prompt: !,"| Dept. of Veterans Affairs for transportation, meals, or lodging in connection with my authorized travel that is not herein",?131,"|"
  • Line Location: PAYEE+2
Function Call: WRITE
  • Prompt: !,"| 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,"|"
  • Line Location: PAYEE+3
Function Call: WRITE
  • Prompt: !,"| 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,"|"
  • Line Location: PAYEE+4
Function Call: WRITE
  • Prompt: !,"| 17. Signature of Payee",?100,"| 18. Date",?131,"|"
  • Line Location: PAYEE+5
Function Call: WRITE
  • Prompt: !,"|",?7,DGBTM17,?100,"|",?131,"|"
  • Line Location: PAYEE+6
Function Call: WRITE
  • Prompt: !,"|",?7,"REMARKS: ",DGBTVAR("R"),?102,"ACCOUNT: ",$P(^DGBT(392.3,$P(DGBTVAR(0),"^",6),0),"^",2)
  • Line Location: REMKS+0
Function Call: WRITE
  • Prompt: " REVIEW VISIT"
  • Condition for execution: $P(DGBTVAR("A"),"^",3)=1
  • Line Location: REMKS+0
Function Call: WRITE
  • Prompt: ?131,"|"
  • Line Location: REMKS+0
Function Call: WRITE
  • Prompt: !,"|",?7,"TOTAL TRIP",?66,"| TOTAL MONTHLY DEDUCTIBLE",?131,"|"
  • Line Location: TRIP+1
Function Call: WRITE
  • Prompt: !,"|",?7,"1 WAY = ",$G(ONEWAY),?66,"| ","$"_$G(DTOTAL),?131,"|"
  • Line Location: TRIP+2
Function Call: WRITE
  • Prompt: !,"|",?10,"RT = ",$G(RTRIP),?66,"| ",?131,"|"
  • Line Location: TRIP+3
Function Call: WRITE
  • Prompt: !,"|",?60,"AUDIT BLOCK",?131,"|",!,"|"
  • Line Location: AUDIT+0
Function Call: WRITE
  • Prompt: I,"|"
  • Line Location: AUDIT+0
Function Call: WRITE
  • Prompt: !,"|",?7,"AMOUNT PAID FOUND CORRECT",?66,"| Remarks",?131,"|",!,"|"
  • Line Location: AUDIT+1
Function Call: WRITE
  • Prompt: I
  • Line Location: AUDIT+1
Function Call: WRITE
  • Prompt: ?66,"|",?131,"|",!,"|",?7,"Auditor's Initials",?45,"Date",?66,"|",?131,"|"
  • Line Location: AUDIT+2
Function Call: WRITE
  • Prompt: !,"VA Form 70-3542d",!
  • Line Location: AUDIT+2
Function Call: WRITE
  • Prompt: !,"|",I,"|"
  • Line Location: LINE+0
Info |  Source |  Entry Points |  Interaction Calls