Routine: BMCRR7P2

Package	Total	Call Graph
Kernel	2	($$FMTE,$$HTFM)^XLFDT $$LOW^XLFSTR
VA Fileman	2	^DIR ^DIWP
IHS Patient	1	(,$$SSN,KILL)^AUPNPAT
IHS VA Utilities	1	($$VAL,ENP,ENPM)^XBDIQ1
Referred Care Information System	1	($$AVDOS,$$AVLOS,$$FACREF)^BMCRLU
Registration	1	$$SETSTR^VALM1

Entry Points

Name	Comments	DBIA/ICR reference
HEAD	;
SET	;set array
HEAD2	;
HEAD1	;
BUILD1	;
S	;
REQ	;
CHARTS	;print duz(2) chart then first 4 in mult.
COMMENTS	;
WPS	;EP
VFILES	;set up array of all v file entries
3	;
DFN	;
XIT	;
BUILD	; build array
WP	;EP - Entry point to print wp fields pass node in BMCNODE
PRINT	;print one referral
2	;
VF3	;
VF2	;
DRG	;

External References

Name	Field # of Occurrence
^AUPNPAT	BUILD+6
$$SSN^AUPNPAT	BUILD+8
KILL^AUPNPAT	XIT+3
$$AVDOS^BMCRLU	REQ+5
$$AVLOS^BMCRLU	REQ+5
$$FACREF^BMCRLU	REQ+1
^DIR	HEAD+1
^DIWP	WP+6
$$SETSTR^VALM1	REQ+1, REQ+2, VF3+3, S+2, S+3, BUILD1+1, WPS+1
$$VAL^XBDIQ1	BUILD+8, BUILD+9, BUILD+13, BUILD+14, REQ+2, REQ+3, REQ+5, REQ+7, DRG+1
ENP^XBDIQ1	VF3+2
ENPM^XBDIQ1	BUILD+10, CHARTS+1
$$FMTE^XLFDT	BUILD+8, COMMENTS+3, HEAD2+3
$$HTFM^XLFDT	HEAD2+3
$$LOW^XLFSTR	VF3+1, S+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No referrals to report",! Line Location: BMCRR7P2+4
Function Call: WRITE	Prompt: !! Line Location: BUILD+5
Function Call: WRITE	Prompt: ?57,"Ref #: "_X Line Location: BUILD+9
Function Call: WRITE	Prompt: !,BMCSTR Line Location: SET+2
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: !,"*** CONFIDENTIAL PATIENT INFORMATION *** Referral Summary (TLOG) Page ",BMCPG Line Location: HEAD2+2
Function Call: WRITE	Prompt: !,"Report Run Date: ",$$FMTE^XLFDT($$HTFM^XLFDT($H),"1P") Line Location: HEAD2+3
Function Call: WRITE	Prompt: !,BMC80D Line Location: HEAD2+4
Routine Call	DIR Line Location: HEAD+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTTLOC - [#9999999.06]	CHARTS+2
^BMCCOM - [#90001.03]	COMMENTS+3
^BMCCOM("AD"	COMMENTS+1, COMMENTS+2
^BMCREF - [#90001]	PRINT+2, BUILD+3, 2+1, 3+1
^DD(90001	S+2
^DIC - [#1]	VFILES+2, VF2+1, WP+4
^DPT - [#2]	BUILD+8
^UTILITY($J	WP+2!, WPS+1, WPS+3!
^XTMP("BMCRR7"	BMCRR7P2+4, BMCRR7P2+6, XIT+1!, DFN+1, PRINT+2

Label References

Name	Line Occurrences
3	2+1
@(	BMCRR7P2+4, BMCRR7P2+5
BUILD	PRINT+2
COMMENTS	3+1
DFN	BMCRR7P2+6
HEAD	SET+1
PRINT	DFN+1
SET	BUILD+8, BUILD+12, BUILD+14, CHARTS+3, REQ+2, REQ+3, REQ+5, REQ+7, DRG+1, 2+2 , 2+4, 3+2, 3+4, COMMENTS+3, COMMENTS+6, VF3+1, VF3+3, S+4, BUILD1+2, WPS+1
VF2	VFILES+2
VF3	VF2+2
VFILES	DRG+2
WP	2+3, 3+3, COMMENTS+4
XIT	BMCRR7P2+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AUPNDOB	BUILD+8
BMC1	XIT+2!, PRINT+1*, S+2
BMC2	XIT+2!, PRINT+1*, S+3
>> BMC80D	BMCRR7P2+3*, HEAD2+4
>> BMC80E	BMCRR7P2+2*
BMCAR	XIT+2!, BUILD+1!, BUILD+10!, CHARTS+1!, VF3+2!
BMCAR(	BUILD+11, CHARTS+2, VF3+3, S+1, S+3
BMCBT	BMCRR7P2+4, BMCRR7P2+6, XIT+1, XIT+2!, DFN+1, PRINT+2
BMCCOL	WPS+3!
BMCCTR	XIT+2!, BUILD+7*
BMCFILE	XIT+2!, 2+3, 3+3, WP+4, WPS+3!
BMCG	XIT+2!, 2+3!, 3+3!, COMMENTS+4, WP+4, WP+5, WP+6, WPS+3!
BMCH	XIT+2!, BUILD1+1
BMCI	XIT+2!, COMMENTS+2*, COMMENTS+3, COMMENTS+4
>> BMCJOB	BMCRR7P2+4, BMCRR7P2+6, XIT+1, DFN+1, PRINT+2
BMCNODE	XIT+2!, 2+3, 3+3, WP+4, WPS+3!
>> BMCOPT	COMMENTS+5, SET+1
BMCPG	BMCRR7P2+4, XIT+2!, HEAD2+1, HEAD2+2
>> BMCPN	BMCRR7P2+5, BMCRR7P2+6, DFN+1, PRINT+2
BMCQUIT	BMCRR7P2+5!, BMCRR7P2+6, DFN+1, PRINT+2, BUILD+8, BUILD+12, BUILD+14, CHARTS+3, REQ+2, REQ+3 , REQ+5, REQ+7, DRG+1, 2+2, 2+4, 3+2, 3+4, COMMENTS+2, COMMENTS+3, VFILES+2 , VF3+1, VF3+3, S+4, BUILD1+2, SET+1, WP+5, WPS+1, HEAD+1*
BMCREF	XIT+2!, PRINT+2, BUILD+3, BUILD+9, REQ+1, REQ+2, REQ+3, REQ+5, REQ+7, DRG+1 , 2+1, 2+3, 3+1, 3+3*, COMMENTS+1, COMMENTS+2, WP+4
BMCRREC	XIT+2!, PRINT+2, BUILD+3, BUILD+6, BUILD+8
BMCSTR	XIT+2!, BUILD+7, BUILD+8, BUILD+11, BUILD+12, BUILD+13, BUILD+14, CHARTS+2, REQ+1, REQ+2* , REQ+3, REQ+5, REQ+7, DRG+1, 2+2, 2+4, 3+2, 3+4, COMMENTS+3, COMMENTS+6 , VF3+1, VF3+3, S+2, S+3, BUILD1+1, SET+2, SET+3, WPS+1*
BMCV	XIT+2!, BUILD1+1
BMCVDFN	XIT+2!, VF2+1, VF2+2, VF3+2
BMCVDG	XIT+2!, VF2+1*
BMCVFLE	XIT+2!, VFILES+2*, VF2+1, VF3+2
BMCVI	XIT+2!, VF2+2*, VF3+1
BMCVIGR	XIT+2!, VF2+1*, VF2+2
BMCVL	XIT+2!, VFILES+2*
BMCVNM	XIT+2!, VF2+1*, VF3+1
BMCX	XIT+2!, WP+3, WP+5
BMCY	XIT+2!
>> C	CHARTS+2, S+1, S+2*, S+3
D0	VFILES+1~
DA	VFILES+1~
DFN	XIT+4!, DFN+1*, PRINT+2, BUILD+8, BUILD+10, BUILD+13, BUILD+14, CHARTS+1
DI	VFILES+1~
DIC	VFILES+1~
DIQ	VFILES+1~
DIR	HEAD+1!
DIR(0	HEAD+1*
DIWF	WP+5*, WPS+2!
DIWL	WP+5*, WPS+1, WPS+2!
DIWR	WP+5*, WPS+2!
DR	VFILES+1~
>> DTOUT	HEAD+1
DUZ(2	CHARTS+2
>> F	CHARTS+2, S+1, S+2, S+3
>> I	BUILD+11, CHARTS+2
IO	HEAD+1
IO(0	HEAD+1
IOF	HEAD1+1
IOSL	SET+1
IOST	BMCRR7P2+4, BMCRR7P2+5, HEAD+1
U	BUILD+6, BUILD+8, CHARTS+2, COMMENTS+3, VF2+1, S+2
>> X	BUILD+9, WP+6
>> Y	BUILD+6, REQ+1, REQ+2, COMMENTS+3, VF3+3, S+2, S+3, WP+6, HEAD+1
Z	WPS+1*, WPS+2!

Customize PDF page

Package: Referred Care Information System

Routine: BMCRR7P2

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: