Routine: BMCRL3

Package	Total	Call Graph
Referred Care Information System	4	RTYP^BMCRL D^BMCRL0 ^BMCRL4 SHOWR^BMCRLS
VA Fileman	3	DD^%DT ^DIE ^DIR
IHS VA Utilities	1	^XBCLS

Package	Total	Caller Graph
Referred Care Information System	1	BMCRL

Entry Points

Name	Comments	DBIA/ICR reference
COUNT	;EP
SORT	;
DTTST	;CANNED REPORTS
TITLE	;EP
NUMERIC	;
PRINT	;
SAVE	;EP
PAGE	;

External References

Name	Field # of Occurrence
DD^%DT	DTTST+9, DTTST+10
RTYP^BMCRL	DTTST+23
D^BMCRL0	DTTST+15
^BMCRL4	PRINT+1, SORT+5
SHOWR^BMCRLS	SORT+4
^DIE	SAVE+14, PAGE+5
^DIR	TITLE+7, TITLE+11, SAVE+4, SAVE+7, COUNT+1, PAGE+3, NUMERIC+12, DTTST+13, DTTST+22
^XBCLS	NUMERIC+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: COUNT+1
Function Call: WRITE	Prompt: !! Line Location: COUNT+1
Function Call: WRITE	Prompt: !!,"NO PRINT FIELDS SELECTED!!",$C(7),$C(7) Line Location: SORT+2
Function Call: WRITE	Prompt: !!,?20,"*NUMERIC ITEM BASIC STATISTICS",!! Line Location: NUMERIC+2
Function Call: WRITE	Prompt: !!,"This print option will provide basic statistics (sum, count, mean, max, min)",!,"on any one of the 'Numeric Items' listed below.",!!,"Upon selection of a 'Numeric Item' a list of 'Sort' Choices will also be",!,"displayed. " Line Location: NUMERIC+3
Function Call: WRITE	Prompt: "This 'Sort' Choice is provided for the purpose of Totaling and/or",!,"Sub-totaling all records selected.",!!,"For example, choosing 'Actual Cost' as the Numeric Item and, then, choosing" Line Location: NUMERIC+4
Function Call: WRITE	Prompt: !,"Primary Vendor as the 'Sort' Choice would produce a report of Actual Cost",!,"statistics (Sub-totaled by Vendor).",!! Line Location: NUMERIC+5
Function Call: WRITE	Prompt: "If you choose NOT to select a 'Sort' Item, the report would produce only",!,"one Grand Total (sum, count, mean, max, and min, etc.) for all",!,"'Actual Cost' statistics.",!! Line Location: NUMERIC+6
Function Call: WRITE	Prompt: ?((80-$L(BMCLHDR))/2),BMCLHDR,! Line Location: NUMERIC+8
Function Call: WRITE	Prompt: ?40,J,") ",$P(^BMCTSORT(BMCSEL(J),0),U) Line Location: NUMERIC+11
Function Call: WRITE	Prompt: ! Line Location: NUMERIC+12
Function Call: WRITE	Prompt: !,"The Report contains ",$S(BMCTYPR="P":"Only PRIMARY",BMCTYPR="S":"Only SECONDARY",1:"Primary and Secondary")," Referrals" Line Location: DTTST+20
Routine Call	DIE Line Location: SAVE+14 PAGE+5
Routine Call	DIR Line Location: TITLE+7 TITLE+11 SAVE+4 SAVE+7 COUNT+1 PAGE+3 NUMERIC+12 DTTST+13 DTTST+22

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]	TITLE+3, TITLE+4, TITLE+14, COUNT+5, COUNT+6, SORT+2, DTTST+3, DTTST+9, DTTST+10, DTTST+16 , DTTST+17!, DTTST+18, DTTST+19, DTTST+24
^BMCTSORT - [#90001.81]	NUMERIC+9, NUMERIC+11, DTTST+4, DTTST+8
^BMCTSORT("C"	NUMERIC+9

Label References

Name	Line Occurrences
COUNT	NUMERIC+13
NUMERIC	COUNT+8
PRINT	COUNT+7
SAVE	SAVE+8
SORT	COUNT+7, COUNT+9, PAGE+4, NUMERIC+15
TITLE	TITLE+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BMCBD	DTTST+9*, DTTST+11, DTTST+16, DTTST+18
>> BMCCAND	TITLE+3, TITLE+14, SAVE+1
BMCCNTL	PRINT+1!, SORT+5!
>> BMCCTYP	TITLE+1, SAVE+2, SAVE+10, COUNT+4*, COUNT+5, COUNT+6, COUNT+7, COUNT+8, SORT+2, SORT+7 , PAGE+2
>> BMCCUT	NUMERIC+10*, NUMERIC+11
BMCDISP	NUMERIC+7!
BMCDISP(	NUMERIC+11*
>> BMCED	DTTST+10*, DTTST+11, DTTST+16
>> BMCEP1	SAVE+4, SAVE+11
BMCHIGH	NUMERIC+7!, NUMERIC+9*, NUMERIC+10, NUMERIC+12
>> BMCLENG	TITLE+10*, TITLE+11
>> BMCLHDR	NUMERIC+8*
>> BMCNAME	SAVE+9*, SAVE+10
>> BMCNSRT	NUMERIC+14*
>> BMCPACK	SAVE+11
>> BMCPTVS	SAVE+10, COUNT+5, COUNT+6
>> BMCQT	DTTST+2*
BMCQUIT	TITLE+8, COUNT+3, COUNT+7, SORT+1!, SORT+2, SORT+6
>> BMCR("CR"	DTTST+4*, DTTST+5, DTTST+7
>> BMCRPT	TITLE+3, TITLE+4, TITLE+14, SAVE+10, COUNT+5, COUNT+6, SORT+2, PAGE+5, DTTST+3, DTTST+9 , DTTST+10, DTTST+16, DTTST+17, DTTST+18, DTTST+19, DTTST+24
>> BMCSAVE	SAVE+3*
BMCSEL	NUMERIC+7!
BMCSEL(	NUMERIC+9*, NUMERIC+11, NUMERIC+14
BMCSORT	COUNT+5, COUNT+6, SORT+1!, SORT+3*
BMCSORV	COUNT+5, COUNT+6, SORT+1!, SORT+6, PAGE+3
BMCSPAG	PAGE+1!, PAGE+5*
>> BMCTCW	TITLE+10
>> BMCTEXT	DTTST+8*, DTTST+11
>> BMCTITL	TITLE+4, TITLE+5, TITLE+13, TITLE+14, SAVE+14
>> BMCTYPR	SAVE+13, DTTST+19*, DTTST+20, DTTST+24
DA	SAVE+10, SAVE+14!, PAGE+5!
DIE	SAVE+10, SAVE+14!, PAGE+5!
DIR	TITLE+2!, TITLE+7!, TITLE+11!, SAVE+4!, SAVE+7!, COUNT+1!, PAGE+3!, NUMERIC+12!
DIR("?"	TITLE+11*
DIR("A"	TITLE+2, TITLE+6, TITLE+11, SAVE+4, SAVE+7, COUNT+1, PAGE+3, NUMERIC+12, DTTST+12, DTTST+21
DIR("B"	TITLE+2, SAVE+4, COUNT+1, PAGE+3, DTTST+21*
DIR(0	TITLE+2, TITLE+11, SAVE+4, SAVE+7, COUNT+1, PAGE+3, NUMERIC+12, DTTST+12, DTTST+21*
>> DIRUT	TITLE+7, TITLE+8, TITLE+12, SAVE+4, SAVE+5, SAVE+7, SAVE+8, COUNT+2, COUNT+3, PAGE+3* , PAGE+4, NUMERIC+13, DTTST+7, DTTST+15, DTTST+23
DR	SAVE+10, SAVE+11, SAVE+13, SAVE+14!, PAGE+5*!
>> DUOUT	TITLE+7, SAVE+4, SAVE+7, COUNT+2, PAGE+3
>> I	NUMERIC+11, DTTST+3, DTTST+4, DTTST+7*, DTTST+8, DTTST+9, DTTST+10, DTTST+16, DTTST+17, DTTST+18
>> J	NUMERIC+11*
>> K	NUMERIC+11*
U	TITLE+4, TITLE+14, COUNT+5, COUNT+6, NUMERIC+9, NUMERIC+11, DTTST+4, DTTST+8, DTTST+9, DTTST+10 , DTTST+16, DTTST+19, DTTST+24
X	TITLE+2!, TITLE+11!, SAVE+4!, SAVE+7!, NUMERIC+9*
Y	TITLE+2!, TITLE+9, TITLE+11!, TITLE+13, SAVE+4!, SAVE+6, SAVE+7!, SAVE+9, COUNT+4, PAGE+5 , NUMERIC+9, NUMERIC+14, DTTST+9, DTTST+10*, DTTST+14, DTTST+22

Customize PDF page

Package: Referred Care Information System

Routine: BMCRL3

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: