Asumispalveluiden ja laitoshoidon kustannusten vertailu

Tämä sivu on tietokide alatyypiltään metodi. Sivutunniste: Op_fi2932
Moderaattori:Jouni (katso kaikki) Sivun edistyminen: Luonnos. Arvostuksen määrää ei ole arvioitu (ks. peer review).
Lisää dataa {{#opasnet_base_link:Op_fi2932}}

Kysymys

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

Vastaus

Kyselylomake potilaan henkilökohtaisen tilanteen arvioimiseksi.

Perustelut

Kysymykseen on vastattu ARA:n projektissa ^[1].

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

Data

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

Laskenta

+ 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(1,12), 0)
	)

	Ajallinen <- new("ovariable", name = "Ajallinen", data = data)
	Ajallinen <- CheckMarginals(EvalOutput(Ajallinen, ...))
	
	data <- tidy(op_baseGetData("opasnet_base", "Op_fi2932"))
	yksikkökustannus <- new("ovariable", name = "yksikkökustannus", data = data[, colnames(data) != "Description"])
	yksikkökustannus <- CheckMarginals(EvalOutput(yksikkökustannus, ...))

	ajalliset <- tarve * Ajallinen * lkm * yksikkökustannus

	out <- ajalliset
#	ajalliset <- tarve * (1 - eiAjallinen) * lkm * yksikkökustannus # Tuo miinuslasku ei onnistu: Error in eva l(expr, envir, enclos) : object 'e12' not found
#	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"

out@output <- out@output[, !colnames(out@output) %in% c("Observation", "tarveSource", "AjallinenSource", "lkmSource", "yksikkökustannusSource")]

	return(out)
}

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

objects.put(hoitohinta)

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

Katso myös

Asumispalveluiden ja laitoshoidon tarve kunnassa

Avainsanat

Viitteet

↑ Tuula Pehkonen-Elmi, Aija Kettunen ja Marjo Pulliainen: Laitoshoidosta omaan kotiin. Kustannusselvitys vanhusten ja kehitysvammaisten asumisesta siirryttäessä laitoshoidosta palveluasumiseen. Asumisen rahoitus- ja kehittämiskeskuksen raportteja 5/2013. [1]

Aiheeseen liittyviä tiedostoja

[1] Tuula Pehkonen-Elmi, Aija Kettunen ja Marjo Pulliainen: Laitoshoidosta omaan kotiin. Kustannusselvitys vanhusten ja kehitysvammaisten asumisesta siirryttäessä laitoshoidosta palveluasumiseen. Asumisen rahoitus- ja kehittämiskeskuksen raportteja 5/2013. [1]

[1]