Routine: APCM14H

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD ($$FMADD,$$FMTE)^XLFDT
Patient Care Component Table Maintiance	4	6^APCM14E PROC^APCM14E1 ^APCM14EP (PT,REPORT)^APCM14SL
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

6^APCM14E PROC^APCM14E1 ^APCM14EP (PT,REPORT)^APCM14SL

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	APCM14N
iCare	1	APCM 14 M1IH

Package

Total

Caller Graph

Patient Care Component Table Maintiance

APCM14N

iCare

APCM 14 M1IH

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 - TEXT
FAC	;
METHOD	;
ATTEST	;get answers to attestation questions for each provider.
ZIS	;call to XBDBQUE
DRIVER	;
XIT	;
YEAR	;
INTRO	;
NODEV1	;

External References

Name	Field # of Occurrence
^%ZIS	ZIS+5
^%ZISC	DRIVER+4, NODEV1+3, XIT+1
^%ZTLOAD	TSKMN+5
DEMOCHK^APCLUTL	DEMO+1
6^APCM14E	6+1
PROC^APCM14E1	DRIVER+1, NODEV1+1
^APCM14EP	DRIVER+3, NODEV1+2
PT^APCM14SL	SUM+6
REPORT^APCM14SL	ZIS+1
KILL^AUPNPAT	XIT+6, XIT+11
^DIC	FAC+2
^DIK	ZIS+6
^DIR	INTRO+5, YEAR+6, YEAR+21, YEAR+35, METHOD+2, ATTEST+10, ATTEST+20, ATTEST+21, ATTEST+22, EOP+5 , 5+5
^XBDBQUE	NODEV+2
^XBFMK	XIT+12
EN^XBVK	XIT+2
$$FMADD^XLFDT	5+8
$$FMTE^XLFDT	SUM+4

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 Fiscal Year for which report is to be run. Use a 4 digit",!,"year, e.g. 2014." Line Location: YEAR+2
Function Call: WRITE	Prompt: !!,"Please enter a year only!",! Line Location: YEAR+10
Function Call: WRITE	Prompt: !!,"Several Stage 1 Meaningful Use Performance Measures require an attestation of " Line Location: ATTEST+8
Function Call: WRITE	Prompt: !,"Yes or No for the hospital/CAH for which the report in being run.",! Line Location: ATTEST+9
Function Call: WRITE	Prompt: !,^APCM14OB(APCMY,19,X,0) Line Location: ATTEST+18
Function Call: WRITE	Prompt: !,$$CTR("SUMMARY OF STAGE 1 2014 and/or 2015 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+5
Function Call: WRITE	Prompt: !,"Report Aborted" Line Location: ZIS+6
Function Call: WRITE	Prompt: !!,"IMPORTANT NOTE: This report may be run for any 90-day period. For submission" Line Location: 5+1
Function Call: WRITE	Prompt: !,"to CMS, the report should not span Federal Fiscal Years." Line Location: 5+2
Function Call: WRITE	Prompt: !!,"Enter the start date of the 90-day report period.",! Line Location: 5+3
Function Call: WRITE	Prompt: ! Line Location: 5+5
Routine Call	DIC Line Location: FAC+2
Routine Call	DIR Line Location: INTRO+5 YEAR+6 YEAR+21 YEAR+35 METHOD+2 ATTEST+10 ATTEST+20 ATTEST+21 ATTEST+22 EOP+5 5+5
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)
^APCM14OB - [#9001302.02]	INTRO+9, ATTEST+18, ATTEST+20, ATTEST+21, ATTEST+22
^APCM14OB("B"	ATTEST+3, ATTEST+17
^APCMMUCN - [#9001300.01]	INTRO+4, TP+2
^APCMMUCN("B"	INTRO+2
^DIC(4 - [#4]	FAC+2, ATTEST+20, ATTEST+21, ATTEST+22, SUM+5, LOC+1
^VA(200 - [#200]	USR+1

Label References

Name	Line Occurrences
$$CTR	SUM+2
5	YEAR+28, YEAR+39
6	YEAR+29, YEAR+40
DEMO	ATTEST+25, SUM+7
FAC	DEMO+2, ATTEST+11, ATTEST+12
INTRO	YEAR+7, YEAR+8
NODEV	ZIS+4
SUM	ATTEST+7
TP	YEAR+41, YEAR+42, METHOD+3, FAC+3
TSKMN	ZIS+7
XIT	APCM14H+5, INTRO+6, INTRO+7, ZIS+2, ZIS+3, ZIS+4, ZIS+6, DRIVER+5, NODEV1+4, TSKMN+5
YEAR	YEAR+10, YEAR+13, YEAR+30

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!
APCMATTE	ATTEST+1!, ATTEST+7
APCMATTE(	ATTEST+6, ATTEST+14, ATTEST+24
>> APCMBD	YEAR+1, YEAR+24, YEAR+25, YEAR+26, YEAR+27, YEAR+38, YEAR+41, SUM+4, 5+4, 5+8
>> APCMDELT	ZIS+4, ZIS+5
>> APCMDEMO	DEMO+1, DEMO+2
>> APCMED	YEAR+1, YEAR+24, YEAR+25, YEAR+26, YEAR+27, YEAR+38, YEAR+42, SUM+4, 5+4, 5+8
>> APCMFAC	FAC+1, FAC+4, ATTEST+6, ATTEST+20, ATTEST+21, ATTEST+22, ATTEST+24, SUM+5
>> APCMIND(	INTRO+9*, ATTEST+5
>> APCMMETH	METHOD+1, METHOD+4
>> APCMPER	YEAR+1, YEAR+11, YEAR+13, YEAR+24, YEAR+25, YEAR+26, YEAR+27, YEAR+30, YEAR+38, 5+4* , 5+7*
>> APCMQ	YEAR+12, YEAR+13, YEAR+22, YEAR+30, YEAR+36, ATTEST+13, ATTEST+14, ATTEST+23*, ATTEST+25
>> APCMQUIT	PRV+1*, ZIS+2
>> APCMROT	SUM+7, ZIS+4
>> APCMRPT	ZIS+3, ZIS+6
>> APCMRPTC	INTRO+2*, INTRO+4, TP+2
>> APCMRPTP	TP+1, YEAR+23, YEAR+24, YEAR+25, YEAR+26, YEAR+27, YEAR+28, YEAR+29, YEAR+37*, YEAR+38 , YEAR+39, YEAR+40
>> APCMRPTT	INTRO+1*
>> APCMSUM	RT+1*
>> APCMVDT	YEAR+1, YEAR+9, YEAR+11, 5+4, 5+7
>> APCMX	ATTEST+14*, ATTEST+17, ATTEST+20, ATTEST+21, ATTEST+24
>> APCMY	ATTEST+17*, ATTEST+18, ATTEST+20, ATTEST+21, ATTEST+22
B	XIT+8!
BD	XIT+10!
C	XIT+8!
D	XIT+8!
DA	INTRO+5!, YEAR+21!, YEAR+35!, METHOD+2!, FAC+2!, ATTEST+10!, ATTEST+20!, ATTEST+21!, ATTEST+22!, ZIS+6*
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!, YEAR+6!, YEAR+21!, YEAR+35!, METHOD+2!, ATTEST+10!, ATTEST+20!, ATTEST+21!, ATTEST+22!, XIT+4! , EOP+3~, EOP+4!, EOP+5!, 5+5!
DIR("?"	YEAR+5*
DIR("A"	INTRO+5, YEAR+4, YEAR+21, YEAR+35, METHOD+2, ATTEST+10, ATTEST+20, ATTEST+21, ATTEST+22, 5+5
DIR("B"	INTRO+5, METHOD+2, ATTEST+10, ATTEST+20, ATTEST+21, ATTEST+22
DIR(0	INTRO+5, YEAR+3, YEAR+21, YEAR+35, METHOD+2, ATTEST+10, ATTEST+20, ATTEST+21, ATTEST+22, EOP+5 , 5+5*
DIRUT	INTRO+6, YEAR+7, YEAR+8, YEAR+22, YEAR+36, METHOD+3, ATTEST+11, ATTEST+23, XIT+4!, EOP+4! , 5+5, 5+6
DLAYGO	XIT+5!
DLOUT	EOP+4!
DOD	XIT+4!
DTOUT	EOP+4!
DUOUT	YEAR+8, XIT+4!, EOP+4!, 5+5
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	APCM14H+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, ATTEST+20, ATTEST+21, ATTEST+22, SUM+5, USR+1, LOC+1
V	XIT+8!
W	XIT+8!
X	INTRO+4, INTRO+9, TP+2, ATTEST+2, ATTEST+3, ATTEST+6, ATTEST+18*, XIT+7!, XIT+8!, CTR~ , CTR+1, 5+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, YEAR+9, YEAR+10, YEAR+23, YEAR+37, METHOD+4, FAC+3, FAC+4, ATTEST+6*, ATTEST+12 , ATTEST+24, XIT+8!, CTR~, CTR+1, 5+5!, 5+7, 5+8
Z	ATTEST+3*, ATTEST+4, ATTEST+5, 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: APCM14H

Information

Source Information

Call Graph

Call Graph Total: 16