Routine: BRNRU2

Package	Total	Call Graph
Registration	3	EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1
IHS Release Of Information	2	SHOW^BRNRUS PAUSE^BRNU
Kernel	2	$$REPEAT^XLFSTR DISP^XQORM1
VA Fileman	2	^DIE ^DIR

Package	Total	Caller Graph
IHS Release Of Information	2	BRNRU BRNRU3

Entry Points

Name	Comments	DBIA/ICR reference
HDR	;EP; -- header code
EXITR	;EP - exit report called from protocol entry
PAD(D,L)	;EP -- SUBRTN to pad length of data ; -- D=data L=length
SP(N)	;EP -- SUBRTN to pad N number of spaces
BACK	;go back to listman
EXPND	; -- expand code
REM	;EP - remove a selected item - called from protocol entry
SELECTS	;select screen items ; RETURNS BRNCSEL variable
SELECTR	;sort select ; returns BRNSORT & BRNSORV variables
HELP	; -- help code
T(Z,Y)	; resets print menu header if defined for this item
SELCTR1	; called by Q subrouitne in case user decided not to select a sort
INIT	;EP; -- build list array in BRNLIST
SELECTP	;print select - get columns
EN	;EP; -- main entry point for BRN VGEN SELECT ITEMS ; BRNCNTL is set to determine which selection screen
HDRR	;sort header
HDRS	;screen selection header
HDRP	;print selection header
Q	;EP - quit selections
ADD	;EP - add an item to the selected list - called from BRN RGEN ADD ITEM protocol
REMX	;
EXIT	; -- exit code

External References

Name	Field # of Occurrence
SHOW^BRNRUS	SELECTS+11
PAUSE^BRNU	ADD+5, ADD+6, ADD+9
^DIE	SELCTR1+9, SELCTR1+18
^DIR	ADD+4, SELECTR+5, SELECTP+8, SELECTP+33, REM+4, REMX+1, HELP+7
EN^VALM	EN+3
TERM^VALM0	BACK+1
CLEAR^VALM1	EN+4
FULL^VALM1	ADD+7, HELP+1
$$REPEAT^XLFSTR	PAD+2
DISP^XQORM1	HELP+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ADD+4
Function Call: WRITE	Prompt: !,"No items selected." Line Location: ADD+5
Function Call: WRITE	Prompt: !,"No items selected." Line Location: ADD+6
Function Call: WRITE	Prompt: !!,BRNC,") ",BRNTEXT," Selection." Line Location: SELECTS+8
Function Call: WRITE	Prompt: ! Line Location: SELECTR+3
Function Call: WRITE	Prompt: !,"exiting" Line Location: SELCTR1+2
Function Call: WRITE	Prompt: !!,"No sort criteria selected ... will sort by Patient Name." Line Location: SELCTR1+6
Function Call: WRITE	Prompt: !!,"No sub-totalling will be done.",!! Line Location: SELCTR1+11
Function Call: WRITE	Prompt: !!?15,"Total Report width (including column margins - 2 spaces): ",BRNTCW Line Location: SELECTP+22
Function Call: WRITE	Prompt: !!,"*** This item, ",$P(^BRNSORT(BRNCRIT,0),U)," was a selection item. Do you want to print" Line Location: SELECTP+29
Function Call: WRITE	Prompt: !,"ALL ",$P(^BRNSORT(BRNCRIT,0),U),"'s or just those you selected.",! Line Location: SELECTP+30
Function Call: WRITE	Prompt: !!,"No items have been selected.",! Line Location: REM+2
Function Call: WRITE	Prompt: !,"No items selected." Line Location: REM+5
Function Call: WRITE	Prompt: !,"No items selected." Line Location: REM+6
Function Call: WRITE	Prompt: !,"Item ",BRNC," ",$P(^BRNSORT(BRNCRIT,0),U)," has not been selected.",! Line Location: REM+8
Function Call: WRITE	Prompt: !,"Item ",$P(^BRNSORT(BRNCRIT,0),U)," removed from selected list of items." Line Location: REM+12
Function Call: WRITE	Prompt: !,"Enter an S to Select an Item, and R to remove a selected item, Q to Quit" Line Location: HELP+3
Function Call: WRITE	Prompt: !,"the selection process. To exit the report, enter an E." Line Location: HELP+4
Function Call: WRITE	Prompt: !,"Hit a Q to select all disclosure requests, bypassing all screens.",! Line Location: HELP+5
Function Call: WRITE	Prompt: ! Line Location: HELP+6
Routine Call	VALM Line Location: EN+3
Routine Call	DIE Line Location: SELCTR1+9 SELCTR1+18
Routine Call	DIR Line Location: ADD+4 SELECTR+5 SELECTP+8 SELECTP+33 REM+4 REMX+1 HELP+7

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BRNRPT - [#90264.8]	SELECTS+7!, SELECTS+9, SELECTS+10, SELECTP+12, SELECTP+14, SELECTP+15, SELECTP+16, SELECTP+17, SELECTP+19, SELECTP+20* , SELECTP+25, SELECTP+35*, REM+10!, REM+11!
^BRNSORT - [#90264.7]	INIT+5, SELECTS+5, SELECTS+6, SELECTS+9, SELCTR1+16, SELECTP+6, SELECTP+9, SELECTP+26, SELECTP+29, SELECTP+30 , REM+8, REM+12, T+2, T+3
^BRNSORT("C"	INIT+3, INIT+4

Label References

Name	Line Occurrences
$$PAD	SP+1
$$SP	HDRS+1, HDRP+1, HDRR+2
$$T	INIT+9, INIT+11, INIT+13
@(	HDR+2, ADD+8, SELECTS+9
BACK	ADD+5, ADD+6, ADD+10, REMX+2, HELP+8
HDR	BACK+4
INIT	BACK+3
REMX	REM+2, REM+5, REM+6
SELCTR1	Q+1
SELECTR	ADD+1

Naked Globals

Name	Field # of Occurrence
^(0	SELECTP+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BRNANS	SELECTS+2~, SELECTS+3, SELECTS+4, SELECTR+2~, SELCTR1+3, SELCTR1+5, SELCTR1+11, SELCTR1+16, SELECTP+1~, SELECTP+2* , SELECTP+3, REM+7*
BRNC	SELECTS+2~, SELECTS+4, SELECTS+8, SELECTS+10, SELECTP+1~, SELECTP+2, SELECTP+3, SELECTP+21, REM+1~, REM+7 , REM+8, REM+9
>> BRNCNT	SELECTS+9*
>> BRNCNTL	HDR+1, HDR+2, INIT+5, INIT+9, INIT+11, INIT+13, ADD+1, ADD+8, REM+10, REM+11 , Q+1
>> BRNCRIT	SELECTS+4, SELECTS+5, SELECTS+6, SELECTS+7, SELECTS+9, SELECTS+10, SELECTP+3, SELECTP+6, SELECTP+9, SELECTP+14 , SELECTP+15, SELECTP+17, SELECTP+19, SELECTP+20, SELECTP+25, SELECTP+26, SELECTP+29, SELECTP+30, REM+7*, REM+8 , REM+10, REM+11, REM+12
BRNCSEL	EN+2!, REM+2
BRNCSEL(	INIT+9, INIT+11, INIT+13, SELECTS+10, SELECTP+21, REM+8, REM+9!
>> BRNCTYP	SELECTR+4, SELCTR1+5, SELCTR1+11, SELCTR1+12*, SELECTP+4, SELECTP+11, SELECTP+22
BRNCUT	INIT+2~, INIT+6*, INIT+10, INIT+12
BRNDISP	INIT+2~, EXIT+1!
BRNDISP(	INIT+8, INIT+9, INIT+11, INIT+13*
BRNHIGH	EN+2~, INIT+1!, INIT+3, INIT+5, INIT+6, ADD+4, SELECTR+3
BRNI	SELECTS+2~, SELECTS+4, SELECTP+1~, SELECTP+3, REM+1~, REM+7*
BRNLIST	EN+2~, INIT+1!
BRNLIST(	INIT+9, INIT+11, INIT+13*
BRNLIST("IDX"	INIT+9*
>> BRNPCNT	SELECTP+3*, SELECTP+19, SELECTP+20, SELECTP+35
>> BRNQUIT	SELCTR1+2, EXITR+1
>> BRNRPT	SELECTS+7, SELECTS+9, SELECTS+10, SELCTR1+8, SELCTR1+17, SELECTP+12, SELECTP+14, SELECTP+15, SELECTP+16, SELECTP+17 , SELECTP+19, SELECTP+20, SELECTP+25, SELECTP+35, REM+10, REM+11
BRNSEL	INIT+1!
BRNSEL(	INIT+5*, INIT+8, INIT+11, INIT+13, SELECTS+4, SELCTR1+16, SELECTP+3, REM+7, T+2, T+3
>> BRNSORT	SELCTR1+7, SELCTR1+8, SELCTR1+14, SELCTR1+16*, SELCTR1+17
>> BRNSORV	SELCTR1+7, SELCTR1+14, SELCTR1+16*
>> BRNTCW	SELECTP+16, SELECTP+21, SELECTP+22
>> BRNTEXT	SELECTS+5*, SELECTS+8
>> BRNVAR	SELECTS+6*
BRNZZ	INIT+2~, INIT+9, INIT+11, INIT+13*
C	INIT+2~, INIT+8, INIT+9, INIT+11, INIT+13, INIT+14
D	PAD~, PAD+2
DA	SELECTR+2~, SELCTR1+8, SELCTR1+17, SELECTP+32!, REM+3!, REMX+1!, HELP+7!
DIE	SELECTR+2~, SELCTR1+8, SELCTR1+17
DIR	ADD+3~, ADD+4!, SELECTR+2~, SELECTR+5!, SELECTP+1~, SELECTP+8!, SELECTP+33!, REM+1~, REM+4!, REMX+1! , HELP+7!, BACK+5!
DIR("A"	ADD+4, SELECTR+4, SELECTP+6, SELECTP+32, REM+3, REMX+1, HELP+7*
DIR("B"	SELECTP+7, SELECTP+32
DIR(0	ADD+4, SELECTR+3, SELECTP+5, SELECTP+31, REM+3, REMX+1, HELP+7*
DIRUT	ADD+3~, ADD+4, ADD+6, SELECTP+8, SELECTP+9, SELECTP+34, REM+4*, REM+6
DIU	SELCTR1+9!, SELCTR1+18!
DIV	SELCTR1+9!, SELCTR1+18!
DIW	SELCTR1+9!, SELCTR1+18!
DIY	SELCTR1+9!, SELCTR1+18!
DR	SELECTR+2~, SELCTR1+8, SELCTR1+17
DUOUT	ADD+3~, ADD+4, SELCTR1+2, SELECTP+8, REM+4
I	INIT+2~, INIT+8*, INIT+9, INIT+10, BACK+6!
IOF	ADD+7, HELP+2
>> IORVOFF	HDRS+1, HDRP+1, HDRR+2
>> IORVON	HDRS+1, HDRP+1, HDRR+2
J	INIT+2~, INIT+8, INIT+10, INIT+11, INIT+12
K	INIT+2~, INIT+8, INIT+12, INIT+13
L	PAD~, PAD+2
N	SP~, SP+1
T	T+1~, T+2, T+3, T+4
U	INIT+5, SELECTS+5, SELECTS+6, SELECTS+9, SELCTR1+16, SELECTP+6, SELECTP+7, SELECTP+9, SELECTP+16, SELECTP+17 , SELECTP+19, SELECTP+26, SELECTP+29, SELECTP+30, SELECTP+35, REM+8, REM+12, T+2, T+3
>> VALMBCK	BACK+2*
VALMCC	EXIT+2!
VALMCNT	EN+2~, INIT+14*
VALMHDR	EN+2~, EXIT+2!
VALMHDR(1	HDRS+1, HDRP+1, HDRR+1*
VALMHDR(2	HDRS+2, HDRP+2, HDRR+2*
VALMHDR(3	HDRS+3, HDRP+3, HDRR+3*
VALMHDR(4	HDRS+4, HDRP+4, HDRR+4*
X	INIT+2~, INIT+3, INIT+4, ADD+3~, SELECTP+15, SELECTP+16, SELECTP+17, REM+11, HELP+6, BACK+6!
Y	INIT+2~, INIT+4, INIT+5, ADD+3~, ADD+5, SELECTS+3, SELCTR1+3, SELECTP+2, SELECTP+9, SELECTP+11* , SELECTP+17, SELECTP+19, SELECTP+21, SELECTP+34, SELECTP+35, REM+5, REM+7, T~, T+3, Q+1 , BACK+6!
Z	T~, T+2, T+3, BACK+6!

Customize PDF page

Package: IHS Release Of Information

Routine: BRNRU2

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: