Routine: DGBTCD

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

Package	Total	Caller Graph
Beneficiary Travel	2	DGBTCE1 DGBTR

Entry Points

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

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

>>	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*

Customize PDF page

Package: Beneficiary Travel

Routine: DGBTCD

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

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

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