Routine: APCLTENP

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

Entry Points

Name	Comments	DBIA/ICR reference
COUNT	;if COUNTING entries only
SETDASH(APCLG)	;
PEXIT
SHOW	;
CTR(X,Y)	;EP - Center X in a field Y wide.
COVPAGE	;EP
PAPC
EXCLP	;
FF
PRINT
PPOV

External References

Name	Field # of Occurrence
DONE^APCLOSUT	PEXIT
PAUSE^APCLVL01	SHOW+6, EXCLP+5, COUNT+1, COUNT+5
^DIR	PPOV, FF+1
$$ICDDX^ICDEX	EXCLP+6, PPOV+8, PPOV+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?20,"******** FREQUENCY OF DIAGNOSES REPORT ********" Line Location: COVPAGE+2
Function Call: WRITE	Prompt: !,$$CTR("Report run at: "_X,80) Line Location: COVPAGE+3
Function Call: WRITE	Prompt: !!,"REPORT REQUESTED BY: ",$P(^VA(200,DUZ,0),U) Line Location: COVPAGE+4
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+5
Function Call: WRITE	Prompt: !,$S(APCLPTVS="P":"PATIENT",1:"VISIT")," Selection Criteria" Line Location: SHOW+1
Function Call: WRITE	Prompt: !!?5,"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: !!?5,"ALL (Primary and Secondary) POV's included.",! Line Location: COUNT+2
Function Call: WRITE	Prompt: !!?5,"PRIMARY POV's Only",! Line Location: COUNT+3
Function Call: WRITE	Prompt: !?20,"******** FREQUENCY OF DIAGNOSES REPORT ********" Line Location: COUNT+8
Function Call: WRITE	Prompt: ! Line Location: PPOV+0
Function Call: WRITE	Prompt: !!,"No. VISITs: ",APCLVTOT,?20,"No. POVs: ",APCLTOT,?40,"POV/VISIT ratio: ",$S(APCLVTOT>0:$J((APCLTOT/APCLVTOT),1,2),1:0)," (min. std. > 1.6)" Line Location: PPOV+2
Function Call: WRITE	Prompt: !!!,"TOP ",APCLLNO," POV's =>" Line Location: PPOV+3
Function Call: WRITE	Prompt: !,?58,"# Visits",?68,"# Patients" Line Location: PPOV+3
Function Call: WRITE	Prompt: !?3,I,".",?7,$P($$ICDDX^ICDEX(APCLPOV),U,2),?17,$E($P($$ICDDX^ICDEX(APCLPOV),U,4),1,40) Line Location: PPOV+8
Function Call: WRITE	Prompt: "*" Line Location: PPOV+10
Function Call: WRITE	Prompt: ?J,"\|_________" Line Location: PPOV+16
Function Call: WRITE	Prompt: ?J,APCLDASH10X Line Location: PPOV+18
Function Call: WRITE	Prompt: !!,"TOP ",APCLLNO," DIAGNOSTIC CATEGORIES =>",! Line Location: PAPC+0
Function Call: WRITE	Prompt: !?3,I,".",?7,$P(^ICM(APCLAPC,0),U)," (",@B,")" Line Location: PAPC+5
Function Call: WRITE	Prompt: "*" Line Location: PAPC+6
Function Call: WRITE	Prompt: ?J,"\|_________" Line Location: PAPC+11
Function Call: WRITE	Prompt: ?J,APCLDASH10X Line Location: PAPC+13
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)
^APCLVRPT - [#9001003.8]	SHOW+4, SHOW+5, SHOW+8
^APCLVSTS - [#9001003.7]	SHOW+7, SHOW+8
^DIBT(	SHOW+3
^DIC(4 - [#4]	COVPAGE+3
^ICM - [#80.3]	PAPC+5, PAPC+6
^VA(200 - [#200]	COVPAGE+4
^XTMP("APCLTEN"	PPOV+9

Label References

Name	Line Occurrences
$$CTR	COVPAGE+3
EXCLP	SHOW+4
FF	PPOV+6, PPOV+14, PPOV+20, PAPC+4, PAPC+9
PEXIT	PPOV+13, PPOV+14, PPOV+20, PAPC+9
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+10, PAPC+6, SETDASH+3
>> A	PPOV+1*, PPOV+7, PPOV+9, PPOV+10, PPOV+11
>> APCLALL	COUNT+2
>> APCLAPC	PAPC+2*, PAPC+5, PAPC+6
>> APCLBDD	SHOW+2
>> APCLBT	PPOV+9
>> APCLCHRT	PPOV+3, PPOV+7, PPOV+8, PPOV+15, PAPC+3, PAPC+5, PAPC+10
>> APCLDASH	PPOV+10, PPOV+18, PPOV+19, PAPC+6, PAPC+13, PAPC+14, SETDASH+5*
>> APCLDXT(	EXCLP+4
>> APCLDXT(0	EXCLP+2
>> APCLEDD	SHOW+2
>> APCLEXCL	EXCLP+2
APCLG	SETDASH~, SETDASH+2
>> APCLI	SHOW+5*, SHOW+7, SHOW+8
>> APCLJOB	PPOV+9
>> APCLLNO	PPOV+3, PAPC
>> APCLPOV	PPOV+5*, PPOV+8, PPOV+9, PPOV+10
>> APCLPRIM	COUNT+3
>> APCLPTVS	COVPAGE+5, SHOW+1, COUNT+4
APCLQ	SHOW+8!, EXCLP+1!, EXCLP+4
APCLQUIT	COUNT+7!, PPOV, PPOV+4, PPOV+6, PPOV+13, PPOV+14, PPOV+20, PAPC+1, PAPC+4, PAPC+9 , FF+1
>> APCLRPT	SHOW+4, SHOW+5, SHOW+8
>> APCLSEAT	SHOW+3
>> APCLTOT	PPOV+2
>> APCLTYPE	SHOW+2
>> APCLVTOT	COUNT+4, PPOV+2
>> APCLX	EXCLP+4*, EXCLP+6
>> APCLY	SHOW+8*
>> B	PPOV+1*, PAPC+3, PAPC+5, PAPC+6, PAPC+7
>> C	SHOW+8, PPOV+1
D	PPOV+10, PAPC+6, SETDASH+1~
DIR	PPOV!, FF+1!
DIR(0	PPOV, FF+1
>> DTOUT	PPOV, FF+1
DUZ	COVPAGE+4
DUZ(2	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+8, PAPC+1, PAPC+2, PAPC+3, PAPC+5
IO	PPOV, FF+1
IO(0	PPOV, FF+1
IOF	PRINT, COVPAGE+1, SHOW+6, EXCLP+5, COUNT+1, COUNT+6, FF, FF+2
IOM	CTR+1
IOSL	SHOW+6, EXCLP+5, COUNT+1, PPOV, PPOV+6, PPOV+14, PPOV+20, PAPC+4, PAPC+9
IOST	PPOV, FF, FF+1
>> J	PPOV+4, PPOV+16, PPOV+18, PAPC+11, PAPC+13*
L	PPOV+10, PAPC+6, SETDASH+1~, SETDASH+2, SETDASH+3, SETDASH+4*, SETDASH+5
M	SETDASH+1~, SETDASH+3*
U	COVPAGE+3, COVPAGE+4, SHOW+3, SHOW+7, EXCLP+6, PPOV+8, PPOV+10, PAPC+5, PAPC+6
X	COVPAGE+3, SHOW+8, PPOV+16, PPOV+18, PAPC+11, PAPC+13, CTR~, CTR+1, FF+1*
Y	PPOV, CTR~, CTR+1, FF+1

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLTENP

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: