Routine: IBORT

Information

IBORT ;ALB/MRL,SGD - MAS BILLING TOTALS REPORT ;25 MAY 88 09:10

Package	Total	Caller Graph
Integrated Billing	1	IBCMENU

Name	Comments	DBIA/ICR reference
DATE1
Q
BEGIN	;
HELP	; help for date type selection
HEAD
WRITE
DATE
SELECT	; chose the date type to select by

Name	Line Occurrences
Function Call: WRITE	Prompt: *7," ??",!,"Date must be in the past." Line Location: DATE+0
Function Call: READ	Prompt: "Go to DATE: " Formatting: ! Timeout: DTIME Variable: X Line Location: DATE1+0
Function Call: WRITE	Prompt: *7," ??",!,"ENDING DATE must follow BEGINNING DATE." Line Location: DATE1+0
Function Call: WRITE	Prompt: *7," ??",!,"Date must be in the past." Line Location: DATE1+1
Function Call: WRITE	Prompt: !,IBNEX Line Location: BEGIN+9
Function Call: WRITE	Prompt: !,IBNEX Line Location: BEGIN+11
Function Call: WRITE	Prompt: ?IBTAB,$J(IBN1,5) Line Location: WRITE+0
Function Call: WRITE	Prompt: ?(IBTAB+7),$J(X,15) Line Location: WRITE+0
Function Call: WRITE	Prompt: ?94,"Date/Time Printed: ",Y,!!,$S(IBB:"Billing Summary Report ",1:"Summary of Pending Bill Authorizations "),IBHD," (by "_$S(IBDTP="EVENT":"Event Date)",1:"Date Billed)") Line Location: HEAD+0
Function Call: WRITE	Prompt: ?39,"INITIATED",?55,"\|",?65,"PENDING",?80,"\|",?89,"PRINTED",?105,"\|",?114,"CANCELLED",?130,"\|" Line Location: HEAD+2
Function Call: WRITE	Prompt: ?38,"TOTAL PENDING",?55,"\|",?64,"NO ACTION",?80,"\|",?89,"REVIEWED",?105,"\|",?114,"AUTHORIZED",?130,"\|" Line Location: HEAD+3
Function Call: WRITE	Prompt: ?IBTAB,"Number Dollars\|" Line Location: HEAD+4
Routine Call	%ZIS Line Location: DATE1+9
Routine Call	DIR Line Location: SELECT+3
Routine Call	%ZIS Line Location: DATE1+5

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("RM"	BEGIN+9
^DD("DD"	BEGIN+3, HEAD
^DGCR(399 - [#399]	BEGIN+8
^DGCR(399.3 - [#399.3]	BEGIN+5
^UTILITY($J	IBORT+8!, BEGIN+5, BEGIN+6, BEGIN+9, BEGIN+10, BEGIN+11, BEGIN+12, Q!

Name	Field # of Occurrence
%	Q!, HEAD
%DT	DATE, DATE1, Q!
%DT("A"	DATE*
>> %ZIS	DATE1+5*
DFN	BEGIN+8*, Q!
DIR	SELECT+3!
DIR("?"	SELECT+2*
DIR("A"	SELECT+2*
DIR("B"	SELECT+2*
DIR(0	SELECT+1*
>> DIRUT	SELECT+3
DT	IBORT+8*, DATE, DATE1+1
DTIME	IBORT+8*, DATE1
I	BEGIN+5, BEGIN+8, BEGIN+9, BEGIN+11, Q!
I1	BEGIN+9, BEGIN+10, BEGIN+11, BEGIN+12, Q!, WRITE
IB	BEGIN+8*, Q!
IBB	BEGIN+9, BEGIN+11, Q!, HEAD, HEAD+2
IBBEG	DATE*, DATE1, BEGIN+3, BEGIN+4, Q!
IBD	BEGIN+4, BEGIN+8, Q!
IBD1	BEGIN+4*, BEGIN+8, Q!
IBDTP	IBORT+7~, SELECT+4*, DATE, BEGIN+7, Q!, HEAD
IBEND	DATE1*, DATE1+1, BEGIN+3, BEGIN+4, Q!
IBHD	BEGIN+3*, Q!, HEAD
IBIDX	IBORT+7~, BEGIN+7*, BEGIN+8, Q!
IBL	BEGIN+3*, BEGIN+10, BEGIN+12, Q!, HEAD+1
IBL1	BEGIN+3*, Q!, HEAD+5
IBN1	Q!, WRITE*
IBN2	Q!, WRITE*
IBNEX	BEGIN+4, BEGIN+5, BEGIN+9, BEGIN+11, Q!
IBP	BEGIN+9, BEGIN+10, BEGIN+11, BEGIN+12, Q!, WRITE
IBS	Q!
IBTAB	Q!, WRITE, HEAD+4
IBTOT	Q!
IBX	BEGIN+5*, Q!
IO	DATE1+11
IO("Q"	DATE1+7!
IOF	HEAD
J	BEGIN+8*, Q!
POP	DATE1+5, Q!
U	IBORT+8*
X	IBORT+8!, DATE1, BEGIN+4, BEGIN+9, Q!, WRITE
X1	BEGIN+4*, Q!
X2	BEGIN+4, Q!, WRITE
Y	IBORT+8!, SELECT+4, DATE, DATE1, BEGIN+3, Q!, HEAD
>> ZTDESC	DATE1+8*
>> ZTQUEUED	Q+1, Q+4
>> ZTREQ	Q+4*
>> ZTRTN	DATE1+8*
>> ZTSAVE("IB*"	DATE1+8*
ZTSK	DATE1+9!