Ero sivun ”Ympäristöterveydenhuollon toimijat” versioiden välillä

Opasnet Suomista
Siirry navigaatioon Siirry hakuun
(initioidaan muuttuja t2b:llä)
pEi muokkausyhteenvetoa
 
(3 välissä olevaa versiota toisen käyttäjän tekemänä ei näytetä)
Rivi 1: Rivi 1:
[[Luokka:Ympäristöterveydenhuolto]]
[[Luokka:Ympäristöterveydenhuolto]]
[[Luokka:Sisältää R-koodia]]
{{tutkimus|moderator=Jouni}}
{{tutkimus|moderator=Jouni}}
'''Ympäristöterveydenhuollon toimijat''' ovat henkilöitä, yrityksiä tai yhteisöjä, jotka tekevät ympäristöterveydenhuoltoon liittyvää toimintaa tai valvontaa. Tällä sivulla kerätään, päivitetään ja jaetaan tietoja heistä.
'''Ympäristöterveydenhuollon toimijat''' ovat henkilöitä, yrityksiä tai yhteisöjä, jotka tekevät ympäristöterveydenhuoltoon liittyvää toimintaa tai valvontaa. Tällä sivulla kerätään, päivitetään ja jaetaan tietoja heistä.
 
==Tietojen syöttäminen==
 
Kaikki ne tiedot päivittyvät, joita ei jätetä tyhjäksi.


(* = Pakollinen tieto)
(* = Pakollinen tieto)


<rcode showcode="-1" label="Tallenna tiedot" variables="
<rcode showcode="-1" label="Tallenna tiedot" include="page:OpasnetBaseUtils|name:generic" variables="
name:var1|description:Y-tunnus *|type:text|
name:var1|description:Y-tunnus *|type:text|
name:var2|description:Yrityksen kielikoodi|type:text|default:FI|
name:var2|description:Yrityksen kielikoodi (FI, SE, EN tms.)|type:text|
name:var3|description:Yrityksen tila *|type:selection|options:1;vireillä;2;voimassa;3;lakannut|default:2|
name:var3|description:Yrityksen tila *|type:selection|options:NA;Valitse;'vireillä';vireillä;'voimassa';voimassa;'lakannut';lakannut|
name:var4|description:Kotikunta (koodi) *|default:0|
name:var4|description:Kotikunta (koodi) *|type:text|
name:var5|description:Yritysmuoto (OY, avoin yhtiö, jne)|type:text|
name:var5|description:Yritysmuoto (OY, avoin yhtiö, jne)|type:text|
name:var6|description:Omistajan tyypi|type:selection|options:1;Yksityinen kotimainen;2;Valtio;3;Kunta;4;Ahvenanmaan maakunta;5;Ulkomaalainen omistaja;6;Pörssiyhtiö;7;Muu omistajatyyppi|
name:var6|description:Omistajan tyypi|type:selection|options:NA;Valitse;'Yksityinen kotimainen';Yksityinen kotimainen;'Valtio';Valtio;'Kunta';Kunta;'Ahvenanmaan maakunta';Ahvenanmaan maakunta;'Ulkomaalainen omistaja';Ulkomaalainen omistaja;'Pörssiyhtiö';Pörssiyhtiö;'Muu omistajatyyppi';Muu omistajatyyppi|
name:var7|description:Toimialaluokitus (Tilastokeskuksen toimialaluokitus 2008)|type:text|
name:var7|description:Toimialaluokitus (Tilastokeskuksen toimialaluokitus 2008)|type:text|
name:var8|description:Nimi *|type:text|
name:var8|description:Nimi *|type:text|
name:var9|description:Nimen kielikoodi *|type:text|default:FI|
name:var9|description:Nimen kielikoodi (FI, SE, EN tms.) *|type:text|
name:var10|description:Nimen tyyppikoodi *|type:selection|options:0;Vanha nimi;1;Aputoiminimi;2;Rinnakkaistoiminimi;3;Liikenimi;4;Rinnakkaistoiminimen aputoiminimi;5;Päätoiminimi;9;Perustettava yritys (sulautuminen)|default:0|
name:var10|description:Nimen tyyppikoodi *|type:selection|options:NA;Valitse;'Vanha nimi';Vanha nimi;'Aputoiminimi';Aputoiminimi;'Rinnakkaistoiminimi';Rinnakkaistoiminimi;'Liikenimi';Liikenimi;'Rinnakkaistoiminimen aputoiminimi';Rinnakkaistoiminimen aputoiminimi;'Päätoiminimi';Päätoiminimi;'Perustettava yritys (sulautuminen)';Perustettava yritys (sulautuminen)|
name:var11|description:Osoitteen tyyppi *|type:selection|options:7;postiosoite;8;käyntiosoite;9;varmistamaton käyntiosoite;10 varmistamaton postiosoite;11;varmistamaton laskutusosoite|
name:var11|description:Osoitteen tyyppi *|type:selection|options:NA;Valitse;'postiosoite';postiosoite;'käyntiosoite';käyntiosoite;'varmistamaton käyntiosoite';varmistamaton käyntiosoite;'varmistamaton postiosoite';varmistamaton postiosoite;'varmistamaton laskutusosoite';varmistamaton laskutusosoite|
name:var12|description:Nimen täydenne (c/o tms.)|type:text|
name:var12|description:Nimen täydenne (c/o tms.)|type:text|
name:var13|description:Osoite *|type:text|
name:var13|description:Osoite *|type:text|
Rivi 24: Rivi 29:
name:var17|description:Osoitteen alkupvm|type:text|
name:var17|description:Osoitteen alkupvm|type:text|
name:var18|description:Osoitteen loppupvm|type:text|
name:var18|description:Osoitteen loppupvm|type:text|
name:var19|description:Puhelinnumeron tyyppi *|type:selection|options:1;puhelin;2;faksi;3;YTJ:n puhelin;4;YTJ:n faksi|default:1|
name:var19|description:Puhelinnumeron tyyppi *|type:selection|options:NA;Valitse;'puhelin';puhelin;'faksi';faksi;'YTJ:n puhelin';YTJ:n puhelin;'YTJ:n faksi';YTJ:n faksi|
name:var20|description:Puhelinnumero *|type:text|
name:var20|description:Puhelinnumero *|type:text|
name:var21|description:Lisätieto|type:text|
name:var21|description:Lisätieto|type:text|
Rivi 32: Rivi 37:
library(OpasnetBaseUtils)
library(OpasnetBaseUtils)
library(xtable)
library(xtable)
if(var1 == "") {
cat("Y-tunnus on annettava koska se toimii tunnisteena.\n")
} else {
data <- data.frame(
Tyyppi = "Yritys",
Tunniste = var1,
Ominaisuus = c("Yrityksen kielikoodi", "Yrityksen tila", "Kotikunta", "Yritysmuoto", "Omistajan tyyppi",
"Tomialaluokitus", "Nimi", "Nimen kielikoodi", "Nimen tyyppikoodi", "Osoitteen tyyppi", "Nimen täydenne",
"Osoite", "Postinumero", "Maa", "Ulkomainen postinumero", "Osoitteen alkupvm", "Osoitteen loppupvm",
"Puhelinnumeron tyyppi", "Puhelinnumero", "Lisätieto", "www-osoite", "Sähköposti"
),
Result = c(var2, var3, var4, var5, var6, var7, var8, var9, var10, var11, var12, var13, var14, var15, var16, var17,
var18, var19, var20, var21, var22, var23
)
)


data <- data.frame(
data <- data[!data$Result %in% c("", NA), ]
Tyyppi = "Yritys",  
if(nrow(data) > 0) {
Ominaisuus = c("Y-tunnus", "Yrityksen kielikoodi", "Yrityksen tila", "Kotikunta", "Yritysmuoto", "Omistajan tyyppi",
"Tomialaluokitus", "Nimi", "Nimen kielikoodi", "Nimen tyyppikoodi", "Osoitteen tyyppi", "Nimen täydenne",  
opbase.upload(dsn = "opasnet_base_write", input = data, ident = "Op_fi2950", acttype = 5, who = wiki_username, unit = "-")
"Osoite", "Postinumero", "Maa", "Ulkomainen postinumero", "Osoitteen alkupvm", "Osoitteen loppupvm",
"Puhelinnumeron tyyppi", "Puhelinnumero", "Lisätieto", "www-osoite", "Sähköposti"
cat("Nämä tiedot on onnistuneesti tallennettu. Jos haluat muuttaa tietoja, tallenna lomake uudestaan.\n")
),
print(xtable(data), type = 'html')
Arvo = c(var1, var2, var3, var4, var5, var6, var7, var8, var9, var10, var11, var12, var13, var14, var15, var16, var17,  
} else {
var18, var19, var20, var21, var22, var23
cat("Mitään muutetavaa ei ollut.\n")
)
}
)
}
 
cat("Tässä ovat yrityksen nykyiset tiedot tietokannasta.\n")
 
nykytiedot <- op_baseGetData("opasnet_base", "Op_fi2950")
 
nykytiedot <- tidy(nykytiedot)
nykytiedot <- nykytiedot[nykytiedot$Tunniste == var1, ]
nykytiedot <- nykytiedot[!duplicated(nykytiedot[, "Ominaisuus"], fromLast = TRUE), ]
print(xtable(nykytiedot), type = 'html')
 
</rcode>
 
==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_fi2950")
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">


cat("Nämä tiedot on onnistuneesti tallennettu. Jos haluat muuttaa tietoja, tallenna lomake uudestaan.\n")
library(OpasnetBaseUtils)
library(xtable)


print(xtable(data), type = 'html')
cat("Tässä ovat paikkojen nykyiset tiedot tietokannasta.\n")


op_baseWrite(dsn = "opasnet_base", input = data, ident = "Op_fi2950", name = "Ympäristöterveydenhuollon toimijat",  
nykytiedot <- op_baseGetData("opasnet_base", "Op_fi2950")
unit = "-", objtype_id = 1, who = wiki_username, acttype = 4, rescol = "Arvo")
nykytiedot <- tidy(nykytiedot)
nykytiedot <- nykytiedot[!duplicated(nykytiedot[, c("Ominaisuus", "Tunniste")], fromLast = TRUE), ]
print(xtable(nykytiedot), type = 'html', html.table.attributes = "class='sortable'")


</rcode>
</rcode>


<t2b index="Tyyppi,Ominaisuus" obs="Arvo" unit="-">
<br/>
Yritys|Y-tunnus|123456-7
 
</t2b>
{{tuloslinkki}}

Nykyinen versio 22. elokuuta 2013 kello 10.14




Ympäristöterveydenhuollon toimijat ovat henkilöitä, yrityksiä tai yhteisöjä, jotka tekevät ympäristöterveydenhuoltoon liittyvää toimintaa tai valvontaa. Tällä sivulla kerätään, päivitetään ja jaetaan tietoja heistä.

Tietojen syöttäminen

Kaikki ne tiedot päivittyvät, joita ei jätetä tyhjäksi.

(* = Pakollinen tieto)

Y-tunnus *:

Yrityksen kielikoodi (FI, SE, EN tms.):

Yrityksen tila *:

Kotikunta (koodi) *:

Yritysmuoto (OY, avoin yhtiö, jne):

Omistajan tyypi:

Toimialaluokitus (Tilastokeskuksen toimialaluokitus 2008):

Nimi *:

Nimen kielikoodi (FI, SE, EN tms.) *:

Nimen tyyppikoodi *:

Osoitteen tyyppi *:

Nimen täydenne (c/o tms.):

Osoite *:

Kotimainen postinumero. Pakollinen, jos suomalainen:

Maa *:

Ulkomainen postinumero/-toimip. Pakollinen, jos ei suomalainen:

Osoitteen alkupvm:

Osoitteen loppupvm:

Puhelinnumeron tyyppi *:

Puhelinnumero *:

Lisätieto:

www-osoite:

Sähköposti:

Yksittäisen toimijan tietojen hakeminen

Tällä voit hakea tietoja tietokannasta.

Y-tunnus *:

Usean toimijan tietojen hakeminen

Tällä voit hakea useita toimijatietoja tietokannasta kerralla.


{{#opasnet_base_link:Op_fi2950}}

Noudettu kohteesta ”https://fi.opasnet.org/index.php?title=Ympäristöterveydenhuollon_toimijat&oldid=19611”