rule "Primo VE - Subject 600"
	when
            MARC."600" has any "a-z" AND
            MARC."600".ind"2"  equals "0" 
      then
            set TEMP"1" to MARC."600" subfields "a-u" delimited by " " remove substring using regex "\\\\.+$"
			set TEMP"2" to MARC."600" sub without sorting "v-z" delimited by " -- "
		   replace string by string (TEMP"2","Illegal alien","Undocumented immigrant")
		replace string by string (TEMP"2","illegal alien","undocumented immigrant")
		replace string by string (TEMP"2","Alien criminals","Noncitizen criminals")
		replace string by string (TEMP"2","Alien detention centers","Immigrant detention centers")
		replace string by string (TEMP"2","Alien labor","Foreign workers")
		replace string by string (TEMP"2","Alien property","Foreign-owned property")
		replace string by string (TEMP"2","with aliens","with noncitizens")
		replace string by string (TEMP"2","of aliens","of noncitizens")
		replace string by string (TEMP"2","Aliens","Noncitizens")
           remove substring using regex (TEMP"2","\\\\.+$")
           concatenate with delimiter (TEMP"1",TEMP"2"," -- ")
           create pnx."display"."subject" with TEMP"1"
end

rule "Primo VE - Subject - 610"
	when
		MARC."610" has any "a-z" AND
		MARC."610".ind"2"  equals "0"
	then
		set TEMP"1" to MARC."610" subfields "a-u" delimited by " " remove substring using regex "\\\\.+$"
			set TEMP"2" to MARC."610" sub without sorting "v-z" delimited by " -- "
		replace string by string (TEMP"2","Illegal alien","Undocumented immigrant")
		replace string by string (TEMP"2","illegal alien","undocumented immigrant")
		replace string by string (TEMP"2","Alien criminals","Noncitizen criminals")
		replace string by string (TEMP"2","Alien detention centers","Immigrant detention centers")
		replace string by string (TEMP"2","Alien labor","Foreign workers")
		replace string by string (TEMP"2","Alien property","Foreign-owned property")
		replace string by string (TEMP"2","with aliens","with noncitizens")
		replace string by string (TEMP"2","of aliens","of noncitizens")
		replace string by string (TEMP"2","Aliens","Noncitizens")
        remove substring using regex (TEMP"2","\\\\.+$")		
		concatenate with delimiter (TEMP"1",TEMP"2"," -- ")
        create pnx."display"."subject" with TEMP"1"
end

rule "Primo VE - Subject - 611"
	when
		MARC."611" has any "a-z" AND
		MARC."611".ind"2"  equals "0"
	then
		set TEMP"1" to MARC."611" subfields "a-u" delimited by " " remove substring using regex "\\\\.+$"
		set TEMP"2" to MARC."611" sub without sorting "v-z" delimited by " -- "
		   replace string by string (TEMP"2","Illegal alien","Undocumented immigrant")
		replace string by string (TEMP"2","illegal alien","undocumented immigrant")
		replace string by string (TEMP"2","Alien criminals","Noncitizen criminals")
		replace string by string (TEMP"2","Alien detention centers","Immigrant detention centers")
		replace string by string (TEMP"2","Alien labor","Foreign workers")
		replace string by string (TEMP"2","Alien property","Foreign-owned property")
		replace string by string (TEMP"2","with aliens","with noncitizens")
		replace string by string (TEMP"2","of aliens","of noncitizens")
		replace string by string (TEMP"2","Aliens","Noncitizens")
        remove substring using regex (TEMP"2","\\\\.+$")		
		concatenate with delimiter (TEMP"1",TEMP"2"," -- ")
        create pnx."display"."subject" with TEMP"1"
end

rule "Primo VE - Subject - 630"
	when
		MARC."630" has any "a-z" AND
		MARC."630".ind"2"  equals "0"
	then
		set TEMP"1" to MARC."630" subfields "a-u" delimited by " " remove substring using regex "\\\\.+$"
		set TEMP"2" to MARC."630" sub without sorting "v-z" delimited by " -- "
        remove substring using regex (TEMP"2","\\\\.+$")		
		concatenate with delimiter (TEMP"1",TEMP"2"," -- ")
        kormarc remove nonfiling brackets MARC."630" sourcetag "630" from TEMP"1"
        create pnx."display"."subject" with TEMP"1"
end

rule "Primo VE - Subject - 650"
when
MARC."650" has any "a-z" AND 
MARC."650".ind"2"  equals "0"
then
set TEMP"1" to MARC."650" subfields "a-u" delimited by " " remove substring using regex "\\\\.+$"
		replace string by string (TEMP"1","Illegal alien","Undocumented immigrant")
		replace string by string (TEMP"1","illegal alien","undocumented immigrant")
		replace string by string (TEMP"1","Alien criminals","Noncitizen criminals")
		replace string by string (TEMP"1","Alien detention centers","Immigrant detention centers")
		replace string by string (TEMP"1","Alien labor","Foreign workers")
		replace string by string (TEMP"1","Alien property","Foreign-owned property")
		replace string by string (TEMP"1","with aliens","with noncitizens")
		replace string by string (TEMP"1","of aliens","of noncitizens")
		replace string by string (TEMP"1","Aliens","Noncitizens")
set TEMP"2" to MARC."650" sub without sorting "v-z" delimited by " -- "
        remove substring using regex (TEMP"2","\\\\.+$")
        concatenate with delimiter (TEMP"1",TEMP"2"," -- ")
        create pnx."display"."subject" with TEMP"1"
end

rule "Primo VE - Subject - 651"
	when
		MARC."651" has any "a-z" AND
		MARC."651".ind"2"  equals "0"  
	then
		set TEMP"1" to MARC."651" subfields "a-u" delimited by " " remove substring using regex "\\\\.+$"		
		set TEMP"2" to MARC."651" sub without sorting "v-z" delimited by " -- "
	   replace string by string (TEMP"2","Illegal alien","Undocumented immigrant")
		replace string by string (TEMP"2","illegal alien","undocumented immigrant")
		replace string by string (TEMP"2","Alien criminals","Noncitizen criminals")
		replace string by string (TEMP"2","Alien detention centers","Immigrant detention centers")
		replace string by string (TEMP"2","Alien labor","Foreign workers")
		replace string by string (TEMP"2","Alien property","Foreign-owned property")
		replace string by string (TEMP"2","with aliens","with noncitizens")
		replace string by string (TEMP"2","of aliens","of noncitizens")
		replace string by string (TEMP"2","Aliens","Noncitizens")
        remove substring using regex (TEMP"2","\\\\.+$")
		concatenate with delimiter (TEMP"1",TEMP"2"," -- ")
        create pnx."display"."subject" with TEMP"1"
end

rule "Primo VE - Subject- 690"
	when
		MARC is "690"."a"
	then
		create pnx."display"."subject" with MARC "690"."a"
end

rule "Primo VE - Subject - 880-600"
	when
		MARC."880" has any "a-z" AND 
		MARC."880".ind"2"  equals "0" AND
		MARC."880"."6" match "600-.*"
	then
		set TEMP"1" to MARC."880" subfields "a-u,w" delimited by " " remove substring using regex "\\\\.+$"
		set TEMP"2" to MARC."880" sub without sorting "v-z" delimited by " -- "
        remove substring using regex (TEMP"2","\\\\.+$")		
		concatenate with delimiter (TEMP"1",TEMP"2"," -- ")
        create pnx."display"."subject" with TEMP"1"
end

rule "Primo VE - Subject - 880-610"
	when
		MARC."880" has any "a-z" AND 
		MARC."880".ind"2"  equals "0" AND
		MARC."880"."6" match "610-.*"
	then
		set TEMP"1" to MARC."880" subfields "a-u,w" delimited by " " remove substring using regex "\\\\.+$"
		set TEMP"2" to MARC."880" sub without sorting "v-z" delimited by " -- "
        remove substring using regex (TEMP"2","\\\\.+$")		
		concatenate with delimiter (TEMP"1",TEMP"2"," -- ")
        create pnx."display"."subject" with TEMP"1"
end

rule "Primo VE - Subject - 880-611"
	when
		MARC."880" has any "a-z" AND
		MARC."880".ind"2"  equals "0" AND
		MARC."880"."6" match "611-.*"
	then
		set TEMP"1" to MARC."880" subfields "a-u,w" delimited by " " remove substring using regex "\\\\.+$"
		set TEMP"2" to MARC."880" sub without sorting "v-z" delimited by " -- "
        remove substring using regex (TEMP"2","\\\\.+$")		
		concatenate with delimiter (TEMP"1",TEMP"2"," -- ")
        create pnx."display"."subject" with TEMP"1"
end

rule "Primo VE - Subject - 880-630"
	when
		MARC."880" has any "a-z" AND
		MARC."880".ind"2"  equals "0" AND
		MARC."880"."6" match "630-.*"
	then
		set TEMP"1" to MARC."880" subfields "a-u,w" delimited by " " remove substring using regex "\\\\.+$"
		set TEMP"2" to MARC."880" sub without sorting "v-z" delimited by " -- "
        remove substring using regex (TEMP"2","\\\\.+$")		
		concatenate with delimiter (TEMP"1",TEMP"2"," -- ")
        create pnx."display"."subject" with TEMP"1"
end

rule "Primo VE - Subject - 880-650"
	when
		MARC."880" has any "a-z" AND 
                MARC."880".ind"2"  equals "0" AND 
                MARC."880"."6" match "650-.*"
	then
		set TEMP"1" to MARC."880" subfields "a-u,w" delimited by " " remove substring using regex "\\\\.+$"
		set TEMP"2" to MARC."880" sub without sorting "v-z" delimited by " -- "
        remove substring using regex (TEMP"2","\\\\.+$")		
		concatenate with delimiter (TEMP"1",TEMP"2"," -- ")
        create pnx."display"."subject" with TEMP"1"
end

rule "Primo VE - Subject - 880-651"
	when
		MARC."880" has any "a-z" AND 
		MARC."880".ind"2"  equals "0" AND
		MARC."880"."6" match "651-.*"
	then
		set TEMP"1" to MARC."880" subfields "a-u,w" delimited by " " remove substring using regex "\\\\.+$"
		set TEMP"2" to MARC."880" sub without sorting "v-z" delimited by " -- "
        remove substring using regex (TEMP"2","\\\\.+$")		
		concatenate with delimiter (TEMP"1",TEMP"2"," -- ")
        create pnx."display"."subject" with TEMP"1"
end