Routine: IBCA3

Information

IBCA3 ;ALB/AAS - MCCR SINGLE LINE DISPLAY OF BILL ; 12/22/89

Source file <IBCA3.m>

Package	Total	Call Graph
Integrated Billing	3	GVAR^IBCBB END^IBCBB1 ($$ACTNM,$$DAT1)^IBOUTL
VA Fileman	1	Y^DIQ

Package	Total	Caller Graph
Integrated Billing	3	IBCA IBCA0 IBOA31

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: ?3,DGSELNO Line Location: ONE+1
Function Call: WRITE	Prompt: $E(I,4,5)_"/"_$E(I,6,7)_"/"_$E(I,2,3)," " Line Location: ONE+3
Function Call: WRITE	Prompt: $$DAT1^IBOUTL(I)," " Line Location: ONE1+3
Function Call: WRITE	Prompt: $E(Y,1,7)," ",$E($$ACTNM^IBOUTL($P(D,"^",3)),1,18) Line Location: ONE1+4
Function Call: WRITE	Prompt: @DGTAB,"Bill # Classif Payer Event DT From Dat To Date Status Timeframe" Line Location: HDR+0
Function Call: WRITE	Prompt: @DGTAB,"------ ------- ----- -------- -------- -------- ------ ----------" Line Location: HDR+1
Function Call: READ	Timeout: DTIME Line Location: PAUSE+0
Function Call: READ	Timeout: DTIME Variable: IBX Line Location: ASK+1
Function Call: WRITE	Prompt: " ",$P(Y(0),"^") Line Location: ASK+3

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
^UTILITY($J	EN2+4, EN3+4, EN3+5, EN4+1!, EN4+4, 41, SCRN+1, ASK+3, UTIL!, UTIL+1 , UTIL1+2*, END+1!

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

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, HDR+1, PAUSE , ASK, ASK+1, HELPSEL
DGTAB	ONE+1, ONE+2, HDR, HDR+1*, END+1!
DIC	EN4Q!
DTIME	PAUSE, ASK+1
I	ONE+3, ONE1+1~, ONE1+3
>> IBBNO	ONE+2
>> IBCL	ONE+2
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+3, UTIL+1*
>> IBFDT	ONE+3
>> IBIDS(	EN4+5, ASK+3*
>> IBIFN	EN2+3, EN2+4, EN3+3, EN3+4, EN4+3, 41, SCRN, SCRN+1
IBIFN1	UTIL, UTIL+1, END+1!
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+4
>> IBTDT	ONE+3
>> IBTF	ONE+5
>> IBWHO	ONE+2
>> 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
>> X	EN3+3, ONE1+3, UTIL1+2
Y	ONE1+1~, ONE1+4, ASK+3, UTIL1+1~, UTIL1+2*
Y(0	ASK+3*
Y1	UTIL1+1~, UTIL1+2*

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