Routine: BMCRR8P

Information

BMCRR8P ; IHS/PHXAO/TMJ - PRNT BILL VSTS;POT HIGH COST CASES ; [ 09/27/2006 2:16 PM ]

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
VA Fileman	4	DD^%DT $$GET1^DIQ ^DIR ^DIWP
DRG Grouper	2	$$ICDDX^ICDEX $$CPT^ICPTCOD
Referred Care Information System	2	DONE^BMCRLP2 ($$AVDOS,$$FACREF)^BMCRLU
IHS Patient	1	($$BEN,$$ELIGSTAT,$$MCD,$$MCDPN,$$MCR,$$PI,$$PIN)^AUPNPAT
IHS VA Utilities	1	($$VAL,$$VALI,ENP)^XBDIQ1

Entry Points

Name	Comments	DBIA/ICR reference
PRINT1	;
HEAD	;ENTRY POINT
HEAD1	;
THIRD	;Third Party Coverage
START	;
DFN	;
DONE	;
PURPOSE	;
DX	;
PRINT	;print one referral
PROC	;
HEAD2	;

External References

Name	Field # of Occurrence
DD^%DT	HEAD2+5, HEAD2+6
$$BEN^AUPNPAT	THIRD+6
$$ELIGSTAT^AUPNPAT	THIRD+9
$$MCD^AUPNPAT	THIRD+18
$$MCDPN^AUPNPAT	THIRD+16
$$MCR^AUPNPAT	THIRD+14
$$PI^AUPNPAT	THIRD+22
$$PIN^AUPNPAT	THIRD+20
DONE^BMCRLP2	DONE+2
$$AVDOS^BMCRLU	PRINT1+2, DX+4
$$FACREF^BMCRLU	PRINT1+9
$$GET1^DIQ	PURPOSE+3, DX+11, PROC+9
^DIR	HEAD+1
^DIWP	PURPOSE+5
$$ICDDX^ICDEX	DX+9
$$CPT^ICPTCOD	PROC+7
$$VAL^XBDIQ1	PRINT1+7, PRINT1+8, PRINT1+12
$$VALI^XBDIQ1	PRINT1+3
ENP^XBDIQ1	THIRD+26

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No referrals to report",! Line Location: START+3
Function Call: WRITE	Prompt: !,$$AVDOS^BMCRLU(BMCREF,"C") Line Location: PRINT1+2
Function Call: WRITE	Prompt: ?13,$$VALI^XBDIQ1(90001,BMCREF,.15) Line Location: PRINT1+3
Function Call: WRITE	Prompt: ?17,BMCHRN Line Location: PRINT1+5
Function Call: WRITE	Prompt: ?28,$E($P(^DPT(DFN,0),U),1,20) Line Location: PRINT1+6
Function Call: WRITE	Prompt: ?49,$S($P(BMCRREC,U,6):$$VAL^XBDIQ1(200,$P(BMCRREC,U,6),1),1:"--") Line Location: PRINT1+7
Function Call: WRITE	Prompt: ?54,$E($$VAL^XBDIQ1(90001,BMCREF,.04),1,3) Line Location: PRINT1+8
Function Call: WRITE	Prompt: ?59,$E(BMCFAC,1,20) Line Location: PRINT1+11
Function Call: WRITE	Prompt: !?59,$E($$VAL^XBDIQ1(90001,BMCREF,.09),1,20) Line Location: PRINT1+12
Function Call: WRITE	Prompt: !,"Purpose:" Line Location: PURPOSE+2
Function Call: WRITE	Prompt: ?12,^UTILITY($J,"W",DIWL,Z,0) Line Location: PURPOSE+6
Function Call: WRITE	Prompt: ?12,$P(^ICD9(BMCD,0),U),?19," - ",$E($P(^ICD9(BMCD,0),U,3),1,50) Line Location: DX+7
Function Call: WRITE	Prompt: ?12,$P($$ICDDX^ICDCODE(BMCD,0),U,2),?19," - ",$E($P($$ICDDX^ICDCODE(BMCD,0),U,4),1,50) Line Location: DX+8
Function Call: WRITE	Prompt: ?12,$P($$ICDDX^ICDEX(BMCD,BMCDOS,,"I"),U,2),?19," - ",$E($P($$ICDDX^ICDEX(BMCD,BMCDOS,,"I"),U,4),1,50) Line Location: DX+9
Function Call: WRITE	Prompt: ?12,$P(^ICPT(BMCD,0),U),?19," - ",$E($P(^ICPT(BMCD,0),U,2),1,50) Line Location: PROC+6
Function Call: WRITE	Prompt: ?12,$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: BMCMSG(BMCI),! Line Location: THIRD+30
Function Call: WRITE	Prompt: !,"--------------------",! Line Location: THIRD+32
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: ?17,"BEG DATE: "_Y Line Location: HEAD2+5
Function Call: WRITE	Prompt: ?40,"END DATE: "_Y,! Line Location: HEAD2+6
Function Call: WRITE	Prompt: ?(80-$L(X))/2,X,! Line Location: HEAD2+8
Function Call: WRITE	Prompt: !,?49,"REF" Line Location: HEAD2+9
Function Call: WRITE	Prompt: !,"BEGIN D.O.S.",?13,"ST",?17,"HRN",?28,"PATIENT NAME",?49,"PROV",?54,"TYPE",?59,"FACILITY REFERRED TO" Line Location: HEAD2+10
Function Call: WRITE	Prompt: !,BMC80D Line Location: HEAD2+11
Routine Call	DIR Line Location: HEAD+1

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	PRINT1+4, THIRD+24
^AUTTLOC - [#9999999.06]	PRINT1+4
^BMCDX - [#90001.01]	DX+9
^BMCDX("AD"	DX+2, DX+5
^BMCPX - [#90001.02]	PROC+7
^BMCPX("AD"	PROC+2, PROC+7
^BMCREF - [#90001]	PRINT+1
^DIC(4 - [#4]	HEAD2+3
^DPT - [#2]	PRINT1+6
^UTILITY($J	PURPOSE+6, PURPOSE+7!
^XTMP("BMCRR8"	START+3, START+5, DONE+1!, DFN+1, PRINT+1

Label References

Name	Line Occurrences
@(	START+3
DFN	START+5
DONE	START+3, START+6, START+7
HEAD	START+7, PRINT1+1, PURPOSE+1, PURPOSE+6, DX+1, DX+9, PROC+1, PROC+7
PRINT	DFN+1
PRINT1	PRINT+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BMC80D	START+2*, HEAD2+11
>> BMC80E	START+1*
BMCAR	THIRD+26!
BMCAR(1301	THIRD+27
>> BMCBD	HEAD2+5
>> BMCBTH	START+3, START+5, DONE+1, DFN+1, PRINT+1
BMCCOL	PURPOSE+7!
>> BMCD	DX+9, PROC+7
>> BMCDOS	DX+4*, DX+9
>> BMCED	HEAD2+6
BMCELG	THIRD+12~, THIRD+13*, THIRD+23
>> BMCFAC	PRINT1+9, PRINT1+10, PRINT1+11
BMCFILE	PURPOSE+7!
BMCG	PURPOSE+7!
>> BMCHRN	PRINT1+4*, PRINT1+5
BMCI	THIRD+4~, THIRD+5, THIRD+8, THIRD+11, THIRD+13, THIRD+14, THIRD+18, THIRD+22, THIRD+23, THIRD+25 , THIRD+27, THIRD+28, THIRD+29, THIRD+30*
>> BMCJOB	START+3, START+5, DONE+1, DFN+1, PRINT+1
BMCMSG	THIRD+4~
BMCMSG(	THIRD+8, THIRD+11, THIRD+14, THIRD+18, THIRD+22, THIRD+23, THIRD+25, THIRD+27, THIRD+30
BMCNODE	PURPOSE+7!
BMCP	PURPOSE+2!, PURPOSE+3*
BMCP(	PURPOSE+4, PURPOSE+5
>> BMCPG	START+3, HEAD2+1, HEAD2+3
>> BMCPN	START+4, START+5, DFN+1, PRINT+1
BMCQUIT	START+4!, START+5, START+6, START+7, DFN+1, PRINT+1, PRINT1+1, PURPOSE+1, PURPOSE+4, PURPOSE+6 , DX+1, DX+5, DX+9, PROC+1, PROC+7, HEAD+1*
>> BMCRDATE	THIRD+3*, THIRD+14, THIRD+16, THIRD+18, THIRD+20, THIRD+22
>> BMCREF	PRINT+1*, PRINT1+2, PRINT1+3, PRINT1+8, PRINT1+9, PRINT1+12, PURPOSE+3, DX+2, DX+4, DX+5 , DX+11, PROC+2, PROC+7, PROC+9
>> BMCRREC	PRINT+1*, PRINT1+7
BMCX	PURPOSE+4, PURPOSE+5, THIRD+4~, THIRD+6, THIRD+7, THIRD+8, THIRD+9, THIRD+10, THIRD+11, THIRD+16 , THIRD+17, THIRD+18, THIRD+20, THIRD+21*, THIRD+22
>> C	PURPOSE+6, DX+5, DX+9, PROC+4, PROC+7*
>> DFN	DFN+1*, PRINT+1, PRINT1+4, PRINT1+6, THIRD+2, THIRD+6, THIRD+9, THIRD+14, THIRD+16, THIRD+18 , THIRD+20, THIRD+22, THIRD+24, THIRD+26
DIR	HEAD+1!
DIR(0	HEAD+1*
DIWF	PURPOSE+4*, PURPOSE+7!
DIWL	PURPOSE+4*, PURPOSE+6, PURPOSE+7!
DIWR	PURPOSE+7!
DT	THIRD+3
>> DTOUT	HEAD+1
DUZ(2	PRINT1+4, HEAD2+3
>> I	THIRD+27*
IO	HEAD+1
IO(0	HEAD+1
IOF	HEAD1+1
IOSL	START+7, PRINT1+1, PURPOSE+1, PURPOSE+6, DX+1, DX+9, PROC+1, PROC+7
IOST	START+3, HEAD+1
U	PRINT1+4, PRINT1+6, PRINT1+7, DX+9, PROC+7, HEAD2+3
>> X	PURPOSE+5, DX+5, DX+9, PROC+4, PROC+7, HEAD2+7*, HEAD2+8
>> Y	HEAD+1, HEAD2+5, HEAD2+6
Z	PURPOSE+6*, PURPOSE+7!

Customize PDF page

Package: Referred Care Information System

Routine: BMCRR8P

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: