Routine: BMCRR12P

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

Entry Points

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

External References

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

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No data to report",! Line Location: START+3
Function Call: WRITE	Prompt: !!,"** These costs only include actual known costs to date. The costs",!,"may therefore increase as bills are received and paid",! Line Location: START+12
Function Call: WRITE	Prompt: !!,"** These costs are based on best available data (actual or estimates).",!,"Actual completed costs may vary from this.",! Line Location: START+13
Function Call: WRITE	Prompt: !,$E(X,1,20),?24,$J($P(BMCX,U),5) Line Location: PROC+3
Function Call: WRITE	Prompt: ?34,$J($P(BMCX,U,2),5) Line Location: PROC+4
Function Call: WRITE	Prompt: ?38,X Line Location: PROC+5
Function Call: WRITE	Prompt: ?53,$J(X,6) Line Location: PROC+7
Function Call: WRITE	Prompt: ?66,$J(($P(BMCX,U,3)/X)*100,7,0) Line Location: PROC+8
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,"CHS REFERRAL COSTS** 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",?34,"# CHS",?42,"TOTAL CHS",?53,"# PCC",?61,"CHS REF COST" Line Location: HEAD2+8
Function Call: WRITE	Prompt: !,?23,"INITIATED",?35,"REFS",?42,"REF COST",?53,"VISITS",?61,"PER 100 PCC VISITS" Line Location: HEAD2+9
Function Call: WRITE	Prompt: !,BMC80D Line Location: HEAD2+10
Routine Call	DIR Line Location: HEAD+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	PROC+2, HEAD2+3
^VA(200 - [#200]	PROC+2
^XTMP("BMCRR12"	START+3, START+7, START+8, START+9, DONE+1!, PROC+6

Label References

Name	Line Occurrences
@(	START+3
DONE	START+3, START+11
HEAD	START+11, PROC+1
PROC	START+8, START+9

Naked Globals

Name	Field # of Occurrence
^(	PROC+6

Local Variables

Legend:

>>	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+7, START+8, START+9, DONE+1, PROC+6
>> BMCED	HEAD2+7
>> BMCJOB	START+3, START+7, START+8, START+9, DONE+1, PROC+6
>> BMCPG	START+3, HEAD2+1, HEAD2+3
>> BMCPN	START+4, START+7, START+8, START+9, PROC+2, PROC+6
BMCQUIT	START+4!, START+7, START+8, START+9, START+11, PROC+1, HEAD+1*
>> BMCSORT	START+6, START+7, START+8
>> BMCTCOST	START+12, START+13
>> BMCTYPE	START+6, PROC+2, HEAD2+4, HEAD2+8
>> BMCX	START+8, START+9, PROC+3, PROC+4, PROC+5, PROC+8
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	START+11, PROC+1
IOST	START+3, HEAD+1
U	PROC+2, PROC+3, PROC+4, PROC+5, PROC+8, HEAD2+3
>> X	PROC+2, PROC+3, PROC+5, PROC+6*, PROC+7, PROC+8
>> X2	PROC+5*
>> Y	HEAD+1, HEAD2+5, HEAD2+6, HEAD2+7*

Customize PDF page

Package: Referred Care Information System

Routine: BMCRR12P

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: