Routine: APCM13N

Package	Total	Call Graph
Patient Care Component Table Maintiance	5	C^APCM13E PROC^APCM13E1 ^APCM13EP EN^APCM13SI (EN,PT,REPORT)^APCM13SL
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD ($$FMADD,$$FMTE)^XLFDT
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
Registration	1	TERM^VALM0

Package	Total	Caller Graph
iCare	2	APCM 11 M1 2013 HOSP PAT LISTS APCM 13 M1 2013 HOSP 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.
TSKMN	;EP ENTRY POINT FROM TASKMAN
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	;
FAC	;
A	;fiscal year
ATTEST	;get answers to attestation questions for each provider.
C	;
B	;
ZIS	;call to XBDBQUE
DRIVER	;
XIT	;
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+3
^%ZTLOAD	TSKMN+5
DEMOCHK^APCLUTL	DEMO+1
C^APCM13E	C+1
PROC^APCM13E1	DRIVER+1, NODEV1+1
^APCM13EP	DRIVER+3, NODEV1+2
EN^APCM13SI	INTRO+20
EN^APCM13SL	LISTS+9
PT^APCM13SL	SUM+7
REPORT^APCM13SL	ZIS+1
KILL^AUPNPAT	XIT+8, XIT+13
^DIC	FAC+2
^DIK	ZIS+6, ZIS+7
^DIR	INTRO+9, INTRO+13, INTRO+17, SI1+18, RT+8, TP+8, TP+31, PP+5, ATTEST+10, ATTEST+20 , ATTEST+21, EOP+5, A+6, B+5, LISTS+4, LISTS+5
TERM^VALM0	SI1+2
^XBDBQUE	NODEV+2
^XBFMK	XIT+14
EN^XBVK	XIT+4
$$FMADD^XLFDT	B+8, B+9
$$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,15,X,0),! Line Location: INTRO+4
Function Call: WRITE	Prompt: !,$$CTR("IHS 2013 Stage 1 MU Patient List for Hospitals/CAHs") Line Location: INTRO+5
Function Call: WRITE	Prompt: !,"This report will enable a provider to review his or her Meaningful Use " Line Location: INTRO+6
Function Call: WRITE	Prompt: !,"performance by patient-specific data. You will be asked to select one or " Line Location: INTRO+7
Function Call: WRITE	Prompt: !,"more Performance Measures on which to report.",! Line Location: INTRO+8
Function Call: WRITE	Prompt: !!! Line Location: INTRO+11
Function Call: WRITE	Prompt: ^APCMMUCN(APCMRPTC,12,X,0),! Line Location: INTRO+12
Function Call: WRITE	Prompt: !!,"No measures selected" Line Location: INTRO+20
Function Call: WRITE	Prompt: !?5,APCMC,")",?9,$P(^APCMM13L(X,0),U,3) Line Location: SI1+16
Function Call: WRITE	Prompt: !,"No REPORTS selected for this objective." Line Location: SI1+19
Function Call: WRITE	Prompt: !,"No REPORTs selected for this objective." Line Location: SI1+20
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 data." Line Location: RT+3
Function Call: WRITE	Prompt: !,"The full report will produce approximately 40 pages of data for the facility." Line Location: RT+4
Function Call: WRITE	Prompt: !,"Please take this into consideration when running print jobs, ensuring" Line Location: RT+5
Function Call: WRITE	Prompt: !,"dedicated time on your printer and sufficient paper supplies to complete " Line Location: RT+6
Function Call: WRITE	Prompt: !,"your job.",! Line Location: RT+7
Function Call: WRITE	Prompt: !!,"Historical data from the previous federal fiscal 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: !!,"Several Stage 1 Meaningful Use Performance Measures require an attestation of " Line Location: ATTEST+8
Function Call: WRITE	Prompt: !,"Yes or No for each provider for which the report is being run.",! Line Location: ATTEST+9
Function Call: WRITE	Prompt: !,^APCM13OB(APCMY,19,X,0) Line Location: ATTEST+18
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: !!,"Hospital: ",$P(^DIC(4,APCMFAC,0),U,1) Line Location: SUM+6
Function Call: WRITE	Prompt: !,"Report Aborted" Line Location: ZIS+6
Function Call: WRITE	Prompt: !,"Report Aborted" Line Location: ZIS+7
Function Call: WRITE	Prompt: !!,"Enter the Federal Fiscal 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: !!,"IMPORTANT NOTE: This report may be run for any 90-day period. For submission" Line Location: B+1
Function Call: WRITE	Prompt: !,"to CMS, the report should not span Federal Fiscal Years." Line Location: B+2
Function Call: WRITE	Prompt: !!,"Enter the start date of the 90-day report period.",! Line Location: B+3
Function Call: WRITE	Prompt: ! Line Location: B+5
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: FAC+2
Routine Call	DIR Line Location: INTRO+9 INTRO+13 INTRO+17 SI1+18 RT+8 TP+8 TP+31 PP+5 ATTEST+10 ATTEST+20 ATTEST+21 EOP+5 A+6 B+5 LISTS+4 LISTS+5
Routine Call	%ZIS Line Location: ZIS+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^APCMM13C - [#9001301.03]	Classic Fileman Calls
^APCMM13P - [#9001301.04]	Classic Fileman Calls
^AUTTLOC - [#9999999.06]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCCCTRL - [#9001000]	TP+25
^APCM13OB - [#9001301.02]	INTRO+21, SI1+5, SI1+15, ATTEST+18, ATTEST+20, ATTEST+21
^APCM13OB("B"	TP+23, ATTEST+3, ATTEST+17
^APCMM13C - [#9001301.03]	XIT+1
^APCMM13L - [#9001301.06]	SI1+9, SI1+10, SI1+16
^APCMM13P - [#9001301.04]	XIT+2
^APCMMUCN - [#9001300.01]	INTRO+12
^APCMMUCN("B"	INTRO+2
^DIC(4 - [#4]	FAC+2, ATTEST+20, ATTEST+21, SUM+6, LOC+1
^VA(200 - [#200]	USR+1
^XUSEC("APCMZ PATIENT LISTS"	LISTS+3

Label References

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

Customize PDF page

Package: Patient Care Component Table Maintiance

Routine: APCM13N

Information

Source Information

Call Graph

Call Graph Total: 18

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: