Routine: PRCSP1

Package	Total	Call Graph
IFCAP	10	^PRCE58P0 ^PRCFYN DQ^PRCPRIB0 NODE^PRCS58OB T2^PRCSAPP1 ^PRCSD12 ^PRCSDIC ^PRCSP13 POS1^PRCSP1B (EN,EN3,NSCRN)^PRCSUT
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA FileMan	2	YN^DICN EN1^DIP

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

Package	Total	Caller Graph
IFCAP	17	PRCEN PRCESOE PRCF 2237 PRINT PRCHDR PRCHG PRCHNPO2 PRCSCPY PRCSEB PRCSEB0 PRCSECP PRCSECP1 PRCSOTR PRCSPRF PRCSPRFT PRCSTS PRCSTSS PRCSUT2

Entry Points

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;;Oct 20, 2000
OTR	;OBL TRANS
TS	;CPC/CPO TRANS STATUS
TSS	;REQ TRANS STATUS
PRNT	;
CPOQR	;CP OFFICIAL'S QTRLY REPORT
ALLCP	;PRINT REQUEST FROM ANY CP
PRF	;PRINT REQUEST FORM
PRF0
PRF1	;
PRF2
PRF3	;
PRF4	;
PRF5
PRFPRN	;
EN1
S
DEV
W3
W2
W1
W
EXIT

External References

Name	Field # of Occurrence
^%ZIS	PRF5+1, DEV
HOME^%ZIS	PRFPRN+2
^%ZISC	PRFPRN+4, W+1
^%ZTLOAD	TS+9, TSS+3, PRFPRN+2
YN^DICN	PRF4+2
EN1^DIP	S
^PRCE58P0	PRFPRN+5
^PRCFYN	OTR+5
DQ^PRCPRIB0	PRFPRN+5
NODE^PRCS58OB	PRF2
T2^PRCSAPP1	CPOQR+4
^PRCSD12	PRFPRN+5
^PRCSDIC	OTR+4, TS+9, TSS+3, PRNT+2, PRF0, EN1
^PRCSP13	TS+10, TSS+4
POS1^PRCSP1B	OTR+6
EN^PRCSUT	CPOQR+1
EN3^PRCSUT	OTR+1, TS+3, PRF+2
NSCRN^PRCSUT	ALLCP+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Print administrative certification page of 2237" Line Location: PRF4+1
Function Call: WRITE	Prompt: !,"Enter NO to not print administrative certifications,",!," justifications, and data on last page of the 2237",! Line Location: PRF4+4
Function Call: WRITE	Prompt: !!,"Items have not been entered for this request.",!,"Requests without items are not printed." Line Location: PRF4+6
Function Call: WRITE	Prompt: !!,"For the transaction number, use an uppercase alpha as the first character,",!,"and then 2-16 uppercase or numeric characters, as in ADP1.",! Line Location: W3+0
Function Call: WRITE	Prompt: !!,"Enter information for another report or an uparrow to return to the menu.",! Line Location: W2+0
Function Call: READ	Variable: X Timeout: 5 Line Location: W1+0
Function Call: WRITE	Prompt: !!,"You are not an authorized control point user.",!,"Contact your control point official." Line Location: W1+0
Function Call: WRITE	Prompt: W Line Location: W+0
Function Call: WRITE	Prompt: !!,"Press return to continue: " Line Location: W+0
Routine Call	%ZIS Line Location: PRF5+1 DEV
Routine Call	%ZIS Line Location: PRFPRN+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRC(442 - [#442]	OTR+6
^PRCS(410 - [#410]	OTR+4, PRNT+3, PRF2, PRF4+6

Label References

Name	Line Occurrences
@(	PRFPRN+4
ALLCP	PRFPRN+3, PRFPRN+4, PRFPRN+5
CPOQR	CPOQR+5
DEV	TS+9, TSS+3, PRF5
EN1	EN1
EXIT	OTR+1, OTR+4, TS+9, TSS+3, PRNT+2, CPOQR+1, ALLCP+2, PRF+2, PRF0, PRF4+6 , PRF5, PRFPRN+3, PRFPRN+4, PRFPRN+5, EN1, W1
OTR	OTR+5, OTR+6, OTR+7
PRF	PRFPRN+3, PRFPRN+4, PRFPRN+5
PRF0	ALLCP+3
PRF1	EN1
PRF2	PRNT+3
PRF4	PRF4+4
PRF5	PRF3+3
PRFPRN	PRF5
PRNT	PRFPRN+3, PRFPRN+4, PRFPRN+5
S	OTR+6, CPOQR+3
TS	TS+9, TS+10
TSS	TSS+3, TSS+4
W1	OTR+1, CPOQR+1, ALLCP+2, PRF+2
W2	TS+10, TSS+4, PRFPRN+3, PRFPRN+4, PRFPRN+5
W3	TSS+1, PRNT+1

Naked Globals

Name	Field # of Occurrence
^(	OTR+6
^(3	PRNT+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	OTR+5, OTR+6, PRF3+4~, PRF4+1, PRF4+3, PRF4+4, PRF4+5, EXIT!
>> %A	OTR+5*
%DT	EXIT!
%ZIS	DEV*, EXIT!
%ZIS("B"	DEV*
BY	OTR+6, CPOQR+3, EXIT!
C2	EXIT!
C3	EXIT!
CET	PRF1+1~, PRF2*
D	OTR+2, TSS+2, PRNT+1*, EXIT!
>> D0	OTR+6*
DA	TS+9, TSS+3, PRNT+3, PRF0, PRF2, PRF4+6, PRFPRN+1, EN1*, EXIT!
DHD	OTR+6, CPOQR+3, EXIT!
DIC	OTR+2, TS+5, TSS+2, PRNT+1, PRF0, EN1!, S*, EXIT!
DIC("A"	OTR+2, OTR+4!, TSS+2, TSS+3!, PRNT+1, PRNT+2!, EN1
DIC("S"	OTR+3, OTR+4!, TS+6, TS+8, TS+9!, TSS+2, TSS+3!, PRNT+1, PRNT+2!, PRF0! , EN1*
DIC(0	OTR+2, TS+5, TSS+2, PRNT+1, PRF0, EN1
>> DIOEND	CPOQR+2*
DISONLY	ALLCP+3*, PRF5, PRFPRN+3, PRFPRN+4, PRFPRN+5, EXIT!
DTIME	W
F	PRFPRN+4*, EXIT!
FLDS	OTR+6, CPOQR+3, EXIT!
FR	OTR+6, CPOQR+3, EXIT!
I	EXIT!
IO	W, W+1
IO("Q"	TS+9, TSS+3, PRFPRN+2!, DEV!
IO(0	W, W+1
IOF	PRFPRN+5
IOP	PRF5+1*, S!
IOST	PRFPRN+4
L	S*, EXIT!
N	EXIT!
PFLAG	PRNT+3, PRF1+1~, PRFPRN+3, PRFPRN+4, PRFPRN+5
>> POP	TS+9, TSS+3, PRF5
>> PRC("CP"	OTR+6!, TS+2!, TS+6, PRNT+3*, CPOQR+1, CPOQR+3, CPOQR+5!
>> PRC("FY"	CPOQR+1
>> PRC("QTR"	CPOQR+1
>> PRC("SITE"	OTR+1, OTR+6, PRNT+3*, CPOQR+1, ALLCP+2, PRF+2
PRCPRIB	PRFPRN+1~*
PRCS	EXIT!
PRCS(1	CPOQR+5!
PRCS(2	CPOQR+5!
PRCSAZ	CPOQR+1*, CPOQR+3, CPOQR+5!
PRCSF	PRFPRN+3, PRFPRN+4, PRFPRN+5, EN1*!
PRCSPOP	S!
PRCSQ	PRF1+1~, PRF2*, PRF3+3, PRFPRN+2, PRFPRN+4, PRFPRN+5
PRCSST	TS+1*, TS+3!
PRCSX	OTR+4*, OTR+6!, OTR+7!
PRCSX1	TS+4~, TS+9!
PRCSX2	TS+4~, TS+9!
PRNTALL	PRF3+1~, PRF3+2, PRF4+3, PRF4+5*
REPORT2	CPOQR+4~*
TO	OTR+6, CPOQR+3, EXIT!
TRNODE	PRF1+1~, PRF2
TRNODE(0	PRF2*
U	OTR+4, PRF2
X	W1, W, EXIT!
X3	TSS+1~, PRNT+1~
Y	OTR+1, OTR+4, TS+9, TSS+3, PRNT+2, PRNT+3, CPOQR+1, ALLCP+2, PRF+2, PRF0 , EN1, EXIT!
>> ZTQUEUED	W, W+1
ZTRTN	TS+9, TSS+3, PRFPRN+2*, EXIT!
ZTSAVE	EXIT!
ZTSAVE("DA"	TS+9, TSS+3, PRFPRN+2*
ZTSAVE("PRC*"	PRFPRN+2*
ZTSAVE("PRNTALL"	PRFPRN+2*
ZTSAVE("TRNODE*"	PRFPRN+2*

Customize PDF page

Package: IFCAP

Routine: PRCSP1

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 17

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: