Routine: ECXAECS

Package	Total	Call Graph
DSS Extracts	5	PROCESS^ECXAECS ECS^ECXDVSN (,AUDIT)^ECXKILL ($$EXPORT,EXPDISP)^ECXUTL1 (AUDIT,DEVICE)^ECXUTLA
Kernel	4	HOME^%ZIS ^%ZISC $$S^%ZTLOAD ($$LJ,$$RJ)^XLFSTR
VA FileMan	4	(,DD)^%DT NOW^%DTC EN^DIQ ^DIR
CPT HCPCS Codes	1	($$CODEN,$$CPT)^ICPTCOD

Package	Total	Caller Graph
DSS Extracts	2	ECX ECS SOURCE AUDIT ECXAECS

Entry Points

Name	Comments	DBIA/ICR reference
EN	;entry point for ECS extract audit report
PROCESS	;process data in file #727.815
PRINT	;print event capture data by location/division and dss unit order
HEADER	;header and page control
LATE(ARRAY,ECXERR)	;

External References

Name	Field # of Occurrence
^%DT	EN+23, PROCESS+5
DD^%DT	PROCESS+7
NOW^%DTC	PROCESS+7
HOME^%ZIS	EN+51
^%ZISC	EN+50
$$S^%ZTLOAD	PROCESS+24, PRINT+3
EN^DIQ	PRINT+42
^DIR	EN+15, PRINT+45, HEADER+4, LATE+10
PROCESS^ECXAECS	EN+49
ECS^ECXDVSN	EN+24
^ECXKILL	EN+41
AUDIT^ECXKILL	EN+21, EN+27, EN+46, EN+52, PROCESS+44
$$EXPORT^ECXUTL1	EN+35
EXPDISP^ECXUTL1	EN+40
AUDIT^ECXUTLA	EN+7
DEVICE^ECXUTLA	EN+43
$$CODEN^ICPTCOD	PROCESS+35
$$CPT^ICPTCOD	PROCESS+35
$$LJ^XLFSTR	PRINT+21
$$RJ^XLFSTR	PRINT+25, PRINT+29, PRINT+32

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Setup for ",ECXHEAD," Extract Audit Report --",!! Line Location: EN+5
Function Call: WRITE	Prompt: ! Line Location: EN+32
Function Call: WRITE	Prompt: ! Line Location: EN+42
Function Call: WRITE	Prompt: !,?5,$E(LN,1,74) Line Location: PRINT+28
Function Call: WRITE	Prompt: !!,"Grand Total for Location "_DIVNM_":",?68,$$RJ^XLFSTR(GTOT,5," ") Line Location: PRINT+32
Function Call: WRITE	Prompt: ! Line Location: PRINT+44
Function Call: WRITE	Prompt: ! Line Location: PRINT+45
Function Call: WRITE	Prompt: ! Line Location: HEADER+3
Function Call: WRITE	Prompt: !,ECXARRAY("TYPE")_" ("_ECXHEAD_") Extract Audit Report" Line Location: HEADER+7
Function Call: WRITE	Prompt: !,"DSS Extract Log #: "_ECXARRAY("EXTRACT") Line Location: HEADER+8
Function Call: WRITE	Prompt: !,"Date Range of Audit: "_ECXARRAY("START")_" to "_ECXARRAY("END") Line Location: HEADER+9
Function Call: WRITE	Prompt: !,"Report Run Date/Time: "_ECXRUN Line Location: HEADER+10
Function Call: WRITE	Prompt: !,"Event Capture Location: "_$P(ECXDIV(DIV),U,2)_" ("_DIV_")",?68,"Page: "_PG Line Location: HEADER+11
Function Call: WRITE	Prompt: !!,"DSS Unit",!,?5,"Category",?35,"Procedure",?68,"Volume" Line Location: HEADER+12
Function Call: WRITE	Prompt: !,LN,! Line Location: HEADER+13
Routine Call	DIR Line Location: EN+15 PRINT+45 HEADER+4 LATE+10
Routine Call	%ZIS Line Location: EN+51

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ECX(727.1 - [#727.1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	EN+10
^EC(725 - [#725]	PROCESS+26, PROCESS+29
^EC(726 - [#726]	PROCESS+20
^ECD - [#724]	PROCESS+18
^ECJ - [#720.3]	PROCESS+31, PROCESS+37
^ECJ("AP"	PROCESS+31, PROCESS+37
^ECX(727.815 - [#727.815]	PROCESS+9, PROCESS+10, LATE+3, LATE+4
^TMP($J	EN+36!, EN+37, PROCESS+2!, PROCESS+22, PROCESS+23, PROCESS+40, PRINT+7, PRINT+10, PRINT+15, PRINT+18 , PRINT+20, PRINT+23

Label References

Name	Line Occurrences
HEADER	PRINT+6, PRINT+13, PRINT+17, PRINT+28, PRINT+32
LATE	EN+29
PRINT	PROCESS+42
PROCESS	EN+39

Naked Globals

Name	Field # of Occurrence
^(	PROCESS+23*, PRINT+18, PRINT+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PROCESS+7
%X	EN+1~
%Y	EN+1~
ARRAY	LATE~
ARRAY("EXTRACT"	LATE+3
ARRAY("LATE"	LATE+2, LATE+11
CAT	PROCESS+1~, PROCESS+20*, PROCESS+31, PROCESS+37
CATN	PROCESS+1~, PROCESS+20, PROCESS+22, PROCESS+23, PRINT+11, PRINT+15*, PRINT+17, PRINT+18, PRINT+23
CNT	EN+1~, EN+38, PRINT+23
COUNT	EN+1~, EN+10, EN+12, PROCESS+1~, PROCESS+3, PROCESS+23*, PROCESS+24
DA	EN+1~, PRINT+42*
DATA	PROCESS+1~, PROCESS+10*, PROCESS+18, PROCESS+20, PROCESS+21
DATE	PROCESS+1~, PROCESS+10, PROCESS+12, PROCESS+13, PROCESS+14, PROCESS+15, PROCESS+35
DIC	EN+1~, PRINT+42*
DIQ	EN+1~
DIR	EN+1~, EN+15!, PRINT+1~, PRINT+45!, HEADER+4!, LATE+1~
DIR("?"	LATE+10*
DIR("A"	EN+14, LATE+9
DIR("B"	EN+15, LATE+9
DIR(0	EN+14, PRINT+45, HEADER+4, LATE+9
DIRUT	EN+16, PRINT+1~, LATE+1~, LATE+12
DIV	PROCESS+1~, PROCESS+10, PROCESS+17, PROCESS+22, PROCESS+23, PROCESS+31, PROCESS+37, PRINT+1~, PRINT+4, PRINT+5* , PRINT+6, PRINT+7, PRINT+10, PRINT+15, PRINT+18, HEADER+11
DIVNM	PRINT+1~, PRINT+6*, PRINT+23, PRINT+32
DR	EN+1~, PRINT+42*
DTOUT	PRINT+1~
DUOUT	PRINT+1~
>> ECXALL	EN+11, EN+18, EN+24
>> ECXARRAY	EN+7, EN+29
>> ECXARRAY("DEF"	PROCESS+4, PRINT+42
>> ECXARRAY("END"	EN+23, PROCESS+5, PRINT+39, HEADER+9
>> ECXARRAY("EXTRACT"	PROCESS+4, PRINT+23, HEADER+8
>> ECXARRAY("LATE"	PROCESS+14
>> ECXARRAY("START"	EN+23, PROCESS+5, PRINT+39, HEADER+9
>> ECXARRAY("TYPE"	PRINT+37, HEADER+7
>> ECXAUD	EN+4*, EN+7
>> ECXD	EN+10*
>> ECXDEF	PROCESS+4*
ECXDESC	EN+33*, EN+43, EN+48!
>> ECXDIV	EN+24
>> ECXDIV(	PROCESS+17, PRINT+5, PRINT+6, HEADER+11
>> ECXEND	EN+23, PROCESS+5, PROCESS+15
ECXERR	EN+2, EN+7, EN+8, EN+16, EN+19, EN+24, EN+25, EN+29, EN+30, LATE~ , LATE+12*
>> ECXEXT	PROCESS+4*, PROCESS+9, PRINT+38
>> ECXHEAD	EN+4*, EN+5, EN+7, EN+14, PRINT+37, HEADER+7
ECXPGM	EN+33*, EN+43, EN+48!
ECXPORT	EN+1~, EN+35*, PROCESS+43, PRINT+6, PRINT+8, PRINT+13, PRINT+17, PRINT+23, PRINT+26, PRINT+30 , PRINT+34
>> ECXRUN	PROCESS+7*, PRINT+40, HEADER+10
ECXSAVE	EN+43, EN+48!
ECXSAVE("ECXALL"	EN+34*
ECXSAVE("ECXARRAY("	EN+34*
ECXSAVE("ECXDIV("	EN+34*
ECXSAVE("ECXHEAD"	EN+34*
ECXSAVE("POP"	EN+44
ECXSAVE("ZTSK"	EN+47
>> ECXSTART	EN+23, PROCESS+5, PROCESS+14, PROCESS+15, LATE+7
GTOT	PRINT+1~, PRINT+6, PRINT+19, PRINT+32
IEN	PROCESS+1~, PROCESS+9*, PROCESS+10
IO	EN+50, PRINT+2
IO(0	EN+50
IOF	PRINT+36, HEADER+6
IOSL	PRINT+13, PRINT+17, PRINT+28, PRINT+32
IOST	PRINT+35, PRINT+43, HEADER+2, HEADER+6
JJ	PRINT+1~, PRINT+44, HEADER+1~, HEADER+3
LDATE	LATE+1~, LATE+4, LATE+5, LATE+6, LATE+7
LN	PRINT+1~, PRINT+4*, PRINT+28, PRINT+41, HEADER+13
LREC	LATE+1~, LATE+3*, LATE+4
NM	PRINT+1~
P	PRINT+1~
PG	PRINT+1~, PRINT+4, PRINT+36, PRINT+40, HEADER+4, HEADER+6*, HEADER+11
PIEN	PROCESS+1~, PROCESS+26, PROCESS+28, PROCESS+29, PROCESS+30, PROCESS+34, PROCESS+35, PROCESS+36
PN	PRINT+1~, PRINT+22*, PRINT+23, PRINT+25
PRI	PROCESS+1~, PROCESS+31, PROCESS+37
PROC	PROCESS+1~, PROCESS+21, PROCESS+22, PROCESS+23, PROCESS+26, PROCESS+35, PROCESS+40, PRINT+1~, PRINT+15!, PRINT+18* , PRINT+20, PRINT+21
PROC(	PRINT+21*, PRINT+22
PROCN	PROCESS+1~, PROCESS+26, PROCESS+29, PROCESS+32, PROCESS+34, PROCESS+35, PROCESS+38, PROCESS+39, PROCESS+40, PRINT+19* , PRINT+20*, PRINT+21
PRSYN	PROCESS+1~, PROCESS+31, PROCESS+32, PROCESS+37, PROCESS+38
PRXF	PROCESS+1~, PROCESS+30, PROCESS+31, PROCESS+36, PROCESS+37
QFLG	PRINT+1~, PRINT+4, PRINT+5, PRINT+10, PRINT+13, PRINT+15, PRINT+17, PRINT+22, PRINT+28, PRINT+32 , PRINT+43, HEADER+4, HEADER+5
QQFLG	PROCESS+1~, PROCESS+3, PROCESS+9, PROCESS+17, PROCESS+24
SS	PRINT+1~, PRINT+44, HEADER+1~, HEADER+3
STOT	PRINT+1~, PRINT+11, PRINT+19, PRINT+29
TOT	PRINT+1~, PRINT+18, PRINT+19, PRINT+21, PRINT+22, PRINT+23, PRINT+25
U	PROCESS+10, PROCESS+18, PROCESS+20, PROCESS+21, PROCESS+29, PROCESS+31, PROCESS+35, PROCESS+37, PRINT+6, PRINT+23 , HEADER+11, LATE+4
UNIT	PROCESS+1~, PROCESS+18, PROCESS+31, PROCESS+37, PRINT+11, PRINT+13, PRINT+23, PRINT+29
UNIT(	PROCESS+18*, PRINT+11
UNITN	PROCESS+1~, PROCESS+18, PROCESS+22, PROCESS+23, PRINT+10, PRINT+11, PRINT+13, PRINT+15, PRINT+18, PRINT+23 , PRINT+29
VOL	PROCESS+1~, PROCESS+21*, PROCESS+23
W	PROCESS+1~
X	EN+1~, EN+23, PROCESS+1~, PROCESS+5, LATE+1~
Y	EN+1~, EN+18, EN+23, PROCESS+1~, PROCESS+5, PROCESS+7*, HEADER+4, LATE+1~, LATE+11
>> ZTQUEUED	PROCESS+24, PRINT+3
ZTREQ	PROCESS+24!, PRINT+3!
>> ZTSTOP	PROCESS+24, PRINT+3

Customize PDF page

Package: DSS Extracts

Routine: ECXAECS

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Legends:

Package Component Superscript legend

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: