Routine: BMCRR4P

Package	Total	Call Graph
VA Fileman	2	DD^%DT ^DIR
Referred Care Information System	1	DONE^BMCRLP2

Package

Total

Call Graph

DD^%DT ^DIR

Name	Comments	DBIA/ICR reference
HEAD	;ENTRY POINT
HEAD2	;
HEAD1	;
START	;
DONE	;
PROC	;

Name	Field # of Occurrence
DD^%DT	HEAD2+5, HEAD2+6, HEAD2+7
DONE^BMCRLP2	DONE+2
^DIR	HEAD+1

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No data to report",! Line Location: START+4
Function Call: WRITE	Prompt: !,$E(X,1,20),?25,$J($P(BMCX,U),5) Line Location: PROC+3
Function Call: WRITE	Prompt: ?32,$J($P(BMCX,U,2),5) Line Location: PROC+4
Function Call: WRITE	Prompt: ?37,$J($P(BMCX,U,3),5) Line Location: PROC+5
Function Call: WRITE	Prompt: ?43,$J($P(BMCX,U,4),5) Line Location: PROC+6
Function Call: WRITE	Prompt: ?50,$J(X,6) Line Location: PROC+8
Function Call: WRITE	Prompt: ?64,$J(($P(BMCX,U)/X)*100,5,0) 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: ?19,"REFERRAL PATTERNS BY REQUESTING ",$S(BMCTYPE="P":"PROVIDER",1:"FACILITY"),! Line Location: HEAD2+4
Function Call: WRITE	Prompt: ?(80-$L(Y)/2),Y Line Location: HEAD2+5
Function Call: WRITE	Prompt: !,?28,"BEG DATE: "_Y Line Location: HEAD2+6
Function Call: WRITE	Prompt: !,?28,"END DATE: "_Y,! Line Location: HEAD2+7
Function Call: WRITE	Prompt: !,$S(BMCTYPE="P":"PROVIDER",1:"FACILITY"),?23,"# REFS",?33,"IHS",?38,"OTHER",?44,"CHS",?50,"# PCC",?59,"TOTAL REF RATE" Line Location: HEAD2+8
Function Call: WRITE	Prompt: !,?23,"INITIATED",?33,"REFS",?38,"REFS",?44,"REFS",?50,"VISITS",?59,"PER 100 PCC VISITS" 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)
^DIC(4 - [#4]	PROC+2, HEAD2+3
^VA(200 - [#200]	PROC+2
^XTMP("BMCRR4"	START+4, START+8, START+9, START+10, DONE+1!, PROC+7

Name	Line Occurrences
@(	START+3
DONE	START+4
HEAD	PROC+1
PROC	START+9, START+10

Name	Field # of Occurrence
^(	PROC+7

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+4, START+8, START+9, START+10, DONE+1, PROC+7
>> BMCED	HEAD2+7
>> BMCJOB	START+4, START+8, START+9, START+10, DONE+1, PROC+7
>> BMCPG	START+3, HEAD2+1, HEAD2+3
>> BMCPN	START+5, START+8, START+9, START+10, PROC+2, PROC+7
BMCQUIT	START+5!, START+8, START+9, START+10, PROC+1, HEAD+1*
>> BMCSORT	START+7, START+8, START+9
>> BMCTYPE	START+7, PROC+2, HEAD2+4, HEAD2+8
>> BMCX	START+9, START+10, PROC+3, PROC+4, PROC+5, PROC+6, PROC+9
DIR	HEAD+1!
DIR(0	HEAD+1*
DT	HEAD2+5
>> DTOUT	HEAD+1
DUZ(2	HEAD2+3
IO	HEAD+1
IO(0	HEAD+1
IOF	HEAD1+1
IOSL	PROC+1
IOST	START+3, HEAD+1
U	PROC+2, PROC+3, PROC+4, PROC+5, PROC+6, PROC+9, HEAD2+3
>> X	PROC+2, PROC+3, PROC+7, PROC+8, PROC+9
>> Y	HEAD+1, HEAD2+5, HEAD2+6, HEAD2+7*

Customize PDF page

Package: Referred Care Information System

Routine: BMCRR4P

Information

Source Information

Call Graph

Call Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: