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

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
(nyt on koodi aika hieno)
pEi muokkausyhteenvetoa
Rivi 51: Rivi 51:
sosiaali,
sosiaali,
tila))
tila))
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)
}


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.

Tarkasteltavien henkilöiden määrä (jos yli 1, anna keskimääräiset arvot):

Kotikäyntien määrä, jos potilas asumispalvelujen piirissä (käyntejä /potilas /viikko):

Henkilökohtainen hoiva

Pesu ja kylvetys (min/vrk):

Vessassa käyttäminen (min/vrk):

Ruokailussa auttaminen (min/vrk):

Asunnon siivous (min/vrk):

Vaatehuolto (min/vrk):

Terveydenhuolto

Lääkehuolto (min/vrk):

Lääkäripalvelut (min/vrk):

Turvallisuus

Yövalvonta (min/vrk):

Turvaranneke ja -palvelut (min/vrk):

Mielekäs tekeminen

Ulkoilutus (min/vrk):

Harrastustoiminta (min/vrk):

Avustus sosiaalisten yhteyksien ylläpitämisessä (min/vrk):

Kiinteistökustannukset

Asuintilan tarve (m2):

Kysymys




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)
ObsHoitomuotoToimenpideYksikköArvoKuvaus
1AsuinpalvelutPesu ja kylvetys€ /h20
2AsuinpalvelutVessassa käyttäminen€ /h20
3AsuinpalvelutRuokailussa auttaminen€ /h20
4AsuinpalvelutAsunnon siivous€ /h20
5AsuinpalvelutVaatehuolto€ /h20
6AsuinpalvelutLääkehuolto€ /h20
7AsuinpalvelutLääkäripalvelut€ /h30
8AsuinpalvelutYövalvonta€ /h20
9AsuinpalvelutTurvaranneke ja -palvelut€ /h20
10AsuinpalvelutUlkoilutus€ /h20
11AsuinpalvelutHarrastustoiminta€ /h20
12AsuinpalvelutAvustus sosiaalisten yhteyksien ylläpitämisessä€ /h20
13AsuinpalvelutAsuintilan tarve€ /m2 /kk15
14LaitospalvelutPesu ja kylvetys€ /h15
15LaitospalvelutVessassa käyttäminen€ /h15
16LaitospalvelutRuokailussa auttaminen€ /h15
17LaitospalvelutAsunnon siivous€ /h15
18LaitospalvelutVaatehuolto€ /h20
19LaitospalvelutLääkehuolto€ /h20
20LaitospalvelutLääkäripalvelut€ /h30
21LaitospalvelutYövalvonta€ /h15
22LaitospalvelutTurvaranneke ja -palvelut€ /h15
23LaitospalvelutUlkoilutus€ /h20
24LaitospalvelutHarrastustoiminta€ /h20
25LaitospalvelutAvustus sosiaalisten yhteyksien ylläpitämisessä€ /h20
26LaitospalvelutAsuintilan tarve€ /m2 /kk30

Perustelut

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

+ Näytä koodi

Katso myös

Avainsanat

Viitteet


Aiheeseen liittyviä tiedostoja

<mfanonymousfilelist></mfanonymousfilelist>