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

Nykyinen versio 22. elokuuta 2013 kello 11.15

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

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

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]

@@ Rivi 1: / Rivi 1: @@
 [[Luokka:Sosiaalihuolto]]
+[[Luokka:Sisältää R-koodia]]
+{{metodi|moderator=Jouni|edistyminen=Luonnos}}
+==Kysymys==
+Miten arvioidaan mielenterveyskuntoutujien, vanhusten ja kehitysvammaisten asumisen kustannuksia, kun siirrytään laitoshoidosta asumispalveluihin?
+==Vastaus==
 '''Kyselylomake potilaan henkilökohtaisen tilanteen arvioimiseksi.'''
-<rcode showcode="-1" label="Laske kustannukset" include="page:OpasnetBaseUtils|name:generic|page:Asumispalveluiden_ja_laitoshoidon_kustannusten_vertailu|name:answer|page:Olio-ohjelmointi_Opasnetissä|name:answer"
+<rcode showcode="-1" label="Laske kustannukset" include="page:Asumispalveluiden_ja_laitoshoidon_kustannusten_vertailu|name:answer"
 variables="
 name:lkm|description:Tarkasteltavien henkilöiden määrä (jos yli 1, anna keskimääräiset arvot)|default:1
@@ Rivi 21: / Rivi 30: @@
 ">
-library(OpasnetBaseUtils)
+library(OpasnetUtils)
-library(xtable)
 n <- 1
@@ Rivi 59: / Rivi 67: @@
 out <- sosiaalipalveluhinta(out)
-print(xtable(out@output), type = 'html', html.table.attributes="border=1 class='sortable'")
+oprint(out@output)
 cat("Hoitomuodon kokonaishinta.\n")
-print(xtable(as.data.frame(as.table(tapply(out@output$Result, out@output["Hoitomuoto"], sum)))), type = 'html')
+oprint(as.data.frame(as.table(tapply(out@output$Result, out@output["Hoitomuoto"], sum))))
 cat("Toimenpiteen keskimääräinen hinta.\n")
-print(xtable(as.data.frame(as.table(tapply(out@output$Result, out@output["Toimenpide"], sum)))), type = 'html')
+oprint(as.data.frame(as.table(tapply(out@output$Result, out@output["Toimenpide"], sum))))
 </rcode>
-==Kysymys==
+==Perustelut==
+Kysymykseen on vastattu ARA:n projektissa <ref>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. [http://www.ara.fi/fi-FI/ARAtietopankki/ARAn_julkaisut/ARAn_raportteja_julkaisusarja/Laitoshoidosta_omaan_kotiin%2810566%29]</ref>.
-{{metodi|moderator=Jouni|stub=Yes}}
+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.
-Miten arvioidaan mielenterveyskuntoutujien, vanhusten ja kehitysvammaisten asumisen kustannuksia, kun siirrytään laitoshoidosta asumispalveluihin?
+===Data===
-==Vastaus==
 <t2b index="Hoitomuoto,Toimenpide,Observation" locations="Unit,Result,Description" unit="useita">
@@ Rivi 106: / Rivi 115: @@
 </t2b>
-==Perustelut==
+===Laskenta===
-Laskenta perustuu THL:n arvioimiin yksikkökustannuksiin. Toistaiseksi luvut ovat vain keksittyjä toiminnallisuuden havainnollistamiseksi. Toiminnallisuus on kehitetty projektiin, jota koordinoi Aija Kettunen.
 <rcode label="Alusta metodi">
 library(OpasnetUtils)
-riippuvuudet <- data.frame(Name = c("tarve", "eiAjalliset"), Key = "")
+riippuvuudet <- data.frame(Name = c("tarve", "lkm"), Key = "")
 formula <- function(dependencies, ...) {
-ComputeDependencies(dependencies)
+	ComputeDependencies(dependencies)
-	nimet <- new("ovariable", name = "nimet", output = data.frame(Toimenpide = c(
+	data <- data.frame(Toimenpide = c(
-		'Pesu ja kylvetys',
+			'Pesu ja kylvetys',
-		'Vessassa käyttäminen',
+			'Vessassa käyttäminen',
-		'Ruokailussa auttaminen',
+			'Ruokailussa auttaminen',
-		'Asunnon siivous',
+			'Asunnon siivous',
-		'Vaatehuolto',
+			'Vaatehuolto',
-		'Lääkehuolto',
+			'Lääkehuolto',
-		'Lääkäripalvelut',
+			'Lääkäripalvelut',
-		'Yövalvonta',
+			'Yövalvonta',
-		'Turvaranneke ja -palvelut',
+			'Turvaranneke ja -palvelut',
-		'Ulkoilutus',
+			'Ulkoilutus',
-		'Harrastustoiminta',
+			'Harrastustoiminta',
-		'Avustus sosiaalisten yhteyksien ylläpitämisessä',
+			'Avustus sosiaalisten yhteyksien ylläpitämisessä',
-		'Asuintilan tarve'),
+			'Asuintilan tarve'),
-	Havainto = c(
+		Observation = c(
-		'pesu',
+			'pesu',
-		'vessa',
+			'vessa',
-		'ruoka',
+			'ruoka',
-		'asunto',
+			'asunto',
-		'vaate',
+			'vaate',
-		'lääke',
+			'lääke',
-		'lääkäri',
+			'lääkäri',
-		'yö',
+			'yö',
-		'turva',
+			'turva',
-		'ulkoilutus',
+			'ulkoilutus',
-		'harrastus',
+			'harrastus',
-		'sosiaali',
+			'sosiaali',
-		'tila')
+			'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
-#	tarve <- make.ovariable(tarve)
+	out <- ajalliset
-	lkm <- tarve@output[tarve@output$Havainto == "lkm", ]
+#	ajalliset <- tarve * (1 - eiAjallinen) * lkm * yksikkökustannus # Tuo miinuslasku ei onnistu: Error in eva l(expr, envir, enclos) : object 'e12' not found
-	tarve <- merge(tarve, nimet)
+#	out@output$Result <- ifelse(as.logical(out@output$eiAjallinenResult),
-print(tarve@output)
+#		 out@output$Result,
-#	out@output <- out@output[colnames(out@output) != "Havainto"]
+#		 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")]
-	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",
+hoitohinta <- new("ovariable",
-	name = "sosiaalipalveluhinta",
+	name = "hoitohinta",
 	dependencies = riippuvuudet,
 	formula = formula
 )
-objects.put(sosiaalipalveluhinta)
+objects.put(hoitohinta)
 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
 </rcode>