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 |