[Home] [Help]
80: p_rec.object_version_number := 1; -- Initialise the object version
81: --
82: per_ctr_shd.g_api_dml := true; -- Set the api dml status
83: --
84: -- Insert the row into: per_contact_relationships
85: --
86: insert into per_contact_relationships
87: ( contact_relationship_id,
88: business_group_id,
82: per_ctr_shd.g_api_dml := true; -- Set the api dml status
83: --
84: -- Insert the row into: per_contact_relationships
85: --
86: insert into per_contact_relationships
87: ( contact_relationship_id,
88: business_group_id,
89: person_id,
90: contact_person_id,
282: Procedure pre_insert(p_rec in out nocopy per_ctr_shd.g_rec_type) is
283: --
284: l_proc varchar2(72) := g_package||'pre_insert';
285: --
286: Cursor C_Sel1 is select per_contact_relationships_s.nextval from sys.dual;
287: --
288: Cursor C_Sel2 is
289: select null
290: from per_contact_relationships
286: Cursor C_Sel1 is select per_contact_relationships_s.nextval from sys.dual;
287: --
288: Cursor C_Sel2 is
289: select null
290: from per_contact_relationships
291: where contact_relationship_id = per_ctr_ins.g_contact_relationship_id;
292: --
293: l_exists varchar2(1);
294: --
310: --
311: -- The primary key values are already in use.
312: --
313: fnd_message.set_name('PER','PER_289391_KEY_ALREADY_USED');
314: fnd_message.set_token('TABLE_NAME','per_contact_relationships');
315: fnd_message.raise_error;
316: end if;
317: close c_sel2;
318: --
450: );
451: exception
452: when hr_api.cannot_find_prog_unit then
453: hr_api.cannot_find_prog_unit_error
454: (p_module_name => 'PER_CONTACT_RELATIONSHIPS'
455: ,p_hook_type => 'AI'
456: );
457: end;
458: --