Asumispalveluiden ja laitoshoidon kustannusten vertailu

Kyselylomake potilaan henkilökohtaisen tilanteen arvioimiseksi.

Kysymys

Tämä sivu on tietokide alatyypiltään metodi. Sivutunniste: Op_fi2932
Moderaattori:Jouni (katso kaikki) Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review).
Lisää dataa {{#opasnet_base_link:Op_fi2932}} Huom! Käytät vanhoja parametreja (todennäköisesti stub). Käytä mieluummin parametria edistyminen = Raakile.

Miten arvioidaan mielenterveyskuntoutujien, vanhusten ja kehitysvammaisten asumisen kustannuksia, kun siirrytään laitoshoidosta asumispalveluihin?

Vastaus

Asumispalveluiden ja laitoshoidon kustannusten vertailu(useita)
Obs	Hoitomuoto	Toimenpide	Unit	Result
1	Asuinpalvelut	Pesu ja kylvetys	€ /h	15-30
2	Asuinpalvelut	Vessassa käyttäminen	€ /h	15-30
3	Asuinpalvelut	Ruokailussa auttaminen	€ /h	15-30
4	Asuinpalvelut	Asunnon siivous	€ /h	15-30
5	Asuinpalvelut	Vaatehuolto	€ /h	15-30
6	Asuinpalvelut	Lääkehuolto	€ /h	15-30
7	Asuinpalvelut	Lääkäripalvelut	€ /h	30
8	Asuinpalvelut	Yövalvonta	€ /h	15-30
9	Asuinpalvelut	Turvaranneke ja -palvelut	€ /h	15-30
10	Asuinpalvelut	Ulkoilutus	€ /h	15-30
11	Asuinpalvelut	Harrastustoiminta	€ /h	15-30
12	Asuinpalvelut	Avustus sosiaalisten yhteyksien ylläpitämisessä	€ /h	15-30
13	Asuinpalvelut	Asuintilan tarve	€ /m2 /kk	15
14	Laitospalvelut	Pesu ja kylvetys	€ /h	15
15	Laitospalvelut	Vessassa käyttäminen	€ /h	15
16	Laitospalvelut	Ruokailussa auttaminen	€ /h	15
17	Laitospalvelut	Asunnon siivous	€ /h	15
18	Laitospalvelut	Vaatehuolto	€ /h	15-30
19	Laitospalvelut	Lääkehuolto	€ /h	15-30
20	Laitospalvelut	Lääkäripalvelut	€ /h	30
21	Laitospalvelut	Yövalvonta	€ /h	15
22	Laitospalvelut	Turvaranneke ja -palvelut	€ /h	15
23	Laitospalvelut	Ulkoilutus	€ /h	15-30
24	Laitospalvelut	Harrastustoiminta	€ /h	15-30
25	Laitospalvelut	Avustus sosiaalisten yhteyksien ylläpitämisessä	€ /h	15-30
26	Laitospalvelut	Asuintilan tarve	€ /m2 /kk	30

Perustelut

Laskenta perustuu THL:n arvioimiin yksikkökustannuksiin. Toistaiseksi luvut ovat vain keksittyjä toiminnallisuuden havainnollistamiseksi. Toiminnallisuus on kehitetty projektiin, jota koordinoi Aija Kettunen.

+ Näytä koodi - Piilota koodi

library(OpasnetUtils)

riippuvuudet <- data.frame(Name = c("tarve", "lkm"), Key = "")

formula <- function(dependencies, ...) {

	ComputeDependencies(dependencies)

	data <- data.frame(Toimenpide = c(
			'Pesu ja kylvetys',
			'Vessassa käyttäminen',
			'Ruokailussa auttaminen',
			'Asunnon siivous',
			'Vaatehuolto',
			'Lääkehuolto',
			'Lääkäripalvelut',
			'Yövalvonta',
			'Turvaranneke ja -palvelut',
			'Ulkoilutus',
			'Harrastustoiminta',
			'Avustus sosiaalisten yhteyksien ylläpitämisessä',
			'Asuintilan tarve'), 
		Observation = c(
			'pesu',
			'vessa',
			'ruoka',
			'asunto',
			'vaate',
			'lääke',
			'lääkäri',
			'yö',
			'turva',
			'ulkoilutus',
			'harrastus',
			'sosiaali',
			'tila'),
		Result = c(rep(0,12), 1)
	)

	eiAjallinen <- new("ovariable", name = "eiAjallinen", data = data)
	eiAjallinen <- EvalOutput(eiAjallinen)
eiAjallinen <- CheckMarginals(eiAjallinen)
	
	data <- tidy(op_baseGetData("opasnet_base", "Op_fi2932"))
	yksikkökustannus <- new("ovariable", name = "yksikkökustannus", data = data[, colnames(data) != "Description"])
	yksikkökustannus <- EvalOutput(yksikkökustannus)
	yksikkökustannus <- CheckMarginals(yksikkökustannus)
#	tarve <- merge(tarve, eiAjallinen)
	ajattomat <- tarve * eiAjallinen * lkm * yksikkökustannus
	ajalliset <- tarve * (1 - eiAjallinen) * lkm * yksikkökustannus
print(head(ajattomat@output))
print(head(ajalliset@output))
out <- ajattomat + ajalliset
#	out@output$Result <- ifelse(as.logical(out@output$eiAjallinenResult), 
#		 out@output$Result,
#		 out@output$Result / 60 * 30 # min /d -> h /kk
#	)
#	out@output$Yksikkö <- "€ /kk"
	return(out)
}

sosiaalipalveluhinta <- new("ovariable", 
	name = "sosiaalipalveluhinta",
	dependencies = riippuvuudet,
	formula = formula
)

objects.put(sosiaalipalveluhinta)

cat("Metodi alustettu. Ota malliajon sivun avain talteen myöhempää käyttöä varten.\n")

data <- tidy(op_baseGetData("opasnet_base", "Op_fi2935"), direction = "long")

tarve <- new("ovariable", 
	name = "tarve", 
	data = data[data$Observation != "lkm", ]
)

lkm <- new("ovariable", 
	name = "lkm", 
	data = data[data$Observation == "lkm", colnames(data) != "Observation"]
)

sosiaalipalveluhinta <- EvalOutput(sosiaalipalveluhinta, N = 2)

sosiaalipalveluhinta

Katso myös

Asumispalveluiden ja laitoshoidon tarve kunnassa

Avainsanat

Viitteet

Aiheeseen liittyviä tiedostoja