Routine: PRCPRIIR

Package	Total	Call Graph
IFCAP	8	PRIMARY^PRCPRIIP $$REUSABLE^PRCPU441 $$GETOUT^PRCPUDUE ($$SCRPAUSE,END,P)^PRCPUREP NSNSEL^PRCPURS0 ^PRCPUSEL ($$DESCR,$$NSN)^PRCPUX1 DISPLAY^PRCPUX2
Kernel	3	^%ZIS ^%ZISC (,$$S)^%ZTLOAD
VA FileMan	2	(,DD)^%DT (,C,NOW)^%DTC

Package	Total	Caller Graph
IFCAP	1	PRCP INACTIVE ITEMS REPORT

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PRCPRIIR+15
Function Call: WRITE	Prompt: !!,"<> please wait <>" Line Location: PRCPRIIR+18
Function Call: WRITE	Prompt: !?10,"<<< TASKMANAGER JOB TERMINATED BY USER >>>" Line Location: DQ+23
Function Call: WRITE	Prompt: !,$TR(NSN,"-"),?15,$E($$DESCR^PRCPUX1(PRCP("I"),ITEMDA),1,20),?36,ITEMDA Line Location: DQ+24
Function Call: WRITE	Prompt: ?42,$J($P(D,"^"),5),$J($P(D,"^",2),10),$J($P(D,"^",3),6),$J($P(D,"^",4),7),$J($P(D,"^",5),8,2),$J($P(D,"^",6),2) Line Location: DQ+25
Function Call: WRITE	Prompt: !!?30,"TOTAL INACTIVE ITEM VALUE IN STOCK: ",$J(TOTAL,12,2) Line Location: DQ+30
Function Call: WRITE	Prompt: @IOF Line Location: H+0
Function Call: WRITE	Prompt: $C(13),"INACTIVE ITEM REPORT FOR: ",$E(PRCP("IN"),1,20),?(80-$L(%)),% Line Location: H+1
Function Call: WRITE	Prompt: !?5,"INACTIVE ITEMS RANGE FROM ",DATEFROM," TO ",$P(NOW,"@")," (",TOTDAYS," DAYS)",?79,"K" Line Location: H+3
Function Call: WRITE	Prompt: !?42,$J("LAST",5),$J("LAST",10),$J("DUE",6),$J("QTY",7),$J("TOTAL",8),$J("W",2),!,"NSN",?15,"DESCRIPTION",?36,"MI",?42,$J("USAGE",5),$J("RECEIPT",10),$J("OUT",6),$J("ONHND",7),$J("VALUE",8),$J("Z",2),!,% Line Location: H+4
Routine Call	%ZIS Line Location: PRCPRIIR+15

Name	Line Occurrences (* Changed, ! Killed)
^PRCP(445 - [#445]	DQ+3, DQ+9, DQ+11, DQ+14
^TMP($J	DQ+2!, DQ+17*, DQ+22, Q!

Name	Line Occurrences
H	DQ+21, DQ+27, DQ+28
Q	DQ+29

Name	Field # of Occurrence
^(	DQ+3, DQ+22

Name	Field # of Occurrence
%	DQ+1~, DQ+21, H, H+1, H+2, H+4
%DT	PRCPRIIR+13*!
%DT("A"	PRCPRIIR+13*
%DT("B"	PRCPRIIR+13*
%DT(0	PRCPRIIR+13*
%I	DQ+1~
>> %ZIS	PRCPRIIR+15*
D	DQ+1~, DQ+3, DQ+6, DQ+17, DQ+22, DQ+25, DQ+26
DATEFROM	DQ+1~, DQ+20*, H+3
DATEINAC	PRCPRIIR+6~, PRCPRIIR+14*, DQ+9, DQ+19, DQ+20
DT	PRCPRIIR+12, PRCPRIIR+13, DQ+19
DUEOUT	DQ+1~, DQ+16*, DQ+17
IO	DQ+21
IO("Q"	PRCPRIIR+15!
IOF	H
IOSL	DQ+27, DQ+28
ITEMDA	DQ+1~, DQ+3, DQ+5, DQ+7, DQ+9, DQ+11, DQ+14, DQ+16, DQ+17, DQ+22 , DQ+24
NOW	DQ+1~, DQ+21*, H, H+3
NSN	DQ+1~, DQ+7, DQ+8, DQ+17, DQ+22, DQ+24
PAGE	DQ+1~, DQ+21, H
>> POP	PRCPRIIR+15
>> PRCP("DPTYPE"	PRCPRIIR+4
>> PRCP("I"	PRCPRIIR+3, DQ+3, DQ+9, DQ+11, DQ+14, DQ+16, DQ+24
>> PRCP("IN"	H+1
PRCPEND	PRCPRIIR+6~, DQ+8
PRCPFLAG	DQ+1~, DQ+22, DQ+23*, DQ+27, DQ+28, DQ+29
PRCPSTRT	PRCPRIIR+6~, PRCPRIIR+10, DQ+8
QTY	DQ+1~, DQ+6*, DQ+17
RECPT	DQ+1~, DQ+14, DQ+15, DQ+17
SCREEN	DQ+1~, DQ+21*, DQ+27, DQ+28, H
TOTAL	DQ+1~, DQ+22, DQ+26, DQ+30
TOTDAYS	DQ+1~, DQ+19*, H+3
USAGE	DQ+1~, DQ+11, DQ+12, DQ+17
X	PRCPRIIR+6~, PRCPRIIR+7!, PRCPRIIR+8, PRCPRIIR+9!, PRCPRIIR+11!, PRCPRIIR+12, DQ+1~, DQ+11, DQ+14, DQ+19
X(1	PRCPRIIR+7, PRCPRIIR+9, PRCPRIIR+11*
>> X1	PRCPRIIR+12, DQ+19
>> X2	PRCPRIIR+12, DQ+19
Y	PRCPRIIR+6~, PRCPRIIR+12, PRCPRIIR+13, PRCPRIIR+14, DQ+1~, DQ+20, DQ+21*
>> ZTDESC	PRCPRIIR+16*
>> ZTQUEUED	DQ+23
>> ZTRTN	PRCPRIIR+16*
>> ZTSAVE("DATEINAC"	PRCPRIIR+17*
>> ZTSAVE("PRCP*"	PRCPRIIR+17*
>> ZTSAVE("ZTREQ"	PRCPRIIR+17*
ZTSK	PRCPRIIR+15!