quote:

AVERAGE
AVERAGE

UNIT
ED-2-BED AVERAGE
AVERAGE Pts. Pts. PTS PTS OTF PATS MINUTES HOURS Pts. OTF Pts. OTF OTF OTF
VOLUME MINUTES HOURS
<3hrs >3hrs
% YES
% NO VOLUME OTF OTF
<3hrs >3hrs % YES % NO

Trauma 5 95.79 1.60 5 0 100 0 9 76.67 1.28 9 0 100 0

quote:

TABLE FILE EDTIMESN
HEADING CENTER
"LOOK AT THOSE NEW FIELDS - MATCH METHOD"
PRINT
-*GOTO NEWDATA
TOTEDBPTS
TOTOTFPTS
P_OTF
P4DURATION
P4DURHRS
P4OTF
P4OTFHRS
-*
COMPUTE ALLPTS/I9 = TOTEDBPTS + TOTOTFPTS;
COMPUTE ALLDUR/I9 = P4DURATION + P4OTF;
COMPUTE ALLDURHRS/I9 = P4DURHRS + P4OTFHRS;
COMPUTE ALLMEET/I9 = IF (ALLDURHRS LE 3) AND (ALLPTS GE 1) THEN 1 ELSE 0;
COMPUTE ALLNMEET/I9 = IF (ALLMEET EQ 0) AND (ALLPTS GE 1) THEN 1 ELSE 0;
-*
BADMRN
-*
BY UNIT
BY EDP
ON TABLE HOLD AS GOODPTS
END
-RUN
-*
TABLE FILE GOODPTS
SUM
ALLPTS AS 'TOTAL,ED-2-BED,VOLUME'
LST.BADMRN AS 'ERRORS'
-****
AVE.ALLDUR AS 'AVERAGE,MINUTES'
AVE.ALLDURHRS AS 'AVERAGE,HOURS'
COMPUTE TOTMEETN/D10 = ALLMEET + ALLNMEET; NOPRINT
ALLMEET AS 'Pts.,< 3hrs.'
ALLNMEET AS 'Pts.,> 3hrs.'
COMPUTE PCTALLMEET/D10 = (ALLMEET/TOTMEETN) * 100; AS 'PTS, % YES'
COMPUTE PCTALLNMEET/D10 = (ALLNMEET/TOTMEETN) * 100; AS 'PTS, % NO'
COMPUTE PAMFLAG/A1 = IF PCTALLMEET GE 91 AND PCTALLMEET LE 100 THEN '1'
ELSE IF PCTALLMEET EQ 90 THEN '2'
ELSE IF PCTALLMEET GE 75 AND PCTALLMEET LE 89 THEN '3'
ELSE IF PCTALLMEET GE 0 AND PCTALLMEET LE 74 THEN '4' ELSE '0'; NOPRINT
-*
BY UNIT

quote:

UNIT
ED-2-BED AVERAGE
AVERAGE Pts. Pts. PTS PTS
VOLUME MINUTES HOURS
<3hrs >3hrs
% YES
% NO

Trauma 14 145.00 1 11 3 79 21