Routine: IBCA3

Package	Total	Call Graph
Integrated Billing	4	GVAR^IBCBB END^IBCBB1 $$BCHGTYPE^IBCU $$DAT1^IBOUTL
VA FileMan	1	Y^DIQ

Package	Total	Caller Graph
Integrated Billing	3	IBCA IBCA0 IBOA31

Entry Points

Name	Comments	DBIA/ICR reference
EN1	;entry for one bill, must pass IBIFN
EN2	;Find all bills for a patient must pass dfn
EN2Q
EN3	;Find all bills for a patient on one episode date. must pass dfn, episode date in x
EN3Q
EN4	;Find all bills beginning a CEOC and allow selection by number, pass dfn
EN4Q
41
SCRN
ONE
ONE1	; Display IB Actions. Input: K, X
HDR
HDR1	; Write header to dislay IB Actions.
PAUSE
ASK
HELPSEL
UTIL
UTIL1	; Get IB charges for a patient for a single event date. Input: DFN, X
END
ACTNM(X,P)	; returns external form of action type (350.1), short or long

External References

Name	Field # of Occurrence
Y^DIQ	ONE1+4
GVAR^IBCBB	ONE
END^IBCBB1	END
$$BCHGTYPE^IBCU	ONE+3
$$DAT1^IBOUTL	ONE1+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No Bills On File for this Patient!" Line Location: EN2+2
Function Call: WRITE	Prompt: !,"No Other Bills for this Episode Date on File!" Line Location: EN3+2
Function Call: WRITE	Prompt: !,"No Other Bills for this Episode Date on File!" Line Location: EN3+6
Function Call: WRITE	Prompt: !,"No Other Bills for this Episode Date on File!" Line Location: EN4+2
Function Call: WRITE	Prompt: ! Line Location: ONE+0
Function Call: WRITE	Prompt: DGSELNO Line Location: ONE+1
Function Call: WRITE	Prompt: ?DGTAB,IBBNO,?13,$S($P(IBND0,U,27)=1:"I",$P(IBND0,U,27)=2:"P",1:"") Line Location: ONE+2
Function Call: WRITE	Prompt: ?15,$S(IBCL=2:"HE ",IBCL=4:"HE ",1:""),$$BCHGTYPE^IBCU(IBIFN),?29 Line Location: ONE+3
Function Call: WRITE	Prompt: $S(IBWHO="p":"Pat",IBWHO="i":"Ins",1:"Oth"),$S($P(IBND0,U,21)="S":" s",$P(IBND0,U,21)="T":" t",1:""),?36 Line Location: ONE+4
Function Call: WRITE	Prompt: $E(I,4,5)_"/"_$E(I,6,7)_"/"_$E(I,2,3)," " Line Location: ONE+5
Function Call: WRITE	Prompt: ?66,$S(IBST=1:"Enterd",IBST=2:"ReqMRA",IBST=3:"Auth. ",IBST=4:"Pr/Txd",1:"Cancel")," " Line Location: ONE+6
Function Call: WRITE	Prompt: ?74,$S(IBTF=1:"Ad-Ds",IBTF=2:"Int FC",IBTF=3:"Int CC",IBTF=4:"Int LC",IBTF=5:"Late",IBTF=6:"Adjust",IBTF=7:"Replac",IBTF=0:"ZERO",1:"") Line Location: ONE+7
Function Call: WRITE	Prompt: !,?2,$P($P(D,"^",11),"-",2),?13,$S($P($G(^IBE(350.1,+$P(D,"^",3),0)),"^")["OPT":"Outpt.",1:"Inpat."),?28,"Patnt",?36 Line Location: ONE1+2
Function Call: WRITE	Prompt: $$DAT1^IBOUTL(I)," " Line Location: ONE1+3
Function Call: WRITE	Prompt: ?66,$E(Y,1,4),?72,$$ACTNM($P(D,"^",3),1) Line Location: ONE1+4
Function Call: WRITE	Prompt: !,?DGTAB,"Bill #",?13,"Classf ($typ)",?29,"Payer",?36,"Event DT From DT To Date",?66,"Status",?74,"Timefm" Line Location: HDR+0
Function Call: WRITE	Prompt: !,?DGTAB,"------",?13,"-------------",?29,"-----",?36,"-------- -------- --------",?66,"------",?74,"------" Line Location: HDR+1
Function Call: WRITE	Prompt: !,?2,"Bill #",?13,"Classf",?28,"Payer",?36,"Event DT From DT To Date",?66,"Stat",?72,"Act Typ" Line Location: HDR1+1
Function Call: WRITE	Prompt: !,?2,"------",?13,"-------",?28,"-----",?36,"-------- -------- --------",?66,"----",?72,"------" Line Location: HDR1+2
Function Call: READ	Timeout: DTIME Line Location: PAUSE+0
Function Call: READ	Variable: IBX Timeout: DTIME Line Location: ASK+1
Function Call: WRITE	Prompt: " ",$P(Y(0),"^") Line Location: ASK+3
Function Call: WRITE	Prompt: !!,"Enter 1-",DGSELNO," to select that entry or enter the Bill Number" Line Location: HELPSEL+0

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(350	ONE1+4
^DGCR(399 - [#399]	SCRN, SCRN+1, ASK+3, UTIL+1
^IB - [#350]	ONE1+1, UTIL1+2
^IB("AF"	UTIL1+2
^IB("AFDT"	UTIL1+2
^IBE(350.1 - [#350.1]	ONE1+2, ACTNM+2, ACTNM+3
^UTILITY($J	EN2+4, EN3+4, EN3+5, EN4+1!, EN4+4, 41, SCRN+1, ASK+3, UTIL!, UTIL+1 , UTIL1+2*, END+1!

Label References

Name	Line Occurrences
$$ACTNM	ONE1+4
41	EN4+4
ASK	HELPSEL
EN2Q	EN2+2
EN3Q	EN3+2, EN3+6
EN4Q	EN4+2
END	EN1+2, EN2Q, EN3Q, EN4Q
HDR	EN1+1, EN2+3, EN3+4, SCRN+1
HDR1	EN3+5
ONE	EN1+1, EN2+4, EN3+4, SCRN+1
ONE1	EN3+5
PAUSE	EN2+4, EN3+4, EN3+5, EN4+5, SCRN+1
SCRN	41
UTIL	EN2+1, EN3+1, EN4+1
UTIL1	EN3+1

Naked Globals

Name	Field # of Occurrence
^(	ASK+3
^(0	ASK+3, UTIL1+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	SCRN*, SCRN+1, END+1!
C	ONE1+1~, ONE1+4*
D	ONE1+1~*, ONE1+2, ONE1+3, ONE1+4
>> DFN	UTIL+1, UTIL1+2
DGSELNO	EN1+1!, EN2+3!, EN3+3!, EN4+1, EN4Q!, SCRN+1, ONE+1, HDR, PAUSE, ASK , ASK+1, HELPSEL
DGTAB	ONE+1, ONE+2, HDR, HDR+1, END+1!
DIC	EN4Q!
DTIME	PAUSE, ASK+1
I	ONE+5, ONE1+1~, ONE1+3
>> IBBNO	ONE+2
>> IBCL	ONE+3
IBCNT	EN2+2, EN2+3, EN2+4, EN3+2, EN3+3, EN3+4, EN3+5, EN3+6, EN4+2, EN4+3 , UTIL, UTIL+1, UTIL1+2*, END+1!
IBDT	EN2+3, EN2+4, EN3+3, EN3+4, EN4+3, EN4+4, 41, END+1!
IBDT1	EN3+3*, EN3+4, END+1!
>> IBEVDT	ONE+5, UTIL+1*
>> IBFDT	ONE+5
>> IBIDS(	EN4+5, ASK+3*
>> IBIFN	EN2+3, EN2+4, EN3+3, EN3+4, EN4+3, 41, SCRN, SCRN+1, ONE+3
IBIFN1	UTIL, UTIL+1, END+1!
>> IBND0	ONE+2, ONE+4
IBPAUS	EN2+1, EN2+4, EN4+3, SCRN+1, END+1!
IBQUIT	EN2+1, EN2+4, EN3+1, EN3+4, EN3+5, EN4+1, EN4+4, EN4+5, 41, PAUSE , ASK+1, ASK+3, END+1!
>> IBST	ONE+6
>> IBTDT	ONE+5
>> IBTF	ONE+7
>> IBWHO	ONE+4
>> IBX	ASK+1*, ASK+2, ASK+3
IBX1	PAUSE*, END+1!
IOST	PAUSE
>> J	EN2+4, EN3+4, 41, UTIL+1
>> K	EN2+4, EN3+4, EN3+5, EN4+4, ONE1+1
P	ACTNM~, ACTNM+1*, ACTNM+3
U	ONE+2, ONE+4
X	EN3+3, ONE1+3, UTIL1+2, ACTNM~, ACTNM+1*, ACTNM+2, ACTNM+3
X1	ACTNM+1~, ACTNM+2*, ACTNM+3
Y	ONE1+1~, ONE1+4, ASK+3, UTIL1+1~, UTIL1+2, ACTNM+1~, ACTNM+3, ACTNM+4
Y(0	ASK+3*
Y1	UTIL1+1~, UTIL1+2*

Customize PDF page

Package: Integrated Billing

Routine: IBCA3

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: