Routine: BMCOUTRP

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,$$TRIBE,KILL)^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1

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,$$TRIBE,KILL)^AUPNPAT

IHS VA Utilities

$$VAL^XBDIQ1

Name	Comments	DBIA/ICR reference
SECREF	;
PRINT1	;
HEAD	;ENTRY POINT
LOCAT	;Print Local Categories
HEAD2	;
HEAD1	;
NEXT	;
P	;
XIT	;
PRINT	;print one referral
ALT	;Alternate Resource Letter Date

External References

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No referrals to report",! Line Location: BMCOUTRP+5
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+4
Function Call: WRITE	Prompt: !,"Referral #: ",BMCRNUMB,$P($G(^BMCREF(BMCRIEN,1)),U) Line Location: PRINT1+5
Function Call: WRITE	Prompt: ?29,"Date Init: ",$$REFDTI^BMCRLU(BMCRIEN,"S") Line Location: PRINT1+6
Function Call: WRITE	Prompt: ?50,"Tribe: ",$E($$TRIBE^AUPNPAT(DFN,"E"),1,20) Line Location: PRINT1+7
Function Call: WRITE	Prompt: !,"Priority: ",$$VAL^XBDIQ1(90001,BMCRIEN,.32)," CHS Auth Dec: ",$$VAL^XBDIQ1(90001,BMCRIEN,1112)," MCC Action: ",$$VAL^XBDIQ1(90001,BMCRIEN,1123) Line Location: SECREF+3
Function Call: WRITE	Prompt: !,"Local Category: "_BMCLOCPP Line Location: LOCAT+9
Function Call: WRITE	Prompt: !,"Alternate Resource Letter Date: ",$$VAL^XBDIQ1(90001,BMCRIEN,1401) Line Location: ALT+2
Function Call: WRITE	Prompt: !,"Business Office Comments:" Line Location: ALT+5
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: ?(80-$L(Y)/2),Y,! Line Location: HEAD2+4
Function Call: WRITE	Prompt: ?15,"REFERRALS INITIATED AT OUTSIDE FACILITY (CALL'ins)" Line Location: HEAD2+5
Function Call: WRITE	Prompt: !,?28,"BEG DATE: "_Y Line Location: HEAD2+6
Function Call: WRITE	Prompt: !,?28,"END DATE: "_Y,! Line Location: HEAD2+7
Function Call: WRITE	Prompt: !,$TR($J(" ",80)," ","-") Line Location: HEAD2+8
Routine Call	DIR Line Location: HEAD+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	PRINT1+3
^AUTTLOC - [#9999999.06]	PRINT1+3
^BMCLCAT - [#90001.54]	LOCAT+8
^BMCPARM - [#90001.31]	XIT+5
^BMCREF - [#90001]	PRINT+2, PRINT1+2, PRINT1+5, SECREF+1, LOCAT+1, LOCAT+3, LOCAT+5, LOCAT+6, ALT+4
^DIC(4 - [#4]	HEAD2+3
^DPT - [#2]	PRINT1+4
^XTMP("BMCOUTRP"	BMCOUTRP+5, BMCOUTRP+7, XIT+1!, P+1, PRINT+2

Name	Line Occurrences
@(	BMCOUTRP+5
HEAD	PRINT+1, PRINT1+1, ALT+1, ALT+8
NEXT	ALT+4
P	BMCOUTRP+7
PRINT	P+1
PRINT1	PRINT+2
XIT	BMCOUTRP+5

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BMCBD	HEAD2+6
>> BMCBT	BMCOUTRP+5, BMCOUTRP+7, XIT+1, P+1, PRINT+2
>> BMCDA	ALT+6*
BMCDATE	BMCOUTRP+7*, XIT+4!, P+1, PRINT+2
>> BMCED	HEAD2+7
>> BMCFILE	ALT+6*
>> BMCHRN	PRINT1+3*, PRINT1+4
BMCIOM	ALT+6*!
>> BMCJOB	BMCOUTRP+5, BMCOUTRP+7, XIT+1, P+1, PRINT+2
>> BMCLOCC	LOCAT+2, LOCAT+3, LOCAT+5
>> BMCLOCI	LOCAT+4, LOCAT+5, LOCAT+6
>> BMCLOCP	LOCAT+6*, LOCAT+7, LOCAT+8
>> BMCLOCPP	LOCAT+8*, LOCAT+9
>> BMCNODE	ALT+6*
>> BMCOLOC	XIT+5*
BMCOMDT	XIT+4!
>> BMCPG	BMCOUTRP+5, HEAD2+1, HEAD2+3
>> BMCPTN	BMCOUTRP+6, P+1, PRINT+2
>> BMCQUIT	BMCOUTRP+6, BMCOUTRP+7, P+1, PRINT+1, PRINT+2, PRINT1+1, ALT+1, ALT+7, ALT+8, ALT+10 , HEAD+2
BMCREVN	XIT+4!
BMCREVP	XIT+4!
BMCRIEN	XIT+4!, PRINT+2*, PRINT1+2, PRINT1+5, PRINT1+6, SECREF+1, SECREF+3, LOCAT+1, LOCAT+3, LOCAT+5 , LOCAT+6, ALT+2, ALT+4, ALT+6
BMCRNUMB	XIT+4!, PRINT1+2*, PRINT1+5
>> BMCRREC	PRINT+2*
>> BMCWP(	ALT+7, ALT+9
C	HEAD+1~
>> DFN	PRINT+2*, PRINT1+3, PRINT1+4, PRINT1+7
DIR	HEAD+2!
DIR(0	HEAD+2*
DT	PRINT1+4, HEAD2+4
>> DTOUT	HEAD+2
DUZ(2	XIT+5, PRINT1+3, HEAD2+3
IO	HEAD+2
IO(0	HEAD+2
IOF	HEAD1+1
IOSL	PRINT+1, PRINT1+1, ALT+1, ALT+8
IOST	BMCOUTRP+5, HEAD+2
U	XIT+5, PRINT+2, PRINT1+2, PRINT1+3, PRINT1+4, PRINT1+5, SECREF+1, LOCAT+6, LOCAT+8, HEAD2+3
X	HEAD+1~
Y	ALT+7, ALT+9, HEAD+1~, HEAD+2, HEAD2+4, HEAD2+6, HEAD2+7
Z	HEAD+1~

Customize PDF page

Package: Referred Care Information System

Routine: BMCOUTRP

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: