Routine: APCM13E

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD ($$FMADD,$$FMTE)^XLFDT
VA Fileman	4	^DIC MIX^DIC1 ^DIK ^DIR
IHS VA Utilities	3	^XBDBQUE ^XBFMK EN^XBVK
Patient Care Component Table Maintiance	3	PROC^APCM13E1 ^APCM13EP (EN,PT,REPORT,RT)^APCM13SL
IHS Patient	1	KILL^AUPNPAT
Patient Care Component Reports	1	DEMOCHK^APCLUTL

Package	Total	Caller Graph
Patient Care Component Table Maintiance	3	APCM13ET APCM13H APCM13N
iCare	1	APCM 13 M1IP

Entry Points

Name	Comments	DBIA/ICR reference
DEMO	;
SUM	;display summary of this report
USR()	;EP - Return name of current user from ^VA(200.
EOP	;EP - End of page.
TSKMN	;EP ENTRY POINT FROM TASKMAN
SEL1
NODEV	;
RT	;
PP	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y)	;EP - Center X in a field Y wide.
TP	;
PRV	;
ASKADD	;
A	;fiscal year
ATTEST	;get answers to attestation questions for each provider.
C	;EP
B	;
ZIS	;call to XBDBQUE
DRIVER	;
XIT	;
LISTS	;any lists with measures?
INTRO	;
PL	;do you want any patient lists
CXIT	;
NODEV1	;

External References

Name	Field # of Occurrence
^%ZIS	ZIS+5
^%ZISC	DRIVER+4, NODEV1+3, XIT+1
^%ZTLOAD	TSKMN+5
DEMOCHK^APCLUTL	DEMO+1
PROC^APCM13E1	DRIVER+1, NODEV1+1
^APCM13EP	DRIVER+3, NODEV1+2
EN^APCM13SL	LISTS+9
PT^APCM13SL	SUM+8
REPORT^APCM13SL	ZIS+1
RT^APCM13SL	LISTS+11
KILL^AUPNPAT	XIT+6, XIT+11
^DIC	SEL1+7
MIX^DIC1	PRV+9, SEL1
^DIK	ZIS+6, ZIS+7
^DIR	INTRO+5, INTRO+9, RT+8, TP+3, TP+17, PP+5, PRV+2, ASKADD+11, ASKADD+16, ATTEST+5 , ATTEST+15, ATTEST+16, EOP+5, LISTS+4, LISTS+5, A+6, B+3, C+3, C+7
^XBDBQUE	NODEV+2
^XBFMK	XIT+12
EN^XBVK	XIT+2
$$FMADD^XLFDT	B+6, B+7, C+11
$$FMTE^XLFDT	SUM+4, SUM+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: INTRO+3
Function Call: WRITE	Prompt: ^APCMMUCN(APCMRPTC,11,X,0),! Line Location: INTRO+4
Function Call: WRITE	Prompt: !!! Line Location: INTRO+7
Function Call: WRITE	Prompt: ^APCMMUCN(APCMRPTC,12,X,0),! Line Location: INTRO+8
Function Call: WRITE	Prompt: !!,"A full report will include an itemized listing of all performance measures" Line Location: RT+2
Function Call: WRITE	Prompt: !,"and will include a summary report. The summary report excludes itemized" Line Location: RT+3
Function Call: WRITE	Prompt: !,"data. The full report will produce approximately 40 pages of data for" Line Location: RT+4
Function Call: WRITE	Prompt: !,"each provider. Please take this into consideration when running print jobs," Line Location: RT+5
Function Call: WRITE	Prompt: !,"ensuring dedicated time on your printer and sufficient paper supplies" Line Location: RT+6
Function Call: WRITE	Prompt: !,"to complete your job. " Line Location: RT+7
Function Call: WRITE	Prompt: !!,"Historical data from the previous calendar year can be included in this report." Line Location: PP+2
Function Call: WRITE	Prompt: !!,"Historical data from the 90-days immediately preceding the currently",!,"selected report period can be included." Line Location: PP+3
Function Call: WRITE	Prompt: !,"IMPORTANT NOTICE: Including previous period data may significantly increase ",!,"run time.",! Line Location: PP+4
Function Call: WRITE	Prompt: !?5,"- ",$P(^VA(200,X,0),U,1) Line Location: SEL1+11
Function Call: WRITE	Prompt: !,^APCM13OB(APCMY,24,APCMZ,0) Line Location: ASKADD+9
Function Call: WRITE	Prompt: !,^APCM13OB(APCMY,25,X,0) Line Location: ASKADD+14
Function Call: WRITE	Prompt: !!,"Several Stage 1 Meaningful Use Performance Measures require an attestation of " Line Location: ATTEST+3
Function Call: WRITE	Prompt: !,"Yes or No for each provider for which the report is being run.",! Line Location: ATTEST+4
Function Call: WRITE	Prompt: !,^APCM13OB(APCMY,19,X,0) Line Location: ATTEST+13
Function Call: WRITE	Prompt: !,$$CTR("SUMMARY OF 2013 MEANINGFUL USE REPORT TO BE GENERATED") Line Location: SUM+2
Function Call: WRITE	Prompt: !!,"The date ranges for this report are:" Line Location: SUM+3
Function Call: WRITE	Prompt: !?5,"Report Period: ",?31,$$FMTE^XLFDT(APCMBD)," to ",?31,$$FMTE^XLFDT(APCMED) Line Location: SUM+4
Function Call: WRITE	Prompt: !?5,"Previous Period: ",?31,$$FMTE^XLFDT(APCMPBD)," to ",?31,$$FMTE^XLFDT(APCMPED) Line Location: SUM+5
Function Call: WRITE	Prompt: !!,"Providers: " Line Location: SUM+6
Function Call: WRITE	Prompt: !?5,$P(^VA(200,X,0),U,1) Line Location: SUM+7
Function Call: WRITE	Prompt: !,"Report Aborted" Line Location: ZIS+6
Function Call: WRITE	Prompt: !,"Report Aborted" Line Location: ZIS+7
Function Call: WRITE	Prompt: !!,"PATIENT LISTS" Line Location: LISTS+2
Function Call: WRITE	Prompt: !!,"You do not have the security access to print patient lists.",!,"Please see your supervisor or program manager if you feel you should have",!,"the APCMZ PATIENT LISTS security key.",! Line Location: LISTS+3
Function Call: WRITE	Prompt: !!,"No lists selected.",! Line Location: LISTS+10
Function Call: WRITE	Prompt: !!,"Enter the Calendar Year for which report is to be run. Use a 4 digit",!,"year, e.g. 2013." Line Location: A+2
Function Call: WRITE	Prompt: !!,"Please enter a year only!",! Line Location: A+10
Function Call: WRITE	Prompt: !!,"Enter the start date of the 90-day report period.",! Line Location: B+1
Function Call: WRITE	Prompt: ! Line Location: B+3
Function Call: WRITE	Prompt: ! Line Location: C+2
Function Call: WRITE	Prompt: !!,"Future dates not allowed." Line Location: C+4
Function Call: WRITE	Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date." Line Location: C+10
Routine Call	DIC Line Location: SEL1+7
Routine Call	DIR Line Location: INTRO+5 INTRO+9 RT+8 TP+3 TP+17 PP+5 PRV+2 ASKADD+11 ASKADD+16 ATTEST+5 ATTEST+15 ATTEST+16 EOP+5 LISTS+4 LISTS+5 A+6 B+3 C+3 C+7
Routine Call	%ZIS Line Location: ZIS+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^APCMM13C - [#9001301.03]	Classic Fileman Calls
^APCMM13P - [#9001301.04]	Classic Fileman Calls
^ATXAX - [#9002226]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCCCTRL - [#9001000]	TP+11
^APCM13OB - [#9001301.02]	INTRO+13, ASKADD+3, ASKADD+9, ASKADD+14, ATTEST+13, ATTEST+15, ATTEST+16
^APCM13OB("B"	TP+9, ATTEST+12
^APCMMUCN - [#9001300.01]	INTRO+4, INTRO+8
^APCMMUCN("B"	INTRO+2
^ATXAX - [#9002226]	SEL1+11
^DIC(4 - [#4]	LOC+1
^VA(200 - [#200]	SEL1+11, ASKADD+11, ASKADD+16, ATTEST+15, ATTEST+16, SUM+7, USR+1
^XUSEC("APCMZ PATIENT LISTS"	LISTS+3

Label References

Name	Line Occurrences
$$CTR	SUM+2
@(	TP+6
A	A+10
C	C+4, C+7, C+9
CXIT	C+3
DEMO	ATTEST+19, SUM+9
LISTS	PL+1, LISTS+11
NODEV	ZIS+4
PRV	PRV+6, PRV+12, SEL1+5, DEMO+2, ASKADD+19, ATTEST+6, ATTEST+7
RT	TP+4
SEL1	SEL1+4
TP	TP+7, TP+8, PP+6, PRV+3
TSKMN	ZIS+8
XIT	APCM13E+6, INTRO+10, INTRO+11, RT+9, TP+11, ZIS+2, ZIS+3, ZIS+4, ZIS+6, ZIS+7 , DRIVER+5, NODEV1+4, TSKMN+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
%ZIS	ZIS+4!, ZIS+5!*
A	XIT+8!
APCMADDQ	ASKADD+2!
APCMADDQ(	ASKADD+3*, ASKADD+5
APCMADDQ("ANS"	ASKADD+13, ASKADD+18
APCMATTE	ATTEST+1!
APCMATTE(	ATTEST+2, ATTEST+9, ATTEST+18
>> APCMBD	TP+7, TP+11, SUM+4, A+1, A+12, B+2, B+6, B+7, C+1, C+5 , C+9, C+11, C+12
>> APCMDELT	ZIS+4, ZIS+5
>> APCMDEMO	DEMO+1, DEMO+2
>> APCMED	TP+8, SUM+4, A+1, A+12, B+2, B+6, C+1, C+7, C+9, C+12
>> APCMIND(	INTRO+13*, TP+11
>> APCMIWPL	PL+1
APCMLIST	LISTS+1!, LISTS+8!, LISTS+10, LISTS+11
>> APCMP	ASKADD+10, ASKADD+11, ASKADD+13, ASKADD+15, ASKADD+16, ASKADD+18, ATTEST+14*, ATTEST+15, ATTEST+16, ATTEST+18
>> APCMPBD	SUM+5, A+13, B+7, C+12*
>> APCMPED	SUM+5, A+13, B+7, C+12*
>> APCMPER	A+1, A+11, A+12, A+13, B+2, B+5, C+1*
>> APCMPLTY	PRV+1, PRV+4, PRV+6, PRV+12, SEL1+5
>> APCMPRTX	SEL1+9*
APCMPRV	PRV+7!, PRV+13!, SEL1+1
APCMPRV(	PRV+11, SEL1+3, SEL1+11*, ASKADD+3, ASKADD+10, ASKADD+15, ATTEST+2, ATTEST+14, SUM+7
>> APCMQ	TP+10, TP+11, TP+12, TP+18, TP+19, ASKADD+4, ASKADD+5, ASKADD+10, ASKADD+12, ASKADD+15 , ASKADD+17, ASKADD+19, ATTEST+8, ATTEST+9, ATTEST+14, ATTEST+17*, ATTEST+19
APCMQUIT	PRV+5, PRV+6, PRV+10, PRV+12, SEL1+1, SEL1+5, SEL1+8, ZIS+2, LISTS+1!, LISTS+11
>> APCMROT	SUM+9, ZIS+4
>> APCMRPT	ZIS+3, ZIS+6, ZIS+7
>> APCMRPTC	INTRO+2*, INTRO+4, INTRO+8
>> APCMRPTP	TP+1, TP+5, TP+6, PP+2, PP+3
>> APCMRPTT	INTRO+1*
>> APCMSD	C+11*
>> APCMSUM	RT+1, RT+10
>> APCMVDT	A+1, A+9, A+11, B+2, B+5, C+1*
>> APCMWPP	PP+1, PP+7, SUM+5
>> APCMX	ASKADD+5, ASKADD+8, ASKADD+13, ASKADD+18, ATTEST+9, ATTEST+12, ATTEST+18
>> APCMY	ASKADD+8, ASKADD+9, ASKADD+14, ATTEST+12, ATTEST+13, ATTEST+15, ATTEST+16
>> APCMZ	ASKADD+9*
B	XIT+8!
BD	XIT+10!
C	XIT+8!
D	PRV+9!, SEL1!, XIT+8!
DA	INTRO+9!, RT+8!, TP+3!, TP+17!, PP+5!, PRV+2!, ASKADD+11!, ASKADD+16!, ATTEST+5!, ATTEST+15! , ATTEST+16!, ZIS+6, ZIS+7, LISTS+5!
DFOUT	EOP+4!
DIADD	XIT+5!
DIC	PRV+9!, SEL1!, SEL1+7*!
DIC("A"	PRV+9, SEL1, SEL1+7*
DIC("S"	SEL1+7*
DIC(0	PRV+9, SEL1, SEL1+7*
DIK	ZIS+6!, ZIS+7!
DIR	INTRO+5!, INTRO+9!, RT+8!, TP+3!, TP+17!, PP+5!, PRV+2!, ASKADD+11!, ASKADD+16!, ATTEST+5! , ATTEST+15!, ATTEST+16!, XIT+4!, EOP+3~, EOP+4!, EOP+5!, LISTS+4!, LISTS+5!, A+6!, B+3! , C+2!, C+6!, CXIT+1!
DIR("?"	A+5*
DIR("A"	INTRO+5, INTRO+9, RT+8, TP+3, TP+17, PP+5, PRV+2, ASKADD+11, ASKADD+16, ATTEST+5 , ATTEST+15, ATTEST+16, LISTS+4, LISTS+5, A+4, B+3, C+2, C+6
DIR("B"	INTRO+9, RT+8, TP+17, PP+5, ASKADD+11, ASKADD+16, ATTEST+5, ATTEST+15, ATTEST+16, LISTS+5
DIR(0	INTRO+5, INTRO+9, RT+8, TP+3, TP+17, PP+5, PRV+2, ASKADD+11, ASKADD+16, ATTEST+5 , ATTEST+15, ATTEST+16, EOP+5, LISTS+4, LISTS+5, A+3, B+3, C+2, C+6*
DIRUT	INTRO+5!, INTRO+10, RT+9, TP+4, TP+18, PP+6, PRV+3, ASKADD+12, ASKADD+17, ATTEST+6 , ATTEST+17, XIT+4!, EOP+4!, LISTS+6, A+7, A+8, B+3, B+4
DLAYGO	XIT+5!
DLOUT	EOP+4!
DOD	XIT+4!
DT	C+4
DTOUT	EOP+4!
DUOUT	INTRO+5!, XIT+4!, EOP+4!, A+8, B+3
DUZ	USR+1, LISTS+3
DUZ(2	TP+11, LOC+1
E	XIT+8!
ED	XIT+10!
F	XIT+8!
G	XIT+8!
H	XIT+8!
I	XIT+8!
IO	DRIVER+2, TSKMN+1
IO("DOC"	TSKMN+2
IO("Q"	ZIS+8
IO("S"	EOP+2
>> IOCPU	TSKMN+5
IOF	APCM13E+4, SUM+1
IOM	TSKMN+3, CTR+1
ION	TSKMN+1
IOP	ZIS+4!, ZIS+5!
IOSL	TSKMN+3
IOST	TSKMN+1, EOP+1
J	XIT+8!
K	XIT+8!
L	XIT+8!
M	XIT+8!
N	XIT+8!, XIT+9!
N1	XIT+9!
N2	XIT+9!
N3	XIT+9!
N4	XIT+9!
N5	XIT+9!
N6	XIT+9!
O	XIT+8!
P	XIT+8!
>> POP	ZIS+6, ZIS+7
Q	XIT+8!
R	XIT+8!
S	XIT+8!
T	XIT+8!
U	INTRO+13, TP+11, SEL1+11, ASKADD+11, ASKADD+16, ATTEST+15, ATTEST+16, SUM+7, USR+1, LOC+1
V	XIT+8!
W	XIT+8!
X	INTRO+4, INTRO+8, INTRO+13, TP+9, TP+11, SEL1+11, ASKADD+3, ASKADD+14, ATTEST+2, ATTEST+13* , SUM+7*, XIT+7!, XIT+8!, CTR~, CTR+1, B+3!
X1	XIT+7!
X2	XIT+7!
X3	XIT+7!
X4	XIT+7!
X5	XIT+7!
X6	XIT+7!
>> XBNS	NODEV+1*
>> XBRC	NODEV+1*
>> XBRP	NODEV+1*
>> XBRX	NODEV+1*
Y	INTRO+11, RT+10, TP+5, TP+19, PP+7, PRV+4, PRV+10, PRV+11, SEL1+1, SEL1+2 , SEL1+3, SEL1+8, SEL1+9, SEL1+11, ASKADD+3, ASKADD+13, ASKADD+18, ATTEST+2, ATTEST+7, ATTEST+18 , XIT+8!, CTR~, CTR+1, LISTS+6, LISTS+7, A+9, A+10, B+3!, B+5, B+6 , C+3, C+4, C+5, C+7
Z	XIT+8!
>> ZTCPU	TSKMN+5*
>> ZTDESC	TSKMN+5*
>> ZTDTH	TSKMN+5*
>> ZTIO	TSKMN+1, TSKMN+2, TSKMN+3*
>> ZTQUEUED	XIT+3, EOP+2
>> ZTREQ	XIT+3*
>> ZTRTN	TSKMN+5*
ZTSAVE	TSKMN+4!
ZTSAVE("APCM*"	TSKMN+4*

Customize PDF page

Package: Patient Care Component Table Maintiance

Routine: APCM13E

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: