Routine: IBTOBI1

Information

IBTOBI1 ;ALB/AAS - CLAIMS TRACKING BILLING INFORMATION PRINT ;27-OCT-93

Package	Total	Call Graph
Integrated Billing	6	$$GRP^IBCNS ALL^IBCNS1 SC^IBTOAT2 HDR^IBTOBI $$EXPAND^IBTRE $$BILLD^IBTRED1
VA FileMan	2	^DIWP ^DIWW
Registration	1	ELIG^VADPT

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Integrated Billing	2	IBTOBI IBTOTR

Entry Points

Name	Comments	DBIA/ICR reference
INS	; -- print ins. stuff
INSQ
BI	; -- print billing information
BI1
SC	; -- print SC information
SCQ
COMM(DA)	; -- print comments from GROUP plans.

External References

Name	Field # of Occurrence
^DIWP	COMM+6
^DIWW	COMM+8
$$GRP^IBCNS	INS+25
ALL^IBCNS1	INS+7
SC^IBTOAT2	SC+9
HDR^IBTOBI	INS+11, BI+2, SC+1, COMM+6
$$EXPAND^IBTRE	INS+26, INS+28, BI1+11, BI1+16
$$BILLD^IBTRED1	BI1+5
ELIG^VADPT	SC+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !," Insurance Information " Line Location: INS+5
Function Call: WRITE	Prompt: !,?TAB,"No Insurance Information",!!! Line Location: INS+8
Function Call: WRITE	Prompt: ! Line Location: INS+12
Function Call: WRITE	Prompt: !," Policy Comment: " Line Location: INS+30
Function Call: WRITE	Prompt: ! Condition for execution: ($L(X)+23)>IOM Line Location: INS+30
Function Call: WRITE	Prompt: " ",X Line Location: INS+30
Function Call: WRITE	Prompt: !," Billing Information " Line Location: BI1+0
Function Call: WRITE	Prompt: !,$G(IBD(I,1)),?39,$E($G(IBD(I,2)),1,36) Line Location: BI1+27
Function Call: WRITE	Prompt: !!," Eligibility Information" Line Location: SC+4
Function Call: WRITE	Prompt: !," Primary Eligibility: "_$P(VAEL(1),"^",2) Line Location: SC+5
Function Call: WRITE	Prompt: !," Means Test Status: "_$P(VAEL(9),"^",2) Line Location: SC+6
Function Call: WRITE	Prompt: !," Service Connected Percent: "_$S(+VAEL(3):+$P(VAEL(3),"^",2)_"%",1:"") Line Location: SC+7
Function Call: WRITE	Prompt: "Patient Not Service Connected",!! Line Location: SC+8
Function Call: WRITE	Prompt: !,"Group Plan Comments: " Line Location: COMM+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	BI1+3, BI1+4
^DIC(36 - [#36]	INS+13, INS+14, INS+28
^IBA(355.3 - [#355.3]	INS+21, COMM+3, COMM+6
^IBE(355.1 - [#355.1]	INS+21
^UTILITY($J	COMM+4!, COMM+9!

Label References

Name	Line Occurrences
@(	%+1
COMM	INS+31
INSQ	INS+8
SCQ	SC+8

Naked Globals

Name	Field # of Occurrence
^(	COMM+6
^("U"	BI1+3
^("U1"	BI1+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	COMM~, COMM+3, COMM+6
>> DFN	INS+7
>> DIWF	COMM+5*
>> DIWL	COMM+5*
>> DIWR	COMM+5*
DT	INS+4
I	INS+1~, BI1+1~, BI1+27*
IBALLIN	INS+1~, INS+2*
IBAMNT	BI1+1~, BI1+5*, BI1+12, BI1+13
IBCNT	INS+1~, INS+9, INS+10, INS+12, INS+13
>> IBCTHDR	BI+1
IBD	BI1+1~
IBD(	BI1+7, BI1+9, BI1+10, BI1+11, BI1+12, BI1+13, BI1+16, BI1+17, BI1+20*, BI1+27
IBD(1	BI1+22*
IBD(2	BI1+23*
IBD(3	BI1+24*
IBD(4	BI1+25*
IBDGCR	BI1+1~, BI1+3*, BI1+7, BI1+11
IBDGCRU	BI1+1~, BI1+3*
IBDGCRU1	BI1+1~, BI1+3*
IBDT	INS+1~, INS+3, INS+4, INS+7
IBECME	BI1+1~, BI1+4*, BI1+8, BI1+10
>> IBETYP	INS+17
IBI	INS+1~, INS+9*, INS+30
IBIFN	BI1+1~, BI1+2*, BI1+3, BI1+4
IBINS	INS+1~, INS+9*, INS+13, INS+14, INS+21, INS+23, INS+24, INS+25, INS+26, INS+28 , INS+31
IBINS(	INS+9, INS+30
IBINS(0	INS+8
>> IBJ	COMM+6*
IBLN	BI1+1~, BI1+6, BI1+7, BI1+9, BI1+10, BI1+11, BI1+12, BI1+13, BI1+16, BI1+17 , BI1+20*
>> IBQUIT	%+1, INS+9, INS+11, INS+32, INS+34, BI+2, BI1+28, SC+1, SCQ, COMM+1 , COMM+6, COMM+7
>> IBTAG	%+1*
IBTRCSC	SC+2~, SC+9*
>> IBTRN	BI1+5
>> IBTRND	INS+3, BI1+2, BI1+15, BI1+16, BI1+20, BI1+22, BI1+23, BI1+24, BI1+25
>> IBTRND1	BI1+17, BI1+20
IOM	INS+30, INS+34, BI1+28, SCQ, COMM+5
IOSL	INS+11, BI+2, SC+1, COMM+6
P	INS+1~, INS+17*, INS+18
PHON	INS+1~, INS+15*, INS+22
PHON2	INS+1~, INS+16*, INS+27
PHON3	INS+1~, INS+18*, INS+29
TAB	INS+1~, INS+2, INS+8, INS+13, INS+21, INS+23, INS+24, INS+25, INS+26, INS+28 , SC+2~, SC+9
TAB2	INS+1~, INS+2*, INS+22, INS+27, INS+29
U	BI1+4, BI1+7, BI1+11, BI1+15, BI1+16, BI1+17, BI1+20
VAEL	SC+2~
VAEL(1	SC+5
VAEL(3	SC+7, SC+8
VAEL(9	SC+6
X	INS+1~, INS+14, INS+15, INS+16, INS+18, INS+30, COMM+6*

Customize PDF page

Package: Integrated Billing