[Home] [Help]
1: Package Body ame_itc_ins as
2: /* $Header: amitcrhi.pkb 120.2 2005/11/22 03:17 santosin noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' ame_itc_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_itc_ins.g_item_class_id_i := p_item_class_id;
27: --
28: hr_utility.set_location(' Leaving:'||l_proc, 20);
29: End set_base_key_value;
30: --
240: --
241: Begin
242: hr_utility.set_location('Entering:'||l_proc, 5);
243: --
244: ame_itc_ins.dt_insert_dml
245: (p_rec => p_rec
246: ,p_effective_date => p_effective_date
247: ,p_datetrack_mode => p_datetrack_mode
248: ,p_validation_start_date => p_validation_start_date
309: Cursor C_Sel2 is
310: Select null
311: from ame_item_classes
312: where item_class_id =
313: ame_itc_ins.g_item_class_id_i;
314: --
315: l_proc varchar2(72) := g_package||'pre_insert';
316: l_exists varchar2(1);
317: --
317: --
318: Begin
319: hr_utility.set_location('Entering:'||l_proc, 5);
320: --
321: If (ame_itc_ins.g_item_class_id_i is not null) Then
322: --
323: -- Verify registered primary key values not already in use
324: --
325: Open C_Sel2;
337: --
338: -- Use registered key values and clear globals
339: --
340: p_rec.item_class_id :=
341: ame_itc_ins.g_item_class_id_i;
342: ame_itc_ins.g_item_class_id_i := null;
343: Else
344: --
345: -- No registerd key values, so select the next sequence number
338: -- Use registered key values and clear globals
339: --
340: p_rec.item_class_id :=
341: ame_itc_ins.g_item_class_id_i;
342: ame_itc_ins.g_item_class_id_i := null;
343: Else
344: --
345: -- No registerd key values, so select the next sequence number
346: --
506: hr_utility.set_location('Entering:'||l_proc, 5);
507: --
508: -- Call the lock operation
509: --
510: ame_itc_ins.ins_lck
511: (p_effective_date => p_effective_date
512: ,p_datetrack_mode => l_datetrack_mode
513: ,p_rec => p_rec
514: ,p_validation_start_date => l_validation_start_date
529: hr_multi_message.end_validation_set;
530: --
531: -- Call the supporting pre-insert operation
532: --
533: ame_itc_ins.pre_insert
534: (p_rec => p_rec
535: ,p_effective_date => p_effective_date
536: ,p_datetrack_mode => l_datetrack_mode
537: ,p_validation_start_date => l_validation_start_date
539: );
540: --
541: -- Insert the row
542: --
543: ame_itc_ins.insert_dml
544: (p_rec => p_rec
545: ,p_effective_date => p_effective_date
546: ,p_datetrack_mode => l_datetrack_mode
547: ,p_validation_start_date => l_validation_start_date
549: );
550: --
551: -- Call the supporting post-insert operation
552: --
553: ame_itc_ins.post_insert
554: (p_rec => p_rec
555: ,p_effective_date => p_effective_date
556: ,p_datetrack_mode => l_datetrack_mode
557: ,p_validation_start_date => l_validation_start_date
597: -- Having converted the arguments into the ame_itc_rec
598: -- plsql record structure we call the corresponding record
599: -- business process.
600: --
601: ame_itc_ins.ins
602: (p_effective_date
603: ,l_rec
604: );
605: --
613: --
614: hr_utility.set_location(' Leaving:'||l_proc, 10);
615: End ins;
616: --
617: end ame_itc_ins;