Routine: IBCECSA3

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD ($$FMTE,$$HTE)^XLFDT $$KCHK^XUSRB
Integrated Billing	4	($$SD,SORT)^IBCECSA BLD^IBCECSA1 EN^IBCEMCL $$DAT1^IBOUTL
Accounts Receivable	1	$$BN1^PRCAFN
List Manager	1	(FULL,PAUSE)^VALM1
VA FileMan	1	^DIR

Package	Total	Caller Graph
Integrated Billing	3	IBCEM CSA MSG MAN IBCEM CSA RE-SORT MESSAGES IBCEM CSA REPORT
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Report of claims status awaiting resolution
LIST	; display
LISTQ
IBPAY(IBX,IBX2,IBX3)	; return biller name
HDR1	;
RESORT	; CSA screen re-sort action
RES1	;
RESORTX	;
MCS	; Link to the Multiple CSA Message Management option
MCSX	;

External References

Name	Field # of Occurrence
^%ZIS	EN+14
HOME^%ZIS	EN+23
^%ZISC	LISTQ+1
^%ZTLOAD	EN+23
^DIR	EN+8, LIST+52, HDR1+3, RESORT+10
$$SD^IBCECSA	HDR1+6, HDR1+8, HDR1+10, RESORT+4, RESORT+5, RESORT+6
SORT^IBCECSA	RESORT+19, RESORT+20, RESORT+21
BLD^IBCECSA1	RES1+11, MCS+13
EN^IBCEMCL	MCS+10
$$DAT1^IBOUTL	LIST+11
$$BN1^PRCAFN	LIST+11, LIST+28
FULL^VALM1	EN+3, RESORT+2, MCS+2
PAUSE^VALM1	MCS+5
$$FMTE^XLFDT	LIST+35
$$HTE^XLFDT	HDR1+9
$$KCHK^XUSRB	MCS+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EN+4
Function Call: WRITE	Prompt: !!,"You will need a 132 column printer for this report!",! Line Location: EN+12
Function Call: WRITE	Prompt: !,"No entries found for this report" Line Location: LIST+6
Function Call: WRITE	Prompt: $$BN1^PRCAFN(+IB),$P(IB,U,12),?13,$E($P(IB,U,2),1,25),?40,$E($P(IB,U,3),1,30),?72,$P($P(IB,U,4),"~"),?78,$$DAT1^IBOUTL($P(IB,U,5)),?88,$E($P(IB,U,7),1,10),?100,"$"_$J($P(IB,U,6),0,2),?110,$P(IB,U,10),?122,$P(IB,U,11),! Line Location: LIST+11
Function Call: WRITE	Prompt: " *** CSA REVIEW IN PROCESS ***",! Line Location: LIST+12
Function Call: WRITE	Prompt: " FORM TYPE: "_$P($G(^IBE(353,$P($G(^DGCR(399,+IB,0)),U,19),0)),U),! Line Location: LIST+13
Function Call: WRITE	Prompt: X,$J(" ",40-$L(X))_"AUTHORIZING BILLER: "_$P($P(IB,U,9),"~",1),! Line Location: LIST+14
Function Call: WRITE	Prompt: " MESSAGE TEXT: " Line Location: LIST+15
Function Call: WRITE	Prompt: " "_$E(X,I,I+130),! Line Location: LIST+18
Function Call: WRITE	Prompt: ?3,"* Review Comments for Claim "_$$BN1^PRCAFN(+IB)_" *",! Line Location: LIST+28
Function Call: WRITE	Prompt: ?7,"Entered "_$$FMTE^XLFDT($P(IBD0,U,1),"5ZPM") Line Location: LIST+35
Function Call: WRITE	Prompt: " by "_$P($G(^VA(200,$P(IBD0,U,2),0)),U,1) Line Location: LIST+36
Function Call: WRITE	Prompt: " ("_IBT0_" of "_IBT1_")",! Line Location: LIST+37
Function Call: WRITE	Prompt: ?10,$G(^IBM(361,IBDA,2,IBCM,1,IBCL,0)),! Line Location: LIST+40
Function Call: WRITE	Prompt: ! Line Location: LIST+47
Function Call: WRITE	Prompt: ! Line Location: LISTQ+1
Function Call: WRITE	Prompt: @IOF Line Location: HDR1+4
Function Call: WRITE	Prompt: !,"Sort 1: ",$$SD^IBCECSA(IBSORT1) Line Location: HDR1+6
Function Call: WRITE	Prompt: ?46,"Claims Status Awaiting Resolution Report",?120,$J("Page: "_IBPAGE,11) Line Location: HDR1+7
Function Call: WRITE	Prompt: ?104,$J("Run Date: "_$$HTE^XLFDT($H,"2Z"),27) Line Location: HDR1+9
Function Call: WRITE	Prompt: !!,"Division: "_$S($G(IBX)=0:"",1:$G(IBX)),!,"Authorizing Biller: "_$G(IBPAY) Line Location: HDR1+11
Function Call: WRITE	Prompt: !,?72,"Last",?78,"Date of",?88,"Location",?100,"Current",?110,"Source of",?122,"Days Msg" Line Location: HDR1+12
Function Call: WRITE	Prompt: !,"Bill #",?13,"Payer Name",?40,"Patient Name",?72,"4 SSN",?78,"Service",?88,"of Service",?100,"Balance",?110,"Message",?122,"Pending" Line Location: HDR1+13
Function Call: WRITE	Prompt: !,$TR($J("",132)," ","-"),! Line Location: HDR1+14
Function Call: WRITE	Prompt: !!?2,"The CSA screen is currently sorted in the following manner:" Line Location: RESORT+3
Function Call: WRITE	Prompt: ! Line Location: RESORT+8
Function Call: WRITE	Prompt: ! Line Location: RESORT+17
Function Call: WRITE	Prompt: !!?5,"You must hold the IB MESSAGE MANAGEMENT key to access this option." Line Location: MCS+4
Routine Call	%ZIS Line Location: EN+14
Routine Call	%ZIS Line Location: EN+23
Routine Call	DIR Line Location: EN+8 LIST+52 HDR1+3 RESORT+10

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	LIST+13
^IBE(353 - [#353]	LIST+13
^IBM(361 - [#361]	LIST+16, LIST+17, LIST+25, LIST+29, LIST+31, LIST+33, LIST+38, LIST+40
^TMP("IBCECSB"	LIST+5, LIST+7, LIST+9, IBPAY+2, IBPAY+3
^VA(200 - [#200]	LIST+36

Label References

Name	Line Occurrences
$$IBPAY	LIST+8
HDR1	LIST+6, LIST+8, LIST+10, LIST+20, LIST+27, LIST+34, LIST+39, LIST+46
LISTQ	LIST+5, LIST+51
MCSX	MCS+3
RES1	RESORT+19, RESORT+20, RESORT+21
RESORTX	RESORT+11, RES1+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	EN+1~, EN+14*
DIR	EN+1~, EN+8!, LIST+52!, HDR1+1~, HDR1+3!, RESORT+1~, RESORT+10!
DIR("A"	EN+6, RESORT+9
DIR("B"	EN+7, RESORT+10
DIR(0	EN+5, LIST+52, HDR1+3, RESORT+9
DIROUT	EN+1~
DIRUT	EN+1~, EN+9
DTOUT	EN+1~
DUOUT	EN+1~
>> I	LIST+18*
IB	LIST+1~, LIST+9*, LIST+11, LIST+12, LIST+13, LIST+14, LIST+28
IBCL	LIST+26~, LIST+38*, LIST+40
IBCM	LIST+26~, LIST+29, LIST+31, LIST+33, LIST+38, LIST+40
IBCSAMCS	MCS+1~*, MCS+13
IBCURR	RESORT+1~, RES1+4, RES1+5, RES1+6
IBD0	LIST+26~, LIST+33*, LIST+35, LIST+36
IBDA	LIST+1~, LIST+9*, LIST+16, LIST+17, LIST+25, LIST+29, LIST+31, LIST+33, LIST+38, LIST+40
IBDAYS	RES1+9*, MCS+9~
IBDIV	LIST+1~, LIST+3, LIST+4, LIST+8, LIST+14, HDR1+11
IBFST	LIST+1~, LIST+3, LIST+8
IBPAGE	LIST+1~, LIST+3, HDR1+2, HDR1+5, HDR1+7
IBPAY	LIST+1~, LIST+8*, HDR1+11
IBRVW	EN+1~, EN+10*, LIST+25
IBSAVE	RESORT+1~, RESORT+14, RESORT+15, RESORT+19, RES1+1, RES1+6
IBSEV	RES1+10*, MCS+9~
IBSORT1	LIST+4, HDR1+6, RESORT+4, RESORT+14, RES1+1*, RES1+4, MCS+9~
IBSORT2	HDR1+8, RESORT+5, RESORT+14, RESORT+21, RES1+4, MCS+9~
IBSORT3	HDR1+10, RESORT+6, RESORT+14, RES1+4, MCS+9~
IBSORTOR	RESORT+18!
IBSORTOR(	RESORT+15, RES1+5
IBSTOP	LIST+1~, LIST+3, LIST+7, LIST+8, LIST+9, LIST+10, LIST+16, LIST+20, LIST+22, LIST+25 , LIST+27, LIST+31, LIST+34, LIST+38, LIST+39, LIST+46, LIST+51, HDR1+2, HDR1+3
IBT0	LIST+26~, LIST+30, LIST+32, LIST+37
IBT1	LIST+26~, LIST+29*, LIST+37
IBX	LIST+1~, LIST+7*, LIST+8, LIST+9, IBPAY~, IBPAY+2, IBPAY+3, HDR1+11
IBX2	LIST+1~, LIST+7*, LIST+8, LIST+9, IBPAY~, IBPAY+2, IBPAY+3
IBX3	LIST+7*, LIST+8, LIST+9, IBPAY~, IBPAY+2, IBPAY+3
IBZ	LIST+1~, LIST+16*, LIST+17
IBZFT	LIST+1~, LIST+15, LIST+17, LIST+19
IO	EN+24
IO("Q"	EN+15!
IOF	LIST+2, HDR1+4
IOSL	LIST+10, LIST+20, LIST+27, LIST+34, LIST+39, LIST+46
IOST	LIST+2, LIST+52, HDR1+3
>> POP	EN+14
U	LIST+11, LIST+12, LIST+13, LIST+14, LIST+35, LIST+36, IBPAY+4, RESORT+14, RESORT+15, RESORT+19 , RES1+1, RES1+4, RES1+5
>> VALMBCK	RESORT+2, RES1+12, MCS+2, MCS+14
>> VALMBG	RES1+12, MCS+13
VALMQUIT	RESORT+1~, RESORT+19, RESORT+20, RESORT+21
X	EN+1~, LIST+1~, LIST+14, LIST+17, LIST+18, IBPAY+1~, IBPAY+2, IBPAY+3, IBPAY+4, RESORT+1~
Y	EN+1~, EN+10, HDR1+1~, HDR1+3, RESORT+1~, RESORT+11
Z	RESORT+1~, RESORT+15, RES1+5
ZTDESC	EN+1~, EN+23*
>> ZTQUEUED	LISTQ
>> ZTREQ	LISTQ*
ZTRTN	EN+1~, EN+16*
ZTSAVE	EN+1~
ZTSAVE("IBRVW"	EN+22*
ZTSAVE("IBSORT1"	EN+17*
ZTSAVE("IBSORT2"	EN+18*
ZTSAVE("IBSORT3"	EN+19*
ZTSAVE("IBSORTOR"	EN+20*
ZTSAVE("^TMP(""IBCECSB"",$J,"	EN+21*
ZTSK	EN+23!

Customize PDF page

Package: Integrated Billing

Routine: IBCECSA3

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: