Routine: APCLACG

Package	Total	Call Graph
IHS VA Utilities	3	^XBDBQUE ^XBFMK EN^XBVK
Patient Care Component Reports	3	PROC^APCLACG1 EN^APCLACGI ^APCLACGM
VA Fileman	3	^%DT ^DIC ^DIR
iCare	2	LISTS^BQIPLRT TAB^BQIUTB
IHS Patient	1	KILL^AUPNPAT
Kernel	1	$$FMTE^XLFDT
PCC Medical Query	1	PEP^AMQQGTX0

Entry Points

Name	Comments	DBIA/ICR reference
ACCL	;
SUM	;display summary of this report
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).
BROWSE	;
CTR(X,Y)	;EP - Center X in a field Y wide.
TP	;
A	;ANTICOAGULATION
E	;EHR PERSONAL LIST
ZIS	;call to XBDBQUE
GRP	;
F	;calendar year
I	;ICARE GROUP ; GET THIS USERS LISTS AND PRESENT THEM
S	;get search template
COMM	;get community taxonomy for user population
W	;WARFARIN
YEAR	;calendar year
Y	;
MOS	;
LISTS	;any lists with measures?
QUA	;
INTRO	;
XIT	;
PROC	;

External References

Name	Field # of Occurrence
^%DT	MOS+6, MOS+15
PEP^AMQQGTX0	ACCL+7, A+8
PROC^APCLACG1	PROC+1
EN^APCLACGI	E+8, I+9
^APCLACGM	PRINT+1
KILL^AUPNPAT	XIT+5, XIT+10
LISTS^BQIPLRT	I+6
TAB^BQIUTB	E+5
^DIC	ACCL+6, COMM+9, S+2, A+7
^DIR	GRP+1, ACCL+4, LISTS+12, ZIS+1, EOP+5, QUA+2, QUA+14, YEAR+6, YEAR+15, A+5 , MOS+2, MOS+20, F+6
^XBDBQUE	ZIS+6, BROWSE+2
^XBFMK	COMM+6, XIT+11
EN^XBVK	XIT+2
$$FMTE^XLFDT	SUM+4, QUA+12, YEAR+14, MOS+19

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$CTR("Anticoagulation INR Management Report",80) Line Location: APCLACG+5
Function Call: WRITE	Prompt: !,"This will produce a report on anticoagulation therapy for a population you",!,"select." Line Location: INTRO+2
Function Call: WRITE	Prompt: !,"Group definitions:" Line Location: INTRO+3
Function Call: WRITE	Prompt: !,"W - Warfarin Patients = All patients with a prescription for Warfarin during" Line Location: INTRO+4
Function Call: WRITE	Prompt: !," the report period. For the monthly report the time period will be in the" Line Location: INTRO+5
Function Call: WRITE	Prompt: !," 45 days prior to the report period." Line Location: INTRO+6
Function Call: WRITE	Prompt: !,"A - Anticoagulation Clinic Patients = All patients with a documented visit to" Line Location: INTRO+7
Function Call: WRITE	Prompt: !," the anticoagulation clinic (clinic code D1) in the specifed report date " Line Location: INTRO+8
Function Call: WRITE	Prompt: !," range. For the monthly report the time period will be 45 days." Line Location: INTRO+9
Function Call: WRITE	Prompt: !,"S - Search Template = All patients in a search template you select." Line Location: INTRO+10
Function Call: WRITE	Prompt: !,"I - iCare panel = All patients in an iCare panel you select." Line Location: INTRO+11
Function Call: WRITE	Prompt: !,"E - EHR Personal List = All patients on an EHR Personal list that you select." Line Location: INTRO+12
Function Call: WRITE	Prompt: ! Line Location: INTRO+13
Function Call: WRITE	Prompt: !!,"No GROUP selected." Line Location: GRP+6
Function Call: WRITE	Prompt: !!,"The following clinics have beeen identified as Anticoagulation clinics:" Line Location: ACCL+2
Function Call: WRITE	Prompt: !?5,"D1 - Anticoagulation clinic" Line Location: ACCL+3
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: ACCL+6
Function Call: WRITE	Prompt: !!,"That is not a valid response, please select certain clinics" Line Location: ACCL+9
Function Call: WRITE	Prompt: !!,"This is a monthly report. Enter the month and year." Line Location: TP+1
Function Call: WRITE	Prompt: !!,"PATIENT LISTS" Line Location: LISTS+3
Function Call: WRITE	Prompt: !,"The following patient lists are available to be printed with this report." Line Location: LISTS+4
Function Call: WRITE	Prompt: !,"Please select which reports you would like to include with the report." Line Location: LISTS+5
Function Call: WRITE	Prompt: !,"1 - All patients in the population selected." Line Location: LISTS+6
Function Call: WRITE	Prompt: !,"2 - Only patients in INR Goal Range and monitored this month" Line Location: LISTS+7
Function Call: WRITE	Prompt: !,"3 - Only patients in INR Goal Range but NOT monitored this month" Line Location: LISTS+8
Function Call: WRITE	Prompt: !,"4 - Only patients NOT in INR Goal Range but are monitored this month" Line Location: LISTS+9
Function Call: WRITE	Prompt: !,"5 - Only patients NOT in INR Goal Range and are NOT monitored this month" Line Location: LISTS+10
Function Call: WRITE	Prompt: !!,"No lists selected. Will print statistics only.",! Line Location: LISTS+14
Function Call: WRITE	Prompt: !!,"Specify the community taxonomy to determine which patients will be",! Line Location: COMM+1
Function Call: WRITE	Prompt: "included in the user population/active clinical population. You should " Line Location: COMM+2
Function Call: WRITE	Prompt: !,"have created this taxonomy using QMAN.",! Line Location: COMM+3
Function Call: WRITE	Prompt: !,$$CTR("SUMMARY OF ANTICOAGULATION REPORT TO BE GENERATED") Line Location: SUM+2
Function Call: WRITE	Prompt: ! Line Location: SUM+3
Function Call: WRITE	Prompt: !?5,"Report Period: ",?31,$$FMTE^XLFDT(APCLBD)," to ",?31,$$FMTE^XLFDT(APCLED) Line Location: SUM+4
Function Call: WRITE	Prompt: !!,"The COMMUNITY Taxonomy to be used is: ",$P(^ATXAX(APCLTAXI,0),U) Line Location: SUM+5
Function Call: WRITE	Prompt: !!,"Patient Lists will be produced.",! Line Location: SUM+6
Function Call: WRITE	Prompt: ! Line Location: ZIS+1
Function Call: WRITE	Prompt: !,"Year not entered.",! Line Location: QUA+6
Function Call: WRITE	Prompt: !!,"Enter the Calendar Year for the report END date. Use a 4 digit",!,"year, e.g. 2009" Line Location: YEAR+2
Function Call: WRITE	Prompt: !!,"Please enter a year only!",! Line Location: YEAR+10
Function Call: WRITE	Prompt: !!,"You chose ",$$FMTE^XLFDT(APCLBD)," through ",$$FMTE^XLFDT(APCLED),"." Line Location: YEAR+14
Function Call: WRITE	Prompt: !!,"There are ",C," patients in that search template that will be reported on." Line Location: S+7
Function Call: WRITE	Prompt: !!,"You do not have any EHR Personal Lists defined." Line Location: E+6
Function Call: WRITE	Prompt: !!,"no list selected." Line Location: E+9
Function Call: WRITE	Prompt: !!,"You have selected EHR Personal List: ",$P(APCLICP,U,3) Line Location: E+10
Function Call: WRITE	Prompt: !!,"You do not have any iCare panels defined." Line Location: I+7
Function Call: WRITE	Prompt: !!,"no panel selected." Line Location: I+10
Function Call: WRITE	Prompt: !!,"You have selected iCare panel: ",$P(APCLICP,U,3) Line Location: I+11
Function Call: WRITE	Prompt: !!,"The following clinics have beeen identified as Anticoagulation clinics:" Line Location: A+3
Function Call: WRITE	Prompt: !?5,"D1 - Anticoagulation clinic" Line Location: A+4
Function Call: WRITE	Prompt: "OOPS - QMAN NOT CURRENT - QUITTING" Line Location: A+7
Function Call: WRITE	Prompt: !!,"That is not a valid response, please select certain clinics" Line Location: A+10
Function Call: WRITE	Prompt: !,"Enter the month/4 digit year in the format 1/1999. Slash is required and ",!,"4 digit year is required.",! Line Location: MOS+5
Function Call: WRITE	Prompt: !!,"Enter a month and 4 digit year. Date must be in the past. E.g. 04/1999 or 01/2000." Line Location: MOS+7
Function Call: WRITE	Prompt: !!,"No future dates allowed!",! Line Location: MOS+8
Function Call: WRITE	Prompt: !!,"You chose ",$$FMTE^XLFDT(APCLBD)," through ",$$FMTE^XLFDT(APCLED),"." Line Location: MOS+19
Function Call: WRITE	Prompt: !!,"Enter the Calendar Year for the report END date. Use a 4 digit",!,"year, e.g. 2009" Line Location: F+2
Function Call: WRITE	Prompt: !!,"Please enter a year only!",! Line Location: F+10
Routine Call	DIC Line Location: ACCL+6 COMM+9 S+2 A+7
Routine Call	DIR Line Location: GRP+1 ACCL+4 LISTS+12 ZIS+1 EOP+5 QUA+2 QUA+14 YEAR+6 YEAR+15 A+5 MOS+2 MOS+20 F+6

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ATXAX - [#9002226]	COMM+8, SUM+5
^BGPSITE - [#90241.02]	COMM+8
^DIBT(	S+6
^DIC(4 - [#4]	LOC+1
^DIC(40.7 - [#40.7]	ACCL+5, ACCL+10, A+6, A+11
^TMP("BQIPLRT"	I+3!, I+7
^TMP("BQITABLE"	E+4!, E+6
^VA(200 - [#200]	USR+1

Label References

Name	Line Occurrences
$$CTR	APCLACG+5, SUM+2
@(	GRP+5, TP+7
A	ACCL+8, ACCL+9, A+9, A+10
ACCL	TP+8
BROWSE	ZIS+4
COMM	LISTS+1
F	QUA+5, F+10
INTRO	GRP+6
MOS	MOS+5, MOS+7, MOS+8, MOS+21, MOS+22
QUA	QUA+11
TP	GRP+7, ACCL+5, QUA+6
XIT	INTRO+1, GRP+2, ZIS+2, ZIS+4, ZIS+7
YEAR	YEAR+10, YEAR+16, YEAR+17

Naked Globals

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	MOS+6!, MOS+15
A	XIT+7!
APCLACCL	ACCL+1!, ACCL+8, ACCL+9!, A+2!, A+9, A+10!
APCLACCL(	ACCL+5, ACCL+10, A+6, A+11
APCLACCL("*"	ACCL+9, A+10
>> APCLANS	LISTS+13*
>> APCLBD	TP+2, TP+6, TP+8, SUM+4, QUA+1, QUA+7, QUA+8, QUA+9, QUA+10, QUA+12 , YEAR+12, YEAR+13, YEAR+14, MOS+10, MOS+19
>> APCLC	LISTS+13*
>> APCLDATA	E+3, E+5, I+5, I+6
>> APCLDO	QUA+11, QUA+14, QUA+15, QUA+16*
>> APCLED	TP+2, TP+6, SUM+4, QUA+1, QUA+7, QUA+8, QUA+9, QUA+10, QUA+11, QUA+12 , YEAR+14, MOS+18, MOS+19
>> APCLGRP	GRP+3*, GRP+5, GRP+7
>> APCLI	LISTS+13*
>> APCLICP	E+7, E+9, E+10, I+8, I+10, I+11
APCLLIST	LISTS+2!, LISTS+11!, LISTS+14, SUM+6
APCLLIST(	LISTS+13*
>> APCLOPT	ZIS+3*
>> APCLPER	QUA+6, QUA+7, QUA+8, QUA+9, QUA+10, YEAR+1, YEAR+11, F+1, F+11
APCLPTS	GRP+4!, S+4, E+2, I+2, A+1, W+1*
APCLPTS(	S+6*
>> APCLQTR	QUA+1, QUA+4, QUA+5, QUA+7, QUA+8, QUA+9, QUA+10
>> APCLQUIT	GRP+6, S+1, S+3, E+1, E+6, E+9, I+2, I+7, I+10, A+1* , W+1*
>> APCLRTYP	TP+2, TP+5, TP+7, LISTS+1, PRINT+1
>> APCLSTMP	S+5*, S+6
APCLTAX	COMM+4!
>> APCLTAXI	COMM+5, COMM+11, SUM+5
>> APCLVDT	YEAR+1, YEAR+9, YEAR+11, YEAR+12, YEAR+13, MOS+1, MOS+9, MOS+10, MOS+11, MOS+15 , MOS+18, F+1, F+9, F+11
B	COMM+8*, XIT+7!
BD	XIT+9!
C	XIT+7!, S+6*, S+7
D	XIT+7!, MOS+12, MOS+13, MOS+14, MOS+16, MOS+17*, MOS+18
DA	GRP+1!, ACCL+4!, ACCL+6!, LISTS+12!, ZIS+1!, QUA+2!, QUA+14!, YEAR+15!, S+2!, A+5! , A+7!, MOS+2!, MOS+20!
DFOUT	EOP+4!
DIADD	XIT+4!
DIC	ACCL+6!, COMM+7, S+2!, A+7!
DIC("A"	COMM+7, S+2
DIC("B"	COMM+8*
DIC("S"	ACCL+6, COMM+7, S+2, A+7
DIC(0	ACCL+6, COMM+7, S+2, A+7
DICR	S+2!
DIR	GRP+1!, ACCL+4!, LISTS+12!, ZIS+1!, XIT+3!, EOP+3~, EOP+4!, EOP+5!, QUA+2!, QUA+14! , YEAR+6!, YEAR+15!, A+5!, MOS+2!, MOS+20!, F+6!
DIR("?"	YEAR+5, MOS+2, F+5*
DIR("A"	GRP+1, ACCL+4, LISTS+12, ZIS+1, QUA+2, QUA+14, YEAR+4, YEAR+15, A+5, MOS+2 , MOS+20, F+4
DIR("B"	ACCL+4, ZIS+1, QUA+14, YEAR+15, A+5, MOS+20
DIR(0	GRP+1, ACCL+4, LISTS+12, ZIS+1, EOP+5, QUA+2, QUA+14, YEAR+3, YEAR+15, A+5 , MOS+2, MOS+20, F+3*
DIRUT	GRP+2, ACCL+5, ZIS+2, XIT+3!, EOP+4!, QUA+3, QUA+15, YEAR+7, YEAR+8, YEAR+16 , A+6, MOS+3, MOS+21, F+7, F+8
DLAYGO	XIT+4!
DLOUT	EOP+4!
DOD	XIT+3!
DR	S+2!
DT	QUA+11, MOS+8
DTOUT	EOP+4!
DUOUT	XIT+3!, EOP+4!, YEAR+8, F+8
DUZ	USR+1
DUZ(2	COMM+8, LOC+1
E	XIT+7!
ED	XIT+9!
F	XIT+7!
G	XIT+7!
H	XIT+7!
I	XIT+7!
IO("S"	EOP+2
IOF	APCLACG+4, SUM+1
IOM	CTR+1
IOST	EOP+1
>> IOT	EOP+2
J	XIT+7!
K	XIT+7!
L	XIT+7!
M	XIT+7!, MOS+11*, MOS+13, MOS+14, MOS+15, MOS+18
N	XIT+7!, XIT+8!
N1	XIT+8!
N2	XIT+8!
N3	XIT+8!
N4	XIT+8!
N5	XIT+8!
N6	XIT+8!
O	XIT+7!
P	XIT+7!
Q	XIT+7!
R	XIT+7!
S	XIT+7!
T	XIT+7!
U	COMM+8, SUM+5, USR+1, LOC+1, E+6, E+10, I+7, I+11
V	XIT+7!
W	XIT+7!
X	ACCL+5, ACCL+6, ACCL+10, XIT+6!, XIT+7!, CTR~, CTR+1, S+6, A+6, A+7 , A+11, MOS+4, MOS+6, MOS+15*
X1	XIT+6!
X2	XIT+6!
X3	XIT+6!
X4	XIT+6!
X5	XIT+6!
X6	XIT+6!
>> XBIOP	BROWSE+2*
>> XBNS	ZIS+5*
>> XBRC	ZIS+5, BROWSE+2
>> XBRP	ZIS+5, BROWSE+1
>> XBRX	ZIS+5, BROWSE+2
Y	GRP+3, ACCL+5, ACCL+6, ACCL+7, LISTS+13, COMM+10, COMM+11, ZIS+3, ZIS+4, XIT+7! , CTR~, CTR+1, QUA+4, QUA+16, YEAR+9, YEAR+10, YEAR+17, S+3, S+5, A+6 , A+7, A+8, MOS+5, MOS+6, MOS+7, MOS+8, MOS+9, MOS+16, MOS+22, F+9 , F+10
Z	XIT+7!
>> ZTQUEUED	XIT+2, EOP+2
>> ZTREQ	XIT+2*

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLACG

Information

Source Information

Call Graph

Call Graph Total: 14

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: