Routine: DGBTR125

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

Package	Total	Caller Graph
Beneficiary Travel	1	DGBT SPECIAL MODE REPORT

Name	Comments	DBIA/ICR reference
EN	;Entry point
SETPRT	;
MAIN(DGBTEXC,STARTDT,ENDDT,DGBTDIVN,SNAME,ENAME,REPTYPE)	;
GETRECS	;
GETLINE	;
DIV()	;
GLFULL	; Special mode full
GLTOTAL	; Special mode total
PRINT	;
PRTXL	;
PRTFUL	;
PRTTOT	;
HDRFUL	;
HDRTOT	;
GRANDFUL	;
GRANDTOT	;
DLRAMT(X)	;
QUIT	;

Name	Field # of Occurrence
DD^%DT	PRINT+3
COMMA^%DTC	DLRAMT+1
NOW^%DTC	PRINT+3
^%ZISC	SETPRT+7, SETPRT+9
$$NMRNG^DGBTUTL	GETLINE+7
$$PAUSE^DGBTUTL	PRINT+29
$$SELEXCEL^DGBTUTL	SETPRT+1
$$YESNO^DGBTUTL	EN+14
DEVICE^DGBTUTL	SETPRT+4
PRINTMSG^DGBTUTL	SETPRT+3
CLEAN^DILF	EN+3, EN+7, EN+10, EN+21, EN+32, EN+35, QUIT+2
$$GET1^DIQ	EN+13, GETLINE+4, GETLINE+6, GLFULL+6, GLFULL+9, GLFULL+26, GLFULL+27, GLFULL+28, GLTOTAL+1, GLTOTAL+3 , PRTXL+4, PRTTOT+1, HDRFUL+7, HDRTOT+7, GRANDFUL+8, GRANDTOT+8
^DIR	EN+6, EN+9, EN+17, EN+24, EN+27, EN+34
$$FMTE^XLFDT	GLFULL+5, GLFULL+8, PRTXL+2, PRTFUL+3, HDRFUL+4, HDRTOT+4, GRANDFUL+5, GRANDTOT+5
$$UP^XLFSTR	EN+26, EN+29

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"START NAME CANNOT FOLLOW END NAME" Line Location: EN+30
Function Call: WRITE	Prompt: !,"No records found" Line Location: MAIN+3
Function Call: READ	Formatting: ! Prompt: "Please press ENTER to continue or '^' to stop " Variable: PROMPT Timeout: DTIME Line Location: PRINT+20
Function Call: WRITE	Prompt: !!! Line Location: PRINT+26
Function Call: WRITE	Prompt: !,"REPORT HAS FINISHED" Line Location: PRINT+30
Function Call: WRITE	Prompt: !,$$FMTE^XLFDT($P(SQ1,U)),U,DATALINE Line Location: PRTXL+2
Function Call: WRITE	Prompt: $P(DATALINE,U,I),U Line Location: PRTXL+4
Function Call: WRITE	Prompt: !,$P(DATALINE,U),?32,$P(DATALINE,U,2),?52,$P(DATALINE,U,3),?84,$P(DATALINE,U,4),?116,$P(DATALINE,U,5) Line Location: PRTFUL+1
Function Call: WRITE	Prompt: !,?5,$P(DATALINE,U,6),?17,$P(DATALINE,U,7),?27,$P(DATALINE,U,8),?42,$P(DATALINE,U,9),?52,$P(DATALINE,U,10),?63,$P(DATALINE,U,11) Line Location: PRTFUL+2
Function Call: WRITE	Prompt: ?73,$P(DATALINE,U,12),?83,$P(DATALINE,U,13),?94,$P(DATALINE,U,14),?105,$$FMTE^XLFDT(SQ1) Line Location: PRTFUL+3
Function Call: WRITE	Prompt: !,?5,$P(DATALINE,U,15),?37,$P(DATALINE,U,16),?75,$P(DATALINE,U,17) Line Location: PRTFUL+4
Function Call: WRITE	Prompt: !,$$GET1^DIQ(40.8,$P(SQ1,U),.01),?37,$P(DATALINE,U),?43,$P(DATALINE,U,2),?51,$P(DATALINE,U,3),?59,$$DLRAMT($P(DATALINE,U,4)) Line Location: PRTTOT+1
Function Call: WRITE	Prompt: ?74,$$DLRAMT($P(DATALINE,U,5)),?90,$P(SQ1,U,2) Line Location: PRTTOT+2
Function Call: WRITE	Prompt: @IOF Line Location: HDRFUL+2
Function Call: WRITE	Prompt: "BT SPECIAL MODE FULL REPORT PRINT DATE: ",PDT,?(126-$L(PAGE)),"PAGE ",PAGE Line Location: HDRFUL+3
Function Call: WRITE	Prompt: !,$$FMTE^XLFDT(STARTDT)," TO ",$$FMTE^XLFDT(ENDDT) Line Location: HDRFUL+4
Function Call: WRITE	Prompt: !,"FIRST VETERAN NAME: ",SNAME Line Location: HDRFUL+5
Function Call: WRITE	Prompt: !,"LAST VETERAN NAME: ",ENAME Line Location: HDRFUL+6
Function Call: WRITE	Prompt: !,"DIVISION: ",$S(DGBTDIVN="ALL":"ALL",1:$$GET1^DIQ(40.8,DGBTDIVN,.01)) Line Location: HDRFUL+7
Function Call: WRITE	Prompt: !,$E(EQUAL,1,128) Line Location: HDRFUL+8
Function Call: WRITE	Prompt: !,"PATIENT NAME",?32,"CLAIM DATE",?52,"MODE",?84,"INV #",?116,"INVOICE DATE" Line Location: HDRFUL+9
Function Call: WRITE	Prompt: !?5,"DIVISION",?37,"VENDOR",?75,"STATUS" Line Location: HDRFUL+11
Function Call: WRITE	Prompt: !,$E(EQUAL,1,128) Line Location: HDRFUL+12
Function Call: WRITE	Prompt: @IOF Line Location: HDRTOT+2
Function Call: WRITE	Prompt: "BT SPECIAL MODE TOTAL REPORT PRINT DATE: ",PDT,?(126-$L(PAGE)),"PAGE ",PAGE Line Location: HDRTOT+3
Function Call: WRITE	Prompt: !,$$FMTE^XLFDT(STARTDT)," TO ",$$FMTE^XLFDT(ENDDT) Line Location: HDRTOT+4
Function Call: WRITE	Prompt: !,"FIRST VETERAN NAME: ",SNAME Line Location: HDRTOT+5
Function Call: WRITE	Prompt: !,"LAST VETERAN NAME: ",ENAME Line Location: HDRTOT+6
Function Call: WRITE	Prompt: !,"DIVISION: ",$S(DGBTDIVN="ALL":"ALL",1:$$GET1^DIQ(40.8,DGBTDIVN,.01)) Line Location: HDRTOT+7
Function Call: WRITE	Prompt: !,$E(EQUAL,1,126) Line Location: HDRTOT+8
Function Call: WRITE	Prompt: !,"DIVISION",?37,"PAID",?43,"DENIED",?51,"CLAIMS",?59,"NSNL",?74,"INV PAID",?90,"MODE" Line Location: HDRTOT+9
Function Call: WRITE	Prompt: !,$E(EQUAL,1,126) Line Location: HDRTOT+10
Function Call: WRITE	Prompt: !,$E(EQUAL,1,128) Line Location: GRANDFUL+9
Function Call: WRITE	Prompt: !,"GRAND TOTALS:",?17,"MILES",?27,"BASE RATE",?42,"MILEAGE",?52,"NSNL",?63,"WAIT FEE",?73,"EXT CREW",?83,"SPEC EQ",?94,"INV AMT",?105,"CLAIMS" Line Location: GRANDFUL+10
Function Call: WRITE	Prompt: !,?17,GRAND("MILE"),?27,$$DLRAMT(GRAND("BASE RATE")),?42,$$DLRAMT(GRAND("MILEAGE FEE")),?52,$$DLRAMT(GRAND("NSNL")) Line Location: GRANDFUL+11
Function Call: WRITE	Prompt: ?63,$$DLRAMT(GRAND("WAIT TIME")),?73,$$DLRAMT(GRAND("EXTRA CREW")),?83,$$DLRAMT(GRAND("SPECIAL EQUIPMENT")) Line Location: GRANDFUL+12
Function Call: WRITE	Prompt: ?94,$$DLRAMT(GRAND("INVOICE AMT")),?105,GRAND("CLAIMS") Line Location: GRANDFUL+13
Function Call: WRITE	Prompt: !,$E(EQUAL,1,128) Line Location: GRANDFUL+14
Function Call: WRITE	Prompt: !,$E(EQUAL,1,126) Line Location: GRANDTOT+9
Function Call: WRITE	Prompt: !,"GRAND TOTALS:",?37,"PAID",?43,"DENIED",?51,"CLAIMS",?59,"NSNL",?74,"INV PAID" Line Location: GRANDTOT+10
Function Call: WRITE	Prompt: !,?37,GRAND("PAID"),?43,GRAND("DENIED"),?51,GRAND("CLAIMS"),?59,$$DLRAMT(GRAND("NSNL")),?74,$$DLRAMT(GRAND("PAID AMT")) Line Location: GRANDTOT+11
Function Call: WRITE	Prompt: !,$E(EQUAL,1,126) Line Location: GRANDTOT+12
Routine Call	DIR Line Location: EN+6 EN+9 EN+17 EN+24 EN+27 EN+34

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DGBT(392 - [#392]	GET1^DIQ
^DGBT(392.42 - [#392.42]	GET1^DIQ
^DG(40.8 - [#40.8]	GET1^DIQ
^DG(43 - [#43]	GET1^DIQ
^PRC(440 - [#440]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	EN+20
^DGBT(392 - [#392]	GETRECS+3, GETRECS+4, GETRECS+6, GETLINE+1, GETLINE+8
^TMP("DGBTR125"	MAIN+1!, MAIN+3, GETLINE+12*, GLFULL+2, GLTOTAL+4, PRINT+14, PRINT+16, PRINT+17, QUIT+1!

Name	Line Occurrences
$$DIV	GETLINE+2
$$DLRAMT	GLFULL+12, GLFULL+14, GLFULL+16, GLFULL+18, GLFULL+20, GLFULL+22, GLFULL+24, PRTXL+5, PRTTOT+1, PRTTOT+2 , GRANDFUL+11, GRANDFUL+12, GRANDFUL+13, GRANDTOT+11
GETLINE	GETRECS+6
GETRECS	MAIN+2
GLFULL	GETLINE+10
GLTOTAL	GETLINE+11
GRANDFUL	PRINT+27
GRANDTOT	PRINT+28
HDRFUL	PRINT+5, PRINT+21
HDRTOT	PRINT+6, PRINT+22
MAIN	SETPRT+8
PRINT	MAIN+4
PRTFUL	PRINT+23
PRTTOT	PRINT+24
PRTXL	PRINT+18
QUIT	EN+37, MAIN+3
SETPRT	EN+37

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EN+1~, PRINT+3
%Y	EN+1~
COLWID	SETPRT+3~*
DATALINE	EN+1~, GETLINE+3, GETLINE+9, GETLINE+12, GLFULL+4, GLFULL+5, GLFULL+6, GLFULL+7, GLFULL+8, GLFULL+9 , GLFULL+10, GLFULL+12, GLFULL+14, GLFULL+16, GLFULL+18, GLFULL+20, GLFULL+22, GLFULL+24, GLFULL+26, GLFULL+27 , GLFULL+28, GLTOTAL+4, GLTOTAL+5, GLTOTAL+7, GLTOTAL+9, GLTOTAL+11, GLTOTAL+13, PRINT+17, PRTXL+2, PRTXL+4 , PRTXL+5, PRTFUL+1, PRTFUL+2, PRTFUL+3, PRTFUL+4, PRTTOT+1, PRTTOT+2
DENY	EN+1~, GLTOTAL+3*, GLTOTAL+5, GLTOTAL+6, GLTOTAL+7, GLTOTAL+8, GLTOTAL+11, GLTOTAL+12, GLTOTAL+13, GLTOTAL+14
DFN	EN+1~, GETLINE+5*, GETLINE+6
DGBTDIVN	EN+1~, EN+14, EN+15, EN+19, EN+20, SETPRT+8, MAIN~, DIV+1, DIV+2, HDRFUL+7 , HDRTOT+7, GRANDFUL+8, GRANDTOT+8
DGBTEXC	EN+1~, SETPRT+1*, SETPRT+2, SETPRT+3, SETPRT+4, SETPRT+8, MAIN~, PRINT+4, PRINT+7, PRINT+18 , PRINT+25, PRINT+29, DLRAMT+1
DGBTQ	EN+1~, SETPRT+5
DIR	EN+5!, EN+6!, EN+9!, EN+17!, EN+24!, EN+27!, EN+33!, EN+34!
DIR("A"	EN+6, EN+9, EN+24, EN+27, EN+34*
DIR("B"	EN+24, EN+27
DIR(0	EN+6, EN+9, EN+17, EN+24, EN+27, EN+34
>> DIROUT	EN+7, EN+10, EN+25, EN+28, EN+32
>> DIRUT	EN+7, EN+10, EN+16, EN+18, EN+21, EN+25, EN+28, EN+32, EN+35
DONE	EN+22, EN+23, EN+30, EN+31!
DTIME	PRINT+20
>> DTOUT	EN+16, EN+18, EN+21, EN+35
>> DUOUT	EN+16, EN+18, EN+21, EN+35
ENAME	EN+1~, EN+29*, EN+30, SETPRT+8, MAIN~, GETLINE+7, HDRFUL+6, HDRTOT+6, GRANDFUL+7, GRANDTOT+7
ENDDT	EN+1~, EN+11*, SETPRT+8, MAIN~, GETRECS+4, HDRFUL+4, HDRTOT+4, GRANDFUL+5, GRANDTOT+5
ENTRY	EN+1~, GETRECS+3, GETRECS+4, GETRECS+6, GLFULL+1
EQUAL	EN+1~, PRINT+2*, HDRFUL+8, HDRFUL+12, HDRTOT+8, HDRTOT+10, GRANDFUL+9, GRANDFUL+14, GRANDTOT+9, GRANDTOT+12
GRAND	EN+1~
GRAND(	GETRECS+1, GETRECS+2
GRAND("BASE R	ATE" , GLFULL+13*, GRANDFUL+11
GRAND("CLAIMS"	GLFULL+3, GLTOTAL+10, GRANDFUL+13, GRANDTOT+11
GRAND("DENIED"	GLTOTAL+8*, GRANDTOT+11
GRAND("EXTRA	CREW" , GLFULL+21*, GRANDFUL+12
GRAND("INVOIC	E AMT" , GLFULL+25*, GRANDFUL+13
GRAND("MILE"	GLFULL+11*, GRANDFUL+11
GRAND("MILEAG	E FEE" , GLFULL+15*, GRANDFUL+11
GRAND("NSNL"	GLFULL+17, GLTOTAL+12, GRANDFUL+11, GRANDTOT+11
GRAND("PAID A	MT" , GLTOTAL+14*, GRANDTOT+11
GRAND("PAID"	GLTOTAL+6*, GRANDTOT+11
GRAND("SPECIA	L EQUIPMENT" , GLFULL+23*, GRANDFUL+12
GRAND("WAIT T	IME" , GLFULL+19*, GRANDFUL+12
I	EN+1~, GETRECS+1, GETRECS+2, GETRECS+5, GETRECS+6, GETLINE+1, GETLINE+4, GETLINE+8, GLFULL+9, GLFULL+28 , GLTOTAL+3, PRTXL+4*
IO	SETPRT+10, PRINT+1
IO("Q"	SETPRT+7
IOF	HDRFUL+2, HDRTOT+2, GRANDFUL+3, GRANDTOT+3
IOSL	PRINT+19, PRINT+20, PRINT+26, GRANDFUL+1, GRANDTOT+1
IOST	PRINT+20, PRINT+29, PRINT+30
LINESP	EN+1~, GETLINE+8*, GLFULL+6, GLFULL+7, GLFULL+8, GLFULL+10, GLFULL+11, GLFULL+12, GLFULL+13, GLFULL+14 , GLFULL+15, GLFULL+16, GLFULL+17, GLFULL+18, GLFULL+19, GLFULL+20, GLFULL+21, GLFULL+22, GLFULL+23, GLFULL+24 , GLFULL+25, GLFULL+27, GLTOTAL+1, GLTOTAL+11, GLTOTAL+12, GLTOTAL+13, GLTOTAL+14
LINEZERO	EN+1~, GETLINE+1*, GETLINE+5, DIV+2, GLFULL+5, GLFULL+26, GLTOTAL+1
PAGE	EN+1~, PRINT+2, HDRFUL+1, HDRFUL+3, HDRTOT+1, HDRTOT+3, GRANDFUL+2, GRANDFUL+4, GRANDTOT+2*, GRANDTOT+4
PATNAME	EN+1~, GETLINE+6*, GETLINE+7, GLFULL+4
PDT	EN+1~, PRINT+3*, HDRFUL+3, HDRTOT+3, GRANDFUL+4, GRANDTOT+4
POP	EN+1~
PROMPT	EN+1~, PRINT+13, PRINT+14, PRINT+16, PRINT+19, PRINT+20
REPTYPE	EN+1~, EN+36*, SETPRT+8, MAIN~, GETRECS+1, GETRECS+2, GETLINE+10, GETLINE+11, PRINT+5, PRINT+6 , PRINT+8, PRINT+11, PRINT+19, PRINT+21, PRINT+22, PRINT+23, PRINT+24, PRINT+27, PRINT+28, PRTXL+1 , PRTXL+3
SNAME	EN+1~, EN+26*, EN+30, SETPRT+8, MAIN~, GETLINE+7, HDRFUL+5, HDRTOT+5, GRANDFUL+6, GRANDTOT+6
SQ1	EN+1~, GETLINE+12, GLFULL+1, GLFULL+2, GLTOTAL+1, GLTOTAL+4, PRINT+13, PRINT+14, PRINT+16, PRINT+17 , PRTXL+2, PRTXL+4, PRTXL+5, PRTFUL+3, PRTTOT+1, PRTTOT+2
SQ2	EN+1~, GETLINE+12, GLFULL+2, GLTOTAL+2, GLTOTAL+4, PRINT+15, PRINT+16, PRINT+17
STARTDT	EN+2~, EN+8*, EN+9, SETPRT+8, MAIN~, GETRECS+3, HDRFUL+4, HDRTOT+4, GRANDFUL+5, GRANDTOT+5
U	GETLINE+5, DIV+2, GLFULL+4, GLFULL+5, GLFULL+6, GLFULL+7, GLFULL+8, GLFULL+9, GLFULL+10, GLFULL+11 , GLFULL+12, GLFULL+13, GLFULL+14, GLFULL+15, GLFULL+16, GLFULL+17, GLFULL+18, GLFULL+19, GLFULL+20, GLFULL+21 , GLFULL+22, GLFULL+23, GLFULL+24, GLFULL+25, GLFULL+26, GLFULL+27, GLFULL+28, GLTOTAL+1, GLTOTAL+5, GLTOTAL+7 , GLTOTAL+9, GLTOTAL+11, GLTOTAL+12, GLTOTAL+13, GLTOTAL+14, PRTXL+2, PRTXL+4, PRTXL+5, PRTFUL+1, PRTFUL+2 , PRTFUL+3, PRTFUL+4, PRTTOT+1, PRTTOT+2
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+26, EN+29, EN+36, PRINT+3, PRINT+29
ZTQUEUED	EN+2~, SETPRT+7, SETPRT+9

Customize PDF page

Package: Beneficiary Travel

Routine: DGBTR125

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: