Routine: IBOTR1

Information

IBOTR1 ;ALB/CPM - INSURANCE PAYMENT TREND REPORT - USER INTERFACE (CON'T.); 5-JUN-91

Package	Total	Caller Graph
Integrated Billing	1	IBOTR

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!!," The END DATE must follow the BEGIN DATE.",! Line Location: BEGDT+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: INSO1+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: INSO2+0
Function Call: WRITE	Prompt: *7,!!," The LAST value must follow the FIRST.",! Line Location: INSO2+4
Function Call: WRITE	Prompt: !!,$S($D(ZTSK):"This job has been queued. The task number is "_ZTSK_".",1:"Unable to queue this job.") Line Location: SELPRNT+4
Function Call: WRITE	Prompt: !,IBTEXT Line Location: HELP+0
Routine Call	%ZIS Line Location: SELPRNT+5
Routine Call	DIR Line Location: QDATE+1
Routine Call	%ZIS Line Location: SELPRNT+1

Name	Line Occurrences
ARST	OUTPT+3, ARST+1
BEGDT	BEGDT+2
END	OUTPT, REPTY, ARST, QDATE+1, BEGDT, BEGDT+1, INSO1, INSO2, SELPRNT+1, SELPRNT+2
HELP	OUTPT+1, REPTY+1, ARST+1, INSO1+1, INSO2+1
INSO1	INSO1+1
INSO2	INSO2+1, INSO2+4
OUTPT	OUTPT+1
REPTY	REPTY+1
SELPRNT	INSO2+2, INSO2+3

Name	Field # of Occurrence
%DT	BEGDT!, BEGDT+1!
%DT("A"	BEGDT, BEGDT+1
>> %ZIS	SELPRNT+1*
DIR	QDATE+1!
DIR("?"	QDATE*
DIR("A"	QDATE*
DIR("B"	QDATE*
DIR("T"	QDATE*
DIR(0	QDATE*
DTIME	OUTPT, REPTY, ARST, INSO1, INSO2
>> IBARST	ARST+3*
>> IBBDT	BEGDT*, BEGDT+2
>> IBBRN	REPTY+2*
>> IBBRT	OUTPT+3*
>> IBBRTY	OUTPT+3*
>> IBDF	QDATE+1*
>> IBDFN	QDATE+1*, BEGDT, BEGDT+1
>> IBEDT	BEGDT+2*
>> IBIC	INSO2+2, INSO2+3
>> IBICF	INSO1+2*, INSO2+2, INSO2+3, INSO2+4
>> IBICL	INSO2+2, INSO2+3, INSO2+5*
>> IBOFF	OUTPT+1, REPTY+1, ARST+1, INSO1+1, INSO2+1, HELP, HELP+1
>> IBTEXT	HELP*
IO	SELPRNT+6
IO("Q"	SELPRNT+2, SELPRNT+5!
>> POP	SELPRNT+1
>> X	OUTPT, OUTPT+1, OUTPT+2, OUTPT+3, REPTY, REPTY+1, REPTY+2, ARST, ARST+1, ARST+2 , ARST+3, QDATE+1, INSO1, INSO1+1, INSO1+2, INSO2*, INSO2+1, INSO2+2, INSO2+3, INSO2+4 , INSO2+5
>> Y	QDATE+1, BEGDT, BEGDT+1, BEGDT+2
>> Y(0	QDATE+1
>> ZTDESC	SELPRNT+3*
>> ZTRTN	SELPRNT+3*
>> ZTSAVE("IB*"	SELPRNT+3*
ZTSK	SELPRNT+4, SELPRNT+5!

Name	Field # of Occurrence
$T(TEXT+IBOFF	HELP