1: Package Body pqh_tjr_upd as
2: /* $Header: pqtjrrhi.pkb 115.3 2002/12/12 21:47:19 rpasapul noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' pqh_tjr_upd.'; -- Global package name
9: --
10: -- ----------------------------------------------------------------------------
11: -- |------------------------------< update_dml >------------------------------|
12: -- ----------------------------------------------------------------------------
600: );
601: --
602: -- Call the supporting pre-update operation
603: --
604: pqh_tjr_upd.pre_update(p_rec);
605: --
606: -- Update the row.
607: --
608: pqh_tjr_upd.update_dml(p_rec);
604: pqh_tjr_upd.pre_update(p_rec);
605: --
606: -- Update the row.
607: --
608: pqh_tjr_upd.update_dml(p_rec);
609: --
610: -- Call the supporting post-update operation
611: --
612: pqh_tjr_upd.post_update
608: pqh_tjr_upd.update_dml(p_rec);
609: --
610: -- Call the supporting post-update operation
611: --
612: pqh_tjr_upd.post_update
613: (p_rec
614: );
615: End upd;
616: --
708: -- Having converted the arguments into the
709: -- plsql record structure we call the corresponding record
710: -- business process.
711: --
712: pqh_tjr_upd.upd
713: (l_rec
714: );
715: p_object_version_number := l_rec.object_version_number;
716: --
716: --
717: hr_utility.set_location(' Leaving:'||l_proc, 10);
718: End upd;
719: --
720: end pqh_tjr_upd;