Routine: IBTOAT1

Package	Total	Call Graph
Integrated Billing	4	$$GRP^IBCNS ALL^IBCNS1 ^IBTOAT2 $$ADMDIAG^IBTRE6
Registration	2	(4,ELIG,INP,KVAR,OAD)^VADPT PAUSE^VALM1
Kernel	1	HOME^%ZIS

Package	Total	Caller Graph
Integrated Billing	1	IBTOAT

Entry Points

Name	Comments	DBIA/ICR reference
EM
TWOL	; -- write two underlines
L(C,L)	; -- output line
END
DEMO	; -- print pt. demographics
ATYPE(X)	; -- Admission Type Expand Set
ONE	; -- print one sheet here - no close device, no form feeds
INSQ
INS	; -- print insurance info
LINE	; -- write a line
ADM	; -- print admissions data
ADMQ

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?(IOM-$L($P(IBTITLE,"^",I))/2),$P(IBTITLE,"^",I) Line Location: ONE+15
Function Call: WRITE	Prompt: !?TAB,"No admission Found",!!!! Line Location: ADM+1
Function Call: WRITE	Prompt: ?TAB2+11,VAPA(2) Line Location: DEMO+7
Function Call: WRITE	Prompt: ?TAB2+11,VAPA(3) Line Location: DEMO+9
Function Call: WRITE	Prompt: " - ",VAEC(10) Line Location: EM+3
Function Call: WRITE	Prompt: !?TAB+11,VAOA(2),?TAB2+11,VAEC(2) Line Location: EM+5
Function Call: WRITE	Prompt: !?TAB+11,VAOA(3),?TAB2+11,VAEC(3) Line Location: EM+6
Function Call: WRITE	Prompt: !,?TAB,"No Insurance Information",!!! Line Location: INS+4
Function Call: WRITE	Prompt: !?TAB,"MORE......" Line Location: INS+6
Function Call: WRITE	Prompt: ! Line Location: INS+8
Routine Call	%ZIS Line Location: ONE+5

Name	Line Occurrences (* Changed, ! Killed)
^DD(356	ATYPE+3
^DGPM - [#405]	ADM+3
^DIC(36 - [#36]	INS+9, INS+10
^DIC(5 - [#5]	DEMO+11, EM+7, EM+8
^IBA(355.3 - [#355.3]	INS+13
^IBE(350.9 - [#350.9]	ONE+14
^IBE(355.1 - [#355.1]	INS+13
^IBT(356 - [#356]	ONE+9, ONE+10, ADM+3

Name	Field # of Occurrence
C	L~, L+1*, L+3
>> DFN	ONE+4, INS+3
DIRUT	ONE+18, END!
DT	INS+2
I	ONE+6~, ONE+15, INS+1~, INS+6
>> IBALLIN	INS+6
IBCNT	INS+1~, INS+6, INS+7, INS+8, INS+9
>> IBDT	INS+2*, INS+3
IBINS	INS+1~, INS+6*, INS+9, INS+10, INS+12, INS+13, INS+14, INS+15
IBINS(	INS+6
IBINS(0	INS+4
>> IBTITLE	ONE+14*, ONE+15
>> IBTRN	ONE+9, ONE+10, ADM+1, ADM+3, ADM+10
IBTRND	ONE+6~, ONE+10*, ADM+5
IOM	ONE+13, ONE+15, LINE+1, TWOL+1, L+2
IOSL	INS+5
IOST	ONE+5, ONE+18
J	ONE+6~
L	L~, L+2*, L+3
>> MAX	INS+5*, INS+6
>> TAB	ONE+12*, ADM+1, ADM+4, ADM+6, ADM+8, ADM+10, DEMO+4, DEMO+6, DEMO+8, DEMO+10 , DEMO+12, EM+2, EM+4, EM+5, EM+6, EM+7, EM+9, INS+4, INS+6, INS+9 , INS+12, INS+14, TWOL+1
>> TAB2	ONE+12*, ADM+5, ADM+7, ADM+9, DEMO+5, DEMO+7, DEMO+9, DEMO+11, DEMO+12, EM+3 , EM+4, EM+5, EM+6, EM+8, EM+9, INS+11, INS+13, INS+15
VA	ONE+6~
VA("PID"	DEMO+6
VA200	ONE+6~, ADM+2*
VADM	ONE+6~
VADM(1	DEMO+4
VADM(3	DEMO+8
VADM(5	DEMO+12
VAEC	ONE+6~, END!
VAEC(1	EM+4
VAEC(10	EM+3
VAEC(2	EM+5
VAEC(3	EM+6
VAEC(4	EM+8
VAEC(5	EM+8
VAEC(6	EM+8
VAEC(8	EM+9
VAEC(9	EM+3
VAEL	ONE+6~
VAEL(3	DEMO+10
VAIN	ONE+6~
VAIN(1	ADM+3
VAIN(2	ADM+6
VAIN(3	ADM+7
VAIN(4	ADM+8
VAIN(5	ADM+9
VAIN(7	ADM+4
VAINDT	ONE+6~, ADM+3~*
VAOA	ONE+6~
VAOA("A"	EM, EM+1
VAOA(1	EM+4
VAOA(2	EM+5
VAOA(3	EM+6
VAOA(4	EM+7
VAOA(5	EM+7
VAOA(6	EM+7
VAOA(8	EM+9
VAOA(9	EM+2
VAPA	ONE+6~
VAPA(1	DEMO+5
VAPA(2	DEMO+7
VAPA(3	DEMO+9
VAPA(4	DEMO+11
VAPA(5	DEMO+11
VAPA(6	DEMO+11
VAPA(8	DEMO+12
VAROOT	EM*!
X	ONE+6~, INS+10*, INS+11, ATYPE~, ATYPE+3
Y	ONE+6~
>> ZTQUEUED	END+1
>> ZTREQ	END+1*