Routine: BMCRR22P

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

Entry Points

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

External References

Name	Field # of Occurrence
^AUPNPAT	BUILD+5
$$SSN^AUPNPAT	BUILD+7
KILL^AUPNPAT	XIT+4
$$AVDOS^BMCRLU	REQ+5, VF3+4
$$FACREF^BMCRLU	REQ+1
COMMENTS^BMCRR5P	COMMENTS+1
^DIR	HEAD+1
^DIWP	WP+6
$$ICDDX^ICDEX	VF3+5
$$SETSTR^VALM1	REQ+1, REQ+2, VF3+6, S+2, S+3, BUILD1+1, WPS+1
$$VAL^XBDIQ1	BUILD+7, BUILD+8, BUILD+12, BUILD+13, REQ+2, REQ+3, REQ+4, REQ+5, REQ+6, DRG+1
ENP^XBDIQ1	VF3+2, VF3+5
ENPM^XBDIQ1	BUILD+9, CHARTS+1
$$FMTE^XLFDT	BUILD+7, 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: BMCRR22P+8
Function Call: WRITE	Prompt: !! Line Location: BUILD+4
Function Call: WRITE	Prompt: "Name: "_$E($P(^DPT($P(BMCRREC,U,3),0),U),1,25),?32,$$FMTE^XLFDT(AUPNDOB,"5D")_" "_$$VAL^XBDIQ1(9000001,DFN,1102.98)_" "_$$SSN^AUPNPAT(DFN) Line Location: BUILD+7
Function Call: WRITE	Prompt: ?60,"Ref:",$$VAL^XBDIQ1(90001,BMCREF,.02),$P($G(^BMCREF(BMCREF,1)),U) Line Location: BUILD+8
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("AD"	2+1
^BMCREF - [#90001]	PRINT+2, BUILD+2, BUILD+3, BUILD+8
^DD(90001	S+2
^DIC - [#1]	VFILES+2, VF2+1, WP+4
^DPT - [#2]	BUILD+7
^UTILITY($J	WP+2!, WPS+1, WPS+3!
^XTMP("BMCRR22"	BMCRR22P+8, BMCRR22P+10, XIT+1!, DFN+1, PRINT+2

Label References

Name	Line Occurrences
@(	BMCRR22P+8, BMCRR22P+9
BUILD	PRINT+2
COMMENTS	2+2, 3+1, 4+1
DFN	BMCRR22P+10
HEAD	SET+1
PRINT	DFN+1
SET	BUILD+11, BUILD+13, CHARTS+3, REQ+2, REQ+3, REQ+4, REQ+5, REQ+6, DRG+1, VF3+1 , VF3+6, S+4, BUILD1+2, WPS+1
VF2	VFILES+2
VF3	VF2+2
VFILES	DRG+2
XIT	BMCRR22P+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AUPNDOB	BUILD+7
BMC1	XIT+2!, PRINT+1*, S+2
BMC2	XIT+2!, PRINT+1*, S+3
>> BMC80D	BMCRR22P+7*, HEAD2+4
>> BMC80E	BMCRR22P+6*
BMCAR	XIT+2!, BUILD+1!, BUILD+9!, CHARTS+1!, VF3+2!
BMCAR(	BUILD+10, CHARTS+2, VF3+5*, VF3+6, S+1, S+3
BMCBT	BMCRR22P+8, BMCRR22P+10, XIT+1, XIT+2!, DFN+1, PRINT+2
BMCCOL	WPS+3!
BMCCTR	XIT+2!, BUILD+6*
BMCCTYP	XIT+3!, 2+2, 3+1, 4+1*
>> BMCDOS	VF3+4*, VF3+5
BMCFILE	XIT+2!, WP+4, WPS+3!
BMCG	XIT+2!, WP+4*, WP+5, WP+6, WPS+3!
BMCH	XIT+2!, BUILD1+1
BMCI	XIT+2!
>> BMCJOB	BMCRR22P+8, BMCRR22P+10, XIT+1, DFN+1, PRINT+2
BMCNODE	XIT+2!, WP+4, WPS+3!
>> BMCOPT	COMMENTS+2, SET+1
BMCPG	BMCRR22P+8, XIT+2!, HEAD2+1, HEAD2+2
>> BMCPN	BMCRR22P+9, BMCRR22P+10, DFN+1, PRINT+2
BMCQUIT	BMCRR22P+9!, BMCRR22P+10, DFN+1, PRINT+2, BUILD+11, BUILD+13, CHARTS+3, REQ+2, REQ+3, REQ+4 , REQ+5, REQ+6, DRG+1, 2+2, 3+1, 4+1, VFILES+2, VF3+1, VF3+6, S+4 , BUILD1+2, SET+1, WP+5, WPS+1, HEAD+1*
BMCREF	XIT+2!, PRINT+2*, BUILD+2, BUILD+3, BUILD+8, REQ+1, REQ+2, REQ+3, REQ+4, REQ+5 , REQ+6, DRG+1, 2+1, VF3+4, WP+4
BMCRREC	XIT+2!, PRINT+2, BUILD+2, BUILD+5, BUILD+7
BMCSTR	XIT+2!, BUILD+6, BUILD+10, BUILD+11, BUILD+12, BUILD+13, CHARTS+2, REQ+1, REQ+2, REQ+3* , REQ+4, REQ+5, REQ+6, DRG+1, 2+2, 3+1, 4+1, VF3+1, VF3+6, S+2 , S+3, BUILD1+1, SET+2, SET+3, WPS+1
>> BMCTYPR	BUILD+3
BMCV	XIT+2!, BUILD1+1
BMCVDFN	XIT+2!, VF2+1, VF2+2, VF3+2, VF3+5
BMCVDG	XIT+2!, VF2+1*
BMCVFLE	XIT+2!, VFILES+2*, VF2+1, VF3+2, VF3+5
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+5!, DFN+1*, PRINT+2, BUILD+7, BUILD+9, BUILD+12, BUILD+13, 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+10, CHARTS+2
IO	HEAD+1
IO(0	HEAD+1
IOF	HEAD1+1
IOSL	SET+1
IOST	BMCRR22P+8, BMCRR22P+9, HEAD+1
U	BUILD+3, BUILD+5, BUILD+7, BUILD+8, CHARTS+2, VF2+1, VF3+5, S+2
>> X	WP+6*
>> Y	BUILD+5, REQ+1, REQ+2, VF3+6, S+2, S+3, WP+6*, HEAD+1
Z	WPS+1*, WPS+2!

Customize PDF page

Package: Referred Care Information System

Routine: BMCRR22P

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: