CH 8
CH 8
CH 8
Health care facilities must conform to certain standards in submitting bills to Medicare/Medicaid for
processing. The number of bills with errors and the number sampled are shown in table. Construct an
appropriate control chart and comment on the performance of the billing department .Revise the
control limits , if necessary, assuming special causes for out of control points . Comment on the
capability of the department.
number_sampled<-c(400,400,400,400,400,400,300,300,300,300,300,300,300,300,300,300,500,500,500,500,500,500,500,500,500)
table3<-data.frame(bills_with_errors,number_sampled)
print(table3)
pchart<-with(table3,qcc(table3$bills_with_errors,table3$number_sampled,type="p",data.name="chart_for_errors"))
RESULT:
COMMENTS:
Here point 10 is outside the control limit. So we can say that the process is out of control. So to make process in control the special cause
for the point 10 needs to be investigated and has to be eliminated. So assuming that the special cause for point 10 has been found and has
been eliminated the revise control chart is plotted by eliminating point 10.
Chapter 8
number_sampled2<-number_sampled[-c(10)]
table4<-data.frame(bills_with_errors2,number_sampled2)
pchart<-with(table4,qcc(table4$bills_with_errors2,table4$number_sampled2,type="p",data.name="chart_for_errors_revised"))
RESULT:
COMMENTS:
The average proportion of errors is 0.01614 after the revision of the chart. For the numbered sample of 500 if we assume target of error t
. ∗( . )
be 0 then the standard deviation will be = 0.00562
.
And Z = = 2.86 . So it in 2.86 standard deviation away from the mean so it is not feasible to expect error free bills.
.
Chapter 8
The number of dietary errors is found from a random sample of 100 trays chosen on a daily basis in a
health care facility . The data for 25 such sample s are chosen in table.
errors<-c(9,6,4,7,5,6,16,8,7,9,3,6,10,8,8,7,6,4,12,7,6,8,6,8,5)
table<-data.frame(sample, errors)
cchart<-with(table,qcc(table$errors,table$sample,type="c",data.name="dietary_errors"))))
RESULT:
COMMENT:
Here point 7 is outside the control limit. So we can say that the process is out of control. So to make process in control the special cause for
the point 10 needs to be investigated and has to be eliminated. So assuming that the special cause for point 7 has been found and has been
eliminated the revise control chart is plotted by eliminating point 7.
errors2<-errors[-c(7)]
table2<-data.frame(sample2,errors2)
cchart<-with(table2,qcc(table2$errors2,table2$sample2,type="c",data.name="dietary_errors_revised"))
Chapter 8
RESULT:
COMMENTS:
Above mention in the revise c-chart after the elimination of the special cause corresponding to point 7.
c) For the average dietary error of 6.875 per 100 trays, P(x≤2) = 0.0203 by Poisson distribution. So it is no feasible to achieve this level with
the current system.