Routine: IBOSTUS

Package	Total	Call Graph
VA Fileman	5	^%DT COMMA^%DTC YN^DICN DT^DICRW ^DIR
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
Integrated Billing	1	(BEGIN,HEAD)^IBOSTUS1
Registration	1	IN^DGHELP

Package	Total	Caller Graph
Integrated Billing	2	IBCMENU IBOSTUS1

Entry Points

Name	Comments	DBIA/ICR reference
SORT	; chose the date type to sort on
DATE1
STATS	; prints statistics
HELP
YN
INDX	; creates a temporary index of bills sorted by bill date=initial printed
Q
HELP2	; help for SORT BY:
CHOOSE
DATE
QUEUED	; entry point if queued

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"CHOOSE Y (YES) OR N (NO)" Line Location: YN+0
Function Call: READ	Prompt: "CHOOSE A BILL STATUS: " Formatting: !! Timeout: DTIME Variable: X Line Location: CHOOSE+0
Function Call: WRITE	Prompt: *7," ??" Line Location: CHOOSE+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: DATE1+0
Function Call: WRITE	Prompt: !,"Go to "_IBDTP_" DATE: TODAY// " Line Location: DATE1+0
Function Call: WRITE	Prompt: *7," ??",!,"ENDING DATE must follow BEGINNING DATE." Line Location: DATE1+0
Function Call: WRITE	Prompt: *7," ??" Line Location: DATE1+1
Function Call: WRITE	Prompt: ! Line Location: STATS+5
Routine Call	%ZIS Line Location: DATE1+9
Routine Call	DIR Line Location: SORT+3
Routine Call	%ZIS Line Location: DATE1+6

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	INDX+1
^TMP($J	INDX+2*

Name	Field # of Occurrence
%	YN*, CHOOSE, Q!
%DT	DATE, DATE1, Q!
%DT("A"	DATE*
%DT(0	DATE*
>> %ZIS	DATE1+6*
D	INDX+1~*, INDX+2
DGPGM	Q!
DGVAR	Q!
DIR	SORT+3!
DIR("?"	SORT+2*
DIR("A"	SORT+2*
DIR("B"	SORT+2*
DIR(0	SORT+1*
>> DIRUT	SORT+3
DT	IBOSTUS+8, DATE, DATE1+1
DTIME	CHOOSE, DATE1
I	Q!, STATS+4*, STATS+5, STATS+7, STATS+8, STATS+9, STATS+10
IB0	Q!
IBAPP	Q!
IBBEG	DATE*, DATE1, Q!, INDX+1
IBBS	Q!
IBBSBY	Q!
IBBSDT	Q!
IBBST	YN, CHOOSE, CHOOSE+1, Q!
>> IBCAT	STATS+5*, STATS+7, STATS+8, STATS+9, STATS+10
>> IBCRT	STATS+4, STATS+6
IBDTP	IBOSTUS+7~, SORT+4*, DATE, DATE1
IBEND	DATE1*, DATE1+1, Q!, INDX+1
IBF	Q!
IBHD	Q!
IBHD2	CHOOSE+1*, Q!
>> IBHDR3	STATS+1*
IBIFN	Q!
IBL	Q!
IBL1	Q!
IBNEX	Q!, INDX+1*, INDX+2
IBPAGE	Q!
IBS	Q!
>> IBST1	STATS+2*
>> IBST2	STATS+3*
IBTOT	STATS+4~
IBTOT("$"	STATS+10*, STATS+12
IBTOT("C"	STATS+9*, STATS+13
IO	DATE1+11
IO("Q"	DATE1+7!
IOSL	STATS+6
J	Q!
POP	DATE1+6, Q!
X	CHOOSE, DATE1, Q!, STATS+7, STATS+8, STATS+12, STATS+13
X1	Q!
X2	Q!, STATS+7, STATS+12
Y	SORT+4, DATE, DATE1, Q!
Z	CHOOSE*, Q!
>> ZTDESC	DATE1+8*
>> ZTQUEUED	Q+1
>> ZTRTN	DATE1+8*
>> ZTSAVE("IB*"	DATE1+8*
ZTSK	DATE1+9!