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

Versio 13. huhtikuuta 2012 kello 16.53

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	Yksikkö	Arvo
1	Asuinpalvelut	Pesu ja kylvetys	€ /h	20
2	Asuinpalvelut	Vessassa käyttäminen	€ /h	20
3	Asuinpalvelut	Ruokailussa auttaminen	€ /h	20
4	Asuinpalvelut	Asunnon siivous	€ /h	20
5	Asuinpalvelut	Vaatehuolto	€ /h	20
6	Asuinpalvelut	Lääkehuolto	€ /h	20
7	Asuinpalvelut	Lääkäripalvelut	€ /h	30
8	Asuinpalvelut	Yövalvonta	€ /h	20
9	Asuinpalvelut	Turvaranneke ja -palvelut	€ /h	20
10	Asuinpalvelut	Ulkoilutus	€ /h	20
11	Asuinpalvelut	Harrastustoiminta	€ /h	20
12	Asuinpalvelut	Avustus sosiaalisten yhteyksien ylläpitämisessä	€ /h	20
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	20
19	Laitospalvelut	Lääkehuolto	€ /h	20
20	Laitospalvelut	Lääkäripalvelut	€ /h	30
21	Laitospalvelut	Yövalvonta	€ /h	15
22	Laitospalvelut	Turvaranneke ja -palvelut	€ /h	15
23	Laitospalvelut	Ulkoilutus	€ /h	20
24	Laitospalvelut	Harrastustoiminta	€ /h	20
25	Laitospalvelut	Avustus sosiaalisten yhteyksien ylläpitämisessä	€ /h	20
26	Laitospalvelut	Asuintilan tarve	€ /m2 /kk	30

Perustelut

Laskenta perustuu THL:n arvioimiin yksikkökustannuksiin. Toistaiseksi luvut ovat vain keksittyjä toiminnallisuuden havainnollistamiseksi.

+ Näytä koodi - Piilota koodi

Katso myös

Avainsanat

Viitteet

Aiheeseen liittyviä tiedostoja

@@ Rivi 1: / Rivi 1: @@
 '''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"
+<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"
 variables="
 name:lkm|description:Tarkasteltavien henkilöiden määrä (jos yli 1, anna keskimääräiset arvot)|default:1
@@ Rivi 19: / Rivi 19: @@
 |name:tila|description:Asuintilan tarve (m2)|default:0|category:Kiinteistökustannukset
 ">
-## |page:Olio-ohjelmointi_Opasnetissä|name:answer
 library(OpasnetBaseUtils)
 library(xtable)
-page <- "Op_fi2932"
-out <- data.frame(Toimenpide = c('Pesu ja kylvetys',
+n <- 1
-'Vessassa käyttäminen',
-'Ruokailussa auttaminen',
+out <- data.frame(Havainto = c('pesu',
-'Asunnon siivous',
+'vessa',
-'Vaatehuolto',
+'ruoka',
-'Lääkehuolto',
+'asunto',
-'Lääkäripalvelut',
+'vaate',
-'Yövalvonta',
+'lääke',
-'Turvaranneke ja -palvelut',
+'lääkäri',
-'Ulkoilutus',
+'yö',
-'Harrastustoiminta',
+'turva',
-'Avustus sosiaalisten yhteyksien ylläpitämisessä',
+'ulkoilutus',
-'Asuintilan tarve'),
+'harrastus',
+'sosiaali',
+'tila'),
 Result = c(pesu,
 vessa,
@@ Rivi 52: / Rivi 52: @@
 tila))
-#out <- make.oavariable(out)
+sosiaalipalveluhinta <- function(data, eiAjalliset = "Asuintilan tarve") {
-#out
-#out <- update(out)
+nimet <- data.frame(Toimenpide = c('Pesu ja kylvetys',
-yksikkökustannus <- tidy(op_baseGetData("opasnet_base", page))
+'Vessassa käyttäminen',
-#yksikkökustannus <- update(make.oavariable(yksikkökustannus))
+'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'))
+out <- make.oavariable(data)
+out@sample <- merge(out@sample, nimet, by = "Havainto")
+out@sample <- out@sample[colnames(out@sample) != "Havainto"]
+yksikkökustannus <- tidy(op_baseGetData("opasnet_base", "Op_fi2932"))
+yksikkökustannus <- make.oavariable(yksikkökustannus[, colnames(yksikkökustannus) != "Havainto"])
+temp <- out * yksikkökustannus
+out <- out / 60 * 30 * yksikkökustannus
+out@sample$Result <- ifelse(out@sample$Toimenpide %in% eiAjalliset,
+     temp@sample$Result,
+     out@sample$Result
+)
+out@sample$Yksikkö <- "€ /kk"
+return(out)
+}
+out <- sosiaalipalveluhinta(out)
+print(xtable(out@sample), type = 'html', html.table.attributes="border=1 class='sortable'")
+cat("Hoitomuodon kokonaishinta.\n")
+print(xtable(as.data.frame(as.table(tapply(out@sample$Result, out@sample["Hoitomuoto"], sum)))), type = 'html')
-out <- merge(out, yksikkökustannus, by = "Toimenpide")
+cat("Toimenpiteen keskimääräinen hinta.\n")
-out$Kustannus <- ifelse( out$Yksikkö == "min /vrk",
+print(xtable(as.data.frame(as.table(tapply(out@sample$Result, out@sample["Toimenpide"], sum)))), type = 'html')
-     out$Result.x /60 *30 * out$Result.y, # min/vrk -> €/kk
-     out$Result.x * out$Result.y) # m2 -> €/kk
-out <- out[, !colnames(out) %in% c("Result.x", "Result.y", "Havainto")]
-#print(out)
-print(xtable(out), type = 'html', html.table.attributes="border=1 class='sortable'")
 </rcode>
@@ Rivi 108: / Rivi 149: @@
 Laskenta perustuu THL:n arvioimiin yksikkökustannuksiin. Toistaiseksi luvut ovat vain keksittyjä toiminnallisuuden havainnollistamiseksi.
+<rcode name="answer">
+</rcode>
 == Katso myös ==