1: Package Body pqh_str_ins as
2: /* $Header: pqstrrhi.pkb 115.10 2004/04/06 05:49 svorugan noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' pqh_str_ins.'; -- Global package name
9:
10: g_debug boolean := hr_utility.debug_enabled;
11:
12: --
32: hr_utility.set_location('Entering:'||l_proc, 10);
33: --
34: End if;
35: --
36: pqh_str_ins.g_stat_situation_rule_id_i := p_stat_situation_rule_id;
37: --
38: if g_debug then
39: --
40: hr_utility.set_location(' Leaving:'||l_proc, 20);
204: Cursor C_Sel2 is
205: Select null
206: from pqh_fr_stat_situation_rules
207: where stat_situation_rule_id =
208: pqh_str_ins.g_stat_situation_rule_id_i;
209: --
210: l_proc varchar2(72) := g_package||'pre_insert';
211: l_exists varchar2(1);
212: --
217: --
218: End if;
219:
220: --
221: If (pqh_str_ins.g_stat_situation_rule_id_i is not null) Then
222: --
223: -- Verify registered primary key values not already in use
224: --
225: Open C_Sel2;
237: --
238: -- Use registered key values and clear globals
239: --
240: p_rec.stat_situation_rule_id :=
241: pqh_str_ins.g_stat_situation_rule_id_i;
242: pqh_str_ins.g_stat_situation_rule_id_i := null;
243: Else
244: --
245: -- No registerd key values, so select the next sequence number
238: -- Use registered key values and clear globals
239: --
240: p_rec.stat_situation_rule_id :=
241: pqh_str_ins.g_stat_situation_rule_id_i;
242: pqh_str_ins.g_stat_situation_rule_id_i := null;
243: Else
244: --
245: -- No registerd key values, so select the next sequence number
246: --
381: hr_multi_message.end_validation_set;
382: --
383: -- Call the supporting pre-insert operation
384: --
385: pqh_str_ins.pre_insert(p_rec);
386: --
387: -- Insert the row
388: --
389: pqh_str_ins.insert_dml(p_rec);
385: pqh_str_ins.pre_insert(p_rec);
386: --
387: -- Insert the row
388: --
389: pqh_str_ins.insert_dml(p_rec);
390: --
391: -- Call the supporting post-insert operation
392: --
393: pqh_str_ins.post_insert
389: pqh_str_ins.insert_dml(p_rec);
390: --
391: -- Call the supporting post-insert operation
392: --
393: pqh_str_ins.post_insert
394: (p_effective_date
395: ,p_rec
396: );
397: --
455: --
456: -- Having converted the arguments into the pqh_str_rec
457: -- plsql record structure we call the corresponding record business process.
458: --
459: pqh_str_ins.ins
460: (p_effective_date
461: ,l_rec
462: );
463: --
474: End if;
475:
476: End ins;
477: --
478: end pqh_str_ins;