Routine: IBORAT

Information

IBORAT ;ALB/RJS - BILLING RATES LISTING - 3/02/92

Source file <IBORAT.m>

Package	Total	Call Graph
Integrated Billing	6	^IBORAT1A ^IBORAT1B ^IBORAT1C ^IBORAT2A ^IBORAT2B ^IBORAT2C
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	2	^%DT ^DIR

Package	Total	Caller Graph
Integrated Billing	1	IB LIST OF BILLING RATES

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: REPORT+7
Function Call: WRITE	Prompt: !,"No data for this date range" Line Location: NEXT+2
Function Call: WRITE	Prompt: !,"Ending Date Less than Beginning Date Please Re-enter" Line Location: PROMPT+9
Function Call: WRITE	Prompt: !!,$S($D(ZTSK):"Request Queued",1:"Request Cancelled") Line Location: QUEUED+1
Routine Call	%ZIS Line Location: START+5
Routine Call	DIR Line Location: REPORT+9
Routine Call	%ZIS Line Location: OPEN+1

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	END+2!

Name	Field # of Occurrence
%DT	END+7!, PROMPT+2*
%DT("A"	PROMPT+3, PROMPT+6
%IS	END+7!
>> %ZIS	OPEN+1*
DIR	REPORT+9!
DIR(0	REPORT+9*
DIRUT	REPORT+9, END+9!
IBAAA	REPORT+7*, END+7!
IBDONE	REPORT+6, END+9!
IBEDATE	END+9!
IBENDATE	END+7!, END+9!, PROMPT+7*, PROMPT+9
IBOUTPUT	REPORT+3, END+9!, PROMPT+2
IBPAGE	END+9!
IBPAYORS	END+9!
IBSDATE	END+9!
IBSTDATE	END+7!, END+9!, PROMPT+4*, PROMPT+9
IBTITLE	END+9!
IBTODAY	END+9!
IBZ	REPORT+3*, REPORT+5, NEXT+2, END+7!
IO	START+6
IO("Q"	START+5
IOSL	REPORT+7
IOST	REPORT+8
POP	START+4, END+7!
Y	START+3, REPORT+9, END+7!, PROMPT+4, PROMPT+5, PROMPT+7, PROMPT+8
>> ZTDESC	QUEUED+1*
>> ZTQUEUED	END+5
>> ZTREQ	END+5*
>> ZTRTN	QUEUED+1*
>> ZTSAVE("IBENDATE"	QUEUED+1*
>> ZTSAVE("IBSTDATE"	QUEUED+1*
ZTSK	QUEUED+1, QUEUED+2!