Routine: PRCN2237

Information

PRCN2237 ;SSI/SEB,ALA-Create 2237 from completed request ;[ 01/30/97 1:45 PM ]

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
IFCAP	3	W61^PRCSEB (EN,LOCK)^PRCSUT (EN1,EN2)^PRCSUT3
VA FileMan	3	^DIC FILE^DICN ^DIE

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
Equipment Turn-In Request	1	PRCN NX PPM 2237

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Entry point to individual 2237
LIST	; Create 2237s for chosen requests
NEW	; Create new 2237 and fill in info from a finished request
NQ
W2
EXIT
LINE	; Line item copier, called from [PRCN2237] input template
CPLINE	; Create a line item in 2237 and copy over line item from request
L2
CMP	; Check for completeness of data
CMPD

External References

Name	Field # of Occurrence
^DIC	EN+2, CPLINE+9
FILE^DICN	L2+3
^DIE	LIST+9, LIST+13, LIST+19, NEW+6, CPLINE+9
W61^PRCSEB	LIST+15
EN^PRCSUT	LIST+1
LOCK^PRCSUT	NEW+3
EN1^PRCSUT3	NEW+1
EN2^PRCSUT3	NEW+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"2237 on File - Editing Transaction #: ",$P(^PRCS(410,DA,0),U),! Line Location: EN+6
Function Call: WRITE	Prompt: !!,$C(7),"2237 information is incomplete" Line Location: LIST+14
Function Call: WRITE	Prompt: !!,"This transaction is assigned transaction number: ",X Line Location: NEW+2
Function Call: WRITE	Prompt: $C(7),!!,"You are not an authorized control point user." Line Location: W2+0
Function Call: WRITE	Prompt: !,"Contact your control point official." Line Location: W2+1
Function Call: WRITE	Prompt: !!,"Line Item #",DA,":",!,"Description:" Line Location: CPLINE+3
Function Call: WRITE	Prompt: !," ",DL Line Location: CPLINE+5
Function Call: WRITE	Prompt: ! Line Location: CPLINE+6
Routine Call	DIC Line Location: EN+2 CPLINE+9
Routine Call	DIE Line Location: LIST+9 LIST+13 LIST+19 NEW+6 CPLINE+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PRCS(410 - [#410]	Classic Fileman Calls
^PRCN(413 - [#413]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRC(440 - [#440]	LIST+8
^PRCD(420.5 - [#420.5]	L2+7
^PRCN(413 - [#413]	EN+3, LIST+5, LIST+6, NEW+5, CPLINE+1, CPLINE+2, CPLINE+4, CPLINE+7, CPLINE+8, L2+4 , L2+5
^PRCS(410 - [#410]	EN+3, EN+5, EN+6, LIST+5, LIST+6, LIST+10, LIST+12, LIST+16, LIST+18, CPLINE+5 , CPLINE+6*, CMP+1, CMPD

Label References

Name	Line Occurrences
CMP	LIST+14
CMPD	CMP+1
EXIT	EN+2, LIST+1, LIST+14, LIST+15, LIST+16, LIST+20
L2	CPLINE+2
LINE	LIST+3
NEW	LIST+3
NQ	NEW+1
W2	LIST+1

Naked Globals

Name	Field # of Occurrence
^(	CPLINE+4
^(0	CPLINE+7, L2+4, L2+5
^(7	LIST+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	LIST+15, EXIT!
%W	EXIT+3!
C	EXIT!, CPLINE+1*, CPLINE+10!
COST	EXIT+1!, L2+5*
CURQTR	EXIT+2!
CURQTR1	EXIT+2!
D	EXIT!
D0	LIST+16, EXIT+3!, CMP+1, CMPD
DA	EN+5, EN+6!, LIST+7, LIST+12, LIST+18, NEW+1, NQ!, EXIT!, CPLINE+2*, CPLINE+3 , L2
DA(1	LIST+5, LIST+6, LIST+7, LIST+10, CPLINE+5, CPLINE+6, L2*, L2+1
DIC	EN+1, LIST+7, LIST+12, LIST+18, NEW+4, NEW+6, EXIT!, L2+1, L2+2
DIC("S"	EN+1*, EN+2!
DIC(0	EN+2, L2
DIE	LIST+7, LIST+12, LIST+18, NEW+6, NQ!, EXIT!, L2+1*
DIW	EXIT+3!
DIWI	EXIT+3!
DIWT	EXIT+3!
DIWTC	EXIT+3!
DIWX	EXIT+3!
DL	CPLINE+4*, CPLINE+5, CPLINE+10!
DLAYGO	CPLINE+10!, L2*
DN	EXIT+3!
DQ	EXIT!
DR	LIST+7!, LIST+9, LIST+13, LIST+19, NEW+6, NQ!, EXIT!, L2+8*
DR(1	L2+8, L2+9
DT	CPLINE+6
>> DTOUT	CPLINE+9
>> DUOUT	CPLINE+2, CPLINE+9
I	EXIT!, CPLINE+1~, CMPD
II	CPLINE+4*, CPLINE+5, CPLINE+6, CPLINE+10!
IN	EN+2*, EN+3, LIST+3, LIST+18, NEW+5, EXIT+2!, CPLINE+4, CPLINE+7, CPLINE+8, L2+4 , L2+5
JUMP	EXIT+5!
LI	CPLINE+2*, CPLINE+4, CPLINE+5, CPLINE+6, CPLINE+7, CPLINE+8, CPLINE+10!, L2+4, L2+5
N	EXIT!
>> NGF	W2+1*
OK	EXIT+3!
P1	EXIT+3!
P2237N	EN+3*, EN+4, LIST+2, LIST+11, EXIT+1!
PDD1	EXIT+5!, CMP+1*, CMPD
POP	EXIT+5!
PRC	EXIT+2!
PRC("QTR"	LIST+1
PRC("SITE"	LIST+1
PRCHQ	EXIT+2!
PRCNJ	LIST+6*, EXIT+3!
PRCNT1	LIST+18, NEW+4, EXIT+1!, L2
PRCNTMP	EN+3*, EN+5, LIST+12, LIST+18, EXIT+1!
PRCNVNDR	LIST+8, EXIT+1!, CPLINE+7, CPLINE+8*
PRCS	EXIT!
PRCS2	EXIT!
PRCSCP	EXIT+3!
PRCSCST	EXIT+5!
PRCSDAA	EXIT!
PRCSDR	EXIT!
PRCSERR	EXIT+3!
PRCSL	EXIT!
PRCSN	EXIT+2!
PRCSPG	EXIT+4!
PRCSQT	EXIT+4!
PRCST	EXIT+2!
PRCST1	EXIT+2!
PRCSTT	EXIT!
PRCSX3	EXIT+1!
QFL	LIST+14, EXIT+5!, CMP+1, CMPD*
QTY	EXIT+1!, L2+4*
RECORD	EXIT+4!
RECORD1	EXIT+4!
RECORD10	EXIT+4!
RECORD2	EXIT+4!
RECORD3	EXIT+4!
RECORD4	EXIT+4!
SKIPRNT	EXIT+5!
SPENDCP	LIST+17, EXIT+2!
SRTGRP	NEW+5*, EXIT+5!
STKNO	EXIT+5!, L2+5*
STRING	EXIT+2!
T	EXIT+1!
T1	NEW+1*, NEW+4, NQ!, EXIT+1!
T2	EXIT+1!
TDA	LIST+3*, LIST+5, LIST+6, EXIT+5!, CPLINE+1, CPLINE+2
TEST	EXIT+2!
TEST1	EXIT+1!
TRNODE	EXIT+5!
U	EN+3, EN+6, LIST+8, LIST+10, LIST+16, NEW+5, CPLINE+6, CPLINE+7, CPLINE+8, L2+4 , L2+5, CMPD
UTYP	EXIT+3!, L2+7*
X	NEW+1, NEW+2, NQ!, EXIT+1!, L2
X1	NEW+1*, NQ!, EXIT+1!
XNAME	EXIT+5!
Y	EN+2, LIST+1, EXIT+1!

Customize PDF page

Package: Equipment Turn-In Request