Routine: BMCRR19P

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

Entry Points

Name	Comments	DBIA/ICR reference
SECREF	;Secondary Referral
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
BOC	;
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+8
$$MCDPN^AUPNPAT	PRINT1+9
$$MCR^AUPNPAT	PRINT1+7
$$PI^AUPNPAT	PRINT1+10
$$PIN^AUPNPAT	PRINT1+11
$$SSN^AUPNPAT	PRINT1+4
$$TRIBE^AUPNPAT	PRINT1+5
KILL^AUPNPAT	XIT+3
DONE^BMCRLP2	XIT+2
$$AVDOS^BMCRLU	PRINT1+7, PRINT1+8, PRINT1+9, PRINT1+10, PRINT1+11, TYPE+3, TYPE+5, DX+5
$$AVLOS^BMCRLU	TYPE+3
$$FACREF^BMCRLU	PRINT1+13
$$REFDTI^BMCRLU	PRINT1+6
BO^BMCRUTL	PERTMED+2, BO+2
SECREF2^BMCRUTL	SECREF+1
$$GET1^DIQ	PURPOSE+3, DX+2, PROC+9
^DIR	HEAD+2
^DIWP	PURPOSE+4
$$ICDDX^ICDEX	DX+11
$$CPT^ICPTCOD	PROC+7
$$VAL^XBDIQ1	PRINT1+5, PRINT1+13, PRIPAY+1, TYPE+1, TYPE+5, BOC+2, BOC+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No referrals to report",! Line Location: BMCRR19P+7
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: !,"3RD Party: " Line Location: PRINT1+7
Function Call: WRITE	Prompt: "MEDICARE" Line Location: PRINT1+7
Function Call: WRITE	Prompt: "MEDICAID: ",$$MCDPN^AUPNPAT(DFN,$$AVDOS^BMCRLU(BMCREF,"I"),"E") Line Location: PRINT1+9
Function Call: WRITE	Prompt: $$PIN^AUPNPAT(DFN,$$AVDOS^BMCRLU(BMCREF,"I"),"E") Line Location: PRINT1+11
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+13
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+2
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: !,"--------------------",! 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,"WEEKLY CHS REVIEW LISTING BY DATE" 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

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
^AUTNPOV - [#9999999.27]	DX+11
^AUTTLOC - [#9999999.06]	PRINT1+3
^BMCCOM("AD"	PERTMED+2, BO+2
^BMCDX - [#90001.01]	DX+6, DX+7
^BMCDX("AD"	DX+3, DX+6
^BMCLCAT - [#90001.54]	LOCAT+8
^BMCPX - [#90001.02]	PROC+7
^BMCPX("AD"	PROC+2, PROC+7
^BMCREF - [#90001]	PRINT+2, PRINT1+1, LOCAT+1, LOCAT+3, LOCAT+5, LOCAT+6
^DIC(4 - [#4]	HEAD2+3
^DPT - [#2]	PRINT1+4
^UTILITY($J	PURPOSE+5, PURPOSE+7!
^XTMP("BMCRR19"	BMCRR19P+7, BMCRR19P+9, XIT+1!, P+1, PRINT+2

Label References

Name	Line Occurrences
@(	BMCRR19P+7
HEAD	PRINT+1, PRINT1+2, PRINT1+12, PURPOSE+1, PURPOSE+5, DX+1, DX+6, PROC+1, PROC+7, BOC+1
P	BMCRR19P+9
PRINT	P+1
PRINT1	PRINT+2
XIT	BMCRR19P+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Referred Care Information System

Routine: BMCRR19P

Information

Source Information

Call Graph

Call Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: