一つのプロシージャで全処理するより

Class とか、Function 使う方が良いかもね。