Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DGBTCD

Package: Beneficiary Travel

Routine: DGBTCD


Information

DGBTCD ;ALB/SCK - BENEFICIARY TRAVEL CLAIM DISPLAY; 12/15/92 4/14/93

Source Information

Source file <DGBTCD.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Registration 2 ^VADATE  PID^VADPT6  
Beneficiary Travel 1 CITY^DGBTCR  
VA Fileman 1 COMMA^%DTC  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Beneficiary Travel 2 DGBTCE1  DGBTR  

Entry Points

Name Comments DBIA/ICR reference
QUIT
REMARK
ELIG
FROM
SCREEN
ATT
ACCT
DED

External References

Name Field # of Occurrence
COMMA^%DTC ACCT+1, ATT+2, ATT+5, ATT+8, DED, DED+2
CITY^DGBTCR SCREEN+8, SCREEN+11
^VADATE ELIG+1
PID^VADPT6 SCREEN+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,">> WARNING! No ACCOUNT TYPE for this claim, Please correct through Claim Enter/Edit!"
  • Line Location: SCREEN+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SCREEN+3
Function Call: WRITE
  • Prompt: !?18,"Beneficiary Travel Claim Information <Display>"
  • Line Location: SCREEN+4
Function Call: WRITE
  • Prompt: !!?8,"Name: ",VADM(1),?40,"PT ID: ",VA("PID"),?64,"DOB: ",$P(VADM(3),U,2)
  • Line Location: SCREEN+6
Function Call: WRITE
  • Prompt: !!," Depart From: ",$E($P(DGBTVAR("D"),U),1,30)
  • Line Location: FROM+0
Function Call: WRITE
  • Prompt: ?46,"To: ",$E($P(DGBTVAR("T"),U),1,30)
  • Line Location: FROM+1
Function Call: WRITE
  • Prompt: !?14
  • Line Location: FROM+2
Function Call: WRITE
  • Prompt: $P(DGBTVAR("D"),U,2)
  • Condition for execution: $P(DGBTVAR("D"),U,2)]""
  • Line Location: FROM+2
Function Call: WRITE
  • Prompt: $P(DGBTVAR("D"),U,3)
  • Condition for execution: $P(DGBTVAR("D"),U,2)=""
  • Line Location: FROM+2
Function Call: WRITE
  • Prompt: DGBTFCTY
  • Condition for execution: $P(DGBTVAR("D"),U,2)=""&($P(DGBTVAR("D"),U,3)="")
  • Line Location: FROM+2
Function Call: WRITE
  • Prompt: ?50
  • Line Location: FROM+3
Function Call: WRITE
  • Prompt: $P(DGBTVAR("T"),U,2)
  • Condition for execution: $P(DGBTVAR("T"),U,2)]""
  • Line Location: FROM+3
Function Call: WRITE
  • Prompt: $P(DGBTVAR("T"),U,3)
  • Condition for execution: $P(DGBTVAR("T"),U,2)=""
  • Line Location: FROM+3
Function Call: WRITE
  • Prompt: DGBTTCTY
  • Condition for execution: $P(DGBTVAR("T"),U,2)=""&($P(DGBTVAR("T"),U,3)="")
  • Line Location: FROM+3
Function Call: WRITE
  • Prompt: !?14
  • Line Location: FROM+4
Function Call: WRITE
  • Prompt: $P(DGBTVAR("D"),U,3)
  • Condition for execution: $P(DGBTVAR("D"),U,3)]""
  • Line Location: FROM+4
Function Call: WRITE
  • Prompt: DGBTFCTY
  • Condition for execution: $P(DGBTVAR("D"),U,2)]""&($P(DGBTVAR("D"),U,3)="")
  • Line Location: FROM+4
Function Call: WRITE
  • Prompt: ?50
  • Line Location: FROM+5
Function Call: WRITE
  • Prompt: $P(DGBTVAR("T"),U,3)
  • Condition for execution: $P(DGBTVAR("T"),U,3)]""
  • Line Location: FROM+5
Function Call: WRITE
  • Prompt: DGBTTCTY
  • Condition for execution: $P(DGBTVAR("T"),U,2)]""&($P(DGBTVAR("T"),U,3)="")
  • Line Location: FROM+5
Function Call: WRITE
  • Prompt: !?14
  • Line Location: FROM+6
Function Call: WRITE
  • Prompt: DGBTFCTY
  • Condition for execution: $P(DGBTVAR("D"),U,2)]""&($P(DGBTVAR("D"),U,3)]"")
  • Line Location: FROM+6
Function Call: WRITE
  • Prompt: ?50
  • Line Location: FROM+7
Function Call: WRITE
  • Prompt: DGBTTCTY
  • Condition for execution: $P(DGBTVAR("T"),U,2)]""&($P(DGBTVAR("T"),U,3)]"")
  • Line Location: FROM+7
Function Call: WRITE
  • Prompt: !!," Eligibility: "
  • Line Location: ELIG+0
Function Call: WRITE
  • Prompt: $P(^DIC(8,$P(DGBTVAR(0),U,3),0),U)
  • Condition for execution: $P(DGBTVAR(0),U,3)
  • Line Location: ELIG+0
Function Call: WRITE
  • Prompt: ?45,"SC%: ",$P(DGBTVAR(0),U,4)
  • Condition for execution: $P(DGBTVAR(0),U,4)]""
  • Line Location: ELIG+0
Function Call: WRITE
  • Prompt: ?57,"Cert. Date: "
  • Line Location: ELIG+1
Function Call: WRITE
  • Prompt: $P(VADATE("E"),"@")
  • Line Location: ELIG+1
Function Call: WRITE
  • Prompt: !!?5,"Account: ",$S($P(DGBTVAR(0),U,6):$E($P(^DGBT(392.3,$P(DGBTVAR(0),U,6),0),U),1,15),1:"")
  • Line Location: ACCT+0
Function Call: WRITE
  • Prompt: ?31,"REVIEW VISIT"
  • Condition for execution: $P(DGBTVAR("A"),U,3)
  • Line Location: ACCT+0
Function Call: WRITE
  • Prompt: ?51,"Most Econ. Cost: "
  • Line Location: ACCT+1
Function Call: WRITE
  • Prompt: X
  • Line Location: ACCT+1
Function Call: WRITE
  • Prompt: !,"Attend/Payee: ",$S($D(DGBTVAR("A")):$P(DGBTVAR("A"),U,2),1:"")
  • Line Location: ATT+0
Function Call: WRITE
  • Prompt: !," Mode/Trans.: ",$S($P(DGBTVAR("A"),U,4):$P(^DGBT(392.4,$P(DGBTVAR("A"),U,4),0),U),1:"")
  • Line Location: ATT+1
Function Call: WRITE
  • Prompt: ?51,"Meals & Lodging: "
  • Line Location: ATT+2
Function Call: WRITE
  • Prompt: X
  • Line Location: ATT+2
Function Call: WRITE
  • Prompt: !,"One Way/"
  • Line Location: ATT+3
Function Call: WRITE
  • Prompt: !?5,"Carrier: ",$S($P(DGBTVAR(0),U,7):$P(^PRC(440,$P(DGBTVAR(0),U,7),0),U),1:"")
  • Line Location: ATT+4
Function Call: WRITE
  • Prompt: ?46,"Ferry, Bridges, Etc.: "
  • Line Location: ATT+5
Function Call: WRITE
  • Prompt: X
  • Line Location: ATT+5
Function Call: WRITE
  • Prompt: !?2,"Round Trip: ",$S($P(DGBTVAR("M"),U)=1:"ONE WAY",$P(DGBTVAR("M"),U)=2:"ROUND TRIP",1:"")
  • Line Location: ATT+6
Function Call: WRITE
  • Prompt: !,"Auth. Person: "
  • Line Location: ATT+7
Function Call: WRITE
  • Prompt: $S($D(DGBTVAR("A"))&($D(^VA(200,$P(DGBTVAR("A"),U),0))):$P(^VA(200,$P(DGBTVAR("A"),U),0),U),1:"")
  • Line Location: ATT+7
Function Call: WRITE
  • Prompt: ?46,"Total Mileage Amount: "
  • Line Location: ATT+8
Function Call: WRITE
  • Prompt: X
  • Line Location: ATT+8
Function Call: WRITE
  • Prompt: !,"Mileage/"
  • Line Location: ATT+9
Function Call: WRITE
  • Prompt: ?48,"Applied Deductible: "
  • Line Location: DED+0
Function Call: WRITE
  • Prompt: X
  • Line Location: DED+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DED+1
Function Call: WRITE
  • Prompt: ?5,"One Way: ",$P(DGBTVAR("M"),U,2)_" MILES"
  • Condition for execution: DGBTACCT=4!(DGBTACCT=5)
  • Line Location: DED+1
Function Call: WRITE
  • Prompt: ?52,"Amount Payable: "
  • Line Location: DED+2
Function Call: WRITE
  • Prompt: X
  • Line Location: DED+2
Function Call: WRITE
  • Prompt: !!,"Remarks: ",$S($D(^DGBT(392,DGBTDT,"R")):$P(^DGBT(392,DGBTDT,"R"),U),1:"")
  • Line Location: REMARK+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] SCREEN+5
^DG(43 - [#43] ATT+2, ATT+5
^DGBT(392 - [#392] SCREEN, REMARK
^DGBT(392.3 - [#392.3] SCREEN+1, ACCT
^DGBT(392.4 - [#392.4] ATT+1
^DIC(5 - [#5] SCREEN+9, SCREEN+11
^DIC(8 - [#8] ELIG
^PRC(440 ATT+4
^VA(200 - [#200] ATT+7

Label References

Name Line Occurrences
QUIT SCREEN+2

Naked Globals

Name Field # of Occurrence
^( SCREEN
^(0 SCREEN+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DGBTACCT SCREEN+1*, SCREEN+2, ATT, ATT+1, ATT+3, ATT+4, ATT+6, ATT+7, ATT+8, ATT+9
, DED+1
DGBTCNA SCREEN+8*, SCREEN+9, SCREEN+11*, QUIT!
DGBTCSZ SCREEN+8, SCREEN+9*, SCREEN+10*, SCREEN+11*, QUIT!
DGBTDIV QUIT!
>> DGBTDT SCREEN, REMARK
>> DGBTDTE SCREEN+5
DGBTFCTY SCREEN+7*, SCREEN+10*, FROM+2, FROM+4, FROM+6, QUIT!
DGBTTCTY SCREEN+7*, SCREEN+11*, FROM+3, FROM+5, FROM+7, QUIT!
DGBTVAR SCREEN!
DGBTVAR( SCREEN*
DGBTVAR("A" ACCT, ATT, ATT+1, ATT+7
DGBTVAR("D" SCREEN+8, SCREEN+9, SCREEN+10, FROM, FROM+2, FROM+4, FROM+6
DGBTVAR("M" ATT+2, ATT+5, ATT+6, ATT+8, DED+1
DGBTVAR("T" SCREEN+11, FROM+1, FROM+3, FROM+5, FROM+7
DGBTVAR(0 SCREEN+1, SCREEN+5, ELIG, ELIG+1, ACCT, ACCT+1, ATT+4, DED, DED+2
I SCREEN*, QUIT!
IOF SCREEN+3
U SCREEN*, SCREEN+1, SCREEN+5, SCREEN+6, SCREEN+8, SCREEN+9, SCREEN+10, SCREEN+11, FROM, FROM+1
, FROM+2, FROM+3, FROM+4, FROM+5, FROM+6, FROM+7, ELIG, ELIG+1, ACCT, ACCT+1
, ATT, ATT+1, ATT+2, ATT+4, ATT+5, ATT+6, ATT+7, ATT+8, DED, DED+1
, DED+2, REMARK
>> VA("PID" SCREEN+6
VADAM QUIT!
VADAT ELIG+1!
VADAT("W" ELIG+1*
VADATE ELIG+1!
VADATE("E" ELIG+1
>> VADM(1 SCREEN+6
>> VADM(3 SCREEN+6
X ACCT+1*, ATT+2*, ATT+5*, ATT+8*, DED*, DED+2*, QUIT!
X2 ACCT+1*, QUIT!
>> Y SCREEN+10*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All