Routine: BMCRR9P

Package	Total	Call Graph
Referred Care Information System	2	DONE^BMCRLP2 ($$AVDOS,$$FACREF)^BMCRLU
VA Fileman	2	DD^%DT ^DIR
IHS VA Utilities	1	$$VAL^XBDIQ1
Kernel	1	$$FMTE^XLFDT

Package

Total

Call Graph

Referred Care Information System

DONE^BMCRLP2 ($$AVDOS,$$FACREF)^BMCRLU

VA Fileman

DD^%DT ^DIR

IHS VA Utilities

$$VAL^XBDIQ1

Kernel

$$FMTE^XLFDT

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

Name	Field # of Occurrence
DD^%DT	HEAD2+4, HEAD2+5
DONE^BMCRLP2	DONE+2
$$AVDOS^BMCRLU	PRINT1+2
$$FACREF^BMCRLU	PRINT1+9
^DIR	HEAD+1
$$VAL^XBDIQ1	PRINT1+7, PRINT1+8, PRINT1+12
$$FMTE^XLFDT	PRINT1+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No referrals to report",! Line Location: START+3
Function Call: WRITE	Prompt: !,$S(BMCSTYPE="B":$$AVDOS^BMCRLU(BMCREF,"C"),1:$$FMTE^XLFDT($P(BMCRREC,U),"5D")) Line Location: PRINT1+2
Function Call: WRITE	Prompt: ?11,$P(BMCRREC,U,2) Line Location: PRINT1+3
Function Call: WRITE	Prompt: $P($G(^BMCREF(BMCREF,1)),U) 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: ! 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: ?31,"REFERRAL INITIATED",!,?17,"BEG DATE: "_Y Line Location: HEAD2+4
Function Call: WRITE	Prompt: ?40,"END DATE: "_Y,! Line Location: HEAD2+5
Function Call: WRITE	Prompt: ?(80-$L(X))/2,X,! Line Location: HEAD2+7
Function Call: WRITE	Prompt: !,?49,"REF" Line Location: HEAD2+8
Function Call: WRITE	Prompt: !,$S(BMCSTYPE="B":"BEGIN DOS",1:"INITIATED"),?11,"REFERRAL #",?28,"PATIENT NAME",?49,"PROV",?54,"TYPE",?59,"FACILITY REFERRED TO" Line Location: HEAD2+9
Function Call: WRITE	Prompt: !,BMC80D Line Location: HEAD2+10
Routine Call	DIR Line Location: HEAD+1

Name	Line Occurrences (* Changed, ! Killed)
^BMCREF - [#90001]	PRINT+1, PRINT1+5
^DIC(4 - [#4]	HEAD2+3
^DPT - [#2]	PRINT1+6
^XTMP("BMCRR9"	START+3, START+5, DONE+1!, PRINT+1

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

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BMC80D	START+2*, HEAD2+10
>> BMC80E	START+1*
>> BMCBD	HEAD2+4
>> BMCBT	START+3, START+5, DONE+1, PRINT+1
>> BMCED	HEAD2+5
>> BMCFAC	PRINT1+9, PRINT1+10, PRINT1+11
>> BMCJOB	START+3, START+5, DONE+1, PRINT+1
>> BMCPG	START+3, HEAD2+1, HEAD2+3
BMCQUIT	START+4!, START+5, START+6, START+7, PRINT+1, PRINT1+1, HEAD+1*
>> BMCREF	PRINT+1*, PRINT1+2, PRINT1+5, PRINT1+8, PRINT1+9, PRINT1+12
>> BMCRREC	PRINT+1*, PRINT1+2, PRINT1+3, PRINT1+7
>> BMCSORT	START+4, START+5, PRINT+1
>> BMCSTYPE	PRINT1+2, HEAD2+6, HEAD2+9
>> DFN	PRINT+1*, PRINT1+6
DIR	HEAD+1!
DIR(0	HEAD+1*
>> DTOUT	HEAD+1
DUZ(2	HEAD2+3
IO	HEAD+1
IO(0	HEAD+1
IOF	HEAD1+1
IOSL	START+7, PRINT1+1
IOST	START+3, HEAD+1
U	PRINT+1, PRINT1+2, PRINT1+3, PRINT1+5, PRINT1+6, PRINT1+7, HEAD2+3
>> X	HEAD2+6*, HEAD2+7
>> Y	HEAD+1, HEAD2+4, HEAD2+5

Customize PDF page

Package: Referred Care Information System

Routine: BMCRR9P

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: