[Home] [Help]
1: Package Body irc_ido_upd as
2: /* $Header: iridorhi.pkb 120.5.12010000.2 2008/09/26 13:55:20 pvelugul ship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' irc_ido_upd.'; -- Global package name
9: --
10: -- ----------------------------------------------------------------------------
11: -- |------------------------------< update_dml >------------------------------|
12: -- ----------------------------------------------------------------------------
391: );
392: --
393: -- Call the supporting pre-update operation
394: --
395: irc_ido_upd.pre_update(p_rec);
396: --
397: if p_rec.party_id is null then
398: p_rec.party_id := irc_ido_shd.g_old_rec.party_id;
399: end if;
406:
407: --
408: -- Update the row.
409: --
410: irc_ido_upd.update_dml(p_rec);
411: --
412: -- Call the supporting post-update operation
413: --
414: irc_ido_upd.post_update
410: irc_ido_upd.update_dml(p_rec);
411: --
412: -- Call the supporting post-update operation
413: --
414: irc_ido_upd.post_update
415: (p_effective_date
416: ,p_rec
417: );
418: End upd;
459: -- Having converted the arguments into the
460: -- plsql record structure we call the corresponding record
461: -- business process.
462: --
463: irc_ido_upd.upd
464: (p_effective_date
465: ,l_rec
466: );
467: p_object_version_number := l_rec.object_version_number;
468: --
469: hr_utility.set_location(' Leaving:'||l_proc, 10);
470: End upd;
471: --
472: end irc_ido_upd;