Routine: IBOCPDS

Information

IBOCPDS ;ALB/ARH - CLERK PRODUCTIVITY REPORT, SUMMARY ; 10/8/91

Source file <IBOCPDS.m>

Package	Total	Caller Graph
Integrated Billing	1	IBOCPD

Name	Comments	DBIA/ICR reference
EN	;get parameters then run the report
HDR	;print the report header
DEV	;get the device
PAUSE	;pause at end of screen if beeing displayed on a terminal
EXIT	;clean up and quit
FILE	;save the data in sorted order in a temporary file
PRINT	;print the report from the temp sort file to the appropriate device
ENT	;find, save, and print the data that satisfies the search parameters
LINE	;print all data for a particular clerk
STOP()	;determine if user has requested the queued report to stop

Name	Line Occurrences
Function Call: WRITE	Prompt: ?30,$E($P(^DGCR(399.3,IBRT,0),U,1),1,20),?50,$J($P(^TMP("IB",$J,IBCLK,IBRT),U,1),8),?60,$J($P(^(IBRT),U,2),15,2),! Line Location: LINE+3
Function Call: WRITE	Prompt: @IOF Line Location: HDR+3
Function Call: WRITE	Prompt: ! Line Location: HDR+4
Function Call: WRITE	Prompt: "-" Line Location: HDR+7
Function Call: WRITE	Prompt: !,"*TASK STOPPED BY USER*" Line Location: STOP+1
Routine Call	%ZIS Line Location: EN+1
Routine Call	DIR Line Location: PAUSE+2
Routine Call	%ZIS Line Location: DEV+1

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399 - [#399]	ENT+5, ENT+6, FILE+1, FILE+2, FILE+3
^DGCR(399.3 - [#399.3]	LINE+3
^TMP("IB"	ENT+7, EXIT+1!, FILE+4, FILE+5, FILE+6, FILE+7, FILE+8, PRINT+2, PRINT+3, LINE+2 , LINE+3, LINE+5
^VA(200 - [#200]	FILE+2

Name	Field # of Occurrence
>> %	HDR+2
>> %ZIS	DEV+1*
>> %ZIS("A"	DEV+1*
DIR	PAUSE+2!
DIR(0	PAUSE+2*
DIROUT	EXIT+5!
DIRUT	EXIT+5!, PAUSE+3
DTOUT	EXIT+5!
DUOUT	EXIT+5!, PAUSE+3
IBBEG	ENT+4, EXIT+5!
IBBEGE	EXIT+5!, HDR+4
IBCDT	ENT+4, ENT+5, ENT+6, EXIT+5!, HDR+2*, HDR+5
IBCLK	EXIT+5!, FILE+2, FILE+5, FILE+6, PRINT+1, PRINT+2*, LINE+1, LINE+2, LINE+3, LINE+5
IBE	ENT+4*, ENT+5, EXIT+5!
IBEND	ENT+4, EXIT+5!
IBENDE	EXIT+5!, HDR+4
IBFLD	EN+4*, EXIT+5!
IBHDR	EN+2*, EN+3, EXIT+5!
IBI	EXIT+5!, HDR+7*
IBLN	EXIT+5!, LINE+1, LINE+2, LINE+5, HDR+1
IBNODE	EXIT+5!, FILE+4, FILE+5, FILE+6, FILE+7, FILE+8*
IBPGN	EXIT+5!, PRINT+1, HDR+1, HDR+3, HDR+5, STOP+1
IBQUIT	EN+5, ENT+4, ENT+5, ENT+7, EXIT+5!, PRINT+2, PRINT+4, LINE+2, HDR+1, PAUSE+3
IBRT	EXIT+5!, FILE+1, FILE+6, FILE+8, LINE+2, LINE+3
IBTD	EXIT+5!, FILE+3*, FILE+4, FILE+5, FILE+6, FILE+7, FILE+8
IFN	ENT+5, ENT+6, EXIT+5!, FILE+1, FILE+2, FILE+3
IO	DEV+3
IO("Q"	DEV+2!
IOF	EN+3, HDR+3
IOM	HDR+4, HDR+5, HDR+7
IOSL	LINE+2
IOST	HDR+3, PAUSE+1
>> POP	DEV+1
U	ENT+4*, FILE+1, FILE+2, FILE+3, FILE+4, FILE+5, FILE+6, FILE+7, FILE+8, PRINT+3 , LINE+3, LINE+5
X	EXIT+5!
Y	EXIT+5!, HDR+2*
>> ZTDESC	DEV+2*
>> ZTQUEUED	EXIT+4, STOP+1
ZTREQ	STOP+1!
>> ZTRTN	DEV+2*
>> ZTSAVE("IB*"	DEV+2*
>> ZTSTOP	STOP+1*, STOP+2