Routine: BMCRRSPP

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

Entry Points

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

External References

Name	Field # of Occurrence
DD^%DT	LETTER+3, LETTER+12, 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	BO+5
DONE^BMCRLP2	XIT+2
$$REFDTI^BMCRLU	PRINT1+6
^DIR	HEAD+2
$$VAL^XBDIQ1	LETTER+2, ALT+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No referrals to report",! Line Location: BMCRRSPP+6
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 #: ",$P($G(^BMCREF(BMCRDT,0)),U,2)," ",BMCSUF Line Location: PRINT1+5
Function Call: WRITE	Prompt: ?29,"Date Init: ",$$REFDTI^BMCRLU(BMCRDT,"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: !,"Refferal Type: "_$$VAL^XBDIQ1(90001,BMCREF,.04) Line Location: LETTER+2
Function Call: WRITE	Prompt: !,"LETTER DATE: "_BMCCOMDT Line Location: LETTER+4
Function Call: WRITE	Prompt: ?43,"USER CREATED: "_BMCREVN,! Line Location: LETTER+6
Function Call: WRITE	Prompt: !,"Expected Appoinment Date: ",BMCAPPT Line Location: LETTER+13
Function Call: WRITE	Prompt: !,"Purpose of Appointment: ",BMCPUR Line Location: LETTER+14
Function Call: WRITE	Prompt: !,"Contract Vendor: ",BMCSPRV Line Location: LETTER+15
Function Call: WRITE	Prompt: !,"IHS Facility: ",BMCIHSP Line Location: LETTER+17
Function Call: WRITE	Prompt: !,"Local Category: "_BMCLOCPP Line Location: LOCAT+9
Function Call: WRITE	Prompt: !,"Alternate Resource Letter Date: ",$$VAL^XBDIQ1(90001,BMCREF,1401) Line Location: ALT+2
Function Call: WRITE	Prompt: !,"Business Office Comments:" Line Location: BO+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: ?(80-$L(Y)/2),Y,! Line Location: HEAD2+4
Function Call: WRITE	Prompt: ?21,"SECONDARY PROVIDER LETTER BY DATE",! Line Location: HEAD2+5
Function Call: WRITE	Prompt: ?17,"BEG DATE: "_Y Line Location: HEAD2+6
Function Call: WRITE	Prompt: ?40,"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+2, PRINT1+3
^AUTTLOC - [#9999999.06]	PRINT1+3
^AUTTVNDR - [#9999999.11]	LETTER+11
^BMCCOM - [#90001.03]	BO+3
^BMCCOM("AD"	BO+2
^BMCLCAT - [#90001.54]	LOCAT+8
^BMCPARM - [#90001.31]	XIT+5
^BMCREF - [#90001]	PRINT+4, PRINT+5, PRINT+6, PRINT1+5, LETTER+7, LETTER+8, LOCAT+1, LOCAT+3, LOCAT+5, LOCAT+6
^DIC(4 - [#4]	LETTER+16, HEAD2+3
^DPT - [#2]	PRINT1+4
^VA(200 - [#200]	LETTER+5
^XTMP("BMCRRSP"	BMCRRSPP+6, BMCRRSPP+8, XIT+1!, P+1, PRINT+3

Label References

Name	Line Occurrences
@(	BMCRRSPP+6
HEAD	PRINT+1, PRINT1+1, ALT+1, BO+7
P	BMCRRSPP+8
PRINT	P+1
PRINT1	PRINT+3
XIT	BMCRRSPP+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BMCAPPT	LETTER+7, LETTER+12, LETTER+13
>> BMCBD	HEAD2+6
>> BMCBT	BMCRRSPP+6, BMCRRSPP+8, XIT+1, P+1, PRINT+3
>> BMCCOMDT	LETTER+3*, LETTER+4
>> BMCDA	BO+5*
BMCDATE	BMCRRSPP+8*, XIT+4!, P+1, PRINT+3
>> BMCED	HEAD2+7
>> BMCFILE	BO+5*
>> BMCHRN	PRINT1+2, PRINT1+3, PRINT1+4
BMCI	XIT+4!, BO+1, BO+2, BO+3, BO+5
>> BMCIHSP	LETTER+9, LETTER+16, LETTER+17
BMCIOM	BO+5*!
>> BMCJOB	BMCRRSPP+6, BMCRRSPP+8, XIT+1, P+1, PRINT+3
>> 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	BO+5*
>> BMCOLOC	XIT+5*
BMCOMDT	XIT+4!
>> BMCPG	BMCRRSPP+6, HEAD2+1, HEAD2+3
>> BMCPN	BMCRRSPP+7, P+1, PRINT+3
>> BMCPUR	LETTER+8*, LETTER+14
>> BMCQUIT	BMCRRSPP+7, BMCRRSPP+8, P+1, PRINT+1, PRINT+3, PRINT1+1, ALT+1, BO+2, BO+6, BO+7 , BO+9, HEAD+2
BMCRDT	XIT+4!, PRINT+2, PRINT+3, PRINT+4, PRINT+5, PRINT+6, PRINT1+5, PRINT1+6, LETTER+7, LETTER+8
>> BMCREF	PRINT+5*, LETTER+2, LOCAT+1, LOCAT+3, LOCAT+5, LOCAT+6, ALT+2, BO+2
BMCREVN	XIT+4!, LETTER+5*, LETTER+6
BMCREVP	XIT+4!, LETTER+5*
>> BMCRREC	PRINT+4*, LETTER+3, LETTER+5, LETTER+9, LETTER+10
>> BMCSPRV	LETTER+10, LETTER+11, LETTER+15
>> BMCSUF	PRINT+6*, PRINT1+5
>> BMCWP(	BO+6, BO+8
C	HEAD+1~
>> DFN	PRINT+4*, PRINT1+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+2, PRINT1+3, HEAD2+3
IO	HEAD+2
IO(0	HEAD+2
IOF	HEAD1+1
IOSL	PRINT+1, PRINT1+1, ALT+1, BO+7
IOST	BMCRRSPP+6, HEAD+2
U	XIT+5, PRINT+4, PRINT+5, PRINT+6, PRINT1+3, PRINT1+4, PRINT1+5, LETTER+3, LETTER+5, LETTER+7 , LETTER+8, LETTER+9, LETTER+10, LETTER+11, LETTER+16, LOCAT+6, LOCAT+8, BO+3, HEAD2+3
X	HEAD+1~
Y	LETTER+3, LETTER+12, BO+1, BO+4, BO+6, BO+8, HEAD+1~, HEAD+2, HEAD2+4, HEAD2+6 , HEAD2+7*
Z	HEAD+1~

Customize PDF page

Package: Referred Care Information System

Routine: BMCRRSPP

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: