Asumispalveluiden ja laitoshoidon kustannusten vertailu

Tämä sivu on tietokide alatyypiltään metodi. Sivutunniste: Op_fi2932
Moderaattori:Jouni (katso kaikki) Sivun edistyminen: Luonnos. Arvostuksen määrää ei ole arvioitu (ks. peer review).
Lisää dataa Näytä tulokset

Kysymys

Miten arvioidaan mielenterveyskuntoutujien, vanhusten ja kehitysvammaisten asumisen kustannuksia, kun siirrytään laitoshoidosta asumispalveluihin?

Vastaus

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):

Perustelut

Kysymykseen on vastattu ARA:n projektissa .

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

Data

Asumispalveluiden ja laitoshoidon kustannusten vertailu(useita)

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

Laskenta

+ Näytä koodi- Piilota koodi library(OpasnetUtils) riippuvuudet <- data.frame(Name = c("tarve", "lkm"), Key = "") formula <- function(dependencies, ...) { ComputeDependencies(dependencies) data <- 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'), Observation = c( 'pesu', 'vessa', 'ruoka', 'asunto', 'vaate', 'lääke', 'lääkäri', 'yö', 'turva', 'ulkoilutus', 'harrastus', 'sosiaali', 'tila'), Result = c(rep(1,12), 0) ) Ajallinen <- new("ovariable", name = "Ajallinen", data = data) Ajallinen <- CheckMarginals(EvalOutput(Ajallinen, ...)) data <- tidy(op_baseGetData("opasnet_base", "Op_fi2932")) yksikkökustannus <- new("ovariable", name = "yksikkökustannus", data = data[, colnames(data) != "Description"]) yksikkökustannus <- CheckMarginals(EvalOutput(yksikkökustannus, ...)) ajalliset <- tarve * Ajallinen * lkm * yksikkökustannus out <- ajalliset # ajalliset <- tarve * (1 - eiAjallinen) * lkm * yksikkökustannus # Tuo miinuslasku ei onnistu: Error in eva l(expr, envir, enclos) : object 'e12' not found # 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" out@output <- out@output[, !colnames(out@output) %in% c("Observation", "tarveSource", "AjallinenSource", "lkmSource", "yksikkökustannusSource")] return(out) } hoitohinta <- new("ovariable", name = "hoitohinta", dependencies = riippuvuudet, formula = formula ) objects.put(hoitohinta) cat("Metodi alustettu. Ota malliajon sivun avain talteen myöhempää käyttöä varten.\n")

Katso myös

• Asumispalveluiden ja laitoshoidon tarve kunnassa

Aiheeseen liittyviä tiedostoja

<mfanonymousfilelist></mfanonymousfilelist>