Routine: BMCRR2

Information

BMCRR2 ; IHS/PHXAO/TMJ - list patients for which medical and/or cost data has not been received ;

Package	Total	Caller Graph
Referred Care Information System	1	BMC RPT-INPATIENT LOG

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

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

Name	Field # of Occurrence
BMC132D	XIT+2!
BMC132E	XIT+2!
BMC80D	XIT+2!
BMC80E	XIT+2!
BMCBT	XIT+2!
BMCBTH	XIT+2!
BMCCOL	XIT+2!
BMCD	XIT+2!
BMCET	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, XIT+2!
BMCP	XIT+2!
BMCPG	XIT+2!
BMCQUIT	ZIS+3*, ZIS+5, XIT+2!
BMCRCNT	XIT+2!
BMCREF	XIT+2!
BMCRNUMB	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!
C	XIT+3!
DA	SORT+2!, OUTPUT+2!, SECREF+2!, PAGE+2!, ZIS+2!, XIT+3!
DFN	XIT+3!
DIR	SORT+2!, OUTPUT+2!, SECREF+2!, PAGE+2!, ZIS+2!, XIT+3!
DIR("A"	SORT+2, OUTPUT+2, SECREF+2, PAGE+2, ZIS+2*
DIR("B"	SORT+2, OUTPUT+2, SECREF+2, PAGE+2, ZIS+2*
DIR(0	SORT+2, OUTPUT+2, SECREF+2, PAGE+2, ZIS+2*
DIRUT	SORT+3, OUTPUT+3, SECREF+3, PAGE+3, ZIS+3, XIT+3!
DIWF	XIT+3!
DIWL	XIT+3!
DIWR	XIT+3!
DT	START+4
DTOUT	XIT+3!
X	XIT+3!
>> XBIOP	BROWSE+2*
>> XBNS	ZIS+7*
>> XBRC	ZIS+7, BROWSE+2
>> XBRP	ZIS+7, BROWSE+1
>> XBRX	ZIS+7, BROWSE+2
Y	SORT+4, OUTPUT+4, SECREF+4, PAGE+4, ZIS+4, XIT+3!
Z	XIT+3!