Routine: PRCPRQDR

Information

PRCPRQDR ;WISC/RFJ-quantity distribution report (option, whse) ;10 Jun 93

Package	Total	Call Graph
IFCAP	6	(PRIMARY,SECONDY)^PRCPRQDP ($$SCRPAUSE,END,P)^PRCPUREP NSNSEL^PRCPURS0 ^PRCPUSEL ($$DESCR,$$NSN,$$UNIT)^PRCPUX1 DISPLAY^PRCPUX2
Kernel	3	^%ZIS ^%ZISC (,$$S)^%ZTLOAD
VA FileMan	2	DD^%DT (C,NOW)^%DTC

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	PRCP QUANTITY DISTRIBUTION

Entry Points

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;1;Oct 20, 2000
DQ	; queue starts here
Q
H

External References

Name	Field # of Occurrence
DD^%DT	DQ+7, DQ+11, DQ+26, DQ+27
C^%DTC	DQ+6, DQ+10
NOW^%DTC	DQ+27
^%ZIS	V+16
^%ZISC	Q
^%ZTLOAD	V+18
$$S^%ZTLOAD	DQ+31
PRIMARY^PRCPRQDP	V+3
SECONDY^PRCPRQDP	V+4
$$SCRPAUSE^PRCPUREP	DQ+28
END^PRCPUREP	DQ+54
P^PRCPUREP	DQ+32
NSNSEL^PRCPURS0	V+13
^PRCPUSEL	V+2
$$DESCR^PRCPUX1	DQ+35
$$NSN^PRCPUX1	DQ+18
$$UNIT^PRCPUX1	DQ+37
DISPLAY^PRCPUX2	V+9, V+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: V+12
Function Call: WRITE	Prompt: ! Line Location: V+16
Function Call: WRITE	Prompt: !!,"<> please wait <>" Line Location: V+21
Function Call: WRITE	Prompt: !?10,"<<< TASKMANAGER JOB TERMINATED BY USER >>>" Line Location: DQ+31
Function Call: WRITE	Prompt: !!,$TR(NSN,"-") Line Location: DQ+34
Function Call: WRITE	Prompt: ?15,$E($$DESCR^PRCPUX1(PRCP("I"),ITEMDA),1,18) Line Location: DQ+35
Function Call: WRITE	Prompt: ?34,ITEMDA Line Location: DQ+36
Function Call: WRITE	Prompt: ?39,$J($$UNIT^PRCPUX1(PRCP("I"),ITEMDA,"/"),7) Line Location: DQ+37
Function Call: WRITE	Prompt: $J($P(ITEMDATA,"^",10),6) Line Location: DQ+38
Function Call: WRITE	Prompt: $J($P(ITEMDATA,"^",4),7) Line Location: DQ+39
Function Call: WRITE	Prompt: $J($P(ITEMDATA,"^",23),7) Line Location: DQ+40
Function Call: WRITE	Prompt: $J($P(ITEMDATA,"^",11),7) Line Location: DQ+41
Function Call: WRITE	Prompt: $J($P(ITEMDATA,"^",9),7) Line Location: DQ+42
Function Call: WRITE	Prompt: !,H(0),?79,"^",!,Q(0),?79,"\|",!,V(0),?79,"v",!,H(1),!,Q(1),!,V(1) Line Location: DQ+52
Function Call: WRITE	Prompt: @IOF Line Location: H+0
Function Call: WRITE	Prompt: $C(13),"QUANTITY DISTRIBUTION REPORT FOR: ",$E(PRCP("IN"),1,20),?(80-$L(%)),% Line Location: H+1
Function Call: WRITE	Prompt: !?5,"QUANTITY DISTRIBUTION DATE RANGE: ",DATESDT," TO ",DATEEDT Line Location: H+2
Function Call: WRITE	Prompt: !?46,$J("STAND",6),$J("OPT",7),$J("TEMP",7),$J("EMER",7),$J("NORM",7),!,"NSN",?15,"DESCRIPTION",?34,"MI#",?39,$J("UNIT/IS",7),$J("REOPT",6),$J("REOPT",7),$J("S.LVL",7),$J("S.LVL",7),$J("S.LVL",7) Line Location: H+4
Function Call: WRITE	Prompt: !,% Line Location: H+5
Routine Call	%ZIS Line Location: V+16

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRCP(445 - [#445]	DQ+33
^PRCP(445.2 - [#445.2]	DQ+16, DQ+17
^TMP($J	DQ+13!, DQ+23, DQ+24*, DQ+30, DQ+45, Q!

Label References

Name	Line Occurrences
H	DQ+28, DQ+32
Q	V+17, V+18, DQ+53

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DQ+1~, DQ+23, DQ+24, DQ+27, H, H+1, H+3*, H+5
%H	DQ+1~
%I	DQ+1~
>> %ZIS	V+16*
COUNT	DQ+1~, DQ+44, DQ+49, DQ+50*
CURRENT	DQ+1~, DQ+3*, DQ+9, DQ+16
DA	DQ+1~, DQ+16*, DQ+17
DATA	DQ+1~, DQ+17, DQ+18, DQ+20, DQ+21, DQ+22, DQ+24
DATE	DQ+1~, DQ+8, DQ+9, DQ+15, DQ+16, DQ+23, DQ+24, DQ+44, DQ+45, DQ+49
DATEDAT	DQ+1~, DQ+2!
DATEDAT(	DQ+7, DQ+12, DQ+45, DQ+49
DATEEDT	DQ+1~, DQ+26*, H+2
DATESDT	DQ+1~, DQ+26*, H+2
DATESTRT	DQ+1~, DQ+6*, DQ+8, DQ+15, DQ+26
DT	DQ+3, DQ+4, DQ+26
H	DQ+1~
H(	DQ+49*
H(0	DQ+43*, DQ+52
H(1	DQ+43, DQ+51, DQ+52
IO	DQ+28
IO("Q"	V+18!
IOF	H
IOSL	DQ+32
ITEMDA	DQ+1~, DQ+18, DQ+23, DQ+24, DQ+30, DQ+33, DQ+35, DQ+36, DQ+37, DQ+45
ITEMDATA	DQ+1~, DQ+33*, DQ+38, DQ+39, DQ+40, DQ+41, DQ+42
L	DQ+1~, DQ+44, DQ+49, DQ+50
NOW	DQ+1~, DQ+27*, H
NSN	DQ+1~, DQ+18, DQ+19, DQ+23, DQ+24, DQ+29, DQ+30*, DQ+34, DQ+45
PAGE	DQ+1~, DQ+28, H
>> POP	V+17
>> PRCP("DPTYPE"	V+3, V+4
>> PRCP("I"	V+2, DQ+16, DQ+33, DQ+35, DQ+37
>> PRCP("IN"	H+1
PRCPDATA	DQ+1~, DQ+45*, DQ+46, DQ+47, DQ+48
PRCPEND	V+7~, DQ+19
PRCPFLAG	DQ+1~, DQ+30, DQ+31*, DQ+32, DQ+53
PRCPSTRT	V+7~, V+14, DQ+19
Q	DQ+1~
Q(	DQ+49*
Q(0	DQ+43*, DQ+52
Q(1	DQ+43, DQ+51, DQ+52
QTY	DQ+1~, DQ+46*, DQ+49
SCREEN	DQ+1~, DQ+28*, DQ+32, H
TOTALC	DQ+1~, DQ+44, DQ+48, DQ+51
TOTALQ	DQ+1~, DQ+44, DQ+48, DQ+51
TOTALV	DQ+1~, DQ+44, DQ+48, DQ+51
TYPE	DQ+1~, DQ+16*
V	DQ+1~
V(	DQ+49*
V(0	DQ+43*, DQ+52
V(1	DQ+43, DQ+51, DQ+52
VALUE	DQ+1~, DQ+47*, DQ+49
X	V+7~, V+8!, V+9, V+11!, V+12, DQ+1~, DQ+6, DQ+7, DQ+9, DQ+10 , DQ+12
X(1	V+8, V+11
>> X1	DQ+4, DQ+9
>> X2	DQ+5, DQ+9
Y	DQ+1~, DQ+6, DQ+7, DQ+10, DQ+12, DQ+26, DQ+27
>> ZTDESC	V+19*
>> ZTQUEUED	DQ+31
>> ZTRTN	V+19*
>> ZTSAVE("PRCP*"	V+20*
>> ZTSAVE("ZTREQ"	V+20*
ZTSK	V+18!

Customize PDF page

Package: IFCAP