[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:
381: p_rec.add_information17,
382: p_rec.add_information18,
383: p_rec.add_information19,
384: p_rec.add_information20
385: From per_addresses_v
386: Where
387: person_id = p_rec.person_id and
388: primary_flag = 'Y' and
389: date_from =
387: person_id = p_rec.person_id and
388: primary_flag = 'Y' and
389: date_from =
390: (Select max(date_from)
391: From per_addresses_v
392: Where date_from between l_date and p_rec.date_from and
393: person_id = p_rec.person_id and
394: primary_flag = 'Y');
395: Else
400: Into p_rec.add_information18,
401: p_rec.add_information19,
402: p_rec.add_information17,
403: p_rec.add_information20
404: From per_addresses_v
405: Where person_id = p_rec.person_id and
406: primary_flag = 'Y' and
407: l_date between date_from and
408: nvl(date_to, TO_DATE('31/12/4712', 'DD/MM/YYYY')) and
541: );
542: exception
543: when hr_api.cannot_find_prog_unit then
544: hr_api.cannot_find_prog_unit_error
545: (p_module_name => 'PER_ADDRESSES'
546: ,p_hook_type => 'AI'
547: );
548: end;
549: --