Routine: BMCRCRVP

Package	Total	Call Graph
Referred Care Information System	2	WP^BMCFDR DONE^BMCRLP2
IHS Patient	1	($$AGE,$$DOB,$$SSN,KILL)^AUPNPAT
VA Fileman	1	^DIR

Package

Total

Call Graph

Referred Care Information System

WP^BMCFDR DONE^BMCRLP2

IHS Patient

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

VA Fileman

^DIR

Entry Points

Name	Comments	DBIA/ICR reference
PRINT1	;
COMMENT	;
HEAD	;ENTRY POINT
LOCAT	;Print Local Categories
HEAD2	;
HEAD1	;
PROC	;
NEXT	;
P	;
XIT	;
PURPOSE	;
DX	;Print either prov narrative/canned narrative
PRINT	;print one referral
BOC	;
TYPE	;
PRIPAY	;Primary Payor

Name	Field # of Occurrence
$$AGE^AUPNPAT	PRINT1+3
$$DOB^AUPNPAT	PRINT1+3
$$SSN^AUPNPAT	PRINT1+3
KILL^AUPNPAT	XIT+3
WP^BMCFDR	COMMENT+2
DONE^BMCRLP2	XIT+2
^DIR	HEAD+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No referrals to report",! Line Location: BMCRCRVP+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+3
Function Call: WRITE	Prompt: !!,BMCCDT Line Location: PRINT1+4
Function Call: WRITE	Prompt: !,BMCRREC Line Location: PRINT1+5
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(BMCCDT,"I"),"E") Line Location: PRINT1+10
Function Call: WRITE	Prompt: $$PIN^AUPNPAT(DFN,$$AVDOS^BMCRLU(BMCCDT,"I"),"E") Line Location: PRINT1+12
Function Call: WRITE	Prompt: !,"Primary Payor: "_$$VAL^XBDIQ1(90001,BMCCDT,.11) Line Location: PRIPAY+1
Function Call: WRITE	Prompt: ?50,"Referral Type: "_$$VAL^XBDIQ1(90001,BMCCDT,.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: ?10,$P(^ICPT(BMCD,0),U),?19," - ",$E($P(^ICPT(BMCD,0),U,2),1,50) Line Location: PROC+4
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: ?21,"WEEKLY CHS REVIEW LISTING BY DATE" Line Location: HEAD2+4
Function Call: WRITE	Prompt: !,$TR($J(" ",80)," ","-") Line Location: HEAD2+5
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
^DIC(4 - [#4]	HEAD2+3
^DPT - [#2]	PRINT1+3
^XTMP("BMCRCRV"	BMCRCRVP+5, BMCRCRVP+7, XIT+1!, P+1, PRINT+2

Name	Line Occurrences
@(	BMCRCRVP+5
HEAD	PRINT+1, PRINT1+1, PRINT1+13, COMMENT+4
P	BMCRCRVP+7
PRINT	P+1
PRINT1	PRINT+2
XIT	BMCRCRVP+5

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BMCBT	BMCRCRVP+5, BMCRCRVP+7, XIT+1, P+1, PRINT+2
>> BMCCDT	PRINT+2*, PRINT1+4, COMMENT+2
>> BMCDA	COMMENT+2*
BMCDATE	BMCRCRVP+7*, XIT+4!, P+1, PRINT+2
>> BMCFILE	COMMENT+2*
>> BMCHRN	PRINT1+2*, PRINT1+3
BMCIOM	COMMENT+2*!
>> BMCJOB	BMCRCRVP+5, BMCRCRVP+7, XIT+1, P+1, PRINT+2
>> BMCNODE	COMMENT+2*
>> BMCPG	BMCRCRVP+5, HEAD2+1, HEAD2+3
>> BMCPN	BMCRCRVP+6, P+1, PRINT+2
>> BMCQUIT	BMCRCRVP+6, BMCRCRVP+7, P+1, PRINT+1, PRINT+2, PRINT1+1, PRINT1+13, COMMENT+3, COMMENT+4, COMMENT+6 , HEAD+2
>> BMCRREC	PRINT+2*, PRINT1+5
>> BMCWP(	COMMENT+3, COMMENT+5
C	HEAD+1~
>> DFN	PRINT+2*, PRINT1+2, PRINT1+3
DIR	HEAD+2!
DIR(0	HEAD+2*
DT	PRINT1+3
>> DTOUT	HEAD+2
DUZ(2	PRINT1+2, HEAD2+3
IO	HEAD+2
IO(0	HEAD+2
IOF	HEAD1+1
IOSL	PRINT+1, PRINT1+1, PRINT1+13, COMMENT+4
IOST	BMCRCRVP+5, HEAD+2
U	PRINT+2, PRINT1+2, PRINT1+3, HEAD2+3
X	HEAD+1~
Y	COMMENT+3*, COMMENT+5, HEAD+1~, HEAD+2
Z	HEAD+1~

Customize PDF page

Package: Referred Care Information System

Routine: BMCRCRVP

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: