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 |