155: );
156: -----------------------------------------------------------------
157: -- Allocate the sequence to the primary key company_id
158: ----------------------------------------------------------------- 159: select pn_companies_s.nextval 160: into x_company_id
161: from dual;
162:
163: IF x_company_number is null then