Routine: BMCCLOS2

Package	Total	Call Graph
VA Fileman	3	C^%DTC ^DIC ^DIR
IHS Patient	1	KILL^AUPNPAT

Package	Total	Caller Graph
Referred Care Information System	2	BMC AUTO CLOSE REFERRALS BMC AUTO REFERRAL CLOSE

Entry Points

Name	Comments	DBIA/ICR reference
SORT	;SORT BY DATE INITIATED OR BY DATE OF SERVICE
BD	;get beginning date
KIND	;Ask for specific Type of Referral (IHS, CHS, OTHER)
ASK1	;Restrict a Certain Local Category
PROCESS	;Process Data
ED	;get ending date
CAT	;Category Restriction
XIT	;
ASK	;
TYPE	;Select Inpatient Or Outpatient

Name	Line Occurrences
Function Call: WRITE	Prompt: !?12,"****** AUTOMATIC CLOSE OF REFERRALS ******",! Line Location: BMCCLOS2+8
Function Call: WRITE	Prompt: !,?25,"****WARNING***",! Line Location: BMCCLOS2+9
Function Call: WRITE	Prompt: !,"This routine will LOOP through all referrals either by date initiated",!,"or by date of service, date range entered by the User --" Line Location: BMCCLOS2+11
Function Call: WRITE	Prompt: !,?20,"***AUTOMATIC CLOSURE OF REFERRAL***",! Line Location: BMCCLOS2+12
Function Call: WRITE	Prompt: "This Routine allows User to Select a specific INDIVIDUAL FACILITY Only!",! Line Location: BMCCLOS2+13
Function Call: WRITE	Prompt: "This Routine also allows the User to EXCLUDE a particular Local Category ",! Line Location: BMCCLOS2+14
Function Call: WRITE	Prompt: "This Routine allows the User to Select INPATIENT or OUTPATIENT Referrals Only!",! Line Location: BMCCLOS2+15
Function Call: WRITE	Prompt: "This Routine allows the User to Select TYPE of Referral (CHS,IHS,OTHER) Only!",! Line Location: BMCCLOS2+16
Function Call: WRITE	Prompt: ! Line Location: ASK+1
Function Call: WRITE	Prompt: ! Line Location: ASK1+2
Function Call: WRITE	Prompt: !! Line Location: SORT+1
Function Call: WRITE	Prompt: !! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Routine Call	DIC Line Location: ASK+1 CAT+3
Routine Call	DIR Line Location: KIND+4 ASK1+4 TYPE+5 SORT+3 BD+3 ED+3

FileNo	Call Tags
^BMCLCAT - [#90001.54]	Classic Fileman Calls
^AUTTLOC - [#9999999.06]	Classic Fileman Calls

Name	Field # of Occurrence
%	XIT+4!
BMCADOS	XIT+2!
BMCBD	BD+5*, ED+1, ED+6, XIT+1!
BMCBT	XIT+1!
BMCBTH	XIT+1!
BMCC	XIT+1!
BMCCLS	XIT+2!
BMCCOL	XIT+1!
BMCCT	XIT+2!
BMCD	XIT+1!
BMCDA	XIT+1!
BMCDATE	XIT+1!
BMCDTS	SORT+6*, BD+2, ED+2, PROCESS+2, XIT+2!
BMCED	ED+5*, XIT+1!
BMCET	XIT+1!
BMCFAC	ASK+3*, XIT+2!
BMCFILE	XIT+1!
BMCG	XIT+1!
BMCHRN	XIT+1!
BMCIOM	XIT+1!
BMCJOB	XIT+1!
BMCKIND	KIND+7*, XIT+2!
BMCLCAT	ASK1+1, CAT+1, CAT+6*, XIT+2!
BMCLOCC	XIT+2!
BMCLOCI	XIT+2!
BMCLOCP	XIT+2!
BMCLOCPP	XIT+2!
BMCNODE	XIT+1!
BMCODAT	XIT+1!
BMCOPT	XIT+1!
BMCP	XIT+1!
BMCPG	XIT+1!
BMCPN	XIT+1!
BMCQUIT	XIT+1!
BMCRCNT	XIT+1!
BMCREF	XIT+1!
BMCRIEN	XIT+2!
BMCRREC	XIT+1!
BMCRSTAT	XIT+2!
BMCSD	ED+6*, XIT+1!
BMCTYP	TYPE+8*, XIT+2!
BMCWP	XIT+1!
BMCX	XIT+1!
C	XIT+4!
D0	XIT+4!
DA	KIND+4!, TYPE+5!, XIT+4!
DFN	XIT+4!
DI	XIT+4!
DIC	ASK+1!, CAT+2, CAT+3!, XIT+4!
DIC("A"	ASK+1, CAT+2
DIC(0	ASK+1, CAT+2
DIQ	XIT+4!
DIR	KIND+4!, ASK1+4!, TYPE+5!, SORT+3!, BD+3!, ED+3!, XIT+4!
DIR("?"	KIND+3, ASK1+3, TYPE+4*
DIR("A"	KIND+2, ASK1+2, TYPE+3, SORT+2, BD+2, ED+2
DIR("B"	KIND+2, ASK1+2, TYPE+3, SORT+1
DIR(0	KIND+1, ASK1+2, TYPE+2, SORT+1, BD+1, ED+1
DIRUT	KIND+5, ASK1+5, CAT+4, TYPE+6, SORT+4, BD+3, BD+4, ED+3, ED+4, XIT+4!
DIWF	XIT+4!
DIWL	XIT+4!
DIWR	XIT+4!
DR	XIT+4!
DTOUT	XIT+4!
>> DUOUT	BD+3, ED+3
F	XIT+4!
I	XIT+4!
X	ED+6, XIT+4!
>> X1	ED+6*
>> X2	ED+6*
Y	ASK+2, ASK+3, KIND+6, KIND+7, ASK1+6, CAT+5, CAT+6, TYPE+7, TYPE+8, SORT+5 , SORT+6, BD+5, ED+5, XIT+4!
Z	XIT+4!