|
|
| Rivi 1: |
Rivi 1: |
| {|
| | Kyselylomake on siirretty varsinaiselle sivulleen: [[Kysely kuntatuesta sote-uudistuksessa]]. |
| |[[kuva:thl_logo.png]]
| |
| |'''Tämä on kaikille avoin kysely kuntien terveyden ja hyvinvoinnin edistämisen sekä eriarvoisuuden kaventamisen tuesta erityisesti liittyen sote-uudistuksen toimeenpanoon. Kysely ja sivusto on Terveyden ja hyvinvoinnin laitoksen ylläpitämä.
| |
| |}
| |
| <rcode embed=0 label="Vastaa kyselyyn" showcode=-1 variables="
| |
| | |
| name:v1|description:'''1. Vastaajan ikä'''|type:selection|options:'';Valitse;'alle 20';alle 20;'21-30';21-30;'31-60';31-60;'yli 61';yli 61|
| |
| | |
| name:v2|description:'''2. Vastaajan tausta'''|type:selection|options:'';Valitse;
| |
| 'kuntalainen';kuntalainen;
| |
| 'kuntaorganisaatio';kuntaorganisaatio;
| |
| 'järjestö tai yhdistys';järjestö tai yhdistys;
| |
| 'julkishallinto';julkishallinto;
| |
| 'yksityinen sektori';yksityinen sektori;
| |
| 'muu';muu|
| |
| | |
| name:v3a|description:'''3. Miten kunnissa tulisi organisoida terveyden ja hyvinvoinnin edistämisen vastuut sote-palveluiden siirtyessä pois kunnasta?'''|type:selection|options:'';Valitse;
| |
| 'kunnanjohtaja';Vastuu on kunnan johtajalla;
| |
| 'kunnanhallitus';Vastuu on kunnan hallituksella;
| |
| 'johtoryhmä';Vastuu on kunnan johtoryhmällä;
| |
| 'monialainen työryhmä';Vastuu on monialaisella hyvinvoinnin ja terveyden edistämisen työryhmällä;
| |
| 'ei kunnassa';Vastuun ei tulisi olla kunnassa;
| |
| 'muuten';Muuten, miten?|
| |
| name:v3b|description:Lisätietoja|type:textbox|
| |
| | |
| name:v4a|description:'''4. Miten varmistetaan sote-asiantuntemus osana kunnan terveyden ja hyvinvoinnin johtamista ja suunnittelua?'''|type:selection|options:'';Valitse;
| |
| 'sotealueyhteistyö';Yhteistyö sote-alueen kanssa;
| |
| 'tuottajayhteistyö';Yhteistyö sote-palvelujen tuottajan kanssa;
| |
| 'oma osaaminen';Kunnan oman henkilöstön osaamisen vahvistaminen ;
| |
| 'asiantuntija kuntaorganisaatiossa';Asiantuntija toimii työntekijänä kuntaorganisaatiossa;
| |
| 'on jo asiantuntemus';Kunnassa on jo riittävä asiantuntemus, ei tarvitse kiinnittää erityistä huomiota;
| |
| 'muuten';Muuten, miten?|
| |
| name:v4b|description:Lisätietoja|type:textbox|
| |
| | |
| name:v5a|description:'''5. Mihin seuraavista terveyden ja hyvinvoinnin johtamisen alueista kunnassa tulisi olla mahdollisuus saada tukea kunnan ulkopuolelta?'''|type:checkbox|options:
| |
| 'tiedon kokoaminen';Tiedon kokoaminen kuntalaisten terveydestä ja hyvinvoinnista;
| |
| 'tiedon tulkinta';Tiedon tulkinta ja johtopäätökset;
| |
| 'ennakkoarviointi';Ennakkoarviointi;
| |
| 'toimenpiteiden valinta';Toimenpiteiden valinta;
| |
| 'toimeenpano';Toimeenpano;
| |
| 'vaikuttavuusarviointi';Vaikuttavuusarviointi jälkikäteen;
| |
| 'osallistaminen';Osallisuuden toteuttaminen;
| |
| 'muu';Muu, mikä?|
| |
| name:v5b|description:Lisätietoja|type:textbox|
| |
| | |
| name:v6|description:'''6. Minkä tahon tulisi tarjota tukea?'''|type:textbox|
| |
| | |
| name:v7a|description:'''7. Mitä tukimuotoja kunnissa sote-uudistuksen toimeenpanoon terveyden ja hyvinvoinnin edistämisen osalta tarvitaan (valitse korkeintaan 5 tukimuotoa)?'''|type:checkbox|options:
| |
| 'tukimateriaali johtamisesta';Tukimateriaali kuntien terveyden ja hyvinvoinnin edistämisen johtamisesta ja suunnittelusta (esim. hyvinvointikertomustyö, ennakkoarviointi, tiedon tulkinta);
| |
| 'tukimateriaali menetelmistä';Tukimateriaali terveyden ja hyvinvoinnin edistämisen menetelmistä;
| |
| 'tukimateriaali vaikutuksista';Tukimateriaali terveyden ja hyvinvoinnin edistämisen vaikutuksista;
| |
| 'alueelliset verkostot';Alueelliset terveyden ja hyvinvoinnin edistämisen verkostot;
| |
| 'kansalliset verkostos';Kansalliset terveyden ja hyvinvoinnin edistämisen verkostot;
| |
| 'kehittämistyö';Projektissa toteutettava kehittämistyö, johon on ulkopuolinen rahoitus;
| |
| 'koulutus virkamiehille';Koulutus kunnan virkamiesjohdolle;
| |
| 'koulutus päättäjille';Koulutus kunnan poliittisille päättäjille;
| |
| 'koulutus vastuuhenkilöille';Koulutus terveyden edistämisen vastuuhenkilöille;
| |
| 'koulutus työvälineistä';Koulutus erilaisten työvälineiden käyttöön (esim. hyvinvointikertomus, ennakkoarviointi );
| |
| 'valvonta';Ulkopuolisen tahon toteuttama valvonta (esim. aluehallintovirasto);
| |
| 'raha';Rahalliset kannusteet kunnalle terveyden edistämisestä;
| |
| 'muu';Muuta, mitä?|
| |
| name:v7b|description:Lisätietoja|type:textbox|
| |
| | |
| name:v8a|description:'''8. Millä mittareilla kuntien toteuttamaa terveyden ja hyvinvoinnin edistämistä tulisi arvioida?'''|type:checkbox|options:
| |
| 'sairastavuus';Kunnan väestön sairastavuus;
| |
| 'terveysmuutokset';Kunnan väestön terveyden ja hyvinvoinnin tilassa saavutetut muutokset;
| |
| 'toimenpiteet';Kunnan toteuttamat terveyden ja hyvinvoinnin edistämisen toimenpiteet;
| |
| 'budjetti per asukkaat';Kunnan terveyden ja hyvinvoinnin edistämiseen käyttämä budjetti/asukkaat;
| |
| 'muu';Muuten, miten?|
| |
| name:v8b|description:Lisätietoja|type:textbox|
| |
| | |
| name:pagename|type:hidden|default:'{{PAGENAME}}'|
| |
| | |
| name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'
| |
| ">
| |
| library(OpasnetUtils)
| |
| | |
| kysymykset <- c(
| |
| "Ikä",
| |
| "Tausta",
| |
| "Vastuiden organisointi",
| |
| "Vastuiden organisointi muu",
| |
| "Asiantuntemuksen varmistaminen",
| |
| "Asiantuntemuksen varmistaminen muu",
| |
| "Ulkopuolinen tuki",
| |
| "Ulkopuolinen tuki muu",
| |
| "Tuen tarjoaja",
| |
| "Tukimuodot",
| |
| "Tukimuodot muu",
| |
| "Mittarit",
| |
| "Mittarit muu"
| |
| )
| |
| | |
| v5a <- paste(v5a, collapse = "; ")
| |
| v7a <- paste(v7a, collapse = "; ")
| |
| v8a <- paste(v8a, collapse = "; ")
| |
| | |
| # Vähän vaarallista että mikä tahansa virhe johtaa siihen että
| |
| # data tulkitaan olemassa olemattomaksi, R tietokantafunktiot ovat
| |
| # jäljessä kehitystä: .series ja .locations eivät toimi subseteille.
| |
| obs <- tryCatch(
| |
| opbase.data(ident, subset = "Kysely"),
| |
| error = function(...) return(NULL)
| |
| )
| |
| | |
| if (!is.null(obs)) {
| |
| if ("Obs" %in% colnames(obs)) {
| |
| at <- "replace"
| |
| obs <- 1
| |
| } else {
| |
| at <- "append"
| |
| obs <- obs$KyselyID
| |
| obs <- gsub("[A-Za-z]", "", as.character(obs))
| |
| obs <- max(as.numeric(obs)) + 1
| |
| }
| |
| } else {
| |
| at <- "replace"
| |
| obs <- 1
| |
| }
| |
| dat <- data.frame(
| |
| KyselyID = obs,
| |
| Aika = date(),
| |
| Kysymys = kysymykset,
| |
| Result = c(v1, v2, v3a, v3b, v4a, v4b, v5a, v5b, v6, v7a, v7b, v8a, v8b)
| |
| )
| |
| | |
| opbase.upload(
| |
| dat,
| |
| ident = ident,
| |
| name = pagename,
| |
| subset = "Kysely",
| |
| act_type = at,
| |
| language = "fin",
| |
| who = wiki_username
| |
| )
| |
| | |
| oprint("Kiitos. Vastauksesi on onnistuneesti tallennettu.")
| |
| </rcode>
| |
| | |
| <rcode label="Näytä vastaukset" embed=1 showcode=-1 graphics=1 variables="
| |
| name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'|
| |
| name:pagename|type:hidden|default:'{{PAGENAME}}'
| |
| ">
| |
| library(OpasnetUtils)
| |
| library(OpasnetUtilsExt)
| |
| library(ggplot2)
| |
| | |
| pagename <- gsub(" ", "_", pagename)
| |
| dat <- tryCatch(
| |
| opbase.data(ident, subset = "Kysely"),
| |
| error = function(...) return(NULL)
| |
| )
| |
| | |
| pois <- tryCatch(
| |
| opbase.data(ident, subset = "Poistot"),
| |
| error = function(...) return(NULL)
| |
| )
| |
| | |
| pois <- as.numeric(pois$Result)
| |
| dat <- dat[!dat$KyselyID %in% pois , ]
| |
| ggplot(dat[dat$Kysymys == "Ikä" , ], aes(x = Result)) + geom_bar() + theme_gray(base_size = 24) + coord_flip() + labs(title=paste("Ikä"))
| |
| # ggplot(dat[dat$Kysymys == "Rokotevalinta A200 B500" , ], aes(x = Result)) + geom_bar() + theme_gray(base_size = 24) + coord_flip() + labs(title=paste("Rokotevalinta"))
| |
| # ggplot(dat[dat$Kysymys == "Rokotevertailuperusteet" , ], aes(x = Result)) + geom_bar() + theme_gray(base_size = 24) + coord_flip() + labs(title=paste("Rokotevertailuperusteet"))
| |
| #oprint(dat, include.rownames = FALSE)
| |
| | |
| </rcode>
| |