[Home] [Help]
82: p_rec.object_version_number := 1; -- Initialise the object version
83: --
84: per_add_shd.g_api_dml := true; -- Set the api dml status
85: --
86: -- Insert the row into: per_addresses
87: --
88: insert into per_addresses
89: ( address_id,
90: business_group_id,
84: per_add_shd.g_api_dml := true; -- Set the api dml status
85: --
86: -- Insert the row into: per_addresses
87: --
88: insert into per_addresses
89: ( address_id,
90: business_group_id,
91: person_id,
92: date_from,
271: --
272: l_proc varchar2(72) := g_package||'pre_insert';
273: l_exists varchar2(1);
274: --
275: Cursor C_Sel1 is select per_addresses_s.nextval from sys.dual;
276: --
277: Cursor C_Sel2 is
278: select null
279: from per_addresses
275: Cursor C_Sel1 is select per_addresses_s.nextval from sys.dual;
276: --
277: Cursor C_Sel2 is
278: select null
279: from per_addresses
280: where address_id = per_add_ins.g_address_id_i;
281: --
282: l_date date;
283: l_last_update date;
301: --
302: -- The primary key values are already in use.
303: --
304: fnd_message.set_name('PER','PER_289391_KEY_ALREADY_USED');
305: fnd_message.set_token('TABLE_NAME','per_addresses');
306: fnd_message.raise_error;
307: end if;
308: Close C_Sel2;
309: --
363: --
364: -- Bug 3363711 Ends Here
365: --
366: Select max(date_from) into l_last_update
367: From per_addresses_v
368: Where person_id = p_rec.person_id and
369: primary_flag = 'Y' and
370: date_from <= p_rec.date_from;
371: If l_date <= l_last_update
379: p_rec.add_information17,
380: p_rec.add_information18,
381: p_rec.add_information19,
382: p_rec.add_information20
383: From per_addresses_v
384: Where
385: person_id = p_rec.person_id and
386: primary_flag = 'Y' and
387: date_from =
385: person_id = p_rec.person_id and
386: primary_flag = 'Y' and
387: date_from =
388: (Select max(date_from)
389: From per_addresses_v
390: Where date_from between l_date and p_rec.date_from and
391: person_id = p_rec.person_id and
392: primary_flag = 'Y');
393: Else
398: Into p_rec.add_information18,
399: p_rec.add_information19,
400: p_rec.add_information17,
401: p_rec.add_information20
402: From per_addresses_v
403: Where person_id = p_rec.person_id and
404: primary_flag = 'Y' and
405: l_date between date_from and
406: nvl(date_to, TO_DATE('31/12/4712', 'DD/MM/YYYY')) and
539: );
540: exception
541: when hr_api.cannot_find_prog_unit then
542: hr_api.cannot_find_prog_unit_error
543: (p_module_name => 'PER_ADDRESSES'
544: ,p_hook_type => 'AI'
545: );
546: end;
547: --