Ero sivun ”Asumispalveluiden ja laitoshoidon kustannusten vertailu” versioiden välillä
Siirry navigaatioon
Siirry hakuun
(nyt on koodi aika hieno) |
pEi muokkausyhteenvetoa |
||
Rivi 51: | Rivi 51: | ||
sosiaali, | sosiaali, | ||
tila)) | tila)) | ||
out <- sosiaalipalveluhinta(out) | out <- sosiaalipalveluhinta(out) | ||
Rivi 151: | Rivi 105: | ||
<rcode name="answer"> | <rcode name="answer"> | ||
sosiaalipalveluhinta <- function(data, eiAjalliset = "Asuintilan tarve") { | |||
nimet <- 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')) | |||
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) | |||
} | |||
</rcode> | </rcode> | ||
Versio 13. huhtikuuta 2012 kello 16.55
Kyselylomake potilaan henkilökohtaisen tilanteen arvioimiseksi.
Kysymys
Moderaattori:Jouni (katso kaikki)
Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review). |
Lisää dataa
|
Miten arvioidaan mielenterveyskuntoutujien, vanhusten ja kehitysvammaisten asumisen kustannuksia, kun siirrytään laitoshoidosta asumispalveluihin?
Vastaus
Obs | Hoitomuoto | Toimenpide | Yksikkö | Arvo | Kuvaus |
---|---|---|---|---|---|
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
<mfanonymousfilelist></mfanonymousfilelist>