Routine: IBTPRPT

Package	Total	Call Graph
Integrated Billing	6	($$BDATE,$$ICD9)^IBACSV ($$CVEDT,CL)^IBACV SITE^IBAUTL ($$INPAT,F)^IBCEF $$DIV^IBJDF2 PRTEXCEL^IBUCMM
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT
Registration	2	DEM^VADPT (DIVISION,FIRST,PATIENT)^VAUTOMA
VA FileMan	2	($$GET1,GETS)^DIQ ^DIR
Accounts Receivable	1	$$PAID^PRCAFN1

Package	Total	Caller Graph
Integrated Billing	1	IB TP VETERAN CHRG RPT

Name	Comments	DBIA/ICR reference
EN	; entry point
COMPILE	; compile report
PRINT	; print report
IBSITE()	; return site from IB site parameters
SPAUTH(DFN,EVTDT)	; get special authority
LAST4SSN(DFN)	; return lst 4 digits of patient's SSN
ASKFLTR(FILTER)	; filter prompts
ASKDT(FILTER)	; prompt for start and end dates
ASKDT1	;
ASKDTX	; dates prompt exit point
ASKCANC()	; "display cancelled bills?" prompt
ASKPAID()	; "display paid claims?" prompt
ASKPYR(FILTER)	; prompt for payer(s)
PAUSE	; "Press Return to Continue" prompt

Name	Field # of Occurrence
^%ZIS	EN+7
HOME^%ZIS	EN+12
^%ZISC	COMPILE+60
^%ZTLOAD	EN+12
$$GET1^DIQ	COMPILE+9, COMPILE+29
GETS^DIQ	COMPILE+10, COMPILE+30, COMPILE+47
^DIR	ASKFLTR+27, ASKDT+14, ASKDT1+4, ASKCANC+7, ASKPAID+7, PAUSE+3
$$BDATE^IBACSV	COMPILE+44
$$ICD9^IBACSV	COMPILE+40, COMPILE+41, COMPILE+44
$$CVEDT^IBACV	SPAUTH+11
CL^IBACV	SPAUTH+9
SITE^IBAUTL	IBSITE+2
$$INPAT^IBCEF	COMPILE+43
F^IBCEF	COMPILE+27, COMPILE+39
$$DIV^IBJDF2	COMPILE+7
PRTEXCEL^IBUCMM	EN+4
$$PAID^PRCAFN1	COMPILE+37
DEM^VADPT	LAST4SSN+7
DIVISION^VAUTOMA	ASKFLTR+22
FIRST^VAUTOMA	ASKPYR+10
PATIENT^VAUTOMA	ASKFLTR+30
$$FMTE^XLFDT	PRINT+3, PRINT+25, PRINT+27, PRINT+34

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Report compilation has started with task# ",ZTSK,".",! Line Location: EN+13
Function Call: WRITE	Prompt: "." Line Location: COMPILE+5
Function Call: WRITE	Prompt: !,"Veteran Third Party Charges Report^",EXTDT Line Location: PRINT+4
Function Call: WRITE	Prompt: !,"Filtered By: ",FLTRSTR Line Location: PRINT+14
Function Call: WRITE	Prompt: !,"Site^Division^Patient Name^SSN(last 4)^Bill #^Payer^Prim DX^Admit DX^Sec DX^DRG code^Bill Type^Care From^Care To^Rx #^" Line Location: PRINT+15
Function Call: WRITE	Prompt: "Rx Fill Name^RX Fill Date^AR Claim Status^IB Claim Status^RNB^Claim Amount^Payment^Balance^Fund^RSC/Revenue Source^Claim Type^Sp. Auth." Line Location: PRINT+16
Function Call: WRITE	Prompt: !,"No records found." Line Location: PRINT+18
Function Call: WRITE	Prompt: $S(Z1=1:"Prof",Z1=2:"Inst",1:""),U Line Location: PRINT+29
Function Call: WRITE	Prompt: $S(Z1=1:"Y",1:"N") Line Location: PRINT+30
Function Call: WRITE	Prompt: $S(Z1=1:"Prof",Z1=2:"Inst",1:""),U Line Location: PRINT+36
Function Call: WRITE	Prompt: $S(Z1=1:"Y",1:"N") Line Location: PRINT+37
Function Call: WRITE	Prompt: !," End Date must not precede the Start Date." Line Location: ASKDT1+5
Function Call: WRITE	Prompt: ! Line Location: PAUSE+2
Function Call: WRITE	Prompt: ! Line Location: PAUSE+4
Routine Call	%ZIS Line Location: EN+7
Routine Call	%ZIS Line Location: EN+12
Routine Call	DIR Line Location: ASKFLTR+27 ASKDT+14 ASKDT1+4 ASKCANC+7 ASKPAID+7 PAUSE+3

FileNo	Call Tags
^IBT(356 - [#356]	GET1^DIQ
^IBA(362.4 - [#362.4]	GETS^DIQ
^DGCR(399 - [#399]	GETS^DIQ
^DG(40.8 - [#40.8]	GET1^DIQ
^PRCA(430 - [#430]	GETS^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	COMPILE+3, COMPILE+4
^IBA(362.4 - [#362.4]	COMPILE+46
^IBT(356 - [#356]	COMPILE+28
^TMP("IBTPRPT"	EN+2!, COMPILE+51, COMPILE+55, COMPILE+59!, PRINT+18, PRINT+19, PRINT+20, PRINT+21, PRINT+22, PRINT+23 , PRINT+26, PRINT+32

Name	Line Occurrences
$$ASKCANC	ASKFLTR+35
$$ASKDT	ASKFLTR+24
$$ASKFLTR	EN+3
$$ASKPAID	ASKFLTR+32
$$ASKPYR	ASKFLTR+39
$$IBSITE	COMPILE+6
$$LAST4SSN	COMPILE+26
$$SPAUTH	COMPILE+25
ASKDT1	ASKDT1+5
ASKDTX	ASKDT+14, ASKDT1+4
COMPILE	EN+15
PAUSE	EN+13
PRINT	COMPILE+58

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	EN+1~, EN+7*
%ZIS("B"	EN+7*
ADX	COMPILE+1~, COMPILE+42, COMPILE+44, COMPILE+54
AMNT	COMPILE+1~, COMPILE+23*, COMPILE+54
ARDATA	COMPILE+1~, COMPILE+30!
ARDATA(430	COMPILE+31, COMPILE+34, COMPILE+35, COMPILE+36
ARSTAT	COMPILE+1~, COMPILE+31*, COMPILE+32, COMPILE+33, COMPILE+54
BAL	COMPILE+1~, COMPILE+34*, COMPILE+54
BILLFR	COMPILE+1~, COMPILE+19*, COMPILE+25, COMPILE+54
BILLNO	COMPILE+1~, COMPILE+12, COMPILE+51, COMPILE+55, PRINT+1~, PRINT+21, PRINT+22, PRINT+23, PRINT+24, PRINT+26 , PRINT+32, PRINT+33
BILLTO	COMPILE+1~, COMPILE+20*, COMPILE+54
BILLTYPE	COMPILE+1~, COMPILE+18*, COMPILE+54
CHTYPE	COMPILE+1~, COMPILE+24*, COMPILE+54
CLTRK	COMPILE+1~, COMPILE+28*, COMPILE+29
CNT	COMPILE+1~, COMPILE+4, COMPILE+5
DATA	PRINT+1~, PRINT+22*, PRINT+24, PRINT+25, PRINT+28, PRINT+29, PRINT+30, PRINT+33, PRINT+34, PRINT+35 , PRINT+36, PRINT+37
DFN	COMPILE+1~, COMPILE+13*, COMPILE+14, COMPILE+25, COMPILE+26, SPAUTH~, SPAUTH+9, SPAUTH+11, LAST4SSN~
DIC	ASKPYR+9~, ASKPYR+10*
DIR	ASKFLTR+20~, ASKDT+9~, ASKCANC+4~, ASKPAID+4~, PAUSE+1~
DIR("?"	ASKDT+13, ASKDT1+2, ASKDT1+3*
DIR("A"	ASKFLTR+26, ASKDT+12, ASKDT1+1, ASKCANC+6, ASKPAID+6*
DIR("B"	ASKFLTR+25*
DIR(0	ASKFLTR+25, ASKDT+11, ASKCANC+5, ASKPAID+5, PAUSE+3*
DIROUT	ASKFLTR+20~, ASKFLTR+27, ASKDT+14, ASKDT1+4, ASKCANC+4~, ASKCANC+7, ASKPAID+4~, ASKPAID+7, PAUSE+1~
DIRUT	ASKFLTR+20~, ASKFLTR+27, ASKDT+9~, ASKDT+14, ASKDT1+4, ASKCANC+4~, ASKCANC+7, ASKPAID+4~, ASKPAID+7, PAUSE+1~
DIV	COMPILE+1~, COMPILE+7*, COMPILE+8, COMPILE+9
DIVN	COMPILE+1~, COMPILE+9*, COMPILE+54
DRG	COMPILE+1~, COMPILE+27*, COMPILE+54
DT	PRINT+3
DTOUT	ASKFLTR+20~, ASKDT+9~, ASKCANC+4~, ASKPAID+4~, PAUSE+1~
DUOUT	ASKFLTR+20~, ASKDT+9~, ASKCANC+4~, ASKPAID+4~, PAUSE+1~
EVTDT	COMPILE+1~, COMPILE+3, COMPILE+4, COMPILE+51, COMPILE+55, PRINT+1~, PRINT+20, PRINT+21, PRINT+22, PRINT+23 , PRINT+26, PRINT+32, SPAUTH~, SPAUTH+9, SPAUTH+11
EXTDT	PRINT+1~, PRINT+3*, PRINT+4
FILTER	EN+1~, EN+3, ASKFLTR~, ASKFLTR+24, ASKFLTR+39, ASKDT~, ASKPYR~
FILTER("CANC"	COMPILE+22, PRINT+11, ASKFLTR+34, ASKFLTR+36
FILTER("DIVS"	COMPILE+8, PRINT+6, ASKFLTR+23*
FILTER("EDT"	COMPILE+3, ASKDT1+6*
FILTER("PAID"	COMPILE+33, PRINT+12, ASKFLTR+33*, ASKFLTR+34
FILTER("PAT"	COMPILE+14, PRINT+7, ASKFLTR+31*
FILTER("PYR"	COMPILE+15, PRINT+8, ASKPYR+12*
FILTER("SDT"	COMPILE+3, ASKDT+15*, ASKDT1+5
FILTER("TYPE"	COMPILE+14, COMPILE+15, COMPILE+22, COMPILE+33, PRINT+7, PRINT+8, PRINT+10, ASKFLTR+28*, ASKFLTR+29, ASKFLTR+38
FLTRSTR	PRINT+1~, PRINT+5, PRINT+6, PRINT+7, PRINT+8, PRINT+9, PRINT+11, PRINT+12*, PRINT+14
FUND	COMPILE+1~, COMPILE+35*, COMPILE+54
IBDATA	COMPILE+1~, COMPILE+10!
IBDATA(399	COMPILE+11, COMPILE+12, COMPILE+13, COMPILE+15, COMPILE+16, COMPILE+17, COMPILE+18, COMPILE+19, COMPILE+20, COMPILE+21 , COMPILE+23, COMPILE+24, COMPILE+44
IBFAC	IBSITE+1~
IBIEN	COMPILE+1~, COMPILE+4*, COMPILE+7, COMPILE+10, COMPILE+27, COMPILE+28, COMPILE+37, COMPILE+39, COMPILE+43, COMPILE+44 , COMPILE+46
IBRXIEN	COMPILE+1~, COMPILE+46*, COMPILE+47, COMPILE+51
IBSITE	COMPILE+1~, COMPILE+6*, COMPILE+54, IBSITE+1~, IBSITE+3
IBSTAT	COMPILE+1~, COMPILE+21*, COMPILE+22, COMPILE+54
IBXDATA	COMPILE+1~, COMPILE+27!, COMPILE+39!
IBXDATA(1	COMPILE+40
IBXDATA(2	COMPILE+41
IENS	COMPILE+1~, COMPILE+10, COMPILE+11, COMPILE+12, COMPILE+13, COMPILE+15, COMPILE+16, COMPILE+17, COMPILE+18, COMPILE+19 , COMPILE+20, COMPILE+21, COMPILE+23, COMPILE+24, COMPILE+30, COMPILE+31, COMPILE+34, COMPILE+35, COMPILE+36, COMPILE+44 , COMPILE+47, COMPILE+48, COMPILE+49, COMPILE+50
IO	PRINT+2
IO("Q"	EN+6!, EN+8
IOP	EN+6!
PATNM	COMPILE+1~, COMPILE+16, COMPILE+51, COMPILE+55, PRINT+1~, PRINT+19, PRINT+20, PRINT+21, PRINT+22, PRINT+23 , PRINT+24, PRINT+26, PRINT+32, PRINT+33
PDX	COMPILE+2~, COMPILE+40*, COMPILE+54
PMNT	COMPILE+2~, COMPILE+37*, COMPILE+54
POP	EN+1~, EN+7*
PYRNM	COMPILE+2~, COMPILE+17*, COMPILE+54
RES	SPAUTH+7~, SPAUTH+8, SPAUTH+10, SPAUTH+11, SPAUTH+12, SPAUTH+14, ASKFLTR+19~, ASKFLTR+28, ASKFLTR+30, ASKFLTR+32 , ASKFLTR+35, ASKFLTR+39, ASKFLTR+41, ASKDT+8~, ASKDT+10, ASKDT1+6, ASKDTX+1
RNB	COMPILE+2~, COMPILE+29*, COMPILE+54
RSC	COMPILE+2~, COMPILE+36*, COMPILE+54
RXDATA	COMPILE+2~, COMPILE+47!
RXDATA(	COMPILE+48, COMPILE+49, COMPILE+50
RXDT	COMPILE+2~, COMPILE+49*, COMPILE+51
RXNAME	COMPILE+2~, COMPILE+50*, COMPILE+51
RXNUM	COMPILE+2~, COMPILE+48*, COMPILE+51
SDX	COMPILE+2~, COMPILE+41*, COMPILE+54
SPAUTH	COMPILE+2~, COMPILE+25*, COMPILE+54
SSN	COMPILE+2~, COMPILE+26*, COMPILE+54
TMP	SPAUTH+7~, SPAUTH+9
TMP(	SPAUTH+10
U	COMPILE+40, COMPILE+41, COMPILE+44, COMPILE+51, COMPILE+54, PRINT+24, PRINT+25, PRINT+27, PRINT+28, PRINT+29 , PRINT+30, PRINT+33, PRINT+34, PRINT+35, PRINT+36, PRINT+37
VADM	LAST4SSN+6~
VADM(2	LAST4SSN+8
VAUTD	ASKFLTR+21~, ASKFLTR+22, ASKFLTR+23
VAUTD(""	ASKFLTR+22
VAUTN	ASKFLTR+21~, ASKFLTR+30, ASKFLTR+31
VAUTN(""	ASKFLTR+30
VAUTNI	ASKFLTR+21~, ASKFLTR+30, ASKPYR+9~, ASKPYR+10
VAUTP	ASKPYR+9~, ASKPYR+11, ASKPYR+12
VAUTP(""	ASKPYR+11
VAUTSTR	ASKPYR+9~, ASKPYR+10*
VAUTVB	ASKPYR+9~, ASKPYR+10*
X	ASKFLTR+20~, ASKDT+9~, ASKCANC+4~, ASKPAID+4~, PAUSE+1~
Y	IBSITE+1~, ASKFLTR+20~, ASKFLTR+28, ASKDT+9~, ASKDT+15, ASKDT1+5, ASKDT1+6, ASKCANC+4~, ASKCANC+8, ASKPAID+4~ , ASKPAID+8, PAUSE+1~
Z	COMPILE+2~, COMPILE+44, COMPILE+54, COMPILE+55, PRINT+1~, PRINT+23, PRINT+26, SPAUTH+7~, SPAUTH+10, SPAUTH+11 , LAST4SSN+6~, LAST4SSN+8, LAST4SSN+9, ASKFLTR+19~, ASKFLTR+32, ASKFLTR+33, ASKFLTR+35*, ASKFLTR+36
Z1	PRINT+1~, PRINT+26, PRINT+27, PRINT+29, PRINT+30, PRINT+36, PRINT+37*
ZTDESC	EN+1~, EN+9*
>> ZTQUEUED	COMPILE+5, COMPILE+60
ZTRTN	EN+1~, EN+9*
ZTSAVE	EN+1~
ZTSAVE("FILTER("	EN+10*
ZTSAVE("ZTREQ"	EN+11*
ZTSK	EN+1~, EN+13

Customize PDF page

Package: Integrated Billing

Routine: IBTPRPT

Information

Source Information

Call Graph

Call Graph Total: 15

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: