DBA Data[Home] [Help]

PACKAGE BODY: APPS.BEN_ESR_INS

Source


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