Routine: APCM25H

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

Package

Total

Call Graph

Kernel

^%ZIS ^%ZISC ^%ZTLOAD ($$FMADD,$$FMTE)^XLFDT

Patient Care Component Table Maintiance

PROC^APCM25E1 IMMREGH^APCM25EA ^APCM25EP (PT,REPORT)^APCM25SL

IHS VA Utilities

^XBDBQUE ^XBFMK EN^XBVK

VA Fileman

^DIC ^DIK ^DIR

IHS Patient

KILL^AUPNPAT

Patient Care Component Reports

DEMOCHK^APCLUTL

Package	Total	Caller Graph
Patient Care Component Table Maintiance	1	APCM25N
iCare	1	APCM 25 M2IH

Package

Total

Caller Graph

Patient Care Component Table Maintiance

APCM25N

iCare

APCM 25 M2IH

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
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	;
5	;EP - TEXT
6	;EP
ASK	;
FAC	;
METHOD	;
MUYEAR	;
ATTEST	;get answers to attestation questions for each provider.
C	;EP
ATTESTQ	;EP
ZIS	;call to XBDBQUE
DRIVER	;
XIT	;
YEAR	;
EP
ATTIND
INTRO	;
IMMREG	;EP - ask additional exclusion questions for IMM REG
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^APCM25E1	DRIVER+1, NODEV1+1
IMMREGH^APCM25EA	IMMREG+1
^APCM25EP	DRIVER+3, NODEV1+2
PT^APCM25SL	SUM+8
REPORT^APCM25SL	ZIS+1
KILL^AUPNPAT	XIT+6, XIT+11
^DIC	FAC+2
^DIK	ZIS+6
^DIR	INTRO+5, MUYEAR+6, YEAR+8, METHOD+2, EOP+5, 5+6, C+3, C+9, ATTIND+6, ATTIND+8
^XBDBQUE	NODEV+2
^XBFMK	XIT+12
EN^XBVK	XIT+2
$$FMADD^XLFDT	5+9, 5+10
$$FMTE^XLFDT	YEAR+12, SUM+4, SUM+6, 5+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!! Line Location: INTRO+3
Function Call: WRITE	Prompt: ^APCMMUCN(APCMRPTC,15,X,0),! Line Location: INTRO+4
Function Call: WRITE	Prompt: ^APCMMUCN(APCMRPTC,18,X,0),! Line Location: TP+2
Function Call: WRITE	Prompt: !!,"Enter the Calendar Year for which the EH is demonstrating Meaningful" Line Location: MUYEAR+3
Function Call: WRITE	Prompt: !!,"You can only enter 2015, 2016, 2017 or 2018" Line Location: MUYEAR+10
Function Call: WRITE	Prompt: !!,"Please enter a year only!",! 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: ! Line Location: FAC+2
Function Call: WRITE	Prompt: !,$$CTR("SUMMARY OF 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: !!,"Hospital: ",$P(^DIC(4,APCMFAC,0),U,1) Line Location: SUM+7
Function Call: WRITE	Prompt: !,"Report Aborted" Line Location: ZIS+6
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+8
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+9
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 the calendar year entered." Line Location: C+6
Function Call: WRITE	Prompt: !!,"The ending date must be within the calendar year entered." Line Location: C+10
Function Call: WRITE	Prompt: !!,$C(7),"Sorry, Ending Date MUST not be earlier than Beginning Date." Line Location: C+14
Function Call: WRITE	Prompt: !!,"Please answer the following attestation and exclusion questions.",! Line Location: ATTESTQ+6
Function Call: WRITE	Prompt: !,^APCM25OB(APCMY,APCMQU,X,0) Line Location: ASK+5
Routine Call	DIC Line Location: FAC+2
Routine Call	DIR Line Location: INTRO+5 MUYEAR+6 YEAR+8 METHOD+2 EOP+5 5+6 C+3 C+9 ATTIND+6 ATTIND+8
Routine Call	%ZIS Line Location: ZIS+5

FileNo	Call Tags
^APCMM14C - [#9001302.03]	Classic Fileman Calls
^AUTTLOC - [#9999999.06]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCM25OB - [#9001304.02]	INTRO+9, ATTESTQ+3, ASK+4, ASK+5, ATTIND+3, ATTIND+5, ATTIND+7, ATTIND+8
^APCM25OB("ATT"	ATTESTQ+3
^APCM25OB("B"	ASK+3
^APCMMUCN - [#9001300.01]	INTRO+4
^APCMMUCN("B"	INTRO+2
^DIC(4 - [#4]	FAC+2, SUM+7, LOC+1, ATTIND+3, ATTIND+8
^VA(200 - [#200]	USR+1

Label References

Name	Line Occurrences
$$CTR	SUM+2
5	YEAR+11, 5+8, 5+9
6	YEAR+13
ASK	ATTESTQ+12
ATTESTQ	ATTEST+2
C	C+5, C+6, C+9, C+10, C+13
DEMO	ATTEST+3, SUM+9
EP	MUYEAR+7, MUYEAR+8
FAC	DEMO+2
IMMREG	ATTESTQ+9, ATTESTQ+10, ATTESTQ+11
INTRO	YEAR+3
METHOD	FAC+3
MUYEAR	MUYEAR+11
NODEV	ZIS+4
TP	YEAR+14, YEAR+15, METHOD+3
TSKMN	ZIS+7
XIT	EP, INTRO+6, INTRO+7, ZIS+2, ZIS+3, ZIS+4, ZIS+6, 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+8!, ATTESTQ+3*
>> APCMAP	ATTESTQ+12*, ATTIND+10
APCMATTE	ATTEST+1!, ATTESTQ+1!, ATTESTQ+5
APCMATTE(	ATTESTQ+4, ATTIND+10
>> APCMBD	YEAR+1, YEAR+12, YEAR+14, SUM+4, SUM+6, 5+2, 5+10, C+1, C+7, C+13
>> APCMDELT	ZIS+4, ZIS+5
>> APCMDEMO	DEMO+1, DEMO+2
>> APCMED	YEAR+1, YEAR+12, YEAR+15, SUM+4, 5+2, 5+10, C+1, C+11, C+13
APCMEDUD	MUYEAR+1!, MUYEAR+13*, SUM+6
>> APCMFAC	FAC+1, FAC+4, SUM+7, ATTESTQ+4, ATTIND+3, ATTIND+8, ATTIND+10
>> APCMHD	MUYEAR+14*, 5+9, C+10
>> APCMIND(	INTRO+9*, ATTESTQ+3
>> APCMLD	MUYEAR+14*, 5+8, C+6
>> APCMMETH	METHOD+1, METHOD+4
>> APCMO	ATTESTQ+7*
>> APCMORA(	ATTESTQ+4*, ATTESTQ+7
APCMPER	MUYEAR+1!, MUYEAR+12*, MUYEAR+13, MUYEAR+14, YEAR+12, SUM+5
>> APCMQ	YEAR+2, YEAR+3, YEAR+9, ATTEST+3, 5+7, C+3, C+4, ATTESTQ+2, ATTESTQ+7, ATTIND+9*
>> APCMQU	ATTESTQ+12*, ASK+4, ASK+5
>> APCMQUIT	PRV+1*, ZIS+2
>> APCMROT	SUM+9, ZIS+4
>> APCMRPT	ZIS+3, ZIS+6
>> APCMRPTC	INTRO+2*, INTRO+4
>> 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, 5+2, C+1
>> APCMX	ATTESTQ+7*, ATTESTQ+9, ATTESTQ+10, ATTESTQ+11, ASK+3, ATTIND+10
>> APCMY	ASK+3*, ASK+4, ASK+5, ATTIND+3, ATTIND+5, ATTIND+7, ATTIND+8
B	XIT+8!
BD	XIT+10!
C	XIT+8!
D	XIT+8!
DA	INTRO+5!, YEAR+8!, METHOD+2!, FAC+2!, ZIS+6*, ATTIND+6!, ATTIND+8!
DFOUT	EOP+4!
DIADD	XIT+5!
DIC	FAC+2*!
DIC("A"	FAC+2*
DIC("B"	FAC+2*
DIC(0	FAC+2*
DIK	ZIS+6*!
DIR	INTRO+5!, MUYEAR+2!, MUYEAR+6!, YEAR+8!, METHOD+2!, XIT+4!, EOP+3~, EOP+4!, EOP+5!, 5+3! , 5+6!, C+2!, C+8!, ATTIND+6!, ATTIND+8!
DIR("?"	MUYEAR+5*
DIR("A"	INTRO+5, MUYEAR+4, YEAR+8, METHOD+2, 5+6, C+2, C+8, ATTIND+3, ATTIND+8*
DIR("B"	INTRO+5, METHOD+2, ATTIND+4, ATTIND+5, ATTIND+8*
DIR(0	INTRO+5, MUYEAR+2, YEAR+8, METHOD+2, EOP+5, 5+5, C+2, C+8, ATTIND+3, ATTIND+7
DIRUT	INTRO+6, MUYEAR+7, YEAR+9, METHOD+3, XIT+4!, EOP+4!, 5+6*, 5+7, C+3, ATTIND+9
DLAYGO	XIT+5!
DLOUT	EOP+4!
DOD	XIT+4!
DT	C+5
DTOUT	EOP+4!
DUOUT	MUYEAR+8, XIT+4!, EOP+4!, 5+6
DUZ	USR+1
DUZ(2	FAC+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	APCM25H+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+9, FAC+2, SUM+7, USR+1, LOC+1, ATTESTQ+3, ATTIND+3, ATTIND+5, ATTIND+7, ATTIND+8 , ATTIND+10
V	XIT+8!
W	XIT+8!
X	INTRO+4, INTRO+9, XIT+7!, XIT+8!, CTR~, CTR+1, 5+3!, ATTESTQ+3, ATTESTQ+4, ASK+5
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+7, MUYEAR+9, MUYEAR+11, YEAR+10, METHOD+4, FAC+3, FAC+4, XIT+8!, CTR~, CTR+1 , 5+3!, 5+8, 5+9, 5+10, C+4, C+5, C+6, C+7, C+9, C+10 , C+11, ATTESTQ+4*, 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: APCM25H

Information

Source Information

Call Graph

Call Graph Total: 16