Routine: DGBTOA6

Information

DGBTOA6 ;ALB/SCK - DGBT BENE TRAVEL PAYABLE CLAIMS REPORT ; 6/29/93 7/16/93

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Registration	2	KVAR^VADPT PID^VADPT6
VA FileMan	2	DD^%DT ^DIR
Kernel	1	$$FMTE^XLFDT
List Manager	1	$$NOW^VALM1

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Beneficiary Travel	1	DGBTOA5

Entry Points

Name	Comments	DBIA/ICR reference
ACCTS	;
ACCTSQ
GETACT(ACTNUM)	;
REPORT	;
PRTOUT()	;
PRTOUTQ
EXDATE(CDOUT)	;
DIVSN(NDIV)	;
NOREP	;
NOREPQ
HEADR()	;
HEADRQ
TOTL	;
SUBS	;
SETVAR()	;

External References

Name	Field # of Occurrence
DD^%DT	EXDATE+1
^DIR	HEADR+2
KVAR^VADPT	ACCTS+6
PID^VADPT6	GETACT+10
$$NOW^VALM1	HEADR+6
$$FMTE^XLFDT	HEADR+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$E(CURNAME,1,21),?23,CURID,?37,$$EXDATE(CDATE),?61,$FN($P(BTCLAIM,U,1),"",2),?70,$FN($P(BTCLAIM,U,2),"",2),?78,$FN($P(BTCLAIM,U,3),"",2),?86,$E($P(BTCLAIM,U,4),1,50) Line Location: PRTOUT+4
Function Call: WRITE	Prompt: !!,"Division: ",$P($G(^DG(40.8,NDIV,0)),"^") Line Location: DIVSN+2
Function Call: WRITE	Prompt: !,"=========" Line Location: DIVSN+3
Function Call: WRITE	Prompt: !!,"No data found for accounts 'ALL OTHER' or 'C&P'" Line Location: NOREP+3
Function Call: WRITE	Prompt: @IOF Line Location: HEADR+2
Function Call: WRITE	Prompt: @IOF Line Location: HEADR+4
Function Call: WRITE	Prompt: !,"Payable Claims Report" Line Location: HEADR+5
Function Call: WRITE	Prompt: ?(IOM-40),"Report Date: ",$P($$NOW^VALM1,"@"),?(IOM-10),"Page: ",PAGE Line Location: HEADR+6
Function Call: WRITE	Prompt: !,"Inclusion Dates: ",$P($$FMTE^XLFDT(DGBTBEG,1),"@")," to ",$P($$FMTE^XLFDT(DGBTEND,1),"@") Line Location: HEADR+7
Function Call: WRITE	Prompt: !,"For ACCOUNT TYPE: ",$S(CURACT=4:"ALL OTHER",CURACT=5:"C&P EXAMINATIONS") Line Location: HEADR+8
Function Call: WRITE	Prompt: !!?61,"Mileage",?70,"Amount",?78,"Amount" Line Location: HEADR+9
Function Call: WRITE	Prompt: !,"Patient Name",?23,"Patient ID",?37,"Claim DATE/TME",?61,"Amount",?70,"Deduct",?78,"Payable",?86,"Remarks" Line Location: HEADR+10
Function Call: WRITE	Prompt: !,"----------------",?23,"------------",?37,"------------------",?61,"------",?70,"------",?78,"-------",?86,"-----------------" Line Location: HEADR+11
Function Call: WRITE	Prompt: !!?61,"------",?70,"------",?78,"-------" Line Location: TOTL+2
Function Call: WRITE	Prompt: !,"TOTALS",?61,$FN(TMILES,"",2),?70,$FN(TDEDCT,"",2),?78,$FN(TPAY,"",2) Line Location: TOTL+3
Function Call: WRITE	Prompt: !,"TOTAL CLAIMS: ",TCOUNT Line Location: TOTL+4
Function Call: WRITE	Prompt: !!?61,"------",?70,"------",?78,"-------" Line Location: SUBS+2
Function Call: WRITE	Prompt: !,"Subtotals",?61,$FN(MILES,"",2),?70,$FN(DEDCT,"",2),?78,$FN(PAY,"",2) Line Location: SUBS+3
Function Call: WRITE	Prompt: !,"Subtotal Count of Claims: ",COUNT Line Location: SUBS+4
Routine Call	DIR Line Location: HEADR+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	DIVSN+2
^DGBT(392 - [#392]	GETACT+2, GETACT+4, GETACT+5, GETACT+6, GETACT+7
^DPT - [#2]	GETACT+11
^TMP("BT"	ACCTS+3!, ACCTS+8!, GETACT+11*, REPORT+2, REPORT+4, REPORT+6, REPORT+8, REPORT+9, REPORT+10, REPORT+11 , PRTOUT+2

Label References

Name	Line Occurrences
$$DIVSN	REPORT+7, REPORT+8
$$EXDATE	PRTOUT+4
$$GETACT	ACCTS+5
$$HEADR	REPORT+5, REPORT+7, PRTOUT+3, NOREP+2
$$PRTOUT	REPORT+11
$$SETVAR	REPORT+3
HEADRQ	HEADR+2
NOREP	REPORT+2
NOREPQ	NOREP+2
PRTOUTQ	PRTOUT+3
REPORT	ACCTS+7
SUBS	REPORT+7, TOTL+1
TOTL	REPORT+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTCDE	ACCTS+4*, ACCTS+5, ACCTS+8!
ACTNUM	GETACT~, GETACT+2, GETACT+11
BTCLAIM	GETACT+3~, GETACT+5, GETACT+8, GETACT+9, GETACT+11, PRTOUT+2, PRTOUT+4, PRTOUT+5
BTCLAIM("M"	GETACT+6*, GETACT+11
BTCLAIM("R"	GETACT+7*, GETACT+11
BTFIN	REPORT+1~, REPORT+6, REPORT+7, REPORT+8, REPORT+9, REPORT+10, REPORT+11, SETVAR+2*
CDATE	ACCTS+8!, GETACT+2, GETACT+4, GETACT+5, GETACT+6, GETACT+7, GETACT+11, REPORT+11, PRTOUT+2, PRTOUT+4
CDOUT	EXDATE~, EXDATE+1
>> COUNT	PRTOUT+5, SUBS+4, SUBS+5, SUBS+6, SETVAR+2*
CURACT	ACCTS+8!, REPORT+4, REPORT+6, REPORT+7, REPORT+8, REPORT+9, REPORT+10, REPORT+11, PRTOUT+2, NOREP+1* , HEADR+8
>> CURID	REPORT+10*, REPORT+11, PRTOUT+2, PRTOUT+4
>> CURNAME	REPORT+9*, REPORT+10, REPORT+11, PRTOUT+2, PRTOUT+4
>> DEDCT	PRTOUT+5, SUBS+3, SUBS+5, SUBS+6, SETVAR+2*
>> DFN	GETACT+9*, GETACT+11
DGBTBEG	ACCTS+8!, HEADR+7
DGBTBG	ACCTS+8!, GETACT+2
DGBTEND	ACCTS+8!, GETACT+2, HEADR+7
DIR	HEADR+2!
DIR(0	HEADR+2*
DIV	ACCTS+8!, GETACT+8*, GETACT+11
ERR	ACCTS+8!, REPORT+3, REPORT+7
IO	ACCTS+1
IOF	HEADR+2, HEADR+4
IOM	HEADR+6
IOSL	PRTOUT+3
IOST	HEADR+2, HEADR+4
>> MILES	PRTOUT+5, SUBS+3, SUBS+5, SUBS+6, SETVAR+2*
NDIV	REPORT+1~, REPORT+7, REPORT+8*, REPORT+9, REPORT+10, REPORT+11, PRTOUT+2, DIVSN~, DIVSN+1, DIVSN+2 , DIVSN+4
>> PAGE	NOREP+1, HEADR+3, HEADR+6, SETVAR+2*
>> PAY	PRTOUT+5, SUBS+3, SUBS+5, SUBS+6, SETVAR+2*
PDIV	REPORT+1~, REPORT+7, REPORT+8, SETVAR+3
>> PRVACT	REPORT+4, REPORT+7
QFLAG	HEADR+1~, HEADR+2, HEADRQ
>> TCOUNT	TOTL+4, SUBS+5, SETVAR+2
>> TDEDCT	TOTL+3, SUBS+5, SETVAR+2
>> TMILES	TOTL+3, SUBS+5, SETVAR+2
>> TPAY	TOTL+3, SUBS+5, SETVAR+2
U	GETACT+8, GETACT+9, GETACT+11, PRTOUT+4, PRTOUT+5
>> VA("PID"	GETACT+11
>> VAERR	GETACT+10
Y	ACCTS+2~, ACCTS+5, GETACT+1~, GETACT+12, PRTOUT+1~, PRTOUT+3, PRTOUTQ, EXDATE+1, EXDATE+2, HEADR+2 , SUBS+1~, SETVAR+1~*, SETVAR+5

Customize PDF page

Package: Beneficiary Travel