[Home] [Help]
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' per_pat_ins.'; -- Global package name
9: g_debug boolean := hr_utility.debug_enabled;
10: --
11: -- The following global variables are only to be used by
12: -- the set_base_key_value and pre_insert procedures.
13: --
21: --
22: l_proc varchar2(72) := g_package||'set_base_key_value';
23: --
24: Begin
25: hr_utility.set_location('Entering:'||l_proc, 10);
26: --
27: per_pat_ins.g_allocated_task_id_i := p_allocated_task_id;
28: --
29: hr_utility.set_location(' Leaving:'||l_proc, 20);
25: hr_utility.set_location('Entering:'||l_proc, 10);
26: --
27: per_pat_ins.g_allocated_task_id_i := p_allocated_task_id;
28: --
29: hr_utility.set_location(' Leaving:'||l_proc, 20);
30: End set_base_key_value;
31: --
32: --
33: -- ----------------------------------------------------------------------------
79: --
80: l_proc varchar2(72) := g_package||'insert_dml';
81: --
82: Begin
83: hr_utility.set_location('Entering:'||l_proc, 5);
84: p_rec.object_version_number := 1; -- Initialise the object version
85: --
86: --
87: --
209: );
210: --
211: --
212: --
213: hr_utility.set_location(' Leaving:'||l_proc, 10);
214: Exception
215: When hr_api.check_integrity_violated Then
216: -- A check constraint has been violated
217: --
284: l_proc varchar2(72) := g_package||'pre_insert';
285: l_exists varchar2(1);
286: --
287: Begin
288: hr_utility.set_location('Entering:'||l_proc, 5);
289: --
290: If (per_pat_ins.g_allocated_task_id_i is not null) Then
291: --
292: -- Verify registered primary key values not already in use
320: Fetch C_Sel1 Into p_rec.allocated_task_id;
321: Close C_Sel1;
322: End If;
323: --
324: hr_utility.set_location(' Leaving:'||l_proc, 10);
325: End pre_insert;
326: --
327: -- ----------------------------------------------------------------------------
328: -- |-----------------------------< post_insert >------------------------------|
363: --
364: l_proc varchar2(72) := g_package||'post_insert';
365: --
366: Begin
367: hr_utility.set_location('Entering:'||l_proc, 5);
368: begin
369: --
370: per_pat_rki.after_insert
371: (p_effective_date => p_effective_date
496: ,p_hook_type => 'AI');
497: --
498: end;
499: --
500: hr_utility.set_location(' Leaving:'||l_proc, 10);
501: End post_insert;
502: --
503: -- ----------------------------------------------------------------------------
504: -- |---------------------------------< ins >----------------------------------|
510: --
511: l_proc varchar2(72) := g_package||'ins';
512: --
513: Begin
514: hr_utility.set_location('Entering:'||l_proc, 5);
515: --
516: -- Call the supporting insert validate operations
517: --
518: per_pat_bus.insert_validate
540: --
541: -- Call to raise any errors on multi-message list
542: hr_multi_message.end_validation_set;
543: --
544: hr_utility.set_location('Leaving:'||l_proc, 20);
545: end ins;
546: --
547: -- ----------------------------------------------------------------------------
548: -- |---------------------------------< ins >----------------------------------|
612: l_rec per_pat_shd.g_rec_type;
613: l_proc varchar2(72) := g_package||'ins';
614: --
615: Begin
616: hr_utility.set_location('Entering:'||l_proc, 5);
617: --
618: -- Call conversion function to turn arguments into the
619: -- p_rec structure.
620: --
693: --
694: p_allocated_task_id := l_rec.allocated_task_id;
695: p_object_version_number := l_rec.object_version_number;
696: --
697: hr_utility.set_location(' Leaving:'||l_proc, 10);
698: End ins;
699: --
700: end per_pat_ins;