Routine: ECXAADM

Information

ECXAADM ;ALB/JAP - ADM Extract Audit Report ;3/13/19 10:40

Package	Total	Call Graph
DSS Extracts	5	PROCESS^ECXAADM ADM^ECXDVSN AUDIT^ECXKILL ($$EXPORT,EXPDISP)^ECXUTL1 (AUDIT,DEVICE,WARDS)^ECXUTLA
VA FileMan	5	(,DD)^%DT NOW^%DTC ($$GET1,EN)^DIQ EN^DIQ1 ^DIR
Kernel	4	HOME^%ZIS ^%ZISC $$S^%ZTLOAD $$RJ^XLFSTR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
DSS Extracts	2	ECX ADM SOURCE AUDIT ECXAADM

Entry Points

Name	Comments	DBIA/ICR reference
EN	;entry point for ADM extract audit report
PROCESS	;process data in file #727.802
PRINT	;print the admission data by division and ward order
HEAD	;173 header for missing wards, treating specialties, and ASIH OTHER FACILITY
HEADER	;header and page control

External References

Name	Field # of Occurrence
^%DT	EN+23, PROCESS+5
DD^%DT	PROCESS+7
NOW^%DTC	PROCESS+7
HOME^%ZIS	EN+47
^%ZISC	EN+46
$$S^%ZTLOAD	PROCESS+29, PROCESS+31, PROCESS+36, PRINT+4
$$GET1^DIQ	PRINT+58
EN^DIQ	PRINT+73
EN^DIQ1	EN+10
^DIR	EN+15, PRINT+77, HEADER+4
PROCESS^ECXAADM	EN+45
ADM^ECXDVSN	EN+25
AUDIT^ECXKILL	EN+21, EN+28, EN+37, EN+42, EN+48, PROCESS+42
$$EXPORT^ECXUTL1	EN+32
EXPDISP^ECXUTL1	EN+36
AUDIT^ECXUTLA	EN+7
DEVICE^ECXUTLA	EN+39
WARDS^ECXUTLA	PROCESS+9
$$RJ^XLFSTR	PRINT+19, PRINT+27, PRINT+32, PRINT+40

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+24
Function Call: WRITE	Prompt: ! Line Location: EN+38
Function Call: WRITE	Prompt: !,?5,WRDNM,?45,$$RJ^XLFSTR(WRDTOT,5," ") Line Location: PRINT+19
Function Call: WRITE	Prompt: ! Line Location: PRINT+76
Function Call: WRITE	Prompt: ! Line Location: PRINT+77
Function Call: WRITE	Prompt: !,?2,"NAME",?8,"PATIENT DFN",?25,"FACILITY",?45,"ADMISSION DATE",?63,"ASIH OTHER FAC" Line Location: HEAD+1
Function Call: WRITE	Prompt: !,?2,"====",?8,"===========",?25,"========",?45,"==============",?63,"==============" Line Location: HEAD+2
Function Call: WRITE	Prompt: ! Line Location: HEADER+3
Function Call: WRITE	Prompt: !,ECXARRAY("TYPE")_" ("_ECXHEAD_") Extract Audit Report" Line Location: HEADER+8
Function Call: WRITE	Prompt: !,"DSS Extract Log #: "_ECXEXT Line Location: HEADER+9
Function Call: WRITE	Prompt: !,"Date Range of Audit: "_ECXARRAY("START")_" to "_ECXARRAY("END") Line Location: HEADER+10
Function Call: WRITE	Prompt: !,"Report Run Date/Time: "_ECXRUN Line Location: HEADER+11
Function Call: WRITE	Prompt: !,"Medical Center Division: "_$P(ECXDIV(DIV),U,2)_" ("_$P(ECXDIV(DIV),U,3)_")",?68,"Page: "_PG Line Location: HEADER+12
Function Call: WRITE	Prompt: !,"Medical Center Division: "_$P(ECXDIV(DIV),U,2)_" ("_$P(ECXDIV(DIV),U,3)_")"_" <"_DSSID_">",?68,"Page: "_PG Line Location: HEADER+13
Function Call: WRITE	Prompt: !!,?5,"Ward <DSS Dept.>",?40,"# of Admissions" Line Location: HEADER+14
Function Call: WRITE	Prompt: !,LN,! Line Location: HEADER+15
Routine Call	DIR Line Location: EN+15 PRINT+77 HEADER+4
Routine Call	%ZIS Line Location: EN+47

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DG(40.8 - [#40.8]	GET1^DIQ
^DG(43 - [#43]	Classic Fileman Calls
^ECX(727.1 - [#727.1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ECX(727.802 - [#727.802]	PROCESS+14, PROCESS+15, PRINT+57
^TMP($J	EN+33!, EN+34, PROCESS+2!, PROCESS+10, PROCESS+11, PROCESS+12, PROCESS+21, PROCESS+24, PROCESS+25, PROCESS+33 , PROCESS+34, PROCESS+37, PROCESS+38, PROCESS+39, PROCESS+40, PRINT+10, PRINT+12, PRINT+13, PRINT+20, PRINT+24 , PRINT+31, PRINT+36, PRINT+38, PRINT+47, PRINT+50, PRINT+51, PRINT+52, PRINT+53, PRINT+54, PRINT+56 , PRINT+59

Label References

Name	Line Occurrences
HEAD	PRINT+55, PRINT+64
HEADER	PRINT+8, PRINT+18, PRINT+25, PRINT+28, PRINT+30, PRINT+37, PRINT+64
PRINT	PROCESS+41
PROCESS	EN+35

Naked Globals

Name	Field # of Occurrence
^(	PROCESS+12, PROCESS+33, PRINT+13
^("ASIH"	PROCESS+25*
^("MISTRT"	PROCESS+24*
^("MISWRD"	PROCESS+21*
^(0	PROCESS+15
^(1	PROCESS+40*, PRINT+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PROCESS+7
%X	EN+1~
%Y	EN+1~
ADMDT	PRINT+2~, PRINT+57*, PRINT+59, PRINT+61
ASIH	PROCESS+1~, PROCESS+15*, PROCESS+25, PROCESS+26
CNT	PROCESS+1~, PROCESS+3, PROCESS+28, PROCESS+29
DA	EN+1~, EN+10, PRINT+1~, PRINT+73
DATA	PRINT+1~, PRINT+13, PRINT+14, PRINT+57, PRINT+58, PRINT+59, PRINT+60, PRINT+62, PRINT+63
DATA1	PRINT+1~, PRINT+13!*, PRINT+17!, PRINT+22, PRINT+23
DATE	PROCESS+1~, PROCESS+15, PROCESS+17, PROCESS+18
DIC	EN+1~, EN+10, PRINT+1~, PRINT+73
DIQ	EN+1~, EN+10*
DIQ(0	EN+10*
DIR	EN+1~, EN+15!, PRINT+1~, PRINT+77!, HEADER+1~, HEADER+4!
DIR("A"	EN+14*
DIR("B"	EN+15*
DIR(0	EN+14, PRINT+77, HEADER+4*
DIRUT	EN+1~, EN+16, PRINT+2~, HEADER+1~
DIV	PROCESS+1~, PROCESS+11, PROCESS+12, PROCESS+33, PROCESS+34, PROCESS+37, PROCESS+38, PROCESS+39, PROCESS+40, PRINT+5 , PRINT+6, PRINT+7, PRINT+9, PRINT+12, PRINT+13, PRINT+31, PRINT+32, PRINT+37, HEADER+6, HEADER+12 , HEADER+13
DIVNM	PRINT+1~, PRINT+7*, PRINT+10, PRINT+20
DR	EN+1~, EN+10, PRINT+1~, PRINT+73
DSSID	HEADER+1~, HEADER+6*, HEADER+12, HEADER+13
DTOUT	EN+1~, PRINT+2~, HEADER+1~
DUOUT	EN+1~, PRINT+2~, HEADER+1~
>> ECX(43	EN+11, EN+12
>> ECXALL	EN+11, EN+18, EN+25, PROCESS+9
>> ECXARRAY	EN+7
>> ECXARRAY("DEF"	PROCESS+4, PRINT+73
>> ECXARRAY("END"	EN+23, PROCESS+5, PRINT+10, PRINT+20, PRINT+70, HEADER+10
>> ECXARRAY("EXTRACT"	PROCESS+4
>> ECXARRAY("START"	EN+23, PROCESS+5, PRINT+10, PRINT+20, PRINT+70, HEADER+10
>> ECXARRAY("TYPE"	PRINT+68, HEADER+8
>> ECXAUD	EN+4*, EN+7
>> ECXDEF	PROCESS+4*
ECXDESC	EN+30*, EN+39, EN+44!
>> ECXDIV	EN+25, PROCESS+9
>> ECXDIV(	PRINT+7, PRINT+31, PRINT+32, PRINT+37*, HEADER+6, HEADER+12, HEADER+13
>> ECXEND	EN+23, EN+25, PROCESS+5, PROCESS+18
>> ECXERR	EN+2, EN+7, EN+8, EN+16, EN+19, EN+25, EN+26
>> ECXEXT	PROCESS+4*, PROCESS+14, PRINT+20, PRINT+69, HEADER+9
>> ECXHEAD	EN+4*, EN+5, EN+7, EN+14, PRINT+68, HEADER+8
ECXPGM	EN+30*, EN+39, EN+44!
ECXPORT	EN+1~, EN+32*, PROCESS+42, PRINT+8, PRINT+10, PRINT+18, PRINT+19, PRINT+20, PRINT+24, PRINT+30 , PRINT+31, PRINT+37, PRINT+39, PRINT+46, PRINT+55, PRINT+59, PRINT+65
>> ECXRUN	PROCESS+7*, PRINT+71, HEADER+11
ECXSAVE	EN+39, EN+44!
ECXSAVE("ECXALL"	EN+31*
ECXSAVE("ECXARRAY("	EN+31*
ECXSAVE("ECXDIV("	EN+31*
ECXSAVE("ECXHEAD"	EN+31*
ECXSAVE("POP"	EN+40
ECXSAVE("ZTSK"	EN+43
>> ECXSTART	EN+23, EN+25, PROCESS+5, PROCESS+18
FAC	PRINT+2~, PRINT+58*, PRINT+59, PRINT+60
GRPNM	PRINT+1~, PRINT+23*, PRINT+24, PRINT+27
GRPTOT	PRINT+1~, PRINT+23*, PRINT+24, PRINT+27
GTOT	PROCESS+1~
GTOT(	PROCESS+11, PROCESS+37, PROCESS+39*, PRINT+6, PRINT+9, PRINT+31, PRINT+32
IEN	PROCESS+1~, PROCESS+14, PROCESS+15, PROCESS+21, PROCESS+24, PROCESS+25, PRINT+2~, PRINT+56, PRINT+57
IO	EN+46, PRINT+3
IO(0	EN+46
IOF	PRINT+67, PRINT+74, HEADER+7
IOSL	PRINT+18, PRINT+25, PRINT+28, PRINT+30, PRINT+64
IOST	PRINT+66, PRINT+75, HEADER+2, HEADER+7
JJ	PRINT+1~, PRINT+76, HEADER+1~, HEADER+3
LN	PRINT+1~, PRINT+5*, PRINT+72, HEADER+15
MISTYPE	PRINT+1~, PRINT+36*, PRINT+37, PRINT+38, PRINT+40, PRINT+47, PRINT+56
NOTE	PROCESS+1~, PRINT+35, PRINT+41, PRINT+48*
ORDER	PROCESS+1~, PROCESS+11, PROCESS+12, PROCESS+33, PROCESS+34, PROCESS+38, PROCESS+39, PROCESS+40, PRINT+12*, PRINT+13 , PRINT+17
PG	PRINT+1~, PRINT+5, PRINT+67, PRINT+71, HEADER+4, HEADER+7*, HEADER+12, HEADER+13
QFLG	PRINT+1~, PRINT+5, PRINT+6, PRINT+8, PRINT+12, PRINT+18, PRINT+22, PRINT+25, PRINT+28, PRINT+30 , PRINT+34, PRINT+36, PRINT+37, PRINT+56, PRINT+64, PRINT+75, HEADER+2, HEADER+4, HEADER+5
QQFLG	PROCESS+1~, PROCESS+3, PROCESS+14, PROCESS+29
RCNT	EN+1~, EN+34, PRINT+10, PRINT+20, PRINT+24, PRINT+31, PRINT+47, PRINT+49, PRINT+50, PRINT+51* , PRINT+52, PRINT+53, PRINT+54, PRINT+59*
SORD	PROCESS+1~
SS	PRINT+1~, PRINT+76, HEADER+1~, HEADER+3
STOT	PROCESS+1~, PROCESS+38, PROCESS+39, PROCESS+40*
STOT(	PROCESS+12*
TL	PROCESS+1~
TL(	PROCESS+11, PROCESS+28, PROCESS+32, PROCESS+34
>> TOT	PROCESS+39*
TSV	PROCESS+1~, PROCESS+15*, PROCESS+23, PROCESS+26
U	PROCESS+11, PROCESS+15, PROCESS+33, PROCESS+34, PROCESS+39, PROCESS+40, PRINT+7, PRINT+10, PRINT+14, PRINT+20 , PRINT+23, PRINT+24, PRINT+31, PRINT+32, PRINT+47, PRINT+57, PRINT+58, PRINT+59, PRINT+60, PRINT+62 , PRINT+63, HEADER+6, HEADER+12, HEADER+13
W	PROCESS+1~, PROCESS+10, PROCESS+11, PROCESS+32, PROCESS+33, PROCESS+34
WARD	PROCESS+1~, PROCESS+15*, PROCESS+20, PROCESS+26, PROCESS+28
WRDNM	PRINT+1~, PRINT+14*, PRINT+19, PRINT+20
WRDTOT	PRINT+1~, PRINT+14, PRINT+17, PRINT+19, PRINT+20, PRINT+38, PRINT+40, PRINT+47
X	EN+1~, EN+23, PROCESS+1~, PROCESS+5
Y	EN+1~, EN+18, EN+23, PROCESS+1~, PROCESS+5, PROCESS+7*, HEADER+4
>> ZTQUEUED	PROCESS+29, PROCESS+31, PROCESS+36, PRINT+4
ZTREQ	PROCESS+29!, PROCESS+31!, PROCESS+36!, PRINT+4!
>> ZTSTOP	PROCESS+29, PROCESS+31, PROCESS+36, PRINT+4

Customize PDF page

Package: DSS Extracts

Routine: ECXAADM

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: