rule "change 440 to 490"
# Background:
# - 440 was made obsolete in 2008 
# - all title series statements would be entered in the 490 field 
# - all title series added entries in the 830.
#
# Change 440 to 490 and 830 in accordance with LOC MARC standards
# Official standards at: http://www.loc.gov/marc/bibliographic/bd440.html
#
# Create the 490 field as follows:
# - Construct field 490 (Series Statement)
# - set 490 indicator 1 to 1
# - set 490 indicator 2 to blank
# - concatenate field 440 subfields $a, $n and $p and place the new string into 490 subfield $a
#   (the above means to concatenate subfield n and p with a)
# - and copy the content of 440 subfields $v, $x, $6, and $8 into the same subfields in field 490. 
# - Any additional subfields in field 440 (not mentioned above) go to 830 (as described below)
#
# Create the 830 field as follows:
# - Construct field 830 (Series Added Entry - Uniform Title)
# - all 440 indicators and subfields convert to field 830 with same indicators and subfields.
#   (this appears to mean "copy 440 to 80 as is")
#
# Here is 440 in original:
# 440_1 $$a 440a $$n 440n $$p 440p $$v 440v $$x 440x $$6 440-6 $$8 440-8 $$b 440b
# 
# Here is what happens to it:
# 4901_ $$a 440a 440n 440p $$v 440v $$x 440x $$6 440-6 $$8 440-8 $$b 440b
# 840_1 $$a 440a $$n 440n $$p 440p $$v 440v $$x 440x $$6 440-6 $$8 440-8 $$b 440b
#
priority 50
when
 ( exists "440.a" ) AND ( not exists "490.a" )
then
copyField "440" to "490"
changeFirstIndicator "490" to "1"
changeSecondIndicator "490" to " "
suffix "490.a" with " "  if (exists "490.n")
suffixSubField "490.a" with "490.n" if (exists "490.n")
suffix "490.a" with " "  if (exists "490.p")
suffixSubField "490.a" with "490.p" if (exists "490.p")

end

rule "remove from 490 all subfields except a v x 6 8"
priority 40
when 
  ( exists "490" )
then
removeSubField "490.w"
removeSubField "490.0"
end

rule "change 440 to 830"
priority 30
when
 (( exists "440.a" ) AND ( not exists "830.a" ))
then
copyField "440" to "830"
end

rule "remove the 440"
priority 20
when
( exists "440.a" )
then
removeField "440" 
end

rule "remove from 490 subfields n and p"
priority 10
# must remove also 490 n and p because we suffixed them above to a)
when 
 (TRUE) 
then
removeSubField "490.n"
removeSubField "490.p"
end