UNIX for Beginners Questions & Answers

(K>)  awk -f change.awk input.csv
id,description,type,year
994475;1832 +  S PP1829 10/17/18;S;P201829;115;N;4,4;M;0;xx994475;*;BA7005;10/17/2018 16:48
994477;1836 +  S PP1833 10/17/18;S;P201833;115;N;4,4;M;0;xxh994477;*;BA7005;10/17/2018 16:48
994479;CONTROL 1452-1527,1552-1627;S;P201522;115;N;4,4;M;0;RHS_12_1510FF_0706;*;B7005;10/17/2018 16:49

994479;CONTROL 1446-1521,1546-1621;S;P201921;115;N;4,4;M;0;RHS_12_1519FF_0706;*;B7005;10/17/2018 16:49

BEGIN {
OFS=FS=";"
mweek=52
}

NR > 1 {
match($4,/P[12][0-9][0-9][0-9][0-5][0-9]/)
dw=substr($4,RSTART+1,RLENGTH-1)
year=substr(dw,1,4)
week=substr(dw,5,6)
variance=( year > 2015 ) ? 6 : 5

if ( ($10 ~ /^RHS/) && ($2 ~ /^CONTROL/) ) {
	split($10,g,"_")
	u=g[1]"_"g[2]"_"int(g[3]) - variance"FF_"g[4]
	sub($10,u,$10)
	
	split($2,c," ") ; gsub(",|-"," ",c[2]) ; split(c[2],e," ")
	fnl=e[1] - variance "-" e[2] - variance "," e[3] - variance "-" e[4] - variance
	sub($2,"CONTROL " fnl,$2)
	}

if ( match($2,/PP[0-9]+/) ) {
	a="PP"substr($2,RSTART+2,RLENGTH-2) - variance
	sub(substr($2,RSTART,RLENGTH),a,$2)
	}

if ( match($2,/^[0-9]+/) ) {
	f=substr($2,RSTART,RLENGTH) - variance
	sub("^[0-9]+",f,$2)
	}
	 
if ( int(week) == variance ) {
	week=mweek ; year=year - 1 ; sub(dw,year week,$0)
	}
else if ( int(week) < variance ) {
	week=mweek - (variance - week) ; year=year-1 ; sub(dw,year week,$0)
	}
	else {
	week=sprintf("%02d",week - variance) ; sub(dw,year week,$0)
	}

} 1