Routine: BMCRRNDA

Package	Total	Call Graph
Referred Care Information System	2	DIC^BMCFMC DONE^BMCRLP2
VA Fileman	2	C^%DTC ^DIR
IHS Patient	1	($$DOD,KILL)^AUPNPAT
IHS VA Utilities	1	^XBDBQUE
Kernel	1	$$FMTE^XLFDT

Entry Points

Name	Comments	DBIA/ICR reference
BD	;get beginning date
HEAD	;
PAT	;Get Patient
D	;DATE RANGE
HEAD1	;
ED	;get ending date
GETPAT	;
R1	;
HEAD2	;
START	;
DONE	;
PATIENT2	; ASK FOR PATIENT UNTIL USER SELECTS OR QUITS
XIT	;EP
PATNAME	;
PRINT	;EP called from xbdbque
PATIENT	; GET PATIENT
PROCR	;
PROC	;EP called from xbdbque
END	;
ZIS	;

External References

Name	Field # of Occurrence
C^%DTC	ED+4
$$DOD^AUPNPAT	PATIENT2+6
KILL^AUPNPAT	XIT+2
DIC^BMCFMC	PATIENT2+2
DONE^BMCRLP2	DONE+2
^DIR	BD+1, ED+1, PAT+1, PATIENT2+8, HEAD+1
^XBDBQUE	ZIS+2
$$FMTE^XLFDT	HEAD2+2, HEAD2+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report will tally all in-house referrals by provider of service.",!! Line Location: START+2
Function Call: WRITE	Prompt: ! Line Location: BD+1
Function Call: WRITE	Prompt: ! Line Location: ED+1
Function Call: WRITE	Prompt: !!,"This patient is deceased." Line Location: PATIENT2+7
Function Call: WRITE	Prompt: ! Line Location: PATIENT2+9
Function Call: WRITE	Prompt: !!,"No # DAYS AUHTORIZED FOR THIS RUN",! Line Location: PRINT+3
Function Call: WRITE	Prompt: !!,BMCPAT Line Location: PATNAME+2
Function Call: WRITE	Prompt: !!,"Total for ",BMCPAT,?55,$J(BMCSTOT,5) Line Location: PATNAME+8
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: !?55,$$FMTE^XLFDT(DT),?72,"Page ",BMCPG,! Line Location: HEAD2+2
Function Call: WRITE	Prompt: ?20,"IN-HOUSE REFERRALS BY PATIDER",! Line Location: HEAD2+3
Function Call: WRITE	Prompt: ?14,"REFERRAL DATE RANGE: ",$$FMTE^XLFDT(BMCBD)," to ",$$FMTE^XLFDT(BMCED) Line Location: HEAD2+4
Function Call: WRITE	Prompt: !!,"PATIDER",?25,"CLINIC REFERRED TO",?55,"NUMBER" Line Location: HEAD2+5
Function Call: WRITE	Prompt: !,$TR($J(" ",80)," ","-") Line Location: HEAD2+6
Routine Call	DIR Line Location: BD+1 ED+1 PAT+1 PATIENT2+8 HEAD+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BMCREF - [#90001]	R1+1, PROCR+8, PROCR+9
^BMCREF("B"	PROC+2, PROC+3, R1+1
^DPT - [#2]	PATIENT2+4, PROCR+5
^XTMP("BMCRRNDA"	PROCR+10*, PRINT+3, PRINT+4, DONE+1!, PATNAME+3, PATNAME+5

Label References

Name	Line Occurrences
@(	PRINT+1
BD	ED+2
D	PAT+2
DONE	PRINT+3
GETPAT	PAT+3
HEAD	PATNAME+1, PATNAME+4, PATNAME+7
PAT	PAT+3
PATIENT2	PATIENT+1
PATNAME	PRINT+4
PROCR	R1+1
R1	PROC+3
XIT	BD+2, ZIS+3

Naked Globals

Name	Field # of Occurrence
^(	PATNAME+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BMCBD	BD+3*, ED+1, ED+4, XIT+1!, HEAD2+4
BMCBT	XIT+1!, PROC+1*
BMCBTH	START+1*, XIT+1!, PROCR+10, PRINT+3, PRINT+4, DONE+1, PATNAME+3, PATNAME+5
BMCCLIN	XIT+1!
BMCDFN	PATIENT+1, PATIENT2+4*, PATIENT2+6!
BMCED	ED+3*, XIT+1!, PROC+3, HEAD2+4
BMCET	XIT+1!, PROC+2, END+1
>> BMCJOB	START+1*, PROCR+10, PRINT+3, PRINT+4, DONE+1, PATNAME+3, PATNAME+5
BMCODAT	XIT+1!, PROC+2, PROC+3, R1+1
BMCPAT	PAT+1, PAT+3, XIT+1!, PATIENT2+11, PROCR+3, PROCR+10, PRINT+4, PATNAME+2, PATNAME+3, PATNAME+5 , PATNAME+8
>> BMCPATN	PATNAME+3*, PATNAME+5
BMCPG	XIT+1!, PRINT+1, HEAD2+1, HEAD2+2
>> BMCQ	PATIENT+1, PATIENT2+1, PATIENT2+5
BMCQUIT	XIT+1!, PRINT+2, PRINT+4, PATNAME+1, PATNAME+3, PATNAME+4, PATNAME+7, HEAD+1
>> BMCREC("PAT N	AME" , PATIENT2+4*, PATIENT2+6!
BMCREF	XIT+1!, R1+1*, PROCR+8, PROCR+9, PROCR+10
BMCRREC	XIT+1!, R1+1*, PROCR+2, PROCR+7
BMCSD	ED+4*, XIT+1!, PROC+2, PROC+3
BMCSTOT	XIT+1!, PATNAME+2, PATNAME+5, PATNAME+8
C	XIT+1!
D	XIT+1!
DA	PAT+1!, PATIENT2+8!
DFN	XIT+1!, R1+1*
DIC	XIT+1!, PATIENT2+2*
DIC(0	PATIENT2+2*
DIR	BD+1!, ED+1!, PAT+1!, PATIENT2+8!, HEAD+1!
DIR("A"	BD+1, ED+1, PAT+1, PATIENT2+8
DIR("B"	PAT+1, PATIENT2+8
DIR(0	BD+1, ED+1, PAT+1, PATIENT2+8, HEAD+1*
DIRUT	BD+1, BD+2, ED+1, ED+2, PAT+2, XIT+1!
DT	HEAD2+2
>> DTOUT	HEAD+1
>> DUOUT	BD+1, ED+1
IO	HEAD+1
IO(0	HEAD+1
IOF	HEAD1+1
IOSL	PATNAME+1, PATNAME+4, PATNAME+7
IOST	PRINT+1, HEAD+1
P	XIT+1!, PROCR+2, PROCR+3, PROCR+5, PROCR+10
U	PATIENT2+4, R1+1, PROCR+2, PROCR+5, PROCR+7, PROCR+8, PROCR+9
X	ED+4, XIT+1!
X1	ED+4*, XIT+1!
X2	ED+4*, XIT+1!
>> XBNS	ZIS+1*
>> XBRC	ZIS+1*
>> XBRP	ZIS+1*
>> XBRX	ZIS+1*
>> Y	BD+3, ED+3, PAT+3, PATIENT2+3, PATIENT2+4, PATIENT2+6, PATIENT2+11, HEAD+1

Customize PDF page

Package: Referred Care Information System

Routine: BMCRRNDA

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: