[Home] [Help]
1: Package Body pqh_sts_ins as
2: /* $Header: pqstsrhi.pkb 120.0 2005/05/29 02:43 appldev noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' pqh_sts_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.
30: hr_utility.set_location('Entering:'||l_proc, 10);
31: --
32: end if;
33: --
34: pqh_sts_ins.g_statutory_situation_id_i := p_statutory_situation_id;
35: --
36: if g_debug then
37: --
38: hr_utility.set_location(' Leaving:'||l_proc, 20);
250: Cursor C_Sel2 is
251: Select null
252: from pqh_fr_stat_situations
253: where statutory_situation_id =
254: pqh_sts_ins.g_statutory_situation_id_i;
255: --
256: l_proc varchar2(72) := g_package||'pre_insert';
257: l_exists varchar2(1);
258: --
262: hr_utility.set_location('Entering:'||l_proc, 5);
263: --
264: End if;
265: --
266: If (pqh_sts_ins.g_statutory_situation_id_i is not null) Then
267: --
268: -- Verify registered primary key values not already in use
269: --
270: Open C_Sel2;
282: --
283: -- Use registered key values and clear globals
284: --
285: p_rec.statutory_situation_id :=
286: pqh_sts_ins.g_statutory_situation_id_i;
287: pqh_sts_ins.g_statutory_situation_id_i := null;
288: Else
289: --
290: -- No registerd key values, so select the next sequence number
283: -- Use registered key values and clear globals
284: --
285: p_rec.statutory_situation_id :=
286: pqh_sts_ins.g_statutory_situation_id_i;
287: pqh_sts_ins.g_statutory_situation_id_i := null;
288: Else
289: --
290: -- No registerd key values, so select the next sequence number
291: --
469: hr_multi_message.end_validation_set;
470: --
471: -- Call the supporting pre-insert operation
472: --
473: pqh_sts_ins.pre_insert(p_rec);
474: --
475: -- Insert the row
476: --
477: pqh_sts_ins.insert_dml(p_rec);
473: pqh_sts_ins.pre_insert(p_rec);
474: --
475: -- Insert the row
476: --
477: pqh_sts_ins.insert_dml(p_rec);
478: --
479: -- Call the supporting post-insert operation
480: --
481: pqh_sts_ins.post_insert
477: pqh_sts_ins.insert_dml(p_rec);
478: --
479: -- Call the supporting post-insert operation
480: --
481: pqh_sts_ins.post_insert
482: (p_effective_date
483: ,p_rec
484: );
485: --
588: --
589: -- Having converted the arguments into the pqh_sts_rec
590: -- plsql record structure we call the corresponding record business process.
591: --
592: pqh_sts_ins.ins
593: (p_effective_date
594: ,l_rec
595: );
596: --
606: --
607: End if;
608: End ins;
609: --
610: end pqh_sts_ins;