Routine: IBTOBI

Information

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

Source file <IBTOBI.m>

Package	Total	Call Graph
Integrated Billing	6	$$DAT1^IBOUTL ^IBTOBI1 4^IBTOBI4 $$EXPAND^IBTRE $$ENCL^IBTRED TRAC^IBTRV
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD ($$FMTE,$$HTE)^XLFDT
VA Fileman	3	^DIC DT^DICRW D^DIQ
Registration	2	(INP,KVAR,PID)^VADPT PAUSE^VALM1
Outpatient Pharmacy	1	EN^PSOCPVW

Package	Total	Caller Graph
Integrated Billing	7	IBCNSP02 IBT OUTPUT BILLING SHEET IBTOBI1 IBTOBI2 IBTOBI3 IBTOBI4 IBTOTR

Name	Comments	DBIA/ICR reference
END	; -- Clean up
HDR	; -- Print header for billing report
SECT1	; -- Section 1 - Visit info Region / misc billing info
MBI	; -- Misc. billing info
DEV	; -- select device, run option
ONE	; -- print one billing report from ct
1	; -- visit region for admission or scheduled admission
3	; -- visit region for rx refill
2	; -- visit region for outpatient care
4	; -- Visit region for prosthetics
PAT	; -- Select patient
VSIT	;
DQ	; -- task man entry point

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: HDR+4
Function Call: WRITE	Prompt: !,"No Visit Selected" Line Location: SECT1+4
Function Call: WRITE	Prompt: !,$G(IBD(I,1)),?44,$E($G(IBD(I,2)),1,36) Line Location: SECT1+7
Routine Call	%ZIS Line Location: DEV+3
Routine Call	DIC Line Location: PAT+3
Routine Call	%ZIS Line Location: DEV+2

Name	Line Occurrences (* Changed, ! Killed)
^DGPM - [#405]	1+2
^DPT - [#2]	HDR+7
^IBE(356.6 - [#356.6]	ONE+4
^IBT(356 - [#356]	ONE+3
^PSDRUG - [#50]	3+9
^PSRX - [#52]	3+9
^SC - [#44]	2+5
^SCE - [#409.68]	2+5, 2+6, 2+7

Name	Field # of Occurrence
%ZIS	DEV+2*, END+4!
DFN	PAT+4*, END+4!, HDR+7
DIC	PAT+2*, PAT+3!
DIC(0	PAT+2*
DIRUT	END+4!, HDR+3
DT	%
DUOUT	END+4!
I	END+4!, HDR+2~, SECT1+7*
IBCNT	END+4!
>> IBCTHDR	HDR+6
IBD	SECT1+1~
IBD(	SECT1+7
IBD(1	SECT1+3, MBI+1
IBD(2	1+5, 2+3, 3+4, MBI+2
IBD(3	1+6, 2+4, 2+5, 3+5, MBI+3*
IBD(4	1+7, 2+6, 3+6, MBI+4
IBD(5	1+8, 2+7, 3+7, MBI+5
IBD(6	2+8, 3+8
IBD(7	3+9*
IBD(8	3+10*
IBDA	END+4!
IBDISDT	END+4!, 1+1, 1+2, 1+8
IBETYP	END+4!, ONE+4*, SECT1+3, SECT1+4
IBHDT	END+4!, ONE+1*, HDR+6
IBI	END+4!
IBJ	END+4!
IBNAR	END+4!
IBOE	2+1~, 2+2*, 2+4, 2+5, 2+6, 2+7, 2+8
IBPAG	END+4!, ONE+1, HDR+3, HDR+4, HDR+5, HDR+6
IBQUIT	END+4!, ONE+1, HDR+1, HDR+3
IBTAG	END+4!
IBTNOD	END+4!
IBTRCD1	END+4!
IBTRN	VSIT+3, END+4!, ONE+3
IBTRND	END+4!, ONE+3*, ONE+4, HDR+8, 1+2, 1+4, 2+2, 2+3, 3+3, 3+4 , 3+5, 3+6, 3+7, 3+8, 3+9, 3+10, MBI+1, MBI+2, MBI+3, MBI+4 , MBI+5
IBTRND1	END+4!, ONE+3*
IBTRTP	END+4!
IBY	VSIT+2!
IO	DEV+5
IO("Q"	DEV+3!
IOF	HDR+4
IOM	HDR+6, HDR+9, SECT1+8
IOST	HDR+3, HDR+4
J	END+4!, HDR+2~
>> POP	DEV+2
PSOFILL	3+1~
PSONTALK	3+1~, 3+2*
PSORXN	3+1~
PSOTMP	3+1~
PSOTMP(	3+5
PSOTMP(52	3+4, 3+6, 3+7, 3+8, 3+10
VA	END+4!
VA("PID"	HDR+2, HDR+7
>> VA200	1+3*
>> VAIN	1+3
>> VAIN(3	1+7
>> VAIN(4	1+6
>> VAIN(7	1+4*, 1+5
>> VAINDT	1+2*
X	END+4!, SECT1+4, SECT1+5, 3+3
Y	PAT+3, PAT+4, END+4!, 1+4*
>> ZTDESC	DEV+3*
>> ZTQUEUED	END+2
>> ZTREQ	END+2*
>> ZTRTN	DEV+3*
>> ZTSAVE("DFN"	DEV+3*
>> ZTSAVE("IB*"	DEV+3*
ZTSK	DEV+3!