Routine: PRCSRIP

Information

PRCSRIP ;WISC/SAW/BMM-PRINT/DISPLAY ITEMS BY VENDOR FROM REPETITIVE ITEM LIST FILE ;8/18/94 14:24 ;

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT
VA FileMan	4	DD^%DT NOW^%DTC ^DIC $$GET1^DIQ
Toolkit	1	$$GET^XPAR

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	PRCSRI PRINT/DISPLAY

Entry Points

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;13,81;Oct 20, 2000
QUE
ITEML	;PRC5.181 redirect to ITEML1D instead of ITEML1 if a DynaMed RIL
ITEML1
HOLD
HDRL
SORT	;See NOIS MON-0399-51726
EXIT
ITEML1D(PRCVDN)	;PRC5.181

External References

Name	Field # of Occurrence
DD^%DT	QUE
NOW^%DTC	QUE
^%ZIS	V+13
^%ZISC	QUE+6
^%ZTLOAD	V+13
^DIC	V+7
$$GET1^DIQ	ITEML+8
$$FMTE^XLFDT	ITEML1D+10
$$GET^XPAR	ITEML+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"VENDOR: ",$P(N,";")," (",$P(N,";",2),")",! Line Location: QUE+3
Function Call: WRITE	Prompt: !,"Items have not yet been entered for Repetitive Item List # ",PRCSNO Line Location: QUE+4
Function Call: WRITE	Prompt: !!,"TOTAL # OF ITEMS (ALL VENDORS): ",$J(PRCSIT,4),?40,"TOTAL COST (ALL VENDORS): ",$J(PRCSTC,9,2) Line Location: QUE+5
Function Call: WRITE	Prompt: !!,"TOTAL # OF ITEMS: ",$J(K,4),?25,"TOTAL COST: ",$J(PRCSC,9,2),! Line Location: ITEML+11
Function Call: WRITE	Prompt: L Line Location: ITEML+11
Function Call: WRITE	Prompt: !!,"VENDOR: ",$P(N,";")," (",$P(N,";",2),")",! Line Location: ITEML1+0
Function Call: WRITE	Prompt: !,$P(X,"^"),?12 Line Location: ITEML1+1
Function Call: WRITE	Prompt: $E($P(^(0),"^",2),1,42) Condition for execution: $D(^PRC(441,$P(X,"^"),0)) Line Location: ITEML1+1
Function Call: WRITE	Prompt: ?54,$S($P(X,"^",2)[".":$J($P(X,"^",2),9,2),1:$J($P(X,"^",2),9)),?66,$J($P(X,"^",4),9,2) Line Location: ITEML1+1
Function Call: WRITE	Prompt: ?78,$S($D(^PRCD(420.5,+$P(^(0),"^",7),0)):$P(^(0),"^"),1:"") Line Location: ITEML1+2
Function Call: READ	Variable: Z(1) Timeout: DTIME Line Location: HOLD+0
Function Call: WRITE	Prompt: @IOF,"REPETITIVE ITEM LIST #: ",PRCSNO,?50,"DATE: ",PRCSD," PAGE ",PRCSP Line Location: HDRL+0
Function Call: WRITE	Prompt: !,"ITEM NO.",?12,"SHORT DESCRIPTION",?55,"QUANTITY",?66,"UNIT COST",?77,"U/P",! Line Location: HDRL+1
Function Call: WRITE	Prompt: L Line Location: HDRL+1
Function Call: WRITE	Prompt: !!,"VENDOR: ",$P(N,";")," (",$P(N,";",2),")",! Line Location: ITEML1D+6
Function Call: WRITE	Prompt: !,$P(X,"^"),?12 Line Location: ITEML1D+7
Function Call: WRITE	Prompt: $E($P(^(0),"^",2),1,42) Condition for execution: $D(^PRC(441,$P(X,"^"),0)) Line Location: ITEML1D+7
Function Call: WRITE	Prompt: ?54,$S($P(X,"^",2)[".":$J($P(X,"^",2),9,2),1:$J($P(X,"^",2),9)),?66,$J($P(X,"^",4),9,2) Line Location: ITEML1D+7
Function Call: WRITE	Prompt: ?78,$S($D(^PRCD(420.5,+$P(^(0),"^",7),0)):$P(^(0),"^"),1:"") Line Location: ITEML1D+8
Function Call: WRITE	Prompt: !,"DM DOC ID: ",$P(X,"^",7),?45,"DATE NEEDED BY: ",PRCVED Line Location: ITEML1D+11
Routine Call	DIC Line Location: V+7
Routine Call	%ZIS Line Location: V+13

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PRCS(410.3 - [#410.3]	Classic Fileman Calls
410.31	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRC(441 - [#441]	ITEML1+1, ITEML1+2, ITEML1D+7, ITEML1D+8
^PRCD(420.5 - [#420.5]	ITEML1+2, ITEML1D+8
^PRCS(410.3 - [#410.3]	V+8, QUE, ITEML1+1, SORT+3, SORT+4, ITEML1D+7
^TMP($J	QUE+3, ITEML+6, SORT+1!, SORT+5*, EXIT+1!

Label References

Name	Line Occurrences
EXIT	V+7, V+8, V+13, QUE+7
HDRL	QUE+3, QUE+5, ITEML+11, ITEML1, ITEML1D+6
HOLD	QUE+3, QUE+5, ITEML1, ITEML1D+6
ITEML	QUE+3
ITEML1	ITEML+10
ITEML1D	ITEML+9
SORT	V+11, QUE+2

Naked Globals

Name	Field # of Occurrence
^(0	ITEML1+1, ITEML1+2, ITEML1D+7, ITEML1D+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	QUE, EXIT!
%DT	EXIT!
%ZIS	V+13*, EXIT!
%ZIS("B"	V+13*
D0	V+8*, QUE, QUE+3, ITEML+6, ITEML+8, ITEML1+1, SORT+3, SORT+4, SORT+5, EXIT! , ITEML1D+7
DIC	V+6*, EXIT!
DIC("A"	V+7*
DIC("S"	V+6*, V+7!
DIC(0	V+6*
DTIME	HOLD
FF	SORT+2~, SORT+4*, SORT+5
I	EXIT!
IEN410	EXIT+1!
II	SORT+2~, SORT+3, SORT+4, SORT+5
IO	QUE, QUE+6, HOLD
IO("Q"	V+13
IO(0	QUE+6, HOLD
IOF	HDRL
IOM	ITEML+11, HDRL+1
IOSL	QUE+3, QUE+5, ITEML+11, ITEML1, ITEML1D+6
J	QUE+3*, QUE+4, QUE+5, EXIT!
K	ITEML+6*, ITEML+11, ITEML+12, EXIT!
L	ITEML+11, HDRL+1, EXIT!
N	QUE+1, QUE+3, ITEML+6, ITEML1, EXIT!, ITEML1D+6
N(1	ITEML+3, ITEML+6, ITEML+8, ITEML1+1, ITEML1D+7
>> POP	V+13
PRCS	EXIT+1!
PRCSC	ITEML+3, ITEML+11, ITEML+12, ITEML1+3, EXIT!, ITEML1D+12*
PRCSD	QUE*, HDRL, EXIT!
PRCSIT	QUE+1, QUE+5, ITEML+12, EXIT!
PRCSNO	QUE*, QUE+4, HDRL, EXIT!
PRCSP	QUE+1, HDRL, EXIT!
PRCSTC	QUE+1, QUE+5, ITEML+12, EXIT!
PRCVDF	ITEML+2~, ITEML+3, ITEML+5, ITEML+9
PRCVDN	ITEML+2~, ITEML+3, ITEML+8, ITEML+9, ITEML1D~
PRCVED	ITEML1D+5~, ITEML1D+10*, ITEML1D+11
PRCVFMD	ITEML1D+5~
U	QUE+3, QUE+5, ITEML+6, ITEML+11, ITEML1, HOLD, ITEML1D+6
X	ITEML1+1, ITEML1+2, ITEML1+3, EXIT+1!, ITEML1D+7, ITEML1D+8, ITEML1D+10, ITEML1D+11, ITEML1D+12
Y	V+7, V+8, QUE*, EXIT+1!
Z	EXIT+1!
Z(1	QUE+1, QUE+3, QUE+5, ITEML+6, ITEML+11, ITEML1, HOLD, ITEML1D+6
>> ZTQUEUED	QUE+6, HOLD
>> ZTRTN	V+13*, QUE+2
>> ZTSAVE("D0"	V+13*

Customize PDF page

Package: IFCAP