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~ |