Routine: BMCRR20P

Package	Total	Call Graph
Referred Care Information System	4	WP^BMCFDR DONE^BMCRLP2 $$REFDTI^BMCRLU SECREF2^BMCRUTL
VA Fileman	2	DD^%DT ^DIR
IHS Patient	1	($$AGE,$$DOB,$$SSN,KILL)^AUPNPAT

Package

Total

Call Graph

Referred Care Information System

WP^BMCFDR DONE^BMCRLP2 $$REFDTI^BMCRLU SECREF2^BMCRUTL

VA Fileman

DD^%DT ^DIR

IHS Patient

($$AGE,$$DOB,$$SSN,KILL)^AUPNPAT

Name	Comments	DBIA/ICR reference
CASE	;Print Case Review Comments IHS/PHX/TMJ 11/25/98
SECREF	;Secondary Referral
HEAD	;ENTRY POINT
HEAD2	;
HEAD1	;
PRINT1	;
P	;
XIT	;
PRINT	;print one referral
NEXT	;

Name	Field # of Occurrence
DD^%DT	SECREF+3, HEAD2+4, HEAD2+5, HEAD2+6
$$AGE^AUPNPAT	PRINT1+3
$$DOB^AUPNPAT	PRINT1+3
$$SSN^AUPNPAT	PRINT1+3
KILL^AUPNPAT	XIT+3
WP^BMCFDR	CASE+5
DONE^BMCRLP2	XIT+2
$$REFDTI^BMCRLU	PRINT1+9
SECREF2^BMCRUTL	SECREF+1
^DIR	HEAD+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No referrals to report",! Line Location: BMCRR20P+6
Function Call: WRITE	Prompt: !!,"Total Number of Referrals = ",BMCRCNT Line Location: BMCRR20P+9
Function Call: WRITE	Prompt: !,$E($P(^DPT(DFN,0),U),1,30),?32,BMCHRN,?43,"DOB: ",$$DOB^AUPNPAT(DFN,"E")," ",$$AGE^AUPNPAT(DFN,DT,"R")," ",$$SSN^AUPNPAT(DFN) Line Location: PRINT1+3
Function Call: WRITE	Prompt: !,"Referral #: ",BMCRNUMB Line Location: PRINT1+7
Function Call: WRITE	Prompt: ?32,"Date Referral Initiated: ",$$REFDTI^BMCRLU(BMCREF,"S") Line Location: PRINT1+9
Function Call: WRITE	Prompt: !!,"CASE REVIEW DATE: "_BMCCOMDT Line Location: SECREF+4
Function Call: WRITE	Prompt: ?43,"CASE REVIEWER: "_BMCREVN,! Line Location: SECREF+6
Function Call: WRITE	Prompt: "CASE REVIEW COMMENTS:" Line Location: CASE+4
Function Call: WRITE	Prompt: !,"--------------------",! Line Location: NEXT+1
Function Call: WRITE	Prompt: ! Line Location: HEAD+2
Function Call: WRITE	Prompt: !?13,"******** CONFIDENTIAL PATIENT INFORMATION ********" Line Location: HEAD2+2
Function Call: WRITE	Prompt: !?(80-$L($P(^DIC(4,DUZ(2),0),U))/2),$P(^DIC(4,DUZ(2),0),U),?72,"Page ",BMCPG,! Line Location: HEAD2+3
Function Call: WRITE	Prompt: ?31,"REFERRAL INITIATED",!,?17,"BEG DATE: "_Y Line Location: HEAD2+4
Function Call: WRITE	Prompt: ?40,"END DATE: "_Y,! Line Location: HEAD2+5
Function Call: WRITE	Prompt: ?(75-$L(Y)/2),"Run Date: ",Y,! Line Location: HEAD2+6
Function Call: WRITE	Prompt: ?23,"CASE REVIEW COMMENTS BY DATE" Line Location: HEAD2+7
Function Call: WRITE	Prompt: !,$TR($J(" ",80)," ","-") Line Location: HEAD2+8
Routine Call	DIR Line Location: HEAD+2

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	PRINT1+2
^AUTTLOC - [#9999999.06]	PRINT1+2
^BMCCOM - [#90001.03]	PRINT+2, CASE+3
^BMCPARM - [#90001.31]	XIT+6
^BMCREF - [#90001]	PRINT1+5, PRINT1+8
^DIC(4 - [#4]	HEAD2+3
^DPT - [#2]	PRINT1+3
^VA(200 - [#200]	SECREF+5
^XTMP("BMCRR20"	BMCRR20P+6, BMCRR20P+8, XIT+1!, P+1, PRINT+2

Name	Line Occurrences
@(	BMCRR20P+6
HEAD	PRINT+1, PRINT1+1, CASE+7
NEXT	CASE+3
P	BMCRR20P+8
PRINT	P+1
PRINT1	PRINT+2
XIT	BMCRR20P+6

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BMCBD	HEAD2+4
>> BMCBT	BMCRR20P+6, BMCRR20P+8, XIT+1, P+1, PRINT+2
>> BMCCOMDT	SECREF+3*, SECREF+4
>> BMCDA	CASE+5*
BMCDATE	BMCRR20P+8*, XIT+5!, P+1, PRINT+2
>> BMCED	HEAD2+5
>> BMCFILE	CASE+5*
>> BMCHRN	PRINT1+2*, PRINT1+3
BMCIOM	CASE+5*!
>> BMCJOB	BMCRR20P+6, BMCRR20P+8, XIT+1, P+1, PRINT+2
>> BMCNODE	CASE+5*
>> BMCOLOC	XIT+6*
BMCOMDT	XIT+5!
>> BMCPG	BMCRR20P+6, HEAD2+1, HEAD2+3
>> BMCPN	BMCRR20P+7, P+1, PRINT+2
>> BMCQUIT	BMCRR20P+7, BMCRR20P+8, P+1, PRINT+1, PRINT+2, PRINT1+1, CASE+6, CASE+7, CASE+9, HEAD+2
>> BMCRCNT	BMCRR20P+9
BMCRDT	XIT+5!, PRINT+2*, CASE+3, CASE+5
>> BMCREF	PRINT+2*, PRINT1+5, PRINT1+8, PRINT1+9
BMCREVN	XIT+5!, SECREF+5*, SECREF+6
BMCREVP	XIT+5!, SECREF+5*
>> BMCRNUMB	PRINT1+5*, PRINT1+7
>> BMCRREC	PRINT+2*, SECREF+3, SECREF+5
>> BMCWP(	CASE+6, CASE+8
C	HEAD+1~
>> DFN	PRINT+2*, PRINT1+2, PRINT1+3
DIR	HEAD+2!
DIR(0	HEAD+2*
DT	PRINT1+3, HEAD2+6
>> DTOUT	HEAD+2
DUZ(2	XIT+6, PRINT1+2, HEAD2+3
IO	HEAD+2
IO(0	HEAD+2
IOF	HEAD1+1
IOSL	PRINT+1, PRINT1+1, CASE+7
IOST	BMCRR20P+6, HEAD+2
U	XIT+6, PRINT+2, PRINT1+2, PRINT1+3, PRINT1+5, PRINT1+8, SECREF+3, SECREF+5, HEAD2+3
X	HEAD+1~
Y	SECREF+3, CASE+6, CASE+8, HEAD+1~, HEAD+2, HEAD2+4, HEAD2+5, HEAD2+6*
Z	HEAD+1~

Customize PDF page

Package: Referred Care Information System

Routine: BMCRR20P

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: