Routine: SCMCRU

Information

SCMCRU ;ALB/REW - PCMM Report Utilities ; 9 Feb 1996

Source file <SCMCRU.m>

Package	Total	Call Graph
VA Fileman	2	FIELD^DID ^DIR
Kernel	1	$$S^%ZTLOAD

Package	Total	Caller Graph
Scheduling	3	SCMCCV SCMCTPM SCMRTPM

Name	Comments	DBIA/ICR reference
QTOUT
SUBSEQ()	;enter for further headings of report ; RETURNS STOP; 0=GO,1=STOP
ENDREP
FOOTER	; ; print SCFOOT
DDNAME(FILE,FIELD)	;return the fieldname
STOPCHK
HEADER	; ; prints SCHEAD
STOPPED	;
OUT(LINE,FORMAT)	;
FIRST()	;First heading of report ; RETURNS STOP; 0=GO,1=STOP
WAIT

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: FIRST+5
Function Call: WRITE	Prompt: @IOF Line Location: SUBSEQ+6
Function Call: WRITE	Prompt: !?5,"------------- Report stopped at user's request ------------" Line Location: STOPPED+1
Function Call: WRITE	Prompt: ! Line Location: FOOTER+4
Function Call: WRITE	Prompt: !,$G(SCFOOT),?66,"PAGE: ",SCPAGE Line Location: FOOTER+5
Function Call: WRITE	Prompt: !,$G(SCHEAD) Line Location: HEADER+2
Function Call: WRITE	Prompt: $G(LINE) Line Location: OUT+2
Routine Call	DIR Line Location: SUBSEQ+4 WAIT

Name	Field # of Occurrence
DIR	SUBSEQ+2~
DIR(0	SUBSEQ+4, WAIT
>> DIRUT	SUBSEQ+4
FIELD	DDNAME~, DDNAME+2
FILE	DDNAME~, DDNAME+2
FORMAT	OUT~, OUT+1
>> I	FOOTER+4*
IOF	FIRST+5, SUBSEQ+6, ENDREP
>> IONOFF	ENDREP
IOSL	FOOTER+4, OUT+3
IOST	FIRST+5, SUBSEQ+4, ENDREP, WAIT
LINE	OUT~, OUT+2
>> SCFOOT	FOOTER+5
>> SCHEAD	HEADER+2
>> SCPAGE	FOOTER+3*, FOOTER+5
>> SCSTOP	FOOTER+6, FOOTER+7, WAIT
SCX	DDNAME+1~
SCX("LABEL"	DDNAME+3
STOP	FIRST+2~, FIRST+4, FIRST+5, FIRST+6, SUBSEQ+2~, SUBSEQ+4, SUBSEQ+5, SUBSEQ+6, SUBSEQ+7, STOPCHK
X	SUBSEQ+2~
Y	SUBSEQ+2~, WAIT
>> ZTQUEUED	STOPCHK
ZTREQ	STOPPED+2!
>> ZTSTOP	STOPCHK*