Routine: BMCRLP1

Package	Total	Call Graph
VA Fileman	2	^DIR ^DIWP
Referred Care Information System	1	PAUSE^BMCRL01

Package

Total

Call Graph

VA Fileman

^DIR ^DIWP

Referred Care Information System

PAUSE^BMCRL01

Package	Total	Caller Graph
Referred Care Information System	3	BMCRLP BMCRLP2 BMCRR23P

Package

Total

Caller Graph

Referred Care Information System

BMCRLP BMCRLP2 BMCRR23P

Entry Points

Name	Comments	DBIA/ICR reference
COUNT	;if COUNTING entries only
PAUSE	;
SHOW	;
COVPAGE	;EP
WPS	;EP
CSRVR	;EP ;TEST FOR SCREEN ON PRINTING CASE REVIEWER
DONE	;ENTRY POINT - END OF REPORT TIME DISPLAY
WP	;EP - Entry point to print wp fields pass node in BMCNODE
BOMED	;EP ;TEST FOR SCREEN ON BUSINESS OFFICE COMMENTS AND PRINTING MED HX
SHOWP	;
BOCOM	;EP ;TEST FOR SCREEN ON PRINTING BUSINESS OFFICE COMMENTS

Name	Field # of Occurrence
PAUSE^BMCRL01	SHOW+6, SHOWP+3, SHOWP+5, SHOWP+7, SHOWP+8, SHOWP+12, SHOWP+14, SHOWP+17, SHOWP+19, SHOWP+22 , PAUSE+1, COUNT+1
^DIR	DONE+3
^DIWP	WP+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?20,"REFERRED CARE INFORMATION SYSTEM ",$S(BMCPTVS="P":"PATIENT",1:"REFERRAL")," ",$S(BMCCTYP="D":"LISTING",1:"COUNT") Line Location: COVPAGE+2
Function Call: WRITE	Prompt: !!,"REPORT REQUESTED BY: ",$P(^VA(200,DUZ,0),U) Line Location: COVPAGE+3
Function Call: WRITE	Prompt: !!,"The following report contains a ",$S(BMCPTVS="R":"RCIS Referral",1:"Patient")," report based on the",!,"following criteria:",! Line Location: COVPAGE+4
Function Call: WRITE	Prompt: !,$S(BMCPTVS="P":"PATIENT",1:"REFERRAL")," Selection Criteria" Line Location: SHOW+1
Function Call: WRITE	Prompt: @IOF Line Location: SHOW+6
Function Call: WRITE	Prompt: " ; " Condition for execution: C'=1&(BMCY'="") Line Location: SHOW+8
Function Call: WRITE	Prompt: X Line Location: SHOW+8
Function Call: WRITE	Prompt: @IOF Line Location: SHOWP+3
Function Call: WRITE	Prompt: !!,"NO DATA TO REPORT.",! Line Location: SHOWP+5
Function Call: WRITE	Prompt: @IOF Line Location: SHOWP+8
Function Call: WRITE	Prompt: !!,"PRINT Field Selection" Line Location: SHOWP+9
Function Call: WRITE	Prompt: $P(^BMCRTMP(BMCRPT,12,X,0),U,2),")" Line Location: SHOWP+13
Function Call: WRITE	Prompt: !?10," TOTAL column width: ",BMCTCW Line Location: SHOWP+15
Function Call: WRITE	Prompt: !!,$S(BMCPTVS="R":"Referrals",1:"Patients")," will be SORTED by: ",$P(^BMCTSORT(BMCSORT,0),U),! Line Location: SHOWP+18
Function Call: WRITE	Prompt: !?6,"Each ",$P(^BMCTSORT(BMCSORT,0),U)," will be on a separate page.",! Line Location: SHOWP+20
Function Call: WRITE	Prompt: !!,"NO DATA TO REPORT.",! Line Location: SHOWP+21
Function Call: WRITE	Prompt: !!,"RUN TIME (H.M.S): ",BMCH,".",BMCM,".",BMCS Line Location: DONE+2
Function Call: WRITE	Prompt: !!!,"NO DATA TO REPORT.",! Line Location: COUNT+2
Routine Call	DIR Line Location: DONE+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BMCCOM - [#90001.03]	CSRVR+4, BOCOM+3, BOMED+3
^BMCRTMP - [#90001.82]	SHOW+4, SHOW+5, SHOW+8, SHOWP+10, SHOWP+11, SHOWP+13, WP+5, CSRVR+2, CSRVR+3, CSRVR+4 , BOCOM+2, BOCOM+4, BOCOM+5, BOMED+2, BOMED+4, BOMED+5
^BMCTSORT - [#90001.81]	SHOW+7, SHOW+8, SHOWP+4, SHOWP+13, SHOWP+18, SHOWP+20
^DIC - [#1]	WP+4
^UTILITY($J	WP+2!, WP+8, WP+10!, WPS+1, WPS+3!
^VA(200 - [#200]	COVPAGE+3
^XTMP("BMCRL"	SHOWP+5, SHOWP+21, COUNT+2

Name	Line Occurrences
COUNT	SHOWP+1
PAUSE	SHOWP+10
SHOWP	SHOW+4

Name	Field # of Occurrence
^(	BOCOM+3, BOMED+3
^(2	SHOW+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
B	BOCOM+3, BOCOM+5, BOCOM+6!, BOMED+3, BOMED+5, BOMED+6!
>> BMCBT	DONE+1
>> BMCBTH	SHOWP+5, SHOWP+21, COUNT+2
>> BMCCRIT	SHOWP+11*, SHOWP+13, BOMED+2, BOMED+4, BOMED+5
>> BMCCTYP	COVPAGE+2, SHOWP+1, SHOWP+2, SHOWP+7
BMCDA	WP+4, WP+10!, WPS+3!
BMCET	DONE+1, DONE+4!
BMCFILE	WP+4, WP+10!, WPS+3!
>> BMCG	WP+4*, WP+5
BMCG1	WP+4*, WP+10!
BMCGR	WP+4*, WP+6, WP+10!
BMCH	DONE+1*, DONE+2, DONE+4!
>> BMCI	SHOW+5, SHOW+7, SHOW+8, SHOWP+11, WP+5
>> BMCJOB	SHOWP+5, SHOWP+21, COUNT+2
BMCM	DONE+2*, DONE+4!
BMCNODE	WP+4, WP+10!, WPS+3!
>> BMCPCNT	WP+8, WPS+1
>> BMCPRNM(	WP+8, WPS+1
>> BMCPTVS	COVPAGE+2, COVPAGE+4, SHOW+1, SHOWP+18, COUNT+3
BMCQ	SHOW+8!, SHOW+9!
>> BMCRCNT	COUNT+3
BMCRLX	WP+3, WP+5, WP+10!
>> BMCRPT	SHOW+4, SHOW+5, SHOW+8, SHOWP+10, SHOWP+11, SHOWP+13, WP+5, CSRVR+2, CSRVR+3, CSRVR+4 , BOCOM+2, BOCOM+4, BOCOM+5, BOMED+2, BOMED+4, BOMED+5
BMCS	DONE+2*, DONE+4!
>> BMCSORT	SHOWP+4, SHOWP+16, SHOWP+18, SHOWP+20
>> BMCSPAG	SHOWP+20
>> BMCTCW	SHOWP+15
BMCTS	DONE+1, DONE+2, DONE+4!
>> BMCTST	CSRVR+1, CSRVR+2, CSRVR+3, CSRVR+4, BOCOM+1, BOCOM+2, BOCOM+4, BOCOM+5, BOMED+1, BOMED+2 , BOMED+4, BOMED+5*
>> BMCX	CSRVR+4, BOCOM+3, BOMED+3
>> BMCY	SHOW+8*
>> C	SHOW+8*
DIR	DONE+3!
DIR("A"	DONE+3*
DIR(0	DONE+3*
>> DIRUT	DONE+3*
DIWF	WP+9!, WPS+2!
DIWL	WP+5*, WP+8, WP+9!, WPS+1, WPS+2!
DIWR	WP+5*, WP+9!, WPS+2!
>> DUOUT	DONE+3
DUZ	COVPAGE+3
IO	DONE+3
IO(0	DONE+3
IOF	COVPAGE+1, SHOW+6, SHOWP+3, SHOWP+8, SHOWP+12, SHOWP+14, SHOWP+17, SHOWP+19, COUNT+1
IOSL	SHOW+6, SHOWP+3, SHOWP+8, SHOWP+12, SHOWP+14, SHOWP+17, SHOWP+19, COUNT+1
IOST	COVPAGE+1, DONE+3
U	COVPAGE+3, SHOW+7, SHOWP+4, SHOWP+11, SHOWP+13, SHOWP+18, SHOWP+20, WP+5, CSRVR+4
>> X	SHOW+8, SHOWP+13, WP+6*
Y	WP+6, BOCOM+3, BOCOM+6!, BOMED+3*, BOMED+6!
Z	WP+8, WP+9!, WPS+1, WPS+2!, CSRVR+3, CSRVR+4, CSRVR+5!, BOCOM+4, BOCOM+5, BOCOM+6! , BOMED+4*, BOMED+5, BOMED+6!

Customize PDF page

Package: Referred Care Information System

Routine: BMCRLP1

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: