1: Package Body per_ret_ins as
2: /* $Header: peretrhi.pkb 115.1 2002/12/06 11:29:20 eumenyio noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' per_ret_ins.'; -- Global package name
9: --
10: -- ----------------------------------------------------------------------------
11: -- |------------------------------< insert_dml >------------------------------|
12: -- ----------------------------------------------------------------------------
346: );
347: --
348: -- Call the supporting pre-insert operation
349: --
350: per_ret_ins.pre_insert(p_rec);
351: --
352: -- Insert the row
353: --
354: per_ret_ins.insert_dml(p_rec);
350: per_ret_ins.pre_insert(p_rec);
351: --
352: -- Insert the row
353: --
354: per_ret_ins.insert_dml(p_rec);
355: --
356: -- Call the supporting post-insert operation
357: --
358: per_ret_ins.post_insert
354: per_ret_ins.insert_dml(p_rec);
355: --
356: -- Call the supporting post-insert operation
357: --
358: per_ret_ins.post_insert
359: (p_effective_date
360: ,p_rec
361: );
362: --
441: --
442: -- Having converted the arguments into the per_ret_rec
443: -- plsql record structure we call the corresponding record business process.
444: --
445: per_ret_ins.ins
446: (p_effective_date
447: ,l_rec
448: );
449: --
455: --
456: hr_utility.set_location(' Leaving:'||l_proc, 10);
457: End ins;
458: --
459: end per_ret_ins;