Routine: DGBTCR1

Package	Total	Caller Graph
Beneficiary Travel	1	DGBTCR

Entry Points

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?66,"\|",I,"\|",!?7,VADM(1),?50 Line Location: PRINT+0
Function Call: WRITE	Prompt: $P(^(0),"^",4) Line Location: PRINT+0
Function Call: WRITE	Prompt: ?66,"\| VOUCHER FOR CASH REIMBURSEMENT OF BENEFICIARY TRAVEL EXPENSES \|" Line Location: PRINT+1
Function Call: WRITE	Prompt: !?7,VAPA(1),?50,DGBTCC,?66,"\|" Line Location: PRINT+2
Function Call: WRITE	Prompt: ?67,I,"\|" Line Location: PRINT+3
Function Call: WRITE	Prompt: !?7,VAPA(4),?40,DGBTST,?50,$P(VAPA(11),U,2),?66,"\| 2. Name and Address of Issuing Health Care Facility",?131,"\|" Line Location: PRINT+4
Function Call: WRITE	Prompt: !?66,"\|",?131,"\|" Line Location: PRINT+5
Function Call: WRITE	Prompt: !?7,DGBTSSN,?21,$E($P(VADM(10),"^",2),1),?22,$P(VADM(5),"^"),?30,DGBTDOB,?50,DGBTDIV,?66,"\|",?88,$P(DGBTINS,"^"),?131,"\|" Line Location: PRINT+6
Function Call: WRITE	Prompt: $P(DGBTINS1,"^",2) Condition for execution: $P(DGBTINS1,"^")="" Line Location: PRINT+7
Function Call: WRITE	Prompt: DGBTINS2 Condition for execution: $P(DGBTINS1,"^")=""&($P(DGBTINS1,"^",2)="") Line Location: PRINT+7
Function Call: WRITE	Prompt: ?131,"\|" Line Location: PRINT+7
Function Call: WRITE	Prompt: !?7,VAEL(7),?19 Line Location: PRINT+8
Function Call: WRITE	Prompt: $P(^(0),"^",4) Line Location: PRINT+8
Function Call: WRITE	Prompt: ?21,DGBTSCP,?28 Line Location: PRINT+9
Function Call: WRITE	Prompt: $P(^(0),"^",3) Line Location: PRINT+9
Function Call: WRITE	Prompt: ?66,"\|",?88 Line Location: PRINT+10
Function Call: WRITE	Prompt: $P(DGBTINS1,"^",2) Condition for execution: $P(DGBTINS1,"^",2)'=""&($P(DGBTINS1,"^")'="") Line Location: PRINT+10
Function Call: WRITE	Prompt: DGBTINS2 Condition for execution: $P(DGBTINS1,"^")'=""&($P(DGBTINS1,"^",2)="") DGBTINS2 W:$P(DGBTINS1,"^")=""&($P(DGBTINS1,"^",2)'="") Line Location: PRINT+10
Function Call: WRITE	Prompt: ?131,"\|" Line Location: PRINT+10
Function Call: WRITE	Prompt: ?131,"\|" Line Location: PRINT+11
Function Call: WRITE	Prompt: !," 1. Patient Data Card Information",?66,"\|",?131,"\|" Line Location: PRINT+12
Function Call: WRITE	Prompt: !,"\| 3. Fiscal Symbols" Line Location: FISCAL+0
Function Call: WRITE	Prompt: ?30,$P(DGBTRATE,"^",4),?131,"\|" Line Location: FISCAL+1
Function Call: WRITE	Prompt: !,"\| 4. From (Place of Departure)",?66,"\| 5. To (Destination)",?131,"\|" Line Location: FISCAL+2
Function Call: WRITE	Prompt: !,"\|",?66,"\|",?131,"\|" Line Location: RMV+0
Function Call: WRITE	Prompt: !,"\|",?12,$P(DGBTVAR("D"),"^"),?66,"\|",?88,$P(DGBTVAR("T"),"^"),?131,"\|" Line Location: RMV+1
Function Call: WRITE	Prompt: $P(DGBTVAR("D"),"^",3) Condition for execution: $P(DGBTVAR("D"),"^",2)="" Line Location: RMV+2
Function Call: WRITE	Prompt: DGBTFCTY Condition for execution: $P(DGBTVAR("D"),"^",2)=""&($P(DGBTVAR("D"),"^",3)="") Line Location: RMV+2
Function Call: WRITE	Prompt: $P(DGBTVAR("T"),"^",3) Condition for execution: $P(DGBTVAR("T"),"^",2)="" Line Location: RMV+3
Function Call: WRITE	Prompt: DGBTTCTY Condition for execution: $P(DGBTVAR("T"),"^",2)=""&($P(DGBTVAR("T"),"^",3)="") Line Location: RMV+3
Function Call: WRITE	Prompt: ?131,"\|" Line Location: RMV+3
Function Call: WRITE	Prompt: !,"\|",?12 Line Location: RMV+4
Function Call: WRITE	Prompt: DGBTFCTY Condition for execution: $P(DGBTVAR("D"),"^",3)'="" $P(DGBTVAR("D"),"^",3) W:$P(DGBTVAR("D"),"^",2)'=""&($P(DGBTVAR("D"),"^",3)="") Line Location: RMV+4
Function Call: WRITE	Prompt: ?66,"\|",?88 Line Location: RMV+5
Function Call: WRITE	Prompt: DGBTTCTY Condition for execution: $P(DGBTVAR("T"),"^",3)'="" $P(DGBTVAR("T"),"^",3) W:$P(DGBTVAR("T"),"^",2)'=""&($P(DGBTVAR("T"),"^",3)="") Line Location: RMV+5
Function Call: WRITE	Prompt: ?131,"\|" Line Location: RMV+5
Function Call: WRITE	Prompt: !,"\|",?12 Line Location: RMV+6
Function Call: WRITE	Prompt: DGBTFCTY Condition for execution: $P(DGBTVAR("D"),"^",2)'=""&($P(DGBTVAR("D"),"^",3)'="") Line Location: RMV+6
Function Call: WRITE	Prompt: ?66,"\|",?88 Line Location: RMV+7
Function Call: WRITE	Prompt: DGBTTCTY Condition for execution: $P(DGBTVAR("T"),"^",2)'=""&($P(DGBTVAR("T"),"^",3)'="") Line Location: RMV+7
Function Call: WRITE	Prompt: ?131,"\|" Line Location: RMV+7
Function Call: WRITE	Prompt: !,"\|",I,"\|" Line Location: LINE+0

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DGBTCC	PRINT+2
>> DGBTDIV	PRINT+6
>> DGBTDOB	PRINT+6
>> DGBTFCTY	RMV+2, RMV+4, RMV+6
>> DGBTINS	PRINT+6, PRINT+11
>> DGBTINS1	PRINT+7, PRINT+10, PRINT+11
>> DGBTINS2	PRINT+7, PRINT+10, PRINT+11
>> DGBTRATE	FISCAL+1
>> DGBTSCP	PRINT+9
>> DGBTSSN	PRINT+6
>> DGBTST	PRINT+4
>> DGBTTCTY	RMV+3, RMV+5, RMV+7
>> DGBTVAR("D"	RMV+1, RMV+2, RMV+4, RMV+6
>> DGBTVAR("T"	RMV+1, RMV+3, RMV+5, RMV+7
I	PRINT!, PRINT+3!, LINE!*
U	PRINT+4
>> VADM(1	PRINT
>> VADM(10	PRINT+6
>> VADM(5	PRINT+6
>> VADM(9	PRINT
>> VAEL(1	PRINT+8
>> VAEL(2	PRINT+9
>> VAEL(7	PRINT+8
>> VAPA(1	PRINT+2
>> VAPA(11	PRINT+4
>> VAPA(4	PRINT+4

Customize PDF page

Package: Beneficiary Travel

Routine: DGBTCR1

Information

Source Information

Caller Graph

Caller Graph Total: 1

Entry Points

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences (* Changed, ! Killed)
^DIC(13 - [#13]	PRINT
^DIC(21 - [#21]	PRINT+9
^DIC(8 - [#8]	PRINT+8

Name	Comments	DBIA/ICR reference
PRINT
FISCAL
LINE
RMV	; W !,"\|",?66,"\|",?131,"\|"