Lähdekoodi sivulle Ympäristöterveydenhuollon kohdetietojärjestelmä/Talousveden jakelu ja käyttö

[[Luokka:Ympäristöterveydenhuolto]]
[[Luokka:Kokonaisarkkitehtuuri]]
[[Luokka:Sisältää R-koodia]]
{{tutkimus|moderator=Jouni}}

'''[[Ympäristöterveydenhuollon kohdetietojärjestelmä]]''' kerää tietoja kunnallista ja valtakunnallista ympäristöterveydenhuoltoa varten. Tällä sivulla kerätään terveydensuojelutoimintaan liittyvää tietoa '''talousveden jakelusta ja käytöstä'''.

==Vesilaitoksia koskevat tiedot==


Tämä kyselyn avulla järjestelmään lisätään talousvettä toimittavia laitoksia ja muita asetuksen 461/2000 mukaisia kohteita ja laitoskohtaisia tietoja ja päivitetään niiden tietoja.

<rcode showcode="-1" include="page:OpasnetBaseUtils|name:generic|page:Ympäristöterveydenhuollon_kohdetietojärjestelmä|name:answer" variables="
name:var1|description:Anna laitokselle yksilöllinen tunniste|type:text|
name:var2|description:Käyttötapa|type:selection|options:NA;Valitse;1;EU-vesilaitokset (vedentoimitus yli 1000 m3/vrk tai vähintään 5000 henkilöä);2;Muut vesilaitokset (vedentoimitus 10 - 1000 m3/vrk tai 50 - 5000 käyttäjää);3;Talousveden jakelu ja käyttö (veden jakaminen osana julkista tai kaupallista toimintaa);4;Talousveden pakkaus;5;Elintarvikealan yrityksen käyttämä talousvesi|
name:var3|description:Toimitettavan veden määrä (m3/vrk)|type:text|
name:var4|description:Veden käyttäjien määrä (henkilöä)|type:text|
name:var5|description:Pakattavan veden määrä (3/vrk)|type:text|
name:var6|description:Pintavesi (m3/vrk)|category:Raakaveden laatu|type:text|
name:var7|description:Pohjavesi (m3/vrk)|type:text|
name:var8|description:Tekopohjavesi, josta (m3/vrk)|type:text|
name:var9|description:Tekopohjavesi, rantaimeytettyä (%)|type:text|
name:var10|description:Tekopohjavesi, allas/sadetettua (%)|type:text|
name:var11|description:Tekopohjavesi, muulla tavalla tuotettua (%)|type:text|
name:var12|description:Tekopohjavesi, muulla tavalla tuotettua, miten?|type:text|
name:var13|description:Ostovesi (m3/vrk)|type:text|
name:var14|description:1. veden toimittajan y-tunnus (9 merkkiä)|type:text|
name:var15|description:2. veden toimittajan y-tunnus (9 merkkiä)|type:text|
name:var16|description:3. veden toimittajan y-tunnus (9 merkkiä)|type:text|
name:var17|description:|options:TRUE;Elintarviketeollisuus käyttää vedestä yli 50 %|type:checkbox|
name:var18|description:Mitä vedenkäsittelyprosesseja on käytössä?|type:checkbox|options:'Suodatus';Suodatus;'Saostus';Saostus;'Desinfiointi';Desinfiointi;'Kloorikemikaalit';Kloorikemikaalit;'UV';UV;'Otsonointi';Otsonointi;'Muu';Muu|
name:var19|description:Muu vedenkäsittely, mikä?|type:text|
name:var20|description:Käytetyt vedenkäsittelykemikaalit|type:text|
name:var21|description:Valvontatutkimusohjelma (pvm)|type:text|
name:var22|description:Vesilaitoksen veden vähimmäistutkimustiheys|type:text|
name:var23|description:Jatkuva valvonta (asetuksen minimivaatimus) (lkm)|type:text|
name:var24|description:Jaksottainen seuranta (asetuksen minimivaatimus) (lkm)|type:text|
name:var25|description:Jatkuva valvonta (valvontatutkimusohjelman mukainen) (lkm)|type:text|
name:var26|description:Jaksottainen seuranta (valvontatutkimusohjelman mukainen) (lkm)|type:text"
>
library(OpasnetBaseUtils)
library(xtable)

	var17 <- paste(var17, collapse=";")
	var18 <- paste(var18, collapse=";")

	data <- data.frame(
		Tyyppi = "Toiminta", 
		Tunniste = var1,
		Ominaisuus = c("Käyttötapa", "Toimitettavan veden määrä", "Veden käyttäjien määrä", "Pakattavan veden määrä", 
			"Pintavesi (m3/vrk)", "Pohjavesi (m3/vrk)", "Tekopohjavesi (m3/vrk)", "Tekopohjavesi, rantaimeytettyä (%)", 
			"Tekopohjavesi, allas/sadetettua (%)", "Tekopohjavesi, muulla tavalla tuotettua (%)", 
			"Tekopohjavesi, miten muuten tuotettua", "Ostovesi", "1. veden toimittajan y-tunnus", 
			"2. veden toimittajan y-tunnus", "3. veden toimittajan y-tunnus", "Elintarviketeollisuus yli 50 %", 
			"Vedenkäsittelyprosessit", "Muu vedenkäsittely", "Käytetyt vedenkäsittelykemikaalit", 
			"Valvontatutkimusohjelma (pvm)", "Vesilaitoksen veden vähimmäistutkimustiheys", 
			"Jatkuva valvonta (asetuksen minimivaatimus)", "Jaksottainen seuranta (asetuksen minimivaatimus)", 
			"Jatkuva valvonta (valvontatutkimusohjelman mukainen)", 
			"Jaksottainen seuranta (valvontatutkimusohjelman mukainen)"
		),
		Result = c(var2, var3, var4, var5, var6, var7, var8, var9, var10, var11, var12, var13, var14, var15, var16, var17, 
			var18, var19, var20, var21, var22, var23, var24, var25, var26
		)
	)

yhti.upload(data, "Op_fi2947")

</rcode>

==Yksittäisen toimijan tietojen hakeminen==

'''Tällä voit hakea tietoja tietokannasta.

<rcode showcode="-1" label="Hae tiedot" include="page:OpasnetBaseUtils|name:generic|page:Ympäristöterveydenhuollon_kohdetietojärjestelmä|name:answer" 
variables="name:var1|description:Tunniste *|type:text">

library(OpasnetBaseUtils)
library(xtable)

temp <- yhti.nykytiedot("Op_fi2947", var1)

</rcode>

==Usean toimijan tietojen hakeminen==

'''Tällä voit hakea useita toimijatietoja tietokannasta kerralla.

<rcode showcode="-1" label="Hae tiedot" include="page:OpasnetBaseUtils|name:generic|page:Ympäristöterveydenhuollon_kohdetietojärjestelmä|name:answer">

library(OpasnetBaseUtils)
library(xtable)

temp <- yhti.nykytiedot("Op_fi2947")

</rcode>

<br/>

{{tuloslinkki}}

==Vedenvalvontatiedot==

Tämä kysely koskee järjestelmässä olevan vesilaitosten vedenlaadun valvontatietoja. Yhdelle vesilaitokselle voi syöttää valvontatietoja useampaan kertaan.

<rcode showcode="-1" include="page:Ympäristöterveydenhuollon_kohdetietojärjestelmä|name:answer|page:OpasnetBaseUtils|name:generic" variables="
name:var1|description:Mikä on vesilaitoksen tunniste?|type:text|
name:var2|description:Jaksottaisessa seurannassa määritetty vuonna|type:text|
name:var3|description:Mitä asioita määritetty jaksottaisessa seurannassa?|type:checkbox|options:'Akryyliamidi';Akryyliamidi;'Epikloorihydriini';Epikloorihydriini;'Vinyylikloridi';Vinyylikloridi;'Bromaatti';Bromaatti;'Trihalometaanit';Trihalometaanit;'Torjunta-aineet';Torjunta-aineet;'Muuta';Muuta|
name:var4|description:Valvontaan otetut lisämuuttujat|type:text|
name:var5|description:Aineiden tutkimusvuosi|type:text|
name:var6|description:Mitä aineita on tutkittu?|type:checkbox|options:'Antimoni';Antimoni;'Boori';Boori;'Seleeni';Seleeni;'Kloorifenolit';Kloorifenolit;'Bentseeni';Bentseeni;'Syanidit';Syanidit;'Tetrakloorieteeni';Tetrakloorieteeni;'Trikloorieteeni';Trikloorieteeni;'Bentso(a)pyreeni';Bentso(a)pyreeni;'Bromaatti';Bromaatti (pintavedessä, jota ei otsonoitu);'1.2-dikloorietaani';1.2-dikloorietaani;'Polysykliset aromaattiset hiilivedyt';Polysykliset aromaattiset hiilivedyt|
name:var7|description:Tritiumin tutkimusvuosi|type:text|category:Radioaktiivisuutta koskevat tutkimukset|
name:var8|description:Tritiumin tutkimustulos (bequerel/l)|type:text|
name:var9|description:Viitteellisen kokonaisannoksen tutkimusvuosi|type:text|
name:var10|description:Viitteellisen kokonaisannoksen tutkimustulos (mSv/vuosi)|type:text|
name:var11|description:|options:TRUE;Tutkimustiheyttä on vähennetty puoleen|type:checkbox|
name:var12|description:Vähennys koskee seuraavia muuttujia|type:text|
name:var13|description:Erityistilannesuunnitelma hyväksytty (pvm)|type:text|
name:var14|description:Laitoksen hyväksyminen (pvm)|type:text|
name:var15|description:Toiminnasta vastaava henkilö|type:text|
name:var16|description:Puhelin|type:text|
name:var17|description:Sähköposti|type:text|
name:var18|description:Valvontayksikkö Nro|type:text|
name:var19|description:Kuntanumero|type:text|
name:var20|description:|options:TRUE;Tämä on ensisijaista toimintaa|type:checkbox|
name:var21|description:Tarkastustiheys/vuosi (kunnan suunnitelma)|type:text|
name:var22|description:Tarkastustiheys tarkistettu: dd.mm.yyyy|type:text
">
library(OpasnetBaseUtils)
library(xtable)

	var3 <- paste(var3, collapse=";")
	var6 <- paste(var6, collapse=";")
	var11 <- paste(var11, collapse=";")
	var20 <- paste(var20, collapse=";")

	data <- data.frame(
		Tyyppi = "Toiminta", 
		Tunniste = var1,
		Ominaisuus = c("Jaksottaisessa seurannassa määritetty vuonna", "Jaksottaisen seurannan määritykset", 
			"Valvontaan otetut lisämuuttujat", "Aineiden tutkimusvuosi", "Tutkitut aineet", "Tritiumin tutkimusvuosi", 
			"Tritiumin tutkimustulos", "Viitteellisen kokonaisannoksen tutkimusvuosi", 
			"Viitteellisen kokonaisannoksen tutkimustulos", "Tutkimustiheyttä on vähennetty puoleen", 
			"Muuttujat joita vähennys koskee", "Erityistilannesuunnitelma hyväksytty", "Laitos hyväksytty", 
			"Toiminnasta vastaava henkilö", "Puhelin", "Sähköposti", "Valvontayksikkö", "Kuntanumero", 
			"Tämä on ensisijaista toimintaa", "Tarkastustiheys/vuosi (kunnan suunnitelma)", 
			"Tarkastustiheys tarkistettu"
		),
		Result = c(var2, var3, var4, var5, var6, var7, var8, var9, var10, var11, var12, var13, var14, var15, var16, var17, 
			var18, var19, var20, var21, var22
		)
	)

yhti.upload(data, "Op_fi2947")

</rcode>