HLEMST ;ALB/CJM -ListManager Screen for displaying an Event Statistics;12 JUN 1997 10:00 am
Source file <HLEMST.m>
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 |
Registration | 3 | EN^VALM (CLEAR,FULL)^VALM1 CLEAN^VALM10 |
VA Fileman | 3 | WAIT^DICD $$EXTERNAL^DILFD ^DIR |
Name | Comments | DBIA/ICR reference |
---|---|---|
HELP | ;Help code
|
|
YEAR(SITE,TYPE,START) | ;
|
|
MONTH(SITE,TYPE,START,YEAR) | ;
|
|
EXPND | ;Expand code
|
|
ASKBEGIN(DEFAULT) | ;
|
|
DAY(SITE,TYPE,START,YEAR,MONTH) | ;
|
|
SELECT | ;Allows the user to change profiles, then rebuilds the Event Log Statistics screen
|
|
HDR | ;Header code
|
|
DHOUR(ARY,IDX,SITE,YEAR,MONTH,DAY,HOUR) | ;
|
|
INIT | ;Init variables and list array
|
|
CHNGDATE | ;Allows the user to change the starting date, then rebuilds the Event Log Statistics screen
|
|
EN | ;Entry point to viewing a Event Statistics
|
|
DISPLAY(ARY,IDX) | ;Build event statistics screen
|
|
DDAY(ARY,IDX,SITE,YEAR,MONTH,DAY) | ;
|
|
HOURTXT(H) | ;
|
|
DMONTH(ARY,IDX,SITE,YEAR,MONTH) | ;
|
|
DAYTXT(D) | ;
|
|
MONTHTXT(M) | ;
|
|
HOUR(SITE,TYPE,START,YEAR,MONTH,DAY) | ;
|
|
SETUP(START,ARY,PROFILE) | ;
|
|
EXIT | ;Exit code
|
|
X(FIELD,VALUE) | ;
|
|
DYEAR(ARY,IDX,SITE,YEAR) | ;
|
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 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^HLEV(776.4 - [#776.4] | EXTERNAL^DILFD |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^HLEV(776.3 - [#776.3] | SETUP+16 |
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 |
>> | 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 |