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

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
(jokin bugi mutta aika hyvin toimii)
(→‎Perustelut: jokin bugi on vielä)
Rivi 113: Rivi 113:
library(OpasnetUtils)
library(OpasnetUtils)


riippuvuudet <- data.frame(Name = c("tarve", "eiAjalliset"), Key = "")
riippuvuudet <- data.frame(Name = c("tarve", "lkm"), Key = "")


formula <- function(dependencies, ...) {
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(0,12), 1)
 
)
# tarve <- make.ovariable(tarve)
lkm <- tarve@output[tarve@output$Havainto == "lkm", ]
tarve <- merge(tarve, nimet)
print(tarve@output)
# out@output <- out@output[colnames(out@output) != "Havainto"]


yksikkökustannus <- new("ovariable",
eiAjallinen <- new("ovariable", name = "eiAjallinen", data = data)
name = "yksikkökustannus",
eiAjallinen <- EvalOutput(eiAjallinen)
data = tidy(op_baseGetData("opasnet_base", "Op_fi2932"))
eiAjallinen <- CheckMarginals(eiAjallinen)
)
# yksikkökustannus <- EvalOutput(yksikkökustannus)
data <- tidy(op_baseGetData("opasnet_base", "Op_fi2932"))
print(yksikkökustannut@output)
yksikkökustannus <- new("ovariable", name = "yksikkökustannus", data = data[, colnames(data) != "Description"])
print(lkm)
yksikkökustannus <- EvalOutput(yksikkökustannus)
out <- tarve * yksikkökustannus * lkm
yksikkökustannus <- CheckMarginals(yksikkökustannus)
out@output$Result <- ifelse(out@output$Toimenpide %in% eiAjalliset,  
# tarve <- merge(tarve, eiAjallinen)
out@output$Result,
ajattomat <- tarve * eiAjallinen * lkm * yksikkökustannus
out@output$Result / 60 * 30 # min /d -> h /kk
ajalliset <- tarve * (1 - eiAjallinen) * lkm * yksikkökustannus
)
print(head(ajattomat@output))
out@output$Yksikkö <- "€ /kk"
print(head(ajalliset@output))
out <- ajattomat + ajalliset
# 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"
return(out)
return(out)
}
}
Rivi 181: Rivi 182:
cat("Metodi alustettu. Ota malliajon sivun avain talteen myöhempää käyttöä varten.\n")
cat("Metodi alustettu. Ota malliajon sivun avain talteen myöhempää käyttöä varten.\n")


data <- tidy(op_baseGetData("opasnet_base", "Op_fi2935"), direction = "long")


tarve <- tidy(op_baseGetData("opasnet_base", "Op_fi2935"), direction = "long")
tarve <- tarve[tarve$Observation != "lkm", ]
tarve <- new("ovariable",  
tarve <- new("ovariable",  
name = "tarve",  
name = "tarve",  
data = tarve
data = data[data$Observation != "lkm", ]
)
)


tarve <- EvalOutput(tarve, N = 2)
lkm <- new("ovariable",  
 
name = "lkm",
head(tarve@output)
data = data[data$Observation == "lkm", colnames(data) != "Observation"]
 
)
eiAjalliset <- "Asuintilan tarve"


sosiaalipalveluhinta <- EvalOutput(sosiaalipalveluhinta)
sosiaalipalveluhinta <- EvalOutput(sosiaalipalveluhinta, N = 2)


sosiaalipalveluhinta
sosiaalipalveluhinta

Versio 25. heinäkuuta 2012 kello 15.27

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

Perustelut

Laskenta perustuu THL:n arvioimiin yksikkökustannuksiin. Toistaiseksi luvut ovat vain keksittyjä toiminnallisuuden havainnollistamiseksi. Toiminnallisuus on kehitetty projektiin, jota koordinoi Aija Kettunen.

+ Näytä koodi

Katso myös

Avainsanat

Viitteet


Aiheeseen liittyviä tiedostoja

<mfanonymousfilelist></mfanonymousfilelist>

Noudettu kohteesta ”https://fi.opasnet.org/index.php?title=Asumispalveluiden_ja_laitoshoidon_kustannusten_vertailu&oldid=14450”