[Home] [Help]
1: Package Body irc_iss_ins as
2: /* $Header: irissrhi.pkb 120.0.12000000.1 2007/03/23 11:28:28 vboggava noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' irc_iss_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: irc_iss_ins.g_saved_search_criteria_id_i := p_saved_search_criteria_id;
27: --
28: hr_utility.set_location(' Leaving:'||l_proc, 20);
29: End set_base_key_value;
30: --
170: Cursor C_Sel2 is
171: Select null
172: from irc_saved_search_criteria
173: where saved_search_criteria_id =
174: irc_iss_ins.g_saved_search_criteria_id_i;
175: --
176: l_proc varchar2(72) := g_package||'pre_insert';
177: l_exists varchar2(1);
178: --
179: Begin
180: hr_utility.set_location('Entering:'||l_proc, 5);
181: --
182: --
183: If (irc_iss_ins.g_saved_search_criteria_id_i is not null) Then
184: --
185: -- Verify registered primary key values not already in use
186: --
187: Open C_Sel2;
199: --
200: -- Use registered key values and clear globals
201: --
202: p_rec.saved_search_criteria_id :=
203: irc_iss_ins.g_saved_search_criteria_id_i;
204: irc_iss_ins.g_saved_search_criteria_id_i := null;
205: Else
206: --
207: -- No registerd key values, so select the next sequence number
200: -- Use registered key values and clear globals
201: --
202: p_rec.saved_search_criteria_id :=
203: irc_iss_ins.g_saved_search_criteria_id_i;
204: irc_iss_ins.g_saved_search_criteria_id_i := null;
205: Else
206: --
207: -- No registerd key values, so select the next sequence number
208: --
307: --
308: -- Call the supporting pre-insert operation
309: --
310:
311: irc_iss_ins.pre_insert(p_rec);
312: --
313: -- Insert the row
314: --
315:
312: --
313: -- Insert the row
314: --
315:
316: irc_iss_ins.insert_dml(p_rec);
317: --
318: -- Call the supporting post-insert operation
319: --
320:
317: --
318: -- Call the supporting post-insert operation
319: --
320:
321: irc_iss_ins.post_insert
322: (p_rec
323: );
324:
325: --
358: --
359: -- Having converted the arguments into the irc_iss_rec
360: -- plsql record structure we call the corresponding record business process.
361: --
362: irc_iss_ins.ins
363: (l_rec
364: );
365: --
366: -- As the primary key argument(s)
371: --
372: hr_utility.set_location(' Leaving:'||l_proc, 10);
373: End ins;
374: --
375: end irc_iss_ins;