1: Package Body pay_amo_ins as
2: /* $Header: pyamorhi.pkb 120.0.12000000.1 2007/01/17 15:29:33 appldev noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
24: l_proc := g_package||'set_base_key_value';
25: --
26: hr_utility.set_location('Entering:'||l_proc, 10);
27: --
28: pay_amo_ins.g_module_id_i := p_module_id;
29: --
30: hr_utility.set_location(' Leaving:'||l_proc, 20);
31: End set_base_key_value;
32: --
235: Cursor C_Sel2 is
236: Select null
237: from pay_au_modules
238: where module_id =
239: pay_amo_ins.g_module_id_i;
240: --
241: l_proc varchar2(72);
242: l_exists varchar2(1);
243: --
245: l_proc := g_package||'pre_insert';
246: --
247: hr_utility.set_location('Entering:'||l_proc, 5);
248: --
249: If (pay_amo_ins.g_module_id_i is not null) Then
250: --
251: -- Verify registered primary key values not already in use
252: --
253: Open C_Sel2;
265: --
266: -- Use registered key values and clear globals
267: --
268: p_rec.module_id :=
269: pay_amo_ins.g_module_id_i;
270: pay_amo_ins.g_module_id_i := null;
271: Else
272: --
273: -- No registerd key values, so select the next sequence number
266: -- Use registered key values and clear globals
267: --
268: p_rec.module_id :=
269: pay_amo_ins.g_module_id_i;
270: pay_amo_ins.g_module_id_i := null;
271: Else
272: --
273: -- No registerd key values, so select the next sequence number
274: --
362: hr_multi_message.end_validation_set;
363: --
364: -- Call the supporting pre-insert operation
365: --
366: pay_amo_ins.pre_insert(p_rec);
367: --
368: -- Insert the row
369: --
370: pay_amo_ins.insert_dml(p_rec);
366: pay_amo_ins.pre_insert(p_rec);
367: --
368: -- Insert the row
369: --
370: pay_amo_ins.insert_dml(p_rec);
371: --
372: -- Call the supporting post-insert operation
373: --
374: pay_amo_ins.post_insert
370: pay_amo_ins.insert_dml(p_rec);
371: --
372: -- Call the supporting post-insert operation
373: --
374: pay_amo_ins.post_insert
375: (p_rec
376: );
377: --
378: -- Call to raise any errors on multi-message list
426: --
427: -- Having converted the arguments into the pay_amo_rec
428: -- plsql record structure we call the corresponding record business process.
429: --
430: pay_amo_ins.ins
431: (l_rec
432: );
433: --
434: -- As the primary key argument(s)
440: hr_utility.set_location(' Leaving:'||l_proc, 10);
441: End ins;
442: --
443: begin
444: g_package := ' pay_amo_ins.'; -- Global package name
445: end pay_amo_ins;
441: End ins;
442: --
443: begin
444: g_package := ' pay_amo_ins.'; -- Global package name
445: end pay_amo_ins;