Routine: APCM25ET

Package	Total	Call Graph
Patient Care Component Table Maintiance	5	(5,6,ATTESTQ,EPRES)^APCM25E PROC^APCM25E1 ^APCM25EP EN^APCM25SI (EN,PT,REPORT)^APCM25SL
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT
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
Registration	1	TERM^VALM0

Package

Total

Call Graph

Patient Care Component Table Maintiance

(5,6,ATTESTQ,EPRES)^APCM25E PROC^APCM25E1 ^APCM25EP EN^APCM25SI (EN,PT,REPORT)^APCM25SL

Kernel

^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT

VA Fileman

^DIC MIX^DIC1 ^DIK ^DIR

IHS VA Utilities

^XBDBQUE ^XBFMK EN^XBVK

IHS Patient

KILL^AUPNPAT

Patient Care Component Reports

DEMOCHK^APCLUTL

Registration

TERM^VALM0

Package	Total	Caller Graph
Patient Care Component Table Maintiance	1	APCM25N
iCare	1	APCM 25 M2 2015 PAT LISTS

Package

Total

Caller Graph

Patient Care Component Table Maintiance

APCM25N

iCare

APCM 25 M2 2015 PAT LISTS

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.
HAS(I)	;EP
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 in a field Y wide.
TP	;
PRV	;
ASKADD	;
MUYEAR	;
ATTEST	;get answers to attestation questions for each provider.
ZIS	;call to XBDBQUE
DRIVER	;
XIT	;
YEAR	;
EP
SI1	;NOW SELECT ONE OR MORE W/IN THE TOPIC
LISTS	;any lists with measures?
SI
INTRO	;
NODEV1	;

External References

Name	Field # of Occurrence
^%ZIS	ZIS+5
^%ZISC	DRIVER+4, NODEV1+3, XIT+2
^%ZTLOAD	TSKMN+5
DEMOCHK^APCLUTL	DEMO+1
5^APCM25E	YEAR+11
6^APCM25E	YEAR+13
ATTESTQ^APCM25E	ATTEST+1
EPRES^APCM25E	ASKADD+6
PROC^APCM25E1	DRIVER+1, NODEV1+1
^APCM25EP	DRIVER+3, NODEV1+2
EN^APCM25SI	INTRO+20
EN^APCM25SL	LISTS+9
PT^APCM25SL	SUM+13
REPORT^APCM25SL	ZIS+1
KILL^AUPNPAT	XIT+7, XIT+12
^DIC	SEL1+7
MIX^DIC1	PRV+9, SEL1
^DIK	ZIS+6, ZIS+7
^DIR	INTRO+13, INTRO+17, SI1+16, MUYEAR+6, YEAR+8, PRV+2, EOP+5, LISTS+4, LISTS+5
TERM^VALM0	SI1+2
^XBDBQUE	NODEV+2
^XBFMK	XIT+13
EN^XBVK	XIT+3
$$FMTE^XLFDT	YEAR+12, SUM+4, SUM+7

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: "IHS Modified Stage 2 MU Performance Reports for EPS",! Line Location: INTRO+5
Function Call: WRITE	Prompt: !,"This report displays the performance measure results for Modified",! Line Location: INTRO+6
Function Call: WRITE	Prompt: "Stage 2 Meaningful Use. In order to achieve Meaningful Use, an EP must",! Line Location: INTRO+7
Function Call: WRITE	Prompt: "attest to meeting 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: !,"This report allows a user to review the patients that populate the",! Line Location: INTRO+10
Function Call: WRITE	Prompt: "numerator and denominator of each Performance Measure." Line Location: INTRO+11
Function Call: WRITE	Prompt: !! Line Location: INTRO+12
Function Call: WRITE	Prompt: !!,"No measures selected" Line Location: INTRO+21
Function Call: WRITE	Prompt: !?5,APCMC,")",?9,$P(^APCMM25L(X,0),U,3) Line Location: SI1+14
Function Call: WRITE	Prompt: !,"No REPORTS selected for this objective." Line Location: SI1+17
Function Call: WRITE	Prompt: !,"No REPORTs selected for this objective." Line Location: SI1+18
Function Call: WRITE	Prompt: ! Line Location: TP+3
Function Call: WRITE	Prompt: !,"Enter the Calendar Year for which the EP is demonstrating Meaningful" Line Location: MUYEAR+3
Function Call: WRITE	Prompt: !!,"Please enter a year only!",! Line Location: MUYEAR+10
Function Call: WRITE	Prompt: !!,"Year entered cannot be prior to 2015.",! Line Location: MUYEAR+11
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: !!,"Please answer the following exclusion questions for each provider." Line Location: ASKADD+5
Function Call: WRITE	Prompt: !,$$CTR("SUMMARY OF IHS MODIFIED STAGE 2 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,"Patient Education",! Line Location: SUM+8
Function Call: WRITE	Prompt: ?5,"Patient Electronic Access",! Line Location: SUM+9
Function Call: WRITE	Prompt: ?5,"Summary of Care (HIE)",! Line Location: SUM+10
Function Call: WRITE	Prompt: !,"Providers: " Line Location: SUM+11
Function Call: WRITE	Prompt: !?5,$P(^VA(200,X,0),U,1) Line Location: SUM+12
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
Routine Call	DIC Line Location: SEL1+7
Routine Call	DIR Line Location: INTRO+13 INTRO+17 SI1+16 MUYEAR+6 YEAR+8 PRV+2 EOP+5 LISTS+4 LISTS+5
Routine Call	%ZIS Line Location: ZIS+5

Name	Line Occurrences (* Changed, ! Killed)
^APCM25OB - [#9001304.02]	INTRO+24, INTRO+25, SI1+5, SI1+13, HAS+3
^APCM25OB("B"	INTRO+24, ASKADD+3
^APCMM25C - [#9001304.03]	XIT+1
^APCMM25L - [#9001304.06]	SI1+9, SI1+10, SI1+14
^APCMMUCN("B"	INTRO+2
^ATXAX - [#9002226]	SEL1+11
^DIC(4 - [#4]	LOC+1
^VA(200 - [#200]	SEL1+11, SUM+12, USR+1
^XUSEC("APCMZ PATIENT LISTS"	LISTS+3

Label References

Name	Line Occurrences
$$CTR	SUM+2
$$HAS	SUM+5, SUM+8, SUM+9, SUM+10
ATTEST	ASKADD+4
DEMO	ASKADD+7, ATTEST+2, SUM+14
EP	MUYEAR+7, MUYEAR+8
INTRO	INTRO+20, YEAR+3
LISTS	SI
MUYEAR	MUYEAR+10, MUYEAR+11
NODEV	ZIS+4
PRV	PRV+6, PRV+12, SEL1+5, DEMO+2
SEL1	SEL1+4
SI	SI1+21
TP	YEAR+14, YEAR+15, PRV+3
TSKMN	ZIS+8
XIT	EP, INTRO+14, INTRO+15, INTRO+18, ZIS+2, ZIS+3, ZIS+4, ZIS+6, ZIS+7, DRIVER+5 , NODEV1+4, TSKMN+5

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+9!
APCMADDQ	ASKADD+1!
>> APCMANS	SI1+19*
>> APCMBD	YEAR+1, YEAR+12, YEAR+14, SUM+4, SUM+7
>> APCMC	SI1+9, SI1+11, SI1+14, SI1+15, SI1+19
>> APCMCR	SI1+8*, SI1+9, SI1+10
>> APCMDELT	ZIS+4, ZIS+5
>> APCMDEMO	DEMO+1, DEMO+2
>> APCMED	YEAR+1, YEAR+12, YEAR+15, SUM+4
APCMEDUD	MUYEAR+1!, MUYEAR+13*, SUM+7
>> APCMHD	MUYEAR+14*, YEAR+12
>> APCMI	SI1+19*
>> APCMIND	INTRO+21, SI1+5, SI1+7, SI1+9, SI1+10, SI1+13, SI1+19
>> APCMIND(	INTRO+22, INTRO+24, INTRO+25, ASKADD+4, HAS+3
APCMINDL	SI1+1!
APCMINDL(	SI1+19*
APCMINDO	SI1+4!
APCMINDO(	SI1+5*, SI1+6, SI1+7
>> APCMINDZ	INTRO+19*, INTRO+20, INTRO+25
>> APCMLD	MUYEAR+14*, YEAR+12
APCMLIST	LISTS+1!, LISTS+8!, LISTS+10, LISTS+11*
APCMLIST(	SI1+5
>> APCMO	SI1+9, SI1+10, SI1+11, SI1+14
>> APCMORD	SI1+6*, SI1+7
APCMPER	MUYEAR+1!, MUYEAR+12*, MUYEAR+13, MUYEAR+14, SUM+5
>> 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*, SUM+12
>> APCMQ	SI1+1, SI1+6, YEAR+2, YEAR+3, YEAR+9*, ASKADD+7, ATTEST+2
APCMQUIT	SI1+22!, PRV+5, PRV+6, PRV+10, PRV+12, SEL1+1, SEL1+5, SEL1+8, ZIS+2, LISTS+1!
>> APCMROT	SUM+14, ZIS+4
>> APCMRPT	ZIS+3, ZIS+6, ZIS+7
>> APCMRPTC	INTRO+2*
>> APCMRPTP	TP+1, YEAR+10, YEAR+11, YEAR+12, YEAR+13
>> APCMRPTT	INTRO+1*
>> APCMSUM	RT+1*
APCMVDT	MUYEAR+1!, MUYEAR+9, MUYEAR+12, YEAR+1
APCMX	SI1+1!, SI1+9!
APCMX(	SI1+11*, SI1+14
APCMY	SI1+1!, SI1+14!
APCMY(	SI1+14*, SI1+19
B	ASKADD+3*, ASKADD+4, XIT+9!
BD	XIT+11!
C	SUM+6*, XIT+9!
D	PRV+9!, SEL1!, XIT+9!
DA	INTRO+13!, INTRO+17!, YEAR+8!, PRV+2!, ZIS+6, ZIS+7, LISTS+5!
DFOUT	EOP+4!
DIADD	XIT+6!
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+13!, INTRO+17!, SI1+16!, MUYEAR+2!, MUYEAR+6!, YEAR+8!, PRV+2!, XIT+5!, EOP+3~, EOP+4! , EOP+5!, LISTS+4!, LISTS+5!
DIR("?"	MUYEAR+5*
DIR("A"	INTRO+13, INTRO+17, SI1+15, MUYEAR+4, YEAR+8, PRV+2, LISTS+4, LISTS+5
DIR("B"	INTRO+13, INTRO+17, LISTS+5*
DIR(0	INTRO+13, INTRO+17, SI1+15, MUYEAR+2, YEAR+8, PRV+2, EOP+5, LISTS+4, LISTS+5*
DIRUT	INTRO+14, INTRO+18, SI1+6, SI1+9, SI1+14, SI1+16*, SI1+18, SI1+21, MUYEAR+7, YEAR+9 , PRV+3, XIT+5!, EOP+4!, LISTS+6
DLAYGO	XIT+6!
DLOUT	EOP+4!
DOD	XIT+5!
DTOUT	EOP+4!
DUOUT	SI1+16, MUYEAR+8, XIT+5!, EOP+4!
DUZ	USR+1, LISTS+3
DUZ(2	LOC+1
E	XIT+9!
ED	XIT+11!
F	XIT+9!
G	XIT+9!
H	XIT+9!
I	XIT+9!, HAS~, HAS+3
IO	DRIVER+2, TSKMN+1
IO("DOC"	TSKMN+2
IO("Q"	ZIS+8
IO("S"	EOP+2
>> IOCPU	TSKMN+5
IOF	APCM25ET+5, SUM+1
IOM	TSKMN+3, CTR+1
ION	TSKMN+1
IOP	ZIS+4!, ZIS+5!
>> IORVOFF	SI1+13
>> IORVON	SI1+13
IOSL	TSKMN+3
IOST	TSKMN+1, EOP+1
J	XIT+9!
K	XIT+9!
L	XIT+9!
M	XIT+9!
N	XIT+9!, XIT+10!
N1	XIT+10!
N2	XIT+10!
N3	XIT+10!
N4	XIT+10!
N5	XIT+10!
N6	XIT+10!
O	INTRO+24*, XIT+9!
P	XIT+9!
>> POP	ZIS+6, ZIS+7
Q	INTRO+20, INTRO+21, XIT+9!
R	XIT+9!
S	XIT+9!
T	XIT+9!
U	INTRO+24, INTRO+25, SI1+5, SI1+13, SI1+14, SEL1+11, SUM+12, USR+1, LOC+1, HAS+3
V	XIT+9!
W	XIT+9!
X	INTRO+22, INTRO+24, INTRO+25, SI1+9, SI1+10, SI1+11, SI1+14, SEL1+11, SUM+12, XIT+8! , XIT+9!, CTR~, CTR+1, HAS+1~, HAS+3
X1	XIT+8!
X2	XIT+8!
X3	XIT+8!
X4	XIT+8!
X5	XIT+8!
X6	XIT+8!
>> XBNS	NODEV+1*
>> XBRC	NODEV+1*
>> XBRP	NODEV+1*
>> XBRX	NODEV+1*
Y	INTRO+15, INTRO+19, INTRO+24, SI1+17, SI1+19, MUYEAR+9, MUYEAR+10, MUYEAR+11, YEAR+10, PRV+4 , PRV+10, PRV+11, SEL1+1, SEL1+2, SEL1+3, SEL1+8, SEL1+9, SEL1+11, XIT+9!, CTR~ , CTR+1, LISTS+6, LISTS+7, HAS+1~, HAS+2, HAS+3*, HAS+4
Z	XIT+9!
>> ZTCPU	TSKMN+5*
>> ZTDESC	TSKMN+5*
>> ZTDTH	TSKMN+5*
>> ZTIO	TSKMN+1, TSKMN+2, TSKMN+3*
>> ZTQUEUED	XIT+4, EOP+2
>> ZTREQ	XIT+4*
>> ZTRTN	TSKMN+5*
ZTSAVE	TSKMN+4!
ZTSAVE("APCM*"	TSKMN+4*

Customize PDF page

Package: Patient Care Component Table Maintiance

Routine: APCM25ET

Information

Source Information

Call Graph

Call Graph Total: 19