Routine: DGBTR17

Package	Total	Call Graph
VA FileMan	5	DD^%DT (COMMA,NOW)^%DTC CLEAN^DILF $$GET1^DIQ ^DIR
Kernel	2	^%ZISC $$FMTE^XLFDT
Beneficiary Travel	1	($$PAUSE,$$SELEXCEL,$$YESNO,DEVICE,PRINTMSG)^DGBTUTL

Package	Total	Caller Graph
Beneficiary Travel	1	DGBT FISCAL REPORT

Name	Comments	DBIA/ICR reference
EN	; Entry point
DIVISN	; if MED CTR DIV file set up (first record) and record does not exist, write warning and exit
MAIN	;
MAIN1(DGBTEXCEL,STARTDT,ENDDT,DGBTDIVI,DGBTDIVN,DGBTDIV)	;
PRINT	;
GETRECS	;
QUIT	;
REC	;
FAC(J)	;
MASLIN()	;
TOTMONTH	;
INSTIT	; check for pointer to institution file and for address information on institution
PRT	;
HDR	;
GTOT	;
DLRAMT(X)	;

Name	Field # of Occurrence
DD^%DT	PRINT+7
COMMA^%DTC	DLRAMT+1
NOW^%DTC	PRINT+7
^%ZISC	MAIN+16
$$PAUSE^DGBTUTL	PRINT+16
$$SELEXCEL^DGBTUTL	MAIN+8
$$YESNO^DGBTUTL	DIVISN+4
DEVICE^DGBTUTL	MAIN+11
PRINTMSG^DGBTUTL	MAIN+10
CLEAN^DILF	EN+5, DIVISN+11, QUIT+2
$$GET1^DIQ	GETRECS+3, GETRECS+8, GETRECS+9, GETRECS+10, GETRECS+14, REC+2, REC+3, REC+14, REC+17, REC+23 , REC+24, REC+25, REC+31, REC+32, REC+33, REC+37, REC+38, REC+39, REC+64, REC+65 , REC+67, REC+68, FAC+2, TOTMONTH+9, TOTMONTH+10, TOTMONTH+12, TOTMONTH+13, INSTIT+1
^DIR	DIVISN+7, MAIN+2, MAIN+5, PRT+9
$$FMTE^XLFDT	REC+61, HDR+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"WARNING...MEDICAL CENTER DIVISION FILE IS NOT SET UP",!,"USE THE ADT PARAMETER OPTION FILE TO SET UP DIVISION" Line Location: DIVISN+1
Function Call: WRITE	Prompt: !,"NO VOUCHERS FOUND" Line Location: MAIN1+4
Function Call: WRITE	Prompt: !,"REPORT HAS FINISHED" Line Location: PRINT+17
Function Call: WRITE	Prompt: !,$P(WRTLIN,U),?32,$P(WRTLIN,U,8),?45,$P(WRTLIN,U,37),?67,$P(WRTLIN,U,40),?81,$P(WRTLIN,U,38),?118,$P(WRTLIN,U,42) Line Location: PRT+12
Function Call: WRITE	Prompt: !,?5,$P(WRTLIN,U,2)," ",$P(WRTLIN,U,3)," ",$P(WRTLIN,U,4) Line Location: PRT+13
Function Call: WRITE	Prompt: !,?5,$P(WRTLIN,U,5),?22,$P(WRTLIN,U,6),?26,$P(WRTLIN,U,7),?38,$P(WRTLIN,U,9)," ",$P(WRTLIN,U,10) Line Location: PRT+14
Function Call: WRITE	Prompt: !,?5,$P(WRTLIN,U,11)," ",$P(WRTLIN,U,12)," ",$P(WRTLIN,U,13)," ",$P(WRTLIN,U,14)," ",$P(WRTLIN,U,15) Line Location: PRT+15
Function Call: WRITE	Prompt: !,?5,$P(WRTLIN,U,12)," ",$P(WRTLIN,U,13)," ",$P(WRTLIN,U,14)," ",$P(WRTLIN,U,15) Line Location: PRT+16
Function Call: WRITE	Prompt: !,?5,$P(WRTLIN,U,16)," ",$P(WRTLIN,U,17)," ",$P(WRTLIN,U,18) Line Location: PRT+17
Function Call: WRITE	Prompt: !,?5,$P(WRTLIN,U,19)," ",$P(WRTLIN,U,20)," ",$P(WRTLIN,U,21) Line Location: PRT+18
Function Call: WRITE	Prompt: !,?5,$P(WRTLIN,U,22)," ",$P(WRTLIN,U,23)," ",$P(WRTLIN,U,24) Line Location: PRT+19
Function Call: WRITE	Prompt: !,?5,$P(WRTLIN,U,25)," ",$P(WRTLIN,U,26)," ",$P(WRTLIN,U,27) Line Location: PRT+20
Function Call: WRITE	Prompt: !,?5,$P(WRTLIN,U,28),?11,$P(WRTLIN,U,29),?18,$P(WRTLIN,U,30),?30,$P(WRTLIN,U,31),?42,$P(WRTLIN,U,32),?54,$P(WRTLIN,U,33),?67,$P(WRTLIN,U,34) Line Location: PRT+21
Function Call: WRITE	Prompt: ?79,$P(WRTLIN,U,35),?90,$P(WRTLIN,U,36),?102,$P(WRTLIN,U,44),?106,$P(WRTLIN,U,45),?110,$P(WRTLIN,U,46),?121,$P(WRTLIN,U,43) Line Location: PRT+22
Function Call: WRITE	Prompt: !,?5,$P(WRTLIN,U,41),?87,$P(WRTLIN,U,15) Line Location: PRT+23
Function Call: WRITE	Prompt: @IOF Line Location: HDR+2
Function Call: WRITE	Prompt: "BT ELECTRONIC VOUCHER REPORT PRINT DATE: ",PDT,?(126-$L(PAGE)),"PAGE ",PAGE Line Location: HDR+3
Function Call: WRITE	Prompt: !,$$FMTE^XLFDT(STARTDT)," TO ",$$FMTE^XLFDT(ENDDT) Line Location: HDR+4
Function Call: WRITE	Prompt: !,"DIVISION: ",$S(DGBTDIVN="ALL":"ALL",1:DGBTDIVI) Line Location: HDR+5
Function Call: WRITE	Prompt: !,$E(EQUAL,1,127) Line Location: HDR+6
Function Call: WRITE	Prompt: !,"NAME",?32,"SSN",?45,"CLAIM DATE",?67,"ENTRY DATE",?81,"CLERK",?118,"ACCT" Line Location: HDR+7
Function Call: WRITE	Prompt: !,?5,"ADDRESS" Line Location: HDR+8
Function Call: WRITE	Prompt: !?5,"CITY",?22,"ST",?26,"ZIP",?38,"FACILITY" Line Location: HDR+9
Function Call: WRITE	Prompt: !,?5,"FACILITY ADDRESS" Line Location: HDR+10
Function Call: WRITE	Prompt: !,?5,"DEPARTURE" Line Location: HDR+11
Function Call: WRITE	Prompt: !,?5,"DEPARTURE" Line Location: HDR+12
Function Call: WRITE	Prompt: !,?5,"DESTINATION" Line Location: HDR+13
Function Call: WRITE	Prompt: !,?5,"DESTINATION" Line Location: HDR+14
Function Call: WRITE	Prompt: !,?5,"MILES",?11,"RATE",?18,"ALLOW",?30,"M&L",?42,"F&B",?54,"TOTAL",?67,"ECON",?79,"TOTAL",?90,"PAYABLE",?102,"1W",?106,"RT",?110,"DED",?121,"CC FEE" Line Location: HDR+15
Function Call: WRITE	Prompt: !,?5,"REMARKS",?87,"FISCAL SYMBOLS" Line Location: HDR+16
Function Call: WRITE	Prompt: !,$E(EQUAL,1,127) Line Location: HDR+17
Function Call: WRITE	Prompt: !,$E(EQUAL,1,127) Line Location: GTOT+1
Function Call: WRITE	Prompt: !,"GRAND TOTALS" Line Location: GTOT+2
Function Call: WRITE	Prompt: !,"MILES",?7,"CLMS",?14,"ALLOW",?26,"M&L",?38,"F&B",?50,"TOTAL",?63,"ECON",?75,"TOTAL",?86,"PAYABLE",?98,"1W",?102,"RT",?106,"DED",?117,"CC FEE" Line Location: GTOT+3
Function Call: WRITE	Prompt: !,GRAND("MILES"),?7,GRAND("CLAIMS"),?14,$$DLRAMT(GRAND("ALLOW")),?26,$$DLRAMT(GRAND("M&L")),?38,$$DLRAMT(GRAND("F&B")),?50,$$DLRAMT(GRAND("ALLOW TOT")) Line Location: GTOT+4
Function Call: WRITE	Prompt: ?63,$$DLRAMT(GRAND("ECON")),?75,$$DLRAMT(GRAND("ECON TOT")),?86,$$DLRAMT(GRAND("PAYABLE")),?98,GRAND("1W"),?102,GRAND("RT") Line Location: GTOT+5
Function Call: WRITE	Prompt: ?106,$$DLRAMT(GRAND("DED")),?117,$$DLRAMT(GRAND("CC FEE")) Line Location: GTOT+6
Function Call: WRITE	Prompt: !,$E(EQUAL,1,127) Line Location: GTOT+7
Routine Call	DIR Line Location: DIVISN+7 MAIN+2 MAIN+5 PRT+9

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DGBT(392 - [#392]	GET1^DIQ
^DGBT(392.3 - [#392.3]	GET1^DIQ
^DIC(4 - [#4]	GET1^DIQ
^DG(40.8 - [#40.8]	GET1^DIQ
^DIC(5 - [#5]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	DIVISN+1, DIVISN+13
^DG(43 - [#43]	DIVISN+3
^DG(43.1 - [#43.1]	MASLIN+2, MASLIN+3, MASLIN+5
^DGBT(392 - [#392]	GETRECS+11, GETRECS+12, GETRECS+14, REC+8, REC+28, REC+34, REC+40, REC+66, TOTMONTH+4, TOTMONTH+5 , TOTMONTH+7
^DIC(4 - [#4]	GETRECS+4, REC+4
^DPT - [#2]	REC+10, REC+18
^TMP("DGBTVRPT"	EN+4!, MAIN1+1!, MAIN1+4, PRINT+11, PRINT+12, PRINT+13!, QUIT+1!, REC+12, REC+88*, PRT+1

Name	Line Occurrences
$$DLRAMT	REC+45, REC+48, REC+51, REC+53, REC+56, REC+58, REC+60, REC+69, REC+71, REC+75 , GTOT+4, GTOT+5, GTOT+6
$$FAC	GETRECS+14, TOTMONTH+6
$$MASLIN	REC+19
GETRECS	MAIN1+2
GTOT	PRINT+15
HDR	PRINT+9, PRT+10
INSTIT	DIVISN+10, DIVISN+13
MAIN	DIVISN+3, DIVISN+15
MAIN1	MAIN+15
PRINT	MAIN1+5
PRT	PRINT+12
QUIT	DIVISN+3, DIVISN+16
REC	GETRECS+14
TOTMONTH	REC+72

Name	Field # of Occurrence
^("GL"	DIVISN+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EN+1~, PRINT+7
%Y	EN+1~
ACCOUNT	EN+1~, REC+67*, REC+68
ADDRLIN	EN+1~, REC+18*, REC+20, REC+21, REC+22
ALLOW	EN+1~, REC+44*, REC+45, REC+46, REC+53, REC+54
CCFEE	EN+1~, REC+14*, REC+69, REC+70
COLWID	MAIN+10~*
DED	EN+1~, REC+75, REC+78, TOTMONTH+3, TOTMONTH+12
DEPARTLIN	EN+1~, REC+28*, REC+29, REC+30
DESTLIN	EN+1~, REC+34*, REC+35, REC+36
DFN	EN+1~, REC+9*, REC+10, REC+17, REC+18, REC+23, REC+25, TOTMONTH+4, TOTMONTH+5
DGBTDIV	EN+1~, DIVISN+5, MAIN+15, MAIN1~, GETRECS+3, GETRECS+4, GETRECS+8, GETRECS+10, REC+2, REC+3 , REC+4, INSTIT+1*
DGBTDIVI	EN+1~, DIVISN+5, DIVISN+9, DIVISN+13, MAIN+15, MAIN1~, REC+2, HDR+5
DGBTDIVN	EN+1~, DIVISN+4, DIVISN+5, DIVISN+9, DIVISN+13, MAIN+15, MAIN1~, GETRECS+2, REC+1, FAC+1 , FAC+2, INSTIT+1, HDR+5
DGBTEXCEL	EN+1~, MAIN+8*, MAIN+9, MAIN+10, MAIN+11, MAIN+15, MAIN1~, PRINT+2, PRINT+9, PRINT+14 , PRINT+15, PRINT+16, REC+62, PRT+2, PRT+6, DLRAMT+1
DGBTQ	EN+1~, MAIN+12
DIR	DIVISN+7!, MAIN+1!, MAIN+2!, MAIN+5!, PRT+8!, PRT+9!
DIR("A"	MAIN+2, MAIN+5, PRT+9*
DIR(0	DIVISN+7, MAIN+2, MAIN+5, PRT+9
>> DIROUT	MAIN+3, MAIN+6, MAIN1+3
>> DIRUT	DIVISN+6, DIVISN+8, DIVISN+11, MAIN+3, MAIN+6, MAIN1+3
>> DTOUT	DIVISN+6, DIVISN+8, DIVISN+11
DTRAY	TOTMONTH+1~
DTRAY(	TOTMONTH+8, TOTMONTH+11*
>> DUOUT	DIVISN+6, DIVISN+8, DIVISN+11
ECON	EN+1~, REC+55*, REC+56, REC+57, REC+58, REC+59
ENDDT	EN+1~, MAIN+7*, MAIN+15, MAIN1~, GETRECS+12, HDR+4
ENTRY	EN+1~, GETRECS+11, GETRECS+12, GETRECS+14
EQUAL	EN+1~, PRINT+6*, HDR+6, HDR+17, GTOT+1, GTOT+7
ERR	EN+1~, DIVISN+3, DIVISN+14, MAIN1+3, REC+72
FACLIN	EN+1~, GETRECS+4, GETRECS+5, GETRECS+6, GETRECS+7, REC+4, REC+5, REC+6, REC+7
FERRIES	EN+1~, REC+50*, REC+51, REC+52, REC+53, REC+54
FIRSTPAGE	EN+2~, PRINT+8, PRT+6, PRT+11
GRAND	EN+2~
GRAND(	GETRECS+1*
GRAND("1W"	REC+76*, GTOT+5
GRAND("ALLOW	TOT" , REC+54*, GTOT+4
GRAND("ALLOW"	REC+46*, GTOT+4
GRAND("CC FEE	" , REC+70*, GTOT+6
GRAND("CLAIMS"	REC+13*, GTOT+4
GRAND("DED"	REC+78*, GTOT+6
GRAND("ECON T	OT" , REC+59*, GTOT+5
GRAND("ECON"	REC+57*, GTOT+5
GRAND("F&B"	REC+52*, GTOT+4
GRAND("M&L"	REC+49*, GTOT+4
GRAND("MILES"	REC+42*, GTOT+4
GRAND("PAYABLE"	REC+61*, GTOT+5
GRAND("RT"	REC+77*, GTOT+5
I	EN+2~, GETRECS+1, GETRECS+13, GETRECS+14*, REC+2, REC+8, REC+11, REC+14, REC+28, REC+31 , REC+33, REC+34, REC+37, REC+39, REC+40, REC+61, REC+64, REC+65, REC+66, REC+67 , MASLIN+2, MASLIN+3, TOTMONTH+4, TOTMONTH+5
II	EN+2~, REC+20, REC+21, REC+29, REC+35, TOTMONTH+2, TOTMONTH+4, TOTMONTH+5*, TOTMONTH+6, TOTMONTH+7 , TOTMONTH+8, TOTMONTH+9, TOTMONTH+10, TOTMONTH+11, TOTMONTH+12, TOTMONTH+13
IO	MAIN+17, PRINT+1
IOF	HDR+2
IOSL	PRT+6, PRT+7
IOST	PRINT+16, PRINT+17, PRT+7
J	FAC~, FAC+2
LINEZERO	EN+2~, REC+8*, REC+9, REC+55, REC+60, REC+61, REC+71
MASDATE	EN+2~, MASLIN+3*
MASLIN	EN+2~, REC+19*, REC+27, REC+43
MASRATE	EN+2~, MASLIN+1, MASLIN+2, MASLIN+3*, MASLIN+4, MASLIN+5
MEALS	EN+2~, REC+47*, REC+48, REC+49, REC+53, REC+54, REC+58, REC+59
MILES	EN+2~, REC+40*, REC+41, REC+47, REC+50
MILESRATE	EN+2~, REC+43*, REC+44
MILESTRAV	EN+2~, REC+41*, REC+42, REC+44
PAGE	EN+2~, PRINT+6, HDR+1, HDR+3
PATSTATE	EN+2~, GETRECS+8, GETRECS+9, REC+23, REC+24, REC+31, REC+32, REC+37, REC+38
PATZERO	EN+2~, REC+10*, REC+11, REC+15, REC+16, REC+26
PDT	EN+2~, PRINT+7*, HDR+3
POP	EN+2~
PROMPT	PRINT+5~, PRINT+6, PRINT+11, PRINT+12, PRINT+14, PRT+6, PRT+7, PRT+9
RAY	EN+2~
RAY("ACC DED"	, REC+71*, REC+87
RAY("ACCOUNT"	REC+68*, REC+86
RAY("CERT OFF	ICIAL" , REC+65*, REC+85
RAY("CLAIM DA	TE" , REC+61, REC+62, REC+85
RAY("COMMON C	ARRIER FEE" , REC+69*, REC+86
RAY("DEDUCTIBLE"	REC+75*, REC+87
RAY("DEPARTUR	E " , REC+29, E 1" , REC+81, E 2" , REC+81, E 3" , REC+82, E CITY" , REC+30 , REC+82, E STATE" , REC+32, REC+82, E ZIP" , REC+33, REC+82
RAY("DESTINAT	ION " , REC+35, ION 1" , REC+82, ION 2" , REC+83, ION 3" , REC+83, ION CITY" , REC+36 , REC+83, ION STATE" , REC+38, REC+83, ION ZIP" , REC+39, REC+83
RAY("ECONOMICAL"	REC+56*, REC+85
RAY("FACILITY	ADDR 1" , GETRECS+5, REC+5, REC+80, ADDR 2" , GETRECS+6, REC+6, REC+80, CITY" , GETRECS+7* , REC+7, REC+80, NAME" , GETRECS+3, REC+3, REC+11, REC+80, STATE" , GETRECS+9, REC+81 , ZIP" , GETRECS+10*, REC+81
RAY("FERRIES"	REC+51*, REC+84
RAY("FISCAL S	YMBOL" , REC+27*, REC+81
RAY("MEALS LO	DGING" , REC+48*, REC+84
RAY("MILEAGE	ALLOWANCE" , REC+45, REC+84, TOTAL" , REC+53, REC+85
RAY("MILES RA	TE" , REC+43*, REC+84
RAY("MILES TR	AVELED" , REC+41*, REC+84
RAY("NAME"	REC+15*, REC+79
RAY("ONE WAY"	, REC+73*, REC+86
RAY("PAT ADDR	" , REC+21*, 1" , REC+79, 2" , REC+79, 3" , REC+79
RAY("PAT CITY	" , REC+22*, REC+79
RAY("PAT STAT	E" , REC+24*, REC+79
RAY("PAT ZIP"	, REC+25*, REC+79
RAY("PAYABLE"	REC+60*, REC+85
RAY("PAYEE SI	GNATURE" , REC+63*
RAY("REMARKS"	REC+66*, REC+86
RAY("ROUND TR	IP" , REC+74*, REC+86
RAY("SOCIAL S	ECURITY" , REC+26*, REC+80
RAY("TRANS TO	TAL" , REC+58*, REC+85
RAY("VOUCHER	DATE" , REC+64*, REC+86
SQ1	EN+2~, PRINT+10, PRINT+11, PRINT+12, REC+11*, REC+12, REC+88, PRT+1
SQ2	EN+2~, PRINT+11, PRINT+12, REC+12*, REC+88, PRT+1
STARTDT	EN+2~, MAIN+4*, MAIN+5, MAIN+15, MAIN1~, GETRECS+11, HDR+4
TMPADD	EN+2~, REC+17*, REC+18, REC+23, REC+25
TRIPS	EN+2~
TRIPS(	TOTMONTH+2, TOTMONTH+14
TRIPS(1	REC+73, REC+76
TRIPS(2	REC+74, REC+77
TRIPTYP	EN+3~, TOTMONTH+13*, TOTMONTH+14
U	DIVISN+3, DIVISN+9, DIVISN+13, REC+60, REC+61, REC+71, REC+87, PRT+3, PRT+4, PRT+5 , PRT+6, PRT+7, PRT+12, PRT+13, PRT+14, PRT+15, PRT+16, PRT+17, PRT+18, PRT+19 , PRT+20, PRT+21, PRT+22, PRT+23
WRTLIN	EN+3~, REC+16, REC+20, REC+79, REC+80, REC+81, REC+82, REC+83, REC+84, REC+85* , REC+86, REC+87, REC+88, PRT+1*, PRT+3, PRT+4, PRT+5, PRT+12, PRT+13, PRT+14 , PRT+15, PRT+16, PRT+17, PRT+18, PRT+19, PRT+20, PRT+21, PRT+22, PRT+23
X	EN+3~, DIVISN+1*, DLRAMT~, DLRAMT+1, DLRAMT+2
X2	EN+3~, EN+6*
X3	EN+3~
Y	EN+3~, DIVISN+3, DIVISN+9, MAIN+4, MAIN+7, PRINT+7, PRINT+16, PRT+9
ZTQUEUED	EN+3~, MAIN+16

Customize PDF page

Package: Beneficiary Travel

Routine: DGBTR17

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: