Routine: PRCNPRNT

Package	Total	Call Graph
Kernel	2	^%ZIS ^%ZISC
VA FileMan	2	^DIC YN^DICN
Equipment Turn-In Request	1	(PR,QUE,QUT)^PRCNPR2

Package	Total	Caller Graph
Equipment Turn-In Request	14	PRCN NX DISPLAY PRCNCMR PRCNDISP PRCNENG PRCNOTHR PRCNPEDT PRCNPPM PRCNREQE PRCNRNK PRCNRSMT PRCNSPL PRCNTIPP PRCNTIPR PRCNTIWH

Entry Points

Name	Comments	DBIA/ICR reference
SETUP	; Set up necessary variables & open device
VIEWA
BEG
FORMAT	; Deal with special field formatting
SUBS	; Handle subfields
TURNIN	; Print stuff for turn-in
TI2
TN
REQCMR	; Print fields seen by requestor/CMR official review
PPM	; Print fields seen by PPM 1 official review
ENGIN	; Print fields seen by Engineering Committee
PPM2	; Print fields seen by PPM 2 official review
CONCUR	; Print fields seen by Concurring Official
PPM3	; Print fields seen by PPM 3 official review
CHIEF	; Print fields seen by VACO Chief of Supply
EQUIP	; Print fields seen by Equipment Committee
EXIT
PRFLD(FN)	; Print a single field
PR2
CHKPG	; Clear screen if it is full & start new one
ISWP(FN)	; Check if field is word-processing or similar

External References

Name	Field # of Occurrence
^%ZIS	VIEWA+5, TI2+2
^%ZISC	EXIT+3
^DIC	PRCNPRNT+8
YN^DICN	VIEWA+1
PR^PRCNPR2	PR2+1
QUE^PRCNPR2	VIEWA+6
QUT^PRCNPR2	TI2+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Do you want to view the information related to this request" Line Location: VIEWA+0
Function Call: WRITE	Prompt: !,"Enter 'YES' if you want to see a display of the information related" Line Location: VIEWA+3
Function Call: WRITE	Prompt: !,"to this request." Line Location: VIEWA+4
Function Call: WRITE	Prompt: @IOF Line Location: VIEWA+7
Function Call: WRITE	Prompt: ! Line Location: SUBS+4
Function Call: WRITE	Prompt: !,?4,"NAME: ",$P(^VA(200,NAME,0),U),?45,"TITLE: " Line Location: SUBS+7
Function Call: WRITE	Prompt: ! Line Location: TN+7
Function Call: WRITE	Prompt: !!,"TURN-IN LINE ITEMS:" Line Location: REQCMR+3
Function Call: WRITE	Prompt: !,?4,"EQ. REQUEST LINE NUMBER: ",$P(^PRCN(413.1,TDA,1,TI,0),U,3) Line Location: REQCMR+5
Function Call: WRITE	Prompt: @IOF Line Location: EXIT+0
Function Call: WRITE	Prompt: @IOF Line Location: CHKPG+2
Function Call: READ	Timeout: DTIME Line Location: CHKPG+3
Function Call: WRITE	Prompt: $C(7) Line Location: CHKPG+3
Function Call: WRITE	Prompt: @IOF Line Location: CHKPG+5
Routine Call	%ZIS Line Location: VIEWA+5 TI2+2
Routine Call	DIC Line Location: PRCNPRNT+8

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	SUBS+12, ISWP+1
^DIC(3.1 - [#3.1]	SUBS+8
^PRCN(413 - [#413]	PRCNPRNT+9, REQCMR+2, PPM+2, ENGIN+2, CHIEF+1, EQUIP+2
^PRCN(413.1 - [#413.1]	TURNIN+1, REQCMR+4, REQCMR+5
^PRCN(413.3 - [#413.3]	SUBS+6
^VA(200 - [#200]	SUBS+7, SUBS+8

Label References

Name	Line Occurrences
$$ISWP	PRFLD+1, PR2+1
CHKPG	REQCMR+3, REQCMR+6, PR2
EXIT	PRCNPRNT+9, PPM+1, ENGIN+1, PPM2+1, CONCUR+1, PPM3+1, CHIEF+1, EQUIP+1
PR2	PRFLD+1, PRFLD+2
PRFLD	SUBS+2, SUBS+3, SUBS+9, SUBS+12, TN+1, TN+2, TN+4, TN+6, REQCMR+1, REQCMR+8 , PPM+3, ENGIN+2, PPM2+2, PPM3+2, CHIEF+2, EQUIP+2
REQCMR	SUBS+1
TURNIN	REQCMR+6
VIEWA	VIEWA+2

Naked Globals

Name	Field # of Occurrence
^(0	PRCNPRNT+9, REQCMR+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	VIEWA+1*, VIEWA+2
>> %ZIS	VIEWA+5, TI2+2
C	EXIT+2!, CHKPG+1, CHKPG+3*, CHKPG+4
CODES	EXIT+1!
>> DIC	PRCNPRNT+8*
>> DIC("A"	PRCNPRNT+8*
>> DIC(0	PRCNPRNT+8*
DTIME	CHKPG+3
DUOUT	VIEWA+7, SUBS+2, SUBS+3, SUBS+9, SUBS+11, SUBS+12, TN+1, TN+2, TN+4, TN+6 , REQCMR+1, REQCMR+3, REQCMR+4, REQCMR+6, REQCMR+8, PPM+1, PPM+3, ENGIN+1, PPM2+1, PPM2+2 , CONCUR+1, PPM3+1, PPM3+2, CHIEF+1, CHIEF+2, EQUIP+1, EQUIP+2, EXIT!, PR2, CHKPG+4*
F	EXIT+1!
F(	FORMAT+1, FORMAT+2, TN+3, TN+5, PRFLD+2, PRFLD+3
F(413	FORMAT+1*
F(6914	FORMAT+2, TI2
FF	BEG, TI2, TN+1, TN+3, TN+5, EXIT+1!, PRFLD+1, PRFLD+2, PRFLD+4, PR2* , PR2+1*
FN	SUBS+2, SUBS+9, SUBS+11, SUBS+12, TN+1, TN+2, TN+4, TN+6, REQCMR+1, REQCMR+8 , PPM+3, PPM2+2, PPM3+2, CHIEF+2, EQUIP+2*, EXIT+1!, PRFLD~, PRFLD+1, PRFLD+3, PRFLD+4 , PR2+1, ISWP~, ISWP+1
FN2	PPM+2*, PPM+3, EXIT+1!
GLO	BEG, SUBS+6, SUBS+10, TI2, TN+3, TN+5, REQCMR+7*, EXIT+1!
I	EXIT+1!, PRFLD+3*
ID	EXIT+1!
IN	PRCNPRNT+9, SUBS+10, TURNIN+1, TN+4~, TN+5, REQCMR+2, REQCMR+4, REQCMR+7*, PPM+2, ENGIN+2 , CHIEF+1, EQUIP+2
IO	VIEWA+8, TN
IO("Q"	VIEWA+6, TI2+3
IOF	VIEWA+7, EXIT, CHKPG+2, CHKPG+5
IOSL	CHKPG+2
IOST	VIEWA+7, VIEWA+8, TI2+1, TN, EXIT, CHKPG+2
J	EXIT+1!
N	BEG, SUBS+1, SUBS+5, SUBS+12, TI2, TN+3, TN+5, REQCMR+7*, EXIT+1!, PRFLD+2 , PRFLD+3, ISWP+1
N2	EXIT+1!, ISWP+1*
NAME	SUBS+6*, SUBS+7, SUBS+8, EXIT+2!
NEWL	EXIT+1!, PRFLD+3*, PRFLD+4
NL	BEG, REQCMR+3, EXIT+1!, CHKPG+2, CHKPG+5
OFN	BEG*, EXIT+1!
OGLO	EXIT+1!
OID	EXIT+1!
OIN	EXIT+1!
OPC	EXIT+2!
PC	EXIT+2!
PGL	EXIT+2!
PNAME	SUBS+6*, EXIT+1!
>> POP	VIEWA+5, TI2+1
PRCNDATA	CHIEF+1*, EXIT+2!
PRCNDD	EXIT+2!
PRCNDEEP	BEG, SUBS+1, TI2, TN+3, TN+5, REQCMR+7*, EXIT+2!, PRFLD+4
>> PRCNTDA	PRCNPRNT+9, TURNIN+1, TN+3, REQCMR+2*
>> PRCNUSR	PRCNPRNT+10*, SUBS+3, PPM+1, ENGIN+1, PPM2+1, CONCUR+1, PPM3+1, CHIEF+1, EQUIP+1
PROG	BEG*, EXIT+2!
PV	EXIT+2!
QF	SUBS+10, PPM+2, PPM+3, ENGIN+1, PPM2+1, CONCUR+1, PPM3+1, CHIEF+1, EQUIP+1, EXIT!
>> ST	PRCNPRNT+9*, PRCNPRNT+10
>> TDA	TURNIN+1, TN+5, REQCMR+2*, REQCMR+4, REQCMR+5
>> TI	TURNIN+1, TN+4, REQCMR+2, REQCMR+4, REQCMR+5
>> TITLE	SUBS+8*
TMP	REQCMR+4*, REQCMR+7!
U	PRCNPRNT+9, SUBS+6, SUBS+7, SUBS+8, SUBS+10, TURNIN+1, REQCMR+2, REQCMR+5, PPM+2, ENGIN+2 , EQUIP+2, PRFLD+3, CHKPG+1, CHKPG+3, ISWP+1
V	EXIT+2!
VAL	EXIT+2!
>> Y	PRCNPRNT+9

Customize PDF page

Package: Equipment Turn-In Request

Routine: PRCNPRNT

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 14

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: