Routine: BMCRR2P

Information

BMCRR2P ; IHS/PHXAO/TMJ - PRNT BILL VSTS;INPATIENT REF LOG REPORT ; [ 09/27/2006 2:07 PM ]

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Referred Care Information System	3	DONE^BMCRLP2 ($$AVDOS,$$AVLOS,$$FACREF)^BMCRLU SECREF2^BMCRUTL
VA Fileman	3	$$GET1^DIQ ^DIR ^DIWP
DRG Grouper	2	$$ICDDX^ICDEX $$CPT^ICPTCOD
IHS Patient	1	($$AGE,$$DOB,$$MCD,$$MCR,$$PI,$$TRIBE)^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1
Kernel	1	($$FMTE,$$HTFM)^XLFDT

Entry Points

Name	Comments	DBIA/ICR reference
SECREF	;Secondary Referral
PRINT1	;
HEAD	;ENTRY POINT
PRINT2	;Print for Summary Report Listing Only
HEAD2	;
HEAD1	;
START	;
DONE	;
PURPOSE	;
DX	;
PRINT	;print one referral
PROC	;

External References

Name	Field # of Occurrence
$$AGE^AUPNPAT	PRINT1+3
$$DOB^AUPNPAT	PRINT1+3, PRINT2+5
$$MCD^AUPNPAT	PRINT1+6
$$MCR^AUPNPAT	PRINT1+5
$$PI^AUPNPAT	PRINT1+7
$$TRIBE^AUPNPAT	PRINT1+4
DONE^BMCRLP2	DONE+2
$$AVDOS^BMCRLU	PRINT1+5, PRINT1+6, PRINT1+7, SECREF+4, DX+4, PRINT2+5
$$AVLOS^BMCRLU	SECREF+4
$$FACREF^BMCRLU	SECREF+3, PRINT2+5
SECREF2^BMCRUTL	SECREF+2
$$GET1^DIQ	PURPOSE+3, DX+10, PROC+8
^DIR	HEAD+1
^DIWP	PURPOSE+4
$$ICDDX^ICDEX	DX+9
$$CPT^ICPTCOD	PROC+7
$$VAL^XBDIQ1	PRINT1+8, PRINT1+12, SECREF+3, SECREF+4, PRINT2+5
$$FMTE^XLFDT	HEAD2+5
$$HTFM^XLFDT	HEAD2+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No referrals to report",! Line Location: START+5
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: !,"Name:",?12,$E($P(^DPT(DFN,0),U),1,20),?34,"HRN:",?39,BMCHRN,?50,"DOB: ",$$DOB^AUPNPAT(DFN,"E")," ",$$AGE^AUPNPAT(DFN,DT,"R") Line Location: PRINT1+3
Function Call: WRITE	Prompt: !,"Tribe:",?12,$E($$TRIBE^AUPNPAT(DFN,"E"),1,20),?34,"3RD Party Elig:" Line Location: PRINT1+4
Function Call: WRITE	Prompt: ?48,$S($$MCR^AUPNPAT(DFN,$S($$AVDOS^BMCRLU(BMCREF,"I")]"":$$AVDOS^BMCRLU(BMCREF,"I"),1:DT)):"MEDICARE",1:"") Line Location: PRINT1+5
Function Call: WRITE	Prompt: " ",$S($$MCD^AUPNPAT(DFN,$S($$AVDOS^BMCRLU(BMCREF,"I")]"":$$AVDOS^BMCRLU(BMCREF,"I"),1:DT)):"MEDICAID",1:"") Line Location: PRINT1+6
Function Call: WRITE	Prompt: " ",$S($$PI^AUPNPAT(DFN,$S($$AVDOS^BMCRLU(BMCREF,"I")]"":$$AVDOS^BMCRLU(BMCREF,"I"),1:DT)):"PRVT INS",1:"") Line Location: PRINT1+7
Function Call: WRITE	Prompt: !,"Case Man: ",?11,$E($$VAL^XBDIQ1(90001,BMCREF,.19),1,20),?34,"Nxt Rev Dt:",?40,$$VAL^XBDIQ1(90001,BMCREF,.31) Line Location: PRINT1+8
Function Call: WRITE	Prompt: !,"Referral #: " Line Location: PRINT1+11
Function Call: WRITE	Prompt: ?12,BMCRNUMB,$P($G(^BMCREF(BMCREF,1)),U) Line Location: PRINT1+11
Function Call: WRITE	Prompt: ?34,"Ref Phy: " Line Location: PRINT1+12
Function Call: WRITE	Prompt: ?40,$$VAL^XBDIQ1(90001,BMCREF,.06) Line Location: PRINT1+12
Function Call: WRITE	Prompt: !,"Facility:",?12,$E($$FACREF^BMCRLU(BMCREF),1,20),?34,"Provider: ",$$VAL^XBDIQ1(90001,BMCREF,.09) Line Location: SECREF+3
Function Call: WRITE	Prompt: !,"Adm Date:",?12,$$AVDOS^BMCRLU(BMCREF,"C"),?34,"LOS:",?39,$$AVLOS^BMCRLU(BMCREF,"C"),?50,"LOS to date: ",$$VAL^XBDIQ1(90001,BMCREF,.1499) Line Location: SECREF+4
Function Call: WRITE	Prompt: !,"Purpose:" Line Location: PURPOSE+2
Function Call: WRITE	Prompt: ?12,^UTILITY($J,"W",DIWL,Z,0) Line Location: PURPOSE+5
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: !,"Dx Cat:",?12,$$GET1^DIQ(90001,BMCREF,.12) Line Location: DX+10
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: !,"Srv Cat:",?12,$$GET1^DIQ(90001,BMCREF,.13) Line Location: PROC+8
Function Call: WRITE	Prompt: !,"--------------------",! Line Location: PROC+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: ?29,"INPATIENT REFERRAL LOG" Line Location: HEAD2+4
Function Call: WRITE	Prompt: !!,"Report Run Date: ",$$FMTE^XLFDT($$HTFM^XLFDT($H),"1P") Line Location: HEAD2+5
Function Call: WRITE	Prompt: !,$S(BMCOUTP="S":BMC132D,1:BMC80D) Line Location: HEAD2+8
Function Call: WRITE	Prompt: !,$E($P(^DPT(DFN,0),U),1,15),?17,BMCHRN,?27,$$DOB^AUPNPAT(DFN,"E"),?41,$E($$FACREF^BMCRLU(BMCREF),1,15),?58,$$VAL^XBDIQ1(90001,BMCREF,.09),?70,$$AVDOS^BMCRLU(BMCREF,"C") Line Location: PRINT2+5
Function Call: WRITE	Prompt: ?83,$E(BMCPURPP,1,35) Line Location: PRINT2+8
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+2, PRINT2+3
^AUTTLOC - [#9999999.06]	PRINT1+2, PRINT2+3
^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+4, PRINT+6, PRINT1+10, PRINT1+11, SECREF+1, PRINT2+6
^DIC(4 - [#4]	HEAD2+3
^DPT - [#2]	PRINT1+3, PRINT2+5
^UTILITY($J	PURPOSE+5, PURPOSE+6!
^XTMP("BMCRR2"	START+5, START+7, DONE+1!, PRINT+4

Label References

Name	Line Occurrences
@(	START+5
DONE	START+5, START+8, START+9
HEAD	START+9, PRINT+1, PRINT+2, PRINT1+1, PRINT1+13, PURPOSE+1, PURPOSE+5, DX+1, DX+9, PROC+1 , PROC+7, PRINT2+1
PRINT	START+7
PRINT1	PRINT+8
PRINT2	PRINT+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BMC132D	START+3*, HEAD2+8
>> BMC132E	START+4*
>> BMC80D	START+2*, HEAD2+8
>> BMC80E	START+1*
>> BMCBT	START+5, START+7, DONE+1, PRINT+4
BMCCOL	PURPOSE+6!
>> BMCD	DX+9, PROC+7
>> BMCDOS	DX+4*, DX+9
BMCFILE	PURPOSE+6!
BMCG	PURPOSE+6!
>> BMCHRN	PRINT1+2, PRINT1+3, PRINT2+3, PRINT2+5
>> BMCJOB	START+5, START+7, DONE+1, PRINT+4
BMCNODE	PURPOSE+6!
>> BMCOUTP	PRINT+7, HEAD2+6, HEAD2+8
BMCP	PURPOSE+2!, PURPOSE+3*, PURPOSE+4
>> BMCPG	START+5, PRINT+1, HEAD2+1, HEAD2+3
>> BMCPURP	PRINT2+6*, PRINT2+7
>> BMCPURPP	PRINT2+7*, PRINT2+8
BMCQUIT	START+6!, START+7, START+8, START+9, PRINT+1, PRINT+2, PRINT+4, PRINT1+1, PRINT1+13, PURPOSE+1 , PURPOSE+5, DX+1, DX+5, DX+9, PROC+1, PROC+7, HEAD+1*, PRINT2+1
>> BMCREF	PRINT+4*, PRINT+6, PRINT1+5, PRINT1+6, PRINT1+7, PRINT1+8, PRINT1+10, PRINT1+11, PRINT1+12, SECREF+1 , SECREF+3, SECREF+4, PURPOSE+3, DX+2, DX+4, DX+5, DX+10, PROC+2, PROC+7, PROC+8 , PRINT2+5, PRINT2+6
>> BMCRNUMB	PRINT1+10*, PRINT1+11
>> BMCRREC	PRINT+4*
>> BMCSORT	START+6, START+7, PRINT+3, PRINT+4
>> BMCSPAGE	PRINT+1
BMCSTST	DONE+1!, SECREF+1*
>> BMCSTYPE	PRINT+3
>> BMCTYPR	PRINT+6
>> C	PURPOSE+5, DX+5, DX+9, PROC+4, PROC+7*
>> DFN	PRINT+4*, PRINT1+2, PRINT1+3, PRINT1+4, PRINT1+5, PRINT1+6, PRINT1+7, PRINT2+3, PRINT2+5
DIR	HEAD+1!
DIR(0	HEAD+1*
DIWF	PURPOSE+4*, PURPOSE+6!
DIWL	PURPOSE+4*, PURPOSE+5, PURPOSE+6!
DIWR	PURPOSE+6!
DT	PRINT1+3, PRINT1+5, PRINT1+6, PRINT1+7
>> DTOUT	HEAD+1
DUZ(2	PRINT1+2, HEAD2+3, PRINT2+3
DX	DONE+1!, DX+5*, DX+9
IO	HEAD+1
IO(0	HEAD+1
IOF	HEAD1+1
IOSL	START+9, PRINT+2, PRINT1+1, PRINT1+13, PURPOSE+1, PURPOSE+5, DX+1, DX+9, PROC+1, PROC+7 , PRINT2+1
IOST	START+5, HEAD+1
U	PRINT+4, PRINT+6, PRINT1+2, PRINT1+3, PRINT1+10, PRINT1+11, SECREF+1, DX+9, PROC+7, HEAD2+3 , PRINT2+3, PRINT2+5, PRINT2+6
>> X	PURPOSE+4, PROC+4, PROC+7*
>> Y	HEAD+1
Z	PURPOSE+5*, PURPOSE+6!

Customize PDF page

Package: Referred Care Information System

Routine: BMCRR2P

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: