2005-06 Outpatient Cost Data Edits




* SET ERROR FLAG;
err1 = '.'; err2 = '.'; err3 = '.'; err4 = '.'; err5 = '.'; err6 = '.';


* INITIALLY SET AUTOMATIC EXCLUSION FLAG TO INCLUDE ALL RECORDS;
DHS_EDIT = 'Y';


* SET TOTAL COST LESS S100 COSTS;
totcost_excl_s100 = totcost - s100;



* Negative Department Costs;

if
(ALLIED   < 0) or
(IALLIED  < 0) or
(CCU      < 0) or
(ICCU     < 0) or
(EMERG    < 0) or
(IEMERG   < 0) or
(ICU      < 0) or
(IICU     < 0) or
(IMAGING  < 0) or
(IIMAGING < 0) or
(MEDSURG  < 0) or
(IMEDSURG < 0) or
(MEDNON   < 0) or
(IMEDNON  < 0) or
(NURSING  < 0) or
(INURSING < 0) or
(PATH     < 0) or
(IPATH    < 0) or
(PHARM    < 0) or
(IPHARM   < 0) or
(THEATOR  < 0) or
(ITHEATOR < 0) or
(THEATNOR < 0) or
(ITHEANOR < 0) or
(OTHER    < 0) or
(IOTHER   < 0) or
(PROSTH   < 0) or
(S100     < 0) or   
(HITHCOST < 0)     then err1 = 'E';



* Negative TOTCOST;
if totcost < 0       then err2 = 'E';



* Zero TOTOST;
if totcost eq 0      then err3 = 'E';



* $0 < TOTCOST < $5;
if (0 < totcost < 5) then err4 = 'E';



* TOTCOST > $3000;
if totcost > 3000    then err5 = 'E';



* Costs do not balance;

sumpot =
ALLIED   +
CCU      +
EMERG    +
ICU      +
IMAGING  +
MEDSURG  +
MEDNON   +
NURSING  +
PATH     +
PHARM    +
THEATOR  +
THEATNOR +
OTHER    ;

deltapot = abs(sumpot - totcost);
if deltapot > 30 then err6 = 'E';



* CONSOLIDATE ERROR FLAG;
if (err1 in ('.') and
    err2 in ('.') and
    err3 in ('.') and
    err4 in ('.') and
    err5 in ('.') and
    err6 in ('.')      ) then errflag = 'Y......'; else
                              errflag = 'E'||err1||err2||err3||err4||err5||err6;




* AUTOMATIC EXCLUSION OF COST DATA SET AS DHS_EDIT = 'N';

if (totcost_excl_s100 lt 5) then dhs_edit = 'N';     * EXISTING EDIT - NOT NEW;

if (totcost_excl_s100 gt 3000) then dhs_edit = 'N';  * NEW EDIT - FIRST APPLIED TO 2004-05 VACS Data;

if vacscode not in ('101','102','103','104','105','106','107','108','109','110','111','112','113','114','115',
                    '201','202','203','204','205','206','207','208','209',
                    '301','310','311','350',
                    '401','402','403','404','405',
                    '501','502','550',
                    '601','602','603','604','605','606','607','608','609','610','611') then dhs_edit = 'N';

if (sepdate in ('','.')) or (sepdate lt '01JUL2005'd) or (sepdate gt '30JUN2006'd) then dhs_edit = 'N';
run;