Ero sivun ”Keskustelu:Pneumokokkirokotteen hankinta kansalliseen rokotusohjelmaan” versioiden välillä

Nykyinen versio 4. lokakuuta 2014 kello 13.38

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

Yhtäkkiä rokotuskohua ei olekaan syntynyt

Kirjoitus on julkaistu Potilaan lääkärilehdessä, Kommentit 04.10.2014. [1] Lehden asiasanat rokotukset pneumokokkirokote

Minkälaisia rokotteita haluaisit että valtio ostaa veroeuroillasi? Olisitko valmis maksamaan laatuerosta kahden rokotteen välillä? Ja miten laadun määrittelisit ja mittaisit? Miten kirjoittaisit auki vertailuperusteet niin, että ne olisivat oikeudenmukaiset etkä ehdoin tahdoin suosisi yhtä valmistajaa toisen kustannuksella? Kaikki nämä asiat – ja paljon muutakin – ovat mietinnän keskiössä, kun kansallisen rokotusohjelman hankinnoille laaditaan tarjouskilpailun kriteereitä lain määräämissä rajoissa. Kuten tänä syksynä pikkulasten pneumokokkirokotehankinnalle.

Aiemmin vastaavia hankintoja on valmisteltu visusti neljän seinän sisällä ja usean oven takana. Nyt ehdotettiin, että prosessi pitäisi avata läpinäkyvämmäksi lisäämällä eri intressiryhmien kuulemistilaisuuksia. Eristäytymisen muurien minimalistisen purkamisen sijasta valitsimme kuitenkin kurssin täyskäännöksen. Koska mitään salattavaa ei ole eikä absoluuttista totuutta omista kukaan, läpinäkyvyyttä yritetään saavuttaa hyödyntämällä avoimen päätöksenteon periaatteita ja työvälineitä. Oletukset, mallit ja niiden lopputulemat on laitettu tiskille kaiken kansan nähtäväksi ja kommentoitavaksi. Kysyköön se joka ei ymmärrä. Ehdottakoon se joka enemmän tietää tai se, jota liiallisen tietämisen pakkopaita ei rajoita. Pistettäköön paremmaksi kaikin mahdollisin keinoin!

Tämä saattaa vaikuttaa ehkä liiankin populistiselta selviytymiskeinolta nykyhetkessä, kun julkisia rokotuskeskusteluja käydään usein kohujen saattelemana. Kohut luovat aiheetonta huolta ja epäilyä rokotusten turvallisuudesta. Ne leimaavat kohujen keskiössä olevat ja kyseenalaistavat asiantuntijuuden. Rokotuksia koskevaa tietoa voi siten olla vaikea tulkita. Lisäksi rokotteisiin liittyy väestön, yksilön ja lääketeollisuuden intressejä, mikä herättää intohimoja ja epäluuloja, jotka edelleen mutkistavat rokotuksiin liittyvää päätöksentekoa.

Aineiston ja menetelmien avaamisella on avoimen päätöksenteon hengen mukaisesti saatu nyt aikaan avoin, järkiperäinen ja perustellen käyty hyviä päätössuosituksia tuottava julkinen keskustelu. Kaikki halukkaat ovat voineet osallistua keskusteluun wikipohjaisella sivustolla joko kommentoimalla tai vastaamalla asiantuntijoiden esittämiin väittämiin. Sivusto on samalla toiminut työtilana, jonne on kerätty tarvittavaa taustatietoa sekä epidemiologisia ja taloudellisen arvioinnin laskentamalleja niin suomen- kuin englanninkielisiä keskustelijoita varten. Kuka tahansa on voinut perehtyä päätösvalmistelun perusteisiin yksityiskohtia myöten ja myös kommentoida niitä avoimessa keskustelussa, joko nimellään tai nimimerkillä.

Ja kas – yhtäkkiä ei kohua olekaan syntynyt. Itse asiassa sen kahden kuukauden ajan, kun keskusteluun on avoimesti voinut ottaa osaa, aktiivisten keskustelijoiden määrä on ollut päätähuimaavan pieni. Sivuja kurkkineita on satoja, mutta lääketeollisuuden asiantuntijat ovat ainoina osoittaneet arviointiprosessin kipupisteitä ja argumentoineet omista näkökulmistaan. Kaikki muut, kiihkeimmin ja kovimmin huutavat kriitikot ja trollit mukaan lukien, ovat vaienneet itsensä läpinäkyvän näkymättömiksi.

Olisiko niin että vihdoin on löytynyt foorumi, jolla vaikeastakin aiheesta voidaan käydä avointa keskustelua, joka tuottaa uutta tietoa ja näkemystä sekä monipuolistaa yhteiskunnallisten päätösten valmistelua? Voisiko tätä mallia soveltaa rohkeasti myös muihin kiperiin aiheisiin?

Pneumokokkirokotteen hankinta kansalliseen rokotusohjelmaan

Hanna Nohynek

Kirjoittaja on ylilääkäri THL:ssä.

Kansallinen rokotusasiantuntijaryhmä KRAR

Kokoonpano 4.7.2014 alkaen

Harri Saxén, lasten infektiotautien professori, Helsingin yliopisto (pj)
Markku Broas, sisätautuien ja infektiosairauksien EL, Suomen Infektiolääkärit ry
Tiina Jaakkola, ylilääkäri, Fimea
Anu Kantele, sisätautien ja infektiosairauksien EL, Suomen Infektiolääkärit ry
Jane Marttila, kliinisen mikrobiologian EL, Suomen Yleislääkärit ry
Tea Nieminen, lasten infektiolääkäri, Suomen Lastenlääkäriyhdistys ry
Taneli Puumalainen, ylilääkäri, sosiaali- ja terveysministeriö
Anne Ylönen, kehittämispäällikkö, Suomen Terveydenhoitajaliitto STHL ry
Merit Melin, THL
Jukka Jokinen, THL
Pekka Nuorti, THL
Heini Salo, THL
Hanna Nohynek, THL (siht)

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

Versiot

Versiot(OldID)
Obs	Versio	Sivu	Ident	Result
1	1	Vertailuperusteet	Op_fi4436	24800
2	1	Epidemiologinen malli	Op_fi4414	24804
3	1	Taloudellinen arviointi	Op_fi4434	24867
4	1	Pneumokokkirokotteen turvallisuus	Op_fi4441	24593

Jakeet

Kaikkien kenttien arvot saa erotella pilkuilla tässä haussa

+ Näytä koodi - Piilota koodi

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")
}

+ Näytä koodi - Piilota koodi

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"
)

+ Näytä koodi - Piilota koodi

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
)

Jakeiden päivitys

Päivitä Versiot-tauluun sivut ja ikilinkin IDt ja aja alla oleva koodi

+ Näytä koodi - Piilota koodi

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"
)

Avainsanat

+ Näytä koodi - Piilota koodi

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")
}

+ Näytä koodi - Piilota koodi

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")

+ Näytä koodi - Piilota koodi

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")

Relaatiot

+ Näytä koodi - Piilota koodi

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")
}

+ Näytä koodi - Piilota koodi

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")

+ Näytä koodi - Piilota koodi

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")

+ Näytä koodi - Piilota koodi

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")

Kehittyneemmät hakukoneet

Hae jakeita ja niihin liittyviä avainsanoja

+ Näytä koodi - Piilota koodi

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)
}

Hae relaatioita ja niihin kuuluvia jakeita

+ Näytä koodi - Piilota koodi

# 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"
)
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"
	)
}

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 = unique(c(
				as.character(rel$Sivu1), 
				as.character(rel$Sivu2)
		)), 
		versio = version, 
		jae = unique(c(
			as.character(rel$JaeID1), 
			as.character(rel$JaeID2)
		))
	)
	if (nrow(jakeet) == 0) stop("Relaatioissa listattuja jakeita ei löytynyt!")
	
	# Relaatiot
	if (nrow(rel[!(rel$Relaatio %in% sis_opt),]) > 0) {
		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", "RelaatioID", "Sivu1", "JaeID1", "Jae1", "Relaatio", "Sivu2", "JaeID2", "Jae2")], 
				include.rownames = FALSE, 
				caption = "Relaatiot", 
				caption.placement = "top"
		)
	} else {
		cat("Ei relaatioita!\n")
	}
	
	# Sisällytykset
	if (nrow(rel[(rel$Relaatio %in% sis_opt),]) > 0) {
		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", "RelaatioID", "Sivu1", "JaeID1", "Jae1", "Sisällytys", "Sivu2", "JaeID2", "Jae2")], 
			include.rownames = FALSE, 
			caption = "Sisällytys (uudempaan versioon)", 
			caption.placement = "top"
		)
	} else {
		cat("Ei sisällytyksiä!\n")
	}
}

Viestintä

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.

Opasnetin keskustelusivusto pneumokokkirokotteen hankinnasta

Pneumokokkikonjugaattirokotukset

Lasten ja nuorten rokotusohjelma

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

Lehdistötiedote tuli lopulta ulos uutisena 27.8.2014 tässä muodossa:

" Lasten rokottamiseen voi ottaa kantaa netissä

KOTIMAA 27.8.2014 2:00

Pauliina Grönholm

HELSINGIN SANOMAT

Terveyden ja hyvinvoinnin laitos THL on avannut verkkokeskustelun lasten rokotusohjelmaan kuuluvan pneumokokkirokotteen hankinnasta.

Keskustelussa kuka tahansa voi ottaa kantaa siihen, millaisia vertailuperusteita hankinnassa pitäisi käyttää. Valintakriteereitä voivat olla esimerkiksi hinta, teho ja annosten määrä.

"Rokotteiden hankinta on monimutkainen prosessi. Sitä hankintaa tällä on haluttu tehdä näkyväksi", kertoo THL:n ylilääkäri Hanna Nohynek.

"Lisäksi julkiset rokotuskeskustelut ovat aiheuttaneet usein kohuja ja huolta rokotusten turvallisuudesta ja asiantuntijoiden riippumattomuudesta."

Pneumokokkirokote annetaan rokoteohjelman mukaan lapselle kolmena pistoksena: kolmen, viiden ja kahdentoista kuukauden iässä.

Nykyisin annettavan rokotteen hankintasopimus umpeutuu ensi vuoden elokuussa. Hankintakilpailutuksen voittanut valmiste otetaan käyttöön vuodenvaihteessa 2015–2016.

"Osa rokotteista suojaa kymmeneltä pneumokokilta, osa taas antaa suojan 13:lle. Tätä voidaan painottaa hankinnassa, mikäli se koetaan tarpeelliseksi. Mitään rokotetta ei kuitenkaan voi suosia suoralta kädeltä, vaan siihen on oltava jotkut näyttöpohjaiset perusteet, joita keskustelussa nyt haetaan", Nohynek kertoo.

Keskustelua käydään THL:n ylläpitämällä wiki-pohjaisella sivustolla, jota kuka tahansa saa muokata.

Maallikolle sivusto voi vaikuttaa hieman vaikeaselkoiselta, Nohynek myöntää.

Vastaavaa avointa hankintaa ei hänen tietojensa mukaan ole kokeiltu missään muussa maassa.

"Mikäli kokemukset ovat onnistuneita, vastaavaa voidaan toteuttaa muidenkin rokotehankintojen kohdalla."

Seuraavaksi kilpailutettavaksi tulee influenssarokote kaudelle 2015–2016. Yhtenä vaihtoehtona voi olla nenäsumutteena annettava elävä rokote.

"Tähän voisi esimerkiksi pienten lasten vanhemmilla hyvinkin olla mielipiteitä siitä, mitä pidetään parempana."

Keskustelu osoitteessa: fi.opasnet.org/fi/pneumokokkirokote

Fakta

Rokote tehosi

Pneumokokkirokotukset aloitettiin Suomessa vuonna 2010. Ennen rokotuksia Suomessa todettiin vuosittain noin sata sairaalahoitoa vaativaa tulehdusta.
Rokote vähentää riskiä sairastua pneumokokin aiheuttamaan aivokalvontulehdukseen ja verenmyrkytykseen sekä vakavaan keuhkokuumeeseen.
Pneumokokki leviää pisaratartuntana. Tyypillisin oire on korkea kuume.

"

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

←--#: . 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. --Jouni Tuomisto (keskustelu) 27. kesäkuuta 2014 kello 14.02 (UTC) (type: truth; paradigms: science: defence)

Perusviesti jaettavaksi somessa

←--#: . Vielä pitää lisätä kyselystä maininta. --Jouni Tuomisto (keskustelu) 23. heinäkuuta 2014 kello 06.34 (UTC) (type: truth; paradigms: science: defence)

Mitä vertailuperusteita pitäisi käyttää kansalliseen rokotusohjelmaan kuuluvan pikkulasten pneumokokkirokotteen hankinnassa? Tämän kysymyksen ratkaisemiseksi Opasnetissä käydään kesän 2014 aikana avoin keskustelu, jonka lopputulos esitellään kansalliselle rokotussuositusasiantuntijaryhmälle (KRAR) ja sosiaali- ja terveysministeriön (STM) rokotehankintatyöryhmälle syyskuussa. Keskusteluun toivotaan mukaan niin rokoteasiantuntijoita kuin kansalaisiakin. Tervetuloa osallistumaan sivulla http://fi.opasnet.org/fi/Pneumokokkirokote

What comparison criteria should be used when selecting a new children's pneumococcal vaccine for the national vaccination program? This question will be resolved by open discussion and participation on a web workspace called Opasnet during summer 2014. The resolution will then be presented to the national vaccination expert group and the Ministry of Social Affairs and Health of Finland in September. National Institute for Health and Welfare (THL) is organising the open discussion and invites both vaccine experts and citizens to participate. See http://en.opasnet.org/w/Pneumococcal_vaccine

Rokotepäätöksentekoa voi avata kansalle

----#: . Olisiko Suomen Kuvalehteen tai Hesariin? --Jouni Tuomisto (keskustelu) 27. kesäkuuta 2014 kello 14.03 (UTC) (type: truth; paradigms: science: comment)

←--#: . Yritetään ensin Hesariin. --Jouni Tuomisto (keskustelu) 15. heinäkuuta 2014 kello 13.19 (UTC) (type: truth; paradigms: science: defence)

⇤--#: . Sata merkkiä liikaa Hesariin. --Jouni Tuomisto (keskustelu) 15. heinäkuuta 2014 kello 13.19 (UTC) (type: truth; paradigms: science: attack)

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

←--#: . Minusta tämä teksti on jo aika hyvä. Mainitun kyselyn on kuitenkin oltava valmis julkaisuhetkellä - siinä taitaa vielä olla vähän viilaamista. --Mikko Pohjola (keskustelu) 16. heinäkuuta 2014 kello 11.45 (UTC) (type: truth; paradigms: science: defence)

Työohje

----#: . Katso työtehtäviä myös sivulla Keskustelu:Liikenne ja viestintä digitaalisessa Suomessa 2020#Työnjako. --Jouni Tuomisto (keskustelu) 23. kesäkuuta 2014 kello 10.58 (UTC) (type: truth; paradigms: science: comment)

**Seurattavat sivut**
Sivut	Seurantaryhmä
Rokotteen vertailuperusteet · Keskustelu:Vertailuperusteet · Comparison criteria for vaccine ·	Pauli, Vilma
Epidemiologinen malli · Keskustelu:Epidemiologinen malli · Epidemiological modelling ·	Timo, Tuukka
Taloudellinen arviointi · Keskustelu:Taloudellinen arviointi · Economical assessment	Jaakko, Teemu
Pneumokokkirokotteen turvallisuus · Keskustelu:Pneumokokkirokotteen turvallisuus Näitä sivuja ei osallistujien pitäisi muokata, mutta kaiken varalta: Pneumokokkirokotteen hankinta kansalliseen rokotusohjelmaan · Tendering process for pneumococcal conjugate vaccine · Työjärjestys · Pneumokokkirokotevalmisteet · Kansallinen rokotusohjelma · Pneumokokkikonjugaattirokotteen vaikuttavuuden seuranta · Korvautuminen · Rokotesanasto ·	Matleena, Julia, Pauli

Tekijä	Tehtävä	Valmis?
Jaakko, Julia	[2] 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

Kohdistamon 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 --> Pneumokokkirokotekyselyn 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.!

Palaveri 21.7.

mainosviestin kirjoittaminen pneumokokkirokotekyselystä ja sen lähettäminen listattuihin sähköpostiosoitteisiin (Pauli, Jouni)
- jos ei elokuun alussa ole vielä mitään kuulunut, niin aletaan soittelemaan ihmisille
- kaikki voi jakaa kyselyn linkkiä tutuillensa http://fi.opasnet.org/fi/Pneumokokkirokotekysely
kyselyä saa myös parannella jos keksii siihen lisättävää tai haluaa muuttaa kysymyksenasettelua (kaikki)
Ympäristöministeriön tulevaisuuskatsauksen avainsanoittaminen ja siitä käydyn keskustelun jäsentäminen otakantaa.fi:stä opasnettiin (Matleena, Julia)
- Teemu hoitaa jakeistamisen ja tägikoneen sille sivulle?
syyseuraussuhteiden etsiminen (LVM) (Paulin rästityö)

Palaveri 28.7.

mainosviestin kirjoittaminen pneumokokkirokotekyselystä ja sen lähettäminen listattuihin sähköpostiosoitteisiin (Pauli, Jouni)
terveysvaikutukset, silakkamalli (Timo)
Ympäristöministeriön tulevaisuuskatsaus, luodaan linkit (Matleena ja Mori)
YM:n tulevaisuuskatsauksen avainsanoitus loppuun (Julia)
LVM:n jakeiden syyseuraussuhteet (Pauli)
Muovisten vesijohtoputkien maku- ja hajuhaitat, projektinimi Kohdistamossa H2O (kaikille kun töitä tarvitsee)

Palaveri 4.8.2014

Mori lähettää ainejärjestöille kutsun osallistua rokotehankkeeseen. Jouni kommentoi kutsua ja lähettää sen myös omille kontakteilleen.
Hannalta koetetaan saada kommentit mielipidekirjoitukseen, jotta saadaan se lehteen. Jouni hoitaa.
LVM:n työ on käytännössä valmis. Samilta odotetaan kommentteja, joitakin pieniä töitä voi vielä tulla.
Ympäristöministeriön tulevaisuuskatsaus on avainsanoitettu ja kakkososaan luotu relaatioita LVM:n katsaukseen. Tämäkin työ on valmis.
Uutena työnä on tullut op_en:IEHIAS, joka on vaikutusarviointisivuston siirtäminen Opasnettiin. Rahoitus on vielä vähän auki, mutta työ luultavasti päästään aloittamaan tällä viikolla. Valmistelevana työnä tehdään taulukko sivulle op_en:Talk:IEHIAS, johon listataan sivuston kaikki sivut ja uudet sivut, joille sisältö siirretään.

Palaveri 11.8.2014

Tilannekatsaus: soitin Hanna N:lle. Hän ei ole katsonut mielipidekirjoitusta mutta lupasi katsoa sen nyt kun on ensimmäistä päivää töissä. Se siis lähtenee huomenna tai ainakin pian.
Hanna sanoi, että infektiolääkäreille ja rokotefirmoille on aktiivisesti tiedotettu ja asiantuntijajoukko on siis tietoinen hankkeesta. Mutta Hannankin näkemys on se, että aihe on kuitenkin vaikea sisällöltään ja siksi myös osallistuttavuudeltaan. Hän kuitenkin lupasi pitää tämän porukan tietoisena.
Taloudellista mallia on kehitetty eteenpäin sivulle http://en.opasnet.org/w/Economic_evaluation ja siitä on ensimmäinen toimiva versio. Laskennassa on kuitenkin jotain häikkää ja tulokset eivät ole uskottavia. Tämä työ jatkuu. Lisäksi Heiniltä on tulossa tähän päivitetyt datat, nyt homma pyörii keksityllä datalla.
Uusi pieni työ: http://heande.opasnet.org/wiki/Sosiaali-_ja_terveysministeri%C3%B6n_tulevaisuuskatsaus_2014 otetaan Opasnettiin työstettäväksi, mutta vain teemen 5 (Ympäristö terveyden ja hyvinvoinnin tekijänä) osalta. Sitä varten pitäisi tehdä sivupohja käyttäen tätä pääsivuna: Sosiaali- ja terveysministeriön tulevaisuuskatsaus 2014. Sivusto rakennetaan siten, että muutkin neljä teemaa saadaan siihen helposti lisättyä jos halutaan. Mori
Muut osallistuvat IEHIAS-työn tekemiseen. Siitä on tehty nyt noin kolmannes sivuista (160/450). Matleenan ohjeet: Jokaisen sivun alussa on pieni tekstin pätkä siitä, että se on otettu IEHIASiasta, se tuleee joka sivulle, samoin kun IEHIAS-kategoria. Lisäks muita kategorioita joitka siihen sopi, esim exposure toimii joillain sivuilla. Jotkut sivut on vaan semmosia joilla on pelkästään linkkilistoja, ja niistä oon osan tehny kategorioiks jos ne on semmosia joista saa järkevän kategorian. Lisäksi, jos jollain sivulla viitataan sivuun, jota ei ole vielä olemassa, niin antakaa sille Opasnetiin nimi että voitte linkata siihen, ja merkitkää sinne taulukoon oikeen sivun kohalle se nimi, että sitten kun joku tekee sitä sivua niin tietää että se on se nimi jota pitää käyttää, koska siihen on linkki joltain aiemmalta sivulta.

Palaveri 18.8.2014

Kyselyyn on jo tullut jonkin verran vastauksia. Nyt vastaukset pitäisi käydä ajatuksella läpi ja katsoa mitä siitä saadaan irti. Erityisesti kiinnostaa kysymys 2: mitkä vertailuperusteet ovat suosituimpia? Tulokset pitäisi nostaa myös pääsivulle, jotta ne herättäisivät lisää keskustelua. Timo; Matleena avustaa.
Jyrki Kuoppalan meilit käydään läpi ja korjataan niiden perusteella löydetyt virheet ja tehdään täsmennykset. Kuitenkaan itse meilien sisältöä ei julkaista, koska siihen ei ole lupaa. Mori
IEAHIAS-työtä jatketaan. Jaakko ottaa Matleenan varaamat mutta keskeneräiset työt, Pauli tekee muut.
Mielipidekirjoitus muuttui Hesarin uutiseksi. Sen ulostuloa odotellaan ja toivotaan sen herätevaikutusta. Rokotekyselyyn on alkanut ilmaantua viime viikon alusta alkaen n. 30 sivulatausta päivässä. Tämä lienee Morin ainejärjestömeilin ansiota. Vastauksia kuitenkin tulee edelleen niukasti.

Palaveri 25.8.2014

Iehias sivujen wikistäminen loppuun. Jaakko ja Pauli hoitaa tällä viikolla.
Penumokokkirokote, palaute on ollut myönteistä rokoteosastolta. Osallistumisen laajuus ei ole tärkeintä vaan että opitaan tekemään tälläistä työtä. Kaikki mitä halutaan saada asiantuntijaryhmälle täytyy saada 8.9. mennessä Opasnettiin. Koskee pääasaissa Matleenaa ja Teemua. Vastuu sivut edelleen on kunkin seurattavana.
OpasnetUtils paketti. Teemu hoitaa tätä. Tavoitteena saada valmiiksi viikon aikana.
Uusi Helsingin ilmastontiekartta (?). Tehtävänanto ei ole vielä selvä, mutta on ajatuksena on kuitenkin ilmastoyhteenvedon luominen olemassa olevasta materiaalista. Työ ei vielä ala, koska vielä ei tiedetä minkä materiaalin pohjalta työ tehdään.
Syksyn työ tilanne. Työtä on, ja kynnelle kykenevät pystyvät jatkamaan töitä vielä syyskuun puolellakin.
Opasnetin ohjesivut ovat myös päivityksen ja muokkauksen kohteena. Matleena ottaa työn hommakseen.

Palaveri 1.9.2014

IEHIAS on vielä vähän kesken, ja Jaakko jo siirtyi opiskelemaan. Pauli hoitaa loput sivut kuntoon tänään tai huomenna.
Pneumokokkirokotteeseen on tullut yhteensä yli 40 kyselyvastausta, Pfizerilta 6 kommenttia, 1 muu kommentti ja Rokotusinfolta sähköpostia. Eli osallistuminen on ollut selkeästi nollaa suurempaa ja ehkä tätä on pidettävä kohtuullisena. Yllättävää on, että Hesarin uutisen 27.8. jälkeen ei ole nähtävissä mitään lukijapiikkiä.
Sisällöt on saatava ojennukseen 8.9. mennessä, koska silloin materiaali lähtee KRARille. Tätä varten tehdään seuraavaa:
- Matleena päivittää sivuille tiedon tästä aikataulusta.
- Pauli katsoo läpi Pfizerin kommentit Vertailuperusteet-sivulta. Apua tarvittaessa Jounilta ja Matleenalta.
- Timo päivittää kyselyvastaukset, poistaa tuplat ja päivittää kuvia niin että eri kyselyversioiden vastaukset ovat erotettavissa. Timo tekee myös päätelmiä tuloksista, Jouni tässä mukana.
- Jouni katsoo Morin työstämät Rokotusinfon kommentit sekä kaikkea edellä mainittua yleisesti.
Helsingin ilmastotiekartassa Matleena on tehnyt pohjatyötä wikistämällä muutaman raportin. Hän tekee tämän työn loppuun tänään.
Ilmastotiekartasta pidetään kokous huomenna, jonka jälkeen annetaan tarkempia työohjeita. Luultavasti tehtävänä on etsiä ja tutkia eri ilmastopolitiikkojen välisiä tai sisäisiä ristiriitaisuuksia tai toisaalta yhteyksiä muihin politiikkoihin.

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).

Aihe	Erikoistuva henkilö	Tilanne
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
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
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ökalun 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 Opasnet-mallinnus.
Päivitettyjen ohjeiden kirjoittaminen näistä menetelmistä. Menetelmien edelleen kehittäminen tämän hankkeen oppien perusteella.

Ero sivun ”Keskustelu:Pneumokokkirokotteen hankinta kansalliseen rokotusohjelmaan” versioiden välillä

Nykyinen versio 4. lokakuuta 2014 kello 13.38

Sisällys

Yhtäkkiä rokotuskohua ei olekaan syntynyt

Kansallinen rokotusasiantuntijaryhmä KRAR

Aikataulu

Tägikone

Versiot

Jakeet

Jakeiden päivitys

Avainsanat

Relaatiot

Kehittyneemmät hakukoneet

Viestintä

Lehdistötiedote 3.7.2014

Perusviesti jaettavaksi somessa

Rokotepäätöksentekoa voi avata kansalle

Työohje

Viikkopalaverit

Erikoistumissuunnitelma

Työn osat

Katso myös

Navigointivalikko

@@ Rivi 1: / Rivi 1: @@
 ;: ''Tämä sivu käsittelee pneumokokkirokotearvioinnin käytännön töiden järjestelyjä. Varsinainen arviointi ja keskustelu ohjeistetaan sivulla [[Pneumokokkirokotteen hankinta kansalliseen rokotusohjelmaan]].
+==  Yhtäkkiä rokotuskohua ei olekaan syntynyt ==
+:''Kirjoitus on julkaistu Potilaan lääkärilehdessä, Kommentit 04.10.2014. [http://www.potilaanlaakarilehti.fi/kommentit/yhtakkia-rokotuskohua-ei-olekaan-syntynyt/#.VC_2b3fcDAw] Lehden asiasanat [http://www.potilaanlaakarilehti.fi/asiasanat/rokotukset/ rokotukset] [http://www.potilaanlaakarilehti.fi/asiasanat/pneumokokkirokote/ pneumokokkirokote]
+Minkälaisia rokotteita haluaisit että valtio ostaa veroeuroillasi? Olisitko valmis maksamaan laatuerosta kahden rokotteen välillä? Ja miten laadun määrittelisit ja mittaisit? Miten kirjoittaisit auki vertailuperusteet niin, että ne olisivat oikeudenmukaiset etkä ehdoin tahdoin suosisi yhtä valmistajaa toisen kustannuksella? Kaikki nämä asiat – ja paljon muutakin – ovat mietinnän keskiössä, kun kansallisen rokotusohjelman hankinnoille laaditaan tarjouskilpailun kriteereitä lain määräämissä rajoissa. Kuten tänä syksynä pikkulasten pneumokokkirokotehankinnalle.
+Aiemmin vastaavia hankintoja on valmisteltu visusti neljän seinän sisällä ja usean oven takana. Nyt ehdotettiin, että prosessi pitäisi avata läpinäkyvämmäksi lisäämällä eri intressiryhmien kuulemistilaisuuksia. Eristäytymisen muurien minimalistisen purkamisen sijasta valitsimme kuitenkin kurssin täyskäännöksen. Koska mitään salattavaa ei ole eikä absoluuttista totuutta omista kukaan, läpinäkyvyyttä yritetään saavuttaa hyödyntämällä avoimen päätöksenteon periaatteita ja työvälineitä. Oletukset, mallit ja niiden lopputulemat on laitettu tiskille kaiken kansan nähtäväksi ja kommentoitavaksi. Kysyköön se joka ei ymmärrä. Ehdottakoon se joka enemmän tietää tai se, jota liiallisen tietämisen pakkopaita ei rajoita. Pistettäköön paremmaksi kaikin mahdollisin keinoin!
+Tämä saattaa vaikuttaa ehkä liiankin populistiselta selviytymiskeinolta nykyhetkessä, kun julkisia rokotuskeskusteluja käydään usein kohujen saattelemana. Kohut luovat aiheetonta huolta ja epäilyä rokotusten turvallisuudesta. Ne leimaavat kohujen keskiössä olevat ja kyseenalaistavat asiantuntijuuden. Rokotuksia koskevaa tietoa voi siten olla vaikea tulkita. Lisäksi rokotteisiin liittyy väestön, yksilön ja lääketeollisuuden intressejä, mikä herättää intohimoja ja epäluuloja, jotka edelleen mutkistavat rokotuksiin liittyvää päätöksentekoa.
+Aineiston ja menetelmien avaamisella on avoimen päätöksenteon hengen mukaisesti saatu nyt aikaan avoin, järkiperäinen ja perustellen käyty hyviä päätössuosituksia tuottava julkinen keskustelu. Kaikki halukkaat ovat voineet osallistua keskusteluun wikipohjaisella sivustolla joko kommentoimalla tai vastaamalla asiantuntijoiden esittämiin väittämiin. Sivusto on samalla toiminut työtilana, jonne on kerätty tarvittavaa taustatietoa sekä epidemiologisia ja taloudellisen arvioinnin laskentamalleja niin suomen- kuin englanninkielisiä keskustelijoita varten. Kuka tahansa on voinut perehtyä päätösvalmistelun perusteisiin yksityiskohtia myöten ja myös kommentoida niitä avoimessa keskustelussa, joko nimellään tai nimimerkillä.
+Ja kas – yhtäkkiä ei kohua olekaan syntynyt. Itse asiassa sen kahden kuukauden ajan, kun keskusteluun on avoimesti voinut ottaa osaa, aktiivisten keskustelijoiden määrä on ollut päätähuimaavan pieni. Sivuja kurkkineita on satoja, mutta lääketeollisuuden asiantuntijat ovat ainoina osoittaneet arviointiprosessin kipupisteitä ja argumentoineet omista näkökulmistaan. Kaikki muut, kiihkeimmin ja kovimmin huutavat kriitikot ja trollit mukaan lukien, ovat vaienneet itsensä läpinäkyvän näkymättömiksi.
+Olisiko niin että vihdoin on löytynyt foorumi, jolla vaikeastakin aiheesta voidaan käydä avointa keskustelua, joka tuottaa uutta tietoa ja näkemystä sekä monipuolistaa yhteiskunnallisten päätösten valmistelua? Voisiko tätä mallia soveltaa rohkeasti myös muihin kiperiin aiheisiin?
+[[Pneumokokkirokotteen hankinta kansalliseen rokotusohjelmaan]]
+:Hanna Nohynek
+:Kirjoittaja on ylilääkäri THL:ssä.
+== Kansallinen rokotusasiantuntijaryhmä KRAR ==
+Kokoonpano 4.7.2014 alkaen
+* Harri Saxén, lasten infektiotautien professori, Helsingin yliopisto (pj)
+* Markku Broas, sisätautuien ja infektiosairauksien EL, Suomen Infektiolääkärit ry
+* Tiina Jaakkola, ylilääkäri, Fimea
+* Anu Kantele, sisätautien ja infektiosairauksien EL, Suomen Infektiolääkärit ry
+* Jane Marttila, kliinisen mikrobiologian EL, Suomen Yleislääkärit ry
+* Tea Nieminen, lasten infektiolääkäri, Suomen Lastenlääkäriyhdistys ry
+* Taneli Puumalainen, ylilääkäri, sosiaali- ja terveysministeriö
+* Anne Ylönen, kehittämispäällikkö, Suomen Terveydenhoitajaliitto STHL ry
+* Merit Melin, THL
+* Jukka Jokinen, THL
+* Pekka Nuorti, THL
+* Heini Salo, THL
+* Hanna Nohynek, THL (siht)
 == Aikataulu ==
@@ Rivi 31: / Rivi 69: @@
 </t2b>
-=== Jakeet ===
+===Jakeet===
 '''Kaikkien kenttien arvot saa erotella pilkuilla tässä haussa'''
 <rcode label="Näytä jakeet" name="jakeet" embed=1 variables="
-	name:sivu|description:Mikä on lähtöjakeen sivu?|type:selection|options:
+	name:sivu|description:Sivu jolta jakeita haetaan|type:selection|options:
-		NULL;Kaikki;
+		NULL;Kaikilta;
 		'Epidemiologinen malli';Epidemiologinen malli;
 		'Pneumokokkirokotteen turvallisuus';Pneumokokkirokotteen turvallisuus;
 		'Taloudellinen arviointi';Taloudellinen arviointi;
 		'Vertailuperusteet';Vertailuperusteet|
-	name:jaeid|description:Mikä on lähtöjakeen ID?|type:text|default:kaikki|
+	name:jaeid|description:Anna halutessasi jakeen ID(:t)|type:text|default:hae kaikki|
-	name:version|description:Mikä on lähtöjakeen versio?|type:text|default:nykyinen|
+	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 == "kaikki")) {
+if (tolower(jaeid == "hae kaikki")) {
 	jaeid <- NULL
 } else {
@@ Rivi 67: / Rivi 105: @@
 if (nrow(out) > 0) {
-	oprint(out)
+	oprint(out, include.rownames = FALSE)
 } else {
 	cat("Jakeita ei löytynyt!\n")
@@ Rivi 75: / Rivi 113: @@
 <rcode label="Poista jae" name="jakeenpoisto" embed=1 variables="
-	name:sivu|description:Mikä on lähtöjakeen sivu?|type:selection|options:
+	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:Mikä on lähtöjakeen ID?|type:text|default:kaikki|
+	name:jaeid|description:Poistettavan jakeen ID (pilkulla eroteltuna useampia)|type:text|
-	name:version|description:Mikä on lähtöjakeen versio?|type:text|default:nykyinen|
+	name:version|description:Versio|type:text|default:nykyinen|
 	name:syy|description:Poiston syy|type:selection|options:
-		'';- Valitse syy -;
+		' ';- Valitse syy -;
 		'Tekninen jae';Tekninen jae;
 		'Jae ei liity sivun aiheeseen';Jae ei liity sivun aiheeseen;
@@ Rivi 94: / Rivi 132: @@
 jaeid <- strsplit(jaeid, ",", fixed = TRUE)[[1]]
 jaeid <- gsub(" ", "", jaeid)
+if (sum(nchar(jaeid)) == 0) stop("Anna jakeen ID")
 if (tolower(version) == "nykyinen") {
@@ Rivi 103: / Rivi 143: @@
 out <- data.frame(
-	Versio = versio,
+	Versio = version,
 	Sivu = sivu,
 	Aika = date(),
@@ Rivi 113: / Rivi 153: @@
 opbase.upload(
 	out,
-	name = pagename,
 	who = wiki_username,
+	name = pagename,
 	subset = "Jakeenpoistot",
 	act_type = "append",
@@ Rivi 122: / Rivi 162: @@
 <rcode label="Lisää jae" name="jakeenlisays" embed=1 variables="
-	name:sivu|description:Mille sivulle haluat lisätä jakeen?|type:selection|options:
+	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:Mikä versio?|type:text|default:nykyinen|
+	name:version|description:Versio|type:text|default:nykyinen|
-	name:sisalto|description:Jakeen sisältö|type:textbox
+	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") {
@@ Rivi 164: / Rivi 207: @@
 === 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}}}}}'|
@@ Rivi 171: / Rivi 214: @@
 library(OpasnetUtils)
 objects.latest("Op_fi4325", "apufunktiot")
-parse_page <- function(url, url_args = "", nchar_threshold = 11) {
-	turl <- paste(url, url_args, "&action=render", sep = "")
-	a <- opasnet.page(turl, wiki = "opasnet_fi")
-	par <- gregexpr("<p>(.*?)</p>", a)[[1]]
-	par_out <- substr(rep(a, length(par)), par, par + attributes(par)$match.length)
-	par_out <- gsub("<p>", "", par_out)
-	par_out <- gsub("</p>", "", par_out)
-	table <- gregexpr("<table[^>]*>(.*?)</table>", a)[[1]]
-	td <- gregexpr("<td[^>]*>(.*?)</td>", a)[[1]]
-	#th <- gregexpr("<th[^>]*>(.*?)</th>", a)[[1]]
-	table_out <- substr(rep(a, length(td)), td, td + attributes(td)$match.length)
-	table_out <- gsub("<td[^>]*>", "", table_out)
-	table_out <- gsub("</td>", "", table_out)
-	# Use paragraphs in table cells to break content (glitchy?)
-	# At least it removes duplicates of <p> (due to matching <p> search as well as <td>)
-	tdppos <- gregexpr("<p>(.*?)</p>", table_out)
-	table_out <- gsub("<p>(.*?)</p>", "<super_separator>", table_out)
-	tdp <- strsplit(table_out, "<super_separator>")
-	tdpl <- sapply(tdp, length)
-	temp <- list()
-	# Find begin positions of <p> separated bits in <td>
-	for (i in (1:length(tdp))[tdpl > 1]) {
-		temp[[i]] <- c(0, tdppos[[i]] + attributes(tdppos[[i]])$match.length) + td[i]
-	}
-	# Filter <td> with <p>
-	filter <- logical()
-	for (i in 1:length(tdp)) {
-		if (tdpl[i] == 1) val <- FALSE else val <- TRUE
-		filter <- c(filter, rep(val, tdpl[i]))
-	}
-	tdp <- unlist(tdp)[filter]
-	filter <- -(1:length(tdpl))[tdpl > 1]
-	# Filter out
-	table_out <- table_out[filter]
-	td <- td[filter]
-	# Add new bits and positions to end of filtered original
-	table_out <- c(table_out, tdp)
-	td <- c(td, unlist(temp))
-	li <- gregexpr("<li>(.*?)</li>", a)[[1]]
-	li_out <- substr(rep(a, length(li)), li, li + attributes(li)$match.length)
-	li_out <- gsub("<li>", "", li_out)
-	li_out <- gsub("</li>", "", li_out)
-	dd <- gregexpr("<dd>(.*?)</dd>", a)[[1]]
-	dd_out <- substr(rep(a, length(dd)), dd, dd + attributes(dd)$match.length)
-	dd_out <- gsub("<dd>", "", dd_out)
-	dd_out <- gsub("</dd>", "", dd_out)
-	out <- c(par_out, table_out, li_out, dd_out)
-	pos <- order(c(par, td, li, dd))
-	out <- out[pos]
-	pos <- c(par, td, li, dd)[pos]
-	filter <- nchar(out) > nchar_threshold
-	out <- out[filter]
-	pos <- pos[filter]
-	# Level 2 header = Topic
-	h2 <- gregexpr("<h2>(.*?)</h2>", a)[[1]]
-	h2_out <- substr(rep(a, length(par)), h2, h2 + attributes(h2)$match.length)
-	h2_out <- gsub("<[^>]*>", "", h2_out)
-	out <- data.frame(
-		Aihe = NA,
-		JaeID = as.character(1:length(out)),
-		Result = out
-	)
-	for (i in 1:length(h2)) {
-		filter2 <- pos < c(h2, Inf)[i + 1] & pos > h2[i]
-		out$Aihe[filter2] <- h2_out[i]
-	}
-	return(out)
-}
 versiot <- get_meta_data(ident)
@@ Rivi 282: / Rivi 244: @@
 </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"
+)
+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"
+	)
+}
+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 = unique(c(
+				as.character(rel$Sivu1),
+				as.character(rel$Sivu2)
+		)),
+		versio = version,
+		jae = unique(c(
+			as.character(rel$JaeID1),
+			as.character(rel$JaeID2)
+		))
+	)
+	if (nrow(jakeet) == 0) stop("Relaatioissa listattuja jakeita ei löytynyt!")
+	# Relaatiot
+	if (nrow(rel[!(rel$Relaatio %in% sis_opt),]) > 0) {
+		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", "RelaatioID", "Sivu1", "JaeID1", "Jae1", "Relaatio", "Sivu2", "JaeID2", "Jae2")],
+				include.rownames = FALSE,
+				caption = "Relaatiot",
+				caption.placement = "top"
+		)
+	} else {
+		cat("Ei relaatioita!\n")
+	}
+	# Sisällytykset
+	if (nrow(rel[(rel$Relaatio %in% sis_opt),]) > 0) {
+		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", "RelaatioID", "Sivu1", "JaeID1", "Jae1", "Sisällytys", "Sivu2", "JaeID2", "Jae2")],
+			include.rownames = FALSE,
+			caption = "Sisällytys (uudempaan versioon)",
+			caption.placement = "top"
+		)
+	} else {
+		cat("Ei sisällytyksiä!\n")
+	}
+}
+</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.png|thumb|400px|Pneumokokkirokotesivun kävijämäärät Opasnetissä 1.7.2014 alkaen.]]
-[[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.]]
+[[File:Pneumokokkirokotteen kävijämäärät op_en.png|thumb|400px|Pneumokokkirokotesivun kävijämäärät englanninkielisessä Opasnetissä 1.7.2014 alkaen.]]
 === Lehdistötiedote 3.7.2014 ===
@@ Rivi 332: / Rivi 948: @@
 Päivitetty 4.7.2014
+:'' Lehdistötiedote tuli lopulta ulos uutisena 27.8.2014 tässä muodossa:
+"
+'''Lasten rokottamiseen voi ottaa kantaa netissä
+:KOTIMAA 27.8.2014 2:00
+:Pauliina Grönholm
+:HELSINGIN SANOMAT
+Terveyden ja hyvinvoinnin laitos THL on avannut verkkokeskustelun lasten rokotusohjelmaan kuuluvan pneumokokkirokotteen hankinnasta.
+Keskustelussa kuka tahansa voi ottaa kantaa siihen, millaisia vertailuperusteita hankinnassa pitäisi käyttää. Valintakriteereitä voivat olla esimerkiksi hinta, teho ja annosten määrä.
+"Rokotteiden hankinta on monimutkainen prosessi. Sitä hankintaa tällä on haluttu tehdä näkyväksi", kertoo THL:n ylilääkäri Hanna Nohynek.
+"Lisäksi julkiset rokotuskeskustelut ovat aiheuttaneet usein kohuja ja huolta rokotusten turvallisuudesta ja asiantuntijoiden riippumattomuudesta."
+Pneumokokkirokote annetaan rokoteohjelman mukaan lapselle kolmena pistoksena: kolmen, viiden ja kahdentoista kuukauden iässä.
+Nykyisin annettavan rokotteen hankintasopimus umpeutuu ensi vuoden elokuussa. Hankintakilpailutuksen voittanut valmiste otetaan käyttöön vuodenvaihteessa 2015–2016.
+"Osa rokotteista suojaa kymmeneltä pneumokokilta, osa taas antaa suojan 13:lle. Tätä voidaan painottaa hankinnassa, mikäli se koetaan tarpeelliseksi. Mitään rokotetta ei kuitenkaan voi suosia suoralta kädeltä, vaan siihen on oltava jotkut näyttöpohjaiset perusteet, joita keskustelussa nyt haetaan", Nohynek kertoo.
+Keskustelua käydään THL:n ylläpitämällä wiki-pohjaisella sivustolla, jota kuka tahansa saa muokata.
+Maallikolle sivusto voi vaikuttaa hieman vaikeaselkoiselta, Nohynek myöntää.
+Vastaavaa avointa hankintaa ei hänen tietojensa mukaan ole kokeiltu missään muussa maassa.
+"Mikäli kokemukset ovat onnistuneita, vastaavaa voidaan toteuttaa muidenkin rokotehankintojen kohdalla."
+Seuraavaksi kilpailutettavaksi tulee influenssarokote kaudelle 2015–2016. Yhtenä vaihtoehtona voi olla nenäsumutteena annettava elävä rokote.
+"Tähän voisi esimerkiksi pienten lasten vanhemmilla hyvinkin olla mielipiteitä siitä, mitä pidetään parempana."
+Keskustelu osoitteessa: fi.opasnet.org/fi/pneumokokkirokote
+'''Fakta
+Rokote tehosi
+* Pneumokokkirokotukset aloitettiin Suomessa vuonna 2010. Ennen rokotuksia Suomessa todettiin vuosittain noin sata sairaalahoitoa vaativaa tulehdusta.
+* Rokote vähentää riskiä sairastua pneumokokin aiheuttamaan aivokalvontulehdukseen ja verenmyrkytykseen sekä vakavaan keuhkokuumeeseen.
+* Pneumokokki leviää pisaratartuntana. Tyypillisin oire on korkea kuume.
+"
 ----
@@ Rivi 347: / Rivi 1 007: @@
 {{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)}}
+=== Perusviesti jaettavaksi somessa ===
+{{defend|# |Vielä pitää lisätä kyselystä maininta.|--[[Käyttäjä:Jouni|Jouni Tuomisto]] ([[Keskustelu käyttäjästä:Jouni|keskustelu]]) 23. heinäkuuta 2014 kello 06.34 (UTC)}}
+Mitä vertailuperusteita pitäisi käyttää kansalliseen rokotusohjelmaan kuuluvan pikkulasten pneumokokkirokotteen hankinnassa? Tämän kysymyksen ratkaisemiseksi Opasnetissä käydään kesän 2014 aikana avoin keskustelu, jonka lopputulos esitellään kansalliselle rokotussuositusasiantuntijaryhmälle (KRAR) ja sosiaali- ja terveysministeriön (STM) rokotehankintatyöryhmälle syyskuussa. Keskusteluun toivotaan mukaan niin rokoteasiantuntijoita kuin kansalaisiakin. Tervetuloa osallistumaan sivulla http://fi.opasnet.org/fi/Pneumokokkirokote
+What comparison criteria should be used when selecting a new children's pneumococcal vaccine for the national vaccination program? This question will be resolved by open discussion and participation on a web workspace called Opasnet during summer 2014. The resolution will then be presented to the national vaccination expert group and the Ministry of Social Affairs and Health of Finland in September. National Institute for Health and Welfare (THL) is organising the open discussion and invites both vaccine experts and citizens to participate. See http://en.opasnet.org/w/Pneumococcal_vaccine
 === 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.
-* Rokotteet ovat tärkeä osa kansanterveyden edistämistä ja turvaamista.
+: Hanna Nohynek, ylilääkäri
-* Kuitenkin ne aiheuttavat myös huolta ja epäilyjä turvallisuudesta.
+: Jouni Tuomisto, johtava tutkija
-* Tutkimustieto ja tiedon epävarmuus, henkilökohtaiset kipeät kokemukset, vahvat käsitykset vaikuttavat rokotepäätöksentekoon ja tekevät siitä konstikasta.
+: Terveyden ja hyvinvoinnin laitos
-* Jyrkkien rintamalinjojen sijasta pitäisi yrittää jaetun ymmärryksen rakentamista siitä, mitä tiedetään, mitä ei tiedetä, mistä ollaan samaa mieltä, mistä eri mieltä ja miksi.
-* Nyt halutaan nähdä, voiko parempia päätöksiä tehdä avaamalla ja jäsentämällä tällaista keskustelua mahdollisimman aikaisin.
-* Aiheena pneumokokkirokotteen hankinta ja rokotteiden vertailuperusteet.
-* Kokemukset vaikuttavat siihen, halutaanko päätöksentekoa jatkossa avata kansalais- ja asiantuntijakeskustelulle laajemminkin.
-: Hanna Nohynek, Jouni Tuomisto {{comment|# |ketkä kirjoittajiksi?|--[[Käyttäjä:Jouni|Jouni Tuomisto]] ([[Keskustelu käyttäjästä:Jouni|keskustelu]]) 27. kesäkuuta 2014 kello 14.03 (UTC)}}
+{{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 ==
@@ Rivi 433: / Rivi 1 114: @@
 ; Palaveri 14.7.2014
-* Kohdistamon tuntikirjaukset kuntoon! ("Oletus" projektit muutettava oikeiksi projekteiksi)
+* [[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?
+* Henkilökohtaiset yhteydenotot. Kenelle? Ideoikaa ja kerätkää yhteytietoja sivulle [[:heande:Pneumokokkirokote]].
-** Rokotusinfo, kantelun jättäneet, aamu-TV / ajankohtaisohjelmat, lääketieteen opiskelijat, partiolääkärit?
+* Rokotekeskustelun tärkeät kysymykset --> [[Pneumokokkirokotekysely]]n tekeminen (Jaakko & Jouni). Yritetään saada valmiiksi 17.7.!
-* Rokotekeskustelun tärkeät kysymykset --> kyselyn tekeminen (Jaakko & Jouni)
 ** 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.
@@ Rivi 443: / Rivi 1 123: @@
 * 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.!
+;Palaveri 21.7.
+*mainosviestin kirjoittaminen pneumokokkirokotekyselystä ja sen lähettäminen listattuihin sähköpostiosoitteisiin (Pauli, Jouni)
+**jos ei elokuun alussa ole vielä mitään kuulunut, niin aletaan soittelemaan ihmisille
+**kaikki voi jakaa kyselyn linkkiä tutuillensa http://fi.opasnet.org/fi/Pneumokokkirokotekysely
+*kyselyä saa myös parannella jos keksii siihen lisättävää tai haluaa muuttaa kysymyksenasettelua (kaikki)
+*Ympäristöministeriön tulevaisuuskatsauksen avainsanoittaminen ja siitä käydyn keskustelun jäsentäminen otakantaa.fi:stä opasnettiin (Matleena, Julia)
+**Teemu hoitaa jakeistamisen ja tägikoneen sille sivulle?
+*syyseuraussuhteiden etsiminen (LVM) (Paulin rästityö)
+;Palaveri 28.7.
+*mainosviestin kirjoittaminen pneumokokkirokotekyselystä ja sen lähettäminen listattuihin sähköpostiosoitteisiin (Pauli, Jouni)
+*terveysvaikutukset, silakkamalli (Timo)
+*Ympäristöministeriön tulevaisuuskatsaus, luodaan linkit (Matleena ja Mori)
+*YM:n tulevaisuuskatsauksen avainsanoitus loppuun (Julia)
+*LVM:n jakeiden syyseuraussuhteet (Pauli)
+*[[Muovisten vesijohtoputkien maku- ja hajuhaitat]], projektinimi Kohdistamossa H2O (kaikille kun töitä tarvitsee)
+;Palaveri 4.8.2014
+* Mori lähettää ainejärjestöille kutsun osallistua rokotehankkeeseen. Jouni kommentoi kutsua ja lähettää sen myös omille kontakteilleen.
+* Hannalta koetetaan saada kommentit mielipidekirjoitukseen, jotta saadaan se lehteen. Jouni hoitaa.
+* LVM:n työ on käytännössä valmis. Samilta odotetaan kommentteja, joitakin pieniä töitä voi vielä tulla.
+* Ympäristöministeriön tulevaisuuskatsaus on avainsanoitettu ja kakkososaan luotu relaatioita LVM:n katsaukseen. Tämäkin työ on valmis.
+* Uutena työnä on tullut [[:op_en:IEHIAS]], joka on vaikutusarviointisivuston siirtäminen Opasnettiin. Rahoitus on vielä vähän auki, mutta työ luultavasti päästään aloittamaan tällä viikolla. Valmistelevana työnä tehdään taulukko sivulle [[:op_en:Talk:IEHIAS]], johon listataan sivuston kaikki sivut ja uudet sivut, joille sisältö siirretään.
+;Palaveri 11.8.2014
+*  Tilannekatsaus: soitin Hanna N:lle. Hän ei ole katsonut mielipidekirjoitusta mutta lupasi katsoa sen nyt kun on ensimmäistä päivää töissä. Se siis lähtenee huomenna tai ainakin pian.
+* Hanna sanoi, että infektiolääkäreille ja rokotefirmoille on aktiivisesti tiedotettu ja asiantuntijajoukko on siis tietoinen hankkeesta. Mutta Hannankin näkemys on se, että aihe on kuitenkin vaikea sisällöltään ja siksi myös osallistuttavuudeltaan. Hän kuitenkin lupasi pitää tämän porukan tietoisena.
+* Taloudellista mallia on kehitetty eteenpäin sivulle http://en.opasnet.org/w/Economic_evaluation ja siitä on ensimmäinen toimiva versio. Laskennassa on kuitenkin jotain häikkää ja tulokset eivät ole uskottavia. Tämä työ jatkuu. Lisäksi Heiniltä on tulossa tähän päivitetyt datat, nyt homma pyörii keksityllä datalla.
+* Uusi pieni työ: http://heande.opasnet.org/wiki/Sosiaali-_ja_terveysministeri%C3%B6n_tulevaisuuskatsaus_2014 otetaan Opasnettiin työstettäväksi, mutta vain teemen 5 (Ympäristö terveyden ja hyvinvoinnin tekijänä) osalta. Sitä varten pitäisi tehdä sivupohja käyttäen tätä pääsivuna: [[Sosiaali- ja terveysministeriön tulevaisuuskatsaus 2014]]. Sivusto rakennetaan siten, että muutkin neljä teemaa saadaan siihen helposti lisättyä jos halutaan. '''Mori'''
+* '''Muut''' osallistuvat IEHIAS-työn tekemiseen. Siitä on tehty nyt noin kolmannes sivuista (160/450). Matleenan ohjeet: Jokaisen sivun alussa on pieni tekstin pätkä siitä, että se on otettu IEHIASiasta, se tuleee joka sivulle, samoin kun IEHIAS-kategoria. Lisäks muita kategorioita joitka siihen sopi, esim exposure toimii joillain sivuilla. Jotkut sivut on vaan semmosia joilla on pelkästään linkkilistoja, ja niistä oon osan tehny kategorioiks jos ne on semmosia joista saa järkevän kategorian. Lisäksi, jos jollain sivulla viitataan sivuun, jota ei ole vielä olemassa, niin antakaa sille Opasnetiin nimi että voitte linkata siihen, ja merkitkää sinne taulukoon oikeen sivun kohalle se nimi, että sitten kun joku tekee sitä sivua niin tietää että se on se nimi jota pitää käyttää, koska siihen on linkki joltain aiemmalta sivulta.
+; Palaveri 18.8.2014
+* Kyselyyn on jo tullut jonkin verran vastauksia. Nyt vastaukset pitäisi käydä ajatuksella läpi ja katsoa mitä siitä saadaan irti. Erityisesti kiinnostaa kysymys 2: mitkä vertailuperusteet ovat suosituimpia? Tulokset pitäisi nostaa myös pääsivulle, jotta ne herättäisivät lisää keskustelua. '''Timo; Matleena avustaa.
+* Jyrki Kuoppalan meilit käydään läpi ja korjataan niiden perusteella löydetyt virheet ja tehdään täsmennykset. Kuitenkaan itse meilien sisältöä ei julkaista, koska siihen ei ole lupaa. '''Mori'''
+* IEAHIAS-työtä jatketaan. '''Jaakko''' ottaa Matleenan varaamat mutta keskeneräiset työt, '''Pauli''' tekee muut.
+* Mielipidekirjoitus muuttui Hesarin uutiseksi. Sen ulostuloa odotellaan ja toivotaan sen herätevaikutusta. Rokotekyselyyn on alkanut ilmaantua viime viikon alusta alkaen n. 30 sivulatausta päivässä. Tämä lienee Morin ainejärjestömeilin ansiota. Vastauksia kuitenkin tulee edelleen niukasti.
+; Palaveri 25.8.2014
+* Iehias sivujen wikistäminen loppuun. Jaakko ja Pauli hoitaa tällä viikolla.
+* Penumokokkirokote, palaute on ollut myönteistä rokoteosastolta. Osallistumisen laajuus ei ole tärkeintä vaan että opitaan tekemään tälläistä työtä.  Kaikki mitä halutaan saada asiantuntijaryhmälle täytyy saada 8.9. mennessä Opasnettiin.  Koskee pääasaissa Matleenaa ja Teemua. Vastuu sivut edelleen on kunkin seurattavana.
+* OpasnetUtils paketti. Teemu hoitaa tätä. Tavoitteena saada valmiiksi viikon aikana.
+* Uusi Helsingin ilmastontiekartta (?). Tehtävänanto ei ole vielä selvä, mutta on ajatuksena on kuitenkin ilmastoyhteenvedon luominen olemassa olevasta materiaalista. Työ ei vielä ala, koska vielä ei tiedetä minkä materiaalin pohjalta työ tehdään.
+* Syksyn työ tilanne. Työtä on, ja kynnelle kykenevät pystyvät jatkamaan töitä vielä syyskuun puolellakin.
+* Opasnetin ohjesivut ovat myös päivityksen ja muokkauksen kohteena. Matleena ottaa työn hommakseen.
+; Palaveri 1.9.2014
+* IEHIAS on vielä vähän kesken, ja Jaakko jo siirtyi opiskelemaan. Pauli hoitaa loput sivut kuntoon tänään tai huomenna.
+* Pneumokokkirokotteeseen on tullut yhteensä yli 40 kyselyvastausta, Pfizerilta 6 kommenttia, 1 muu kommentti ja Rokotusinfolta sähköpostia. Eli osallistuminen on ollut selkeästi nollaa suurempaa ja ehkä tätä on pidettävä kohtuullisena. Yllättävää on, että Hesarin uutisen 27.8. jälkeen ei ole nähtävissä mitään lukijapiikkiä.
+* Sisällöt on saatava ojennukseen 8.9. mennessä, koska silloin materiaali lähtee KRARille. Tätä varten tehdään seuraavaa:
+** Matleena päivittää sivuille tiedon tästä aikataulusta.
+** Pauli katsoo läpi Pfizerin kommentit Vertailuperusteet-sivulta. Apua tarvittaessa Jounilta ja Matleenalta.
+** Timo päivittää kyselyvastaukset, poistaa tuplat ja päivittää kuvia niin että eri kyselyversioiden vastaukset ovat erotettavissa. Timo tekee myös päätelmiä tuloksista, Jouni tässä mukana.
+** Jouni katsoo Morin työstämät Rokotusinfon kommentit sekä kaikkea edellä mainittua yleisesti.
+* Helsingin ilmastotiekartassa Matleena on tehnyt pohjatyötä wikistämällä muutaman raportin. Hän tekee tämän työn loppuun tänään.
+* Ilmastotiekartasta pidetään kokous huomenna, jonka jälkeen annetaan tarkempia työohjeita. Luultavasti tehtävänä on etsiä ja tutkia eri ilmastopolitiikkojen välisiä tai sisäisiä ristiriitaisuuksia tai toisaalta yhteyksiä muihin politiikkoihin.
 === Erikoistumissuunnitelma ===
@@ Rivi 455: / Rivi 1 194: @@
 ! Aihe || Erikoistuva henkilö || Tilanne
 |---
-| [[Pneumokokkirokote]]: sivulla mainittuihin artikkeleihin Nurhonen & Auranen 2013 ja 2014 tutustuminen
+|rowspan="2"| [[Pneumokokkirokote]]: sivulla mainittuihin artikkeleihin Nurhonen & Auranen 2013 ja 2014 tutustuminen
-| Jaakko ja Pauli
+| Jaakko
-| Meillä on hyvä yleiskuva asiasta
+| Minulla on hyvä yleiskuva asiasta
+|----
+| Pauli
+| Minulla on hyvä yleiskuva asiasta
 |----
 | [[Pneumokokkirokote#Laskenta]]: malliin tutustuminen
@@ Rivi 464: / Rivi 1 206: @@
 |----
 | [[Tuotosten jäsentäminen Opasnetissä#Sisällön yhdenmukaistaminen]]: toimintamallin opettelu ja harjoittelu
-|
+| Pauli
-| En ole vielä aloittanut
+| Minulla on hyvä yleiskuva asiasta
 |----
-| [[Tuotosten jäsentäminen Opasnetissä#Tunnistelinkkien lisääminen]]: toimintamallin opettelu ja harjoittelu
+|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
@@ Rivi 507: / Rivi 1 252: @@
 * Olen harjoitellut paljon ja osaan neuvoa hyvin
 * Olen tosi tekijä
 === Työn osat ===