Routine: BMCRR13P

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

Package

Total

Call Graph

Referred Care Information System

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

VA Fileman

DD^%DT ^DIR

IHS VA Utilities

$$VAL^XBDIQ1

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

Name	Field # of Occurrence
DD^%DT	HEAD2+6, HEAD2+7
DONE^BMCRLP2	DONE+2
$$AVDOS^BMCRLU	PRINT1+3
$$FACREF^BMCRLU	PRINT1+1
^DIR	HEAD+1
$$VAL^XBDIQ1	PRINT1+7, PRINT1+8, PRINT1+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No referrals to report",! Line Location: START+3
Function Call: WRITE	Prompt: ! Line Location: PRINT+2
Function Call: WRITE	Prompt: !,"REQUESTING PROVIDER: ",BMCPRV Line Location: PRINT+3
Function Call: WRITE	Prompt: !,$$AVDOS^BMCRLU(BMCREF,"C") Line Location: PRINT1+3
Function Call: WRITE	Prompt: ?11,$P(BMCRREC,U,2) Line Location: PRINT1+4
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+9
Function Call: WRITE	Prompt: !?59,$E($$VAL^XBDIQ1(90001,BMCREF,.09),1,20) Line Location: PRINT1+10
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: ?(80-$L(X))/2,X,! Line Location: HEAD2+5
Function Call: WRITE	Prompt: ?17,"BEG DATE: "_Y Line Location: HEAD2+6
Function Call: WRITE	Prompt: ?40,"END DATE: "_Y,! Line Location: HEAD2+7
Function Call: WRITE	Prompt: !,?49,"REF" Line Location: HEAD2+8
Function Call: WRITE	Prompt: !,"BEGIN DOS",?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+4, PRINT1+5
^DIC(4 - [#4]	HEAD2+3
^DPT - [#2]	PRINT1+6
^XTMP("BMCRR13"	START+3, START+6, DONE+1!, PRINT+4

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

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BMC80D	START+2*, HEAD2+10
>> BMC80E	START+1*
>> BMCBD	HEAD2+6
>> BMCBT	START+3, START+6, DONE+1, PRINT+4
>> BMCED	HEAD2+7
>> BMCFAC	PRINT1+1*, PRINT1+9
>> BMCJOB	START+3, START+6, DONE+1, PRINT+4
>> BMCPG	START+3, START+4, HEAD2+1*, HEAD2+3
>> BMCPRV	START+5, START+6, PRINT+3, PRINT+4
BMCQUIT	START+5!, START+6, START+7, START+8, PRINT+1, PRINT+4, PRINT1+2, HEAD+1*
>> BMCREF	PRINT+4*, PRINT1+1, PRINT1+3, PRINT1+5, PRINT1+8, PRINT1+10
>> BMCRREC	PRINT+4*, PRINT1+4, PRINT1+7
>> BMCSPAGE	START+4, PRINT+1, PRINT+2
>> DFN	PRINT+4*, 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+8, PRINT1+2
IOST	START+3, START+4, HEAD+1
U	PRINT+4, PRINT1+4, PRINT1+5, PRINT1+6, PRINT1+7, HEAD2+3
>> X	HEAD2+4*, HEAD2+5
>> Y	HEAD+1, HEAD2+6, HEAD2+7

Customize PDF page

Package: Referred Care Information System

Routine: BMCRR13P

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: