Routine: PRCPRDI0

Information

PRCPRDI0 ;WISC/RFJ-update/print due-ins from 410 and 442 ;30 Aug 91

Source Information

Source file <PRCPRDI0.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
IFCAP	5	DQ^PRCPRDI1 $$KEY^PRCPUREP ^PRCPUSEL DISPLAY^PRCPUX2 $$YN^PRCPUYN
Kernel	2	^%ZIS ^%ZTLOAD
VA FileMan	2	(,DD)^%DT ^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	PRCP DUEIN CALCULATE/UPDATE

External References

Name	Field # of Occurrence
^%DT	PRCPRDI0+7
DD^%DT	PRCPRDI0+7
^%ZIS	PRCPRDI0+21
^%ZTLOAD	PRCPRDI0+21
^DIR	PRCPRDI0+11
DQ^PRCPRDI1	PRCPRDI0+25
$$KEY^PRCPUREP	PRCPRDI0+9
^PRCPUSEL	PRCPRDI0+3
DISPLAY^PRCPUX2	PRCPRDI0+15
$$YN^PRCPUYN	PRCPRDI0+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"THERE IS NOT A VENDOR IN THE VENDOR FILE (#440) DESIGNATED AS A SUPPLY WHSE.",!,"YOU WILL NOT BE ABLE TO CALCULATE DUE-INS FOR ISSUE BOOK REQUESTS." Line Location: PRCPRDI0+6
Function Call: WRITE	Prompt: !! Line Location: PRCPRDI0+7
Function Call: WRITE	Prompt: ! Line Location: PRCPRDI0+11
Function Call: WRITE	Prompt: ! Line Location: PRCPRDI0+21
Function Call: WRITE	Prompt: !!,"<> please wait <>" Line Location: PRCPRDI0+24
Routine Call	DIR Line Location: PRCPRDI0+11
Routine Call	%ZIS Line Location: PRCPRDI0+21

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRC(440 - [#440]	PRCPRDI0+5, PRCPRDI0+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PRCPRDI0+4~, PRCPRDI0+17*, PRCPRDI0+18
%DT	PRCPRDI0+7*!
%DT("A"	PRCPRDI0+7*
%DT(0	PRCPRDI0+7*
>> %ZIS	PRCPRDI0+21*
DIR	PRCPRDI0+11!
DIR("A"	PRCPRDI0+10*
DIR("B"	PRCPRDI0+10*
DIR(0	PRCPRDI0+10*
DT	PRCPRDI0+7
DUZ	PRCPRDI0+9
IO("Q"	PRCPRDI0+21!
>> POP	PRCPRDI0+21
>> PRCP("DPTYPE"	PRCPRDI0+6, PRCPRDI0+9
>> PRCP("I"	PRCPRDI0+3
PRCPDATD	PRCPRDI0+4~, PRCPRDI0+7*, PRCPRDI0+16
PRCPDATE	PRCPRDI0+4~, PRCPRDI0+7*
PRCPFLAG	PRCPRDI0+4~, PRCPRDI0+11, PRCPRDI0+17, PRCPRDI0+19
PRCPFUPD	PRCPRDI0+4~, PRCPRDI0+18*
PRCPWHSE	PRCPRDI0+4~, PRCPRDI0+5*, PRCPRDI0+6
X	PRCPRDI0+4~, PRCPRDI0+14!, PRCPRDI0+15
X(1	PRCPRDI0+14*
>> XP	PRCPRDI0+16*
>> XP(1	PRCPRDI0+16*
Y	PRCPRDI0+4~, PRCPRDI0+7, PRCPRDI0+11, PRCPRDI0+12
>> ZTDESC	PRCPRDI0+22*
>> ZTRTN	PRCPRDI0+22*
>> ZTSAVE("PRC*"	PRCPRDI0+23*
>> ZTSAVE("ZTREQ"	PRCPRDI0+23*
ZTSK	PRCPRDI0+21!

Customize PDF page

Package: IFCAP