Routine: HLEMST

Information

HLEMST ;ALB/CJM -ListManager Screen for displaying an Event Statistics;12 JUN 1997 10:00 am

Package	Total	Call Graph
Health Level Seven	7	$$GET^HLEMP $$SELECT^HLEMP1 $$PROFILE^HLEMSL INIT^HLEMST ($$SET,$$STATION)^HLEMSU $$CODE^HLEMT $$INC^HLEMU
Kernel	3	($$FMADD,$$FMTE)^XLFDT ($$LJ,$$RJ)^XLFSTR DISP^XQORM1
List Manager	3	EN^VALM (CLEAR,FULL)^VALM1 CLEAN^VALM10
VA FileMan	3	WAIT^DICD $$EXTERNAL^DILFD ^DIR

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: 6

Package	Total	Caller Graph
Health Level Seven	5	HLEM CHANGE DATE RANGE HLEM DISPLAY STATISTICS HLEM SELECT PROFILE (STATS) HLEM STATISTICS HLEMST
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
EN	;Entry point to viewing a Event Statistics
HDR	;Header code
INIT	;Init variables and list array
SETUP(START,ARY,PROFILE)	;
YEAR(SITE,TYPE,START)	;
MONTH(SITE,TYPE,START,YEAR)	;
DAY(SITE,TYPE,START,YEAR,MONTH)	;
HOUR(SITE,TYPE,START,YEAR,MONTH,DAY)	;
DISPLAY(ARY,IDX)	;Build event statistics screen
DYEAR(ARY,IDX,SITE,YEAR)	;
DMONTH(ARY,IDX,SITE,YEAR,MONTH)	;
DDAY(ARY,IDX,SITE,YEAR,MONTH,DAY)	;
DHOUR(ARY,IDX,SITE,YEAR,MONTH,DAY,HOUR)	;
HELP	;Help code
EXIT	;Exit code
EXPND	;Expand code
X(FIELD,VALUE)	;
ASKBEGIN(DEFAULT)	;
MONTHTXT(M)	;
DAYTXT(D)	;
HOURTXT(H)	;
SELECT	;Allows the user to change profiles, then rebuilds the Event Log Statistics screen
CHNGDATE	;Allows the user to change the starting date, then rebuilds the Event Log Statistics screen

External References

Name	Field # of Occurrence
WAIT^DICD	EN+12
$$EXTERNAL^DILFD	X+2
^DIR	ASKBEGIN+10
$$GET^HLEMP	EN+6, SELECT+7
$$SELECT^HLEMP1	SELECT+3
$$PROFILE^HLEMSL	EN+6
INIT^HLEMST	SELECT+8, CHNGDATE+5
$$SET^HLEMSU	DISPLAY+7, DISPLAY+9, DISPLAY+10, DYEAR+2, DYEAR+5, DMONTH+2, DMONTH+5, DDAY+2, DDAY+5, DHOUR+2 , DHOUR+5
$$STATION^HLEMSU	SETUP+10
$$CODE^HLEMT	SETUP+15
$$INC^HLEMU	DISPLAY+10, DYEAR+2, DYEAR+5, DMONTH+2, DMONTH+5, DDAY+2, DDAY+5, DHOUR+2, DHOUR+5
EN^VALM	EN+13
CLEAR^VALM1	EXIT+2
FULL^VALM1	SELECT+2
CLEAN^VALM10	DISPLAY+2, EXIT+1
$$FMADD^XLFDT	ASKBEGIN+8
$$FMTE^XLFDT	INIT+3, ASKBEGIN+8
$$LJ^XLFSTR	DISPLAY+10, DYEAR+2, DYEAR+5, DMONTH+2, DMONTH+5, DDAY+2, DDAY+5, DHOUR+2, DHOUR+5
$$RJ^XLFSTR	DAY+3
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	DIR Line Location: ASKBEGIN+10
Routine Call	VALM Line Location: EN+13

FileNo	Call Tags
^HLEV(776.4 - [#776.4]	EXTERNAL^DILFD

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^HLEV(776.3 - [#776.3]	SETUP+16

Label References

Name	Line Occurrences
$$ASKBEGIN	EN+7, SELECT+5, CHNGDATE+2
$$DAYTXT	DDAY+2
$$HOURTXT	DHOUR+2
$$MONTHTXT	DMONTH+2
DAY	MONTH+7
DDAY	DMONTH+8
DHOUR	DDAY+7
DISPLAY	INIT+5
DMONTH	DYEAR+8
DYEAR	DISPLAY+14
HDR	INIT+7, DISPLAY+16
HOUR	DAY+6
MONTH	YEAR+7
SETUP	INIT+4
YEAR	SETUP+19

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARY	INIT+1~, INIT+2*, INIT+4, INIT+5, INIT+6, SETUP~, SETUP+5, YEAR+5, YEAR+6, MONTH+5 , MONTH+6, DAY+4, DAY+5, HOUR+4, HOUR+5, DISPLAY~, DISPLAY+7, DISPLAY+8, DISPLAY+14, DYEAR~ , DYEAR+2, DYEAR+4, DYEAR+5, DYEAR+7, DYEAR+8, DMONTH~, DMONTH+2, DMONTH+4, DMONTH+5, DMONTH+7 , DMONTH+8, DDAY~, DDAY+2, DDAY+4, DDAY+5, DDAY+7, DHOUR~, DHOUR+2, DHOUR+4, DHOUR+5
ASKBEGIN	SELECT+1~, SELECT+5, SELECT+6, CHNGDATE+1~, CHNGDATE+2, CHNGDATE+3, CHNGDATE+4
BEGIN	EN+4~, EN+7, EN+8, INIT+3, INIT+4, SELECT+5, SELECT+6, CHNGDATE+2, CHNGDATE+4*
D	DAYTXT~, DAYTXT+3, DAYTXT+5, DAYTXT+6
DAY	DAY+1~, DAY+2, DAY+3, DAY+4, DAY+5, DAY+6, HOUR~, HOUR+3, HOUR+4, HOUR+5 , DMONTH+1~, DMONTH+6, DMONTH+7, DMONTH+8, DDAY~, DDAY+2, DDAY+4, DDAY+5, DDAY+7, DHOUR~ , DHOUR+2, DHOUR+4, DHOUR+5
DEFAULT	ASKBEGIN~, ASKBEGIN+8
DIGIT	DAYTXT+4~, DAYTXT+5*, DAYTXT+6
DIR	ASKBEGIN+5~
DIR("?"	ASKBEGIN+9*
DIR("A"	ASKBEGIN+7*
DIR("B"	ASKBEGIN+8*
DIR(0	ASKBEGIN+6*
>> DIRUT	ASKBEGIN+11
DT	ASKBEGIN+8
DUZ	SELECT+3
EVENT	DYEAR+1~, DYEAR+3, DYEAR+4, DYEAR+5, DMONTH+1~, DMONTH+3, DMONTH+4, DMONTH+5, DDAY+1~, DDAY+3* , DDAY+4, DDAY+5, DHOUR+1~, DHOUR+3, DHOUR+4*, DHOUR+5
FIELD	X~, X+2
H	HOURTXT~, HOURTXT+1, HOURTXT+2, HOURTXT+3
HOUR	HOUR+1~, HOUR+2, HOUR+3, HOUR+4, HOUR+5, DDAY+1~, DDAY+6, DDAY+7, DHOUR~, DHOUR+2 , DHOUR+4, DHOUR+5
IDX	EN+4~, EN+10, EN+11, EN+15, INIT+5, SETUP+4~, SETUP+8, SETUP+9, SETUP+14, SETUP+18~* , YEAR+3, YEAR+5, YEAR+6, MONTH+3, MONTH+5, MONTH+6, DAY+3, DAY+4, DAY+5, HOUR+3 , HOUR+4, HOUR+5, DISPLAY~, DISPLAY+3, DISPLAY+9, DISPLAY+11, DISPLAY+12, DISPLAY+14, DYEAR~, DYEAR+8 , DMONTH~, DMONTH+8, DDAY~, DDAY+7, DHOUR~, EXIT+3
M	MONTHTXT~, MONTHTXT+2
MONTH	MONTH+1~, MONTH+2, MONTH+3, MONTH+4, MONTH+5, MONTH+6, MONTH+7, DAY~, DAY+3, DAY+4 , DAY+5, DAY+6, HOUR~, HOUR+3, HOUR+4, HOUR+5, DYEAR+1~, DYEAR+6, DYEAR+7, DYEAR+8 , DMONTH~, DMONTH+2, DMONTH+4, DMONTH+5, DMONTH+7, DMONTH+8, DDAY~, DDAY+2, DDAY+4, DDAY+5 , DDAY+7, DHOUR~, DHOUR+2, DHOUR+4, DHOUR+5
PROF	SELECT+1~, SELECT+3*, SELECT+4, SELECT+7
PROFILE	EN+5, EN+6~, INIT+4, SETUP~, SELECT+4, SELECT+7
PROFILE("ALL	SITES" , SETUP+9, TYPES" , SETUP+14
PROFILE("NAME"	INIT+3
PROFILE("SITES"	EN+5, SETUP+9
PROFILE("TYPES"	EN+5, SETUP+14
SITE	SETUP+4~, SETUP+6, SETUP+9, SETUP+10, SETUP+12, SETUP+14, SETUP+19, YEAR~, YEAR+7, MONTH~ , MONTH+7, DAY~, DAY+6, HOUR~, DISPLAY+1~, DISPLAY+6, DISPLAY+7, DISPLAY+8, DISPLAY+10, DISPLAY+11 , DISPLAY+12, DISPLAY+14, DYEAR~, DYEAR+2, DYEAR+4, DYEAR+5, DYEAR+7, DYEAR+8, DMONTH~, DMONTH+2 , DMONTH+4, DMONTH+5, DMONTH+7, DMONTH+8, DDAY~, DDAY+2, DDAY+4, DDAY+5, DDAY+7, DHOUR~ , DHOUR+2, DHOUR+4, DHOUR+5
SITE("NAME"	SETUP+10, SETUP+11, SETUP+12, YEAR+5, YEAR+6, MONTH+5, MONTH+6, DAY+4, DAY+5, HOUR+4 , HOUR+5
START	SETUP~, SETUP+7, SETUP+19, YEAR~, YEAR+7, MONTH~, MONTH+7, DAY~, DAY+3, DAY+6 , HOUR~
START("DAY"	SETUP+7*
START("HOUR"	SETUP+7*, HOUR+3
START("MONTH"	SETUP+7*, MONTH+2, MONTH+3, MONTH+4
START("YEAR"	SETUP+7*, YEAR+2, YEAR+3, YEAR+4, MONTH+3, MONTH+4
TYPE	SETUP+4~, SETUP+13, SETUP+14, SETUP+15, SETUP+16, SETUP+19, YEAR~, YEAR+7, MONTH~, MONTH+7 , DAY~, DAY+6, HOUR~
TYPE("NAME"	SETUP+15, SETUP+16, SETUP+17, YEAR+6, MONTH+6, DAY+5, HOUR+5
>> VALMBCK	INIT+8, SELECT+9, CHNGDATE+6*
>> VALMBG	DISPLAY+4*
>> VALMCNT	DISPLAY+4, DISPLAY+9, DISPLAY+10, DISPLAY+11, DISPLAY+12, DYEAR+2, DYEAR+5, DMONTH+2, DMONTH+5, DDAY+2* , DDAY+5, DHOUR+2, DHOUR+5*
VALMHDR	DISPLAY+3!
VALMHDR(1	HDR+1*
>> VALMSG	INIT+3*
VALUE	X~, X+2
X	HELP+1*, ASKBEGIN+5~
Y	ASKBEGIN+5~, ASKBEGIN+12
YEAR	YEAR+1~, YEAR+2, YEAR+3, YEAR+4, YEAR+5, YEAR+6, YEAR+7, MONTH~, MONTH+3, MONTH+4 , MONTH+5, MONTH+6, MONTH+7, DAY~, DAY+3, DAY+4, DAY+5, DAY+6, HOUR~, HOUR+3 , HOUR+4, HOUR+5, DISPLAY+1~, DISPLAY+13, DISPLAY+14, DYEAR~, DYEAR+2, DYEAR+4, DYEAR+5, DYEAR+7 , DYEAR+8, DMONTH~, DMONTH+2, DMONTH+4, DMONTH+5, DMONTH+7, DMONTH+8, DDAY~, DDAY+2, DDAY+4 , DDAY+5, DDAY+7, DHOUR~, DHOUR+2, DHOUR+4, DHOUR+5

Customize PDF page

Package: Health Level Seven