Routine: BMCRR1P

Package	Total	Call Graph
Referred Care Information System	2	DONE^BMCRLP2 ($$AVEOS,$$FACREF)^BMCRLU
IHS VA Utilities	1	$$PROVINI^XBFUNC1
Kernel	1	($$FMDIFF,$$FMTE,$$HTFM)^XLFDT
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
PRINT1	;
HEAD	;ENTRY POINT
HEAD2	;
HEAD1	;
START	;
DONE	;
PRINT	;print one referral

External References

Name	Field # of Occurrence
DONE^BMCRLP2	DONE+2
$$AVEOS^BMCRLU	PRINT1+11, PRINT1+12
$$FACREF^BMCRLU	PRINT1+7
^DIR	HEAD+1
$$PROVINI^XBFUNC1	PRINT1+6
$$FMDIFF^XLFDT	PRINT1+11
$$FMTE^XLFDT	PRINT1+2, PRINT1+10, HEAD2+5
$$HTFM^XLFDT	HEAD2+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No referrals to report",! Line Location: START+3
Function Call: WRITE	Prompt: !! Line Location: PRINT+3
Function Call: WRITE	Prompt: "FACILITY REFERRED TO: ",BMCSORT,! Line Location: PRINT+3
Function Call: WRITE	Prompt: "TIME SINCE END OF SERVICE: ",$S(BMCSORT=4:"0-1 Months",BMCSORT=3:"2-3 Months",BMCSORT=2:"4-6 Months",BMCSORT=1:">6 Months",1:"???"),! Line Location: PRINT+4
Function Call: WRITE	Prompt: !,$$FMTE^XLFDT($P(BMCRREC,U),"5D") Line Location: PRINT1+2
Function Call: WRITE	Prompt: ?12,$E($P(^DPT(DFN,0),U),1,18) Line Location: PRINT1+3
Function Call: WRITE	Prompt: ?32,BMCHRN Line Location: PRINT1+5
Function Call: WRITE	Prompt: ?43,$S($P(BMCRREC,U,6):$$PROVINI^XBFUNC1($P(BMCRREC,U,6)),1:"--") Line Location: PRINT1+6
Function Call: WRITE	Prompt: ?49,$E(BMCFAC,1,16) Line Location: PRINT1+9
Function Call: WRITE	Prompt: ?66,$S($P($G(^BMCREF(BMCREF,11)),U,6)]"":$$FMTE^XLFDT($P($G(^BMCREF(BMCREF,11)),U,6),"5D")_" (A)",$P($G(^BMCREF(BMCREF,11)),U,5):$$FMTE^XLFDT($P($G(^BMCREF(BMCREF,11)),U,5),"5D")_" (E)",1:"") Line Location: PRINT1+10
Function Call: WRITE	Prompt: !?5,"Ending Date of Service: "_$S(BMCEND="":"UNKNOWN",1:BMCEND) Line Location: PRINT1+13
Function Call: WRITE	Prompt: ?50,"Time Lapsed: ",% Line Location: PRINT1+16
Function Call: WRITE	Prompt: !?5,"Case Manager: ",$S($P(BMCRREC,U,19):$P(^VA(200,$P(BMCRREC,U,19),0),U),1:"") Line Location: PRINT1+17
Function Call: WRITE	Prompt: !?5,"ICD Diagnosis Category: ",$S($P(BMCRREC,U,12):$P(^BMCTDXC($P(BMCRREC,U,12),0),U),1:"") Line Location: PRINT1+18
Function Call: WRITE	Prompt: !?5,"CPT Service Category: ",$S($P(BMCRREC,U,13):$P(^BMCTSVC($P(BMCRREC,U,13),0),U),1:""),! Line Location: PRINT1+19
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: ?10,"REFERRALS FOR WHICH MEDICAL/COST DATA HAS NOT BEEN RECEIVED",! 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: !,"REF DATE",?11,"PATIENT NAME",?32," HRN",?43,"PROV",?49,"FACILITY REF TO",?67,"BEG DOS." Line Location: HEAD2+6
Function Call: WRITE	Prompt: !,BMC80D Line Location: HEAD2+7
Routine Call	DIR Line Location: HEAD+1

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	PRINT1+4
^AUTTLOC - [#9999999.06]	PRINT1+4
^BMCREF - [#90001]	PRINT+5, PRINT1+10
^BMCTDXC - [#90001.51]	PRINT1+18
^BMCTSVC - [#90001.52]	PRINT1+19
^DIC(4 - [#4]	HEAD2+3
^DPT - [#2]	PRINT1+3
^TMP("BMCRR1"	START+3, START+5, DONE+1!, PRINT+5
^VA(200 - [#200]	PRINT1+17

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PRINT1+11, PRINT1+14, PRINT1+15*, PRINT1+16
>> %1	PRINT1+15*
>> BMC80D	START+2*, HEAD2+7
>> BMC80E	START+1*
>> BMCBT	START+3, START+5, DONE+1, PRINT+5
>> BMCEND	PRINT1+12*, PRINT1+13, PRINT1+14
>> BMCFAC	PRINT1+7, PRINT1+8, PRINT1+9
>> BMCHRN	PRINT1+4*, PRINT1+5
>> BMCJOB	START+3, START+5, DONE+1, PRINT+5
>> BMCPG	START+3, PRINT+1, HEAD2+1, HEAD2+3
BMCQUIT	START+4!, START+5, START+6, START+7, PRINT+1, PRINT+2, PRINT+5, PRINT1+1, HEAD+1*
>> BMCREF	PRINT+5*, PRINT1+7, PRINT1+10, PRINT1+11, PRINT1+12
>> BMCRREC	PRINT+5*, PRINT1+2, PRINT1+6, PRINT1+17, PRINT1+18, PRINT1+19
>> BMCSORT	START+4, START+5, PRINT+3, PRINT+4, PRINT+5
>> BMCSPAGE	PRINT+1
>> BMCSTYPE	PRINT+3, PRINT+4
>> DFN	PRINT+5*, PRINT1+3, PRINT1+4
DIR	HEAD+1!
DIR(0	HEAD+1*
DT	PRINT1+11
>> DTOUT	HEAD+1
DUZ(2	PRINT1+4, HEAD2+3
IO	HEAD+1
IO(0	HEAD+1
IOF	HEAD1+1
IOSL	START+7, PRINT+2, PRINT1+1
IOST	START+3, HEAD+1
U	PRINT+5, PRINT1+2, PRINT1+3, PRINT1+4, PRINT1+6, PRINT1+10, PRINT1+17, PRINT1+18, PRINT1+19, HEAD2+3
>> Y	HEAD+1

Customize PDF page

Package: Referred Care Information System

Routine: BMCRR1P

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Line Occurrences
@(	START+3
DONE	START+3, START+6, START+7
HEAD	START+7, PRINT+1, PRINT+2, PRINT1+1
PRINT	START+5
PRINT1	PRINT+5