Ero sivun ”Asumispalveluiden ja laitoshoidon kustannusten vertailu” versioiden välillä

Versio 25. heinäkuuta 2012 kello 10.52

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

Ero sivun ”Asumispalveluiden ja laitoshoidon kustannusten vertailu” versioiden välillä(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", "eiAjalliset"), Key = "")

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

ComputeDependencies(dependencies)

	nimet <- new("ovariable", name = "nimet", output = 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'), 
	Havainto = c(
		'pesu',
		'vessa',
		'ruoka',
		'asunto',
		'vaate',
		'lääke',
		'lääkäri',
		'yö',
		'turva',
		'ulkoilutus',
		'harrastus',
		'sosiaali',
		'tila')
	))

#	tarve <- make.ovariable(tarve)
	lkm <- tarve@output[tarve@output$Havainto == "lkm", ]
	tarve <- merge(tarve, nimet)
print(tarve@output)
#	out@output <- out@output[colnames(out@output) != "Havainto"]

	yksikkökustannus <- new("ovariable",
		name = "yksikkökustannus",
		data = tidy(op_baseGetData("opasnet_base", "Op_fi2932"))
	)
	# yksikkökustannus <- EvalOutput(yksikkökustannus)
print(yksikkökustannut@output)
print(lkm)
	out <- tarve * yksikkökustannus * lkm
	out@output$Result <- ifelse(out@output$Toimenpide %in% eiAjalliset, 
		 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")


tarve <- tidy(op_baseGetData("opasnet_base", "Op_fi2935"), direction = "long")
tarve <- tarve[tarve$Observation != "lkm", ]
tarve <- new("ovariable", 
	name = "tarve", 
	data = tarve
)

tarve <- EvalOutput(tarve, N = 2)

head(tarve@output)

eiAjalliset <- "Asuintilan tarve"

sosiaalipalveluhinta <- EvalOutput(sosiaalipalveluhinta)

sosiaalipalveluhinta

Katso myös

Asumispalveluiden ja laitoshoidon tarve kunnassa

Avainsanat

Viitteet

Aiheeseen liittyviä tiedostoja