Routine: IBOMTE

Information

IBOMTE ;ALB/CPM - ESTIMATE CATEGORY C CHARGES ; 17-DEC-91

Package	Total	Call Graph
Integrated Billing	5	SERV^IBAUTL2 EVFIND^IBAUTL3 $$SECT^IBAUTL5 ^IBOMTE1 $$DAT1^IBOUTL
VA Fileman	3	^%DT C^%DTC ^DIC
Kernel	2	(,HOME)^%ZIS ^%ZTLOAD
Registration	1	IN5^VADPT

Package	Total	Caller Graph
Integrated Billing	1	IB MT ESTIMATOR

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Medical Administration Service is not defined in your IB Site Parameter File." Line Location: START+5
Function Call: WRITE	Prompt: !,"Please contact your System Manager, as this impacts on all aspects of",!,"Category C billing.",!! Line Location: START+6
Function Call: WRITE	Prompt: !!,"Please note that this patient was admitted on ",$$DAT1^IBOUTL(IBEVDT)," and Category C charges" Line Location: START+12
Function Call: WRITE	Prompt: !,"have been calculated through ",$$DAT1^IBOUTL(IBEVCAL),".",! Line Location: START+13
Function Call: WRITE	Prompt: !!,"Past admissions cannot be accurately estimated.",! Line Location: BDT+1
Function Call: READ	Prompt: "Proposed DISCHARGE Date: " Formatting: ! Timeout: DTIME Variable: X Line Location: EDT+0
Function Call: WRITE	Prompt: *7," ??",!,"The DISCHARGE Date must follow the ADMISSION Date." Line Location: EDT+2
Function Call: WRITE	Prompt: !!,"A 'billable' bedsection is not associated with this ",$S(IBEVDA:"Admission",1:"Treating Specialty"),"." Line Location: BED+1
Function Call: WRITE	Prompt: !,"Category C charges ",$S(IBEVDA:"are not being",1:"would not be")," billed for this admission.",! Line Location: BED+2
Function Call: WRITE	Prompt: ! Line Location: BED+6
Function Call: WRITE	Prompt: ! Line Location: BED+11
Routine Call	%ZIS Line Location: IBOMTE+3 BED+6
Routine Call	DIC Line Location: START+9 EDT+10
Routine Call	%ZIS Line Location: BED+5

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^DIC(45.7 - [#45.7]	Classic Fileman Calls

Name	Line Occurrences
BDT	BDT+1, EDT+2
BED	EDT+7
EDT	START+11, EDT+1, EDT+2
END	START+4, START+9, BDT, EDT+1, EDT+10, BED, BED+5, BED+6, BED+11
START	BED+6, BED+11

Name	Field # of Occurrence
%DT	BDT!, EDT, END!
%DT("A"	BDT*
>> %ZIS	BED+5*
DFN	START+9*, END!
DIC	START+9!, EDT+9, EDT+10!
DIC("A"	EDT+9*
DIC(0	START+9, EDT+9
DT	BDT+1
DTIME	IBOMTE+3*, EDT
IBADMDT	START+10*, END!
IBBDT	START+14, BDT, BDT+1, EDT, EDT+2, END!
IBBS	BED*, END!
IBDFN	START+9*, END!
IBEDT	EDT+1*, END!
IBEVCAL	START+13, START+14, EDT+7, END!
IBEVDA	START+11, EDT+2, EDT+7, BED+1, BED+2, END!
IBEVDT	START+12, END!
IBSERV	END!
IBY	START+4*, END!
IO	BED+7
IO("Q"	BED+6!
>> POP	BED+5
VAERR	END!
VAIP	END!
VAIP("D"	EDT+7*
VAIP(8	EDT+7
X	START+14, EDT*, EDT+1, END!
X1	START+14*, END!
X2	START+14*, END!
X3	END!
Y	START+9, BDT, EDT+1, EDT+2, EDT+7*, EDT+10, BED, END!
>> ZTDESC	BED+6*
>> ZTRTN	BED+6*
>> ZTSAVE("IB*"	BED+6*
ZTSK	END!