Routine: PRCPRUS2

Information

PRCPRUS2 ;WISC/VAC-usage increase,decrease usage report ; 11/29/06 2:04pm

Package	Total	Call Graph
IFCAP	5	$$GROUPNM^PRCPEGRP ($$SCRPAUSE,END,P)^PRCPUREP GROUPSEL^PRCPURS1 $$DESCR^PRCPUX1 ($$ODIPROM,$$ODITEM,$$SRTPRMP,DISPLAY)^PRCPUX2
Kernel	3	^%ZIS ^%ZISC (,$$S)^%ZTLOAD
VA FileMan	3	(,DD)^%DT (,C,NOW)^%DTC ^DIR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
IFCAP	1	PRCPRUS1

Entry Points

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;98,228 ; Oct 20, 2000;Build 3
START
DESC	; Insert prompt for sort order by item number or name
DQ	;queue comes here
Q
H

External References

Name	Field # of Occurrence
^%DT	V+14, START, START+1
DD^%DT	V+10, V+13, DQ+20, DQ+21
^%DTC	DQ+1
C^%DTC	V+10
NOW^%DTC	V+10, DQ+20
^%ZIS	DESC+4
^%ZISC	Q
^%ZTLOAD	DESC+4
$$S^%ZTLOAD	DQ+43
^DIR	START+4, START+5
$$GROUPNM^PRCPEGRP	DQ+8
$$SCRPAUSE^PRCPUREP	DQ+21
END^PRCPUREP	DQ+22, DQ+47
P^PRCPUREP	DQ+28, DQ+41
GROUPSEL^PRCPURS1	START+9
$$DESCR^PRCPUX1	DQ+13, DQ+40
$$ODIPROM^PRCPUX2	START+13
$$ODITEM^PRCPUX2	DQ+32, DQ+38
$$SRTPRMP^PRCPUX2	DESC+1
DISPLAY^PRCPUX2	START+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: V+14
Function Call: WRITE	Prompt: ! Line Location: START+0
Function Call: WRITE	Prompt: !,"END DATE MUST BE GREATER THAN OR EQUAL TO THE START DATE." Line Location: START+2
Function Call: WRITE	Prompt: ! Line Location: START+5
Function Call: WRITE	Prompt: !,"*** NO GROUP CATEGORIES SELECTED !" Line Location: START+10
Function Call: WRITE	Prompt: !!,"<> please wait <>" Line Location: DESC+8
Function Call: WRITE	Prompt: !,?6,"GROUP: ",GROUPNM Line Location: DQ+25
Function Call: WRITE	Prompt: "<NONE>" Line Location: DQ+26
Function Call: WRITE	Prompt: ! Line Location: DQ+27
Function Call: WRITE	Prompt: !,ITEMDA Line Location: DQ+37
Function Call: WRITE	Prompt: ?9,"D" Line Location: DQ+39
Function Call: WRITE	Prompt: ?15,$E($$DESCR^PRCPUX1(PRCP("I"),ITEMDA),1,20),?41,$J($P(DATA,"^"),10),?55,$J($P(DATA,"^",2),10),?70,$J($P(DATA,"^",3),9) Line Location: DQ+40
Function Call: WRITE	Prompt: !?10,"<<< TASKMANAGER JOB TERMINATED BY USER >>>" Line Location: DQ+43
Function Call: WRITE	Prompt: ! Line Location: DQ+46
Function Call: WRITE	Prompt: @IOF Line Location: H+0
Function Call: WRITE	Prompt: $C(13),"USAGE DEMAND ANALYSIS FOR: ",PRCP("IN"),?(80-$L(%)),% Line Location: H+1
Function Call: WRITE	Prompt: !?5,"AVERAGE USAGE FROM ",START," TO ",END," (",MONTHS," MONTHS)" Line Location: H+2
Function Call: WRITE	Prompt: !?5,"COMPARE USAGE WITH ",COMPARE,?40,"PERCENT ",REPTYPE," AT LEAST: ",PERCENT," %" Line Location: H+3
Function Call: WRITE	Prompt: !,"IM#",?8,"OD",?15,"DESCRIPTION",?41,"COMPARE QTY",?55,"AVERAGE QTY",?70,"% "_REPTYPE,!,% Line Location: H+4
Routine Call	DIR Line Location: START+4 START+5
Routine Call	%ZIS Line Location: DESC+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRCP(445 - [#445]	DQ+2, DQ+3, DQ+16, DQ+17
^TMP($J	START+10, DQ+1!, DQ+6, DQ+7, DQ+19*, DQ+22, DQ+23, DQ+29, DQ+31, DQ+36 , Q!

Label References

Name	Line Occurrences
DESC	DESC+3
H	DQ+21, DQ+28, DQ+41
Q	START+10, DQ+22
START	START+2

Naked Globals

Name	Field # of Occurrence
^(	DQ+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	V+8~, V+10, DQ+20, H, H+1, H+4
%DT	V+14!, START!, START+1*!
%DT("A"	V+14, START, START+1*
%DT("B"	V+14, START, START+1*
%DT(0	V+14, START, START+1*
>> %ZIS	DESC+4*
AVERAGE	V+8~, DQ+17*, DQ+18, DQ+19
CHANGE	V+8~, DQ+18*, DQ+19
COMDATA	V+8~, DQ+17*, DQ+18, DQ+19
COMDT	V+8~, V+14*, DQ+17, DQ+21
COMPARE	V+8~, DQ+21*, H+3
DATA	V+8~, DQ+36*, DQ+40
DATA2	V+9~, DQ+3*, DQ+4
DATE	V+8~, DQ+16*
DEFAULT	V+8~, V+10*, V+14, START+1
DESCR	V+8~, DQ+13, DQ+14, DQ+15
DIR	START+4!, START+5!
DIR("?"	START+3*
DIR("A"	START+3, START+5
DIR("B"	START+4, START+5
DIR(0	START+3, START+5
END	V+8~, DQ+21*, H+2
ENDDT	V+8~, START+1*, START+2, DQ+1, DQ+16, DQ+21
GROUP	V+9~, DQ+4*, DQ+5, DQ+6, DQ+7, DQ+8, DQ+9
GROUPALL	V+9~, START+10, START+11, DQ+5, DQ+6, DQ+7
GROUPNM	V+9~, DQ+8, DQ+9, DQ+10, DQ+19, DQ+23, DQ+25, DQ+26, DQ+29, DQ+31 , DQ+36
IO	DQ+21
IO("Q"	DESC+4!
IOF	H
IOSL	DQ+28, DQ+41
ITEMDA	V+8~, DQ+2, DQ+3, DQ+11, DQ+13, DQ+16, DQ+17, DQ+19, DQ+31, DQ+32 , DQ+36, DQ+37, DQ+38, DQ+40
LASTMO	V+8~, V+10*, V+13
MAXDT	V+8~, V+13*, V+14, START, START+1
MONTHS	V+8~, DQ+1*, DQ+17, H+2
NOW	V+8~, V+10, DQ+20, H
NOWDT	V+8~, V+10*, V+11, V+12, V+13
ODIFLG	V+9~, DQ+32, DQ+33, DQ+34, DQ+38, DQ+39
ORDER	V+9~, DQ+11, DQ+15, DQ+19, DQ+29*, DQ+31, DQ+36
PAGE	V+8~, DQ+20, DQ+21, H*
PERCENT	V+8~, START+4*, DQ+18, H+3
>> POP	DESC+4
>> PRCP("I"	START+9, DQ+2, DQ+3, DQ+13, DQ+16, DQ+17, DQ+32, DQ+38, DQ+40
>> PRCP("IN"	H+1
PRCPEND	V+8~, V+11, V+12, V+13
PRCPFLAG	V+8~, DQ+24, DQ+28, DQ+30, DQ+35, DQ+41, DQ+42, DQ+43*, DQ+44, DQ+45
REPTYPE	V+8~, START+6*, H+3, H+4
SCREEN	V+8~, START+6, DQ+17, DQ+21, DQ+28, DQ+41, H
SRT	V+9~, DESC+1*, DESC+2, DESC+3, DQ+11, DQ+12
START	V+8~, V+13, START, DQ+21, H+2
STARTDT	V+8~, START*, START+2, DQ+1, DQ+16, DQ+21
TOTAL	V+8~, DQ+16*, DQ+17
TYPNUM	V+9~, START+13*, START+14, DQ+33, DQ+34
X	V+8~, V+10, START+8!, DQ+1
X(1	START+8*
X1	V+9~, V+10, DQ+1
X2	V+9~, V+10, DQ+1
Y	V+8~, V+10, V+13, V+14, START, START+1, START+4, START+6, DQ+20, DQ+21
Z	V+8~, V+12*
>> ZTDESC	DESC+5*
>> ZTQUEUED	DQ+43
>> ZTRTN	DESC+5*
>> ZTSAVE("COMDT"	DESC+6*
>> ZTSAVE("END*"	DESC+6*
>> ZTSAVE("GROUP*"	DESC+7*
>> ZTSAVE("NOW*"	DESC+6*
>> ZTSAVE("PERCENT"	DESC+6*
>> ZTSAVE("PRCP*"	DESC+6*
>> ZTSAVE("REP"	DESC+6*
>> ZTSAVE("REPTYPE"	DESC+6*
>> ZTSAVE("S*"	DESC+6*
>> ZTSAVE("SCREEN"	DESC+6*
>> ZTSAVE("TYP*"	DESC+7*
>> ZTSAVE("ZTREQ"	DESC+6*
>> ZTSAVE("^TMP($J,""PRCPURS1"","	DESC+7*
ZTSK	DESC+4!

Customize PDF page

Package: IFCAP