Routine: APCLEM1

Package	Total	Call Graph
IHS VA Utilities	4	^XBDBQUE ($$VAL,$$VALI)^XBDIQ1 ^XBFMK EN^XBVK
Kernel	3	$$FMTE^XLFDT ($$REPEAT,$$STRIP)^XLFSTR $$ADD^XPDMENU
Patient Care Component Reports	3	DEMOCHK^APCLUTL ($$CLINIC,$$PRIMPROV,$$VD)^APCLV PAUSE^APCLVL01
VA Fileman	3	(C,COMMA)^%DTC ^DIC ^DIR
IHS Patient	1	KILL^AUPNPAT
PCC Medical Query	1	PEP^AMQQGTX0

Package	Total	Caller Graph
Patient Care Component	1	BJPC2P6
Patient Care Component Reports	1	APCLEM2

Entry Points

Name	Comments	DBIA/ICR reference
BD	;
PER(N,D)	;EP - return % of n/d
LOCC	;cohort
DEMO	;
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
PRINT	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
INFORM	;tell user what is going on
BROWSE	;
LOC1	;
V1	;
PROV1	;
LOCATION	;
TEAM	;get team
PROVC	;cohort
ZIS	;
ED	;
HEADER	;
CLINIC	;
XIT	;
C(X,X2,X3)	;EP
POST	;EP
HEAD1	;
START	;
PROV	;
GETDATES	;
CTR(X,Y)	;EP - Center X in a field Y wide.
PROC	;EP - called from xbdbque

External References

Name	Field # of Occurrence
C^%DTC	ED+5
COMMA^%DTC	C+1
PEP^AMQQGTX0	PROVC+3, LOCC+3, CLINIC+5
DEMOCHK^APCLUTL	DEMO+1
$$CLINIC^APCLV	V1+20, V1+23
$$PRIMPROV^APCLV	V1+35
$$VD^APCLV	V1+9
PAUSE^APCLVL01	INFORM+28
KILL^AUPNPAT	XIT+2
^DIC	PROV1+1, TEAM+2, PROVC+2, LOC1+1, LOCC+2, CLINIC+4
^DIR	BD+1, ED+1, PROV+3, PROV1+5, LOCATION+4, DEMO+3, HEADER+2, EOP+5
^XBDBQUE	DEMO+7, BROWSE+2
$$VAL^XBDIQ1	PRINT+7, PRINT+20
$$VALI^XBDIQ1	V1+56, V1+60, V1+61
^XBFMK	XIT+3
EN^XBVK	XIT+1
$$FMTE^XLFDT	HEAD1+3, HEAD1+5
$$REPEAT^XLFSTR	HEAD1+15
$$STRIP^XLFSTR	PER+4, C+2
$$ADD^XPDMENU	POST+1, POST+2, POST+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,"Enter the time frame of interest.",! Line Location: BD+1
Function Call: WRITE	Prompt: !,"Ending date must be greater than or equal to beginning date!" Line Location: ED+3
Function Call: WRITE	Prompt: !!,$P(^VA(200,APCLOPRV,0),U,1)," is NOT a member of that team, please reselect a team.",!! Line Location: TEAM+4
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: PROVC+2
Function Call: WRITE	Prompt: !,"Selecting all providers not allowed with this report" Line Location: PROVC+5
Function Call: WRITE	Prompt: !!,"Enter the Visit Location(s) to be included in the numerator and",!,"denominator visit counts.",! Line Location: LOCATION+1
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: LOCC+2
Function Call: WRITE	Prompt: !,"Selecting all locations is not allowed with this report" Line Location: LOCC+5
Function Call: WRITE	Prompt: !!,"Enter the list of clinics that you have determined to be primary care clinics." Line Location: CLINIC+1
Function Call: WRITE	Prompt: !,"You can enter them 1 at a time or enter a taxonomy using the '[' notation." Line Location: CLINIC+2
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: CLINIC+4
Function Call: WRITE	Prompt: !,"all not allowed with this report" Line Location: CLINIC+7
Function Call: WRITE	Prompt: !!,"You are currently logged in to division ",$P(^DIC(4,DUZ(2),0),U),!,"Patients must be registered (have a chart at) this location",!,"in order to be included in this report.",! Line Location: ZIS+1
Function Call: WRITE	Prompt: BOMB Line Location: PRINT+1
Function Call: WRITE	Prompt: !!,"Total:",?42,$$C(APCLTOTR,0),?57,$$C(APCLTOTV,0),?72,$$PER(APCLTOTR,APCLTOTV),! Line Location: PRINT+14
Function Call: WRITE	Prompt: !,$P(^BSDPCT(APCLTEAM,0),U,1)," Members" Line Location: PRINT+17
Function Call: WRITE	Prompt: !,$P(^BSDPCT(APCLTEAM,0),U,1)," Team",! Line Location: PRINT+25
Function Call: WRITE	Prompt: "Total for ",$E($P(^BSDPCT(APCLTEAM,0),U,1),1,20),?42,$$C($P(APCLTOTT,U,2),0),?57,$$C($P(APCLTOTT,U,1),0),?72,$$PER($P(APCLTOTT,U,2),$P(APCLTOTT,U,1)),! Line Location: PRINT+29
Function Call: WRITE	Prompt: ! Line Location: HEADER+2
Function Call: WRITE	Prompt: !,$$CTR($$FMTE^XLFDT(DT),80),?70,"Page ",APCLPG,! Line Location: HEAD1+3
Function Call: WRITE	Prompt: $$CTR($$LOC,80),! Line Location: HEAD1+4
Function Call: WRITE	Prompt: $$CTR("Visit Dates: "_$$FMTE^XLFDT(APCLBD)_" - "_$$FMTE^XLFDT(APCLED),80),! Line Location: HEAD1+5
Function Call: WRITE	Prompt: "PROVIDER/CLINIC",?42,"Numerator",?57,"Denominator",?72,"%",! Line Location: HEAD1+14
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("-",79),! Line Location: HEAD1+15
Function Call: WRITE	Prompt: $$CTR("***** CONTINUITY OF CARE TO A PRIMARY CARE PROVIDER ****",80) Line Location: INFORM+2
Function Call: WRITE	Prompt: !,"This report measures the continuity of care to a designated" Line Location: INFORM+3
Function Call: WRITE	Prompt: !,"primary care provider." Line Location: INFORM+4
Function Call: WRITE	Prompt: !,"The continuity of care measures the number of times that a patient saw their" Line Location: INFORM+5
Function Call: WRITE	Prompt: !,"own designated primary care provider in a primary care clinic setting. " Line Location: INFORM+6
Function Call: WRITE	Prompt: !!,"Numerator: The number of times that a patient saw their designated primary" Line Location: INFORM+7
Function Call: WRITE	Prompt: !,"care provider in a primary care clinic setting." Line Location: INFORM+8
Function Call: WRITE	Prompt: !,"Denominator: The number of times that a patient has been seen by any provider" Line Location: INFORM+9
Function Call: WRITE	Prompt: !,"in a primary care clinic setting." Line Location: INFORM+10
Function Call: WRITE	Prompt: !!,"If you include Team statistics:" Line Location: INFORM+11
Function Call: WRITE	Prompt: !,"Numerator: The number of times that a patient saw any member of the team" Line Location: INFORM+12
Function Call: WRITE	Prompt: !," as either a primary or secondary provider." Line Location: INFORM+13
Function Call: WRITE	Prompt: !,"Denominator: The number of times that a patient was seen by any provider." Line Location: INFORM+14
Function Call: WRITE	Prompt: !,"This report should be run for one division at a time if you are operating" Line Location: INFORM+15
Function Call: WRITE	Prompt: !,"on a multi-divisional database." Line Location: INFORM+16
Function Call: WRITE	Prompt: !,"The user will be prompted to enter the following information:" Line Location: INFORM+17
Function Call: WRITE	Prompt: !?5,"- The designated primary care provider(s)" Line Location: INFORM+18
Function Call: WRITE	Prompt: !?5,"- If one primary care provider is chosen, the user may indicate a team" Line Location: INFORM+19
Function Call: WRITE	Prompt: !?5,"- The date range for visit selection" Line Location: INFORM+20
Function Call: WRITE	Prompt: !?5,"- The location(s) of encounter for visit selection. You may choose one or" Line Location: INFORM+21
Function Call: WRITE	Prompt: !?10,"locations or facilities where the provider provides services." Line Location: INFORM+22
Function Call: WRITE	Prompt: !?5,"- The set of clinics you have determined to be 'Primary' clinics." Line Location: INFORM+23
Function Call: WRITE	Prompt: !?10,"A taxonomy or group of these clinics can be created for later use" Line Location: INFORM+24
Function Call: WRITE	Prompt: !,"In order to be included in the denominator the visit must be a " Line Location: INFORM+25
Function Call: WRITE	Prompt: !,"complete visit (have a POV and a provider.)" Line Location: INFORM+26
Function Call: WRITE	Prompt: !,"Inactive and deceased patients are excluded." Line Location: INFORM+27
Routine Call	DIC Line Location: PROV1+1 TEAM+2 PROVC+2 LOC1+1 LOCC+2 CLINIC+4
Routine Call	DIR Line Location: BD+1 ED+1 PROV+3 PROV1+5 LOCATION+4 DEMO+3 HEADER+2 EOP+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^BSDPCT - [#9009017.5]	Classic Fileman Calls
^AMQQ(5 - [#9009075]	Classic Fileman Calls
^AUTTLOC - [#9999999.06]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	V1+6, V1+8, V1+10, V1+15
^AUPNVPOV("AD"	V1+18
^AUPNVPRV - [#9000010.06]	V1+54, V1+55
^AUPNVPRV("AD"	V1+53
^AUPNVSIT - [#9000010]	V1+2, V1+3, V1+4, V1+24, V1+25
^AUPNVSIT("B"	PROC+15, V1+1
^BSDPCT - [#9009017.5]	TEAM+4, PROC+10, V1+43, V1+58, PRINT+17, PRINT+25, PRINT+29, HEAD1+7, HEAD1+8, HEAD1+9 , HEAD1+12
^DIC(4 - [#4]	ZIS+1, LOC+1
^DIC(40.7 - [#40.7]	PROC+6, PROC+8, PROC+11
^DPT - [#2]	V1+7, V1+13
^VA(200 - [#200]	TEAM+4, PRINT+7, PRINT+11, PRINT+20, PRINT+24, HEAD1+9, HEAD1+12, USR+1

Label References

Name	Line Occurrences
$$C	PRINT+10, PRINT+11, PRINT+14, PRINT+23, PRINT+24, PRINT+28, PRINT+29
$$CTR	HEAD1+3, HEAD1+4, HEAD1+5, HEAD1+7, HEAD1+10, HEAD1+13, INFORM+2
$$LOC	HEAD1+4
$$PER	PRINT+10, PRINT+11, PRINT+14, PRINT+23, PRINT+24, PRINT+28, PRINT+29
BROWSE	DEMO+5
CLINIC	LOC1+3, CLINIC+7, DEMO+2
ED	ED+3
GETDATES	PROV+4, PROV1+1
HEAD1	HEADER+1
HEADER	PRINT+4, PRINT+6, PRINT+9, PRINT+13, PRINT+16, PRINT+19, PRINT+22, PRINT+27
INFORM	START+2
LOCATION	PROV1+7, TEAM+6, LOC1+1, LOCC+4, CLINIC+6
LOCC	LOCATION+7, LOCC+5
PROV	PROVC+4, PROVC+5, LOCATION+5
PROV1	PROV1+6, TEAM+3
PROVC	PROV+6
TEAM	TEAM+4
V1	PROC+15
XIT	START+1, BD+2, ED+2, PROVC+2, LOCC+2, CLINIC+4, DEMO+4, DEMO+5

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	PROC+12~, V1+35*, V1+37, V1+42, V1+43, V1+44, V1+45
>> APCLBD	BD+3*, ED+3, ED+5, HEAD1+5
>> APCLC	PRINT+8, PRINT+10, PRINT+21, PRINT+23, PRINT+26*, PRINT+28
>> APCLC1	HEAD1+8*, HEAD1+11
APCLCLIN	CLINIC+3!, CLINIC+6, CLINIC+7!
APCLCLIN(	PROC+5, PROC+11, V1+22
APCLCLIN("*"	CLINIC+7
APCLCLNV	PROC+2!
APCLCLTV	PROC+3!
APCLCLTV(	PROC+6*
>> APCLDEMO	DEMO+1, DEMO+2
>> APCLDFN	V1+4*, V1+5, V1+6, V1+7, V1+8, V1+10, V1+13, V1+15
>> APCLED	ED+4*, PROC+15, HEAD1+5
>> APCLGPP	V1+36, V1+50, V1+52
APCLLOC	LOCATION+2!, LOCC+1!, LOCC+4, LOCC+5!
APCLLOC(	LOC1+2*, V1+27
APCLLOC("*"	LOCC+5
APCLOPRV	PROV+1!, PROV1+2*, TEAM+4
>> APCLPG	PRINT+3, HEADER+1, HEAD1+1, HEAD1+2, HEAD1+3
>> APCLPP	V1+15, V1+16, V1+17, V1+28, V1+29, V1+30, V1+31, V1+37, V1+39, V1+40 , PRINT+5, PRINT+7, PRINT+8, PRINT+10, PRINT+11, PRINT+18*, PRINT+20, PRINT+21, PRINT+23, PRINT+24
APCLPROV	PROV+1!, PROVC+1!, PROVC+4, PROVC+5!
APCLPROV(	PROV1+2*, PROC+7, V1+17
APCLPROV("*"	PROVC+5
APCLPRVD	PROV+1!
APCLPRVN	PROV+1!
>> APCLPT	PROV+2, PROV+5, PROV+6, LOCATION+3, LOCATION+6, LOCATION+7
APCLQUIT	PRINT+2!, PRINT+5, PRINT+6, PRINT+8, PRINT+9, PRINT+12, PRINT+13, PRINT+16, PRINT+18, PRINT+19 , PRINT+21, PRINT+22, PRINT+26, PRINT+27, HEADER+2*
>> APCLSD	ED+5, PROC+15, V1+1
>> APCLTEAM	PROV1+4, TEAM+1, TEAM+5*, PROC+9, PROC+10, V1+28, V1+29, V1+42, V1+43, V1+57 , V1+58, PRINT+14, PRINT+15, PRINT+17, PRINT+25, PRINT+29, HEAD1+6, HEAD1+7, HEAD1+8, HEAD1+9 , HEAD1+12
APCLTOTM	PROC+4!
APCLTOTM(	PROC+11, V1+28, V1+29, V1+44, V1+45, V1+60, V1+61*, PRINT+18, PRINT+21, PRINT+23 , PRINT+24
APCLTOTP	PROC+1!
APCLTOTP(	PROC+8, V1+30, V1+31, V1+39, V1+40*, PRINT+5, PRINT+8, PRINT+10, PRINT+11
>> APCLTOTR	PROC+13, V1+41, PRINT+14
APCLTOTT	PROC+1!, V1+32, V1+49, V1+65*, PRINT+24, PRINT+29
APCLTOTT(	PROC+6, V1+33, V1+48, V1+64, PRINT+23, PRINT+26, PRINT+28
>> APCLTOTV	PROC+13, V1+34, PRINT+14
>> APCLVIEN	V1+1*, V1+2, V1+3, V1+4, V1+9, V1+18, V1+20, V1+23, V1+24, V1+25 , V1+35, V1+53
>> APCLX	HEAD1+8, HEAD1+9, HEAD1+10, HEAD1+12*, HEAD1+13
C	PROC+12~, V1+20, V1+21, V1+22, V1+23, V1+28, V1+31, V1+33, V1+39, V1+44 , V1+48, V1+60, V1+64, HEAD1+9, HEAD1+12
D	V1+9*, V1+10, PER~, PER+1, PER+3
DA	PROV+3!, PROV1+1!, PROV1+5!, TEAM+2!, PROVC+2!, LOCATION+4!, LOC1+1!, LOCC+2!, CLINIC+4!, DEMO+3!
DFOUT	EOP+4!
DIC	PROV1+1!, TEAM+2!, PROVC+2!, LOC1+1!, LOCC+2!, CLINIC+4!
DIC("A"	PROV1+1, TEAM+2, LOC1+1*
DIC("S"	PROVC+2, LOCC+2, CLINIC+4*
DIC(0	PROV1+1, TEAM+2, PROVC+2, LOC1+1, LOCC+2, CLINIC+4
DIR	BD+1!, ED+1!, PROV+3!, PROV1+5!, LOCATION+4!, DEMO+3!, HEADER+2!, EOP+3~
DIR("?"	BD+1*
DIR("A"	BD+1, ED+1, PROV+3, PROV1+5, LOCATION+4, DEMO+3, EOP+5*
DIR("B"	PROV+3, PROV1+5, LOCATION+4, DEMO+3
DIR(0	BD+1, ED+1, PROV+3, PROV1+5, LOCATION+4, DEMO+3, HEADER+2, EOP+5
DIRUT	BD+1, BD+2, ED+1, ED+2, PROV+4, PROV1+6, LOCATION+5, DEMO+4, EOP+4!
DLOUT	EOP+4!
DT	HEAD1+3
DTOUT	HEADER+2, EOP+4!
DUOUT	BD+1, ED+1, EOP+4!
DUZ	USR+1
DUZ(2	ZIS+1, V1+8, V1+10, LOC+1
>> F	V1+25*, V1+26, V1+27
>> G	V1+53, V1+66
IO	HEADER+2
IO("S"	EOP+2
IO(0	HEADER+2
IOF	HEAD1+1, INFORM+1
IOM	CTR+1
IOSL	PRINT+6, PRINT+9, PRINT+13, PRINT+16, PRINT+19, PRINT+22, PRINT+27
IOST	HEADER+2, EOP+1
>> IOT	EOP+2
N	PER~, PER+3
P	PROC+12~, V1+56*, V1+57, V1+58
U	TEAM+4, ZIS+1, PROC+6, PROC+8, PROC+11, V1+3, V1+4, V1+10, V1+13, V1+15 , V1+24, V1+25, V1+28, V1+29, V1+30, V1+31, V1+32, V1+33, V1+39, V1+40 , V1+44, V1+45, V1+48, V1+49, V1+55, V1+60, V1+61, V1+64, V1+65, PRINT+7 , PRINT+10, PRINT+11, PRINT+17, PRINT+20, PRINT+23, PRINT+24, PRINT+25, PRINT+28, PRINT+29, HEAD1+7 , HEAD1+9, HEAD1+12, USR+1, LOC+1
X	ED+5, PROVC+2, LOCC+2, CLINIC+4, PROC+5, PROC+6, PROC+8, PROC+11, PROC+12~, V1+9 , V1+10, V1+11, V1+12, V1+13, V1+14, V1+53, V1+54, V1+55, V1+56, V1+60 , V1+61, C~, C+2, HEAD1+8, HEAD1+9, HEAD1+12, CTR~, CTR+1, POST+1, POST+2* , POST+3*
>> X1	ED+5*
X2	ED+5*, C~
X3	C~
>> XBIOP	BROWSE+2*
>> XBNS	DEMO+6, BROWSE+2
>> XBRC	DEMO+6, BROWSE+2
>> XBRP	DEMO+6, BROWSE+1
>> XBRX	DEMO+6, BROWSE+2
Y	BD+3, ED+3, ED+4, PROV+5, PROV1+1, PROV1+2, PROV1+7, TEAM+3, TEAM+4, TEAM+5 , PROVC+2, PROVC+3, LOCATION+6, LOC1+1, LOC1+2, LOCC+2, LOCC+3, CLINIC+4, CLINIC+5, DEMO+5 , PROC+7, PROC+8, PROC+10, PROC+11, HEADER+2, CTR~, CTR+1
Z	PER+2~, PER+3*, PER+4
>> ZTQUEUED	EOP+2

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLEM1

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: