DBA Data[Home] [Help]

PACKAGE BODY: APPS.BEN_TUR_INS

Source


1 Package Body ben_tur_ins as
2 /* $Header: beturrhi.pkb 120.0.12010000.2 2008/08/05 15:32:52 ubhat ship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- |                     Private Global Definitions                           |
6 -- ----------------------------------------------------------------------------
7 --
8 g_package  varchar2(33)	:= '  ben_tur_ins.';  -- Global package name
9 --
10 -- ----------------------------------------------------------------------------
11 -- |----------------------------< dt_insert_dml >-----------------------------|
12 -- ----------------------------------------------------------------------------
13 -- {Start Of Comments}
14 --
15 -- Description:
16 --   This procedure controls the actual dml insert logic for datetrack. The
17 --   functions of this procedure are as follows:
18 --   1) Get the object_version_number.
19 --   2) To set the effective start and end dates to the corresponding
20 --      validation start and end dates. Also, the object version number
21 --      record attribute is set.
22 --   3) To set and unset the g_api_dml status as required (as we are about to
23 --      perform dml).
24 --   4) To insert the row into the schema with the derived effective start
25 --      and end dates and the object version number.
26 --   5) To trap any constraint violations that may have occurred.
27 --   6) To raise any other errors.
28 --
29 -- Prerequisites:
30 --   This is an internal private procedure which must be called from the
31 --   insert_dml and pre_update (logic permitting) procedure and must have
32 --   all mandatory arguments set.
33 --
34 -- In Parameters:
35 --   A Pl/Sql record structre.
36 --
37 -- Post Success:
38 --   The specified row will be inserted into the schema.
39 --
40 -- Post Failure:
41 --   On the insert dml failure it is important to note that we always reset the
42 --   g_api_dml status to false.
43 --   If a check or unique integrity constraint violation is raised the
44 --   constraint_error procedure will be called.
45 --   If any other error-   g_api_dml status is reset.
46 --
47 -- Developer Implementation Notes:
48 --   This is an internal datetrack maintenance procedure which should
49 --   not be modified in anyway.
50 --
51 -- Access Status:
52 --   Internal Row Handler Use Only.
53 --
54 -- {End Of Comments}
55 -- ----------------------------------------------------------------------------
56 Procedure dt_insert_dml
57 	(p_rec 			 in out nocopy ben_tur_shd.g_rec_type,
58 	 p_effective_date	 in	date,
59 	 p_datetrack_mode	 in	varchar2,
60 	 p_validation_start_date in	date,
61 	 p_validation_end_date	 in	date) is
62 --
63 -- Cursor to select 'old' created AOL who column values
64 --
65   Cursor C_Sel1 Is
66     select t.created_by,
67            t.creation_date
68     from   ben_tbco_use_rt_f t
69     where  t.tbco_use_rt_id       = p_rec.tbco_use_rt_id
70     and    t.effective_start_date =
71              ben_tur_shd.g_old_rec.effective_start_date
72     and    t.effective_end_date   = (p_validation_start_date - 1);
73 --
74   l_proc		varchar2(72) := g_package||'dt_insert_dml';
75   l_created_by          ben_tbco_use_rt_f.created_by%TYPE;
76   l_creation_date       ben_tbco_use_rt_f.creation_date%TYPE;
77   l_last_update_date   	ben_tbco_use_rt_f.last_update_date%TYPE;
78   l_last_updated_by     ben_tbco_use_rt_f.last_updated_by%TYPE;
79   l_last_update_login   ben_tbco_use_rt_f.last_update_login%TYPE;
80 --
81 Begin
82   hr_utility.set_location('Entering:'||l_proc, 5);
83   --
84   -- Get the object version number for the insert
85   --
86   p_rec.object_version_number :=
87     dt_api.get_object_version_number
88 	(p_base_table_name => 'ben_tbco_use_rt_f',
89 	 p_base_key_column => 'tbco_use_rt_id',
90 	 p_base_key_value  => p_rec.tbco_use_rt_id);
91   --
92   -- Set the effective start and end dates to the corresponding
93   -- validation start and end dates
94   --
95   p_rec.effective_start_date := p_validation_start_date;
96   p_rec.effective_end_date   := p_validation_end_date;
97   --
98   -- If the datetrack_mode is not INSERT then we must populate the WHO
99   -- columns with the 'old' creation values and 'new' updated values.
100   --
101   If (p_datetrack_mode <> 'INSERT') then
102     hr_utility.set_location(l_proc, 10);
103     --
104     -- Select the 'old' created values
105     --
106     Open C_Sel1;
107     Fetch C_Sel1 Into l_created_by, l_creation_date;
108     If C_Sel1%notfound Then
109       --
110       -- The previous 'old' created row has not been found. We need
111       -- to error as an internal datetrack problem exists.
112       --
113       Close C_Sel1;
114       hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
115       hr_utility.set_message_token('PROCEDURE', l_proc);
116       hr_utility.set_message_token('STEP','10');
117       hr_utility.raise_error;
118     End If;
119     Close C_Sel1;
120     --
121     -- Set the AOL updated WHO values
122     --
123     l_last_update_date   := sysdate;
124     l_last_updated_by    := fnd_global.user_id;
125     l_last_update_login  := fnd_global.login_id;
126   End If;
127   --
128   ben_tur_shd.g_api_dml := true;  -- Set the api dml status
129   --
130   -- Insert the row into: ben_tbco_use_rt_f
131   --
132   insert into ben_tbco_use_rt_f
133   (	tbco_use_rt_id,
134 	effective_start_date,
135 	effective_end_date,
136 	business_group_id,
137 	vrbl_rt_prfl_id,
138 	excld_flag,
139 	ordr_num,
140 	uses_tbco_flag,
141 	tur_attribute_category,
142 	tur_attribute1,
143 	tur_attribute2,
144 	tur_attribute3,
145 	tur_attribute4,
146 	tur_attribute5,
147 	tur_attribute6,
148 	tur_attribute7,
149 	tur_attribute8,
150 	tur_attribute9,
151 	tur_attribute10,
152 	tur_attribute11,
153 	tur_attribute12,
154 	tur_attribute13,
155 	tur_attribute14,
156 	tur_attribute15,
157 	tur_attribute16,
158 	tur_attribute17,
159 	tur_attribute18,
160 	tur_attribute19,
161 	tur_attribute20,
162 	tur_attribute21,
163 	tur_attribute22,
164 	tur_attribute23,
165 	tur_attribute24,
166 	tur_attribute25,
167 	tur_attribute26,
168 	tur_attribute27,
169 	tur_attribute28,
170 	tur_attribute29,
171 	tur_attribute30,
172 	object_version_number
173    	, created_by,
174    	creation_date,
175    	last_update_date,
176    	last_updated_by,
177    	last_update_login
178   )
179   Values
180   (	p_rec.tbco_use_rt_id,
181 	p_rec.effective_start_date,
182 	p_rec.effective_end_date,
183 	p_rec.business_group_id,
184 	p_rec.vrbl_rt_prfl_id,
185 	p_rec.excld_flag,
186 	p_rec.ordr_num,
187 	p_rec.uses_tbco_flag,
188 	p_rec.tur_attribute_category,
189 	p_rec.tur_attribute1,
190 	p_rec.tur_attribute2,
191 	p_rec.tur_attribute3,
192 	p_rec.tur_attribute4,
193 	p_rec.tur_attribute5,
194 	p_rec.tur_attribute6,
195 	p_rec.tur_attribute7,
196 	p_rec.tur_attribute8,
197 	p_rec.tur_attribute9,
198 	p_rec.tur_attribute10,
199 	p_rec.tur_attribute11,
200 	p_rec.tur_attribute12,
201 	p_rec.tur_attribute13,
202 	p_rec.tur_attribute14,
203 	p_rec.tur_attribute15,
204 	p_rec.tur_attribute16,
205 	p_rec.tur_attribute17,
206 	p_rec.tur_attribute18,
207 	p_rec.tur_attribute19,
208 	p_rec.tur_attribute20,
209 	p_rec.tur_attribute21,
210 	p_rec.tur_attribute22,
211 	p_rec.tur_attribute23,
212 	p_rec.tur_attribute24,
213 	p_rec.tur_attribute25,
214 	p_rec.tur_attribute26,
215 	p_rec.tur_attribute27,
216 	p_rec.tur_attribute28,
217 	p_rec.tur_attribute29,
218 	p_rec.tur_attribute30,
219 	p_rec.object_version_number
220 	, l_created_by,
221    	l_creation_date,
222    	l_last_update_date,
223    	l_last_updated_by,
224    	l_last_update_login
225   );
226   --
227   ben_tur_shd.g_api_dml := false;   -- Unset the api dml status
228   hr_utility.set_location(' Leaving:'||l_proc, 15);
229 --
230 Exception
231   When hr_api.check_integrity_violated Then
232     -- A check constraint has been violated
233     ben_tur_shd.g_api_dml := false;   -- Unset the api dml status
234     ben_tur_shd.constraint_error
235       (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
236   When hr_api.unique_integrity_violated Then
237     -- Unique integrity has been violated
238     ben_tur_shd.g_api_dml := false;   -- Unset the api dml status
239     ben_tur_shd.constraint_error
240       (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
241   When Others Then
242     ben_tur_shd.g_api_dml := false;   -- Unset the api dml status
243     Raise;
244 End dt_insert_dml;
245 --
246 -- ----------------------------------------------------------------------------
247 -- |------------------------------< insert_dml >------------------------------|
248 -- ----------------------------------------------------------------------------
249 Procedure insert_dml
250 	(p_rec 			 in out nocopy ben_tur_shd.g_rec_type,
251 	 p_effective_date	 in	date,
252 	 p_datetrack_mode	 in	varchar2,
253 	 p_validation_start_date in	date,
254 	 p_validation_end_date	 in	date) is
255 --
256   l_proc	varchar2(72) := g_package||'insert_dml';
257 --
258 Begin
259   hr_utility.set_location('Entering:'||l_proc, 5);
260   --
261   dt_insert_dml(p_rec			=> p_rec,
262 		p_effective_date	=> p_effective_date,
263 		p_datetrack_mode	=> p_datetrack_mode,
264        		p_validation_start_date	=> p_validation_start_date,
265 		p_validation_end_date	=> p_validation_end_date);
266   --
267   hr_utility.set_location(' Leaving:'||l_proc, 10);
268 End insert_dml;
269 --
270 -- ----------------------------------------------------------------------------
271 -- |------------------------------< pre_insert >------------------------------|
272 -- ----------------------------------------------------------------------------
273 -- {Start Of Comments}
274 --
275 -- Description:
276 --   This private procedure contains any processing which is required before
277 --   the insert dml. Presently, if the entity has a corresponding primary
278 --   key which is maintained by an associating sequence, the primary key for
279 --   the entity will be populated with the next sequence value in
280 --   preparation for the insert dml.
281 --   Also, if comments are defined for this entity, the comments insert
282 --   logic will also be called, generating a comment_id if required.
283 --
284 -- Prerequisites:
285 --   This is an internal procedure which is called from the ins procedure.
286 --
287 -- In Parameters:
288 --   A Pl/Sql record structre.
289 --
290 -- Post Success:
291 --   Processing continues.
292 --
293 -- Post Failure:
294 --   If an error has occurred, an error message and exception will be raised
295 --   but not handled.
296 --
297 -- Developer Implementation Notes:
298 --   Any pre-processing required before the insert dml is issued should be
299 --   coded within this procedure. As stated above, a good example is the
300 --   generation of a primary key number via a corresponding sequence.
301 --   It is important to note that any 3rd party maintenance should be reviewed
302 --   before placing in this procedure.
303 --
304 -- Access Status:
305 --   Internal Row Handler Use Only.
306 --
307 -- {End Of Comments}
308 -- ----------------------------------------------------------------------------
309 Procedure pre_insert
310 	(p_rec  			in out nocopy ben_tur_shd.g_rec_type,
311 	 p_effective_date		in date,
312 	 p_datetrack_mode		in varchar2,
313 	 p_validation_start_date	in date,
314 	 p_validation_end_date		in date) is
315 --
316   l_proc	varchar2(72) := g_package||'pre_insert';
317   cursor c1 is select ben_tbco_use_rt_f_s.nextval
318                from   sys.dual;
319 --
320 --
321 --
322 Begin
323   hr_utility.set_location('Entering:'||l_proc, 5);
324   --
325   --
326   open c1;
327   fetch c1 into p_rec.tbco_use_rt_id;
328   close c1;
329   --
330   --
331   hr_utility.set_location(' Leaving:'||l_proc, 10);
332 End pre_insert;
333 --
334 -- ----------------------------------------------------------------------------
335 -- |-----------------------------< post_insert >------------------------------|
336 -- ----------------------------------------------------------------------------
337 -- {Start Of Comments}
338 --
339 -- Description:
340 --   This private procedure contains any processing which is required after the
341 --   insert dml.
342 --
343 -- Prerequisites:
344 --   This is an internal procedure which is called from the ins procedure.
345 --
346 -- In Parameters:
347 --   A Pl/Sql record structre.
348 --
349 -- Post Success:
350 --   Processing continues.
351 --
352 -- Post Failure:
353 --   If an error has occurred, an error message and exception will be raised
354 --   but not handled.
355 --
356 -- Developer Implementation Notes:
357 --   Any post-processing required after the insert dml is issued should be
358 --   coded within this procedure. It is important to note that any 3rd party
359 --   maintenance should be reviewed before placing in this procedure.
360 --
361 -- Access Status:
362 --   Internal Row Handler Use Only.
363 --
364 -- {End Of Comments}
365 -- ----------------------------------------------------------------------------
366 Procedure post_insert
367 	(p_rec 			 in ben_tur_shd.g_rec_type,
368 	 p_effective_date	 in date,
369 	 p_datetrack_mode	 in varchar2,
370 	 p_validation_start_date in date,
371 	 p_validation_end_date	 in date) is
372 --
373   l_proc	varchar2(72) := g_package||'post_insert';
374 --
375 Begin
376   hr_utility.set_location('Entering:'||l_proc, 5);
377 --
378   --
379   -- Start of API User Hook for post_insert.
380   --
381   begin
382     --
383     ben_tur_rki.after_insert
384       (
385   p_tbco_use_rt_id                =>p_rec.tbco_use_rt_id
386  ,p_effective_start_date          =>p_rec.effective_start_date
387  ,p_effective_end_date            =>p_rec.effective_end_date
388  ,p_business_group_id             =>p_rec.business_group_id
389  ,p_vrbl_rt_prfl_id               =>p_rec.vrbl_rt_prfl_id
390  ,p_excld_flag                    =>p_rec.excld_flag
391  ,p_ordr_num                      =>p_rec.ordr_num
392  ,p_uses_tbco_flag                =>p_rec.uses_tbco_flag
393  ,p_tur_attribute_category        =>p_rec.tur_attribute_category
394  ,p_tur_attribute1                =>p_rec.tur_attribute1
395  ,p_tur_attribute2                =>p_rec.tur_attribute2
396  ,p_tur_attribute3                =>p_rec.tur_attribute3
397  ,p_tur_attribute4                =>p_rec.tur_attribute4
398  ,p_tur_attribute5                =>p_rec.tur_attribute5
399  ,p_tur_attribute6                =>p_rec.tur_attribute6
400  ,p_tur_attribute7                =>p_rec.tur_attribute7
401  ,p_tur_attribute8                =>p_rec.tur_attribute8
402  ,p_tur_attribute9                =>p_rec.tur_attribute9
403  ,p_tur_attribute10               =>p_rec.tur_attribute10
404  ,p_tur_attribute11               =>p_rec.tur_attribute11
405  ,p_tur_attribute12               =>p_rec.tur_attribute12
406  ,p_tur_attribute13               =>p_rec.tur_attribute13
407  ,p_tur_attribute14               =>p_rec.tur_attribute14
408  ,p_tur_attribute15               =>p_rec.tur_attribute15
409  ,p_tur_attribute16               =>p_rec.tur_attribute16
410  ,p_tur_attribute17               =>p_rec.tur_attribute17
411  ,p_tur_attribute18               =>p_rec.tur_attribute18
412  ,p_tur_attribute19               =>p_rec.tur_attribute19
413  ,p_tur_attribute20               =>p_rec.tur_attribute20
414  ,p_tur_attribute21               =>p_rec.tur_attribute21
415  ,p_tur_attribute22               =>p_rec.tur_attribute22
416  ,p_tur_attribute23               =>p_rec.tur_attribute23
417  ,p_tur_attribute24               =>p_rec.tur_attribute24
418  ,p_tur_attribute25               =>p_rec.tur_attribute25
419  ,p_tur_attribute26               =>p_rec.tur_attribute26
420  ,p_tur_attribute27               =>p_rec.tur_attribute27
421  ,p_tur_attribute28               =>p_rec.tur_attribute28
422  ,p_tur_attribute29               =>p_rec.tur_attribute29
423  ,p_tur_attribute30               =>p_rec.tur_attribute30
424  ,p_object_version_number         =>p_rec.object_version_number
425  ,p_effective_date                =>p_effective_date
426  ,p_validation_start_date         =>p_validation_start_date
427  ,p_validation_end_date           =>p_validation_end_date
428       );
429     --
430   exception
431     --
432     when hr_api.cannot_find_prog_unit then
433       --
434       hr_api.cannot_find_prog_unit_error
435         (p_module_name => 'ben_tbco_use_rt_f'
436         ,p_hook_type   => 'AI');
437       --
438   end;
439   --
440   -- End of API User Hook for post_insert.
441   --
442   --
443   hr_utility.set_location(' Leaving:'||l_proc, 10);
444 End post_insert;
445 --
446 -- ----------------------------------------------------------------------------
447 -- |-------------------------------< ins_lck >--------------------------------|
448 -- ----------------------------------------------------------------------------
449 -- {Start Of Comments}
450 --
451 -- Description:
452 --   The ins_lck process has one main function to perform. When inserting
453 --   a datetracked row, we must validate the DT mode.
454 --   be manipulated.
455 --
456 -- Prerequisites:
457 --   This procedure can only be called for the datetrack mode of INSERT.
458 --
459 -- In Parameters:
460 --
461 -- Post Success:
462 --   On successful completion of the ins_lck process the parental
463 --   datetracked rows will be locked providing the p_enforce_foreign_locking
464 --   argument value is TRUE.
465 --   If the p_enforce_foreign_locking argument value is FALSE then the
466 --   parential rows are not locked.
467 --
468 -- Post Failure:
469 --   The Lck process can fail for:
470 --   1) When attempting to lock the row the row could already be locked by
471 --      another user. This will raise the HR_Api.Object_Locked exception.
472 --   2) When attempting to the lock the parent which doesn't exist.
473 --      For the entity to be locked the parent must exist!
474 --
475 -- Developer Implementation Notes:
476 --   None.
477 --
478 -- Access Status:
479 --   Internal Row Handler Use Only.
480 --
481 -- {End Of Comments}
482 -- ----------------------------------------------------------------------------
483 Procedure ins_lck
484 	(p_effective_date	 in  date,
485 	 p_datetrack_mode	 in  varchar2,
486 	 p_rec	 		 in  ben_tur_shd.g_rec_type,
487 	 p_validation_start_date out nocopy date,
488 	 p_validation_end_date	 out nocopy date) is
489 --
490   l_proc		  varchar2(72) := g_package||'ins_lck';
491   l_validation_start_date date;
492   l_validation_end_date	  date;
493 --
494 Begin
495   hr_utility.set_location('Entering:'||l_proc, 5);
496   --
497   -- Validate the datetrack mode mode getting the validation start
498   -- and end dates for the specified datetrack operation.
499   --
500   dt_api.validate_dt_mode
501 	(p_effective_date	   => p_effective_date,
502 	 p_datetrack_mode	   => p_datetrack_mode,
503 	 p_base_table_name	   => 'ben_tbco_use_rt_f',
504 	 p_base_key_column	   => 'tbco_use_rt_id',
505 	 p_base_key_value 	   => p_rec.tbco_use_rt_id,
506          p_parent_table_name1      => 'ben_vrbl_rt_prfl_f',
507          p_parent_key_column1      => 'vrbl_rt_prfl_id',
508          p_parent_key_value1       => p_rec.vrbl_rt_prfl_id,
509          p_enforce_foreign_locking => true,
510 	 p_validation_start_date   => l_validation_start_date,
511  	 p_validation_end_date	   => l_validation_end_date);
512   --
513   -- Set the validation start and end date OUT arguments
514   --
515   p_validation_start_date := l_validation_start_date;
516   p_validation_end_date   := l_validation_end_date;
517   --
518   hr_utility.set_location(' Leaving:'||l_proc, 10);
519 --
520 End ins_lck;
521 --
522 -- ----------------------------------------------------------------------------
523 -- |---------------------------------< ins >----------------------------------|
524 -- ----------------------------------------------------------------------------
525 Procedure ins
526   (
527   p_rec		   in out nocopy ben_tur_shd.g_rec_type,
528   p_effective_date in     date
529   ) is
530 --
531   l_proc			varchar2(72) := g_package||'ins';
532   l_datetrack_mode		varchar2(30) := 'INSERT';
533   l_validation_start_date	date;
534   l_validation_end_date		date;
535 --
536 Begin
537   hr_utility.set_location('Entering:'||l_proc, 5);
538   --
539   -- Call the lock operation
540   --
541   ins_lck
542 	(p_effective_date	 => p_effective_date,
543 	 p_datetrack_mode	 => l_datetrack_mode,
544 	 p_rec	 		 => p_rec,
545 	 p_validation_start_date => l_validation_start_date,
546 	 p_validation_end_date	 => l_validation_end_date);
547   --
548   -- Call the supporting insert validate operations
549   --
550   ben_tur_bus.insert_validate
551 	(p_rec			 => p_rec,
552 	 p_effective_date	 => p_effective_date,
553 	 p_datetrack_mode	 => l_datetrack_mode,
554 	 p_validation_start_date => l_validation_start_date,
555 	 p_validation_end_date	 => l_validation_end_date);
556   --
557   -- Call the supporting pre-insert operation
558   --
559   pre_insert
560  	(p_rec			 => p_rec,
561 	 p_effective_date	 => p_effective_date,
562 	 p_datetrack_mode	 => l_datetrack_mode,
563 	 p_validation_start_date => l_validation_start_date,
564 	 p_validation_end_date	 => l_validation_end_date);
565   --
566   -- Insert the row
567   --
568   insert_dml
569  	(p_rec			 => p_rec,
570 	 p_effective_date	 => p_effective_date,
571 	 p_datetrack_mode	 => l_datetrack_mode,
572 	 p_validation_start_date => l_validation_start_date,
573 	 p_validation_end_date	 => l_validation_end_date);
574   --
575   -- Call the supporting post-insert operation
576   --
577   post_insert
578  	(p_rec			 => p_rec,
579 	 p_effective_date	 => p_effective_date,
580 	 p_datetrack_mode	 => l_datetrack_mode,
581 	 p_validation_start_date => l_validation_start_date,
582 	 p_validation_end_date	 => l_validation_end_date);
583 end ins;
584 --
585 -- ----------------------------------------------------------------------------
586 -- |---------------------------------< ins >----------------------------------|
587 -- ----------------------------------------------------------------------------
588 Procedure ins
589   (
590   p_tbco_use_rt_id               out nocopy number,
591   p_effective_start_date         out nocopy date,
592   p_effective_end_date           out nocopy date,
593   p_business_group_id            in number,
594   p_vrbl_rt_prfl_id              in number,
595   p_excld_flag                   in varchar2,
596   p_ordr_num                     in number           default null,
597   p_uses_tbco_flag               in varchar2,
598   p_tur_attribute_category       in varchar2         default null,
599   p_tur_attribute1               in varchar2         default null,
600   p_tur_attribute2               in varchar2         default null,
601   p_tur_attribute3               in varchar2         default null,
602   p_tur_attribute4               in varchar2         default null,
603   p_tur_attribute5               in varchar2         default null,
604   p_tur_attribute6               in varchar2         default null,
605   p_tur_attribute7               in varchar2         default null,
606   p_tur_attribute8               in varchar2         default null,
607   p_tur_attribute9               in varchar2         default null,
608   p_tur_attribute10              in varchar2         default null,
609   p_tur_attribute11              in varchar2         default null,
610   p_tur_attribute12              in varchar2         default null,
611   p_tur_attribute13              in varchar2         default null,
612   p_tur_attribute14              in varchar2         default null,
613   p_tur_attribute15              in varchar2         default null,
614   p_tur_attribute16              in varchar2         default null,
615   p_tur_attribute17              in varchar2         default null,
616   p_tur_attribute18              in varchar2         default null,
617   p_tur_attribute19              in varchar2         default null,
618   p_tur_attribute20              in varchar2         default null,
619   p_tur_attribute21              in varchar2         default null,
620   p_tur_attribute22              in varchar2         default null,
621   p_tur_attribute23              in varchar2         default null,
622   p_tur_attribute24              in varchar2         default null,
623   p_tur_attribute25              in varchar2         default null,
624   p_tur_attribute26              in varchar2         default null,
625   p_tur_attribute27              in varchar2         default null,
626   p_tur_attribute28              in varchar2         default null,
627   p_tur_attribute29              in varchar2         default null,
628   p_tur_attribute30              in varchar2         default null,
629   p_object_version_number        out nocopy number,
630   p_effective_date		 in date
631   ) is
632 --
633   l_rec		ben_tur_shd.g_rec_type;
634   l_proc	varchar2(72) := g_package||'ins';
635 --
636 Begin
637   hr_utility.set_location('Entering:'||l_proc, 5);
638   --
639   -- Call conversion function to turn arguments into the
640   -- p_rec structure.
641   --
642   l_rec :=
643   ben_tur_shd.convert_args
644   (
645   null,
646   null,
647   null,
648   p_business_group_id,
649   p_vrbl_rt_prfl_id,
650   p_excld_flag,
651   p_ordr_num,
652   p_uses_tbco_flag,
653   p_tur_attribute_category,
654   p_tur_attribute1,
655   p_tur_attribute2,
656   p_tur_attribute3,
657   p_tur_attribute4,
658   p_tur_attribute5,
659   p_tur_attribute6,
660   p_tur_attribute7,
661   p_tur_attribute8,
662   p_tur_attribute9,
663   p_tur_attribute10,
664   p_tur_attribute11,
665   p_tur_attribute12,
666   p_tur_attribute13,
667   p_tur_attribute14,
668   p_tur_attribute15,
669   p_tur_attribute16,
670   p_tur_attribute17,
671   p_tur_attribute18,
672   p_tur_attribute19,
673   p_tur_attribute20,
674   p_tur_attribute21,
675   p_tur_attribute22,
676   p_tur_attribute23,
677   p_tur_attribute24,
678   p_tur_attribute25,
679   p_tur_attribute26,
680   p_tur_attribute27,
681   p_tur_attribute28,
682   p_tur_attribute29,
683   p_tur_attribute30,
684   null
685   );
686   --
687   -- Having converted the arguments into the ben_tur_rec
688   -- plsql record structure we call the corresponding record
689   -- business process.
690   --
691   ins(l_rec, p_effective_date);
692   --
693   -- Set the OUT arguments.
694   --
695   p_tbco_use_rt_id        	:= l_rec.tbco_use_rt_id;
696   p_effective_start_date  	:= l_rec.effective_start_date;
697   p_effective_end_date    	:= l_rec.effective_end_date;
698   p_object_version_number 	:= l_rec.object_version_number;
699   --
700   --
701   hr_utility.set_location(' Leaving:'||l_proc, 10);
702 End ins;
703 --
704 end ben_tur_ins;