1: Package Body ame_acu_ins as
2: /* $Header: amacurhi.pkb 120.4 2005/11/22 03:13 santosin noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' ame_acu_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: --
24: --
25: Begin
26: hr_utility.set_location('Entering:'||l_proc, 10);
27: --
28: ame_acu_ins.g_rule_id_i := p_rule_id;
29: ame_acu_ins.g_action_id_i := p_action_id;
30: --
31: hr_utility.set_location(' Leaving:'||l_proc, 20);
32: End set_base_key_value;
25: Begin
26: hr_utility.set_location('Entering:'||l_proc, 10);
27: --
28: ame_acu_ins.g_rule_id_i := p_rule_id;
29: ame_acu_ins.g_action_id_i := p_action_id;
30: --
31: hr_utility.set_location(' Leaving:'||l_proc, 20);
32: End set_base_key_value;
33: --
260: --
261: Begin
262: hr_utility.set_location('Entering:'||l_proc, 5);
263: --
264: ame_acu_ins.dt_insert_dml
265: (p_rec => p_rec
266: ,p_effective_date => p_effective_date
267: ,p_datetrack_mode => p_datetrack_mode
268: ,p_validation_start_date => p_validation_start_date
324: Cursor C_Sel2 is
325: Select null
326: from ame_action_usages
327: where rule_id =
328: ame_acu_ins.g_rule_id_i
329: and action_id =
330: ame_acu_ins.g_action_id_i
331: and ( p_effective_date
332: between start_date and nvl(end_date - ame_util.oneSecond,p_effective_date)
326: from ame_action_usages
327: where rule_id =
328: ame_acu_ins.g_rule_id_i
329: and action_id =
330: ame_acu_ins.g_action_id_i
331: and ( p_effective_date
332: between start_date and nvl(end_date - ame_util.oneSecond,p_effective_date)
333: or
334: (p_effective_date < start_date and
339: --
340: Begin
341: hr_utility.set_location('Entering:'||l_proc, 5);
342: --
343: If (ame_acu_ins.g_rule_id_i is not null or
344: ame_acu_ins.g_action_id_i is not null) Then
345: --
346: -- Verify registered primary key values not already in use
347: --
340: Begin
341: hr_utility.set_location('Entering:'||l_proc, 5);
342: --
343: If (ame_acu_ins.g_rule_id_i is not null or
344: ame_acu_ins.g_action_id_i is not null) Then
345: --
346: -- Verify registered primary key values not already in use
347: --
348: Open C_Sel2;
360: --
361: -- Use registered key values and clear globals
362: --
363: p_rec.rule_id :=
364: ame_acu_ins.g_rule_id_i;
365: ame_acu_ins.g_rule_id_i := null;
366: p_rec.action_id :=
367: ame_acu_ins.g_action_id_i;
368: ame_acu_ins.g_action_id_i := null;
361: -- Use registered key values and clear globals
362: --
363: p_rec.rule_id :=
364: ame_acu_ins.g_rule_id_i;
365: ame_acu_ins.g_rule_id_i := null;
366: p_rec.action_id :=
367: ame_acu_ins.g_action_id_i;
368: ame_acu_ins.g_action_id_i := null;
369: End If;
363: p_rec.rule_id :=
364: ame_acu_ins.g_rule_id_i;
365: ame_acu_ins.g_rule_id_i := null;
366: p_rec.action_id :=
367: ame_acu_ins.g_action_id_i;
368: ame_acu_ins.g_action_id_i := null;
369: End If;
370: --
371: --
364: ame_acu_ins.g_rule_id_i;
365: ame_acu_ins.g_rule_id_i := null;
366: p_rec.action_id :=
367: ame_acu_ins.g_action_id_i;
368: ame_acu_ins.g_action_id_i := null;
369: End If;
370: --
371: --
372: hr_utility.set_location(' Leaving:'||l_proc, 10);
563: hr_utility.set_location('Entering:'||l_proc, 5);
564: --
565: -- Call the lock operation
566: --
567: ame_acu_ins.ins_lck
568: (p_effective_date => p_effective_date
569: ,p_datetrack_mode => l_datetrack_mode
570: ,p_rec => p_rec
571: ,p_validation_start_date => l_validation_start_date
586: hr_multi_message.end_validation_set;
587: --
588: -- Call the supporting pre-insert operation
589: --
590: ame_acu_ins.pre_insert
591: (p_rec => p_rec
592: ,p_effective_date => p_effective_date
593: ,p_datetrack_mode => l_datetrack_mode
594: ,p_validation_start_date => l_validation_start_date
596: );
597: --
598: -- Insert the row
599: --
600: ame_acu_ins.insert_dml
601: (p_rec => p_rec
602: ,p_effective_date => p_effective_date
603: ,p_datetrack_mode => l_datetrack_mode
604: ,p_validation_start_date => l_validation_start_date
606: );
607: --
608: -- Call the supporting post-insert operation
609: --
610: ame_acu_ins.post_insert
611: (p_rec => p_rec
612: ,p_effective_date => p_effective_date
613: ,p_datetrack_mode => l_datetrack_mode
614: ,p_validation_start_date => l_validation_start_date
654: -- Having converted the arguments into the ame_acu_rec
655: -- plsql record structure we call the corresponding record
656: -- business process.
657: --
658: ame_acu_ins.ins
659: (p_effective_date
660: ,l_rec
661: );
662: --
669: --
670: hr_utility.set_location(' Leaving:'||l_proc, 10);
671: End ins;
672: --
673: end ame_acu_ins;