[Home] [Help]
1: Package Body pay_aif_ins as
2: /* $Header: pyaifrhi.pkb 120.3.12020000.2 2012/07/04 20:39:11 amnaraya ship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' pay_aif_ins.'; -- Global package name
9: --
10: -- The following global variables are only to be used by
11: -- the set_base_key_value and pre_insert procedures.
12: --
22: --
23: Begin
24: hr_utility.set_location('Entering:'||l_proc, 10);
25: --
26: pay_aif_ins.g_action_information_id_i := p_action_information_id;
27: --
28: hr_utility.set_location(' Leaving:'||l_proc, 20);
29: End set_base_key_value;
30: --
247: Cursor C_Sel2 is
248: Select null
249: from pay_action_information
250: where action_information_id =
251: pay_aif_ins.g_action_information_id_i;
252: --
253: Begin
254: hr_utility.set_location('Entering:'||l_proc, 5);
255: --
252: --
253: Begin
254: hr_utility.set_location('Entering:'||l_proc, 5);
255: --
256: If (pay_aif_ins.g_action_information_id_i is not null) Then
257: --
258: -- Verify registered primary key values not already in use
259: --
260: Open C_Sel2;
272: --
273: -- Use registered key values and clear globals
274: --
275: p_rec.action_information_id :=
276: pay_aif_ins.g_action_information_id_i;
277: pay_aif_ins.g_action_information_id_i := null;
278: Else
279: --
280: -- No registerd key values, so select the next sequence number
273: -- Use registered key values and clear globals
274: --
275: p_rec.action_information_id :=
276: pay_aif_ins.g_action_information_id_i;
277: pay_aif_ins.g_action_information_id_i := null;
278: Else
279: --
280: -- No registerd key values, so select the next sequence number
281: --
454: hr_multi_message.end_validation_set;
455: --
456: -- Call the supporting pre-insert operation
457: --
458: pay_aif_ins.pre_insert(p_rec);
459: --
460: -- Insert the row
461: --
462: pay_aif_ins.insert_dml(p_rec);
458: pay_aif_ins.pre_insert(p_rec);
459: --
460: -- Insert the row
461: --
462: pay_aif_ins.insert_dml(p_rec);
463: --
464: -- Call the supporting post-insert operation
465: --
466: pay_aif_ins.post_insert
462: pay_aif_ins.insert_dml(p_rec);
463: --
464: -- Call the supporting post-insert operation
465: --
466: pay_aif_ins.post_insert
467: (p_rec
468: );
469: --
470: -- Call to raise any errors on multi-message list
579: --
580: -- Having converted the arguments into the pay_aif_rec
581: -- plsql record structure we call the corresponding record business process.
582: --
583: pay_aif_ins.ins
584: (l_rec
585: );
586: --
587: -- As the primary key argument(s)
592: --
593: hr_utility.set_location(' Leaving:'||l_proc, 10);
594: End ins;
595: --
596: end pay_aif_ins;