Routine: APCLFPRP

Package	Total	Call Graph
Patient Care Component Reports	2	DONE^APCLOSUT PAUSE^APCLVL01
DRG Grouper	1	$$ICDOP^ICDEX
VA Fileman	1	^DIR

Package

Total

Call Graph

Patient Care Component Reports

DONE^APCLOSUT PAUSE^APCLVL01

DRG Grouper

$$ICDOP^ICDEX

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^APCLOSUT	PEXIT+1
PAUSE^APCLVL01	SHOW+6, COUNT+1, COUNT+3
^DIR	PPRC, FF+1
$$ICDOP^ICDEX	PPRC+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?20,"******** FREQUENCY OF 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(APCLPTVS="V":"PCC Visit",1:"Patient")," report based on the",!,"following criteria:",! Line Location: COVPAGE+4
Function Call: WRITE	Prompt: !,$S(APCLPTVS="P":"PATIENT",1:"VISIT")," Selection Criteria" Line Location: SHOW+1
Function Call: WRITE	Prompt: !!,"ALL VISITS 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&(APCLY'="") Line Location: SHOW+8
Function Call: WRITE	Prompt: X Line Location: SHOW+8
Function Call: WRITE	Prompt: !?20,"******** FREQUENCY OF PROCEDURES REPORT ********" Line Location: COUNT+5
Function Call: WRITE	Prompt: ! Line Location: PPRC+0
Function Call: WRITE	Prompt: !!,"No. VISITs: ",APCLVTOT,?20,"No. PRCs: ",APCLTOT,?40,"PRC/VISIT ratio: ",$S(APCLVTOT>0:$J((APCLTOT/APCLVTOT),1,2),1:0)," (min. std. > 1.6)" Line Location: PPRC+3
Function Call: WRITE	Prompt: !!!,"TOP ",APCLLNO," PRC's =>" Line Location: PPRC+4
Function Call: WRITE	Prompt: !?3,I,".",?7,$P(^ICD0(APCLPRC,0),U),?15,$P(^ICD0(APCLPRC,0),U,4)," (",@APCLA,")" Line Location: PPRC+5
Function Call: WRITE	Prompt: !?3,I,".",?7,$P($$ICDOP^ICDEX(APCLPRC,,,"I"),U,2),?15,$P($$ICDOP^ICDEX(APCLPRC,,,"I"),U,5)," (",@APCLA,")" Line Location: PPRC+6
Function Call: WRITE	Prompt: ! Line Location: PPRC+7
Function Call: WRITE	Prompt: ! Line Location: FF+1
Routine Call	DIR Line Location: PPRC FF+1

Name	Line Occurrences (* Changed, ! Killed)
^APCLVRPT - [#9001003.8]	SHOW+4, SHOW+5, SHOW+8
^APCLVSTS - [#9001003.7]	SHOW+7, SHOW+8
^DIBT(	SHOW+3
^VA(200 - [#200]	COVPAGE+3
^XTMP("APCLFPR"	PEXIT+2!

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

Name	Field # of Occurrence
^(2	SHOW+8

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PPRC+2, PPRC+7
>> APCLA	PPRC+2*, PPRC+6
>> APCLBDD	SHOW+2
>> APCLBT	PEXIT+2
>> APCLEDD	SHOW+2
>> APCLF	PPRC+2*, PPRC+6
>> APCLI	SHOW+5*, SHOW+7, SHOW+8
>> APCLJOB	PEXIT+2
>> APCLLINO	PPRC+3, PPRC+4, PPRC+6, PPRC+7
>> APCLLNO	PPRC+4
>> APCLPRC	PPRC+6*
>> APCLPTVS	COVPAGE+4, SHOW+1, COUNT+2
APCLQ	SHOW+8!, SHOW+9!
>> APCLQUIT	PPRC*
>> APCLRPT	SHOW+4, SHOW+5, SHOW+8
>> APCLSEAT	SHOW+3
>> APCLTOT	PPRC+3
>> APCLTYPE	SHOW+2, SHOW+3
>> APCLVTOT	COUNT+2, PPRC+3
>> APCLY	SHOW+8*
>> C	SHOW+8*
DIR	PPRC!, FF+1!
DIR(0	PPRC, FF+1
>> DTOUT	PPRC, FF+1
DUZ	COVPAGE+3
>> I	PPRC+6*
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+6, PPRC+7
IOST	PPRC, FF, FF+1
U	COVPAGE+3, SHOW+3, SHOW+7, PPRC+6, PPRC+7
>> X	SHOW+8, PPRC+6, PPRC+7, FF+1
>> Y	PPRC, FF+1

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLFPRP

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: