Routine: BMCRR22

Name	Comments	DBIA/ICR reference
SORT	;sort by?
SECREF	;PRINT SEC REF AS A SEPARATE ENTRY
ZIS	;call to XBDBQUE
BROWSE	;
DETAIL	;Print Detail
SUMMARY	;Print Summary Report
START	;
XIT	;EP - CALLED FROM BMCRR22
OUTPUT	;Print Output Summary or Detail
BROWSE1	;Summary Browse
PAGE	;separate page for each

Name	Field # of Occurrence
KILL^AUPNPAT	XIT+1
^DIR	SORT+2, PAGE+2, OUTPUT+2, SECREF+2, ZIS+2
^XBDBQUE	SUMMARY+2, DETAIL+2, BROWSE+3, BROWSE1+2
$$FMTE^XLFDT	START+4

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"This report will list patients currently referred for outpatient services",!,"at outside referral facilities. The definition of 'currently referred for is",! Line Location: START+2
Function Call: WRITE	Prompt: !?5,"- the referral is an Outpatient referral" Line Location: START+3
Function Call: WRITE	Prompt: !?5,"- the best available beginning (actual or estimated) date is today or",!?7,"earlier and ",!?5,"- the actual end date of service is blank or on or after",!?7," today's date of ",$$FMTE^XLFDT(DT,"5D") Line Location: START+4
Function Call: WRITE	Prompt: !?5,"- the status of the referral is active",!,?5,"- Inhouse Referrals are excluded",! Line Location: START+5
Function Call: WRITE	Prompt: ! Line Location: ZIS+2
Routine Call	DIR Line Location: SORT+2 PAGE+2 OUTPUT+2 SECREF+2 ZIS+2

Name	Line Occurrences
BROWSE	ZIS+6
BROWSE1	BROWSE+1
DETAIL	ZIS+7
SORT	PAGE+3, ZIS+5
XIT	SORT+3, OUTPUT+3, SECREF+3, ZIS+6, SUMMARY+3, DETAIL+3, BROWSE+1

Name	Field # of Occurrence
BMC80D	XIT+2!
BMC80E	XIT+2!
BMCBT	XIT+2!
BMCBTH	XIT+2!
BMCCOL	XIT+2!
BMCET	XIT+2!
BMCFAC	XIT+2!
BMCFILE	XIT+2!
BMCG	XIT+2!
BMCHRN	XIT+2!
BMCJOB	XIT+2!
BMCNODE	XIT+2!
BMCOPT	ZIS+1!, ZIS+4*, ZIS+6, XIT+2!
>> BMCOUTP	OUTPUT+1, OUTPUT+4, ZIS+7, BROWSE+1
BMCPG	XIT+2!
BMCQUIT	ZIS+3*, ZIS+5, XIT+2!
BMCRCNT	XIT+2!
BMCREF	XIT+2!
BMCRREC	XIT+2!
BMCSORT	XIT+2!
BMCSPAGE	PAGE+1, PAGE+4, XIT+2!
BMCSTYPE	SORT+1, SORT+4, PAGE+2, XIT+2!
BMCTYPR	SECREF+1, SECREF+4, XIT+3!
BMCX	XIT+2!
DA	SORT+2!, PAGE+2!, OUTPUT+2!, SECREF+2!, ZIS+2!, XIT+3!
DFN	XIT+3!
DIR	SORT+2!, PAGE+2!, OUTPUT+2!, SECREF+2!, ZIS+2!, XIT+3!
DIR("A"	SORT+2, PAGE+2, OUTPUT+2, SECREF+2, ZIS+2*
DIR("B"	SORT+2, PAGE+2, OUTPUT+2, SECREF+2, ZIS+2*
DIR(0	SORT+2, PAGE+2, OUTPUT+2, SECREF+2, ZIS+2*
DIRUT	SORT+3, PAGE+3, OUTPUT+3, SECREF+3, ZIS+3, XIT+3!
DIWF	XIT+3!
DIWL	XIT+3!
DIWR	XIT+3!
DT	START+4
DTOUT	XIT+3!
IOF	START+1
X	XIT+3!
>> XBIOP	BROWSE+3, BROWSE1+2
>> XBNS	SUMMARY+1, DETAIL+1
>> XBRC	SUMMARY+1, DETAIL+1, BROWSE+3, BROWSE1+2
>> XBRP	SUMMARY+1, DETAIL+1, BROWSE+2, BROWSE1+1
>> XBRX	SUMMARY+1, DETAIL+1, BROWSE+3, BROWSE1+2
Y	SORT+4, PAGE+4, OUTPUT+4, SECREF+4, ZIS+4, XIT+3!

Information