Routine: BMCFREQP

Package	Total	Call Graph
Referred Care Information System	2	DONE^BMCOSUT PAUSE^BMCRL01
DRG Grouper	1	$$CPT^ICPTCOD
VA Fileman	1	^DIR

Package

Total

Call Graph

Referred Care Information System

DONE^BMCOSUT PAUSE^BMCRL01

DRG Grouper

$$CPT^ICPTCOD

VA Fileman

^DIR

Name	Comments	DBIA/ICR reference
COUNT	;if COUNTING entries only
PEXIT	;
SHOW	;
COVPAGE	;EP
PPRC
FF
PRINT	;EP

Name	Field # of Occurrence
DONE^BMCOSUT	PEXIT+1
PAUSE^BMCRL01	SHOW+6, COUNT+1, COUNT+3
^DIR	PPRC, FF+1
$$CPT^ICPTCOD	PPRC+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?20,"******** FREQUENCY OF RCIS PROCEDURES REPORT ********" Line Location: COVPAGE+2
Function Call: WRITE	Prompt: !!,"REPORT REQUESTED BY: ",$P(^VA(200,DUZ,0),U) Line Location: COVPAGE+3
Function Call: WRITE	Prompt: !!,"The following report contains a ",$S(BMCPTVS="V":"PCC Visit",1:"Patient")," report based on the",!,"following criteria:",! Line Location: COVPAGE+4
Function Call: WRITE	Prompt: !,$S(BMCPTVS="P":"PATIENT",1:"REFERRAL")," Selection Criteria" Line Location: SHOW+1
Function Call: WRITE	Prompt: !!,"ALL REFERRALS IN DATE RANGE SELECTED." Line Location: SHOW+4
Function Call: WRITE	Prompt: @IOF Line Location: SHOW+6
Function Call: WRITE	Prompt: " ; " Condition for execution: C'=1&(BMCY'="") Line Location: SHOW+8
Function Call: WRITE	Prompt: X Line Location: SHOW+8
Function Call: WRITE	Prompt: !?20,"******** FREQUENCY OF RCIS PROCEDURES REPORT ********" Line Location: COUNT+5
Function Call: WRITE	Prompt: ! Line Location: PPRC+0
Function Call: WRITE	Prompt: !!,"No. REFERRALs: ",BMCVTOT,?20,"No. PRCs: ",BMCTOT,?40,"PRC/REFERRAL ratio: ",$S(BMCVTOT>0:$J((BMCTOT/BMCVTOT),1,2),1:0)," (min. std. > 1.6)" Line Location: PPRC+3
Function Call: WRITE	Prompt: !!!,"TOP ",BMCLNO," PRC's =>" Line Location: PPRC+4
Function Call: WRITE	Prompt: !?3,I,".",?7,$P(^ICPT(BMCPRC,0),U),?15,$P(^ICPT(BMCPRC,0),U,2)," (",@BMCA,")" Line Location: PPRC+6
Function Call: WRITE	Prompt: !?3,I,".",?7,$P($$CPT^ICPTCOD(BMCPRC,0),U,2),?15,$P($$CPT^ICPTCOD(BMCPRC,0),U,3)," (",@BMCA,")" Line Location: PPRC+7
Function Call: WRITE	Prompt: ! Line Location: PPRC+8
Function Call: WRITE	Prompt: ! Line Location: FF+1
Routine Call	DIR Line Location: PPRC FF+1

Name	Line Occurrences (* Changed, ! Killed)
^BMCRTMP - [#90001.82]	SHOW+4, SHOW+5, SHOW+8
^BMCTSORT - [#90001.81]	SHOW+7, SHOW+8
^DIBT(	SHOW+3
^VA(200 - [#200]	COVPAGE+3
^XTMP("BMCFPR"	PEXIT+2!

Name	Line Occurrences
COUNT	SHOW+4
FF	PPRC+7, PPRC+8
PEXIT	PPRC+7, PPRC+8

Name	Field # of Occurrence
^(2	SHOW+8

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PPRC+2, PPRC+8
>> BMCA	PPRC+2*, PPRC+7
>> BMCBDD	SHOW+2
>> BMCBT	PEXIT+2
>> BMCEDD	SHOW+2
>> BMCF	PPRC+2*, PPRC+7
>> BMCI	SHOW+5*, SHOW+7, SHOW+8
>> BMCJOB	PEXIT+2
>> BMCLINO	PPRC+3, PPRC+4, PPRC+7, PPRC+8
>> BMCLNO	PPRC+4
>> BMCPRC	PPRC+7*
>> BMCPTVS	COVPAGE+4, SHOW+1, COUNT+2
BMCQ	SHOW+8!, SHOW+9!
>> BMCQUIT	PPRC*
>> BMCRPT	SHOW+4, SHOW+5, SHOW+8
>> BMCSEAT	SHOW+3
>> BMCTOT	PPRC+3
>> BMCTYPE	SHOW+2, SHOW+3
>> BMCVTOT	COUNT+2, PPRC+3
>> BMCY	SHOW+8*
>> C	SHOW+8*
DIR	PPRC!, FF+1!
DIR(0	PPRC, FF+1
>> DTOUT	PPRC, FF+1
DUZ	COVPAGE+3
>> I	PPRC+7*
IO	PPRC, FF+1
IO(0	PPRC, FF+1
IOF	COVPAGE+1, SHOW+6, COUNT+1, COUNT+4, PPRC+1, FF, FF+2
IOSL	SHOW+6, COUNT+1, PPRC, PPRC+1, PPRC+7, PPRC+8
IOST	PPRC, FF, FF+1
U	COVPAGE+3, SHOW+3, SHOW+7, PPRC+7, PPRC+8
>> X	SHOW+8, PPRC+7, PPRC+8, FF+1
>> Y	PPRC, FF+1

Customize PDF page

Package: Referred Care Information System

Routine: BMCFREQP

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: