Routine: BMCRR14P

Package	Total	Call Graph
VA Fileman	4	DD^%DT $$GET1^DIQ ^DIR ^DIWP
Referred Care Information System	3	DONE^BMCRLP2 ($$AVDOS,$$AVLOS,$$FACREF,$$REFDTI)^BMCRLU (BO,SECREF2)^BMCRUTL
DRG Grouper	2	$$ICDDX^ICDEX $$CPT^ICPTCOD
IHS Patient	1	($$AGE,$$DOB,$$MCD,$$MCDPN,$$MCR,$$PI,$$PIN,$$SSN,$$TRIBE,KILL)^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1

Package	Total	Caller Graph
Referred Care Information System	1	BMCRUTL

Entry Points

Name	Comments	DBIA/ICR reference
SECREF	;PRINT SECONDARY REF
PRINT1	;
HEAD	;ENTRY POINT
LOCAT	;Print Local Categories
HEAD2	;
HEAD1	;
PERTMED	;
PROC	;
BO	;Business office comments
NEXT	;
P	;
XIT	;
PURPOSE	;
DX	;Print either prov nar/canned nar
PRINT	;print one referral
ALT	;Alternate Resource Letter Date
BOC	;
TYPE	;Get Type
PRIPAY	;Primary Payor

External References

Name	Field # of Occurrence
DD^%DT	HEAD2+4, HEAD2+6, HEAD2+7
$$AGE^AUPNPAT	PRINT1+4
$$DOB^AUPNPAT	PRINT1+4
$$MCD^AUPNPAT	PRINT1+9
$$MCDPN^AUPNPAT	PRINT1+10
$$MCR^AUPNPAT	PRINT1+8
$$PI^AUPNPAT	PRINT1+11
$$PIN^AUPNPAT	PRINT1+12
$$SSN^AUPNPAT	PRINT1+4
$$TRIBE^AUPNPAT	PRINT1+5
KILL^AUPNPAT	XIT+3
DONE^BMCRLP2	XIT+2
$$AVDOS^BMCRLU	PRINT1+8, PRINT1+9, PRINT1+10, PRINT1+11, PRINT1+12, TYPE+3, TYPE+5, DX+8
$$AVLOS^BMCRLU	TYPE+3
$$FACREF^BMCRLU	PRINT1+14
$$REFDTI^BMCRLU	PRINT1+6
BO^BMCRUTL	PERTMED+2, BO+2
SECREF2^BMCRUTL	SECREF+1
$$GET1^DIQ	PURPOSE+3, DX+3, PROC+9
^DIR	HEAD+3
^DIWP	PURPOSE+4
$$ICDDX^ICDEX	DX+13
$$CPT^ICPTCOD	PROC+7
$$VAL^XBDIQ1	PRINT1+5, PRINT1+7, PRINT1+14, PRIPAY+1, TYPE+1, TYPE+5, BOC+2, BOC+3, ALT+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No referrals to report",! Line Location: BMCRR14P+8
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: !,"Tribe: ",$E($$TRIBE^AUPNPAT(DFN,"E"),1,20),?32,"Req Provider: ",$$VAL^XBDIQ1(90001,BMCREF,.06) Line Location: PRINT1+5
Function Call: WRITE	Prompt: !,"Referral #: ",BMCRNUMB Line Location: PRINT1+6
Function Call: WRITE	Prompt: ?32,"Date Referral Initiated: ",$$REFDTI^BMCRLU(BMCREF,"S") Line Location: PRINT1+6
Function Call: WRITE	Prompt: !,"Eligibility: ",$$VAL^XBDIQ1(9000001,DFN,1112) Line Location: PRINT1+7
Function Call: WRITE	Prompt: !,"3RD Party: " Line Location: PRINT1+8
Function Call: WRITE	Prompt: "MEDICARE" Line Location: PRINT1+8
Function Call: WRITE	Prompt: "MEDICAID: ",$$MCDPN^AUPNPAT(DFN,$$AVDOS^BMCRLU(BMCREF,"I"),"E") Line Location: PRINT1+10
Function Call: WRITE	Prompt: $$PIN^AUPNPAT(DFN,$$AVDOS^BMCRLU(BMCREF,"I"),"E") Line Location: PRINT1+12
Function Call: WRITE	Prompt: !,"Refer To:",?10,$E($$FACREF^BMCRLU(BMCREF),1,20),?32,$S($$VAL^XBDIQ1(90001,BMCREF,.09)]"":"Provider: "_$$VAL^XBDIQ1(90001,BMCREF,.09),1:"") Line Location: PRINT1+14
Function Call: WRITE	Prompt: !,"Primary Payor: "_$$VAL^XBDIQ1(90001,BMCREF,.11) Line Location: PRIPAY+1
Function Call: WRITE	Prompt: ?50,"Referral Type: "_$$VAL^XBDIQ1(90001,BMCREF,.04) Line Location: TYPE+1
Function Call: WRITE	Prompt: !,"Purpose:" Line Location: PURPOSE+2
Function Call: WRITE	Prompt: ?10,^UTILITY($J,"W",DIWL,Z,0) Line Location: PURPOSE+5
Function Call: WRITE	Prompt: !,"Dx Cat:",?10,$$GET1^DIQ(90001,BMCREF,.12) Line Location: DX+3
Function Call: WRITE	Prompt: ?10,$P(^ICPT(BMCD,0),U),?19," - ",$E($P(^ICPT(BMCD,0),U,2),1,50) Line Location: PROC+6
Function Call: WRITE	Prompt: ?10,$P($$CPT^ICPTCOD(BMCD,0),U,2),?19," - ",$E($P($$CPT^ICPTCOD(BMCD,0),U,3),1,50) Line Location: PROC+7
Function Call: WRITE	Prompt: !,"Priority: ",$$VAL^XBDIQ1(90001,BMCREF,.32)," CHS Auth Dec: ",$$VAL^XBDIQ1(90001,BMCREF,1112)," MCC Action: ",$$VAL^XBDIQ1(90001,BMCREF,1123) Line Location: BOC+2
Function Call: WRITE	Prompt: !,"Utilization Review by MD: ",$$VAL^XBDIQ1(90001,BMCREF,1125) Line Location: BOC+3
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: !,"--------------------",! Line Location: NEXT+1
Function Call: WRITE	Prompt: ! Line Location: HEAD+3
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,"WEEKLY CHS REVIEW LISTING BY DATE" Line Location: HEAD2+5
Function Call: WRITE	Prompt: !,?16,"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+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^BMCREF - [#90001]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	PRINT1+3
^AUTTLOC - [#9999999.06]	PRINT1+3
^BMCCOM("AD"	PERTMED+2, BO+2
^BMCDX - [#90001.01]	DX+6
^BMCDX("AD"	DX+4, DX+6
^BMCLCAT - [#90001.54]	LOCAT+8
^BMCPX - [#90001.02]	PROC+7
^BMCPX("AD"	PROC+2, PROC+7
^BMCREF - [#90001]	PRINT+2, PRINT1+2, LOCAT+1, LOCAT+3, LOCAT+5, LOCAT+6
^DIC(4 - [#4]	HEAD2+3
^DPT - [#2]	PRINT1+4
^UTILITY($J	PURPOSE+5, PURPOSE+7!
^XTMP("BMCRR14"	BMCRR14P+8, BMCRR14P+10, XIT+1!, P+1, PRINT+2

Label References

Name	Line Occurrences
@(	BMCRR14P+8
HEAD	PRINT+1, PRINT1+1, PRINT1+13, PURPOSE+1, PURPOSE+5, DX+1, DX+6, PROC+1, PROC+7, BOC+1 , ALT+1
P	BMCRR14P+10
PRINT	P+1
PRINT1	PRINT+2
XIT	BMCRR14P+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BMCBD	HEAD2+6
>> BMCBT	BMCRR14P+8, BMCRR14P+10, XIT+1, P+1, PRINT+2
>> BMCC	PRINT1+8, PRINT1+10, PRINT1+12
BMCCOL	PURPOSE+7!
BMCCTYP	XIT+4!, PERTMED+1, BO+1
>> BMCD	DX+6, DX+13, PROC+7
BMCDATE	BMCRR14P+10*, XIT+4!, P+1, PRINT+2
>> BMCDOS	DX+8*, DX+13
>> BMCED	HEAD2+7
BMCFILE	PURPOSE+7!
BMCG	PURPOSE+7!
>> BMCHRN	PRINT1+3*, PRINT1+4
BMCI	XIT+4!
>> BMCJOB	BMCRR14P+8, BMCRR14P+10, 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	PURPOSE+7!
BMCP	PURPOSE+2!, PURPOSE+3*, PURPOSE+4
>> BMCPG	BMCRR14P+8, HEAD2+1, HEAD2+3
>> BMCPN	BMCRR14P+9, P+1, PRINT+2
>> BMCQUIT	BMCRR14P+9, BMCRR14P+10, P+1, PRINT+1, PRINT+2, PRINT1+1, PRINT1+13, TYPE+2, PURPOSE+1, PURPOSE+5 , PURPOSE+6, PERTMED+3, DX+1, DX+6, PROC+1, PROC+7, PROC+10, BOC+1, ALT+1, BO+3 , HEAD+1, HEAD+3
>> BMCREF	PRINT+2*, PRINT1+2, PRINT1+5, PRINT1+6, PRINT1+8, PRINT1+9, PRINT1+10, PRINT1+11, PRINT1+12, PRINT1+14 , PRIPAY+1, TYPE+1, TYPE+3, TYPE+5, PURPOSE+3, PERTMED+2, DX+3, DX+4, DX+6, DX+8 , PROC+2, PROC+7, PROC+9, BOC+2, BOC+3, LOCAT+1, LOCAT+3, LOCAT+5, LOCAT+6, ALT+2 , BO+2
BMCRNUMB	XIT+4!, PRINT1+2*, PRINT1+6
>> BMCRREC	PRINT+2*, PRINT1+8, PRINT1+9, PRINT1+11, PRIPAY+1, TYPE+1, TYPE+2
C	PURPOSE+5, DX+6, PROC+4, PROC+7, HEAD+2~
>> DFN	PRINT+2*, PRINT1+3, PRINT1+4, PRINT1+5, PRINT1+7, PRINT1+8, PRINT1+9, PRINT1+10, PRINT1+11, PRINT1+12
DIR	HEAD+3!
DIR(0	HEAD+3*
DIWF	PURPOSE+4*, PURPOSE+7!
DIWL	PURPOSE+4*, PURPOSE+5, PURPOSE+7!
DIWR	PURPOSE+7!
DT	PRINT1+4, HEAD2+4
>> DTOUT	HEAD+3
DUZ(2	PRINT1+3, HEAD2+3
IO	HEAD+3
IO(0	HEAD+3
IOF	HEAD1+1
IOSL	PRINT+1, PRINT1+1, PRINT1+13, PURPOSE+1, PURPOSE+5, DX+1, DX+6, PROC+1, PROC+7, BOC+1 , ALT+1
IOST	BMCRR14P+8, HEAD+3
U	PRINT+2, PRINT1+2, PRINT1+3, PRINT1+4, PRINT1+8, PRINT1+9, PRINT1+11, PRIPAY+1, TYPE+1, TYPE+2 , DX+13, PROC+7, LOCAT+6, LOCAT+8, HEAD2+3
X	PURPOSE+4, DX+6, PROC+4, PROC+7, HEAD+2~
Y	HEAD+2~, HEAD+3, HEAD2+4, HEAD2+6, HEAD2+7*
Z	PURPOSE+5*, PURPOSE+7!, HEAD+2~

Customize PDF page

Package: Referred Care Information System

Routine: BMCRR14P

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: