1: Package Body ota_ftu_ins as
2: /* $Header: otfturhi.pkb 120.1 2005/09/21 02:31 aabalakr noship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' ota_ftu_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: --
28: --
29: Begin
30: hr_utility.set_location('Entering:'||l_proc, 10);
31: --
32: ota_ftu_ins.g_forum_thread_id_i := p_forum_thread_id;
33: ota_ftu_ins.g_forum_id_i := p_forum_id;
34: ota_ftu_ins.g_person_id_i := p_person_id;
35: ota_ftu_ins.g_contact_id_i := p_contact_id;
36: --
29: Begin
30: hr_utility.set_location('Entering:'||l_proc, 10);
31: --
32: ota_ftu_ins.g_forum_thread_id_i := p_forum_thread_id;
33: ota_ftu_ins.g_forum_id_i := p_forum_id;
34: ota_ftu_ins.g_person_id_i := p_person_id;
35: ota_ftu_ins.g_contact_id_i := p_contact_id;
36: --
37: hr_utility.set_location(' Leaving:'||l_proc, 20);
30: hr_utility.set_location('Entering:'||l_proc, 10);
31: --
32: ota_ftu_ins.g_forum_thread_id_i := p_forum_thread_id;
33: ota_ftu_ins.g_forum_id_i := p_forum_id;
34: ota_ftu_ins.g_person_id_i := p_person_id;
35: ota_ftu_ins.g_contact_id_i := p_contact_id;
36: --
37: hr_utility.set_location(' Leaving:'||l_proc, 20);
38: End set_base_key_value;
31: --
32: ota_ftu_ins.g_forum_thread_id_i := p_forum_thread_id;
33: ota_ftu_ins.g_forum_id_i := p_forum_id;
34: ota_ftu_ins.g_person_id_i := p_person_id;
35: ota_ftu_ins.g_contact_id_i := p_contact_id;
36: --
37: hr_utility.set_location(' Leaving:'||l_proc, 20);
38: End set_base_key_value;
39: --
187: Cursor C_Sel2 is
188: Select null
189: from ota_pvt_frm_thread_users
190: where forum_thread_id =
191: ota_ftu_ins.g_forum_thread_id_i
192: or forum_id =
193: ota_ftu_ins.g_forum_id_i
194: or person_id =
195: ota_ftu_ins.g_person_id_i
189: from ota_pvt_frm_thread_users
190: where forum_thread_id =
191: ota_ftu_ins.g_forum_thread_id_i
192: or forum_id =
193: ota_ftu_ins.g_forum_id_i
194: or person_id =
195: ota_ftu_ins.g_person_id_i
196: or contact_id =
197: ota_ftu_ins.g_contact_id_i;
191: ota_ftu_ins.g_forum_thread_id_i
192: or forum_id =
193: ota_ftu_ins.g_forum_id_i
194: or person_id =
195: ota_ftu_ins.g_person_id_i
196: or contact_id =
197: ota_ftu_ins.g_contact_id_i;
198: */
199: --
193: ota_ftu_ins.g_forum_id_i
194: or person_id =
195: ota_ftu_ins.g_person_id_i
196: or contact_id =
197: ota_ftu_ins.g_contact_id_i;
198: */
199: --
200: l_proc varchar2(72) := g_package||'pre_insert';
201: l_exists varchar2(1);
203: Begin
204: hr_utility.set_location('Entering:'||l_proc, 5);
205: --
206: /*
207: If (ota_ftu_ins.g_forum_thread_id_i is not null or
208: ota_ftu_ins.g_forum_id_i is not null or
209: ota_ftu_ins.g_person_id_i is not null or
210: ota_ftu_ins.g_contact_id_i is not null) Then
211: --
204: hr_utility.set_location('Entering:'||l_proc, 5);
205: --
206: /*
207: If (ota_ftu_ins.g_forum_thread_id_i is not null or
208: ota_ftu_ins.g_forum_id_i is not null or
209: ota_ftu_ins.g_person_id_i is not null or
210: ota_ftu_ins.g_contact_id_i is not null) Then
211: --
212: -- Verify registered primary key values not already in use
205: --
206: /*
207: If (ota_ftu_ins.g_forum_thread_id_i is not null or
208: ota_ftu_ins.g_forum_id_i is not null or
209: ota_ftu_ins.g_person_id_i is not null or
210: ota_ftu_ins.g_contact_id_i is not null) Then
211: --
212: -- Verify registered primary key values not already in use
213: --
206: /*
207: If (ota_ftu_ins.g_forum_thread_id_i is not null or
208: ota_ftu_ins.g_forum_id_i is not null or
209: ota_ftu_ins.g_person_id_i is not null or
210: ota_ftu_ins.g_contact_id_i is not null) Then
211: --
212: -- Verify registered primary key values not already in use
213: --
214: Open C_Sel2;
226: --
227: -- Use registered key values and clear globals
228: --
229: p_rec.forum_thread_id :=
230: ota_ftu_ins.g_forum_thread_id_i;
231: ota_ftu_ins.g_forum_thread_id_i := null;
232: p_rec.forum_id :=
233: ota_ftu_ins.g_forum_id_i;
234: ota_ftu_ins.g_forum_id_i := null;
227: -- Use registered key values and clear globals
228: --
229: p_rec.forum_thread_id :=
230: ota_ftu_ins.g_forum_thread_id_i;
231: ota_ftu_ins.g_forum_thread_id_i := null;
232: p_rec.forum_id :=
233: ota_ftu_ins.g_forum_id_i;
234: ota_ftu_ins.g_forum_id_i := null;
235: p_rec.person_id :=
229: p_rec.forum_thread_id :=
230: ota_ftu_ins.g_forum_thread_id_i;
231: ota_ftu_ins.g_forum_thread_id_i := null;
232: p_rec.forum_id :=
233: ota_ftu_ins.g_forum_id_i;
234: ota_ftu_ins.g_forum_id_i := null;
235: p_rec.person_id :=
236: ota_ftu_ins.g_person_id_i;
237: ota_ftu_ins.g_person_id_i := null;
230: ota_ftu_ins.g_forum_thread_id_i;
231: ota_ftu_ins.g_forum_thread_id_i := null;
232: p_rec.forum_id :=
233: ota_ftu_ins.g_forum_id_i;
234: ota_ftu_ins.g_forum_id_i := null;
235: p_rec.person_id :=
236: ota_ftu_ins.g_person_id_i;
237: ota_ftu_ins.g_person_id_i := null;
238: p_rec.contact_id :=
232: p_rec.forum_id :=
233: ota_ftu_ins.g_forum_id_i;
234: ota_ftu_ins.g_forum_id_i := null;
235: p_rec.person_id :=
236: ota_ftu_ins.g_person_id_i;
237: ota_ftu_ins.g_person_id_i := null;
238: p_rec.contact_id :=
239: ota_ftu_ins.g_contact_id_i;
240: ota_ftu_ins.g_contact_id_i := null;
233: ota_ftu_ins.g_forum_id_i;
234: ota_ftu_ins.g_forum_id_i := null;
235: p_rec.person_id :=
236: ota_ftu_ins.g_person_id_i;
237: ota_ftu_ins.g_person_id_i := null;
238: p_rec.contact_id :=
239: ota_ftu_ins.g_contact_id_i;
240: ota_ftu_ins.g_contact_id_i := null;
241: Else
235: p_rec.person_id :=
236: ota_ftu_ins.g_person_id_i;
237: ota_ftu_ins.g_person_id_i := null;
238: p_rec.contact_id :=
239: ota_ftu_ins.g_contact_id_i;
240: ota_ftu_ins.g_contact_id_i := null;
241: Else
242: --
243: -- No registerd key values, so select the next sequence number
236: ota_ftu_ins.g_person_id_i;
237: ota_ftu_ins.g_person_id_i := null;
238: p_rec.contact_id :=
239: ota_ftu_ins.g_contact_id_i;
240: ota_ftu_ins.g_contact_id_i := null;
241: Else
242: --
243: -- No registerd key values, so select the next sequence number
244: --
357: p_rec.forum_thread_id := null;
358: p_rec.person_id := null;
359: p_rec.contact_id := null;*/
360:
361: ota_ftu_ins.set_base_key_value( p_forum_thread_id => l_forum_thread_id
362: ,p_forum_id => l_forum_id
363: ,p_person_id => l_person_id
364: ,p_contact_id => l_contact_id
365: );
379: hr_multi_message.end_validation_set;
380: --
381: -- Call the supporting pre-insert operation
382: --
383: ota_ftu_ins.pre_insert(p_rec);
384: --
385: -- Insert the row
386: --
387: ota_ftu_ins.insert_dml(p_rec);
383: ota_ftu_ins.pre_insert(p_rec);
384: --
385: -- Insert the row
386: --
387: ota_ftu_ins.insert_dml(p_rec);
388: --
389: -- Call the supporting post-insert operation
390: --
391: ota_ftu_ins.post_insert
387: ota_ftu_ins.insert_dml(p_rec);
388: --
389: -- Call the supporting post-insert operation
390: --
391: ota_ftu_ins.post_insert
392: (p_effective_date
393: ,p_rec
394: );
395: --
445: --
446: -- Having converted the arguments into the ota_ftu_rec
447: -- plsql record structure we call the corresponding record business process.
448: --
449: ota_ftu_ins.ins
450: (p_effective_date
451: ,l_rec
452: );
453: --
464: --
465: hr_utility.set_location(' Leaving:'||l_proc, 10);
466: End ins;
467: --
468: end ota_ftu_ins;