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

Versio 13. huhtikuuta 2012 kello 08.43

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.

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|page:Olio-ohjelmointi_Opasnetissä|name:answer"
+<rcode showcode="-1" label="Laske kustannukset" include="page:OpasnetBaseUtils|name:generic|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 19: / Rivi 19: @@
 |name:tila|description:Asuintilan tarve (m2)|default:0|category:Kiinteistökustannukset
 ">
+## |page:Olio-ohjelmointi_Opasnetissä|name:answer
 library(OpasnetBaseUtils)
@@ Rivi 51: / Rivi 52: @@
 tila))
-out <- make.oavariable(out)
+#out <- make.oavariable(out)
-out
+#out
-yksikkökustannus <- op_baseGetData("opasnet_base", page)
+#out <- update(out)
-yksikkökustannus
+yksikkökustannus <- tidy(op_baseGetData("opasnet_base", page))
+#yksikkökustannus <- update(make.oavariable(yksikkökustannus))
-print(xtable(out), type = 'html')
+out <- merge(out, yksikkökustannus, by = "Toimenpide")
+out$Kustannus <- out$Result.x * out$Result.y
+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'")
-print(xtable(as.data.frame(as.table(tapply(out$Result, out$Hiukkaskoko, sum)))), type = 'html')
 </rcode>