Hello All,
Please, I need help with coding an algorithm for a categorical outcome variable. For this variable there should be 3 levels. They are 'no violation', 'time violation' and 'acuity violation'. The variables needed to code the outcome include acuity which has 5 level -listed as 1-5 (represents illness severity with 1 being the sickest), waiting time (time from patient arrival to time they were picked up by a provider), roomed time (time they were roomed for vitals) and seen time (time seen by provider). The roomed and seen time are both datetimes.
If a patient was roomed before another patient with a longer waiting time and was seen by a physician earlier and the patient (the index patient) was sicker. This is not a violation. However, this patient will then be compared with the next 19 patients. If there is no violation, then it will be recorded as 'no violation'.
However, if a patient was roomed before another patient with a longer waiting time and was seen by a physician earlier and the patient with the longer waiting time had same acuity with the index patient, then this is a time violation.
Also, if a patient who is sicker is seen later than another patient with a longer waiting time, then it is an 'acuity violation'. I am having difficulty writing the code for comparing the index patient with the next 19 patients.
Please, kindly help.
Thank you
data CHERRYP.newdata4;
set CHERRYP.newdata3;
If lag(Roomed)>Roomed then roomed_before =1;
Else roomed_before =0;
If lag(provider_Assigned)>Provider_Assigned then Assigned_before =1;
Else Assigned_before =0;
waiting_time=( ( Provider_Assigned- Arrival)/60 );
lag_acuity=lag(acuity);
lag_roomed=lag(roomed);
lag_provider_assigned =lag(Provider_Assigned);
lag_waiting_time =lag(waiting_time);
format lag_roomed lag_provider_assigned DATETIME.;RUN;
Data CHERRYP.Newdata5;
Set CHERRYP.Newdata4;
if roomed_before=1 and assigned_before=1 and acuity<lag_acuity and waiting_time<lag_waiting_time then Violation=0;
if roomed_before=1 and assigned_before=1 and acuity<lag_acuity and waiting_time>lag_waiting_time then Violation=0;
if roomed_before=1 and assigned_before=1 and acuity=lag_acuity and waiting_time<lag_waiting_time then Violation=2;
if roomed_before=1 and assigned_before=1 and acuity=lag_acuity and waiting_time>lag_waiting_time then Violation=0;
if roomed_before=1 and assigned_before=0 and acuity=lag_acuity and waiting_time<lag_waiting_time then Violation=0;
if roomed_before=1 and assigned_before=0 and acuity<lag_acuity and waiting_time>lag_waiting_time then Violation=1;
if roomed_before=1 and assigned_before=0 and acuity>lag_acuity and waiting_time>lag_waiting_time then Violation=0;
if roomed_before=1 and assigned_before=0 and acuity=lag_acuity and waiting_time>lag_waiting_time then Violation=2;
if roomed_before=0 and assigned_before=1 and acuity=lag_acuity and waiting_time<lag_waiting_time then Violation=2;
if roomed_before=0 and assigned_before=1 and acuity<lag_acuity and waiting_time<lag_waiting_time then Violation=0;
if roomed_before=0 and assigned_before=1 and acuity>lag_acuity and waiting_time<lag_waiting_time then Violation=0;
if roomed_before=0 and assigned_before=1 and acuity<lag_acuity and waiting_time<lag_waiting_time then Violation=0;
if roomed_before=0 and assigned_before=0 and acuity<lag_acuity and waiting_time<lag_waiting_time then Violation=1;
if roomed_before=0 and assigned_before=0 and acuity<lag_acuity and waiting_time>lag_waiting_time then Violation=1;
if roomed_before=0 and assigned_before=0 and acuity=lag_acuity and waiting_time<lag_waiting_time then Violation=0;
if roomed_before=0 and assigned_before=0 and acuity=lag_acuity and waiting_time>lag_waiting_time then Violation=1;run;
**Violation=1 is 'acuity violation', violation=2 is 'time violation' and acuity=0 is 'no violation'
