AMEROUT4 ; IHS/ANMC/GIS - HOURLY WORKLOAD REPORTS ;
Source file <AMEROUT4.m>
| Package | Total | Call Graph | 
|---|---|---|
| VA Fileman | 3 | EN^DDIOL ^DIC ^DIR | 
| Emergency Room | 2 | OUT^AMEROUT (FILTER,ZIS)^AMEROUT5 | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| SORT | ; SORT BY PROVIDER? | |
| SUBTOT(AMERSHFT) | ; COMPUTE THE HOURLY SUBTOTALS | |
| INC(X) | ; STORE A PRINTABLE LINE IN THE ARRAY | |
| RUN | ||
| F3(P,D) | ; TOTALS | |
| SHIFT() | ;Allow user to select "DAILY TOTALS ONLY" ; OR ; Allow a start and stop military hour to be selected | |
| FORMAT(AMERSHFT) | ; CREATE FORMATTED OUTPUT AND STORE IN AN ARRAY | |
| F2(P,AMERSHFT) | ; DATE SORT | |
| TOTALS(P,J,D) | ; GET TOTALS AND AVERAGES FOR A GIVEN PROVIDER-DAY ; 1=TOTAL,2=AGE<14,3=ETOH,4=TRAUMA,5=P MIN,6=P MAX,7=P AVE,8=T MIN,9=T MAX,10=T AVE | |
| EXIT | ;ENTRY POINT FROM AMEROUT5 | |
| HOUR(X) | ; CONVERT TIME TO HOUR RANGE | |
| NEW | ||
| GET(AMERSHFT) | ; GET ENTRIES WITHIN THE SORT RANGES | |
| F1(AMERSHFT) | ; PROVIDER LOOP | 
| FileNo | Call Tags | 
|---|---|
| ^VA(200 - [#200] | Classic Fileman Calls | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^AMERVSIT - [#9009080] | GET+4, GET+13, GET+14, GET+16 | 
| ^AMERVSIT("B" | GET+2, GET+4 | 
| ^DD("DD" | F2+3 | 
| ^TMP("AMER HF" | NEW+1! | 
| ^TMP("AMER HOUR" | NEW+1!, EXIT+1!, GET+22*, TOTALS+8 | 
| ^TMP("AMER PRINT" | NEW+1!, EXIT+1!, INC+2* | 
| ^TMP("AMER TOT" | EXIT+1!, SUBTOT+36*, TOTALS+11*, FORMAT+15, F2+2, F2+4, F1+2, F3+2 | 
| ^VA(200 - [#200] | F1+2 | 
| Name | Line Occurrences | 
|---|---|
| $$HOUR | F2+8 | 
| $$SHIFT | RUN+4 | 
| EXIT | RUN, RUN+1 | 
| F1 | FORMAT+15 | 
| F2 | FORMAT+16, F1+2 | 
| F3 | F2+17 | 
| FORMAT | RUN+8 | 
| GET | RUN+6 | 
| INC | F2+3, F2+6, F2+7, F2+10, F2+15, F1+2, F3+6, F3+9 | 
| SORT | RUN, SORT+9 | 
| SUBTOT | RUN+7 | 
| TOTALS | SUBTOT+37 | 
| Name | Field # of Occurrence | 
|---|---|
| ^( | TOTALS+8, F2+4, F1+2 | 
| ^(12 | GET+16 | 
| ^(6 | GET+4 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| % | NEW~, GET+1~, GET+7*, GET+9, GET+10, GET+12*, GET+18*, GET+19*, GET+21*, GET+22 , SUBTOT+1~, SUBTOT+12*, SUBTOT+13*, SUBTOT+14*, SUBTOT+15*, SUBTOT+17, SUBTOT+18, SUBTOT+19, SUBTOT+20, SUBTOT+22* , SUBTOT+24, SUBTOT+25, SUBTOT+26, SUBTOT+27, SUBTOT+30*, SUBTOT+31*, SUBTOT+32*, SUBTOT+33, SUBTOT+35*, SUBTOT+36 , TOTALS+2~, TOTALS+6*, TOTALS+8*, TOTALS+9*, TOTALS+10*, FORMAT+1~, FORMAT+7*, FORMAT+8, FORMAT+9*, FORMAT+12 , F2+11*, F2+12*, F2+13*, HOUR+1~, HOUR+5*, HOUR+6, F3+1~, F3+4*, F3+5*, F3+8* | 
| A | GET+1~, SUBTOT+1~, SUBTOT+9*, SUBTOT+12*, SUBTOT+32, FORMAT+1~, FORMAT+3*, FORMAT+4, FORMAT+5, FORMAT+6 , F2+1~, F2+8*, F2+10, F2+11*, F2+12*, F2+13*, F2+15, F3+1~, F3+3*, F3+4* , F3+5*, F3+6, F3+7*, F3+8*, F3+9 | 
| A("AGE" | GET+12*, GET+21 | 
| A("DAY" | GET+12*, GET+22 | 
| A("ETOH" | GET+13*, GET+21 | 
| A("P TIME" | GET+16*, GET+18*, GET+21 | 
| A("PRV" | GET+15*, GET+22 | 
| A("T TIME" | GET+16*, GET+19*, GET+21 | 
| A("TIME" | GET+12*, GET+22 | 
| A("TRAUMA" | GET+14*, GET+21 | 
| >> AMERD1 | GET+2 | 
| >> AMERD2 | GET+4 | 
| AMERFLTR | NEW~*, GET+17 | 
| AMERHSRT | NEW~, SORT+3*, SORT+4*, SORT+10*, GET+5, GET+22, SUBTOT+35 | 
| AMERI | SUBTOT+1~, SUBTOT+4*, SUBTOT+11*, SUBTOT+37 | 
| AMERPRV | SUBTOT+1~, SUBTOT+3*, SUBTOT+35, SUBTOT+37 | 
| >> AMERQUIT | RUN, RUN+1, SORT+2, SORT+8 | 
| AMERRTRN | SHIFT+3~, SHIFT+8*, SHIFT+13*, SHIFT+16*, SHIFT+19, SHIFT+23*, SHIFT+27*, SHIFT+31*, SHIFT+33 | 
| AMERSHFT | RUN+4*, RUN+5, RUN+6, RUN+7, RUN+8, GET~, GET+9, GET+10, SUBTOT~, SUBTOT+6 , FORMAT~, FORMAT+15, FORMAT+16, F2~, F2+7, F2+10, F2+15, F1~, F1+2 | 
| AMERSHOW | SHIFT+3~, SHIFT+17*, SHIFT+29*, SHIFT+32 | 
| AMERTEMP | SHIFT+3~, SHIFT+28*, SHIFT+29 | 
| B | GET+1~, FORMAT+1~, FORMAT+4*, FORMAT+8 | 
| C | GET+1~, FORMAT+1~, FORMAT+5*, FORMAT+10, F2+8, F2+13, F3+5 | 
| D | GET+1~, GET+2*, GET+4*, SUBTOT+1~, SUBTOT+3*, SUBTOT+8, SUBTOT+10, SUBTOT+36, SUBTOT+37, TOTALS~ , TOTALS+8, TOTALS+11, F2+1~*, F2+2*, F2+3, F2+4, F2+17, F3~, F3+2 | 
| DDB | NEW~ | 
| DIC | SORT+5~* | 
| DIC("A" | SORT+5* | 
| DIC("S" | SORT+7* | 
| DIC(0 | SORT+5* | 
| DIR | SORT+1!, SHIFT+3~ | 
| DIR("?" | SORT+1*, SHIFT+11*, SHIFT+21* | 
| DIR("A" | SORT+1*, SHIFT+5*, SHIFT+11*, SHIFT+21* | 
| DIR("B" | SORT+1*, SHIFT+6*, SHIFT+10*, SHIFT+20* | 
| DIR(0 | SORT+1*, SHIFT+6*, SHIFT+11*, SHIFT+21* | 
| DN1 | NEW~ | 
| DN2 | NEW~ | 
| E | SUBTOT+1~, SUBTOT+9*, SUBTOT+13*, SUBTOT+32 | 
| F | SUBTOT+1~, SUBTOT+4!, SUBTOT+36 | 
| F( | SUBTOT+8*, SUBTOT+33*, TOTALS+5 | 
| G | SUBTOT+1~, SUBTOT+2*, SUBTOT+3, SUBTOT+8, SUBTOT+10 | 
| H | SUBTOT+1~, SUBTOT+6*, SUBTOT+8, SUBTOT+10, SUBTOT+33, TOTALS+2~, TOTALS+5*, FORMAT+1~, FORMAT+6*, F2+3 , F2+7 | 
| I | GET+1~, GET+2*, GET+11*, SUBTOT+9*, SUBTOT+11*, SUBTOT+32, TOTALS+2~, TOTALS+3*, TOTALS+4*, TOTALS+5* , TOTALS+6*, FORMAT+1~, FORMAT+4*, FORMAT+5*, FORMAT+6*, FORMAT+10*, FORMAT+12, F2+11*, F2+12*, F2+13* , F3+1~, F3+5*, F3+8* | 
| J | TOTALS~, TOTALS+2~, TOTALS+7*, TOTALS+8*, TOTALS+9, FORMAT+1~, FORMAT+4* | 
| K | TOTALS+2~, TOTALS+7*, TOTALS+8*, TOTALS+9 | 
| L | TOTALS+2~, TOTALS+7*, TOTALS+8*, TOTALS+10, FORMAT+1~, FORMAT+10*, FORMAT+11*, FORMAT+12*, FORMAT+13*, F2+3 , F2+7 | 
| M | TOTALS+2~, TOTALS+7*, TOTALS+8*, TOTALS+10 | 
| N | GET+1~, GET+4*, GET+13, GET+14, GET+16, GET+22, SUBTOT+1~, SUBTOT+9*, SUBTOT+10* | 
| OCXI | FORMAT+1~, FORMAT+2*, INC+1*, INC+2 | 
| P | SUBTOT+1~, SUBTOT+9!*, SUBTOT+16*, SUBTOT+17, SUBTOT+30, TOTALS~, TOTALS+8, TOTALS+11, F2~, F2+2 , F2+4, F2+17, F1+1~*, F1+2*, F3~, F3+2 | 
| P(0 | SUBTOT+17*, SUBTOT+19*, SUBTOT+32 | 
| P(1 | SUBTOT+17*, SUBTOT+20*, SUBTOT+32 | 
| P(2 | SUBTOT+17*, SUBTOT+18*, SUBTOT+30 | 
| P(3 | SUBTOT+30*, SUBTOT+32 | 
| Q | TOTALS+2~, TOTALS+7*, TOTALS+8* | 
| R | TOTALS+2~, TOTALS+8* | 
| S | FORMAT+1~ | 
| T | SUBTOT+1~, SUBTOT+9*, SUBTOT+14*, SUBTOT+32, TOTALS+2~, F2+1~, F2+4*, F2+5, F2+8 | 
| T( | TOTALS+3*, TOTALS+4*, TOTALS+5*, TOTALS+6* | 
| T(1 | TOTALS+11 | 
| T(11 | TOTALS+11 | 
| T(12 | TOTALS+11 | 
| T(13 | TOTALS+9*, TOTALS+11 | 
| T(14 | TOTALS+11 | 
| T(15 | TOTALS+11 | 
| T(16 | TOTALS+10*, TOTALS+11 | 
| T(2 | TOTALS+11 | 
| T(3 | TOTALS+11 | 
| T(4 | TOTALS+11 | 
| U | GET+5, GET+9, GET+10, GET+12, GET+13, GET+14, GET+15, GET+16, GET+21, SUBTOT+6 , SUBTOT+13, SUBTOT+14, SUBTOT+15, SUBTOT+22, SUBTOT+32, TOTALS+5, TOTALS+8, TOTALS+11, FORMAT+4, FORMAT+5 , FORMAT+6, FORMAT+8, FORMAT+10, F2+7, F2+8, F2+10, F2+11, F2+12, F2+13, F2+15 , F1+2, F3+5, F3+8, SHIFT+32 | 
| V | SUBTOT+1~, SUBTOT+9!*, SUBTOT+23*, SUBTOT+24, SUBTOT+31 | 
| V(0 | SUBTOT+24*, SUBTOT+26*, SUBTOT+32 | 
| V(1 | SUBTOT+24*, SUBTOT+27*, SUBTOT+32 | 
| V(2 | SUBTOT+24*, SUBTOT+25*, SUBTOT+31 | 
| V(3 | SUBTOT+31*, SUBTOT+32 | 
| X | NEW~, GET+1~, GET+4*, GET+7, GET+12, SUBTOT+1~, SUBTOT+10*, SUBTOT+12, SUBTOT+13, SUBTOT+14 , SUBTOT+15, SUBTOT+22, TOTALS+2~, TOTALS+5*, FORMAT+1~, FORMAT+4*, FORMAT+5*, FORMAT+8*, FORMAT+10*, FORMAT+13 , INC~, INC+2, F2+1~, F2+4*, F2+8, F2+10, F2+11, F2+12, F2+13, HOUR~ , HOUR+2*, HOUR+3, HOUR+4, F3+1~, F3+2*, F3+3, F3+5, F3+8 | 
| Y | NEW~, SORT+3, SORT+4, SORT+9, SORT+10, GET+1~, GET+4*, GET+5, GET+15, FORMAT+1~ , FORMAT+13*, F2+1~, F2+3*, HOUR+1~, HOUR+3*, HOUR+5, F3+1~, SHIFT+3~, SHIFT+8, SHIFT+13 , SHIFT+15*, SHIFT+16, SHIFT+17, SHIFT+23, SHIFT+25*, SHIFT+26*, SHIFT+27, SHIFT+28 | 
| Z | NEW~, GET+1~, TOTALS+8*, FORMAT+1~, FORMAT+8*, F2+3, F2+7, HOUR+1~, HOUR+4*, HOUR+5 , F3+1~ |