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

Versio 13. huhtikuuta 2012 kello 08.24

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" include="page:OpasnetBaseUtils|name:generic|page:Asumispalveluiden_ja_laitoshoidon_kustannusten_vertailu|name:answer"
+<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"
 variables="
 name:lkm|description:Tarkasteltavien henkilöiden määrä (jos yli 1, anna keskimääräiset arvot)|default:1
+|name:käynnit|description:Kotikäyntien määrä, jos potilas asumispalvelujen piirissä (käyntejä /potilas /viikko)|default:0
 |name:pesu|description:Pesu ja kylvetys (min/vrk)|default:0|category:Henkilökohtainen hoiva
 |name:vessa|description:Vessassa käyttäminen (min/vrk)|default:0
@@ Rivi 18: / Rivi 19: @@
 |name:tila|description:Asuintilan tarve (m2)|default:0|category:Kiinteistökustannukset
 ">
-cat("Valmistellaan laskentaa.\n")
 library(OpasnetBaseUtils)
 library(xtable)
+page <- "Op_fi2932"
+out <- 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'),
+Result = c(pesu,
+vessa,
+ruoka,
+asunto,
+vaate,
+lääke,
+lääkäri,
+yö,
+turva,
+ulkoilutus,
+harrastus,
+sosiaali,
+tila))
-page <- "Op_fi2806"
+out <- make.oavariable(out)
-out <- pölypäästö(page, M, A, prosessi, kosteus, vaimennus)
+out
-cat(paste("Pölypäästöt (kg/d) prosessista, kun prosessoidaan ", M * A, " tonnia päivässä.\n", sep=""))
+yksikkökustannus <- op_baseGetData("opasnet_base", page)
+yksikkökustannus
 print(xtable(out), type = 'html')
@@ Rivi 43: / Rivi 70: @@
 <t2b index="Hoitomuoto,Toimenpide,Yksikkö,Havainto" locations="Arvo,Kuvaus" unit="useita">
-Päästökerroin|kg/ton|Kuiva|TSP|Esi/karkea murskaus |0.3
+Asuinpalvelut|Pesu ja kylvetys|€ /h|20|
-Päästökerroin|kg/ton|Kuiva|TSP|Välimurskaus |0.6
+Asuinpalvelut|Vessassa käyttäminen|€ /h|20|
-Päästökerroin|kg/ton|Kuiva|TSP|Hienomurskaus |1.4
+Asuinpalvelut|Ruokailussa auttaminen|€ /h|20|
-Päästökerroin|kg/ton|Kuiva|TSP|Materiaalin siirto ja kuljetus |0.06
+Asuinpalvelut|Asunnon siivous|€ /h|20|
-Päästökerroin|kg/ton|Kostea|TSP|Esi/karkea murskaus |0.01
+Asuinpalvelut|Vaatehuolto|€ /h|20|
-Päästökerroin|kg/ton|Kostea|TSP|Välimurskaus |0.03
+Asuinpalvelut|Lääkehuolto|€ /h|20|
-Päästökerroin|kg/ton|Kostea|TSP|Hienomurskaus |0.03
+Asuinpalvelut|Lääkäripalvelut|€ /h|30|
-Päästökerroin|kg/ton|Kostea|TSP|Materiaalin siirto ja kuljetus |0.005
+Asuinpalvelut|Yövalvonta|€ /h|20|
-Päästökerroin|kg/ton|*|TSP|Märkäseulonta |0
+Asuinpalvelut|Turvaranneke ja -palvelut|€ /h|20|
-Päästökerroin|kg/ton|*|TSP|Kuivaseulonta ilman avulla |14.4
+Asuinpalvelut|Ulkoilutus|€ /h|20|
-Päästökerroin|kg/ton|*|TSP|Kuivaseulonta ilman ilmapuhallusta |1.2
+Asuinpalvelut|Harrastustoiminta|€ /h|20|
-Päästökerroin|kg/ton|*|TSP|Kuivaus |9.8
+Asuinpalvelut|Avustus sosiaalisten yhteyksien ylläpitämisessä|€ /h|20|
-Päästökerroin|kg/ton|Kuiva|PM10|Esi/karkea murskaus |0.02
+Asuinpalvelut|Asuintilan tarve|€ /m2 /kk|15|
-Päästökerroin|kg/ton|Kuiva|PM10|Välimurskaus |0 - 0.6
+Laitospalvelut|Pesu ja kylvetys|€ /h|15|
-Päästökerroin|kg/ton|Kuiva|PM10|Hienomurskaus |0.08
+Laitospalvelut|Vessassa käyttäminen|€ /h|15|
-Päästökerroin|kg/ton|Kuiva|PM10|Materiaalin siirto ja kuljetus |0.03
+Laitospalvelut|Ruokailussa auttaminen|€ /h|15|
-Päästökerroin|kg/ton|Kostea|PM10|Esi/karkea murskaus |0.004
+Laitospalvelut|Asunnon siivous|€ /h|15|
-Päästökerroin|kg/ton|Kostea|PM10|Välimurskaus |0.012
+Laitospalvelut|Vaatehuolto|€ /h|20|
-Päästökerroin|kg/ton|Kostea|PM10|Hienomurskaus |0.01
+Laitospalvelut|Lääkehuolto|€ /h|20|
-Päästökerroin|kg/ton|Kostea|PM10|Materiaalin siirto ja kuljetus |0.002
+Laitospalvelut|Lääkäripalvelut|€ /h|30|
-Päästökerroin|kg/ton|*|PM10|Märkäseulonta |0
+Laitospalvelut|Yövalvonta|€ /h|15|
-Päästökerroin|kg/ton|*|PM10|Kuivaseulonta ilman avulla |13
+Laitospalvelut|Turvaranneke ja -palvelut|€ /h|15|
-Päästökerroin|kg/ton|*|PM10|Kuivaseulonta ilman ilmapuhallusta |0.16
+Laitospalvelut|Ulkoilutus|€ /h|20|
-Päästökerroin|kg/ton|*|PM10|Kuivaus |5.9
+Laitospalvelut|Harrastustoiminta|€ /h|20|
-Läpipääsykerroin|-|*|*|Tuulensuojamuuri|0.7
+Laitospalvelut|Avustus sosiaalisten yhteyksien ylläpitämisessä|€ /h|20|
-Läpipääsykerroin|-|*|*|Materiaalin kastelu|0.5
+Laitospalvelut|Asuintilan tarve|€ /m2 /kk|30|
-Läpipääsykerroin|-|*|*|Kotelointi, sykloni|0.35
-Läpipääsykerroin|-|*|*|Kotelointi, harjaus|0.25
-Läpipääsykerroin|-|*|*|Kotelointi, kangassuodattimet|0.17
-Läpipääsykerroin|-|*|*|suljettu tai maanalainen|0
-Läpipääsykerroin|-|*|*|Sähköstaattinen suodatus|0.13 - 0.08
 </t2b>
-=== Kaava ===
-'''Varsinainen funktio
-<rcode name="answer" include="page:OpasnetBaseUtils|name:generic" label="Turha ajaa, yksinään ei tee mitään">
-################# pölypäästö: funktio pölypäästön laskemiseen
-## KHM= k * M * A *C1*C2...*Cn
-## KHM = kokonaishiukkasmäärä joka lopulta muuttuu päästöksi (g/vrk)
-## k1-3 = prosessikohtainen hiukkaspäästökerroin eri kosteuspitoisuudessa (g/ton)
-## M = syötteen määrä/tunti (ton/h)
-## A = työtunnit vuorokaudessa (h/d)
-## C1-Cn = pölypäästöjen vähentämisen tehokkuuskertoimet kullekin käytetylle menetelmälle
-pölypäästö <- function(page, M, A, prosessi, kosteus, vaimennus){
-data <- op_baseGetData("opasnet_base", page) # Haetaan päästökerrointiedot
-data <- tidy(data) # Siistitään data
-out <- data[data$Suure == "Päästökerroin", c("Kosteus", "Hiukkaskoko", "Prosessi", "Result")] # Valitaan päästökerroinrivit
-temp <- data.frame(Kosteus = c("Kuiva", "Kostea"), Kosteus2 = "*")
-temp <- merge(out, temp, by.x = "Kosteus", by.y = "Kosteus2")[, -1] # Korvataan villikortit oikeilla arvoilla
-out <- rbind(out[out$Kosteus != "*", ], temp)
-out <- merge(out, data.frame(Kosteus = kosteus, Prosessi = prosessi)) # Rajataan käyttäjän määrittämiin prosesseihin.
-if(class(vaimennus)!="list") {vaimennus <- list(vaimennus)}
-vaim <- 1
-for(i in 1:length(vaimennus)) {
-vaim[i] <- exp(sum(log(as.numeric(data[data$Suure == "Läpipääsykerroin" & data$Prosessi %in% vaimennus[[i]], "Result"]))))
-}
-out$Result <- as.numeric(out$Result) * M * A * vaim # Varsinainen laskentakaava
-out <- dropall(out) # Tiputetaan turhat levelit
-return(out)
-}
-</rcode>
 ==Perustelut==
-* Täsmälliset perustelut löytyvät ERAC-wikistä: [http://intra.eracnet.fi/main/index.php/Minera:Metallimalmin_murskausprosessin_p%C3%A4%C3%A4st%C3%B6kertoimet Metallimalmin murskausprosessin päästökertoimet] (suojattu sivu)
+Laskenta perustuu THL:n arvioimiin yksikkökustannuksiin. Toistaiseksi luvut ovat vain keksittyjä toiminnallisuuden havainnollistamiseksi.
 == Katso myös ==
@@ Rivi 121: / Rivi 106: @@
 ==Avainsanat==
-Kaivosteollisuus, mineraali
 ==Viitteet==