[Home] [Help]
1: Package Body hr_dty_ins as
2: /* $Header: hrdtyrhi.pkb 120.3 2012/01/10 07:40:39 srannama ship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' hr_dty_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: hr_dty_ins.g_document_type_id_i := p_document_type_id;
27: --
28: hr_utility.set_location(' Leaving:'||l_proc, 20);
29: End set_base_key_value;
30: --
183: Cursor C_Sel2 is
184: Select null
185: from hr_document_types
186: where document_type_id =
187: hr_dty_ins.g_document_type_id_i;
188: --
189: l_proc varchar2(72) := g_package||'pre_insert';
190: l_exists varchar2(1);
191: --
191: --
192: Begin
193: hr_utility.set_location('Entering:'||l_proc, 5);
194: --
195: If (hr_dty_ins.g_document_type_id_i is not null) Then
196: --
197: -- Verify registered primary key values not already in use
198: --
199: Open C_Sel2;
211: --
212: -- Use registered key values and clear globals
213: --
214: p_rec.document_type_id :=
215: hr_dty_ins.g_document_type_id_i;
216: hr_dty_ins.g_document_type_id_i := null;
217: Else
218: --
219: -- No registerd key values, so select the next sequence number
212: -- Use registered key values and clear globals
213: --
214: p_rec.document_type_id :=
215: hr_dty_ins.g_document_type_id_i;
216: hr_dty_ins.g_document_type_id_i := null;
217: Else
218: --
219: -- No registerd key values, so select the next sequence number
220: --
341: --
342: -- Call the supporting pre-insert operation
343: --
344:
345: hr_dty_ins.pre_insert(p_rec);
346: --
347: -- Insert the row
348: --
349:
346: --
347: -- Insert the row
348: --
349:
350: hr_dty_ins.insert_dml(p_rec);
351: --
352: -- Call the supporting post-insert operation
353: --
354: hr_dty_ins.post_insert
350: hr_dty_ins.insert_dml(p_rec);
351: --
352: -- Call the supporting post-insert operation
353: --
354: hr_dty_ins.post_insert
355: (p_effective_date
356: ,p_rec
357: );
358: --
416: -- Having converted the arguments into the hr_dty_rec
417: -- plsql record structure we call the corresponding record business process.
418: --
419:
420: hr_dty_ins.ins
421: (p_effective_date
422: ,l_rec
423: );
424: --
430: --
431: hr_utility.set_location(' Leaving:'||l_proc, 10);
432: End ins;
433: --
434: end hr_dty_ins;