1: Package Body ota_frm_ins as
2: /* $Header: otfrmrhi.pkb 120.3 2006/04/27 00:19 aabalakr noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' ota_frm_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: ota_frm_ins.g_forum_id_i := p_forum_id;
27: --
28: hr_utility.set_location(' Leaving:'||l_proc, 20);
29: End set_base_key_value;
30: --
181: Cursor C_Sel2 is
182: Select null
183: from ota_forums_b
184: where forum_id =
185: ota_frm_ins.g_forum_id_i;
186: --
187: l_proc varchar2(72) := g_package||'pre_insert';
188: l_exists varchar2(1);
189: --
189: --
190: Begin
191: hr_utility.set_location('Entering:'||l_proc, 5);
192: --
193: If (ota_frm_ins.g_forum_id_i is not null) Then
194: --
195: -- Verify registered primary key values not already in use
196: --
197: Open C_Sel2;
209: --
210: -- Use registered key values and clear globals
211: --
212: p_rec.forum_id :=
213: ota_frm_ins.g_forum_id_i;
214: ota_frm_ins.g_forum_id_i := null;
215: Else
216: --
217: -- No registerd key values, so select the next sequence number
210: -- Use registered key values and clear globals
211: --
212: p_rec.forum_id :=
213: ota_frm_ins.g_forum_id_i;
214: ota_frm_ins.g_forum_id_i := null;
215: Else
216: --
217: -- No registerd key values, so select the next sequence number
218: --
331: hr_multi_message.end_validation_set;
332: --
333: -- Call the supporting pre-insert operation
334: --
335: ota_frm_ins.pre_insert(p_rec);
336: --
337: -- Insert the row
338: --
339: ota_frm_ins.insert_dml(p_rec);
335: ota_frm_ins.pre_insert(p_rec);
336: --
337: -- Insert the row
338: --
339: ota_frm_ins.insert_dml(p_rec);
340: --
341: -- Call the supporting post-insert operation
342: --
343: ota_frm_ins.post_insert
339: ota_frm_ins.insert_dml(p_rec);
340: --
341: -- Call the supporting post-insert operation
342: --
343: ota_frm_ins.post_insert
344: (p_effective_date
345: ,p_rec
346: );
347: --
393: --
394: -- Having converted the arguments into the ota_frm_rec
395: -- plsql record structure we call the corresponding record business process.
396: --
397: ota_frm_ins.ins
398: (p_effective_date
399: ,l_rec
400: );
401: --
407: --
408: hr_utility.set_location(' Leaving:'||l_proc, 10);
409: End ins;
410: --
411: end ota_frm_ins;