Routine: APCLPP2P

Package	Total	Call Graph
Kernel	2	$$FMTE^XLFDT ($$REPEAT,$$STRIP)^XLFSTR
Patient Care Component Reports	2	DONE^APCLOSUT PROC^APCLPP2Q
VA Fileman	2	COMMA^%DTC ^DIR
DRG Grouper	1	$$ICDDX^ICDEX

Entry Points

Name	Comments	DBIA/ICR reference
PER(N,D)	;return % of n/d
HEAD	;EP
AMB	;
PV	;
LOC()	;EP - Return location name from file 4 based on APCLPRV.
HEAD1	;
PAD(D,L)	; -- SUBRTN to pad length of data ; -- D=data L=length
CTR(X,Y)	;EP - Center X in a field Y wide.
PRN	;
START	;
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
COMM	;communities
C(X,X2,X3)	;
LOCSC	;
SC	;
DONE	;

External References

Name	Field # of Occurrence
COMMA^%DTC	C+1
DONE^APCLOSUT	DONE+1
PROC^APCLPP2Q	PV+25
^DIR	HEAD+2, EOP+5
$$ICDDX^ICDEX	PV+12
$$FMTE^XLFDT	HEAD1+3, HEAD1+5
$$REPEAT^XLFSTR	PAD+3
$$STRIP^XLFSTR	PER+4, C+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"1 - Designated Primary Care Provider Panel",! Line Location: PRN+2
Function Call: WRITE	Prompt: !,"You are the Designated Primary Care Provider for ",$$C(APCLDPPT(APCLPRV),0)," patients. In this" Line Location: PRN+3
Function Call: WRITE	Prompt: !,"time period you have provided services (any type) to ",$$C(APCLDPPS(APCLPRV),0)," (",$$PER(APCLDPPS(APCLPRV),APCLDPPT(APCLPRV)),") patients" Line Location: PRN+4
Function Call: WRITE	Prompt: !,"from your Designated Primary Care Provider Panel." Line Location: PRN+5
Function Call: WRITE	Prompt: !!,"In this time period, you provided ambulatory services at least twice to ",$$C(APCLDP2V(APCLPRV),0) Line Location: PRN+6
Function Call: WRITE	Prompt: !,"patients who have no Designated Primary Care Provider identified." Line Location: PRN+7
Function Call: WRITE	Prompt: !!,"2 - Demographics and Workload for All Patients Served (Any Type of Service)" Line Location: PRN+8
Function Call: WRITE	Prompt: !!,"In this time period you have provided services (any type) to ",$$C(APCLDW1(APCLPRV),0)," patients. " Line Location: PRN+10
Function Call: WRITE	Prompt: !,$$C(APCLDW2(APCLPRV),0)," (",$$PER(APCLDW2(APCLPRV),APCLDW1(APCLPRV)),") are from your Designated Primary Provider Panel. ",$$C(APCLDW3(APCLPRV),0)," (",$$PER(APCLDW3(APCLPRV),APCLDW1(APCLPRV)),") are" Line Location: PRN+11
Function Call: WRITE	Prompt: !,"not from your Designated Primary Care Provider Panel." Line Location: PRN+14
Function Call: WRITE	Prompt: !!,$$PER(APCLDW4(APCLPRV),APCLDW1(APCLPRV))," of your patients were Male, ",$$PER(APCLDW5(APCLPRV),APCLDW1(APCLPRV))," Female, and ",$$PER(APCLDW51(APCLPRV),APCLDW1(APCLPRV))," Unknown Gender." Line Location: PRN+16
Function Call: WRITE	Prompt: !!,$$PER(APCLDW6(APCLPRV),APCLDW1(APCLPRV))," were 18 and under; ",$$PER(APCLDW7(APCLPRV),APCLDW1(APCLPRV))," were 19-49; " Line Location: PRN+18
Function Call: WRITE	Prompt: $$PER(APCLDW8(APCLPRV),APCLDW1(APCLPRV))," were 50-64; and ",$$PER(APCLDW9(APCLPRV),APCLDW1(APCLPRV))," were 65 and over." Line Location: PRN+19
Function Call: WRITE	Prompt: !!,"The leading residences for your ",?40,"The leading tribes represented",!,"patients are:",?40,"among your patients are:" Line Location: COMM+3
Function Call: WRITE	Prompt: ?22,$$PAD($P(APCLDISP(APCLX),U,2),6),?29,$J($P(APCLDISP(APCLX),U,3),4,0),"%" Line Location: COMM+21
Function Call: WRITE	Prompt: ?66,$$PAD($P(APCLDISP(APCLX),U,5),6),?73,$J($P(APCLDISP(APCLX),U,6),4,0),"%" Line Location: COMM+22
Function Call: WRITE	Prompt: !!,"Of these services, ",$$C(APCLTCR(APCLPRV),0)," (",$$PER(APCLTCR(APCLPRV),APCLDW1(APCLPRV)) Line Location: COMM+24
Function Call: WRITE	Prompt: ") were chart reviews and ",$$C(APCLTTEL(APCLPRV),0)," (",$$PER(APCLTTEL(APCLPRV),APCLDW1(APCLPRV)),") were",!,"telecommunications services." Line Location: COMM+25
Function Call: WRITE	Prompt: !!,"3 - Ambulatory Workload: You had a total of ",$$C(APCLDW10(APCLPRV),0)," ambulatory visits during",! Line Location: AMB+1
Function Call: WRITE	Prompt: "this time period. You were the Primary Provider for ",$$C(APCLDW11(APCLPRV),0)," visits (",$$PER(APCLDW11(APCLPRV),APCLDW10(APCLPRV)),") and" Line Location: AMB+2
Function Call: WRITE	Prompt: !,"Secondary Provider for ",$$C(APCLDW12(APCLPRV),0)," visits (",$$PER(APCLDW12(APCLPRV),APCLDW10(APCLPRV)),")." Line Location: AMB+3
Function Call: WRITE	Prompt: !!,"Your services were provided at the",?40,"Your services included the following",!,"following locations:",?40,"Service Categories:" Line Location: LOCSC+2
Function Call: WRITE	Prompt: ?22,$$PAD($P(APCLDISP(APCLX),U,2),6),?29,$J($P(APCLDISP(APCLX),U,3),4,0),"%" Line Location: SC+11
Function Call: WRITE	Prompt: ?66,$$PAD($P(APCLDISP(APCLX),U,5),6),?73,$J($P(APCLDISP(APCLX),U,6),4,0),"%" Line Location: SC+12
Function Call: WRITE	Prompt: !!,"The ",APCLNITM," leading Purposes of Visit",?40,"The ",APCLNITM," leading Medications you" Line Location: PV+3
Function Call: WRITE	Prompt: !,"(including Primary and Secondary POV's)",?40,"prescribed or refilled as Primary" Line Location: PV+4
Function Call: WRITE	Prompt: !,"that you identified were:",?40,"Provider for the Visit were:" Line Location: PV+5
Function Call: WRITE	Prompt: ?28,$$PAD($P(APCLDISP(APCLX),U,2),6) Line Location: PV+22
Function Call: WRITE	Prompt: ?72,$$PAD($P(APCLDISP(APCLX),U,5),6) Line Location: PV+23
Function Call: WRITE	Prompt: ! Line Location: HEAD+2
Function Call: WRITE	Prompt: @IOF Line Location: HEAD1+1
Function Call: WRITE	Prompt: !?58,$$FMTE^XLFDT(DT),?72,"Page ",APCLPG,! Line Location: HEAD1+3
Function Call: WRITE	Prompt: $$CTR("Provider Practice Description For "_APCLPRVN(APCLPRV)_", "_APCLPRVD(APCLPRV),80),! Line Location: HEAD1+4
Function Call: WRITE	Prompt: !?12,"For the Time Period: ",$$FMTE^XLFDT(APCLBD)," - ",$$FMTE^XLFDT(APCLED),! Line Location: HEAD1+5
Function Call: WRITE	Prompt: $$CTR("Search Template of Patients Used: "_$P(^DIBT(APCLSEAT,0),U)),! Line Location: HEAD1+6
Function Call: WRITE	Prompt: !,"** Please Note that certain diagnoses codes have been excluded",!,"from the list of purpose of visits.",! Line Location: HEAD1+7
Routine Call	DIR Line Location: HEAD+2 EOP+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIBT(	HEAD1+6
^DIC(4 - [#4]	LOC+1
^VA(200 - [#200]	USR+1
^XTMP("APCLPP2"	DONE+2!, COMM+4, COMM+5, COMM+6, COMM+11, COMM+12, COMM+13, LOCSC+5, LOCSC+6, LOCSC+7 , LOCSC+8!, LOCSC+13, LOCSC+14, SC+1, SC+2, SC+3, PV+6, PV+7, PV+8, PV+13 , PV+14, PV+15

Label References

Name	Line Occurrences
$$C	PRN+3, PRN+4, PRN+6, PRN+10, PRN+11, COMM+7, COMM+14, COMM+24, COMM+25, AMB+1 , AMB+2, AMB+3, LOCSC+9, LOCSC+15, SC+4, PV+9, PV+16
$$CTR	HEAD1+4, HEAD1+6
$$PAD	COMM+21, COMM+22, SC+11, SC+12, PV+22, PV+23
$$PER	PRN+4, PRN+11, PRN+16, PRN+18, PRN+19, COMM+8, COMM+15, COMM+24, COMM+25, AMB+2 , AMB+3, LOCSC+10, LOCSC+15, SC+5
HEAD	PRN+1, PRN+9, PRN+12, PRN+13, PRN+15, PRN+17, PRN+20, COMM+1, COMM+18, COMM+20 , COMM+26, LOCSC+1, SC+8, SC+10, PV+1, PV+19, PV+21
HEAD1	HEAD+1
PRN	START+3

Naked Globals

Name	Field # of Occurrence
^(0	USR+1, LOC+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCLA	COMM+6, COMM+7, COMM+8, COMM+13, COMM+14, COMM+15, LOCSC+7, LOCSC+9, LOCSC+10, SC+3 , SC+4, SC+5, PV+8, PV+9, PV+15, PV+16
>> APCLB	COMM+7, COMM+10, COMM+14, COMM+17, LOCSC+9, LOCSC+12, SC+4, SC+7, PV+9, PV+12 , PV+16, PV+18
>> APCLBD	HEAD1+5
>> APCLBTH	DONE+2, COMM+4, COMM+5, COMM+6, COMM+11, COMM+12, COMM+13, LOCSC+5, LOCSC+6, LOCSC+7 , LOCSC+8, LOCSC+13, LOCSC+14, SC+1, SC+2, SC+3, PV+6, PV+7, PV+8, PV+13 , PV+14, PV+15
>> APCLC	COMM+4, COMM+6, COMM+9, COMM+10, COMM+11, COMM+13, COMM+16, COMM+17, LOCSC+5, LOCSC+6 , LOCSC+7, LOCSC+11, LOCSC+12, SC+1, SC+3, SC+6, SC+7, PV+6, PV+8, PV+10 , PV+12, PV+13, PV+15, PV+17, PV+18
APCLDISP	COMM+2!, LOCSC+3!, PV+2!
APCLDISP(	COMM+2, COMM+9, COMM+10, COMM+16, COMM+17, COMM+19, COMM+21, COMM+22, LOCSC+3, LOCSC+11* , LOCSC+12, SC+6, SC+7, SC+9, SC+11, SC+12, PV+2, PV+10, PV+12, PV+17* , PV+18*, PV+20, PV+22, PV+23
APCLDISP(5	LOCSC+15*
>> APCLDP2V(	PRN+6
>> APCLDPPS(	PRN+4
>> APCLDPPT(	PRN+3, PRN+4
>> APCLDW1(	PRN+10, PRN+11, PRN+16, PRN+18, PRN+19, COMM+8, COMM+15, COMM+24, COMM+25
>> APCLDW10(	AMB+1, AMB+2, AMB+3, LOCSC+10, LOCSC+15, SC+5
>> APCLDW11(	AMB+2
>> APCLDW12(	AMB+3
>> APCLDW2(	PRN+11
>> APCLDW3(	PRN+11
>> APCLDW4(	PRN+16
>> APCLDW5(	PRN+16
>> APCLDW51(	PRN+16
>> APCLDW6(	PRN+18
>> APCLDW7(	PRN+18
>> APCLDW8(	PRN+19
>> APCLDW9(	PRN+19
>> APCLED	HEAD1+5
>> APCLEXCL	HEAD1+7
>> APCLJOB	DONE+2, COMM+4, COMM+5, COMM+6, COMM+11, COMM+12, COMM+13, LOCSC+5, LOCSC+6, LOCSC+7 , LOCSC+8, LOCSC+13, LOCSC+14, SC+1, SC+2, SC+3, PV+6, PV+7, PV+8, PV+13 , PV+14, PV+15
>> APCLLSV	START+2
>> APCLNITM	START+2*, COMM+1, COMM+2, COMM+19, LOCSC+3, SC+1, SC+8, SC+9, PV+1, PV+2 , PV+3, PV+6, PV+13, PV+19, PV+20, PV+21
>> APCLPG	START+1, HEAD+1, HEAD1+2, HEAD1+3
>> APCLPROV(	START+3
>> APCLPRV	START+3*, PRN+3, PRN+4, PRN+6, PRN+10, PRN+11, PRN+16, PRN+18, PRN+19, COMM+4 , COMM+5, COMM+6, COMM+8, COMM+11, COMM+12, COMM+13, COMM+15, COMM+24, COMM+25, AMB+1 , AMB+2, AMB+3, LOCSC+5, LOCSC+6, LOCSC+7, LOCSC+8, LOCSC+10, LOCSC+13, LOCSC+14, LOCSC+15 , SC+1, SC+2, SC+3, SC+5, PV+6, PV+7, PV+8, PV+13, PV+14, PV+15 , HEAD1+4
>> APCLPRVD(	HEAD1+4
>> APCLPRVN(	HEAD1+4
APCLQUIT	START+1, START+3, DONE+3!, PRN+1, PRN+9, PRN+12, PRN+13, PRN+15, PRN+17, PRN+20 , COMM+1, COMM+4, COMM+5, COMM+11, COMM+12, COMM+18, COMM+19, COMM+20, COMM+23, COMM+26 , LOCSC+1, LOCSC+5, LOCSC+6, SC+1, SC+2, SC+8, SC+9, SC+10, SC+13, PV+1 , PV+6, PV+7, PV+13, PV+14, PV+19, PV+20, PV+21, PV+24, HEAD+2
>> APCLSEAT	HEAD1+6
>> APCLTCR(	COMM+24
>> APCLTOTH	LOCSC+13*
>> APCLTOTH(	LOCSC+14*, LOCSC+15
>> APCLTTEL(	COMM+25
>> APCLX	COMM+4, COMM+5, COMM+6, COMM+11, COMM+12, COMM+13, COMM+19, COMM+21, COMM+22, LOCSC+5 , LOCSC+6, LOCSC+7, LOCSC+8, LOCSC+13, LOCSC+14, SC+1, SC+2, SC+3, SC+9, SC+11 , SC+12, PV+6, PV+7, PV+8, PV+13, PV+14, PV+15, PV+20, PV+22, PV+23
>> APCLY	COMM+5, COMM+6, COMM+10, COMM+12, COMM+13, COMM+17, LOCSC+6, LOCSC+7, LOCSC+8, LOCSC+12 , LOCSC+14, SC+2, SC+3, SC+7, PV+7, PV+8, PV+12, PV+14*, PV+15, PV+18
D	PER~, PER+1, PER+3, PAD~, PAD+2, PAD+3
DFOUT	EOP+4!
DIR	HEAD+2!, EOP+3~
DIR("A"	EOP+5*
DIR(0	HEAD+2, EOP+5
DIRUT	EOP+4!
DLOUT	EOP+4!
DT	HEAD1+3
DTOUT	HEAD+2, EOP+4!
DUOUT	EOP+4!
DUZ	USR+1
DUZ(2	LOC+1
IO	HEAD+2
IO("S"	EOP+2
IO(0	HEAD+2
IOF	HEAD1+1
IOM	CTR+1
IOSL	PRN+9, PRN+12, PRN+13, PRN+15, PRN+17, PRN+20, COMM+1, COMM+18, COMM+20, COMM+26 , LOCSC+1, SC+8, SC+10, PV+1, PV+19, PV+21
IOST	HEAD+2, EOP+1
>> IOT	EOP+2
L	PAD~, PAD+2*, PAD+3
N	PER~, PER+3
U	COMM+10, COMM+17, COMM+21, COMM+22, LOCSC+12, LOCSC+15, SC+7, SC+11, SC+12, PV+12 , PV+18, PV+22, PV+23, HEAD1+6, USR+1, LOC+1
X	COMM+2, LOCSC+3, PV+2*, C~, C+2, CTR~, CTR+1
X2	C~
X3	C~
Y	HEAD+2, CTR~, CTR+1
Z	COMM+8, COMM+10, COMM+15, COMM+17, LOCSC+10, LOCSC+12, SC+5, SC+7, PV+12, PER+2~ , PER+3, PER+4
>> ZTQUEUED	EOP+2

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLPP2P

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: