Routine: APCLEM2

Package	Total	Call Graph
Patient Care Component Reports	4	($$C,$$CTR,$$LOC,$$PER)^APCLEM1 ($$DEMO,DEMOCHK)^APCLUTL ($$CLINIC,$$PRIMPROV)^APCLV PAUSE^APCLVL01
VA Fileman	4	(,DD)^%DT C^%DTC ^DIC ^DIR
IHS VA Utilities	2	^XBDBQUE EN^XBVK
Kernel	2	($$FMADD,$$FMTE)^XLFDT $$REPEAT^XLFSTR
PCC Medical Query	1	PEP^AMQQGTX0

Entry Points

Name	Comments	DBIA/ICR reference
ACC	;
SUF	;
PAT
LOC1()	;EP - Return location name from file 4 based on DUZ(2).
DEMO	;
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
PRINT	;
CTR(X,Y)	;EP - Center X in a field Y wide.
INIT	;
EOJ	;ENTRY POINT
C1	;
ZIS	;
F	;
ACCEOJ
VISITS	;
START	;
HRN
ACTIVE	;determine if patient was seen in FYs
X
FY	;
HEAD1	;
GETPROV	;
HEADER	;
PROCESS	;
PROC	;

External References

Name	Field # of Occurrence
^%DT	FY+2
DD^%DT	X
C^%DTC	X
PEP^AMQQGTX0	F+8
$$C^APCLEM1	PRINT+3, PRINT+4
$$CTR^APCLEM1	HEAD1+3, HEAD1+4, HEAD1+5
$$LOC^APCLEM1	HEAD1+4
$$PER^APCLEM1	PRINT+5
$$DEMO^APCLUTL	C1+3
DEMOCHK^APCLUTL	DEMO+1
$$CLINIC^APCLV	ACTIVE+8
$$PRIMPROV^APCLV	ACTIVE+10
PAUSE^APCLVL01	PRINT+6
^DIC	F+7
^DIR	EOP+5, HEADER+2
^XBDBQUE	DEMO+5
EN^XBVK	ACCEOJ+1
$$FMADD^XLFDT	GETPROV+9
$$FMTE^XLFDT	HEAD1+3, HEAD1+5
$$REPEAT^XLFSTR	HEAD1+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Enter the Facilities you want to report on. To be included in this report" Line Location: F+2
Function Call: WRITE	Prompt: !,"the patient must be registered at one of these facilities and must have" Line Location: F+3
Function Call: WRITE	Prompt: !,"had at least one visit in the past 3 years to one of these facilities.",! Line Location: F+4
Function Call: WRITE	Prompt: !,"If you are operating on a multi divisional database it might be best to" Line Location: F+5
Function Call: WRITE	Prompt: !,"run one report for each facility." Line Location: F+6
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: F+7
Function Call: WRITE	Prompt: !,"You can't choose all locations." Line Location: F+10
Function Call: WRITE	Prompt: ! Line Location: FY+2
Function Call: WRITE	Prompt: !!!,"THIS REPORT WILL SEARCH THE ENTIRE PATIENT FILE!",!!,"IT IS STRONGLY RECOMMENDED THAT YOU QUEUE THIS REPORT FOR A TIME WHEN THE",!,"SYSTEM IS NOT IN HEAVY USE!",! Line Location: DEMO+3
Function Call: WRITE	Prompt: $$CTR("*** Percent of Patient's Empanelled ***") Line Location: ACC+2
Function Call: WRITE	Prompt: !,"This option will produce either a count of active users and the " Line Location: ACC+3
Function Call: WRITE	Prompt: !,"number and percent of those patients who were empanelled on the " Line Location: ACC+4
Function Call: WRITE	Prompt: !,"as of the date the report is run." Line Location: ACC+5
Function Call: WRITE	Prompt: !,"Your Report can be generated for one or more Facilities." Line Location: ACC+6
Function Call: WRITE	Prompt: !!,"The system will select patients who have had a visit at the Facility(s) specified",! Line Location: ACC+7
Function Call: WRITE	Prompt: "within the past 3 years of the date you specify." Line Location: ACC+8
Function Call: WRITE	Prompt: !,"The visit used to determine if the patient is active must meet the following" Line Location: ACC+9
Function Call: WRITE	Prompt: !,"criteria:" Line Location: ACC+10
Function Call: WRITE	Prompt: !?5,"- must be to a location (facility) you specify" Line Location: ACC+11
Function Call: WRITE	Prompt: !?5,"- must be a complete visit (have a POV and primary provider)" Line Location: ACC+12
Function Call: WRITE	Prompt: !?5,"- must not be service category Chart Review, Telephone Call, Event" Line Location: ACC+13
Function Call: WRITE	Prompt: !?10,"or In-Hospital visit" Line Location: ACC+14
Function Call: WRITE	Prompt: !?5,"- must not be to clinics Home, Telephone, employee health or chart review" Line Location: ACC+15
Function Call: WRITE	Prompt: ! Line Location: ACC+16
Function Call: WRITE	Prompt: !," Total # of active patients: ",$$C^APCLEM1(APCLTOTP,0),! Line Location: PRINT+3
Function Call: WRITE	Prompt: !,"Total # of active patients Empanelled: ",$$C^APCLEM1(APCLTOTR,0),! Line Location: PRINT+4
Function Call: WRITE	Prompt: !," Percent Empanelled: ",$$PER^APCLEM1(APCLTOTR,APCLTOTP),!! Line Location: PRINT+5
Function Call: WRITE	Prompt: ! Line Location: HEADER+2
Function Call: WRITE	Prompt: !,$$CTR^APCLEM1($$FMTE^XLFDT(DT),80),?70,"Page ",APCLPG,! Line Location: HEAD1+3
Function Call: WRITE	Prompt: $$CTR^APCLEM1($$LOC^APCLEM1,80),! Line Location: HEAD1+4
Function Call: WRITE	Prompt: $$CTR^APCLEM1("Patients Active as of: "_$$FMTE^XLFDT(APCLFYE)),! Line Location: HEAD1+5
Function Call: WRITE	Prompt: $$REPEAT^XLFSTR("-",79),! Line Location: HEAD1+6
Routine Call	DIC Line Location: F+7
Routine Call	DIR Line Location: EOP+5 HEADER+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AMQQ(5 - [#9009075]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	PAT, HRN, ACTIVE+16
^AUPNVPOV("AD"	ACTIVE+9
^AUPNVSIT - [#9000010]	ACTIVE+5, ACTIVE+6, ACTIVE+7, ACTIVE+11
^AUPNVSIT("AA"	VISITS+3, PROC+1
^BDPRECN - [#90360.1]	GETPROV+6, GETPROV+7, GETPROV+8, GETPROV+9, GETPROV+11
^BDPRECN("AA"	GETPROV+4
^DD("DD"	FY+1, FY+4
^DIC(4 - [#4]	LOC1+1
^DPT - [#2]	C1+1, C1+2, C1+4
^VA(200 - [#200]	USR+1

Label References

Name	Line Occurrences
$$CTR	ACC+2
ACTIVE	PROC+1
C1	PAT
EOJ	F+7, F+9, DEMO+6
F	FY+3
FY	DEMO+2
HEAD1	HEADER+1
HEADER	PRINT+2
INIT	START+1
PROC	VISITS+3
SUF	F+10

Naked Globals

Name	Field # of Occurrence
^(	C1+4
^(0	USR+1, LOC1+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ACTIVE+8*
%DT	FY+2*, ACCEOJ!
%DT("A"	FY+2*
>> APCLDEMO	DEMO+1, DEMO+2, C1+3
APCLDFN	PAT*, PAT+1!, C1+1, C1+2, C1+3, C1+4, HRN, VISITS+3, PROC+1, ACTIVE+16 , GETPROV+4
>> APCLDTP	FY+1*
>> APCLET	PAT+2*
>> APCLFYB	X*, VISITS+1
APCLFYBI	PAT+1!, VISITS+1*, VISITS+3, ACTIVE+3
>> APCLFYBY	X*
>> APCLFYE	FY+4*, X, C1+4, VISITS+1, HEAD1+5
APCLFYEI	PAT+1!, VISITS+1*, ACTIVE+4
>> APCLFYEY	FY+4*
>> APCLGOT1	HRN*, HRN+1
APCLGOTA	PAT+1!, VISITS+2!, VISITS+3, PROC+1, ACTIVE+2, ACTIVE+14*
>> APCLHRN	HRN*
>> APCLJ	X+1*
>> APCLPG	PRINT+1, HEADER+1, HEAD1+1, HEAD1+2, HEAD1+3
>> APCLQUIT	HEADER+2*
APCLSKIP	VISITS+2!
APCLSU	F+1!, F+9, F+10!
APCLSU(	HRN, ACTIVE+13
APCLSU("*"	F+10
APCLSUF	F+1!
>> APCLTOTP	PROCESS+1, ACTIVE+15, PRINT+3, PRINT+5
>> APCLTOTR	PROCESS+1, ACTIVE+16, PRINT+4, PRINT+5
APCLV	PAT+1!, VISITS+3*, PROC+1
>> APCLVD	VISITS+3*, ACTIVE+3, ACTIVE+4
>> APCLVDFN	PROC+1*, ACTIVE+5, ACTIVE+6, ACTIVE+7, ACTIVE+8, ACTIVE+9, ACTIVE+10, ACTIVE+11
>> B	GETPROV+7*, GETPROV+11
DA	F+7!
DFOUT	EOP+4!
DIC	F+7*!, ACCEOJ!
DIC("S"	F+7*
DIC(0	F+7*
DIR	EOP+3~, HEADER+2!
DIR("A"	EOP+5*
DIR(0	EOP+5, HEADER+2
DIRUT	ACCEOJ!, EOP+4!
DLOUT	EOP+4!
DT	FY+1, GETPROV+10, HEAD1+3
DTOUT	EOP+4!, HEADER+2
DUOUT	EOP+4!
DUZ	USR+1
DUZ(2	LOC1+1
>> E	GETPROV+9, GETPROV+10, GETPROV+11
>> F	ACTIVE+11*, ACTIVE+12, ACTIVE+13
H	ACCEOJ!
I	ACCEOJ!
IO	HEADER+2
IO("Q"	ACCEOJ!
IO("S"	EOP+2
IO(0	HEADER+2
IOF	ACC+1, HEAD1+1
IOM	CTR+1
IOST	EOP+1, HEADER+2
>> IOT	EOP+2
J	ACCEOJ!, HRN*
JK	ACCEOJ!
K	ACCEOJ!
M	ACCEOJ!
>> P	GETPROV+2*
POP	ACCEOJ!
S	ACCEOJ!, GETPROV+3!
S(	GETPROV+11*
TS	ACCEOJ!
U	C1+2, C1+4, HRN, ACTIVE+5, ACTIVE+6, ACTIVE+7, ACTIVE+11, ACTIVE+16, USR+1, LOC1+1 , GETPROV+7, GETPROV+9, GETPROV+11
X	F+7, ACCEOJ!, X, CTR~, CTR+1, GETPROV+4, GETPROV+5, GETPROV+6, GETPROV+7, GETPROV+8 , GETPROV+9, GETPROV+11
>> X1	X*
>> X2	X*
>> XBNS	DEMO+4*
>> XBRC	DEMO+4*
>> XBRP	DEMO+4*
>> XBRX	DEMO+4*
Y	F+7, F+8, FY+1, FY+3, FY+4, ACCEOJ!, X, CTR~, CTR+1, GETPROV+6* , GETPROV+7, GETPROV+8, GETPROV+11, HEADER+2
>> Z	GETPROV+8*, GETPROV+9, GETPROV+10
ZTQUEUED	ACCEOJ!, EOP+2
ZTSK	ACCEOJ!

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLEM2

Information

Source Information

Call Graph

Call Graph Total: 13

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: