Lähdekoodi sivulle Keskustelu:Pneumokokkirokotteen hankinta kansalliseen rokotusohjelmaan

;: ''Tämä sivu käsittelee pneumokokkirokotearvioinnin käytännön töiden järjestelyjä. Varsinainen arviointi ja keskustelu ohjeistetaan sivulla [[Pneumokokkirokotteen hankinta kansalliseen rokotusohjelmaan]].

== Aikataulu ==

* 25.6. Projektikokous ja tilannetarkastelu. Päätös keskustelun avaamisesta.
* 1.7. Avoimen keskustelun markkinointi ja moderointi alkaa. Kohderyhmät:
** Suomalaiset ja ulkomaiset pneumokokkiasiantuntijat (Heini tekee listan)
** Vanha ja uusi kansallinen rokoteasiantuntijaryhmä KRAR.
** Lehdistö
** THL:n omat nettisivut, blogit ym. Kuka kirjoittaa blogin? Blogin voisi ajoittaa heinäkuun puoliväliin, jolloin keskustelua on jo käytynä mutta on vielä aikaa osallistua.
** Avoimen hallinnon yhteisö (VNK, VM, Avoin Ministeriö, OKF, Verkkodemokratiaseura ym. )
** Potilas- ja rokotejärjestöt (kuka kerää listan?)
** Pitäisikö keskustelua sopivasta €/QALY-rajasta käydä laajemminkin sosiaali- ja terveydenhuollon piirissä? Pitäisikö lähestyä terveystaloustieteilijöitä tai sairaanhoitopiirejä yleensä?
* Elokuu 2014: Siihen mennessä tehdyn työn tuottaman alustavan suosituksen toimittaminen KRAR:lle ja STM:öön tiedoksi.
* Syyskuu 2014: Lopullisen suosituksen toimittaminen.
* Syyskuu 2014: Päätös rokotehankinnasta ja kilpailutuksesta tehdään.
* Marraskuu 2014: Hankintakilpailu avataan.
* Maaliskuu 2015: Sopimus rokotteen hankkimisesta solmitaan.

== Tägikone ==

{{tuloslinkki}}

=== Versiot ===

<t2b name="Versiot" index="Versio,Sivu,Ident" unit="OldID">
1|Vertailuperusteet|Op_fi4436|24800
1|Epidemiologinen malli|Op_fi4414|24804
1|Taloudellinen arviointi|Op_fi4434|24867
1|Pneumokokkirokotteen turvallisuus|Op_fi4441|24593
</t2b>

===Jakeet===
'''Kaikkien kenttien arvot saa erotella pilkuilla tässä haussa'''
<rcode label="Näytä jakeet" name="jakeet" embed=1 variables="
	name:sivu|description:Sivu jolta jakeita haetaan|type:selection|options:
		NULL;Kaikilta;
		'Epidemiologinen malli';Epidemiologinen malli;
		'Pneumokokkirokotteen turvallisuus';Pneumokokkirokotteen turvallisuus;
		'Taloudellinen arviointi';Taloudellinen arviointi;
		'Vertailuperusteet';Vertailuperusteet|
	name:jaeid|description:Anna halutessasi jakeen ID(:t)|type:text|default:hae kaikki|
	name:version|description:Versio|type:text|default:nykyinen|
	name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'
">
library(OpasnetUtils)
library(plyr)
objects.latest("Op_fi4325", "apufunktiot")

# Erottelu pilkuilla ja välilyöntien poisto
if (!is.null(sivu)) sivu <- gsub("^\\s*|\\s*$", "", strsplit(sivu, ",")[[1]])
if (tolower(jaeid == "hae kaikki")) {
	jaeid <- NULL
} else {
	jaeid <- gsub("^\\s*|\\s*$", "", strsplit(jaeid, ",")[[1]])
}
version <- gsub("^\\s*|\\s*$", "", strsplit(version, ",")[[1]])

a <- tolower(version) == "nykyinen"
if (any(a)) {
	version <- version[!a]
	version <- c(version, get_current_version(ident))
}
version <- as.numeric(version)

out <- jaehakukone(ident, sivu = sivu, versio = version, jae = jaeid)

if (nrow(out) > 0) {
	oprint(out, include.rownames = FALSE)
} else {
	cat("Jakeita ei löytynyt!\n")
}

</rcode>

<rcode label="Poista jae" name="jakeenpoisto" embed=1 variables="
	name:sivu|description:Poistettavan jakeen sivu|type:selection|options:
		'Epidemiologinen malli';Epidemiologinen malli;
		'Pneumokokkirokotteen turvallisuus';Pneumokokkirokotteen turvallisuus;
		'Taloudellinen arviointi';Taloudellinen arviointi;
		'Vertailuperusteet';Vertailuperusteet|
	name:jaeid|description:Poistettavan jakeen ID (pilkulla eroteltuna useampia)|type:text|
	name:version|description:Versio|type:text|default:nykyinen|
	name:syy|description:Poiston syy|type:selection|options:
		' ';- Valitse syy -;
		'Tekninen jae';Tekninen jae;
		'Jae ei liity sivun aiheeseen';Jae ei liity sivun aiheeseen;
		'Jae on häiriköintiä';Jae on häiriköintiä (käytä säästellen)|
	name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'|
	name:pagename|type:hidden|default:'{{PAGENAME}}'
">
library(OpasnetUtils)

jaeid <- strsplit(jaeid, ",", fixed = TRUE)[[1]]
jaeid <- gsub(" ", "", jaeid)

if (sum(nchar(jaeid)) == 0) stop("Anna jakeen ID")

if (tolower(version) == "nykyinen") {
	objects.latest("Op_fi4325", "apufunktiot")
	version <- get_current_version(ident)
} else {
	version <- as.numeric(version)
}

out <- data.frame(
	Versio = version,
	Sivu = sivu, 
	Aika = date(), 
	Käyttäjä = wiki_username,
	Syy = syy, 
	Result = as.character(jaeid)
)

opbase.upload(
	out, 
	who = wiki_username, 
	name = pagename,
	subset = "Jakeenpoistot",
	act_type = "append", 
	language = "fin"
)
</rcode>

<rcode label="Lisää jae" name="jakeenlisays" embed=1 variables="
	name:sivu|description:Sivu jolle jae lisätään|type:selection|options:
		'Epidemiologinen malli';Epidemiologinen malli;
		'Pneumokokkirokotteen turvallisuus';Pneumokokkirokotteen turvallisuus;
		'Taloudellinen arviointi';Taloudellinen arviointi;
		'Vertailuperusteet';Vertailuperusteet|
	name:version|description:Versio|type:text|default:nykyinen|
	name:sisalto|description:Jakeen sisältö|type:textbox|
	name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'|
	name:pagename|type:hidden|default:'{{PAGENAME}}'
">
library(OpasnetUtils)
objects.latest("Op_fi4325", "apufunktiot")

if (tolower(version) == "nykyinen") {
	version <- get_current_version(ident)
} else {
	version <- as.numeric(version)
}

out <- data.frame( 
	Versio = version,
	Sivu = sivu,  
	Aika = date(), 
	Käyttäjä = wiki_username,
	JaeID = NA,
	Result = sisalto
)

ident.subset <- paste(ident, "Jakeenlisaykset", sep = ".")

filter <- list()
filter$Versio <- version
filter$Sivu <- sivu

upload_with_autoid(
	out,
	ident.subset,
	id_name = "JaeID",
	pagename = pagename,
	prefix = "L",
	filter = filter
)
</rcode>

=== Jakeiden päivitys ===
'''Päivitä Versiot-tauluun sivut ja ikilinkin IDt ja aja alla oleva koodi'''
<rcode label="Päivitä jakeet" variables="
	name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'|
	name:pagename|type:hidden|default:'{{PAGENAME}}'
">
library(OpasnetUtils)
objects.latest("Op_fi4325", "apufunktiot")

versiot <- get_meta_data(ident)

#version <- max(as.numeric(as.character(versiot$Versio)))

#names <- as.character(versiot$Sivu[versiot$Versio == version])
url <- gsub(" ", "_", versiot$Sivu)
old_id <- versiot$Result
old_id <- paste("&oldid=", old_id, sep = "")

out <- data.frame()

for (i in 1:length(url)) {
	temp <- parse_page(url[i], old_id[i])
	temp$Sivu <- versiot$Sivu[i]
	temp$Versio <- versiot$Versio[i]
	out <- rbind(out, temp)
}
#out$Versio <- version

out <- out[c("Versio", "Sivu", "Aihe", "JaeID", "Result")]

opbase.upload(
	out, 
	name = pagename, 
	who = wiki_username, 
	subset = "Jakeet"
)
</rcode>

=== Avainsanat ===
<rcode label="Näytä avainsanat" name="avainsanat_display" embed=1 variables="
		name:sivu|description:Sivu jonka avainsanoja haetaan|type:selection|options:
		NULL;Kaikki;
		'Epidemiologinen malli';Epidemiologinen malli;
		'Pneumokokkirokotteen turvallisuus';Pneumokokkirokotteen turvallisuus;
		'Taloudellinen arviointi';Taloudellinen arviointi;
		'Vertailuperusteet';Vertailuperusteet|
		name:jaeid|description:Anna halutessasi jakeen ID(:t)|type:text|default:hae kaikki|
		name:version|description:Versio|type:text|default:nykyinen|
		name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'
">
library(OpasnetUtils)
library(plyr)
objects.latest("Op_fi4325", "apufunktiot")

# Erottelu pilkuilla ja välilyöntien poisto
if (!is.null(sivu)) sivu <- gsub("^\\s*|\\s*$", "", strsplit(sivu, ",")[[1]])
if (tolower(jaeid == "hae kaikki")) {
	jaeid <- NULL
} else {
	jaeid <- gsub("^\\s*|\\s*$", "", strsplit(jaeid, ",")[[1]])
}
version <- gsub("^\\s*|\\s*$", "", strsplit(version, ",")[[1]])
a <- tolower(version) == "nykyinen"
if (any(a)) {
	version <- version[!a]
	version <- c(version, get_current_version(ident))
}
version <- as.numeric(version)

filter <- list()
filter$Sivu <- sivu
filter$Versio <- version
filter$JaeID <- jaeid

out <- try_dl_rm(
	paste(ident, "Avainsanat", sep = "."), 
	filter = filter, 
	rm_id = paste(ident, "Avainsananpoistot", sep = "."),
	rm_ind = "AvainsanaID"
)

if (nrow(out) > 0) {
	oprint(out, include.rownames = FALSE)
} else {
	cat("Avainsanoja ei löytynyt!\n")
}

</rcode>
<rcode label="Lisää avainsana" name="avainsanat" embed=1 variables="
	name:sivu|description:Minkä sivun jakeelle haluat lisätä avainsanoja?|type:selection|options:
		'Epidemiologinen malli';Epidemiologinen malli;
		'Pneumokokkirokotteen turvallisuus';Pneumokokkirokotteen turvallisuus;
		'Taloudellinen arviointi';Taloudellinen arviointi;
		'Vertailuperusteet';Vertailuperusteet|
	name:version|description:Mikä on jakeen versio?|type:text|default:nykyinen|
	name:jae|description:Mikä on jakeen ID?|type:text|
	name:yl_avainsanat|description:Valitse alla olevasta listasta yleisiä avainsanoja.|type:checkbox|options:
		'Päätös';A Päätös (jae sisältää päätös- tai toimintaehdotuksen);
		'Vaikutus';B Vaikutus (jae kuvaa ilmiötä tai vaikutusta);
		'Arvo';C Arvo (jakeessa on arvoarvostelma tai kuvaa asian merkitystä);
		'Työn tekemiseen liittyvä';D Katsaustyön tekemiseen liittyvä;
		'Epäselvä luokka';E Ei mikään edellisistä (valitse ainakin yksi A-E);
		'Terveydenhuolto';Terveydenhuolto;
		'Terveys';Terveys|
	name:avainsanat|description:Laita halutessasi yllä listaamattomattomia avainsanoja tähän pilkulla eroteltuna.|type:text|
	name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'|
	name:pagename|type:hidden|default:'{{PAGENAME}}'
">
avainsanat <- strsplit(avainsanat, ",", fixed = TRUE)[[1]]
avainsanat <- gsub(" ", "", avainsanat)
avainsanat <- avainsanat[nchar(avainsanat) > 0]
avainsanat <- c(yl_avainsanat, avainsanat)
if (length(avainsanat) == 0) stop("Yhtään avainsanaa ei annettu!")

library(OpasnetUtils)
objects.latest("Op_fi4325", "apufunktiot")

if (tolower(version) == "nykyinen") {
	version <- get_current_version(ident)
} else {
	version <- as.numeric(version)
}

dat <- data.frame(
	AvainsanaID = NA, 
	Versio = version,
	Aika = date(), 
	Käyttäjä = wiki_username,
	Sivu = sivu,
	JaeID = as.character(jae), 
	Result = avainsanat
)

ident.subset <- paste(ident, "Avainsanat", sep = ".")

filter <- list()
filter$Versio <- version

upload_with_autoid(
	dat,
	ident.subset,
	id_name = "AvainsanaID",
	pagename = pagename,
	filter = filter
)

cat("Avainsanojen lisääminen onnistui.\n")
</rcode>

<rcode name="avainsananpoisto" embed=1 label="Poista avainsana" showcode=0 variables="
	name:avid|description:Poistettavan avainsanan ID (pilkulla eroteltuna useampia)|type:text|
	name:version|description:Mikä versio on kyseessä?|type:text|default:nykyinen|
	name:syy|description:Poiston syy|type:selection|options:
		' ';- Valitse syy -;
		'Avainsana ei päde uudessa versiossa';Avainsana ei päde uudessa versiossa;
		'Virheellinen avainsana';Virheellinen avainsana|
	name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'|
	name:pagename|type:hidden|default:'{{PAGENAME}}'
">
library(OpasnetUtils)

avid <- strsplit(avid, ",", fixed = TRUE)[[1]]
avid <- gsub(" ", "", avid)

if (tolower(version) == "nykyinen") {
	objects.latest("Op_fi4325", "apufunktiot")
	version <- get_current_version(ident)
} else {
	version <- as.numeric(version)
}

dat <- data.frame(
	Versio = version,
	Aika = date(), 
	Käyttäjä = wiki_username,
	Syy = syy, 
	Result = avid
)

opbase.upload(
	dat, 
	ident = ident, 
	name = pagename, 
	subset = "Avainsananpoistot", 
	act_type = "append", 
	language = "fin",
	who = wiki_username
)

cat("Avainsana poistettiin onnistuneesti.\n")
</rcode>

=== Relaatiot ===
<rcode label="Näytä relaatiot" name="relaatiot_display" embed=1 variables="
	name:sivu|description:Sivu jonka relaatioita haetaan|type:selection|options:
		NULL;Kaikki;
		'Epidemiologinen malli';Epidemiologinen malli;
		'Pneumokokkirokotteen turvallisuus';Pneumokokkirokotteen turvallisuus;
		'Taloudellinen arviointi';Taloudellinen arviointi;
		'Vertailuperusteet';Vertailuperusteet|
	name:jaeid|description:Anna halutessasi jakeen ID(:t)|type:text|default:hae kaikki|
	name:version|description:Versio|type:text|default:nykyinen|
	name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'
">
library(OpasnetUtils)
library(plyr)
objects.latest("Op_fi4325", "apufunktiot")

# Erottelu pilkuilla ja välilyöntien poisto
if (!is.null(sivu)) sivu <- gsub("^\\s*|\\s*$", "", strsplit(sivu, ",")[[1]])
if (tolower(jaeid == "hae kaikki")) {
	jaeid <- NULL
} else {
	jaeid <- gsub("^\\s*|\\s*$", "", strsplit(jaeid, ",")[[1]])
}
version <- gsub("^\\s*|\\s*$", "", strsplit(version, ",")[[1]])
a <- tolower(version) == "nykyinen"
if (any(a)) {
	version <- version[!a]
	version <- c(version, get_current_version(ident))
}
version <- as.numeric(version)

filter <- list()
filter$Sivu1 <- sivu
filter$Versio <- version
filter$JaeID1 <- jaeid

rel1 <- try_dl_rm(
	paste(ident, "Relaatiot", sep = "."), 
	filter = filter, 
	rm_id = paste(ident, "Relaationpoistot", sep = "."),
	rm_ind = "RelaatioID"
)
if (is.null(jaeid)) {
	rel2 <- data.frame()
} else {
	filter$JaeID1 <- NULL
	filter$Sivu1 <- NULL
	filter$JaeID2 <- jaeid
	filter$Sivu2 <- sivu
	
	rel2 <- try_dl_rm(
		paste(ident, "Relaatiot", sep = "."), 
		filter = filter, 
		rm_id = paste(ident, "Relaationpoistot", sep = "."),
		rm_ind = "RelaatioID"
	)
}

out <- rbind(rel1, rel2)

if (nrow(out) > 0) {
	oprint(
		out, 
		include.rownames = FALSE,
		caption = "Relaatiot", 
		caption.placement = "top"
	)
} else {
	cat("Relaatioita ei löytynyt!\n")
}

</rcode>

<rcode label="Lisää relaatio" name="relaatio" embed=1 variables="
	name:sivu1|description:Mikä on lähtöjakeen sivu?|type:selection|options:
		'Epidemiologinen malli';Epidemiologinen malli;
		'Pneumokokkirokotteen turvallisuus';Pneumokokkirokotteen turvallisuus;
		'Taloudellinen arviointi';Taloudellinen arviointi;
		'Vertailuperusteet';Vertailuperusteet|
	name:jaeid1|description:Mikä on lähtöjakeen ID?|type:text|
	name:version|description:Mikä on lähtöjakeen versio?|type:text|default:nykyinen|
	name:sivu2|description:Mikä on kohdejakeen sivu?|type:selection|options:
		'Sama';Sama kuin lähtöjakeella;
		'Epidemiologinen malli';Epidemiologinen malli;
		'Pneumokokkirokotteen turvallisuus';Pneumokokkirokotteen turvallisuus;
		'Taloudellinen arviointi';Taloudellinen arviointi;
		'Vertailuperusteet';Vertailuperusteet|
	name:jaeid2|description:Mikä on kohdejakeen ID?|type:text|
	name:relaatio|description:'''Kuinka lähtöjae liittyy kohdejakeeseen?'''|type:selection|options:
		' ';- Valitse -;
		'tukee tai on linjassa';tukee tai on linjassa;
		'vastustaa tai on ristiriidassa';vastustaa tai on ristiriidassa;
		'on neutraali suhteessa';on neutraali suhteessa;
		'on uusi linjaus tai painotus';on uusi linjaus tai painotus;
		'kuuluu ryhmään/kokoelmaan';kuuluu ryhmään/kokoelmaan|
	name:lisarelaatio|description:VAPAAEHTOINEN Voit antaa oman jakeiden välisen relaation vapaakenttään.|type:text|
	name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'|
	name:pagename|type:hidden|default:'{{PAGENAME}}'
">
relaatio <- ifelse(lisarelaatio == '', relaatio, lisarelaatio)
if (nchar(gsub(" ", "", relaatio)) == 0) stop("Relaatiota ei annettu!")

library(OpasnetUtils)
objects.latest("Op_fi4325", "apufunktiot")

jaeid1 <- strsplit(jaeid1, ",", fixed = TRUE)[[1]]
jaeid1 <- gsub(" ", "", jaeid1)
jaeid2 <- strsplit(jaeid2, ",", fixed = TRUE)[[1]]
jaeid2 <- gsub(" ", "", jaeid2)

if (tolower(version) == "nykyinen") {
	version <- get_current_version(ident)
} else {
	version <- as.numeric(version)
}

if(sivu2 == "Sama") sivu2 <- sivu1

ident.subset <- paste(ident, "Relaatiot", sep = ".")

filter <- list()
filter$Versio <- version

dat <- data.frame(
	RelaatioID = NA,
	Versio = version, 
	Aika = date(), 
	Käyttäjä = wiki_username, 
	Sivu1 = sivu1,
	JaeID1 = jaeid1,
	Sivu2 = sivu2,
	JaeID2 = jaeid2,
	Result = relaatio
)

upload_with_autoid(
	dat,
	ident.subset,
	id_name = "RelaatioID",
	pagename = pagename,
	filter = filter
)

cat("Relaation lisääminen onnistui.\n")

</rcode>

<rcode label="Lisää sisällytys" name="sisallytys" embed=1 variables="
	name:sivu1|description:Mikä on lähtöjakeen sivu?|type:selection|options:
	'Epidemiologinen malli';Epidemiologinen malli;
	'Pneumokokkirokotteen turvallisuus';Pneumokokkirokotteen turvallisuus;
	'Taloudellinen arviointi';Taloudellinen arviointi;
	'Vertailuperusteet';Vertailuperusteet|
	name:jaeid1|description:Mikä on lähtöjakeen ID?|type:text|
	name:version|description:Mikä on lähtöjakeen versio?|type:text|default:edellinen|
	name:sivu2|description:Mikä on kohdejakeen sivu?|type:selection|options:
	'Sama';Sama kuin lähtöjakeella;
	'Epidemiologinen malli';Epidemiologinen malli;
	'Pneumokokkirokotteen turvallisuus';Pneumokokkirokotteen turvallisuus;
	'Taloudellinen arviointi';Taloudellinen arviointi;
	'Vertailuperusteet';Vertailuperusteet|
	name:jaeid2|description:Mikä on kohdejakeen ID (uudemmassa versiossa)?|type:text|
	name:sisallytys|description:'''Sisällytettiinkö ehdotus uudempaan versioon?'''|type:selection|options:
	' ';- Valitse -;
	'ehdotus huomioitu ja liittyvää painotusta muutettu';ehdotus huomioitu ja liittyvää painotusta muutettu;
	'ehdotus huomioitu ja uusi kohta lisätty';ehdotus huomioitu ja uusi kohta lisätty;
	'ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun';ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun;
	'ehdotus ei ole antanut aihetta muutoksiin';ehdotus ei ole antanut aihetta muutoksiin|
	name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'|
	name:pagename|type:hidden|default:'{{PAGENAME}}'
">
if (nchar(gsub(" ", "", sisallytys)) == 0) stop("Sisällytyksen tyyppiä ei annettu!")

library(OpasnetUtils)
objects.latest("Op_fi4325", "apufunktiot")

jaeid1 <- strsplit(jaeid1, ",", fixed = TRUE)[[1]]
jaeid1 <- gsub(" ", "", jaeid1)
jaeid2 <- strsplit(jaeid2, ",", fixed = TRUE)[[1]]
jaeid2 <- gsub(" ", "", jaeid2)

if (tolower(version) == "edellinen") {
	version <- get_current_version(ident) - 1
} else {
	version <- as.numeric(version)
}

if(sivu2 == "Sama") sivu2 <- sivu1

ident.subset <- paste(ident, "Relaatiot", sep = ".")

filter <- list()
filter$Versio <- version

dat <- data.frame(
	RelaatioID = NA,
	Versio = version, 
	Aika = date(), 
	Käyttäjä = wiki_username, 
	Sivu1 = sivu1,
	JaeID1 = jaeid1,
	Sivu2 = sivu2,
	JaeID2 = jaeid2,
	Result = sisallytys
)

upload_with_autoid(
	dat,
	ident.subset,
	id_name = "RelaatioID",
	pagename = pagename,
	filter = filter
)

cat("Sisällytyksen lisääminen onnistui.\n")

</rcode>

<rcode name="relaationpoisto" embed=1 label="Poista relaatio" showcode=0 variables="
	name:relid|description:Poistettavan relaation ID (pilkulla eroteltuna useampia)|type:text|
	name:version|description:Mikä versio on kyseessä?|type:text|default:nykyinen|
	name:syy|description:Poiston syy|type:selection|options:
	' ';- Valitse syy -;
	'Relaatio ei päde uudessa versiossa';Relaatio ei päde uudessa versiossa;
	'Virheellinen relaatio';Virheellinen relaatio|
	name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'|
	name:pagename|type:hidden|default:'{{PAGENAME}}'
">
library(OpasnetUtils)

relid <- strsplit(relid, ",", fixed = TRUE)[[1]]
relid <- gsub(" ", "", relid)

if (tolower(version) == "nykyinen") {
	objects.latest("Op_fi4325", "apufunktiot")
	version <- get_current_version(ident)
} else {
	version <- as.numeric(version)
}

dat <- data.frame(
		Versio = version,
		Aika = date(), 
		Käyttäjä = wiki_username,
		Syy = syy, 
		Result = relid
)

opbase.upload(
		dat, 
		ident = ident, 
		name = pagename, 
		subset = "Relaationpoistot", 
		act_type = "append", 
		language = "fin",
		who = wiki_username
)

cat("Relaatio poistettiin onnistuneesti.\n")
</rcode>

=== Kehittyneemmät hakukoneet ===
'''Hae jakeita ja niihin liittyviä avainsanoja'''
<rcode label="Hae" name="avainsanat_disp" embed=1 variables="
	name:sivu|description:Sivu jolta jakeita haetaan|type:selection|options:
		NULL;Kaikilta;
		'Epidemiologinen malli';Epidemiologinen malli;
		'Pneumokokkirokotteen turvallisuus';Pneumokokkirokotteen turvallisuus;
		'Taloudellinen arviointi';Taloudellinen arviointi;
		'Vertailuperusteet';Vertailuperusteet|
	name:jaeid|description:Anna halutessasi jakeen ID(:t)|type:text|default:hae kaikki|
	name:version|description:Versio|type:text|default:nykyinen|
	name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'
">
library(OpasnetUtils)
library(plyr)
objects.latest("Op_fi4325", "apufunktiot")

# Erottelu pilkuilla ja välilyöntien poisto
if (!is.null(sivu)) sivu <- gsub("^\\s*|\\s*$", "", strsplit(sivu, ",")[[1]])
if (tolower(jaeid == "hae kaikki")) {
	jaeid <- NULL
} else {
	jaeid <- gsub("^\\s*|\\s*$", "", strsplit(jaeid, ",")[[1]])
}
version <- gsub("^\\s*|\\s*$", "", strsplit(version, ",")[[1]])

a <- tolower(version) == "nykyinen"
if (any(a)) {
	version <- version[!a]
	version <- c(version, get_current_version(ident))
}
version <- as.numeric(version)

out <- jaehakukone(ident, sivu = sivu, versio = version, jae = jaeid)

if (nrow(out) == 0) {
	stop("Jakeita ei löytynyt!")
}

filter <- list()
filter$Sivu <- sivu
filter$Versio <- version
filter$JaeID <- jaeid

tags <- try_dl_rm(
	paste(ident, "Avainsanat", sep = "."), 
	filter = filter, 
	rm_id = paste(ident, "Avainsananpoistot", sep = "."),
	rm_ind = "AvainsanaID"
)

if (nrow(tags) == 0) {
	cat("Avainsanoja ei löytynyt!\n")
} else {
	colnames(tags)[colnames(tags) == "Result"] <- "Avainsana"
	out <- join(
		tags[c("Versio", "Sivu", "JaeID", "AvainsanaID", "Avainsana")],
		out[c("Versio", "Sivu", "JaeID", "Result")]
	)
	# Jos annettiin vain yksi versio ja/tai sivu niin niitä ei tarvitse printata
	filter_ind <- NULL
	if (length(version) != 1) filter_ind <- c(filter_ind, "Versio")
	if (length(sivu) != 1) filter_ind <- c(filter_ind, "Sivu")
	filter_ind <- c(filter_ind, "JaeID")
	oprint(out[c(filter_ind, "Result", "AvainsanaID", "Avainsana")], include.rownames = FALSE)
}
</rcode>
		
'''Hae relaatioita ja niihin kuuluvia jakeita'''
<rcode label="Hae" name="relaatiot_disp" embed=1 variables="
	name:sivu|description:Sivu jolta relaatioita haetaan|type:selection|options:
		NULL;Kaikilta;
		'Epidemiologinen malli';Epidemiologinen malli;
		'Pneumokokkirokotteen turvallisuus';Pneumokokkirokotteen turvallisuus;
		'Taloudellinen arviointi';Taloudellinen arviointi;
		'Vertailuperusteet';Vertailuperusteet|
	name:jaeid|description:Anna halutessasi jakeen ID(:t)|type:text|default:hae kaikki|
	name:liit|description:Liittymistyyppi|type:selection|options:
		NULL;Kaikki;
		'tukee tai on linjassa';Tukee tai on linjassa;
		'vastustaa tai on ristiriidassa';Vastustaa tai on ristiriidassa;
		'on neutraali suhteessa';On neutraali suhteessa;
		'on uusi linjaus tai painotus';On uusi linjaus tai painotus|
	name:sis|description:Sisällytys|type:selection|options:
		NULL;Kaikki;
		'ehdotus huomioitu ja liittyvää painotusta muutettu';Ehdotus huomioitu ja liittyvää painotusta muutettu;
		'ehdotus huomioitu ja uusi kohta lisätty';Ehdotus huomioitu ja uusi kohta lisätty;
		'ehdotus ei ole antanut aihetta muutoksiin';Ehdotus ei ole antanut aihetta muutoksiin;
		'ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun';Ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun|
	name:version|description:Versio|type:text|default:nykyinen|
	name:ident|type:hidden|default:'{{{1|Op_fi{{PAGEID}}}}}'
">
# Eri sisältymistyypit pitää määritellä niin että ne voidaan käsitellä erillään muista relaatioista
sis_opt <- c(
	'ehdotus huomioitu ja liittyvää painotusta muutettu',
	'ehdotus huomioitu ja uusi kohta lisätty',
	'ehdotus ei ole antanut aihetta muutoksiin', 
	'ehdotus ei ole antanut aihetta muutoksiin vaan sisältyy olennaisesti jo kirjattuun'
)
#liit_opt <- c(
#	'tukee tai on linjassa',
#	'vastustaa tai on ristiriidassa',
#	'on neutraali suhteessa',
#	'on uusi linjaus tai painotus'
#)
library(OpasnetUtils)
library(plyr)
objects.latest("Op_fi4325", "apufunktiot")

# Erottelu pilkuilla ja välilyöntien poisto
if (!is.null(sivu)) sivu <- gsub("^\\s*|\\s*$", "", strsplit(sivu, ",")[[1]])
if (tolower(jaeid == "hae kaikki")) {
	jaeid <- NULL
} else {
	jaeid <- gsub("^\\s*|\\s*$", "", strsplit(jaeid, ",")[[1]])
}
version <- gsub("^\\s*|\\s*$", "", strsplit(version, ",")[[1]])
a <- tolower(version) == "nykyinen"
if (any(a)) {
	version <- version[!a]
	version <- c(version, get_current_version(ident))
}
version <- as.numeric(version)
# Add previous and next versions to check for inclusion from previous and into next
original_version <- version
if (!(1 %in% version)) {
	prev <- TRUE
	version <- c(min(version, na.rm = TRUE) - 1, version)
}
version <- c(version, max(version, na.rm = TRUE) + 1)

filter <- list()
filter$Sivu1 <- sivu
filter$Versio <- version
filter$JaeID1 <- jaeid

rel1 <- try_dl_rm(
		paste(ident, "Relaatiot", sep = "."), 
		filter = filter, 
		rm_id = paste(ident, "Relaationpoistot", sep = "."),
		rm_ind = "RelaatioID"
)

filter$JaeID1 <- NULL
filter$Sivu1 <- NULL
filter$JaeID2 <- jaeid
filter$Sivu2 <- sivu

rel2 <- try_dl_rm(
		paste(ident, "Relaatiot", sep = "."), 
		filter = filter, 
		rm_id = paste(ident, "Relaationpoistot", sep = "."),
		rm_ind = "RelaatioID"
)
rel <- rbind(rel1, rel2)

if (!any(original_version %in% rel$Versio)) stop("Annetuilla versiolla ei löytynyt relaatioita.")

if (!is.null(liit)|!is.null(sis)) rel <- rel[rel$Result == c(liit,sis), ]

if (nrow(rel) == 0) {
	cat("Jakeelle ei löytynyt kysyttyjä relaatioita tietokannassa.\n")
} else {
	jakeet <- jaehakukone(
		ident, 
		sivu = sivu, 
		versio = version, 
		jae = c(
			as.character(rel$Sivu1), 
			as.character(rel$Sivu2)
		)
	)
	if (nrow(jakeet) == 0) stop("Relaatioissa listattuja jakeita ei löytynyt!")
	
	# Relaatiot
	jakeet <- jakeet[c("Versio", "Sivu", "JaeID", "Result")]
	colnames(jakeet)[colnames(jakeet) == "JaeID"] <- "JaeID1"
	colnames(jakeet)[colnames(jakeet) == "Sivu"] <- "Sivu1"
	colnames(jakeet)[colnames(jakeet) == "Result"] <- "Jae1"
	rel <- rel[c("RelaatioID", "Versio", "Sivu1", "JaeID1", "Result", "Sivu2", "JaeID2")]
	colnames(rel)[colnames(rel) == "Result"] <- "Relaatio"
	out <- join(
		rel[(!(rel$Relaatio %in% sis_opt)) & rel$Versio %in% original_version,], 
		jakeet, 
		match = "first" # versio - sivu - jaeid -> yksi yhteen
	)
	
	colnames(jakeet)[colnames(jakeet) == "JaeID1"] <- "JaeID2"
	colnames(jakeet)[colnames(jakeet) == "Sivu1"] <- "Sivu2"
	colnames(jakeet)[colnames(jakeet) == "Jae1"] <- "Jae2"
	out <- join(out, jakeet, match = "first")
	
	oprint(
		out[c("Versio", "Sivu1", "JaeiID1", "Jae1", "Relaatio", "Sivu2", "JaeID2", "Jae2")], 
		include.rownames = FALSE, 
		caption = "Relaatiot", 
		caption.placement = "top"
	)
	
	# Sisällytykset
	colnames(jakeet)[colnames(jakeet) == "JaeID"] <- "JaeID1"
	colnames(jakeet)[colnames(jakeet) == "Sivu"] <- "Sivu1"
	colnames(jakeet)[colnames(jakeet) == "Result"] <- "Jae1"
	colnames(rel)[colnames(rel) == "Relaatio"] <- "Sisällytys"
	out <- join(
		rel[rel$Sisällytys %in% sis_opt & rel$Versio %in% version[-length(version)],], 
		jakeet, 
		match = "first" # versio - sivu - jaeid -> yksi yhteen
	)
	
	colnames(jakeet)[colnames(jakeet) == "JaeID1"] <- "JaeID2"
	colnames(jakeet)[colnames(jakeet) == "Sivu1"] <- "Sivu2"
	colnames(jakeet)[colnames(jakeet) == "Jae1"] <- "Jae2"
	jakeet$Versio <- as.numeric(as.character(jakeet$Versio)) - 1
	out <- join(out, jakeet, match = "first")
	
	oprint(
		out[c("Versio", "Sivu1", "JaeiID1", "Jae1", "Sisällytys", "Sivu2", "JaeID2", "Jae2")], 
		include.rownames = FALSE, 
		caption = "Sisällytys (uudempaan versioon)", 
		caption.placement = "top"
	)
}


</rcode>

== Viestintä ==

[[File:Pneumokokkirokotteen kävijämäärät.png|thumb|400px|Pneumokokkirokotesivun kävijämäärät Opasnetissä 10.6.-13.7.2014. Tilanne on huolestuttava, koska ulostulo ei ole lisännyt kävijämääriä lainkaan. Unique pageview tarkoittaa sellaisten käyttäjävierailujen lukumäärää, jossa sivu on luettu ainakin kerran. Sivun kokonaisavaamismäärä on noin kaksinkertainen eli joka käyttäjä on avannut sivun keskimäärin kahdesti yhden vierailun aikana. Hankkeen omien työntekijöiden määrät ovat mukana näissä luvuissa.]]

[[File:Pneumokokkirokotteen kävijämäärät op_en.png|thumb|400px|Pneumokokkirokotesivun kävijämäärät englanninkielisessä Opasnetissä 10.6.-13.7.2014. Kävijöitä on vielä vähemmän. Syynä tähän lienee, että he ovat kaikki joko hankkeen jäseniä tai henkilökohtaisesti kutsuttuja, koska mitään yleisviestintäähän ei englanniksi ole tehty.]]

=== Lehdistötiedote 3.7.2014 ===

'''Avoin keskustelu pneumokokkirokotteen hankintaperusteista alkaa'''

THL järjestää avoimen verkkokeskustelun lasten rokotusohjelmaan kuuluvan pneumokokkirokotteen hankintaperusteista. Keskustelu käydään heinä-elokuussa Opasnet-verkkotyötilassa. Sen tulokset esitellään kansalliselle rokotusasiantuntijaryhmälle syyskuun alussa. Keskusteluun toivotaan mukaan sekä alan asiantuntijoita että muita asiasta kiinnostuneita.

Keskustelussa pyritään löytämään vastaus kysymykseen: "Mitä vertailuperusteita pitäisi käyttää kansalliseen rokotusohjelmaan kuuluvan lasten pneumokokkirokotteen hankinnassa?" Valintakriteereitä voivat olla esimerkiksi hinta, teho ja turvallisuus. Opasnetissä esitellään markkinoilla olevat rokotevalmisteet, niiden ominaisuudet ja tärkeät rokotteen valintaan vaikuttavat tekijät. 

Valtion hankinnoista käydään harvoin näin avointa ja yksityiskohtaista keskustelua jo ennen hankinnan valmistelua.  "Rokotusohjelmassa kulloinkin käytettävän rokotevalmisteen valintaperusteet ovat herättäneet paljon kysymyksiä. Monet tahot ovat toivoneet sekä omaa vaikutusmahdollisuutta että valinnan tarkastelua nykyistä useammasta näkökulmasta. Haluamme nyt testata avoimen, kriittisen prosessin toimivuutta tarjoamalla kaikille kiinnostuneille mahdollisuuden perusteltujen näkemysten esittämiseen", sanoo ylijohtaja '''Terhi Kilpi'''.

Keskustelun tavoitteena on tuottaa päätöksentekijöille ehdotuksia valintaperusteista sekä jaettu ymmärrys siitä, mistä asioista ollaan yhtä mieltä, mistä eri mieltä ja miksi. Kuka tahansa saa osallistua keskusteluun ja sisällön tuottamiseen. Mukaan odotetaan alan asiantuntijoita esimerkiksi terveydenhoito- ja tutkimussektorilta sekä lääkeyrityksistä, mutta kysymyksiä ja kommentteja kaivataan myös muilta asiasta kiinnostuneilta.

Keskustelua valvovat avoimeen arviointiin perehtyneet moderaattorit, joiden tehtävä on saada jokaisen mielipide edustetuksi, oli se sitten puolesta tai vastaan. Jokaista kommenttia kuitenkin myös arvioidaan. Ainoastaan perustellut, kriittisen tarkastelun kestävät väitteet voivat muovata suosituksen lopputulosta. 

Pneumokokkirokotteen tarjouskilpailu käynnistynee marras-joulukuussa, ja kilpailun voittanut valmiste otetaan käyttöön syksyllä 2015.

Opasnet on THL:n ylläpitämä wiki-pohjainen sivusto, jota kuka tahansa saa muokata. Opasnetin tarkoituksena on edistää tieteeseen perustuvaa yhteiskunnallista päätöksentekoa. Opasnet toimii suomeksi ja englanniksi.

[http://fi.opasnet.org/fi/Pneumokokkirokote Opasnetin keskustelusivusto pneumokokkirokotteen hankinnasta]

[http://www.thl.fi/fi_FI/web/rokottajankasikirja-fi/pneumokokkikonjugaattirokotukset Pneumokokkikonjugaattirokotukset]

[http://www.thl.fi/fi_FI/web/rokottajankasikirja-fi/lapset-ja-nuoret Lasten ja nuorten rokotusohjelma]

[http://fi.opasnet.org/fi/APTK Avoimen päätöksenteon prosessikuvaus]

;Lisätiedot  

:Rokoteasiantuntija
:Hanna Nohynek
:ylilääkäri
:THL
:p.  029 524 8246 
:etunimi.sukunimi@thl.fi

:Avoimen päätöstuen asiantuntija
:Jouni Tuomisto
:johtava tutkija
:THL
:029 524 6305
:etunimi.sukunimi@thl.fi

Päivitetty 4.7.2014

----

Lehtiä, joiden lukijoissa voisi olla (pikkulasten) rokottamisesta puhumisesta kiinnostuneita ihmisiä
*Vauva
*Meidän perhe
*Tiede
*Tieteen kuvalehti
*Suomen Kuvalehti
*Kaksplus
*Kotilääkäri
*et-terveys
*Hyvä terveys
*HS + muut sanomalehdet

{{defend|# |Jonkin lehden mielipidepalstalle pitäisi lähettää kirjoitus, jossa puolustetaan avointa valmistelua ja tätä käytetään esimerkkinä. Mikä? Hesari, Suomen Kuvalehti? Sellainenkin olisi hyvä kirjottaa nyt viikonlopun aikana, jotta pääjohtaja voisi katsoa sitäkin. Tämä ei tosin ole välttämätöntä, jos yksityinen ihminen lähettää sen omissa nimissään.|--[[Käyttäjä:Jouni|Jouni Tuomisto]] ([[Keskustelu käyttäjästä:Jouni|keskustelu]]) 27. kesäkuuta 2014 kello 14.02 (UTC)}}

=== Rokotepäätöksentekoa voi avata kansalle ===

{{comment|# |Olisiko Suomen Kuvalehteen tai Hesariin?|--[[Käyttäjä:Jouni|Jouni Tuomisto]] ([[Keskustelu käyttäjästä:Jouni|keskustelu]]) 27. kesäkuuta 2014 kello 14.03 (UTC)}}
: {{defend|# |Yritetään ensin Hesariin.|--[[Käyttäjä:Jouni|Jouni Tuomisto]] ([[Keskustelu käyttäjästä:Jouni|keskustelu]]) 15. heinäkuuta 2014 kello 13.19 (UTC)}}

{{attack|# |Sata merkkiä liikaa Hesariin.|--[[Käyttäjä:Jouni|Jouni Tuomisto]] ([[Keskustelu käyttäjästä:Jouni|keskustelu]]) 15. heinäkuuta 2014 kello 13.19 (UTC)}}

'''Vaikeaakin päätöksentekoa voi avata

Rokotukset ovat tärkeä osa niin kansanterveyden kuin yksittäisten ihmisten terveyden edistämistä ja turvaamista. Julkiset rokotuskeskustelut kuitenkin yleensä ovat kohuja, jotka luovat usein aiheetonta huolta ja epäilyä rokotteiden turvallisuudesta. Rokotteisin liittyy sekä väestön, yksilön että taloudellisia intressejä. Niitä koskeva tieto voi olla vaikeasti tulkittavaa. Nämä seikat herättävät intohimoja ja mutkistavat rokotteisiin liittyvää päätöksentekoa.

Uskomme kuitenkin, että näinkin vaikeasta aiheesta on mahdollista käydä avointa, järkiperäistä ja hyviä päätössuosituksia tuottavaa julkista keskustelua. Parhaillaan internetissä Opasnet-sivustolla rakennetaan jaettua ymmärrystä rokotteista asiantuntijoiden, päättäjien ja kansan kesken. Keskustelu keskittyy uuden pneumokokkirokotteen kilpailutukseen ja hankintaan vanhan sopimuksen umpeutuessa. Pneumokokkirokote on annettu kaikille lapsille Suomessa vuodesta 2010 lähtien. 

Työn tarkoituksena on tuottaa rokotteiden vertailuperusteet ja selvittää, mitä asiasta tiedetään, mitä ei tiedetä, mistä ollaan samaa mieltä, mistä eri mieltä, ja miksi. Nyt halutaan nähdä, onko mahdollista tehdä parempia rokotepäätöksiä avaamalla ja jäsentämällä keskustelua vaihtoehdoista jo ennen päätösvalmistelun alkamista sosiaali- ja terveysministeriössä. 

Kaikki halukkaat voivat osallistua Opasnetin keskusteluun muokkaamalla suoraan wiki-pohjaista sivustoa, kommentoimalla nimettömästi tai vastaamalla lyhyeen rokotuksiin liittyviä arvoja ja näkemyksiä koskevaan kyselyyn. Sivusto on myös asiantuntijoiden työtila, jonne he keräävät tarvittavaa taustatietoa ja laskentamalleja. Kuka tahansa voi siis perehtyä päätösvalmistelun perusteisiin yksityiskohtia myöten ja myös kommentoida niitä avoimessa keskustelussa.

Keskustelun lopputulos annetaan sellaisenaan ehdotuksena THL:n kansalliselle rokotusasiantuntijaryhmälle, joka antaa oman suosituksensa valintaperusteista alkusyksystä. STM tekee asiasta lopulliset päätökset syksyn ja talven aikana.

Toivomme kokeilun osoittavan, että vaikeastakin aiheesta käyty avoin keskustelu tuottaa uutta tietoa ja näkemystä ja monipuolistaa yhteiskunnallisten päätösten valmistelua. Onnistunut kokeilu levittäisi toimintamallia yhteiskunnassa myös muihin kiperiin aiheisiin.

: Hanna Nohynek, ylilääkäri
: Jouni Tuomisto, johtava tutkija
: Terveyden ja hyvinvoinnin laitos

{{defend|# |Minusta tämä teksti on jo aika hyvä. Mainitun kyselyn on kuitenkin oltava valmis julkaisuhetkellä - siinä taitaa vielä olla vähän viilaamista.|--[[Käyttäjä:Mikko Pohjola|Mikko Pohjola]] ([[Keskustelu käyttäjästä:Mikko Pohjola|keskustelu]]) 16. heinäkuuta 2014 kello 11.45 (UTC)}}

== Työohje ==

* {{comment|# |Katso työtehtäviä myös sivulla [[Keskustelu:Liikenne ja viestintä digitaalisessa Suomessa 2020#Työnjako]].|--[[Käyttäjä:Jouni|Jouni Tuomisto]] ([[Keskustelu käyttäjästä:Jouni|keskustelu]]) 23. kesäkuuta 2014 kello 10.58 (UTC)}}

{| {{prettytable}}
|+'''Seurattavat sivut
!Sivut !! Seurantaryhmä
|----
| 
[[Vertailuperusteet|Rokotteen vertailuperusteet]] &middot;
[[Keskustelu:Vertailuperusteet]]  &middot;
[[:op_en:Comparison criteria|Comparison criteria for vaccine]] &middot;
|
Pauli, Vilma
|----
|
[[Epidemiologinen malli]] &middot;
[[Keskustelu:Epidemiologinen malli]] &middot;
[[:op_en:Epidemiological modelling|Epidemiological modelling]] &middot;
|
Timo, Tuukka
|----
|
[[Taloudellinen arviointi]] &middot;
[[Keskustelu:Taloudellinen arviointi]] &middot;
[[:op_en:Economical assessment|Economical assessment]]
| Jaakko, Teemu
|----
|
[[Pneumokokkirokotteen turvallisuus]] &middot;
[[Keskustelu:Pneumokokkirokotteen turvallisuus]]

'''Näitä sivuja ei osallistujien pitäisi muokata, mutta kaiken varalta:''' [[Pneumokokkirokotteen hankinta kansalliseen rokotusohjelmaan]] &middot;
[[:op_en:Tendering process for pneumococcal conjugate vaccine|Tendering process for pneumococcal conjugate vaccine]] &middot;
[[Keskustelu:Pneumokokkirokotteen hankinta kansalliseen rokotusohjelmaan#Työn_osat|Työjärjestys]] &middot;
[[Pneumokokkirokotevalmisteet]] &middot;
[[Kansallinen rokotusohjelma]] &middot;
[[Pneumokokkikonjugaattirokotteen vaikuttavuuden seuranta]] &middot;
[[Korvautuminen]] &middot;
[[Rokotesanasto]] &middot;
| Matleena, Julia, Pauli
|----
|}

{| {{prettytable}}
! Tekijä !! Tehtävä !! Valmis?
|----
| Jaakko, Julia|| [http://heande.opasnet.org/wiki/Pneumokokkirokote] Harder Olennaisten asioiden nosto Opasnettiin. ||
|----
| Teemu || Kustannusvaikuttavuusmallin kääntäminen ovariableiksi. || 
|----
| Timo || Pneukokokkirokotemalli ([[Epidemiologinen malli]], osat Funktioiden alustus ja Data) pitäisi siirtää englanninkieliselle puolelle. Päämallin pitäisi olla englanniksi ja niitä ovariableja kutsutaan sitten myös suomenkielisellä puolella kohdassa ''Laskenta''. Pitäisi miettiä miten kieliversiot sujuvimmin toimisivat. ||
|----
| || '''Aina, jos et tiedä, mitä tekisit''', katso läpi suomenkielisiä ja englanninkielisiä sivuja ja päivitä jäljessä olevaa (niillä pitäisi olla samat asiat käytävää keskustelua lukuunottamatta). Myös linkkien toimintaa, linkkilaatikon päivitystä, edistymisluokituksen ja keskustelutyökalun olemassaolon ja oikeellisuuden tarkistusta sivuilta voi tehdä. Siis yleistä hienosäätöä ja ylläpitoa. ||
|}

=== Viikkopalaverit ===

'''Viikkopalaverit pidetään Skypessä maanantaisin kello 12-13(-13.30) (Suomen aikaa).

;Palaveri 7.7.2014

Tehtävät:
*lehdille/toimittajille viestiä pneumokokkirokotteesta (Tuukka)
*kysellään todennäköisesti kiinnostuneilta tahoilta (esim. Rokote.fi) suoraan heidän näkemyksiään pneumokokkirokoteohjelmasta (ei vielä, odotellaan tämä viikko)
*nettikysely pneumokokkirokotesivulle (Jouni, Jaakko)
*LVM: poisjääneitä kommentteja ja relaatioita kaivellaan sivuilta ja tägätään (Tuukka, Pauli, Jaakko)
*Pauli lisätään seuraamaan Pneumokokkirokotteen turvallisuus -sivuja
*Teemu ja Timo koodavat

; Palaveri 14.7.2014
* [[Kohdistamo]]n tuntikirjaukset kuntoon! ("Oletus" projektit muutettava oikeiksi projekteiksi)
** Tarkistakaa myös että sisään- ja uloskirjauksia on oikeat määrät (esim. Jaakolla eri määrä johtaa negatiiviseen kokonaistuntimäärään)
* Henkilökohtaiset yhteydenotot. Kenelle? Ideoikaa ja kerätkää yhteytietoja sivulle [[:heande:Pneumokokkirokote]].
* Rokotekeskustelun tärkeät kysymykset --> [[Pneumokokkirokotekysely]]n tekeminen (Jaakko & Jouni). Yritetään saada valmiiksi 17.7.!
** Muut voi kommentoida
* Työkorvaukset saadaan maksuun 14.7., JOSS olet toimittanut laskun. Laskun voi toimittaa myös myöhemmin, mutta toimittakaa tästä tieto.
* Tägikonetta pitää viilata. Jouni, Teemu
* LVM-teemasivujen tägäys loppuun mahd. pian! (Mieluiten alkuviikosta)
* Tutustukaa sivuihin [[Tuotosten jäsentäminen Opasnetissä]] & [[Avoin päätöksentekokäytäntö]] ja kuitatkaa alla olevaan erikoistumissuunnitelmaan kun se on tehty. KAIKKI
* Kommentoikaa mielipidekirjoitusta, joka syntyy tälle sivulle kohtaan [[#Rokotepäätöksentekoa voi avata kansalle]]. Yritetään saada valmiiksi 16.7.!

=== Erikoistumissuunnitelma ===

Tähän listataan sellaisia erillisiä taitoja tai työkaluja, jotka pneumokokkirokotehankkeessa pitää olla ryhmällä hallussa. Tämä toteutetaan niin, että joku perehtyy aiheeseen ensin ja perusteellisemmin, ja kesän aikana kaikki muut voivat kysyä tältä henkilöltä apua ja neuvoja aiheen suhteen. Jos siis tulee vastaan ongelma, aiheeseen erikoistuva selvittää siihen vastauksen eikä se jolla ongelma tuli vastaan. Näin toimien päästään nopeimmin eteenpäin ja ryhmän osaaminen kasvaa tehokkaimmin. Aiheeseen erikoistumiseen kuuluu se, että erikoistuva päivittää aiheen ohjesivua vastaamaan uutta tietoa ja osaamista, jotta muiden on sitten helpompi opetella asia myös.

Lopullisena tavoitteena kuitenkin on, että kaikki laajentavat osaamistaan kaikista aiheista kesän aikana, mutta muiden ei tarvitse edetä yhtä pitkälle ja nopeasti kuin erikoistuvien.

Aiheet (merkkaa oma nimesi sen aiheen kohdalle, johon haluat erikoistua).

{| {{prettytable}}
! Aihe || Erikoistuva henkilö || Tilanne
|---
|rowspan="2"| [[Pneumokokkirokote]]: sivulla mainittuihin artikkeleihin Nurhonen & Auranen 2013 ja 2014 tutustuminen 
| Jaakko
| Minulla on hyvä yleiskuva asiasta
|----
| Pauli
| Minulla on hyvä yleiskuva asiasta
|----
| [[Pneumokokkirokote#Laskenta]]: malliin tutustuminen
| Jaakko
| Minulla on hyvä yleiskuva asiasta
|----
| [[Tuotosten jäsentäminen Opasnetissä#Sisällön yhdenmukaistaminen]]: toimintamallin opettelu ja harjoittelu
| Pauli
| Minulla on hyvä yleiskuva asiasta
|----
|rowspan="2"| [[Tuotosten jäsentäminen Opasnetissä#Tunnistelinkkien lisääminen]]: toimintamallin opettelu ja harjoittelu
| Matleena, ehkä?
| Tiedän mistä puhutaan, mutta en osaa asiaa/Minulla on hyvä yleiskuva asiasta
|----
| Pauli
| Minulla on hyvä yleiskuva asiasta
|----
| [[Liikenne ja viestintä digitaalisessa Suomessa 2020]]: perehdy toimintamalleihin, joita LVM on käyttänyt sisällön jäsentämiseen
| 
| En ole vielä aloittanut
|----
| [[Keskustelu:Liikenne ja viestintä digitaalisessa Suomessa 2020#Ohjeita]]: tuotetun sisällön jäsentäminen LVM:n ohjeistuksen mukaan. VALMISTUTTAVA ENNEN JUHANNUSTA. Kaikki tekemään, mutta yksi tarvitaan katsomaan kokonaisuutta.
| 
| En ole vielä aloittanut
|----
| [[:op_en:Modelling in Opasnet]]: erityisesti [[:op_en:Ovariable]]
| 
| En ole vielä aloittanut
|----
| [[:op_en:Modelling in Opasnet]]: erityisesti [[:op_en:R-tools]]-käyttäjärajapinta
| 
| En ole vielä aloittanut
|----
| [[:op_en:Modelling in Opasnet]]: erityisesti [[:op_en:Opasnet base 2]]-tietokanta
| 
| En ole vielä aloittanut
|----
|rowspan="2"| [[Avoin päätöksentekokäytäntö]] ja siihen liittyvä artikkeli (linkki löytyy sivulta): tutustuminen
| Pauli
| Minulla on hyvä yleiskuva asiasta
|----
| Matleena
| Minulla on hyvä yleiskuva asiasta
|----
|}

Tilanne: kuvaa se kehitysvaihe, jossa nyt ollaan menossa.
* En ole vielä aloittanut
* Tiedän mistä puhutaan mutten osaa asiaa
* Minulla on hyvä yleiskuva asiasta
* Olen jo harjoitellut asiaa ja osaan vähän neuvoa
* Olen harjoitellut paljon ja osaan neuvoa hyvin
* Olen tosi tekijä

=== Työn osat ===

Työssä on ainakin seuraavat osat 
* Keskustelutilan jatkuva seuraaminen ja häiriköinnin siivoaminen. 
* [[Kommentointityökalu]]n seuraaminen ja kommenttien nosto varsinaiseen tekstiin. Tämä työkalu on niille jotka eivät halua kirjautua. 
* [[Tägikone]] on työkalu tekstin jäsentämiseen ja asiasanoittamiseen. Se on koekäytössä.
* Varsinaisen keskustelun tueksi tuotettava taustamateriaali: wikistetään erilaisia rokotteeseen liittyviä yleisiä ja spesifisiä raportteja ja yhteenvetoja sen hyödyistä, haitoista ja tehosta. Tätä materiaalia voisi alkaa listata ja työstää jo nopeasti. 
* Kustannus-hyötymallin toteutus [[R]]:llä. 
* Mallin parametritietojen kerääminen ja syöttäminen malliin. 
* Päätösvaihtoehtojen kuvaaminen (suoraviivainen)
* Eri vaikutusten kuvaaminen ovariableina osana kausaalimallia. (Nämä lienevät pääosin tiedossa yleistasolla)
* Osallistujien kouluttaminen keskeisiin menetelmiin tarpeen mukaan. Näitä ovat [[Keskustelu]] ja [[:op_en:Modelling in Opasnet|Opasnet-mallinnus]].
* Päivitettyjen ohjeiden kirjoittaminen näistä menetelmistä. Menetelmien edelleen kehittäminen tämän hankkeen oppien perusteella. 

== Katso myös ==

* [http://fi.opasnet.org/fi_wiki/index.php?title=Keskustelu:Pneumokokkirokotteen_hankinta_kansalliseen_rokotusohjelmaan&oldid=24686 Varhaisempi työsuunnitelma, jossa on tehtävärajausta, työtuntisuunnitelmaa ja budjettia] 30.6.2014
* [http://fi.opasnet.org/fi_wiki/index.php?title=Keskustelu:Pneumokokkirokotteen_hankinta_kansalliseen_rokotusohjelmaan&oldid=24904 Tehdyt työt arkistoitu 14.7.2014]