Ero sivun ”Asumispalveluiden ja laitoshoidon tarve kunnassa” versioiden välillä

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
(puolivalmiste)
 
(koodi saatu toimimaan)
Rivi 6: Rivi 6:


==Vastaus==
==Vastaus==
<rcode showcode="-1" label="Laske kustannukset" name="answer" include="page:OpasnetBaseUtils|name:generic|page:Asumispalveluiden_ja_laitoshoidon_kustannusten_vertailu|name:answer|page:Olio-ohjelmointi_Opasnetissä|name:answer"
>
library(OpasnetBaseUtils)
library(xtable)
n <- 1
out <- tidy(op_baseGetData("opasnet_base", "Op_fi2935"))
out <- make.oavariable(out)
out <- sosiaalipalveluhinta(out)
cat("Hoitomuodon kokonaishinta.\n")
print(xtable(as.data.frame(as.table(tapply(out@sample$Result, out@sample["Hoitomuoto"], sum)))),
    type = 'html', html.table.attributes="border=1 class='sortable'")
cat("Toimenpiteen keskimääräinen hinta.\n")
print(xtable(as.data.frame(as.table(tapply(out@sample$Result, out@sample["Toimenpide"], sum)))),
    type = 'html', html.table.attributes="border=1 class='sortable'")
cat("Hoitomuodon kokonaishinta ryhmittäin.\n")
print(xtable(as.data.frame(as.table(tapply(out@sample$Result, out@sample[c("Ryhmä","Hoitomuoto")], sum)))),
    type = 'html', html.table.attributes="border=1 class='sortable'")
</rcode>


Lkm tarkoittaa rivillä kuvattavan ryhmän kokoa, muut sarakkeet ovat palvelutarpeita ryhmässä keskimäärin. Yksikkö on minuuttia vuorokaudessa paitsi asuintilan tarpeen osalta neliömetri. Tyhjä tieto tulkitaan nollaksi.
Lkm tarkoittaa rivillä kuvattavan ryhmän kokoa, muut sarakkeet ovat palvelutarpeita ryhmässä keskimäärin. Yksikkö on minuuttia vuorokaudessa paitsi asuintilan tarpeen osalta neliömetri. Tyhjä tieto tulkitaan nollaksi.
Rivi 34: Rivi 59:
*Avustus sosiaalisten yhteyksien ylläpitämisessä (min/vrk)
*Avustus sosiaalisten yhteyksien ylläpitämisessä (min/vrk)
*Asuintilan tarve (m2)
*Asuintilan tarve (m2)
<rcode showcode="-1" label="Laske kustannukset" name="answer" include="page:OpasnetBaseUtils|name:generic|page:Asumispalveluiden_ja_laitoshoidon_kustannusten_vertailu|name:answer"
>
library(xtable)
out <- tidy(op_baseGetData("opasnet_base", "Op_fiXXXX"))
page <- "Op_fi2932"
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'),
Lyhenne = c('pesu',
'vessa',
'ruoka',
'asunto',
'vaate',
'lääke',
'lääkäri',
'yö',
'turva',
'ulkoilutus',
'harrastus',
'sosiaali',
'tila'))
out <- merge(out, nimet)
print(xtable(out), type = 'html', html.table.attributes="class='sortable'")
</rcode>


== Katso myös ==
== Katso myös ==

Versio 13. huhtikuuta 2012 kello 17.04




Kysymys

Mitä asumisen ja laitoshoidon palveluja mielenterveyskuntoutujat, vanhukset ja kehitysvammaiset tarvitsevat kunnassa X? Tällä sivulla esitellään kuvitteellinen esimerkkikunta, jota voi käyttää mallina todellisen kunnan kuvauksesta.

Vastaus


Lkm tarkoittaa rivillä kuvattavan ryhmän kokoa, muut sarakkeet ovat palvelutarpeita ryhmässä keskimäärin. Yksikkö on minuuttia vuorokaudessa paitsi asuintilan tarpeen osalta neliömetri. Tyhjä tieto tulkitaan nollaksi.

Ero sivun ”Asumispalveluiden ja laitoshoidon tarve kunnassa” versioiden välillä(min/vrk tai m^2)
ObsRyhmälkmpesuvessaruokaasuntovaatelääkelääkäriturvaulkoilutusharrastussosiaalitilakuvaus
1A103
2B1228
3C35
4D1415
5E66
6F1510
7G19255


Palvelujen tarkemmat kuvaukset:

  • Pesu ja kylvetys (min/vrk)
  • Vessassa käyttäminen (min/vrk)
  • Ruokailussa auttaminen (min/vrk)
  • Asunnon siivous (min/vrk)
  • Vaatehuolto (min/vrk)
  • Lääkehuolto (min/vrk)
  • Lääkäripalvelut (min/vrk)
  • Yövalvonta (min/vrk)
  • Turvaranneke ja -palvelut (min/vrk)
  • Ulkoilutus (min/vrk)
  • Harrastustoiminta (min/vrk)
  • Avustus sosiaalisten yhteyksien ylläpitämisessä (min/vrk)
  • Asuintilan tarve (m2)

Katso myös

Viitteet


Aiheeseen liittyviä tiedostoja

<mfanonymousfilelist></mfanonymousfilelist>