Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Beneficiary Travel 1 DGBTCR  

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"| 6. Miles Traveled",?30,"| 7. Authorized Mileage Rate:",?66,"| 8. Mileage Allowance (Item 6 X Item 7)",?131,"|"
  • Line Location: MILEAGE+0
Function Call: WRITE
  • Prompt: !,"|",?10,DGBTM6," miles",?30,"|",?40,DGBTM7," per mile",?66,"|",?80,DGBTM8,?131,"|"
  • Line Location: RMV+1
Function Call: WRITE
  • Prompt: !,"| 9. Meals & Lodging Costs |",?32,"10. Ferry, Bridges, Etc.",?66,"| 11. Total (Sum of 8, 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 will be the amount entered in Item 11 or Item 13, whichever is less. Exception: If public transportation",?131,"|"
  • Line Location: RMV2+2
Function Call: WRITE
  • Prompt: !,"| is not reasonably accessible or would be medically inadvisable, the amount payable will be the amount entered in item 11.",?131,"|"
  • Line Location: RMV2+3
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,"|",!,"|",?30,"|",?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,"|",!,"|",?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,"|",!,"|",?100,"|",?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: !,"|",?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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGBT(392.3 - [#392.3] REMKS

Label References

Name Line Occurrences
LINE RMV+1, RMV1+1, RMV2+1, RMV2+3, CERTIFY, CERTIFY+2, PAYEE+4, PAYEE+6, REMKS, AUDIT+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DGBTM10 RMV1+1
>> DGBTM11 RMV1+1
>> DGBTM12 RMV2+1
>> DGBTM13 RMV2+1
>> DGBTM14 COST2+1, RMV2+1
>> DGBTM15 CERTIFY+2
>> DGBTM16 CERTIFY+2
>> DGBTM17 PAYEE+6
>> DGBTM6 RMV+1
>> DGBTM7 RMV+1
>> DGBTM8 RMV+1
>> DGBTM9 RMV1+1
>> DGBTVAR("A" REMKS
>> DGBTVAR("R" REMKS
>> DGBTVAR(0 REMKS
I AUDIT!*, AUDIT+1!*, LINE!*
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All