Procedures Created

I wrote the procedures.
Gordon