Routine: BMCRL4

Information

BMCRL4 ; IHS/PHXAO/TMJ - NO DESCRIPTION PROVIDED 26-JUN-1996 ;

Source Information

Source file <BMCRL4.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Registration	3	EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1
VA Fileman	2	^DIE ^DIR
Kernel	1	DISP^XQORM1
Referred Care Information System	1	SHOW^BMCRLS

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
Referred Care Information System	4	BMCFREQ BMCRL BMCRL3 BMCTEN

Entry Points

Name	Comments	DBIA/ICR reference
REMX	;
EN	; -- main entry point for BMC GENRET SELECT ITEMS
HDRR	;sort header
HDR	; -- header code
HDRP	;print selection header
EXITR	;EP - exit report called from protocol entry
REM	;EP - remove a selected item - called from protocol entry
ADD	;EP - add an item to the selected list - called from a protocol
ADDX	;
Q	;EP - quit selections
INIT	; -- init variables and list array
HELP	; -- help code
SELECTR1	;
BACK	;go back to listman
EXIT	; -- exit code
SELECTP	;print select - get columns
SELECTS	;select screen items
SELECTR	;sort select
EXPND	; -- expand code
HDRS	;

External References

Name	Field # of Occurrence
SHOW^BMCRLS	SELECTS+8
^DIE	SELECTR1+3, SELECTR1+9
^DIR	ADD+2, ADDX+1, SELECTR+1, SELECTP+2, REM+2, REMX+1, HELP+5
EN^VALM	EN+2, EN+8
TERM^VALM0	BACK+1
CLEAR^VALM1	EN+3
FULL^VALM1	ADD+5, HELP+1
DISP^XQORM1	HELP+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ADD+2
Function Call: WRITE	Prompt: !,"No items selected." Line Location: ADD+3
Function Call: WRITE	Prompt: !,"No items selected." Line Location: ADD+4
Function Call: WRITE	Prompt: ! Line Location: SELECTR+1
Function Call: WRITE	Prompt: !,"Exiting" Line Location: SELECTR1+1
Function Call: WRITE	Prompt: !!,"No sort criteria selected ... will sort by "_$S(BMCPTVS="P":"Patient Name",1:"Referral Date")_"." Line Location: SELECTR1+2
Function Call: WRITE	Prompt: !!,"No sub-totalling will be done.",!! Line Location: SELECTR1+4
Function Call: WRITE	Prompt: !!,"No items have been selected.",! Line Location: REM+1
Function Call: WRITE	Prompt: !,"No items selected." Line Location: REM+3
Function Call: WRITE	Prompt: !,"No items selected." Line Location: REM+4
Function Call: WRITE	Prompt: !,"Item ",BMCC," ",$P(^BMCTSORT(BMCCRIT,0),U)," has not been selected.",! Line Location: REM+6
Function Call: READ	Timeout: "referrals",1:"patients"),", Line Location: HELP+3
Function Call: WRITE	Prompt: !,"Enter an S to Select an Item, and R to remove a selected item, Q to Quit",!,"the selection process. To exit the report, enter an E.",!,"Hit a Q to select all ",$S(BMCPTVS="R":"referrals",1:"patients"),", bypassing all screens.",! Line Location: HELP+3
Function Call: WRITE	Prompt: ! Line Location: HELP+4
Routine Call	VALM Line Location: EN+2 EN+8
Routine Call	DIE Line Location: SELECTR1+3 SELECTR1+9
Routine Call	DIR Line Location: ADD+2 ADDX+1 SELECTR+1 SELECTP+2 REM+2 REMX+1 HELP+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^BMCRTMP - [#90001.82]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BMCRTMP - [#90001.82]	SELECTS+3!, SELECTS+5, SELECTS+6, SELECTP+4, SELECTP+5, SELECTP+7, REM+8!, REM+9!
^BMCTSORT - [#90001.81]	INIT+2, INIT+5, INIT+6, INIT+7, SELECTS+2, SELECTS+3, SELECTS+5, SELECTR1+9, SELECTP+2, SELECTP+3 , REM+6, REM+10
^BMCTSORT("C"	INIT+2

Label References

Name	Line Occurrences
@(	HDR+1, ADD+6, SELECTS+5
ADDX	ADD+3, ADD+4
BACK	ADDX+2, REMX+2, HELP+6
HDR	BACK+4
INIT	BACK+3
REMX	REM+1, REM+3, REM+4
SELECTR	ADD+1
SELECTR1	Q+1

Naked Globals

Name	Field # of Occurrence
^(0	INIT+2, INIT+5, INIT+6, INIT+7, SELECTP+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BMCANS	SELECTS+1, SELECTP+1, REM+5*
>> BMCC	SELECTS+1, SELECTS+4, SELECTS+6, SELECTP+1, SELECTP+7, REM+5*, REM+6, REM+7
>> BMCCNT	SELECTS+5*
BMCCNTL	EN+4!, HDR+1, INIT+2, ADD+1, ADD+6, REM+8, REM+9, Q+1
>> BMCCRIT	SELECTS+1, SELECTS+2, SELECTS+3, SELECTS+5, SELECTS+6, SELECTP+1, SELECTP+2, SELECTP+3, SELECTP+5, SELECTP+7 , REM+5*, REM+6, REM+8, REM+9, REM+10
BMCCSEL	EN+1!, EN+4!, REM+1
BMCCSEL(	INIT+5, INIT+6, INIT+7, SELECTS+6, SELECTP+7, REM+6, REM+7!
>> BMCCTYP	SELECTR+1, SELECTR1+2, SELECTR1+4, SELECTR1+5*
BMCCUT	EN+4!, INIT+3*, INIT+6, INIT+7
BMCDISP	EN+4!, INIT+1!, INIT+8!, EXIT+1!
BMCDISP(	INIT+4, INIT+5, INIT+6, INIT+7*
BMCHIGH	EN+4!, INIT+1!, INIT+2*, INIT+3, ADD+2, SELECTR+1
>> BMCI	SELECTS+1, SELECTP+1, REM+5*
BMCLIST	EN+4!, INIT+1!
BMCLIST(	INIT+5, INIT+6, INIT+7*
BMCLIST("IDX"	INIT+5*
>> BMCPCNT	SELECTP+1*, SELECTP+7
>> BMCPTVS	HDRS+3, HDRS+4, HDRS+6, HDRR+3, HDRR+4, INIT+2, ADD+2, SELECTR+1, SELECTR1+2, SELECTR1+7 , SELECTR1+8, HELP+3
>> BMCQUIT	SELECTR1+1, EXITR+1
>> BMCRPT	SELECTS+3, SELECTS+5, SELECTS+6, SELECTR1+3, SELECTR1+9, SELECTP+4, SELECTP+5, SELECTP+7, REM+8, REM+9
BMCSEL	EN+4!, INIT+1!
BMCSEL(	INIT+2*, INIT+4, INIT+5, INIT+6, INIT+7, SELECTS+1, SELECTR1+9, SELECTP+1, REM+5
>> BMCSORT	SELECTR1+2, SELECTR1+3, SELECTR1+7, SELECTR1+8, SELECTR1+9
>> BMCSORV	SELECTR1+2, SELECTR1+7, SELECTR1+8, SELECTR1+9
>> BMCTCW	SELECTP+5, SELECTP+7, SELECTP+8
>> BMCTEXT	SELECTS+2*, SELECTS+4
>> BMCVAR	SELECTS+3*
C	EN+4!, INIT+4, INIT+5, INIT+6, INIT+7, INIT+9
DA	ADDX+1!, SELECTR1+3!, SELECTR1+9!, REM+2!, REMX+1!, HELP+5!
DIE	SELECTR1+3!, SELECTR1+9!
DIR	ADD+2!, ADDX+1!, SELECTR+1!, SELECTP+2!, REM+2!, REMX+1!, HELP+5!, BACK+5!
DIR("A"	ADD+2, ADDX+1, SELECTR+1, SELECTP+2, REM+2, REMX+1, HELP+5*
DIR("B"	SELECTP+2*
DIR(0	ADD+2, ADDX+1, SELECTR+1, SELECTP+2, REM+2, REMX+1, HELP+5*
>> DIRUT	ADD+2, ADD+4, SELECTP+2, SELECTP+3, REM+2*, REM+4
DIU	SELECTR1+3!, SELECTR1+9!
DIV	SELECTR1+3!, SELECTR1+9!
DIW	SELECTR1+3!, SELECTR1+9!
DIY	SELECTR1+3!, SELECTR1+9!
DR	SELECTR1+3!, SELECTR1+9!
>> DUOUT	ADD+2, SELECTR1+1, SELECTP+2, REM+2
I	EN+4!, INIT+4*, INIT+5, INIT+6, BACK+6!
IOF	ADD+5, HELP+2
J	EN+4!, INIT+4, INIT+6, INIT+7
K	EN+4!, INIT+4, INIT+7
U	INIT+2, INIT+5, INIT+6, INIT+7, SELECTS+2, SELECTS+3, SELECTS+5, SELECTR1+9, SELECTP+2, SELECTP+3 , SELECTP+5, SELECTP+7, REM+6, REM+10
>> VALMBCK	BACK+2*
VALMCC	EXIT+2!
VALMCNT	EN+5!, INIT+9*
VALMHDR	EN+5!, EXIT+2!
VALMHDR(1	HDRS+3, HDRP+1, HDRR+1*
VALMHDR(2	HDRS+4, HDRP+2, HDRR+2*
VALMHDR(3	HDRS+5, HDRP+3, HDRR+3*
VALMHDR(4	HDRS+6, HDRP+4, HDRR+4*
X	EN+4!, INIT+2, SELECTP+5, REM+9, HELP+4, BACK+6!
Y	INIT+2, ADD+3, SELECTS+1, SELECTR1+2, SELECTR1+4, SELECTR1+9, SELECTP+1, SELECTP+3, SELECTP+5, SELECTP+7 , REM+3, REM+5, Q+1*, BACK+6!
Z	BACK+6!

Customize PDF page

Package: Referred Care Information System

Routine: BMCRL4

Call Graph Total: 7

Caller Graph Total: 4