Routine: BRNRU3

Information

BRNRU3 ; IHS/OIT/LJF - MISC REPORT LOGIC

Package	Total	Call Graph
IHS Release Of Information	3	^BRNRU2 SHOWR^BRNRUS $$READ^BRNU
VA Fileman	2	^DIE ^DIR

Package	Total	Caller Graph
IHS Release Of Information	1	BRNRU

Name	Comments	DBIA/ICR reference
COUNT	;EP; Counts and Subcount logic
SORT	;EP
DELIMIT	;get filename for delimited output
TITLE	;EP; Custom Title for report
PRINT	;
SAVE	;EP; Ask user to save report logic
PAGE	;

Name	Field # of Occurrence
^BRNRU2	PRINT+2, SORT+5
SHOWR^BRNRUS	SORT+4
$$READ^BRNU	TITLE+3, TITLE+6, SAVE+3, SAVE+6
^DIE	TITLE+8, SAVE+7, PAGE+5
^DIR	COUNT+3, COUNT+13, PAGE+3, DELIMIT+10, DELIMIT+15

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: COUNT+1
Function Call: WRITE	Prompt: !! Line Location: COUNT+3
Function Call: WRITE	Prompt: !!,"NO PRINT FIELDS SELECTED!!",$C(7),$C(7) Line Location: SORT+2
Function Call: WRITE	Prompt: !!,"You have selected to create a '^' delimited output file. You can have this" Line Location: DELIMIT+3
Function Call: WRITE	Prompt: !,"output file created as a text file in the pub directory, " Line Location: DELIMIT+4
Function Call: WRITE	Prompt: !,"OR you can have the delimited output display on your screen so that" Line Location: DELIMIT+5
Function Call: WRITE	Prompt: !,"you can do a file capture. Keep in mind that if you choose to" Line Location: DELIMIT+6
Function Call: WRITE	Prompt: !,"do a screen capture you CANNOT Queue your report to run in the background!!",!! Line Location: DELIMIT+7
Function Call: WRITE	Prompt: !,"Enter a filename for the delimited output (no more than 40 characters)" Line Location: DELIMIT+14
Function Call: WRITE	Prompt: !!,"When the report is finished your delimited output will be found in the",!,BRNHDIR," directory. The filename will be ",BRNDELF,".txt",! Line Location: DELIMIT+20
Routine Call	DIE Line Location: TITLE+8 SAVE+7 PAGE+5
Routine Call	DIR Line Location: COUNT+3 COUNT+13 PAGE+3 DELIMIT+10 DELIMIT+15

FileNo	Call Tags
^BRNRPT - [#90264.8]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AUTTSITE(1	DELIMIT+18
^BRNRPT - [#90264.8]	COUNT+7, COUNT+16, SORT+2
^XTV(8989.3 - [#8989.3]	DELIMIT+18

Name	Field # of Occurrence
>> BRNCAND	SAVE+1
BRNCNTL	PRINT+1, SORT+5!
>> BRNCTYP	TITLE+2, SAVE+2, SAVE+7, COUNT+6*, COUNT+7, COUNT+8, COUNT+9, SORT+2, SORT+7, PAGE+2
>> BRNDELF	DELIMIT+2, DELIMIT+17, DELIMIT+20
>> BRNDELT	COUNT+19, DELIMIT+2, DELIMIT+11, DELIMIT+12*, DELIMIT+13
>> BRNHDIR	DELIMIT+18, DELIMIT+19, DELIMIT+20
BRNQUIT	TITLE+4, COUNT+5, COUNT+8, COUNT+14, COUNT+15, COUNT+16, COUNT+19, COUNT+20, SORT+1!, SORT+2 , SORT+6*, DELIMIT+1!
>> BRNRPT	TITLE+8, SAVE+7, COUNT+7, COUNT+16, SORT+2, PAGE+5
BRNSORT	COUNT+7, SORT+1!, SORT+3
BRNSORV	COUNT+7*, SORT+1!, SORT+6, PAGE+3
BRNSPAG	PAGE+1!, PAGE+5*
>> BRNTCW	TITLE+5
DA	TITLE+1~, TITLE+8, SAVE+5~, SAVE+7, COUNT+13!, PAGE+5*!, DELIMIT+9!, DELIMIT+15!
DIE	TITLE+1~, TITLE+8, SAVE+5~, SAVE+7, PAGE+5*!
DIR	COUNT+3!, COUNT+13!, PAGE+3!, DELIMIT+10!, DELIMIT+15!
DIR("A"	COUNT+3, COUNT+13, PAGE+3, DELIMIT+9, DELIMIT+15*
DIR("B"	COUNT+3, COUNT+13, PAGE+3, DELIMIT+9
DIR(0	COUNT+2, COUNT+13, PAGE+3, DELIMIT+8, DELIMIT+14*
>> DIRUT	COUNT+4, COUNT+5, COUNT+14, PAGE+3, PAGE+4, DELIMIT+11, DELIMIT+16
DR	TITLE+1~, TITLE+8, SAVE+5~, SAVE+7, PAGE+5*!
>> DUOUT	COUNT+4, PAGE+3
LENGTH	TITLE+1~, TITLE+5*, TITLE+6
NAME	SAVE+5~, SAVE+6*, SAVE+7
TITLE	TITLE+1~, TITLE+6*, TITLE+8
U	TITLE+4, TITLE+7, COUNT+7, COUNT+16, DELIMIT+18
Y	TITLE+1~, TITLE+3*, TITLE+4, TITLE+7, COUNT+6, COUNT+15, PAGE+5, DELIMIT+12, DELIMIT+17