83: p_rec.object_version_number := 1; -- Initialise the object version
84: --
85: --
86: --
87: -- Insert the row into: per_previous_employers
88: --
89: insert into per_previous_employers
90: (previous_employer_id
91: ,business_group_id
85: --
86: --
87: -- Insert the row into: per_previous_employers
88: --
89: insert into per_previous_employers
90: (previous_employer_id
91: ,business_group_id
92: ,person_id
93: ,party_id
313: Procedure pre_insert
314: (p_rec in out nocopy per_pem_shd.g_rec_type
315: ) is
316: --
317: Cursor C_Sel1 is select per_previous_employers_s.nextval from sys.dual;
318: --
319: Cursor C_Sel2 is
320: Select null
321: from per_previous_employers
317: Cursor C_Sel1 is select per_previous_employers_s.nextval from sys.dual;
318: --
319: Cursor C_Sel2 is
320: Select null
321: from per_previous_employers
322: where previous_employer_id =
323: per_pem_ins.g_previous_employer_id_i;
324: --
325: l_proc varchar2(72) := g_package||'pre_insert';
339: --
340: -- The primary key values are already in use.
341: --
342: fnd_message.set_name('PER','PER_289391_KEY_ALREADY_USED');
343: fnd_message.set_token('TABLE_NAME','per_previous_employers');
344: fnd_message.raise_error;
345: End If;
346: Close C_Sel2;
347: --
574: --
575: when hr_api.cannot_find_prog_unit then
576: --
577: hr_api.cannot_find_prog_unit_error
578: (p_module_name => 'PER_PREVIOUS_EMPLOYERS'
579: ,p_hook_type => 'AI');
580: --
581: end;
582: --