[Home] [Help]
1: Package Body ame_apt_ins as
2: /* $Header: amaptrhi.pkb 120.1 2006/04/21 08:44 avarri noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := 'ame_apt_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: ame_apt_ins.g_approver_type_id_i := p_approver_type_id;
27: --
28: hr_utility.set_location(' Leaving:'||l_proc, 20);
29: End set_base_key_value;
30: --
262: --
263: Begin
264: hr_utility.set_location('Entering:'||l_proc, 5);
265: --
266: ame_apt_ins.dt_insert_dml
267: (p_rec => p_rec
268: ,p_effective_date => p_effective_date
269: ,p_datetrack_mode => p_datetrack_mode
270: ,p_validation_start_date => p_validation_start_date
327: Cursor C_Sel2 is
328: Select null
329: from ame_approver_types
330: where approver_type_id =
331: ame_apt_ins.g_approver_type_id_i;
332: --
333: l_proc varchar2(72) := g_package||'pre_insert';
334: l_exists varchar2(1);
335: --
335: --
336: Begin
337: hr_utility.set_location('Entering:'||l_proc, 5);
338: --
339: If (ame_apt_ins.g_approver_type_id_i is not null) Then
340: --
341: -- Verify registered primary key values not already in use
342: --
343: Open C_Sel2;
355: --
356: -- Use registered key values and clear globals
357: --
358: p_rec.approver_type_id :=
359: ame_apt_ins.g_approver_type_id_i;
360: ame_apt_ins.g_approver_type_id_i := null;
361: Else
362: --
363: -- No registerd key values, so select the next sequence number
356: -- Use registered key values and clear globals
357: --
358: p_rec.approver_type_id :=
359: ame_apt_ins.g_approver_type_id_i;
360: ame_apt_ins.g_approver_type_id_i := null;
361: Else
362: --
363: -- No registerd key values, so select the next sequence number
364: --
533: hr_utility.set_location('Entering:'||l_proc, 5);
534: --
535: -- Call the lock operation
536: --
537: ame_apt_ins.ins_lck
538: (p_effective_date => p_effective_date
539: ,p_datetrack_mode => l_datetrack_mode
540: ,p_rec => p_rec
541: ,p_validation_start_date => l_validation_start_date
556: hr_multi_message.end_validation_set;
557: --
558: -- Call the supporting pre-insert operation
559: --
560: ame_apt_ins.pre_insert
561: (p_rec => p_rec
562: ,p_effective_date => p_effective_date
563: ,p_datetrack_mode => l_datetrack_mode
564: ,p_validation_start_date => l_validation_start_date
566: );
567: --
568: -- Insert the row
569: --
570: ame_apt_ins.insert_dml
571: (p_rec => p_rec
572: ,p_effective_date => p_effective_date
573: ,p_datetrack_mode => l_datetrack_mode
574: ,p_validation_start_date => l_validation_start_date
576: );
577: --
578: -- Call the supporting post-insert operation
579: --
580: ame_apt_ins.post_insert
581: (p_rec => p_rec
582: ,p_effective_date => p_effective_date
583: ,p_datetrack_mode => l_datetrack_mode
584: ,p_validation_start_date => l_validation_start_date
646: -- Having converted the arguments into the ame_apt_rec
647: -- plsql record structure we call the corresponding record
648: -- business process.
649: --
650: ame_apt_ins.ins
651: (p_effective_date
652: ,l_rec
653: );
654: --
662: --
663: hr_utility.set_location(' Leaving:'||l_proc, 10);
664: End ins;
665: --
666: end ame_apt_ins;