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

Versio 16. heinäkuuta 2014 kello 11.50

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

Aikataulu

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

Tägikone

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

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
	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", "JaeiID1", "Jae1", "Relaatio", "Sivu2", "JaeID2", "Jae2")], 
		include.rownames = FALSE, 
		caption = "Relaatiot", 
		caption.placement = "top"
	)
	
	# Sisällytykset
	colnames(jakeet)[colnames(jakeet) == "JaeID"] <- "JaeID1"
	colnames(jakeet)[colnames(jakeet) == "Sivu"] <- "Sivu1"
	colnames(jakeet)[colnames(jakeet) == "Result"] <- "Jae1"
	colnames(rel)[colnames(rel) == "Relaatio"] <- "Sisällytys"
	out <- join(
		rel[rel$Sisällytys %in% sis_opt & rel$Versio %in% version[-length(version)],], 
		jakeet, 
		match = "first" # versio - sivu - jaeid -> yksi yhteen
	)
	
	colnames(jakeet)[colnames(jakeet) == "JaeID1"] <- "JaeID2"
	colnames(jakeet)[colnames(jakeet) == "Sivu1"] <- "Sivu2"
	colnames(jakeet)[colnames(jakeet) == "Jae1"] <- "Jae2"
	jakeet$Versio <- as.numeric(as.character(jakeet$Versio)) - 1
	out <- join(out, jakeet, match = "first")
	
	oprint(
		out[c("Versio", "RelaatioID", "Sivu1", "JaeiID1", "Jae1", "Sisällytys", "Sivu2", "JaeID2", "Jae2")], 
		include.rownames = FALSE, 
		caption = "Sisällytys (uudempaan versioon)", 
		caption.placement = "top"
	)
}

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

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)

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	[1] 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.!

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ä

Versio 16. heinäkuuta 2014 kello 11.50

Sisällys

Aikataulu

Tägikone

Versiot

Jakeet

Jakeiden päivitys

Avainsanat

Relaatiot

Kehittyneemmät hakukoneet

Viestintä

Lehdistötiedote 3.7.2014

Rokotepäätöksentekoa voi avata kansalle

Työohje

Viikkopalaverit

Erikoistumissuunnitelma

Työn osat

Katso myös

Navigointivalikko