Ero sivun ”Ympäristöterveydenhuollon kohdetietojärjestelmä/Talousveden jakelu ja käyttö” versioiden välillä
pEi muokkausyhteenvetoa |
(muuttuja initioitu) |
||
Rivi 6: | Rivi 6: | ||
Tämä kyselyn avulla järjestelmään | 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" variables=" | <rcode showcode="-1" variables=" | ||
name: | name:var1|description:Anna laitokselle yksilöllinen tunniste|type:text| | ||
name: | name:var2|description:Käyttötapa|type:selection|options: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: | name:var3|description:Toimitettavan veden määrä (m3/vrk)| | ||
name: | name:var4|description:Veden käyttäjien määrä (henkilöä)| | ||
name: | name:var5|description:Pakattavan veden määrä (3/vrk)| | ||
name: | name:var6|description:Pintavesi (m3/vrk)|category:Raakaveden laatu| | ||
name: | name:var7|description:Pohjavesi (m3/vrk)| | ||
name: | name:var8|description:Tekopohjavesi, josta (m3/vrk)| | ||
name: | name:var9|description:Tekopohjavesi, rantaimeytettyä (%)| | ||
name: | name:var10|description:Tekopohjavesi, allas/sadetettua (%)| | ||
name: | name:var11|description:Tekopohjavesi, muulla tavalla tuotettua (%)| | ||
name: | name:var12|description:Tekopohjavesi, muulla tavalla tuotettua, miten?|type:text| | ||
name: | name:var13|description:Ostovesi (m3/vrk)| | ||
name: | name:var14|description:1. veden toimittajan y-tunnus (9 merkkiä)|type:text| | ||
name: | name:var15|description:2. veden toimittajan y-tunnus (9 merkkiä)|type:text| | ||
name: | name:var16|description:3. veden toimittajan y-tunnus (9 merkkiä)|type:text| | ||
name: | name:var17|description:|options:1;Elintarviketeollisuus käyttää vedestä yli 50 %|type:checkbox|default:| | ||
name: | name:var18|description:Mitä vedenkäsittelyprosesseja on käytössä?|type:checkbox|'Suodatus';Suodatus;'Saostus';Saostus;'Desinfiointi';Desinfiointi;'Kloorikemikaalit';Kloorikemikaalit;'UV';UV;'Otsonointi';Otsonointi;'Muu';Muu| | ||
name: | name:var19|description:Muu vedenkäsittely, mikä?|type:text| | ||
name: | name:var20|description:Käytetyt vedenkäsittelykemikaalit|type:text| | ||
name: | name:var21|description:Valvontatutkimusohjelma (pvm)|type:text| | ||
name: | name:var22|description:Vesilaitoksen veden vähimmäistutkimustiheys|type:text| | ||
name: | name:var23|description:Jatkuva valvonta (asetuksen minimivaatimus) (lkm)| | ||
name: | name:var24|description:Jaksottainen seuranta (asetuksen minimivaatimus) (lkm)| | ||
name: | name:var25|description:Jatkuva valvonta (valvontatutkimusohjelman mukainen) (lkm)| | ||
name: | name:var26|description:Jaksottainen seuranta (valvontatutkimusohjelman mukainen) (lkm)" | ||
> | > | ||
library(OpasnetBaseUtils) | |||
library(xtable) | |||
if(var1 == "") { | |||
cat("Tunniste on annettava.\n") | |||
} else { | |||
data <- data.frame( | |||
Tyyppi = "Yritys", | |||
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 | |||
) | |||
) | |||
data <- data[!data$Result %in% c("", NA), ] | |||
if(nrow(data) > 0) { | |||
opbase.upload(dsn = "opasnet_base_write", input = data, ident = "Op_fi2947", acttype = 5, who = wiki_username, unit = "-") | |||
cat("Nämä tiedot on onnistuneesti tallennettu. Jos haluat muuttaa tietoja, tallenna lomake uudestaan.\n") | |||
print(xtable(data), type = 'html') | |||
} else { | |||
cat("Mitään muutetavaa ei ollut.\n") | |||
} | |||
} | |||
cat("Tässä ovat yrityksen nykyiset tiedot tietokannasta.\n") | |||
nykytiedot <- op_baseGetData("opasnet_base", "Op_fi2947") | |||
nykytiedot <- tidy(nykytiedot) | |||
nykytiedot <- nykytiedot[nykytiedot$Tunniste == var1, ] | |||
nykytiedot <- nykytiedot[!duplicated(nykytiedot[, "Ominaisuus"], fromLast = TRUE), ] | |||
print(xtable(nykytiedot), type = 'html') | |||
</rcode> | </rcode> | ||
<t2b index="Tietolaji,Tunniste,Ominaisuus" obs="Result" unit="-"> | |||
Toiminta|Kuopion Vesi VO1|Toimitettavan veden määrä|10000 | |||
</t2b> | |||
==Yksittäisen toimijan tietojen hakeminen== | |||
'''Tällä voit hakea tietoja tietokannasta. | |||
<rcode showcode="-1" label="Hae tiedot" include="page:OpasnetBaseUtils|name:generic" | |||
variables="name:var1|description:Y-tunnus *|type:text"> | |||
library(OpasnetBaseUtils) | |||
library(xtable) | |||
cat("Tässä ovat yrityksen nykyiset tiedot tietokannasta.\n") | |||
nykytiedot <- op_baseGetData("opasnet_base", "Op_fi2947") | |||
nykytiedot <- tidy(nykytiedot) | |||
nykytiedot <- nykytiedot[nykytiedot$Tunniste == var1, ] | |||
nykytiedot <- nykytiedot[!duplicated(nykytiedot[, "Ominaisuus"], fromLast = TRUE), ] | |||
print(xtable(nykytiedot), type = 'html') | |||
</rcode> | |||
==Usean toimijan tietojen hakeminen== | |||
'''Tällä voit hakea useita toimijatietoja tietokannasta kerralla. | |||
<rcode showcode="-1" label="Hae tiedot" include="page:OpasnetBaseUtils|name:generic"> | |||
library(OpasnetBaseUtils) | |||
library(xtable) | |||
cat("Tässä ovat paikkojen nykyiset tiedot tietokannasta.\n") | |||
nykytiedot <- op_baseGetData("opasnet_base", "Op_fi2947") | |||
nykytiedot <- tidy(nykytiedot) | |||
nykytiedot <- nykytiedot[!duplicated(nykytiedot[, c("Ominaisuus", "Tunniste")], fromLast = TRUE), ] | |||
print(xtable(nykytiedot), type = 'html', html.table.attributes = "class='sortable'") | |||
</rcode> | |||
<br/> | |||
{{tuloslinkki}} | |||
==Vedenvalvontatiedot== | ==Vedenvalvontatiedot== |
Versio 23. huhtikuuta 2012 kello 07.49
Tämä sivu on tutkimus.
Sivutunniste: Op_fi2947 |
---|
Moderaattori:Jouni (katso kaikki)
Sivun edistymistä ei ole arvioitu. Arvostuksen määrää ei ole arvioitu (ks. peer review). |
Lisää dataa
|
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.
Obs | Tietolaji | Tunniste | Ominaisuus | Result |
---|---|---|---|---|
1 | Toiminta | Kuopion Vesi VO1 | Toimitettavan veden määrä | 10000 |
Yksittäisen toimijan tietojen hakeminen
Tällä voit hakea tietoja tietokannasta.
Usean toimijan tietojen hakeminen
Tällä voit hakea useita toimijatietoja tietokannasta kerralla.
{{#opasnet_base_link:Op_fi2947}}
Vedenvalvontatiedot
Tämä kysely koskee järjestelmässä olevan vesilaitosten vedenlaadun valvontatietoja. Yhdelle vesilaitokselle voi syöttää valvontatietoja useampaan kertaan.