[Home] [Help]
1: Package Body pqh_pre_ins as
2: /* $Header: pqprerhi.pkb 115.3 2002/12/03 20:42:09 rpasapul noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' pqh_pre_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: pqh_pre_ins.g_ins_end_reason_id_i := p_ins_end_reason_id;
27: --
28: hr_utility.set_location(' Leaving:'||l_proc, 20);
29: End set_base_key_value;
30: --
175: Cursor C_Sel2 is
176: Select null
177: from pqh_de_ins_end_reasons
178: where ins_end_reason_id =
179: pqh_pre_ins.g_ins_end_reason_id_i;
180: --
181: l_proc varchar2(72) := g_package||'pre_insert';
182: l_exists varchar2(1);
183: --
183: --
184: Begin
185: hr_utility.set_location('Entering:'||l_proc, 5);
186: --
187: If (pqh_pre_ins.g_ins_end_reason_id_i is not null) Then
188: --
189: -- Verify registered primary key values not already in use
190: --
191: Open C_Sel2;
203: --
204: -- Use registered key values and clear globals
205: --
206: p_rec.ins_end_reason_id :=
207: pqh_pre_ins.g_ins_end_reason_id_i;
208: pqh_pre_ins.g_ins_end_reason_id_i := null;
209: Else
210: --
211: -- No registerd key values, so select the next sequence number
204: -- Use registered key values and clear globals
205: --
206: p_rec.ins_end_reason_id :=
207: pqh_pre_ins.g_ins_end_reason_id_i;
208: pqh_pre_ins.g_ins_end_reason_id_i := null;
209: Else
210: --
211: -- No registerd key values, so select the next sequence number
212: --
315: hr_multi_message.end_validation_set;
316: --
317: -- Call the supporting pre-insert operation
318: --
319: pqh_pre_ins.pre_insert(p_rec);
320: --
321: -- Insert the row
322: --
323: pqh_pre_ins.insert_dml(p_rec);
319: pqh_pre_ins.pre_insert(p_rec);
320: --
321: -- Insert the row
322: --
323: pqh_pre_ins.insert_dml(p_rec);
324: --
325: -- Call the supporting post-insert operation
326: --
327: pqh_pre_ins.post_insert
323: pqh_pre_ins.insert_dml(p_rec);
324: --
325: -- Call the supporting post-insert operation
326: --
327: pqh_pre_ins.post_insert
328: (p_rec
329: );
330: --
331: -- Call to raise any errors on multi-message list
369: --
370: -- Having converted the arguments into the pqh_pre_rec
371: -- plsql record structure we call the corresponding record business process.
372: --
373: pqh_pre_ins.ins
374: (l_rec
375: );
376: --
377: -- As the primary key argument(s)
382: --
383: hr_utility.set_location(' Leaving:'||l_proc, 10);
384: End ins;
385: --
386: end pqh_pre_ins;