1: Package Body per_fdl_ins as
2: /* $Header: pefdlrhi.pkb 120.0.12020000.1 2013/02/27 12:35:26 shpatro noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' per_fdl_ins.'; -- Global package name
9:
10: --
11: -- The following global variables are only to be used by
12: -- the set_base_key_value and pre_insert procedures.
25: Begin
26: hr_utility.set_location('Entering:'||l_proc, 10);
27: --
28:
29: per_fdl_ins.g_fnd_doc_link_id_i := p_fnd_doc_link_id;
30: --
31: hr_utility.set_location(' Leaving:'||l_proc, 20);
32: End set_base_key_value;
33: --
219: Cursor C_Sel2 is
220: Select null
221: from per_fnd_doc_links
222: where fnd_doc_link_id =
223: per_fdl_ins.g_fnd_doc_link_id_i;
224: --
225: l_proc varchar2(72) := g_package||'pre_insert';
226: l_exists varchar2(1);
227: --
227: --
228: Begin
229: hr_utility.set_location('Entering:'||l_proc, 5);
230: --
231: If (per_fdl_ins.g_fnd_doc_link_id_i is not null) Then
232: --
233: -- Verify registered primary key values not already in use
234: --
235: Open C_Sel2;
248: -- Use registered key values and clear globals
249: --
250:
251: p_rec.fnd_doc_link_id :=
252: per_fdl_ins.g_fnd_doc_link_id_i;
253: per_fdl_ins.g_fnd_doc_link_id_i := null;
254: Else
255: --
256: -- No registerd key values, so select the next sequence number
249: --
250:
251: p_rec.fnd_doc_link_id :=
252: per_fdl_ins.g_fnd_doc_link_id_i;
253: per_fdl_ins.g_fnd_doc_link_id_i := null;
254: Else
255: --
256: -- No registerd key values, so select the next sequence number
257: --
400: hr_multi_message.end_validation_set;
401: --
402: -- Call the supporting pre-insert operation
403: --
404: per_fdl_ins.pre_insert(p_rec);
405: --
406: -- Insert the row
407: --
408: per_fdl_ins.insert_dml(p_rec);
404: per_fdl_ins.pre_insert(p_rec);
405: --
406: -- Insert the row
407: --
408: per_fdl_ins.insert_dml(p_rec);
409: --
410: -- Call the supporting post-insert operation
411: --
412: per_fdl_ins.post_insert
408: per_fdl_ins.insert_dml(p_rec);
409: --
410: -- Call the supporting post-insert operation
411: --
412: per_fdl_ins.post_insert
413: (p_rec
414: );
415: --
416: -- Call to raise any errors on multi-message list
488: --
489: -- Having converted the arguments into the per_fdl_rec
490: -- plsql record structure we call the corresponding record business process.
491: --
492: per_fdl_ins.ins
493: (l_rec
494: );
495: --
496: -- As the primary key argument(s)
502: hr_utility.set_location(' Leaving:'||l_proc, 10);
503: End ins;
504:
505: --
506: end per_fdl_ins;