2025-03-20 RM-kyselytunti

rule "650 kauno yso-riveiksi"
#
# Purkaa ne 650 kentät, joissa osakenttä 2 arvolla kauno* -> 648, 650 ja 651 kenttiin osakentän 2 arvolla yso/fin
# Tarkastukset tehtävä manuaalisesti!
#
# Rajoitukset: toimii, jos
#   - vain yksi a-osakenttä / yksi 650 kenttä
#   - max neljä kpl osakenttiä x-y-z kutakin / yksi 650 kenttä
#   - ei muita osakenttiä
#
priority 90
when
(TRUE)
then
copyField "650" to "AAA" if (exists "650.2.kauno*")
end

rule "poista 650 osak 2 kauno*"
priority 85
when
(TRUE)
then
removeField "650" if (exists "650.2.kauno*")
end

# - AAA -> XXX/YYY/ZZZ -

rule "AAA axyz rivitys"
priority 80
when
(TRUE)
then
# kopioidaan xyz omalle rivilleen
copyField "AAA" to "XXX" if (exists "AAA.x")
copyField "AAA" to "YYY" if (exists "AAA.y")
copyField "AAA" to "ZZZ" if (exists "AAA.z")
end

rule "AAA-XXX-YYY-ZZZ axyz siivous"
priority 70
when
(TRUE)
then
# poistetaan turhat osakentät
removeSubField "AAA.x"
removeSubField "AAA.y"
removeSubField "AAA.z"
removeSubField "AAA.2"
removeSubField "XXX.a"
removeSubField "XXX.y"
removeSubField "XXX.z"  
removeSubField "XXX.2"  
removeSubField "YYY.a"  
removeSubField "YYY.x"  
removeSubField "YYY.z"  
removeSubField "YYY.2"  
removeSubField "ZZZ.a"  
removeSubField "ZZZ.x"  
removeSubField "ZZZ.y"  
removeSubField "ZZZ.2"  
end

rule "XXX-YYY-ZZZ alkamaan a osakentällä"
priority 60
when
(TRUE)
then
# muutetaan kaikki kentät alkamaan osakentällä a
changeSubFieldOnlyFirst "XXX.x" to "a"
changeSubFieldOnlyFirst "YYY.y" to "a"
changeSubFieldOnlyFirst "ZZZ.z" to "a"
end

# - XXX-YYY-ZZZ -> BBB-CCC-DDD

rule "XXX->BBB"
priority 50
when
(TRUE)
then
copyField "XXX" to "BBB" if (exists "XXX.x")
copyField "YYY" to "CCC" if (exists "YYY.y")
copyField "ZZZ" to "DDD" if (exists "ZZZ.z")
end

rule "XXX-YYY-ZZZ-BBB-CCC-DDD axyz siivous"
priority 45
when
(TRUE)
then
removeSubField "XXX.x"
removeSubField "YYY.y"
removeSubField "ZZZ.z"
removeSubField "BBB.a"
removeSubField "CCC.a"
removeSubField "DDD.a"
end

rule "BBB-CCC-DDD eka osakentäksi a"
priority 44
when
(TRUE)
then
changeSubFieldOnlyFirst "BBB.x" to "a"
changeSubFieldOnlyFirst "CCC.y" to "a"
changeSubFieldOnlyFirst "DDD.z" to "a"
end

# - BBB-CCC-DDD > EEE-FFF-GGG -

rule "BBB-CCC-DDD > EEE-FFF-GGG"
priority 43
when
(TRUE)
then
copyField "BBB" to "EEE" if (exists "BBB.x")
copyField "CCC" to "FFF" if (exists "CCC.y")
copyField "DDD" to "GGG" if (exists "DDD.z")
end

rule "BBB-CCC-DDD-EEE-FFF-GGG axyz siivous"
priority 41
when
(TRUE)
then
removeSubField "BBB.x"
removeSubField "CCC.y"
removeSubField "DDD.z"
removeSubField "EEE.a"
removeSubField "FFF.a"
removeSubField "GGG.a"
end

rule "EEE-FFF-GGG eka osakentäksi a"
priority 39
when
(TRUE)
then
changeSubFieldOnlyFirst "EEE.x" to "a"
changeSubFieldOnlyFirst "FFF.y" to "a"
changeSubFieldOnlyFirst "GGG.z" to "a"
end

# - EEE-FFF-GGG -> HHH-III-JJJ -

rule "EEE-FFF-GGG > HHH-III-JJJ"
priority 37
when
(TRUE)
then
copyField "EEE" to "HHH" if (exists "EEE.x")
copyField "FFF" to "III" if (exists "FFF.y")
copyField "GGG" to "JJJ" if (exists "GGG.z")
end

rule "EEE-FFF-GGG-HHH-III-JJJ axyz siivous"
priority 35
when
(TRUE)
then
# poistetaan turhat osakentät
removeSubField "EEE.x"
removeSubField "FFF.y"
removeSubField "GGG.z"
removeSubField "HHH.a"
removeSubField "III.a"
removeSubField "JJJ.a"
end

rule "HHH-III-JJJ eka osakentäksi a"
priority 33
when
(TRUE)
then
changeSubFieldOnlyFirst "HHH.x" to "a"
changeSubFieldOnlyFirst "III.y" to "a"
changeSubFieldOnlyFirst "JJJ.z" to "a"
end

#-

rule "AAA-JJJ osakenttä 2 yso/fin"
priority 29
when
(TRUE)
then
# lisätään osakenttä 2 yso/fin
addSubField "AAA.2.yso/fin"
addSubField "XXX.2.yso/fin"
addSubField "YYY.2.yso/fin"
addSubField "ZZZ.2.yso/fin"
addSubField "BBB.2.yso/fin"
addSubField "CCC.2.yso/fin"
addSubField "DDD.2.yso/fin"
addSubField "EEE.2.yso/fin"
addSubField "FFF.2.yso/fin"
addSubField "GGG.2.yso/fin"
addSubField "HHH.2.yso/fin"
addSubField "III.2.yso/fin"
addSubField "JJJ.2.yso/fin"
end

rule "AAA-...-JJJ -> KKK-LLL-MMM yhdistämiset deduplikointia varten"
priority 28
when
(TRUE)
then
copyField "AAA" to "KKK"
copyField "XXX" to "KKK"
copyField "YYY" to "LLL"
copyField "ZZZ" to "MMM"
copyField "BBB" to "KKK"
copyField "CCC" to "LLL"
copyField "DDD" to "MMM"
copyField "EEE" to "KKK"
copyField "FFF" to "LLL"
copyField "GGG" to "MMM"
copyField "HHH" to "KKK"
copyField "III" to "LLL"
copyField "JJJ" to "MMM"
end

rule "KKK-LLL-MMM deduplikointi"
priority 27
when
(TRUE)
then
correctDuplicateFields "KKK,LLL,MMM"
end

rule "AAA-...-JJJ -> 648-650-651"
priority 26
when
(TRUE)
then
# kopioidaan kenttä kenttään 650
copyField "KKK" to "650"
copyField "LLL" to "648"
copyField "MMM" to "651"
end

rule "poista TMP kentät"
priority 25
when
(TRUE)
then
removeField "AAA"
removeField "XXX"
removeField "YYY"
removeField "ZZZ"
removeField "BBB"
removeField "CCC"
removeField "DDD"
removeField "EEE"
removeField "FFF"
removeField "GGG"
removeField "HHH"
removeField "III"
removeField "JJJ"
removeField "KKK"
removeField "LLL"
removeField "MMM"
end

rule "240 luo 100 kentästä"
# luo 100 kenttään auktorisoidusta teka-teoksesta 240 kentän
# Edellytykset:
#  - 100$t olemassa
#  - 240 kenttää ei ole olemassa
# Jälkeenpäin:
#  - 100 kentän välimerkit tarkistettava, auktorisoitava uudestaan
when
((exists "100.t") AND (not exists "240"))
then
copyField "100" to "240.{1,0}"
# removeSubField "240.a"
# changeSubField "240.t" to "a"
replaceSubFieldContents "240.a" with "240.t"
removeSubField "240.b"
removeSubField "240.c"
removeSubField "240.d"
removeSubField "240.e"
removeSubField "240.j"
removeSubField "240.q"
removeSubField "240.t"
removeSubField "240.u"
removeSubField "240.0"  # sovittu, että ei käytetä 240 kentässä...
removeSubField "240.1"  # 1-8 ei pitäisi olla teka-auktoriteetissa
removeSubField "240.2"
removeSubField "240.4"
removeSubField "240.6"
removeSubField "240.7"
removeSubField "240.8"
# 100 kentän siivous - roolitermi lisättävä tarvittaessa, välimerkit ja henkilö auktorisoitava uudestaan!
removeSubField "100.f"
removeSubField "100.g"
removeSubField "100.h"
removeSubField "100.k"
removeSubField "100.l"
removeSubField "100.m"
removeSubField "100.n"
removeSubField "100.p"
removeSubField "100.r"
removeSubField "100.s"
removeSubField "100.t"
removeSubField "100.0"  # finaf-tunnisteen voisi jättää, mutta välimerkkien takia auktorisoitava  uudestaan
removeSubField "100.1"  # 1-8 ei pitäisi olla teka- tai finaf auktoriteetissa...
removeSubField "100.2"
removeSubField "100.4"
removeSubField "100.6"
removeSubField "100.7"
removeSubField "100.8"
end