Routine: BMCTENP

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

Entry Points

External References

Name	Field # of Occurrence
DONE^BMCOSUT	PEXIT
PAUSE^BMCRL01	SHOW+6, COUNT+1, COUNT+5
^DIR	PPOV, FF+1
$$ICDDX^ICDEX	PPOV+11, PPOV+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?15,"******** RCIS FREQUENCY OF DIAGNOSES 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":"RCIS Referral",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: !!?5,"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: !!?5,"ALL (Primary and Secondary) DX's included.",! Line Location: COUNT+2
Function Call: WRITE	Prompt: !!?5,"PRIMARY DX's Only",! Line Location: COUNT+3
Function Call: WRITE	Prompt: !?15,"******** RCIS FREQUENCY OF DIAGNOSES REPORT ********" Line Location: COUNT+8
Function Call: WRITE	Prompt: ! Line Location: PPOV+0
Function Call: WRITE	Prompt: !!,"No. REFERRALs: ",BMCVTOT,?20,"No. DXs: ",BMCTOT,?40,"DX/REFERRAL ratio: ",$S(BMCVTOT>0:$J((BMCTOT/BMCVTOT),1,2),1:0)," (min. std. > 1.6)" Line Location: PPOV+2
Function Call: WRITE	Prompt: !!!,"TOP ",BMCLNO," DX's =>",! Line Location: PPOV+3
Function Call: WRITE	Prompt: !?3,I,".",?7,$P(^ICD9(BMCPOV,0),U),?15,$P(^ICD9(BMCPOV,0),U,3)," (",@A,")" Line Location: PPOV+9
Function Call: WRITE	Prompt: !?3,I,".",?7,$P($$ICDDX^ICDCODE(BMCPOV,0),U,2),?15,$P($$ICDDX^ICDCODE(BMCPOV,0),U,4)," (",@A,")" Line Location: PPOV+10
Function Call: WRITE	Prompt: !?3,I,".",?7,$P($$ICDDX^ICDEX(BMCPOV,BMCDOS,,"I"),U,2),?15,$E($P($$ICDDX^ICDEX(BMCPOV,BMCDOS,,"I"),U,4),1,50)," (",@A,")" Line Location: PPOV+11
Function Call: WRITE	Prompt: "*" Line Location: PPOV+12
Function Call: WRITE	Prompt: "*" Line Location: PPOV+13
Function Call: WRITE	Prompt: "*" Line Location: PPOV+14
Function Call: WRITE	Prompt: ?J,"\|_________" Line Location: PPOV+19
Function Call: WRITE	Prompt: ?J,BMCDASH10X Line Location: PPOV+21
Function Call: WRITE	Prompt: !!,"TOP ",BMCLNO," DIAGNOSTIC CATEGORIES =>",! Line Location: PAPC+0
Function Call: WRITE	Prompt: !?3,I,".",?7,$P(^ICM(BMCAPC,0),U)," (",@B,")" Line Location: PAPC+5
Function Call: WRITE	Prompt: "*" Line Location: PAPC+6
Function Call: WRITE	Prompt: ?J,"\|_________" Line Location: PAPC+10
Function Call: WRITE	Prompt: ?J,BMCDASH10X Line Location: PAPC+12
Function Call: WRITE	Prompt: ! Line Location: FF+1
Routine Call	DIR Line Location: PPOV FF+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BMCRTMP - [#90001.82]	SHOW+4, SHOW+5, SHOW+8
^BMCTSORT - [#90001.81]	SHOW+7, SHOW+8
^DIBT(	SHOW+3
^ICM - [#80.3]	PAPC+5, PAPC+6
^VA(200 - [#200]	COVPAGE+3

Label References

Name	Line Occurrences
COUNT	SHOW+4
FF	PPOV+6, PPOV+17, PPOV+23, PAPC+4, PAPC+8
PEXIT	PPOV+16, PPOV+17, PPOV+23, PAPC+8
SETDASH	PPOV+7, PAPC+3

Naked Globals

Name	Field # of Occurrence
^(2	SHOW+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PPOV+1, PPOV+14, PAPC+6, SETDASH+3
>> A	PPOV+1*, PPOV+7, PPOV+11, PPOV+14, PPOV+15
>> B	PPOV+1*, PAPC+3, PAPC+5, PAPC+6, PAPC+7
>> BMCALL	COUNT+2
>> BMCAPC	PAPC+2*, PAPC+5, PAPC+6
>> BMCBDD	SHOW+2
>> BMCCHRT	PPOV+7, PPOV+11, PPOV+18, PAPC+3, PAPC+5, PAPC+9
>> BMCDASH	PPOV+14, PPOV+21, PPOV+22, PAPC+6, PAPC+12, PAPC+13, SETDASH+5*
>> BMCDOS	PPOV+11, PPOV+14
>> BMCEDD	SHOW+2
BMCG	SETDASH~, SETDASH+2
>> BMCI	SHOW+5*, SHOW+7, SHOW+8
>> BMCLNO	PPOV+3, PAPC
>> BMCPOV	PPOV+5*, PPOV+11, PPOV+14
>> BMCPRIM	COUNT+3
>> BMCPTVS	COVPAGE+4, SHOW+1, COUNT+4
BMCQ	SHOW+8!, SHOW+9!
BMCQUIT	COUNT+7!, PPOV, PPOV+4, PPOV+6, PPOV+16, PPOV+17, PPOV+23, PAPC+1, PAPC+4, PAPC+8 , FF+1
>> BMCRPT	SHOW+4, SHOW+5, SHOW+8
>> BMCSEAT	SHOW+3
>> BMCTOT	PPOV+2
>> BMCTYPE	SHOW+2, SHOW+3
>> BMCVTOT	COUNT+4, PPOV+2
>> BMCY	SHOW+8*
>> C	SHOW+8, PPOV+1
D	PPOV+14, PAPC+6, SETDASH+1~
DIR	PPOV!, FF+1!
DIR(0	PPOV, FF+1
>> DTOUT	PPOV, FF+1
DUZ	COVPAGE+3
>> E	PPOV+1*
F	PPOV+1, PPOV+4, PPOV+5, SETDASH+1~, SETDASH+3
>> G	PPOV+1*, PAPC+1, PAPC+2
>> I	PPOV+4, PPOV+5, PPOV+7, PPOV+11, PAPC+1, PAPC+2, PAPC+3, PAPC+5
IO	PPOV, FF+1
IO(0	PPOV, FF+1
IOF	PRINT, COVPAGE+1, SHOW+6, COUNT+1, COUNT+6, FF, FF+2
IOSL	SHOW+6, COUNT+1, PPOV, PPOV+6, PPOV+17, PPOV+23, PAPC+4, PAPC+8
IOST	PPOV, FF, FF+1
>> J	PPOV+4, PPOV+19, PPOV+21, PAPC+10, PAPC+12*
L	PPOV+14, PAPC+6, SETDASH+1~, SETDASH+2, SETDASH+3, SETDASH+4*, SETDASH+5
M	SETDASH+1~, SETDASH+3*
U	COVPAGE+3, SHOW+3, SHOW+7, PPOV+11, PPOV+14, PAPC+5, PAPC+6
>> X	SHOW+8, PPOV+19, PPOV+21, PAPC+10, PAPC+12, FF+1
>> Y	PPOV, FF+1

Customize PDF page

Package: Referred Care Information System

Routine: BMCTENP

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:

Name	Comments	DBIA/ICR reference
COUNT	;if COUNTING entries only
PEXIT
SHOW	;
COVPAGE	;EP
PAPC
FF
PRINT
SETDASH(BMCG)	;
PPOV