1: Package Body ame_act_ins as
2: /* $Header: amactrhi.pkb 120.4 2005/11/22 03:12 santosin noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' ame_act_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_act_ins.g_action_id_i := p_action_id;
29: ame_act_ins.g_action_type_id_i := p_action_type_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_act_ins.g_action_id_i := p_action_id;
29: ame_act_ins.g_action_type_id_i := p_action_type_id;
30: --
31: hr_utility.set_location(' Leaving:'||l_proc, 20);
32: End set_base_key_value;
33: --
257: --
258: Begin
259: hr_utility.set_location('Entering:'||l_proc, 5);
260: --
261: ame_act_ins.dt_insert_dml
262: (p_rec => p_rec
263: ,p_effective_date => p_effective_date
264: ,p_datetrack_mode => p_datetrack_mode
265: ,p_validation_start_date => p_validation_start_date
321: Cursor C_Sel2 is
322: Select null
323: from ame_actions
324: where action_id =
325: ame_act_ins.g_action_id_i
326: and action_type_id =
327: ame_act_ins.g_action_type_id_i;
328: --
329: l_proc varchar2(72) := g_package||'pre_insert';
323: from ame_actions
324: where action_id =
325: ame_act_ins.g_action_id_i
326: and action_type_id =
327: ame_act_ins.g_action_type_id_i;
328: --
329: l_proc varchar2(72) := g_package||'pre_insert';
330: l_exists varchar2(1);
331: --
331: --
332: Begin
333: hr_utility.set_location('Entering:'||l_proc, 5);
334: --
335: If(ame_act_ins.g_action_id_i is not null) then
336: /*
337: If (ame_act_ins.g_action_id_i is not null or
338: ame_act_ins.g_action_type_id_i is not null) Then
339: */
333: hr_utility.set_location('Entering:'||l_proc, 5);
334: --
335: If(ame_act_ins.g_action_id_i is not null) then
336: /*
337: If (ame_act_ins.g_action_id_i is not null or
338: ame_act_ins.g_action_type_id_i is not null) Then
339: */
340: --
341: -- Verify registered primary key values not already in use
334: --
335: If(ame_act_ins.g_action_id_i is not null) then
336: /*
337: If (ame_act_ins.g_action_id_i is not null or
338: ame_act_ins.g_action_type_id_i is not null) Then
339: */
340: --
341: -- Verify registered primary key values not already in use
342: --
355: --
356: -- Use registered key values and clear globals
357: --
358: p_rec.action_id :=
359: ame_act_ins.g_action_id_i;
360: ame_act_ins.g_action_id_i := null;
361: p_rec.action_type_id :=
362: ame_act_ins.g_action_type_id_i;
363: ame_act_ins.g_action_type_id_i := null;
356: -- Use registered key values and clear globals
357: --
358: p_rec.action_id :=
359: ame_act_ins.g_action_id_i;
360: ame_act_ins.g_action_id_i := null;
361: p_rec.action_type_id :=
362: ame_act_ins.g_action_type_id_i;
363: ame_act_ins.g_action_type_id_i := null;
364: Else
358: p_rec.action_id :=
359: ame_act_ins.g_action_id_i;
360: ame_act_ins.g_action_id_i := null;
361: p_rec.action_type_id :=
362: ame_act_ins.g_action_type_id_i;
363: ame_act_ins.g_action_type_id_i := null;
364: Else
365: --
366: -- No registerd key values, so select the next sequence number
359: ame_act_ins.g_action_id_i;
360: ame_act_ins.g_action_id_i := null;
361: p_rec.action_type_id :=
362: ame_act_ins.g_action_type_id_i;
363: ame_act_ins.g_action_type_id_i := null;
364: Else
365: --
366: -- No registerd key values, so select the next sequence number
367: --
559: hr_utility.set_location('Entering:'||l_proc, 5);
560: --
561: -- Call the lock operation
562: --
563: ame_act_ins.ins_lck
564: (p_effective_date => p_effective_date
565: ,p_datetrack_mode => l_datetrack_mode
566: ,p_rec => p_rec
567: ,p_validation_start_date => l_validation_start_date
582: hr_multi_message.end_validation_set;
583: --
584: -- Call the supporting pre-insert operation
585: --
586: ame_act_ins.pre_insert
587: (p_rec => p_rec
588: ,p_effective_date => p_effective_date
589: ,p_datetrack_mode => l_datetrack_mode
590: ,p_validation_start_date => l_validation_start_date
592: );
593: --
594: -- Insert the row
595: --
596: ame_act_ins.insert_dml
597: (p_rec => p_rec
598: ,p_effective_date => p_effective_date
599: ,p_datetrack_mode => l_datetrack_mode
600: ,p_validation_start_date => l_validation_start_date
602: );
603: --
604: -- Call the supporting post-insert operation
605: --
606: ame_act_ins.post_insert
607: (p_rec => p_rec
608: ,p_effective_date => p_effective_date
609: ,p_datetrack_mode => l_datetrack_mode
610: ,p_validation_start_date => l_validation_start_date
658: -- Having converted the arguments into the ame_act_rec
659: -- plsql record structure we call the corresponding record
660: -- business process.
661: --
662: ame_act_ins.ins
663: (p_effective_date
664: ,l_rec
665: );
666: --
675: --
676: hr_utility.set_location(' Leaving:'||l_proc, 10);
677: End ins;
678: --
679: end ame_act_ins;