Routine: PRCPUREP

Select the objects that you wish to see in the downloaded PDF

Information

PRCPUREP ;WISC/RFJ-printing report utilities ;14 Feb 92

Source file <PRCPUREP.m>

Package	Total	Call Graph
IFCAP	1	R^PRCPUREP

Package	Total	Caller Graph
IFCAP	115	PRCB1A3 PRCPAGPR PRCPAGRE PRCPAGRG PRCPAGRI PRCPAGRO PRCPAGRV PRCPAODI PRCPAWA0 PRCPAWAP PRCPAWR0 PRCPAWR1 PRCPAWU0 PRCPBALM PRCPCASC PRCPCASK PRCPCASR PRCPCDIC PRCPCDIK PRCPCDIR PRCPCED0 PRCPCRDC PRCPCRDK PRCPCRLO PRCPCROC PRCPCRPL PRCPCSOU PRCPDAP2 PRCPDAP3 PRCPE441 PRCPEIL1 PRCPEILM PRCPEIPS PRCPEIPU PRCPEIQT PRCPEITG PRCPEIUI PRCPENE1 PRCPENE2 PRCPENLM PRCPOPD PRCPOPL PRCPOPT1 PRCPPOL0 PRCPPOL1 PRCPRADJ PRCPRADP PRCPRAIP PRCPRAIR PRCPRAL1 PRCPRALS PRCPRAVL PRCPRAVP PRCPRCAT PRCPRCFP PRCPRCFR PRCPRCOS PRCPRCTA PRCPRCTP PRCPRDC0 PRCPRDI0 PRCPRDI2 PRCPRDIS PRCPRDO1 PRCPRDOR PRCPRIB1 PRCPRIIP PRCPRIIR PRCPRINV PRCPRISP PRCPRISS PRCPRISW PRCPRIT1 PRCPRLDO PRCPRNON PRCPRODA PRCPRODM PRCPRODS PRCPRPC2 PRCPRPC3 PRCPRPDH PRCPRPH1 PRCPRPHW PRCPRPIQ PRCPRPIR PRCPRPIT PRCPRPK2 PRCPRQDP PRCPRQDR PRCPRSO1 PRCPRSS0 PRCPRSS1 PRCPRSTK PRCPRSUB PRCPRTR1 PRCPRUS1 PRCPRUS2 PRCPRUSP PRCPRVS0 PRCPSMB0 PRCPSMSD PRCPSMSI PRCPSMSP PRCPSMST PRCPSSQA PRCPSSQT PRCPULOC PRCPUREP PRCPUTRS PRCPWDOR PRCPWDOU PRCPWPL5 PRCPWPLM PRCPWPP3 PRCPXTRM

Name	Comments	DBIA/ICR reference
END	; end of report print information
SCRPAUSE()	; returns screen=1 for pause, 0 for no pause when ; printing reports.
USER(USERDUZ)	; return user name
INITIALS(USERDUZ)	; returns initials
KEY(KEY,USERDUZ)	; returns 1 for owner of key
R	; press return to continue
P	; pause

Name	Field # of Occurrence
R^PRCPUREP	END+7

Name	Line Occurrences
Function Call: WRITE	Prompt: !,PRCPDIOE(I) Line Location: END+4
Function Call: WRITE	Prompt: ! Condition for execution: $X>2 Line Location: END+5
Function Call: WRITE	Prompt: "[END OF REPORT]",$E(%,1,M),"[USER:",$E($$USER(DUZ),1,10)_"]" Line Location: END+5
Function Call: WRITE	Prompt: @IOF Line Location: END+8
Function Call: READ	Variable: X Timeout: DTIME Line Location: R+1
Function Call: WRITE	Prompt: !,"<Press RETURN to continue>" Line Location: R+1
Function Call: READ	Variable: X Timeout: DTIME Line Location: P+1

Name	Line Occurrences (* Changed, ! Killed)
^VA(200 - [#200]	USER+1, INITIALS+1
^XUSEC(	KEY+2

Name	Line Occurrences
$$SCRPAUSE	END+6
$$USER	END+5

Name	Field # of Occurrence
%	END+3~*, END+5
>> DIOEND	END+2
DTIME	R+1, P+1
DUZ	END+5
I	END+3~, END+4*
IO	SCRPAUSE+2, P+1
IO(0	SCRPAUSE+2, R+1, P+1
IOF	END+8
IOM	END+3
IOST	SCRPAUSE+2
KEY	KEY~, KEY+1*, KEY+2
M	END+3~*, END+5
>> PRCPDIOE	END+4
>> PRCPDIOE(	END+4
>> PRCPFLAG	END+1, P+1*
SCREEN	END+6~*, END+7
USERDUZ	USER~, USER+1, INITIALS~, INITIALS+1, KEY~, KEY+2
X	R+1~, P+1~
Y	END+2, SCRPAUSE+2~*, SCRPAUSE+3
>> ZTQUEUED	SCRPAUSE+2