Routine: IBCERP2

Package	Total	Call Graph
Integrated Billing	4	$$POLICY^IBCEF $$CURR^IBCEF2 $$MCRWNR^IBEFUNC $$DAT1^IBOUTL
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$HTE^XLFDT
VA FileMan	3	^%DT ^DIC ^DIR
Accounts Receivable	1	$$BN1^PRCAFN

Package	Total	Caller Graph
Integrated Billing	1	IBCE ELECTRONIC ERROR REPORT

Entry Points

Name	Comments	DBIA/ICR reference
BEG	; Report of electronic error
BDT
EDT
EN0
ST2
EN	; Queued job entrypoint
LIST	;display
BEGQ
HDR1	;

External References

Name	Field # of Occurrence
^%DT	BDT+1, EDT+1
^%ZIS	ST2+9
HOME^%ZIS	ST2+16
^%ZISC	BEGQ+2
^%ZTLOAD	ST2+16
^DIC	EDT+10, EDT+16
^DIR	BEG+6, EDT+7, EN0+3, ST2+2, LIST+50, HDR1+3
$$POLICY^IBCEF	EN+23
$$CURR^IBCEF2	EN+19
$$MCRWNR^IBEFUNC	EN+19, EN+23
$$DAT1^IBOUTL	LIST+14, LIST+16, HDR1+7
$$BN1^PRCAFN	LIST+16
$$HTE^XLFDT	HDR1+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: *7," ??",!,"END DATE must follow BEGIN DATE." Line Location: EDT+4
Function Call: WRITE	Prompt: "ALL" Line Location: EDT+12
Function Call: WRITE	Prompt: !,IB0 Line Location: EN0+5
Function Call: WRITE	Prompt: !,IB0 Line Location: ST2+4
Function Call: WRITE	Prompt: !,"SECONDARY SORT must be different from PRIMARY SORT." Line Location: ST2+6
Function Call: WRITE	Prompt: !,"No entries found for this report" Line Location: LIST+5
Function Call: WRITE	Prompt: "EPISODE OF CARE: "_$$DAT1^IBOUTL($P(IB,U,11)),! Line Location: LIST+14
Function Call: WRITE	Prompt: $$BN1^PRCAFN(+IB),?13,$P(IB,U,4),?25,$E($P(IB,U,6),1,20),?50,$$DAT1^IBOUTL($P(IB,U,10)),?61,$$DAT1^IBOUTL($P(IB,U,9)),?71,$J(-$P(IB,U,2),0,2),! Line Location: LIST+16
Function Call: WRITE	Prompt: "PATIENT: "_$P(IB,U,5),!! Line Location: LIST+17
Function Call: WRITE	Prompt: $E(IBX,IBY,IBY+79),! Line Location: LIST+24
Function Call: WRITE	Prompt: ! Line Location: LIST+26
Function Call: WRITE	Prompt: ?11,$G(^IBM(361.1,1,IBCOD,"ERR",IB0,0)),! Line Location: LIST+35
Function Call: WRITE	Prompt: "SUBTOTAL # OF BILLS FOR "_IBFST_"= ",IBSO1,!! Line Location: LIST+40
Function Call: WRITE	Prompt: !,"TOTAL # OF MEDICARE (WNR) BILLS = ",IBWNR Line Location: LIST+44
Function Call: WRITE	Prompt: !,"TOTAL # OF EDI BILLS = ",IBWR Line Location: LIST+47
Function Call: WRITE	Prompt: !,"GRAND TOTAL # OF BILLS = ",IBSO2 Line Location: LIST+49
Function Call: WRITE	Prompt: ! Line Location: BEGQ+2
Function Call: WRITE	Prompt: @IOF Line Location: HDR1+4
Function Call: WRITE	Prompt: !,?25,"ELECTRONIC ERROR REPORT",?72,"PAGE: ",IBPAGE,!,?25,"RUN DATE: ",$$HTE^XLFDT($H,"2") Line Location: HDR1+6
Function Call: WRITE	Prompt: !,?25,"DATE TRANSMITTED: ",$$DAT1^IBOUTL(IBBDD)_" - "_$$DAT1^IBOUTL(IBEDT) Line Location: HDR1+7
Function Call: WRITE	Prompt: !,?25,"BILL TRANSMISSION TYPE: ",$S(IBTYE="E":"EDI",IBTYE="M":"MRA",1:"EDI/MRA") Line Location: HDR1+8
Function Call: WRITE	Prompt: !,?25,"SORT BY: "_IBST3_", "_IBST4 Line Location: HDR1+9
Function Call: WRITE	Prompt: !,$S(IBST1="A":"AUTHORIZING BILLER: ",1:"PATIENT NAME: "),$G(IBFST) Line Location: HDR1+10
Function Call: WRITE	Prompt: !,?61,"DATE OF" Line Location: HDR1+11
Function Call: WRITE	Prompt: !,?51,"DATE OF",?62,"LAST",?71,"BILLED" Line Location: HDR1+12
Function Call: WRITE	Prompt: !,"BILL NUMBER",?13,"SSN",?25,"PAYER NAME",?50,"REJECTION",?61,"TRANSMIT",?71,"AMOUNT" Line Location: HDR1+13
Function Call: WRITE	Prompt: !,$TR($J("",80)," ","-"),! Line Location: HDR1+14
Routine Call	DIC Line Location: EDT+10 EDT+16
Routine Call	DIR Line Location: BEG+6 EDT+7 EN0+3 ST2+2 LIST+50 HDR1+3
Routine Call	%ZIS Line Location: ST2+9
Routine Call	%ZIS Line Location: ST2+16

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	EN+3, EN+5, EN+11, EN+13, EN+15, EN+18
^DGPM - [#405]	EN+9
^DIC(36 - [#36]	EN+19
^DPT - [#2]	EN+9, EN+13
^IBM(361 - [#361]	EN+20, EN+21, EN+27, LIST+20, LIST+21, LIST+31
^IBM(361.1 - [#361.1]	LIST+28, LIST+29, LIST+32, LIST+34, LIST+35
^TMP($J	EDT+13, EDT+19, EN+12, EN+30*, LIST+3, LIST+6, LIST+9, BEGQ!
^VA(200 - [#200]	EN+14

Label References

Name	Line Occurrences
BDT	EDT+4
BEGQ	BDT+1, EDT+1, EDT+20, EN0+4, ST2+3, ST2+10, LIST+3, LIST+41, LIST+42, LIST+45 , LIST+48
EDT	EDT+1
EN0	EDT+12, EN0+5
HDR1	LIST+4, LIST+7, LIST+18, LIST+23, LIST+36, LIST+39, LIST+43, LIST+46, LIST+48
ST2	ST2+4, ST2+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	BEG+1~, BDT, BDT+1!, EDT, EDT+1!
%DT("A"	BDT*
%ZIS	ST2+8~, ST2+9*
DIC	BEG+1~, EDT+10*, EN0!
DIC("A"	EDT+10, EDT+14
DIC(0	EDT+10*
DIR	BEG+1~, BEG+6!, EDT+7!, EN0+3!, ST2+2!, LIST+50!, HDR1+1~, HDR1+3!
DIR("?"	BEG+5, EDT+6, EN0+2, ST2+1
DIR("A"	BEG+4, EDT+5, EN0+1, ST2
DIR("B"	BEG+4*
DIR(0	BEG+4, EDT+5, EN0+1, ST2, LIST+50, HDR1+3
DIROUT	BEG+1~
DIRUT	BEG+1~
DTIME	EDT
DTOUT	BEG+1~, BEG+7, BDT+2, EDT+2, EDT+8, EDT+11, EDT+17, EDT+20, EN0+4, ST2+3
DUOUT	BEG+1~, BEG+7, BDT+2, EDT+2, EDT+8, EDT+11, EDT+17, EDT+20, EN0+4, ST2+3
IB	EN+1~, EN+20, EN+21, EN+27, EN+30, LIST+9, LIST+11, LIST+14, LIST+15, LIST+16 , LIST+17, LIST+28
IB0	BEG+2~, BEG+3, EN0+5, ST2+4, LIST+20, LIST+21, LIST+33, LIST+34, LIST+35
IB1	EN+1~, EN+21, EN+22, EN+23, EN+30, LIST+9, LIST+20, LIST+21, LIST+31
IB399	EN+1~, EN+5*, EN+6, EN+9, EN+10
IBBDD	BEG+2~, BDT+3*, EDT+1, EDT+4, EN+3, HDR1+7
IBCOD	EN+1~, EN+26, EN+27, EN+28, EN+29, EN+30, LIST+27, LIST+28, LIST+31, LIST+32 , LIST+34, LIST+35
IBDDT	EN+1~, EN+3*, EN+30
IBDPT	EN+1~, EN+13*, EN+16, EN+17
IBEDT	BEG+2~, EDT+3*, EN+3, HDR1+7
IBEPO	EN+1~, EN+6, EN+7, EN+8, EN+9, EN+10, EN+28, EN+29, EN+30
IBERR	BEG+2~, BEG+8*, EN0+5, ST2+4, LIST+17, LIST+19, LIST+40
IBFLG	LIST+1~, LIST+2, LIST+7, LIST+8*
IBFST	LIST+1~, LIST+6*, LIST+9, LIST+40, HDR1+10
IBIFN	EN+1~, EN+3*, EN+5, EN+11, EN+13, EN+15, EN+18, EN+19, EN+20, EN+23 , EN+30
IBLINE	EN+1~
IBMRA	EN+1~, EN+23*, EN+24, EN+25
IBNAM	EN+1~, EN+16*, EN+28, EN+29, EN+30
IBPAGE	EN+1~, LIST+2, HDR1+2, HDR1+5, HDR1+6
IBPAT	LIST+1~
IBPAY	EN+1~, EN+18, EN+19, EN+28, EN+29, EN+30
IBSEC	LIST+1~, LIST+9*
IBSO1	EN+1~, EN+27, EN+28, EN+30, LIST+8, LIST+10, LIST+40
IBSO2	EN+1~, EN+27, EN+29, EN+30, LIST+2, LIST+13, LIST+49
IBSSN	EN+1~, EN+17*, EN+28, EN+29, EN+30
IBST1	BEG+2~, EN0+6*, ST2+6, EN+28, LIST+8, LIST+10, LIST+14, LIST+17, LIST+38, HDR1+10
IBST2	BEG+2~, ST2+5*, ST2+6, EN+29, LIST+14, LIST+15
IBST3	BEG+2~, EN0+6*, HDR1+9
IBST4	BEG+2~, ST2+5*, HDR1+9
IBSTOP	EN+1~, LIST+2, LIST+6, LIST+7, LIST+9, LIST+18, LIST+20, LIST+22, LIST+23, LIST+25 , LIST+32, LIST+34, LIST+36, LIST+37, LIST+38, LIST+39, LIST+41, LIST+42, LIST+43, LIST+45 , LIST+46, LIST+48, HDR1+2, HDR1+3
IBTOL	EN+1~, EN+15*, EN+28, EN+29, EN+30
IBTYE	BEG+2~, EDT+9*, EN+24, EN+25, LIST+42, LIST+45, HDR1+8
IBUER	EN+1~, EN+11, EN+12, EN+14, EN+28, EN+29, EN+30, LIST+1~
IBWNR	LIST+1~, LIST+2, LIST+11, LIST+44
IBWR	LIST+1~, LIST+2, LIST+12, LIST+47
IBX	LIST+21~, LIST+22, LIST+24, LIST+28, LIST+29, LIST+31
IBY	LIST+21~, LIST+22, LIST+24, LIST+29, LIST+30*, LIST+31
IBZ	BEG+1~, EN0+1*, ST2
IO	ST2+17
IO("Q"	ST2+10!
IOF	EN+2, HDR1+4
IOSL	LIST+18, LIST+23, LIST+36, LIST+39, LIST+43, LIST+46, LIST+48
IOST	EN+2, LIST+50, HDR1+3
>> POP	ST2+9
U	EN+6, EN+9, EN+10, EN+11, EN+13, EN+14, EN+15, EN+16, EN+17, EN+19 , EN+22, EN+23, EN+30, LIST+11, LIST+14, LIST+15, LIST+16, LIST+17, LIST+29, LIST+32
>> X	EDT, EDT+1
Y	BEG+2~, BEG+8, BDT+1, BDT+3, EDT+1, EDT+3, EDT+4, EDT+9, EDT+12, EDT+13 , EDT+15, EDT+18, EDT+19, EN0+5, EN0+6, ST2+4, ST2+5, HDR1+1~, HDR1+3
Y(0	EN0+6, ST2+5
ZTDESC	ST2+8~, ST2+15*
>> ZTQUEUED	BEGQ+1, BEGQ+2
>> ZTREQ	BEGQ+1*
ZTRTN	ST2+8~, ST2+11*
ZTSAVE	ST2+8~
ZTSAVE("IBBDD"	ST2+13*
ZTSAVE("IBEDT"	ST2+13*
ZTSAVE("IBERR"	ST2+12*
ZTSAVE("IBST*"	ST2+12*
ZTSAVE("IBTYE"	ST2+12*
ZTSAVE("^TMP($J,""IBSORT"","	ST2+14*
ZTSK	ST2+16!

Customize PDF page

Package: Integrated Billing

Routine: IBCERP2

Information

Source Information

Call Graph

Call Graph Total: 12

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: