Routine: BRNACT

Package	Total	Call Graph
VA Fileman	4	C^%DTC ^DIC EN1^DIP ^DIR
IHS VA Utilities	1	PAUSE^XB

Package	Total	Caller Graph
IHS Release Of Information	1	BRN ACCOUNTING OF DISCLOSURES

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
END	;
SERVICE	;PICK PATIENT NAME ENTRY
ED	;get ending date
PRINT	;PRINT PATIENT RECORD OF ALL DISCLOSURES BY DATE
CKROI	; IHS/OIT/GAB CHECK FOR DISCLOSURES IN THE DATE RANGE TO PREVENT ERROR
ASK	;Ask For Date Range

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: SERVICE+2
Function Call: WRITE	Prompt: !,?20,"--NO EXISTING DISCLOSURES--",! Line Location: SERVICE+6
Function Call: WRITE	Prompt: !! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: !!," *No disclosures to print in this date range* ",! Line Location: PRINT+6
Routine Call	DIC Line Location: SERVICE+3
Routine Call	DIR Line Location: BD+1 ED+1

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

Name	Line Occurrences (* Changed, ! Killed)
^BRNREC("AA"	SERVICE+6, CKROI+4

Name	Field # of Occurrence
B	END+1!
BRNBD	SERVICE+1~, BD+3*, ED+1, ED+5, PRINT+3, CKROI+1, CKROI+7, END+1!
BRNDAT	SERVICE+1~, CKROI+2, CKROI+5, CKROI+6, CKROI+7
BRNDT	SERVICE+1~, CKROI+1, CKROI+4, CKROI+5
BRNED	SERVICE+1~, ED+3, ED+4, PRINT+3, CKROI+6, CKROI+7, END+1!
BRNFIND	SERVICE+1~, PRINT+6, CKROI+3, CKROI+4, CKROI+7
BRNPTN	SERVICE+1~, SERVICE+4*, SERVICE+5, SERVICE+6, PRINT+3, CKROI+4, END+1!
BRNQUIT	SERVICE+1~
BRNSD	ED+5*, END+1!
BY	PRINT+1~, PRINT+2*
DD0	END+1!
DHIT	PRINT+4!
DIC	SERVICE+3, PRINT+1~, PRINT+2
DIC("A"	SERVICE+3*
DIC(0	SERVICE+3*
DIOBEG	PRINT+4!
DIOEND	PRINT+4!
DIR	BD+1!, ED+1!
DIR("A"	BD+1, ED+1
DIR(0	BD+1, ED+1
>> DIRUT	BD+1, BD+2, ED+1, ED+2
DT	BD+1, ED+1
>> DUOUT	BD+1, ED+1
FLDS	PRINT+1~, PRINT+2*
FR	PRINT+1~, PRINT+3*
L	PRINT+1~, PRINT+2*
TO	PRINT+1~, PRINT+3*
X	SERVICE+1~, ED+5, END+1!
>> X1	ED+5*
>> X2	ED+5*
>> Y	SERVICE+4, BD+3, ED+3