Routine: APCLFPCP

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

Package

Total

Call Graph

Patient Care Component Reports

DONE^APCLOSUT PAUSE^APCLVL01

DRG Grouper

$$CPT^ICPTCOD

VA Fileman

^DIR

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

Name	Field # of Occurrence
DONE^APCLOSUT	PEXIT+1
PAUSE^APCLVL01	SHOW+6, COUNT+1, COUNT+3
^DIR	PCPT, FF+1
$$CPT^ICPTCOD	PCPT+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?20,"******** FREQUENCY OF CPTS 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 CPTS REPORT ********" Line Location: COUNT+5
Function Call: WRITE	Prompt: ! Line Location: PCPT+0
Function Call: WRITE	Prompt: !!,"No. VISITs: ",APCLVTOT,?20,"No. CPTs: ",APCLTOT,?40,"CPT/VISIT ratio: ",$S(APCLVTOT>0:$J((APCLTOT/APCLVTOT),1,2),1:0)," (min. std. > 1.6)" Line Location: PCPT+3
Function Call: WRITE	Prompt: !!!,"TOP ",APCLLNO," CPT's =>" Line Location: PCPT+4
Function Call: WRITE	Prompt: !?3,I,".",?7,$P(^ICPT(APCLCPT,0),U),?15,$P(^ICPT(APCLCPT,0),U,2)," (",@APCLA,")" Line Location: PCPT+5
Function Call: WRITE	Prompt: !?3,I,".",?7,$P($$CPT^ICPTCOD(APCLCPT),U,2),?15,$P($$CPT^ICPTCOD(APCLCPT),U,3)," (",@APCLA,")" Line Location: PCPT+6
Function Call: WRITE	Prompt: ! Line Location: PCPT+7
Function Call: WRITE	Prompt: ! Line Location: FF+1
Routine Call	DIR Line Location: PCPT 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("APCLFPC"	PEXIT+2!

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

Name	Field # of Occurrence
^(2	SHOW+8

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLFPCP

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: