Routine: PRCNREQN

Information

PRCNREQN ;SSI/ALA-Enter a New Equipment Request ;[ 11/07/96 5:06 PM ]

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
VA FileMan	6	NOW^%DTC ^DIC (FILE,YN)^DICN ^DIE ^DIK ^DIWP
Equipment Turn-In Request	2	DISP^PRCNTIRQ (FYQ,SEQ)^PRCNUTL
IFCAP	1	^PRCFSITE

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: 3

Package	Total	Caller Graph
Equipment Turn-In Request	3	PRCN NX NEW PRCNREQE PRCNREQQ

Entry Points

Name	Comments	DBIA/ICR reference
EN
EQ
REP	; Build replacement entries for Turn-In request
RP2
GNX
GID
G1
RPX

External References

Name	Field # of Occurrence
NOW^%DTC	EN
^DIC	EN+2, EN+6, GID
FILE^DICN	EN+11
YN^DICN	G1
^DIE	EN+14, EN+20, G1+5
^DIK	EN+15
^DIWP	GID+6, GID+7
^PRCFSITE	EN+1
DISP^PRCNTIRQ	GID+3
FYQ^PRCNUTL	EN+1
SEQ^PRCNUTL	EN+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This CMR has no responsible official",$C(7) Line Location: EN+4
Function Call: WRITE	Prompt: !!,"This Request has been assigned Transaction #: ",PRCNTRN,! Line Location: EN+12
Function Call: WRITE	Prompt: !!,"A replacement item must be entered for each quantity requested.",! Line Location: REP+4
Function Call: WRITE	Prompt: !!,"Select the Replacement Item to correspond with Line Item # "_RQ_" Quantity: "_NUM Line Location: GNX+0
Function Call: WRITE	Prompt: !,$C(7),"You MUST select the Item that is being replaced for a Parent!" Line Location: GID+2
Function Call: WRITE	Prompt: $C(7),!!,"This ITEM "_RIDSC_" already has a request on file!" Line Location: GID+4
Function Call: WRITE	Prompt: !,^UTILITY($J,"W",DIWL,I,0) Line Location: GID+8
Function Call: WRITE	Prompt: " " Line Location: G1+0
Function Call: WRITE	Prompt: !,"Enter 'Yes' to match the replacement item with item being requested." Line Location: G1+0
Routine Call	DIC Line Location: EN+2 EN+6 GID
Routine Call	DIE Line Location: EN+14 EN+20 G1+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PRCN(413 - [#413]	Classic Fileman Calls
^DIC(49 - [#49]	Classic Fileman Calls
^ENG(6914 - [#6914]	Classic Fileman Calls
^ENG(6914.1 - [#6914.1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRCN(413 - [#413]	EN+17, REP+2, REP+5, GID+7
^PRCN(413.1 - [#413.1]	EN+19, REP+3, REP+6, RP2+2, GID+4
^UTILITY($J	GID+5!, GID+8

Label References

Name	Line Occurrences
EN	EN+4
EQ	EN+1, EN+2, EN+5, EN+15
G1	G1
GID	G1+1
GNX	RP2+4, GID+2, GID+4
RP2	RP2+5
RPX	RP2+1

Naked Globals

Name	Field # of Occurrence
^(0	REP+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EN, G1, G1+1, G1+2
%H	EN!
%I	EN!
C	EQ!
D	EQ!, RP2+3~, G1+3~
D0	EQ+1!, REP+1, RP2+3~, G1+3~
D1	EQ+2!, REP+1, RP2+3~, G1+3~
DA	EN+11, EN+17, EN+20, EQ+1!, RP2+3~, G1+3~, G1+4*
DA(1	G1+4*
DC	RP2+3~, G1+3~
DE	RP2+3~, G1+3~
DG	RP2+3~, G1+3~
DH	RP2+3~, G1+3~
DI	RP2+3~, G1+3~
DIC	EN+2, EN+6, EN+7!, EN+11, EQ+1!, RP2+3~, GNX+1, G1+3~, G1+4*, G1+5
DIC("A"	EN+2, GNX+1
DIC("S"	GNX+2*, GID+3!
DIC(0	EN+2, EN+11, GNX+1*
DIE	EN+14, EN+20, EQ+1!, RP2+3~, G1+3~, G1+5*
DIE("NO^"	EN+14, G1+4, G1+6!
DIEL	RP2+3~, G1+3~
DIFLD	RP2+3~, G1+3~
>> DIK	EN+15*
DIWF	EQ!, GID+5*
>> DIWL	GID+5*, GID+8
>> DIWR	GID+5*
DK	RP2+3~, G1+3~
DL	RP2+3~, G1+3~
DLAYGO	EN+11*, EQ+1!
DM	RP2+3~, G1+3~
DN	RP2+3~, G1+3~
DOV	RP2+3~, G1+3~, RPX!
DP	RP2+3~, G1+3~
DQ	RP2+3~, G1+3~
DR	EN+14, EN+20, EQ+1!, RP2+3~, G1+3~, G1+5*, G1+6!, RPX!
DU	RP2+3~, G1+3~
>> DUOUT	RP2+4, GID+1
DV	RP2+3~, G1+3~
EDIT	EN+20*, EQ+3!
HL0	EQ!
I	EQ+1!, GID+8*
J	EQ+2!
LL	EQ+1!
NEW	EN+14*, EQ!
NM	REP+3, REP+6, RP2, RP2+2, G1+4, RPX!
NUM	REP+1, RP2, RP2+1, GNX, RPX!
PFL	EQ+3!
PL	EQ+1!
PRC	EQ!
PRC("FY"	EN+9
PRC("MDIV"	EN+1*
PRC("SITE"	EN+1, EN+9
PRCF	EQ+1!
PRCF("X"	EN+1*
PRCN	EQ!
PRCN("CMR"	EN+3*, EN+9
PRCNCMR	EN+3, EQ!, REP+5
PRCNCT	EQ+2!
PRCNDA	EN+10, EQ!
PRCNDTM	EN*, EQ+1!
PRCNPJT	EQ+2!
PRCNQT	EQ+1!
PRCNRDA	EN+11*, EQ+1!
PRCNRSP	EN+4*, EN+7!
PRCNRTN	EQ+2!
PRCNSRV	EN+3, EN+5, EN+6, EQ!
PRCNTDA	EN+18*, EN+19, EN+20, EQ+1!, EQ+3!
PRCNTRN	EN+10*, EN+12, EQ!
PRCNTXT	EQ+2!
PRCNTY	EN+15, EN+16, EQ!
PRCNTYP	EQ+2!, REP+2*, GID, GID+2
QTY	EQ+3!, REP+2*, REP+4, RP2+1, RPX!
RDA	EQ+2!, REP+1*, REP+2, REP+5, GID+7
RDI	EQ+2!, REP+1*, REP+2, RP2+2
RI	GID+3*, GID+4!, G1+1!
RIDSC	GID+3*, GID+4, GID+6, G1+1!
RQ	RP2+2*, GNX, GID+7, RPX!
>> RQD	GID+7*
TDA	EN+17*, EN+18, EQ+2!, REP+3, REP+6, RP2+2, G1+4
TST	EN+9*, EN+10, EQ!
U	EN+3, EN+4, EN+17, REP+2, REP+3, REP+5, RP2+2, GID+3
X	EN+10, GID+6, GID+7*, G1+1!
Y	EN+2, EN+3, EN+5, EN+6, EN+7!, EN+11, RP2+3~, GID, GID+2, GID+3 , G1+3~
Y(0	EN+3, EN+4, GID+3

Customize PDF page

Package: Equipment Turn-In Request