Routine: PRCNPRNT

Information

PRCNPRNT ;SSI/SEB-Display an NX transaction ;[ 01/30/97 1:30 PM ]

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

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

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