Routine: BMCRR17P

Package	Total	Call Graph
VA Fileman	3	$$GET1^DIQ ^DIR ^DIWP
Referred Care Information System	2	DONE^BMCRLP2 $$AVDOS^BMCRLU
DRG Grouper	1	$$ICDDX^ICDEX
IHS Patient	1	($$HRN,$$MCD,$$MCR,$$PI)^AUPNPAT
IHS VA Utilities	1	($$VAL,$$VALI)^XBDIQ1
Kernel	1	$$FMTE^XLFDT

Entry Points

Name	Comments	DBIA/ICR reference
PRINT1	;
HEAD	;ENTRY POINT
HEAD2	;
HEAD1	;
COMMENTS	;
WPS	;EP
START	;
DONE	;
DX	;
WP	;EP - Entry point to print wp fields pass node in BMCNODE
PRINT	;print one referral

External References

Name	Field # of Occurrence
$$HRN^AUPNPAT	PRINT1+2
$$MCD^AUPNPAT	DX+22
$$MCR^AUPNPAT	DX+21
$$PI^AUPNPAT	DX+23
DONE^BMCRLP2	DONE+2
$$AVDOS^BMCRLU	DX+3, DX+11, DX+21, DX+22, DX+23
$$GET1^DIQ	DX+9
^DIR	HEAD+1
^DIWP	WP+6
$$ICDDX^ICDEX	DX+7
$$VAL^XBDIQ1	DX+12, DX+13, DX+19
$$VALI^XBDIQ1	DX+24
$$FMTE^XLFDT	COMMENTS+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No referrals to report",! Line Location: START+3
Function Call: WRITE	Prompt: !!!,"NOTE: ",BMCNOES," referrals were missing an estimated Length of Stay value",!,"and were not included on this report.",! Line Location: START+8
Function Call: WRITE	Prompt: !!,$S(BMCSTYPE="F":"FACILITY REFERRED TO: ",BMCSTYPE="C":"CASE MANAGER: ",BMCSTYPE="P":"PATIENT NAME: ",1:"???: "),BMCSORT,! Line Location: PRINT+3
Function Call: WRITE	Prompt: !,BMCHRN Line Location: PRINT1+3
Function Call: WRITE	Prompt: ?9,$P(BMCX(1),U),?37,$P(BMCX(1),U,2) Line Location: DX+10
Function Call: WRITE	Prompt: ?46,$$AVDOS^BMCRLU(BMCREF,"C") Line Location: DX+11
Function Call: WRITE	Prompt: ?61,$$VAL^XBDIQ1(90001,BMCREF,.1499) Line Location: DX+12
Function Call: WRITE	Prompt: ?72,O Line Location: DX+14
Function Call: WRITE	Prompt: !,"Purpose: "_$$VAL^XBDIQ1(90001,BMCREF,1201),! Line Location: DX+19
Function Call: WRITE	Prompt: !?9,"REVIEWED",?20,"BY ",?26,"CASE REVIEW COMMENTS",?52,"3RD PARTY: " Line Location: DX+20
Function Call: WRITE	Prompt: ?64,O,?70,"ELIG: ",$$VALI^XBDIQ1(9000001,DFN,1112),! Line Location: DX+24
Function Call: WRITE	Prompt: ?9,"-------- --- --- -------------------" Line Location: DX+25
Function Call: WRITE	Prompt: !?26,"<No comments on file.>",! Line Location: COMMENTS+1
Function Call: WRITE	Prompt: !?9,$$FMTE^XLFDT(Y,"5D") Line Location: COMMENTS+4
Function Call: WRITE	Prompt: ?20,Y Line Location: COMMENTS+5
Function Call: WRITE	Prompt: ?26,BMCSTR(Z) Line Location: COMMENTS+9
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
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: ?33,"OUTLIER REPORT" Line Location: HEAD2+4
Function Call: WRITE	Prompt: !,"HRCN",?9,"DX CATEGORY/DX",?36,"ICD-9CM",?45,"ADM DATE",?57,"ACTUAL LOS",?71,"OUTLIER" Line Location: HEAD2+5
Function Call: WRITE	Prompt: !,BMC80D Line Location: HEAD2+6
Routine Call	DIR Line Location: HEAD+1

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BMCCOM - [#90001.03]	COMMENTS+3, COMMENTS+4, COMMENTS+5
^BMCCOM("AD"	COMMENTS+1, COMMENTS+2
^BMCDX - [#90001.01]	DX+7
^BMCDX("AD"	DX+1, DX+7
^BMCREF - [#90001]	PRINT+4
^DIC - [#1]	WP+4
^DIC(4 - [#4]	HEAD2+3
^UTILITY($J	WP+2!, WPS+1, WPS+3!
^VA(200 - [#200]	COMMENTS+5
^XTMP("BMCRR17"	START+3, START+5, DONE+1!, PRINT+4

Label References

Name	Line Occurrences
@(	START+3
DONE	START+3, START+6, START+7
HEAD	START+7, PRINT+1, PRINT+2, PRINT1+1, DX+16, DX+18, COMMENTS+8, COMMENTS+11
PRINT	START+5
PRINT1	PRINT+4
WP	COMMENTS+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BMC80D	START+2*, HEAD2+6
>> BMC80E	START+1*
>> BMCBT	START+3, START+5, DONE+1, PRINT+4
BMCCOL	WPS+3!
>> BMCD	DX+7*
>> BMCDOS	DX+3*, DX+7
BMCFILE	WP+4, WPS+3!
BMCG	COMMENTS+6, WP+4, WP+5, WP+6, WPS+3!
>> BMCHRN	PRINT1+2*, PRINT1+3
>> BMCI	COMMENTS+2*, COMMENTS+3, COMMENTS+4, COMMENTS+5, COMMENTS+6
>> BMCJOB	START+3, START+5, DONE+1, PRINT+4
BMCNODE	WP+4, WPS+3!
>> BMCNOES	START+8
>> BMCPG	START+3, PRINT+1, HEAD2+1, HEAD2+3
BMCQUIT	START+4!, START+5, START+6, START+7, PRINT+1, PRINT+2, PRINT+4, PRINT1+1, DX+7, DX+15 , DX+16, DX+18, COMMENTS+2, COMMENTS+7, COMMENTS+8, COMMENTS+11, WP+5, WPS+1, HEAD+1*
>> BMCREF	PRINT+4*, DX+1, DX+3, DX+7, DX+9, DX+11, DX+12, DX+13, DX+19, DX+21 , DX+22, DX+23, COMMENTS+1, COMMENTS+2, WP+4
>> BMCRREC	PRINT+4*
>> BMCSORT	START+4, START+5, PRINT+3, PRINT+4
>> BMCSPAGE	PRINT+1
BMCSTR	WPS+1!
BMCSTR(	COMMENTS+7, COMMENTS+9, WPS+1*
>> BMCSTYPE	PRINT+3
BMCX	DX+2!, WP+3, WP+5
BMCX(	DX+7*, DX+15, DX+17
BMCX(1	DX+9*, DX+10
>> C	DX+2, DX+7
>> DFN	PRINT+4*, PRINT1+2, DX+21, DX+22, DX+23, DX+24
DIR	HEAD+1!
DIR(0	HEAD+1*
DIWF	WP+5*, WPS+2!
DIWL	WP+5*, WPS+1, WPS+2!
DIWR	WP+5*, WPS+2!
DT	DX+21, DX+22, DX+23
>> DTOUT	HEAD+1
DUZ(2	PRINT1+2, HEAD2+3
IO	HEAD+1
IO(0	HEAD+1
IOF	HEAD1+1
IOSL	START+7, PRINT+2, PRINT1+1, DX+16, DX+18, COMMENTS+8, COMMENTS+11
IOST	START+3, HEAD+1
>> O	DX+13, DX+14, DX+21, DX+22, DX+23, DX+24
U	PRINT+4, DX+7, DX+9, DX+10, DX+17, COMMENTS+3, COMMENTS+4, COMMENTS+5, HEAD2+3
>> X	DX+2, DX+7, WP+6*
>> Y	COMMENTS+4, COMMENTS+5, WP+6*, HEAD+1
Z	DX+15, DX+17, COMMENTS+7, COMMENTS+9, WPS+1*, WPS+2!

Customize PDF page

Package: Referred Care Information System

Routine: BMCRR17P

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: