Routine: BRNUSER

Package	Total	Call Graph
VA Fileman	4	C^%DTC ^DIC EN1^DIP ^DIR
IHS Release Of Information	1	ASKFAC^BRNU

Package	Total	Caller Graph
IHS Release Of Information	1	BRN RPT USER WORKLOAD

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
END	;
ED	;get ending date
ASK	;Ask if a particular User
PRINT	;PRINT CLOSED DISCLOSURES BY DATE
USER	;ROI Disclosure USER
REPORT	; ask which user field to use in reporting workload ;IHS/OIT/LJF 10/05/2007 PATCH 1

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: BD+2
Function Call: WRITE	Prompt: ! Line Location: ED+2
Function Call: WRITE	Prompt: ! Line Location: ED+6
Function Call: WRITE	Prompt: ! Line Location: REPORT+2
Function Call: WRITE	Prompt: ! Line Location: ASK+5
Routine Call	DIC Line Location: USER+2
Routine Call	DIR Line Location: BD+2 ED+2 REPORT+5 ASK+8

FileNo	Call Tags
^BRNREC - [#90264]	Classic Fileman Calls

Name	Field # of Occurrence
B	END+2!
BRNBD	BD+4*, ED+2, ED+5, PRINT+13, END+2!
BRNED	ED+4*, PRINT+13, END+2!
BRNFAC	PRINT+3~, PRINT+14
BRNROLE	REPORT+1~, REPORT+7*, PRINT+9, PRINT+10, END+1!
BRNSD	ED+5*, END+2!
BRNUSE	ASK+1, USER+5, PRINT+12, END+2!
BRNUSE1	ASK+1, USER+5, PRINT+12, END+2!
>> BY(0	PRINT+6, PRINT+10
DD0	END+2!
DHIT	PRINT+15!
DIC	USER+1, USER+2!, PRINT+6
DIC("A"	USER+1*
DIC(0	USER+1*
DIOBEG	PRINT+15!
DIOEND	PRINT+15!
DIR	BD+2!, ED+2!, REPORT+5!, ASK+8!
DIR("?"	REPORT+4, ASK+7
DIR("A"	BD+2, ED+2, REPORT+3, ASK+5
DIR("B"	ASK+5*
DIR(0	BD+2, ED+2, REPORT+2, ASK+5
>> DIRUT	BD+2, BD+3, ED+2, ED+3, REPORT+6, ASK+9, USER+3
>> DIS(0	PRINT+14*
DT	BD+2, ED+2
>> DUOUT	BD+2, ED+2
>> FLDS	PRINT+6, PRINT+9
>> FR(0	PRINT+12, PRINT+13
>> L	PRINT+6*
>> L(0	PRINT+6*
>> TO(0	PRINT+12, PRINT+13
X	ED+5, END+2!
>> X1	ED+5*
>> X2	ED+5*
>> Y	BD+4, ED+4, REPORT+7, ASK+10, USER+4, USER+5