Routine: DGBTR123

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

Package	Total	Caller Graph
Beneficiary Travel	1	DGBT CLERK REPORT

Name	Comments	DBIA/ICR reference
EN	;Entry point
SETPRT	;
MAIN(SUBS)	;
GETRECS	;
GETLINE	;
DIV()	;
CLERK()	;
GLMILE	;
GLMILEF	; Mileage full
GLMILET	; Mileage total
GLSP	;
GLSPF	; Special mode full
GLSPT	; Special mode total
PRINT	;
PRTXL	;
DLRAMT(X)	;
HDRMT	;
HDRSF	;
HDRST	;
QUIT	;

Name	Field # of Occurrence
DD^%DT	PRINT+3
COMMA^%DTC	DLRAMT+1
NOW^%DTC	PRINT+3
^%ZISC	SETPRT+8, SETPRT+10
GRANDMF^DGBTR3A	PRINT+55
GRANDMT^DGBTR3A	PRINT+56
GRANDSF^DGBTR3A	PRINT+57
GRANDST^DGBTR3A	PRINT+58
HDRMF^DGBTR3A	PRINT+13, PRINT+24
$$PAUSE^DGBTUTL	PRINT+59
$$SELEXCEL^DGBTUTL	SETPRT+1
$$YESNO^DGBTUTL	EN+14, EN+26
DEVICE^DGBTUTL	SETPRT+5
PRINTMSG^DGBTUTL	SETPRT+4
CLEAN^DILF	EN+3, EN+7, EN+10, EN+21, EN+24, EN+27, EN+33, EN+36, QUIT+2
$$GET1^DIQ	EN+13, MAIN+10, GETLINE+2, GLMILE+1, GLMILE+3, GLMILEF+9, GLMILEF+10, GLMILEF+14, GLMILEF+16, GLMILEF+27 , GLMILET+6, GLSP+1, GLSPF+9, GLSPF+10, PRINT+26, PRINT+34, PRINT+42, PRINT+44, PRINT+48, PRINT+51 , PRTXL+2, PRTXL+4, HDRMT+7, HDRSF+7, HDRST+7
^DIR	EN+6, EN+9, EN+17, EN+23, EN+30, EN+35
$$FMTE^XLFDT	GLMILEF+7, GLSPF+7, PRINT+26, PRINT+34, PRINT+42, PRINT+48, PRTXL+2, PRTXL+4, HDRMT+4, HDRSF+4 , HDRST+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No records found" Line Location: MAIN+12
Function Call: WRITE	Prompt: !!! Line Location: PRINT+54
Function Call: WRITE	Prompt: !,"REPORT HAS FINISHED" Line Location: PRINT+60
Function Call: WRITE	Prompt: U,$P(DATALINE,U,I) Line Location: PRTXL+2
Function Call: WRITE	Prompt: U,$$DLRAMT($P(DATALINE,U,I)) Line Location: PRTXL+7
Function Call: WRITE	Prompt: U,$P(DATALINE,U,I) Line Location: PRTXL+9
Function Call: WRITE	Prompt: U,$$DLRAMT($P(DATALINE,U,I)) Line Location: PRTXL+10
Function Call: WRITE	Prompt: @IOF Line Location: HDRMT+2
Function Call: WRITE	Prompt: "BT CLERK REPORT PRINT DATE: ",PDT,?(126-$L(PAGE)),"PAGE ",PAGE Line Location: HDRMT+3
Function Call: WRITE	Prompt: !,$$FMTE^XLFDT(STARTDT)," TO ",$$FMTE^XLFDT(ENDDT) Line Location: HDRMT+4
Function Call: WRITE	Prompt: !,"VERSION: TOTAL" Line Location: HDRMT+5
Function Call: WRITE	Prompt: !,"TYPE: MILEAGE" Line Location: HDRMT+6
Function Call: WRITE	Prompt: !,"DIVISION: ",$S(DGBTDIVN="ALL":"ALL",1:$$GET1^DIQ(40.8,DGBTDIVN,.01)) Line Location: HDRMT+7
Function Call: WRITE	Prompt: !,"CLERK: ",$S(CLERKALL:"ALL",1:CLERKNAME) Line Location: HDRMT+8
Function Call: WRITE	Prompt: !,$E(EQUAL,1,117) Line Location: HDRMT+9
Function Call: WRITE	Prompt: !,"DIVISION",?37,"ENTERED",?50,"ACCT",?55,"MILEAGE",?63,"CC FEE",?78,"MOST ECON",?90,"M&L",?103,"F&B" Line Location: HDRMT+10
Function Call: WRITE	Prompt: !,?5,"DED",?18,"PAYABLE",?29,"CLERK" Line Location: HDRMT+11
Function Call: WRITE	Prompt: !,$E(EQUAL,1,117) Line Location: HDRMT+12
Function Call: WRITE	Prompt: @IOF Line Location: HDRSF+2
Function Call: WRITE	Prompt: "BT CLERK REPORT PRINT DATE: ",PDT,?(126-$L(PAGE)),"PAGE ",PAGE Line Location: HDRSF+3
Function Call: WRITE	Prompt: !,$$FMTE^XLFDT(STARTDT)," TO ",$$FMTE^XLFDT(ENDDT) Line Location: HDRSF+4
Function Call: WRITE	Prompt: !,"VERSION: FULL" Line Location: HDRSF+5
Function Call: WRITE	Prompt: !,"TYPE: SPECIAL MODE" Line Location: HDRSF+6
Function Call: WRITE	Prompt: !,"DIVISION: ",$S(DGBTDIVN="ALL":"ALL",1:$$GET1^DIQ(40.8,DGBTDIVN,.01)) Line Location: HDRSF+7
Function Call: WRITE	Prompt: !,"CLERK: ",$S(CLERKALL:"ALL",1:CLERKNAME) Line Location: HDRSF+8
Function Call: WRITE	Prompt: !,$E(EQUAL,1,124) Line Location: HDRSF+9
Function Call: WRITE	Prompt: !,"PATIENT NAME",?32,"SSN",?43,"CLERK",?78,"CL DT",?92,"ENT DT",?109,"ACCT" Line Location: HDRSF+10
Function Call: WRITE	Prompt: !,?5,"DIVISION",?42,"MILEAGE",?50,"BASE RATE",?65,"NSNL",?79,"WAIT TIME",?90,"EX CREW",?102,"SPEC EQ",?116,"INV AMT" Line Location: HDRSF+11
Function Call: WRITE	Prompt: !,?5,"REMARKS" Line Location: HDRSF+12
Function Call: WRITE	Prompt: !,$E(EQUAL,1,124) Line Location: HDRSF+13
Function Call: WRITE	Prompt: @IOF Line Location: HDRST+2
Function Call: WRITE	Prompt: "BT CLERK REPORT PRINT DATE: ",PDT,?(126-$L(PAGE)),"PAGE ",PAGE Line Location: HDRST+3
Function Call: WRITE	Prompt: !,$$FMTE^XLFDT(STARTDT)," TO ",$$FMTE^XLFDT(ENDDT) Line Location: HDRST+4
Function Call: WRITE	Prompt: !,"VERSION: TOTAL" Line Location: HDRST+5
Function Call: WRITE	Prompt: !,"TYPE: SPECIAL MODE" Line Location: HDRST+6
Function Call: WRITE	Prompt: !,"DIVISION: ",$S(DGBTDIVN="ALL":"ALL",1:$$GET1^DIQ(40.8,DGBTDIVN,.01)) Line Location: HDRST+7
Function Call: WRITE	Prompt: !,"CLERK: ",$S(CLERKALL:"ALL",1:CLERKNAME) Line Location: HDRST+8
Function Call: WRITE	Prompt: !,$E(EQUAL,1,127) Line Location: HDRST+9
Function Call: WRITE	Prompt: !,"DIVISION",?37,"ENTERED",?50,"ACCT",?55,"MILEAGE",?63,"CLAIMS",?72,"BASE RATE",?87,"NSNL",?102,"WAIT TIME",?117,"EXTRA CREW" Line Location: HDRST+10
Function Call: WRITE	Prompt: !,?5,"SPEC EQ",?15,"INV AMT",?25,"CLERK" Line Location: HDRST+11
Function Call: WRITE	Prompt: !,$E(EQUAL,1,127) Line Location: HDRST+12
Routine Call	DIR Line Location: EN+6 EN+9 EN+17 EN+23 EN+30 EN+35

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^DGBT(392 - [#392]	GET1^DIQ
^DGBT(392.3 - [#392.3]	GET1^DIQ
^DG(40.8 - [#40.8]	GET1^DIQ
^DG(43 - [#43]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	EN+20
^DGBT(392 - [#392]	GETRECS+5, GETRECS+6, GETRECS+8, GETLINE+1, GLMILE+2, GLSP+2
^DPT - [#2]	GLMILEF+3, GLSPF+3
^TMP("DGBTRPTC"	MAIN+1!, MAIN+12, GETLINE+8*, GLMILEF+1, GLMILET+4, GLSPF+1, GLSPT+4, PRINT+18, PRINT+20, PRINT+21 , QUIT+1!

Name	Line Occurrences
$$CLERK	GETLINE+1
$$DIV	GETLINE+3
$$DLRAMT	GLMILEF+15, GLMILEF+17, GLMILEF+19, GLMILEF+21, GLMILEF+23, GLMILEF+25, GLSPF+13, GLSPF+15, GLSPF+17, GLSPF+19 , GLSPF+21, GLSPF+23, PRINT+43, PRINT+44, PRINT+49, PRINT+50, PRINT+51, PRTXL+7, PRTXL+10
GETLINE	GETRECS+8
GETRECS	MAIN+11
GLMILE	GETLINE+6
GLMILEF	GLMILE+4
GLMILET	GLMILE+5
GLSP	GETLINE+7
GLSPF	GLSP+3
GLSPT	GLSP+4
HDRMT	PRINT+14, PRINT+40
HDRSF	PRINT+15, PRINT+32
HDRST	PRINT+16, PRINT+46
MAIN	SETPRT+9
PRINT	MAIN+13
PRTXL	PRINT+22
QUIT	EN+38, MAIN+12
SETPRT	EN+38

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EN+1~, PRINT+3
%Y	EN+1~
CCFEE	EN+1~, GLMILE+3*, GLMILEF+15, GLMILET+7
CLERK	EN+1~, EN+28, EN+32, SETPRT+3, MAIN+9*, MAIN+10, CLERK+2
CLERKALL	EN+1~, EN+26, EN+29, SETPRT+3, MAIN+8, CLERK+1, HDRMT+8, HDRSF+8, HDRST+8
CLERKNAME	EN+1~, MAIN+10*, HDRMT+8, HDRSF+8, HDRST+8
COLWID	SETPRT+4~*
DATALINE	EN+1~, GETLINE+4, GETLINE+8, GLMILEF+4, GLMILEF+6, GLMILEF+7, GLMILEF+8, GLMILEF+9, GLMILEF+10, GLMILEF+11 , GLMILEF+12, GLMILEF+14, GLMILEF+15, GLMILEF+17, GLMILEF+19, GLMILEF+21, GLMILEF+23, GLMILEF+25, GLMILEF+27, GLMILET+4 , GLMILET+5, GLMILET+6, GLMILET+8, GLMILET+10, GLMILET+12, GLMILET+14, GLMILET+16, GLSPF+4, GLSPF+6, GLSPF+7 , GLSPF+8, GLSPF+9, GLSPF+10, GLSPF+11, GLSPF+13, GLSPF+15, GLSPF+17, GLSPF+19, GLSPF+21, GLSPF+23 , GLSPF+25, GLSPT+4, GLSPT+5, GLSPT+7, GLSPT+9, GLSPT+11, GLSPT+13, GLSPT+15, GLSPT+17, GLSPT+19 , PRINT+21*, PRINT+26, PRINT+27, PRINT+28, PRINT+29, PRINT+30, PRINT+34, PRINT+35, PRINT+36, PRINT+37 , PRINT+38, PRINT+42, PRINT+43, PRINT+44, PRINT+48, PRINT+49, PRINT+50, PRINT+51, PRTXL+2, PRTXL+6 , PRTXL+7, PRTXL+9, PRTXL+10
DFN	EN+1~, GLMILEF+2, GLMILEF+3, GLSPF+2, GLSPF+3
DGBTDIVN	EN+1~, EN+14, EN+15, EN+19, EN+20, SETPRT+3, MAIN+5*, DIV+1, DIV+2, HDRMT+7 , HDRSF+7, HDRST+7
DGBTEXC	EN+1~, EN+4, SETPRT+1, SETPRT+2, SETPRT+3, SETPRT+4, SETPRT+5, MAIN+2*, GLMILEF+8, GLSPF+8 , PRINT+4, PRINT+13, PRINT+14, PRINT+15, PRINT+16, PRINT+22, PRINT+53, PRINT+59, DLRAMT+1
DGBTQ	EN+1~, SETPRT+6
DIR	EN+5!, EN+6!, EN+9!, EN+17!, EN+22!, EN+23!, EN+30!, EN+34!, EN+35!
DIR("A"	EN+6, EN+9, EN+23, EN+30, EN+35*
DIR(0	EN+6, EN+9, EN+17, EN+23, EN+30, EN+35
>> DIROUT	EN+7, EN+10
>> DIRUT	EN+7, EN+10, EN+16, EN+18, EN+21, EN+24, EN+27, EN+31, EN+33, EN+36
>> DTOUT	EN+16, EN+18, EN+21, EN+24, EN+27, EN+31, EN+33, EN+36
>> DUOUT	EN+16, EN+18, EN+21, EN+24, EN+27, EN+31, EN+33, EN+36
ENDDT	EN+1~, EN+11, SETPRT+3, MAIN+4, GETRECS+6, HDRMT+4, HDRSF+4, HDRST+4
ENTRY	EN+1~, GETRECS+5, GETRECS+6, GETRECS+8
EQUAL	EN+1~, PRINT+2*, HDRMT+9, HDRMT+12, HDRSF+9, HDRSF+13, HDRST+9, HDRST+12
GRAND	EN+1~
GRAND(	GETRECS+1, GETRECS+2, GETRECS+3, GETRECS+4
GRAND("BASE R	ATE" , GLSPF+14, GLSPT+10
GRAND("CC FEE	" , GLMILEF+16, GLMILET+7
GRAND("CLAIMS"	GLMILEF+5, GLSPF+5, GLSPT+6*
GRAND("DED"	GLMILEF+24, GLMILET+15
GRAND("ECON"	GLMILEF+18, GLMILET+9
GRAND("EXTRA	CREW" , GLSPF+20, GLSPT+16
GRAND("F&B"	GLMILEF+22, GLMILET+13
GRAND("INVOIC	E AMT" , GLSPF+24, GLSPT+20
GRAND("M&L"	GLMILEF+20, GLMILET+11
GRAND("MILE"	GLSPF+12, GLSPT+8
GRAND("NSNL"	GLSPF+16, GLSPT+12
GRAND("PAY"	GLMILEF+26, GLMILET+17
GRAND("SPECIA	L EQUIPMENT" , GLSPF+22, GLSPT+18
GRAND("TOT MI	LE" , GLMILEF+13*
GRAND("WAIT T	IME" , GLSPF+18, GLSPT+14
I	EN+1~, GETRECS+1, GETRECS+2, GETRECS+3, GETRECS+4, GETRECS+7, GETRECS+8, GETLINE+1, GETLINE+2, GLMILE+1 , GLMILE+2, GLMILET+6, GLSP+1, GLSP+2, PRTXL+2, PRTXL+7, PRTXL+9, PRTXL+10
IO	SETPRT+11, PRINT+1
IO("Q"	SETPRT+8
IOF	HDRMT+2, HDRSF+2, HDRST+2
IOSL	PRINT+23, PRINT+31, PRINT+39, PRINT+45, PRINT+54
IOST	PRINT+59, PRINT+60
LINEM	EN+1~, GLMILE+2*, GLMILEF+11, GLMILEF+12, GLMILEF+13, GLMILEF+19, GLMILEF+20, GLMILEF+21, GLMILEF+22, GLMILET+5 , GLMILET+10, GLMILET+11, GLMILET+12, GLMILET+13
LINESP	EN+1~, GLSP+2*, GLSPF+11, GLSPF+12, GLSPF+13, GLSPF+14, GLSPF+15, GLSPF+16, GLSPF+17, GLSPF+18 , GLSPF+19, GLSPF+20, GLSPF+21, GLSPF+22, GLSPF+23, GLSPF+24, GLSPF+25, GLSPT+7, GLSPT+8, GLSPT+9 , GLSPT+10, GLSPT+11, GLSPT+12, GLSPT+13, GLSPT+14, GLSPT+15, GLSPT+16, GLSPT+17, GLSPT+18, GLSPT+19 , GLSPT+20
LINEZERO	EN+1~, GETLINE+1*, GETLINE+5, DIV+2, CLERK+2, GLMILE+3, GLMILEF+2, GLMILEF+7, GLMILEF+9, GLMILEF+10 , GLMILEF+14, GLMILEF+16, GLMILEF+17, GLMILEF+18, GLMILEF+23, GLMILEF+24, GLMILEF+25, GLMILEF+26, GLMILEF+27, GLMILET+1 , GLMILET+2, GLMILET+8, GLMILET+9, GLMILET+14, GLMILET+15, GLMILET+16, GLMILET+17, GLSPF+2, GLSPF+7, GLSPF+9 , GLSPF+10, GLSPT+1, GLSPT+2
PAGE	EN+1~, PRINT+2, HDRMT+1, HDRMT+3, HDRSF+1, HDRSF+3, HDRST+1, HDRST+3
PATZERO	EN+1~, GLMILEF+3, GLMILEF+4, GLMILEF+6, GLSPF+3, GLSPF+4, GLSPF+6
PDT	EN+1~, PRINT+3*, HDRMT+3, HDRSF+3, HDRST+3
POP	EN+1~
PROMPT	EN+2~, PRINT+17*, PRINT+18, PRINT+20, PRINT+23, PRINT+31, PRINT+39, PRINT+45
REPTYPE	EN+2~, EN+37, SETPRT+3, MAIN+7, GETRECS+1, GETRECS+2, GETRECS+3, GETRECS+4, GLMILE+4, GLMILE+5 , GLSP+3, GLSP+4, PRINT+5, PRINT+7, PRINT+9, PRINT+11, PRINT+13, PRINT+14, PRINT+15, PRINT+16 , PRINT+23, PRINT+25, PRINT+31, PRINT+33, PRINT+39, PRINT+41, PRINT+45, PRINT+47, PRINT+55, PRINT+56 , PRINT+57, PRINT+58, PRTXL+1, PRTXL+3
SQ1	EN+2~, GETLINE+5, GETLINE+8, GLMILEF+1, GLMILET+1, GLMILET+2, GLMILET+4, GLSPF+1, GLSPT+1, GLSPT+2* , GLSPT+4, PRINT+17, PRINT+18, PRINT+20, PRINT+21, PRINT+26, PRINT+34, PRINT+42, PRINT+44, PRINT+48 , PRINT+51, PRTXL+2, PRTXL+4
SQ2	EN+2~, GETLINE+8, GLMILEF+1, GLMILET+3, GLMILET+4, GLSPF+1, GLSPT+3, GLSPT+4, PRINT+19, PRINT+20 , PRINT+21
STARTDT	EN+2~, EN+8, EN+9, SETPRT+3, MAIN+3, GETRECS+5, HDRMT+4, HDRSF+4, HDRST+4
SUBS	EN+2~, SETPRT+3*, SETPRT+9, MAIN~, MAIN+2, MAIN+3, MAIN+4, MAIN+5, MAIN+6, MAIN+7 , MAIN+8, MAIN+9
TYPE	EN+2~, EN+25, SETPRT+3, MAIN+6, GETRECS+1, GETRECS+2, GETRECS+3, GETRECS+4, GETLINE+6, GETLINE+7 , PRINT+5, PRINT+7, PRINT+9, PRINT+11, PRINT+13, PRINT+14, PRINT+15, PRINT+16, PRINT+23, PRINT+25 , PRINT+31, PRINT+33, PRINT+39, PRINT+41, PRINT+45, PRINT+47, PRINT+55, PRINT+56, PRINT+57, PRINT+58 , PRTXL+5, PRTXL+8
U	EN+32, SETPRT+3, MAIN+2, MAIN+3, MAIN+4, MAIN+5, MAIN+6, MAIN+7, MAIN+8, MAIN+9 , DIV+2, GLMILE+3, GLMILEF+2, GLMILEF+4, GLMILEF+6, GLMILEF+7, GLMILEF+8, GLMILEF+9, GLMILEF+10, GLMILEF+11 , GLMILEF+12, GLMILEF+13, GLMILEF+14, GLMILEF+15, GLMILEF+16, GLMILEF+17, GLMILEF+18, GLMILEF+19, GLMILEF+20, GLMILEF+21 , GLMILEF+22, GLMILEF+23, GLMILEF+24, GLMILEF+25, GLMILEF+26, GLMILEF+27, GLMILET+1, GLMILET+2, GLMILET+5, GLMILET+6 , GLMILET+8, GLMILET+9, GLMILET+10, GLMILET+11, GLMILET+12, GLMILET+13, GLMILET+14, GLMILET+15, GLMILET+16, GLMILET+17 , GLSPF+2, GLSPF+4, GLSPF+6, GLSPF+7, GLSPF+8, GLSPF+9, GLSPF+10, GLSPF+11, GLSPF+12, GLSPF+13 , GLSPF+14, GLSPF+15, GLSPF+16, GLSPF+17, GLSPF+18, GLSPF+19, GLSPF+20, GLSPF+21, GLSPF+22, GLSPF+23 , GLSPF+24, GLSPF+25, GLSPT+1, GLSPT+2, GLSPT+5, GLSPT+7, GLSPT+8, GLSPT+9, GLSPT+10, GLSPT+11 , GLSPT+12, GLSPT+13, GLSPT+14, GLSPT+15, GLSPT+16, GLSPT+17, GLSPT+18, GLSPT+19, GLSPT+20, PRINT+26 , PRINT+27, PRINT+28, PRINT+29, PRINT+30, PRINT+34, PRINT+35, PRINT+36, PRINT+37, PRINT+38, PRINT+42 , PRINT+43, PRINT+44, PRINT+48, PRINT+49, PRINT+50, PRINT+51, PRTXL+2, PRTXL+4, PRTXL+6, PRTXL+7 , PRTXL+9, PRTXL+10
X	EN+2~, DLRAMT~, DLRAMT+1, DLRAMT+2
X2	EN+2~, EN+4*
X3	EN+2~
Y	EN+2~, EN+8, EN+11, EN+19, EN+25, EN+32, EN+37, PRINT+3, PRINT+59
ZTQUEUED	EN+2~, SETPRT+8, SETPRT+10

Customize PDF page

Package: Beneficiary Travel

Routine: DGBTR123

Information

Source Information

Call Graph

Call Graph Total: 9

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

Local Variables

Legend: