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

Versio 25. heinäkuuta 2012 kello 10.39

Tämä sivu on tietokide alatyypiltään muuttuja. Sivutunniste: Op_fi2935
Moderaattori:Ei ole (katso kaikki) Kuinka ryhtyä moderaattoriksi? Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review).
Lisää dataa {{#opasnet_base_link:Op_fi2935}}

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)
Obs	Ryhmä	lkm	vessa	asunto	vaate	lääke	turva	ulkoilutus	sosiaali
1	A	10	3
2	B	12		2		8
3	C	3			5
4	D	14	15
5	E	6					6
6	F	15							10
7	G	19			25			5

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

Asumispalveluiden ja laitoshoidon kustannusten vertailu

Viitteet

Aiheeseen liittyviä tiedostoja

@@ Rivi 7: / Rivi 7: @@
 ==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"
+<rcode showcode="-1" label="Laske kustannukset">
->
+library(OpasnetUtils)
-library(OpasnetBaseUtils)
 library(xtable)
-n <- 1
-out <- tidy(op_baseGetData("opasnet_base", "Op_fi2935"))
-out <- make.oavariable(out)
-out <- sosiaalipalveluhinta(out)
+tarve <- tidy(op_baseGetData("opasnet_base", "Op_fi2935"), direction = "long")
+tarve
+tarve <- tarve[tarve$Observation != "lkm", ]
+tarve <- new("ovariable",
+	name = "tarve",
+	data = tarve
+)
+tarve <- EvalOutput(tarve, N = 2)
+tarve
+eiAjalliset <- "Asuintilan tarve"
+Fetch2(data.frame(Name = "sosiaalipalveluhinta, Key = "MRSq3sBisxZNy0Ie"))
+sosiaalipalveluhinta <- EvalOutput(sosiaalipalveluhinta, N = 2)
+sosiaalipalveluhinta
 cat("Hoitomuodon kokonaishinta.\n")
-print(xtable(as.data.frame(as.table(tapply(out@sample$Result, out@sample["Hoitomuoto"], sum)))),
+#print(xtable(as.data.frame(as.table(tapply(hoitohinta@sample$Result, hoitohinta@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)))),
+#print(xtable(as.data.frame(as.table(tapply(hoitohinta@sample$Result, hoitohinta@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)))),
+#print(xtable(as.data.frame(as.table(tapply(hoitohinta@sample$Result, hoitohinta@sample[c("Ryhmä","Hoitomuoto")], sum)))),
       type = 'html', html.table.attributes="border=1 class='sortable'")
@@ Rivi 34: / Rivi 48: @@
 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.
-<t2b index="Ryhmä,Havainto" locations="lkm,pesu,vessa,ruoka,asunto,vaate,lääke,lääkäri,yö,turva,ulkoilutus,harrastus,sosiaali,tila,kuvaus" unit="min/vrk tai m^2">
+<t2b index="Ryhmä,Observation" locations="lkm,pesu,vessa,ruoka,asunto,vaate,lääke,lääkäri,yö,turva,ulkoilutus,harrastus,sosiaali,tila,kuvaus" unit="min/vrk tai m^2">
 A|10||3||||||||||||
 B|12||||2||8||||||||