Routine: KMPRUTL

Package	Total	Caller Graph
Capacity Management - RUM	8	KMPR RUM MANAGER MENU KMPRBD02 KMPRP1 KMPRPG01 KMPRPG02 KMPRPN03 KMPRSS KMPRUTL

Entry Points

Name	Comments	DBIA/ICR reference
RUMDATES(KMPRDATE)	;-- get RUM date ranges from file 8971.1
ELEMENTS	;-- ;;Element Name;data piece in file 8971.1
HDR	; entry point to print header ; Input variables: ; KMPRPG = page number ; KMPRTL = title to print on header ; KMPRRP = reporting period date ; = print today's date (if NOT defined)
ELEMENT(KMPUVAR)	;-- select RUM data element. ; Output Variable: ; KMPUVAR = Number of Data Piece ; = '^' if DTOUT or DUOUT ; KMPUVAR(0) = Set of Code's Verbiage
NODEARRY(KMPRARRY)	;-- put nodes into array.
GRPHMSG	;-- graph message.
CONTINUE(KMPRMSSG,KMPRY)	;-- press return to continue
ELEARRY(KMPRARRY)	;-- set elements data into KMPRARRY.
PRESS	;
ID(KMPRIEN)	;-- display - called from ^DD(8971.1,0,"ID","W")
VERSION()	;-- extrinsic - return current version.
ZIS	; entry point to define IORVOFF and IORVON variables

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?((IOM/2)-(($L(KMPRTL)+4)/2)),IORVON,"* ",KMPRTL," *",IORVOFF Line Location: HDR+9
Function Call: WRITE	Prompt: !,?((IOM/2)-(($L(A1RP)+18)/2)),"Reporting Period: ",KMPRRP Line Location: HDR+10
Function Call: WRITE	Prompt: !,?((IOM/2)-(($L(Y)+12)/2)),"Printed on: ",Y Line Location: HDR+11
Function Call: WRITE	Prompt: !! Line Location: HDR+12
Function Call: READ	Timeout: DTIME Variable: X Line Location: PRESS+1
Routine Call	%ZIS Line Location: ZIS+1
Routine Call	DIR Line Location: CONTINUE+17 ELEMENT+12

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("XY"	HDR+7
^KMPR(8971.1 - [#8971.1]	ID+5, ID+7, NODEARRY+9, RUMDATES+10, RUMDATES+12

Name	Line Occurrences
PRESS	HDR+6

Name	Field # of Occurrence
>> A1RP	HDR+10
DATA	ID+6~, ID+7, ID+9, ID+12, ID+15, ID+17, ID+20, ID+21, ELEARRY+11~, ELEARRY+13 , ELEARRY+14
>> DDSDIW	ID+22
DIR	CONTINUE+14~, ELEMENT+6~
DIR("A"	CONTINUE+16, ELEMENT+11
DIR(0	CONTINUE+15, ELEMENT+8, ELEMENT+10*
DT	HDR+11
DTIME	PRESS+1
DTOUT	ELEMENT+6~, ELEMENT+12
DUOUT	ELEMENT+6~, ELEMENT+12
>> DX	HDR+7*
>> DY	HDR+7*
END	RUMDATES+8~, RUMDATES+12*, RUMDATES+13
I	ELEARRY+11~, ELEARRY+12, ELEARRY+14, ELEMENT+6~, ELEMENT+9, ELEMENT+10
IO("S"	HDR+7
IOF	HDR+7
IOM	HDR+9, HDR+10, HDR+11, HDR+12
>> IORVOFF	HDR+8, HDR+9, ZIS+2
>> IORVON	HDR+8, HDR+9, ZIS+2
IOST	CONTINUE+12, HDR+7, HDR+8, HDR+12, PRESS+1
>> IOT	HDR+8, ZIS+2
KMPRARRY	NODEARRY~, NODEARRY+6, NODEARRY+9, ELEARRY~, ELEARRY+9, ELEARRY+14
KMPRDATE	RUMDATES~, RUMDATES+7*, RUMDATES+13
KMPRIEN	ID~, ID+4, ID+5, ID+7
KMPRMSSG	CONTINUE~, CONTINUE+9*, CONTINUE+16
>> KMPROUT	HDR+6, PRESS+1*
>> KMPRPG	HDR+7, HDR+9*, HDR+12, PRESS+1
>> KMPRRP	HDR+10
>> KMPRTL	HDR+9
KMPRY	CONTINUE~, CONTINUE+9, CONTINUE+12, CONTINUE+18*
KMPUVAR	ELEMENT~, ELEMENT+7, ELEMENT+12, ELEMENT+13*
KMPUVAR(0	ELEMENT+12, ELEMENT+13
NODE	NODEARRY+8~, NODEARRY+9
START	RUMDATES+8~, RUMDATES+10*, RUMDATES+13
TXT	GRPHMSG+1~, GRPHMSG+6, ID+6~, ID+24
TXT(1	GRPHMSG+2, GRPHMSG+5, ID+9, ID+10, ID+12, ID+13, ID+15, ID+17, ID+18*
TXT(2	GRPHMSG+3, GRPHMSG+5, ID+21, ID+22
TXT(3	GRPHMSG+4, GRPHMSG+5
U	ID+9, ID+12, ID+15, ID+17, ID+20, ID+21
X	CONTINUE+14~, PRESS+1, ZIS+1, ELEMENT+6~
Y	CONTINUE+14~, CONTINUE+18, HDR+11*, ELEMENT+6~, ELEMENT+12, ELEMENT+13
Y(0	ELEMENT+13

Name	Field # of Occurrence
$T(	VERSION+1
$T(ELEMENTS+I	ELEARRY+12, ELEARRY+13, ELEMENT+9, ELEMENT+10