Routine: APCM2AE

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

Package	Total	Caller Graph
Patient Care Component Table Maintiance	1	APCM2AET
iCare	1	APCM 25 MOD S2 ALTER EP

Entry Points

Name	Comments	DBIA/ICR reference
DEMO	;
SUM	;display summary
USR()	;EP - Return USER
EOP	;EP - End of page.
EIND	;ask individually
EPRES	;EP - ask additional exclusion questions for e-prescribing
TSKMN	;EP ENTRY POINT FROM TASKMAN
SEL1
NODEV	;
RT	;
LOC()	;EP - Return location name from file 4 based on DUZ(2).
CTR(X,Y)	;EP - Center X
TP	;
PRV	;
5	;EP - TEXT
6	;EP
ASK	;
SPECREG	;
ASKADD	;
MUYEAR	;
ATTEST	;get answers to attestation
C	;EP
ATTESTQ	;EP
ZIS	;call to XBDBQUE
DRIVER	;
XIT	;
YEAR	;
ET	;
EP
T(APCMY,APCMQU)	;
ATTIND
SS
INTRO	;
CXIT	;
IMMREG	;EP - ask
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^APCM2AE1	DRIVER+1, NODEV1+1
IMMREG^APCM2AEA	IMMREG+1
SPECREG^APCM2AEA	SPECREG+1
SS^APCM2AEA	SS
^APCM2AEP	DRIVER+3, NODEV1+2
PT^APCM2ASL	SUM+7
REPORT^APCM2ASL	ZIS+1
KILL^AUPNPAT	XIT+6, XIT+11
^DIC	SEL1+7
MIX^DIC1	PRV+9, SEL1
^DIK	ZIS+6
^DIR	INTRO+10, MUYEAR+5, YEAR+8, PRV+2, EOP+5, C+3, C+10, 5+5, EPRES+11, EPRES+15 , EIND+3, EIND+9, ASK+13, ASK+18, ASK+21, ATTIND+6, ATTIND+8
^XBDBQUE	NODEV+2
^XBFMK	XIT+12
EN^XBVK	XIT+2
$$FMADD^XLFDT	5+8, 5+9
$$FMTE^XLFDT	YEAR+12, SUM+4, 5+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!! Line Location: INTRO+2
Function Call: WRITE	Prompt: $$CTR("*IHS Modified Stage 2 MU Performance Reports for EPS*",80),! Line Location: INTRO+3
Function Call: WRITE	Prompt: $$CTR("Alternate Stage 1 Exclusions",80),! Line Location: INTRO+4
Function Call: WRITE	Prompt: !,"This report displays the performance measure results for Modified",! Line Location: INTRO+5
Function Call: WRITE	Prompt: "Stage 2 Meaningful Use with alternate Stage 1 exclusions/thresholds.",! Line Location: INTRO+6
Function Call: WRITE	Prompt: !,"In order to achieve Meaningful Use, an EP must attest to meeting",! Line Location: INTRO+7
Function Call: WRITE	Prompt: "all 10 objectives and their associated performance measures.",! Line Location: INTRO+8
Function Call: WRITE	Prompt: !,"The report can be run for 90 days, 1 year or a user defined time period.",! Line Location: INTRO+9
Function Call: WRITE	Prompt: ! Line Location: TP+2
Function Call: WRITE	Prompt: !,"Enter the Calendar Year for which the EP is demonstrating Meaningful" Line Location: MUYEAR+2
Function Call: WRITE	Prompt: !!,"Please enter a year only!",! Line Location: MUYEAR+9
Function Call: WRITE	Prompt: !!,"Calendar year must equal 2015 or 2016.",! Line Location: MUYEAR+10
Function Call: WRITE	Prompt: !!,"Date range is: ",$$FMTE^XLFDT(APCMBD)," - ",$$FMTE^XLFDT(APCMED),"." Line Location: YEAR+12
Function Call: WRITE	Prompt: !?5,"- ",$P(^VA(200,X,0),U,1) Line Location: SEL1+11
Function Call: WRITE	Prompt: !,$$CTR("SUMMARY OF MODIFIED STAGE 2 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: !!,"Providers: " Line Location: SUM+5
Function Call: WRITE	Prompt: !?5,$P(^VA(200,X,0),U,1) Line Location: SUM+6
Function Call: WRITE	Prompt: !,"Report Aborted" Line Location: ZIS+6
Function Call: WRITE	Prompt: ! Line Location: C+2
Function Call: WRITE	Prompt: !!,"Future dates not allowed." Line Location: C+5
Function Call: WRITE	Prompt: !!,"The beginning date must be within calendar year entered." Line Location: C+6
Function Call: WRITE	Prompt: !!,"The beginning date must be within calendar year entered." Line Location: C+7
Function Call: WRITE	Prompt: !!,"The ending date must be within calendar year entered." Line Location: C+11
Function Call: WRITE	Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date." Line Location: C+15
Function Call: WRITE	Prompt: ! Line Location: 5+3
Function Call: WRITE	Prompt: !!,"The 90 day start and end dates must be within the calendar year entered." Line Location: 5+7
Function Call: WRITE	Prompt: !!,"The end date would be ",$$FMTE^XLFDT($$FMADD^XLFDT(Y,89)),".",!,"The 90 day start and end dates must be within the calendar year entered." Line Location: 5+8
Function Call: WRITE	Prompt: !,^APCM25OB(APCMY,24,APCMZ,0) Line Location: EIND+2
Function Call: WRITE	Prompt: !,^APCM25OB(APCMY,25,X,0) Line Location: EIND+7
Function Call: WRITE	Prompt: !,^APCM25OB(APCMY,26,APCMZ,0) Line Location: ET+1
Function Call: WRITE	Prompt: ! Line Location: ET+2
Function Call: WRITE	Prompt: !,^APCM25OB(APCMY,APCMQU,X,0) Line Location: ASK+6
Routine Call	DIC Line Location: SEL1+7
Routine Call	DIR Line Location: INTRO+10 MUYEAR+5 YEAR+8 PRV+2 EOP+5 C+3 C+10 5+5 EPRES+11 EPRES+15 EIND+3 EIND+9 ASK+13 ASK+18 ASK+21 ATTIND+6 ATTIND+8
Routine Call	%ZIS Line Location: ZIS+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^APCMM25C - [#9001304.03]	Classic Fileman Calls
^ATXAX - [#9002226]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCM25OB - [#9001304.02]	INTRO+14, EPRES+6, EIND+2, EIND+7, ET+1, ATTESTQ+3, ASK+3, ASK+6, ASK+9, ASK+11 , ASK+12, ASK+17, ATTIND+3, ATTIND+4, ATTIND+5, ATTIND+7, T+1, T+2, T+5
^APCM25OB("ALTA"	ATTESTQ+3
^APCM25OB("B"	EPRES+2, ASK+2, ASK+5
^ATXAX - [#9002226]	SEL1+11
^DIC(4 - [#4]	LOC+1
^VA(200 - [#200]	SEL1+11, SUM+6, USR+1, EIND+3, EIND+9, ATTIND+3, ATTIND+8

Label References

Name	Line Occurrences
$$CTR	INTRO+3, INTRO+4, SUM+2
$$T	ASK+10, ATTIND+3, ATTIND+8
5	YEAR+11, 5+7, 5+8
6	YEAR+13
ASK	ATTESTQ+11, ATTESTQ+14, ATTESTQ+17, ATTESTQ+24, ATTESTQ+32, ATTESTQ+42, ATTESTQ+50, ATTESTQ+57, ATTESTQ+65, ATTESTQ+74 , ATTESTQ+78, ATTESTQ+79
ATTESTQ	ATTEST+1
ATTIND	ASK+7
C	C+5, C+6, C+7, C+10, C+11, C+14
DEMO	SUM+8
EIND	EPRES+7
EP	MUYEAR+6, MUYEAR+7
EPRES	ATTESTQ+35
ET	EPRES+6
IMMREG	ATTESTQ+81, ATTESTQ+84, ATTESTQ+87
INTRO	YEAR+3
MUYEAR	MUYEAR+9, MUYEAR+10
NODEV	ZIS+4
PRV	PRV+6, PRV+12, SEL1+5, DEMO+2, ATTEST+2
SEL1	SEL1+4
TP	YEAR+14, YEAR+15, PRV+3
TSKMN	ZIS+7
XIT	EP, INTRO+11, INTRO+12, ZIS+2, ZIS+3, ZIS+4, ZIS+6, 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
%	T+4~, T+5*, T+6
%ZIS	ZIS+4!, ZIS+5!*
A	XIT+8!, ATTESTQ+3*
APCMADDQ	ASKADD+1!
APCMADDQ("ANS"	EPRES+4!, EPRES+18, EIND+5, EIND+11*
>> APCMAP	ATTESTQ+11, ATTESTQ+14, ATTESTQ+17, ATTESTQ+24, ATTESTQ+32, ATTESTQ+35, ATTESTQ+42, ATTESTQ+50, ATTESTQ+57, ATTESTQ+65 , ATTESTQ+74, ATTESTQ+78, ATTESTQ+79*, ASK+5, ASK+16, ASK+23, ATTIND+10
APCMATTE	ATTESTQ+1!, ATTESTQ+5
APCMATTE(	ATTESTQ+4, ASK+16, ASK+23, ATTIND+10
APCMATTE("S2.001.1EP"	ATTESTQ+19, ATTESTQ+27
APCMATTE("S2.001.2EP"	ATTESTQ+26
APCMATTE("S2.003.EP"	ATTESTQ+34
APCMATTE("S2.010.EP.1"	ATTESTQ+13
APCMATTE("S2.010.EP.2"	ATTESTQ+16
APCMATTE("S2.014.EP"	ATTESTQ+10
APCMATTE("S2.020.EP"	ATTESTQ+59, ATTESTQ+70
APCMATTE("S2.020.EP.1"	ATTESTQ+77
APCMATTE("S2.021.EP"	ATTESTQ+45, ATTESTQ+53
APCMATTE("S2.022.EP"	ATTESTQ+52, ATTESTQ+61
APCMATTE("S2.023.EP"	ATTESTQ+37, ATTESTQ+46
APCMATTE("S2.024.EP"	ATTESTQ+81
APCMATTE("S2.025.EP"	ATTESTQ+84
APCMATTE("S2.026.EP"	ATTESTQ+69, ATTESTQ+77
APCMATTE("S2.030.EP"	ATTESTQ+87
>> APCMBD	YEAR+1, YEAR+12, YEAR+14, SUM+4, C+1, C+8, C+14, 5+2, 5+9
>> APCMDELT	ZIS+4, ZIS+5
>> APCMDEMO	DEMO+1, DEMO+2
>> APCMED	YEAR+1, YEAR+12, YEAR+15, SUM+4, C+1, C+12, C+14, 5+2, 5+9
>> APCMHD	MUYEAR+12*, YEAR+12, C+7, C+11, 5+8
>> APCMIND	EPRES+7, EPRES+8, EPRES+13, EPRES+17, ASK+7, ASK+8, ASK+15, ASK+20
>> APCMIND(	INTRO+14*, ATTESTQ+3, ASK+5
>> APCMLD	MUYEAR+12*, YEAR+12, C+6, 5+7
>> APCMORA(	ATTESTQ+4*
>> APCMP	EPRES+18, EIND+1, EIND+3, EIND+5, EIND+9, EIND+11, ASK+16, ASK+23, ATTIND+1*, ATTIND+3 , ATTIND+8, ATTIND+10
>> APCMPER	MUYEAR+11*, MUYEAR+12, ATTESTQ+14, ATTESTQ+38, ATTESTQ+45, ATTESTQ+52, ATTESTQ+60, ATTESTQ+69, ATTESTQ+79
>> APCMPLTY	PRV+1, PRV+4, PRV+6, PRV+12, SEL1+5, EPRES+7, ATTESTQ+7, ASK+7
>> APCMPRTX	SEL1+9*
APCMPRV	PRV+7!, PRV+13!, SEL1+1
APCMPRV(	PRV+11, SEL1+3, SEL1+11*, SUM+6, EPRES+18, EIND+1, ATTESTQ+4, ASK+16, ASK+23, ATTIND+1
>> APCMQ	YEAR+2, YEAR+3, YEAR+9, ATTEST+2, C+3, C+4, 5+6, EPRES+1, EPRES+8, EPRES+12 , EPRES+16, EIND+1, EIND+4, EIND+10, ATTESTQ+2, ATTESTQ+6, ATTESTQ+12, ATTESTQ+15, ATTESTQ+18, ATTESTQ+25 , ATTESTQ+33, ATTESTQ+36, ATTESTQ+44, ATTESTQ+51, ATTESTQ+58, ATTESTQ+66, ATTESTQ+68, ATTESTQ+76, ATTESTQ+82, ATTESTQ+85 , ASK+14, ASK+19, ASK+22, ATTIND+1, ATTIND+9*
APCMQU	ATTESTQ+11, ATTESTQ+14, ATTESTQ+17, ATTESTQ+24, ATTESTQ+32, ATTESTQ+35, ATTESTQ+42, ATTESTQ+50, ATTESTQ+57, ATTESTQ+65 , ATTESTQ+74, ATTESTQ+78, ATTESTQ+79, ATTESTQ+80, ATTESTQ+81, ATTESTQ+83, ATTESTQ+86*, ASK+3, ASK+6, ASK+10 , ASK+11, ASK+12, ATTIND+3, ATTIND+4, ATTIND+5, ATTIND+8, T~, T+1, T+2, T+3
>> APCMQUIT	PRV+5, PRV+6, PRV+10, PRV+12, SEL1+1, SEL1+5, SEL1+8, ZIS+2
>> APCMROT	SUM+8, ZIS+4
>> APCMRPT	ZIS+3, ZIS+6
>> APCMRPTP	TP+1, YEAR+10, YEAR+11, YEAR+12, YEAR+13
>> APCMRPTT	INTRO+1*
>> APCMSUM	RT+1*
>> APCMVDT	MUYEAR+8, MUYEAR+11, YEAR+1, C+1, 5+2
>> APCMX	ATTESTQ+11, ATTESTQ+14, ATTESTQ+17, ATTESTQ+24, ATTESTQ+32, ATTESTQ+35, ATTESTQ+42, ATTESTQ+50, ATTESTQ+57, ATTESTQ+65 , ATTESTQ+74, ATTESTQ+78, ATTESTQ+79, ATTESTQ+81, ATTESTQ+84, ATTESTQ+87, ASK+2, ASK+5, ASK+16, ASK+23 , ATTIND+10
APCMY	EPRES+2, EPRES+4, EPRES+6, EPRES+18, EIND+2, EIND+5, EIND+7, EIND+11, ET+1, ASK+2 , ASK+3, ASK+6, ASK+9, ASK+10, ASK+11, ASK+12, ASK+17, ATTIND+3, ATTIND+4, ATTIND+5 , ATTIND+7, ATTIND+8, T~, T+1, T+2, T+5
>> APCMZ	EIND+2, ET+1
B	XIT+8!
BD	XIT+10!
C	XIT+8!
D	PRV+9!, SEL1!, XIT+8!
DA	INTRO+10!, YEAR+8!, PRV+2!, ZIS+6*, EPRES+11!, EPRES+15!, EIND+3!, EIND+9!, ASK+13!, ASK+18! , ASK+21!, ATTIND+6!, ATTIND+8!
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*!
DIR	INTRO+10!, MUYEAR+1!, MUYEAR+5!, YEAR+8!, PRV+2!, XIT+4!, EOP+3~, EOP+4!, EOP+5!, C+2! , C+9!, 5+3!, 5+5!, CXIT+1!, EPRES+11!, EPRES+15!, EIND+3!, EIND+9!, ASK+13!, ASK+18! , ASK+21!, ATTIND+6!, ATTIND+8!
DIR("?"	MUYEAR+4*
DIR("A"	INTRO+10, MUYEAR+3, YEAR+8, PRV+2, C+2, C+9, 5+5, EPRES+11, EPRES+15, EIND+3 , EIND+9, ASK+10, ASK+18, ASK+21, ATTIND+3, ATTIND+8
DIR("B"	INTRO+10, EPRES+11, EPRES+15, EIND+3, EIND+9, ASK+11, ASK+12, ASK+18, ASK+21, ATTIND+4 , ATTIND+5, ATTIND+8
DIR(0	INTRO+10, MUYEAR+1, YEAR+8, PRV+2, EOP+5, C+2, C+9, 5+4, EPRES+11, EPRES+15 , EIND+3, EIND+9, ASK+10, ASK+18, ASK+21, ATTIND+3, ATTIND+7*
DIRUT	INTRO+11, MUYEAR+6, YEAR+9, PRV+3, XIT+4!, EOP+4!, C+3, 5+5*, 5+6, EPRES+12 , EPRES+16, EIND+4, EIND+10, ASK+14, ASK+19, ASK+22, ATTIND+9
DLAYGO	XIT+5!
DLOUT	EOP+4!
DOD	XIT+4!
DT	C+5
DTOUT	EOP+4!
DUOUT	MUYEAR+7, XIT+4!, EOP+4!, 5+5
DUZ	USR+1
DUZ(2	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+7
IO("S"	EOP+2
>> IOCPU	TSKMN+5
IOF	APCM2AE+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
Q	XIT+8!
R	XIT+8!
S	XIT+8!
T	XIT+8!
U	INTRO+14, SEL1+11, SUM+6, USR+1, LOC+1, EIND+3, EIND+9, ATTESTQ+3, ASK+9, ASK+11 , ASK+12, ASK+16, ASK+17, ASK+23, ATTIND+3, ATTIND+4, ATTIND+5, ATTIND+7, ATTIND+8, ATTIND+10 , T+1, T+2, T+5
V	XIT+8!
W	XIT+8!
X	INTRO+14, SEL1+11, SUM+6, XIT+7!, XIT+8!, CTR~, CTR+1, 5+3!, EIND+7, ATTESTQ+3* , ATTESTQ+4, ASK+6*
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+12, MUYEAR+8, MUYEAR+9, MUYEAR+10, YEAR+10, PRV+4, PRV+10, PRV+11, SEL1+1, SEL1+2 , SEL1+3, SEL1+8, SEL1+9, SEL1+11, XIT+8!, CTR~, CTR+1, C+4, C+5, C+6 , C+7, C+8, C+10, C+11, C+12, 5+3!, 5+7, 5+8, 5+9, EPRES+13 , EPRES+17, EIND+5, EIND+6, EIND+11, ATTESTQ+4, ASK+5, ASK+15, ASK+20, ASK+23, ATTIND+10
Z	XIT+8!, ATTESTQ+3*, ATTESTQ+4
>> 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: APCM2AE

Information

Source Information

Call Graph

Call Graph Total: 17

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: