1 Package ben_cpp_shd AUTHID CURRENT_USER as
2 /* $Header: becpprhi.pkh 120.0.12020000.2 2012/07/03 12:05:05 amnaraya ship $ */
3 --
4 -- ----------------------------------------------------------------------------
5 -- | Global Record Type Specification |
6 -- ----------------------------------------------------------------------------
7 --
8 Type g_rec_type Is Record
9 (
10 plip_id number(15),
11 effective_start_date date,
12 effective_end_date date,
13 business_group_id number(15),
14 pgm_id number(15),
15 pl_id number(15),
16 cmbn_plip_id number(15),
17 dflt_flag varchar2(30),
18 plip_stat_cd varchar2(30),
19 dflt_enrt_cd varchar2(30),
20 dflt_enrt_det_rl number(15),
21 ordr_num number(15),
22 alws_unrstrctd_enrt_flag varchar2(30),
23 auto_enrt_mthd_rl number(15),
24 enrt_cd varchar2(30),
25 enrt_mthd_cd varchar2(30),
26 enrt_rl number(15),
27 ivr_ident varchar2(90), -- UTF8 Change Bug 2254683
28 url_ref_name varchar2(240),
29 enrt_cvg_strt_dt_cd varchar2(30),
30 enrt_cvg_strt_dt_rl number(15),
31 enrt_cvg_end_dt_cd varchar2(30),
32 enrt_cvg_end_dt_rl number(15),
33 rt_strt_dt_cd varchar2(30),
34 rt_strt_dt_rl number(15),
35 rt_end_dt_cd varchar2(30),
36 rt_end_dt_rl number(15),
37 drvbl_fctr_apls_rts_flag varchar2(30),
38 drvbl_fctr_prtn_elig_flag varchar2(30),
39 elig_apls_flag varchar2(30),
40 prtn_elig_ovrid_alwd_flag varchar2(30),
41 trk_inelig_per_flag varchar2(30),
42 postelcn_edit_rl number(15),
43 dflt_to_asn_pndg_ctfn_cd varchar2(30),
44 dflt_to_asn_pndg_ctfn_rl number(15),
45 mn_cvg_amt number,
46 mn_cvg_rl number(15),
47 mx_cvg_alwd_amt number,
48 mx_cvg_incr_alwd_amt number,
49 mx_cvg_incr_wcf_alwd_amt number,
50 mx_cvg_mlt_incr_num number(15),
51 mx_cvg_mlt_incr_wcf_num number(15),
52 mx_cvg_rl number(15),
53 mx_cvg_wcfn_amt number,
54 mx_cvg_wcfn_mlt_num number(15),
55 no_mn_cvg_amt_apls_flag varchar2(30),
56 no_mn_cvg_incr_apls_flag varchar2(30),
57 no_mx_cvg_amt_apls_flag varchar2(30),
58 no_mx_cvg_incr_apls_flag varchar2(30),
59 unsspnd_enrt_cd varchar2(30),
60 prort_prtl_yr_cvg_rstrn_cd varchar2(30),
61 prort_prtl_yr_cvg_rstrn_rl number(15),
62 cvg_incr_r_decr_only_cd varchar2(30),
63 bnft_or_option_rstrctn_cd varchar2(30),
64 per_cvrd_cd varchar2(30),
65 short_name varchar2(30),
66 short_code varchar2(30),
67 legislation_code varchar2(30),
68 legislation_subgroup varchar2(30),
69 vrfy_fmly_mmbr_rl number(15),
70 vrfy_fmly_mmbr_cd varchar2(30),
71 use_csd_rsd_prccng_cd varchar2(30),
72 cpp_attribute_category varchar2(30),
73 cpp_attribute1 varchar2(150),
74 cpp_attribute2 varchar2(150),
75 cpp_attribute3 varchar2(150),
76 cpp_attribute4 varchar2(150),
77 cpp_attribute5 varchar2(150),
78 cpp_attribute6 varchar2(150),
79 cpp_attribute7 varchar2(150),
80 cpp_attribute8 varchar2(150),
81 cpp_attribute9 varchar2(150),
82 cpp_attribute10 varchar2(150),
83 cpp_attribute11 varchar2(150),
84 cpp_attribute12 varchar2(150),
85 cpp_attribute13 varchar2(150),
86 cpp_attribute14 varchar2(150),
87 cpp_attribute15 varchar2(150),
88 cpp_attribute16 varchar2(150),
89 cpp_attribute17 varchar2(150),
90 cpp_attribute18 varchar2(150),
91 cpp_attribute19 varchar2(150),
92 cpp_attribute20 varchar2(150),
93 cpp_attribute21 varchar2(150),
94 cpp_attribute22 varchar2(150),
95 cpp_attribute23 varchar2(150),
96 cpp_attribute24 varchar2(150),
97 cpp_attribute25 varchar2(150),
98 cpp_attribute26 varchar2(150),
99 cpp_attribute27 varchar2(150),
100 cpp_attribute28 varchar2(150),
101 cpp_attribute29 varchar2(150),
102 cpp_attribute30 varchar2(150),
103 all_inelig varchar2(30),
104 object_version_number number(9)
105 );
106 --
107 -- ----------------------------------------------------------------------------
108 -- | Global Definitions - Internal Development Use Only |
109 -- ----------------------------------------------------------------------------
110 --
111 g_old_rec g_rec_type; -- Global record definition
112 g_api_dml boolean; -- Global api dml status
113 --
114 -- ----------------------------------------------------------------------------
115 -- |------------------------< return_api_dml_status >-------------------------|
116 -- ----------------------------------------------------------------------------
117 -- {Start Of Comments}
118 --
119 -- Description:
120 -- This function will return the current g_api_dml private global
121 -- boolean status.
122 -- The g_api_dml status determines if at the time of the function
123 -- being executed if a dml statement (i.e. INSERT, UPDATE or DELETE)
124 -- is being issued from within an api.
125 -- If the status is TRUE then a dml statement is being issued from
126 -- within this entity api.
127 -- This function is primarily to support database triggers which
128 -- need to maintain the object_version_number for non-supported
129 -- dml statements (i.e. dml statement issued outside of the api layer).
130 --
131 -- Prerequisites:
132 -- None.
133 --
134 -- In Parameters:
135 -- None.
136 --
137 -- Post Success:
138 -- Processing continues.
139 -- If the function returns a TRUE value then, dml is being executed from
140 -- within this api.
141 --
142 -- Post Failure:
143 -- None.
144 --
145 -- Access Status:
146 -- Internal Row Handler Use Only.
147 --
148 -- {End Of Comments}
149 -- ----------------------------------------------------------------------------
150 Function return_api_dml_status Return Boolean;
151 --
152 -- ----------------------------------------------------------------------------
153 -- |---------------------------< constraint_error >---------------------------|
154 -- ----------------------------------------------------------------------------
155 -- {Start Of Comments}
156 --
157 -- Description:
158 -- This procedure is called when a constraint has been violated (i.e.
159 -- The exception hr_api.check_integrity_violated,
160 -- hr_api.parent_integrity_violated, hr_api.child_integrity_violated or
161 -- hr_api.unique_integrity_violated has been raised).
162 -- The exceptions can only be raised as follows:
163 -- 1) A check constraint can only be violated during an INSERT or UPDATE
164 -- dml operation.
165 -- 2) A parent integrity constraint can only be violated during an
166 -- INSERT or UPDATE dml operation.
167 -- 3) A child integrity constraint can only be violated during an
168 -- DELETE dml operation.
169 -- 4) A unique integrity constraint can only be violated during INSERT or
170 -- UPDATE dml operation.
171 --
172 -- Prerequisites:
173 -- 1) Either hr_api.check_integrity_violated,
174 -- hr_api.parent_integrity_violated, hr_api.child_integrity_violated or
175 -- hr_api.unique_integrity_violated has been raised with the subsequent
176 -- stripping of the constraint name from the generated error message
177 -- text.
178 -- 2) Standalone validation test which corresponds with a constraint error.
179 --
180 -- In Parameter:
181 -- p_constraint_name is in upper format and is just the constraint name
182 -- (e.g. not prefixed by brackets, schema owner etc).
183 --
184 -- Post Success:
185 -- Development dependant.
186 --
187 -- Post Failure:
188 -- Developement dependant.
189 --
190 -- Developer Implementation Notes:
191 -- For each constraint being checked the hr system package failure message
192 -- has been generated as a template only. These system error messages should
193 -- be modified as required (i.e. change the system failure message to a user
194 -- friendly defined error message).
195 --
196 -- Access Status:
197 -- Internal Development Use Only.
198 --
199 -- {End Of Comments}
200 -- ----------------------------------------------------------------------------
201 Procedure constraint_error
202 (p_constraint_name in all_constraints.constraint_name%TYPE);
203 --
204 -- ----------------------------------------------------------------------------
205 -- |-----------------------------< api_updating >-----------------------------|
206 -- ----------------------------------------------------------------------------
207 -- {Start Of Comments}
208 --
209 -- Description:
210 -- This function is used to populate the g_old_rec record with the current
211 -- row from the database for the specified primary key provided that the
212 -- primary key exists, and is valid, and does not already match the current
213 -- g_old_rec.
214 -- The function will always return a TRUE value if the g_old_rec is
215 -- populated with the current row. A FALSE value will be returned if all of
216 -- the primary key arguments are null.
217 --
218 -- Prerequisites:
219 -- None.
220 --
221 -- In Parameters:
222 --
223 -- Post Success:
224 -- A value of TRUE will be returned indiciating that the g_old_rec is
225 -- current.
226 -- A value of FALSE will be returned if all of the primary key arguments
227 -- have a null value (this indicates that the row has not be inserted into
228 -- the Schema), and therefore could never have a corresponding row.
229 --
230 -- Post Failure:
231 -- A failure can only occur under two circumstances:
232 -- 1) The primary key is invalid (i.e. a row does not exist for the
233 -- specified primary key values).
234 -- 2) If an object_version_number exists but is NOT the same as the current
235 -- g_old_rec value.
236 --
237 -- Developer Implementation Notes:
238 -- None.
239 --
240 -- Access Status:
241 -- Internal Development Use Only.
242 --
243 -- {End Of Comments}
244 -- ----------------------------------------------------------------------------
245 Function api_updating
246 (p_effective_date in date,
247 p_plip_id in number,
248 p_object_version_number in number
249 ) Return Boolean;
250 --
251 -- ----------------------------------------------------------------------------
252 -- |--------------------------< find_dt_del_modes >---------------------------|
253 -- ----------------------------------------------------------------------------
254 -- {Start Of Comments}
255 --
256 -- Description:
257 -- This procedure is used to determine what datetrack delete modes are
258 -- allowed as of the effective date for this entity. The procedure will
259 -- return a corresponding Boolean value for each of the delete modes
260 -- available where TRUE indicates that the corresponding delete mode is
261 -- available.
262 --
263 -- Prerequisites:
264 -- None.
265 --
266 -- In Parameters:
267 -- p_effective_date
268 -- Specifies the date at which the datetrack modes will be operated on.
269 -- p_base_key_value
270 -- Specifies the primary key value for this datetrack entity.
271 -- (E.g. For this entity the assignment of the argument would be:
272 -- p_base_key_value = :plip_id).
273 --
274 -- Post Success:
275 -- Processing continues.
276 --
277 -- Post Failure:
278 -- Failure might occur if for the specified effective date and primary key
279 -- value a row doesn't exist.
280 --
281 -- Developer Implementation Notes:
282 -- This procedure could require changes if this entity has any sepcific
283 -- delete restrictions.
284 -- For example, this entity might disallow the datetrack delete mode of
288 -- Access Status:
285 -- ZAP. To implement this you would have to set and return a Boolean value
286 -- of FALSE after the call to the dt_api.find_dt_del_modes procedure.
287 --
289 -- Internal Development Use Only.
290 --
291 -- {End Of Comments}
292 -- ----------------------------------------------------------------------------
293 Procedure find_dt_del_modes
294 (p_effective_date in date,
295 p_base_key_value in number,
296 p_zap out nocopy boolean,
297 p_delete out nocopy boolean,
298 p_future_change out nocopy boolean,
299 p_delete_next_change out nocopy boolean);
300 --
301 -- ----------------------------------------------------------------------------
302 -- |--------------------------< find_dt_upd_modes >---------------------------|
303 -- ----------------------------------------------------------------------------
304 -- {Start Of Comments}
305 --
306 -- Description:
307 -- This procedure is used to determine what datetrack update modes are
308 -- allowed as of the effective date for this entity. The procedure will
309 -- return a corresponding Boolean value for each of the update modes
310 -- available where TRUE indicates that the corresponding update mode
311 -- is available.
312 --
313 -- Prerequisites:
314 -- None.
315 --
316 -- In Parameters:
317 -- p_effective_date
318 -- Specifies the date at which the datetrack modes will be operated on.
319 -- p_base_key_value
320 -- Specifies the primary key value for this datetrack entity.
321 -- (E.g. For this entity the assignment of the argument would be:
322 -- p_base_key_value = :plip_id).
323 --
324 -- Post Success:
325 -- Processing continues.
326 --
327 -- Post Failure:
328 -- Failure might occur if for the specified effective date and primary key
329 -- value a row doesn't exist.
330 --
331 -- Developer Implementation Notes:
332 -- This procedure could require changes if this entity has any sepcific
333 -- delete restrictions.
334 -- For example, this entity might disallow the datetrack update mode of
335 -- UPDATE. To implement this you would have to set and return a Boolean
336 -- value of FALSE after the call to the dt_api.find_dt_upd_modes procedure.
337 --
338 -- Access Status:
339 -- Internal Development Use Only.
340 --
341 -- {End Of Comments}
342 -- ----------------------------------------------------------------------------
343 Procedure find_dt_upd_modes
344 (p_effective_date in date,
345 p_base_key_value in number,
346 p_correction out nocopy boolean,
347 p_update out nocopy boolean,
348 p_update_override out nocopy boolean,
349 p_update_change_insert out nocopy boolean);
350 --
351 -- ----------------------------------------------------------------------------
352 -- |------------------------< upd_effective_end_date >------------------------|
353 -- ----------------------------------------------------------------------------
354 -- {Start Of Comments}
355 --
356 -- Description:
357 -- This procedure will update the specified datetrack row with the
358 -- specified new effective end date. The object version number is also
359 -- set to the next object version number. DateTrack modes which call
360 -- this procedure are: UPDATE, UPDATE_CHANGE_INSERT,
361 -- UPDATE_OVERRIDE, DELETE, FUTURE_CHANGE and DELETE_NEXT_CHANGE.
362 -- This is an internal datetrack maintenance procedure which should
363 -- not be modified in anyway.
364 --
365 -- Prerequisites:
366 -- None.
367 --
368 -- In Parameters:
369 -- p_new_effective_end_date
370 -- Specifies the new effective end date which will be set for the
371 -- row as of the effective date.
372 -- p_base_key_value
373 -- Specifies the primary key value for this datetrack entity.
374 -- (E.g. For this entity the assignment of the argument would be:
375 -- p_base_key_value = :plip_id).
376 --
377 -- Post Success:
378 -- The specified row will be updated with the new effective end date and
379 -- object_version_number.
380 --
381 -- Post Failure:
382 -- Failure might occur if for the specified effective date and primary key
383 -- value a row doesn't exist.
384 --
385 -- Developer Implementation Notes:
386 -- This is an internal datetrack maintenance procedure which should
387 -- not be modified in anyway.
388 --
389 -- Access Status:
390 -- Internal Row Handler Use Only.
391 --
392 -- {End Of Comments}
393 -- ----------------------------------------------------------------------------
394 Procedure upd_effective_end_date
395 (p_effective_date in date,
396 p_base_key_value in number,
397 p_new_effective_end_date in date,
398 p_validation_start_date in date,
399 p_validation_end_date in date,
400 p_object_version_number out nocopy number);
401 --
402 -- ----------------------------------------------------------------------------
403 -- |---------------------------------< lck >----------------------------------|
404 -- ----------------------------------------------------------------------------
405 -- {Start Of Comments}
406 --
407 -- Description:
408 -- The Lck process for datetrack is complicated and comprises of the
409 -- following processing
410 -- The processing steps are as follows:
411 -- 1) The row to be updated or deleted must be locked.
412 -- By locking this row, the g_old_rec record data type is populated.
413 -- 2) If a comment exists the text is selected from hr_comments.
414 -- 3) The datetrack mode is then validated to ensure the operation is
415 -- valid. If the mode is valid the validation start and end dates for
416 -- the mode will be derived and returned. Any required locking is
417 -- completed when the datetrack mode is validated.
418 --
422 --
419 -- Prerequisites:
420 -- When attempting to call the lck procedure the object version number,
421 -- primary key, effective date and datetrack mode must be specified.
423 -- In Parameters:
424 -- p_effective_date
425 -- Specifies the date of the datetrack update operation.
426 -- p_datetrack_mode
427 -- Determines the datetrack update or delete mode.
428 --
429 -- Post Success:
430 -- On successful completion of the Lck process the row to be updated or
431 -- deleted will be locked and selected into the global data structure
432 -- g_old_rec.
433 --
434 -- Post Failure:
435 -- The Lck process can fail for three reasons:
436 -- 1) When attempting to lock the row the row could already be locked by
437 -- another user. This will raise the HR_Api.Object_Locked exception.
438 -- 2) The row which is required to be locked doesn't exist in the HR Schema.
439 -- This error is trapped and reported using the message name
440 -- 'HR_7220_INVALID_PRIMARY_KEY'.
441 -- 3) The row although existing in the HR Schema has a different object
442 -- version number than the object version number specified.
443 -- This error is trapped and reported using the message name
444 -- 'HR_7155_OBJECT_INVALID'.
445 --
446 -- Developer Implementation Notes:
447 -- None.
448 --
449 -- Access Status:
450 -- Internal Development Use Only.
451 --
452 -- {End Of Comments}
453 -- ----------------------------------------------------------------------------
454 Procedure lck
455 (p_effective_date in date,
456 p_datetrack_mode in varchar2,
457 p_plip_id in number,
458 p_object_version_number in number,
459 p_validation_start_date out nocopy date,
460 p_validation_end_date out nocopy date);
461 --
462 -- ----------------------------------------------------------------------------
463 -- |-----------------------------< convert_args >-----------------------------|
464 -- ----------------------------------------------------------------------------
465 -- {Start Of Comments}
466 --
467 -- Description:
468 -- This function is used to turn attribute parameters into the record
469 -- structure parameter g_rec_type.
470 --
471 -- Prerequisites:
472 -- This is a private function and can only be called from the ins or upd
473 -- attribute processes.
474 --
475 -- In Parameters:
476 --
477 -- Post Success:
478 -- A returning record structure will be returned.
479 --
480 -- Post Failure:
481 -- No direct error handling is required within this function. Any possible
482 -- errors within this function will be a PL/SQL value error due to conversion
483 -- of datatypes or data lengths.
484 --
485 -- Developer Implementation Notes:
486 -- None.
487 --
488 -- Access Status:
489 -- Internal Row Handler Use Only.
490 --
491 -- {End Of Comments}
492 -- ----------------------------------------------------------------------------
493 Function convert_args
494 (
495 p_plip_id in number,
496 p_effective_start_date in date,
497 p_effective_end_date in date,
498 p_business_group_id in number,
499 p_pgm_id in number,
500 p_pl_id in number,
501 p_cmbn_plip_id in number,
502 p_dflt_flag in varchar2,
503 p_plip_stat_cd in varchar2,
504 p_dflt_enrt_cd in varchar2,
505 p_dflt_enrt_det_rl in number,
506 p_ordr_num in number,
507 p_alws_unrstrctd_enrt_flag in varchar2,
508 p_auto_enrt_mthd_rl in number,
509 p_enrt_cd in varchar2,
510 p_enrt_mthd_cd in varchar2,
511 p_enrt_rl in number,
512 p_ivr_ident in varchar2,
513 p_url_ref_name in varchar2,
514 p_enrt_cvg_strt_dt_cd in varchar2,
515 p_enrt_cvg_strt_dt_rl in number,
516 p_enrt_cvg_end_dt_cd in varchar2,
517 p_enrt_cvg_end_dt_rl in number,
518 p_rt_strt_dt_cd in varchar2,
519 p_rt_strt_dt_rl in number,
520 p_rt_end_dt_cd in varchar2,
521 p_rt_end_dt_rl in number,
522 p_drvbl_fctr_apls_rts_flag in varchar2,
523 p_drvbl_fctr_prtn_elig_flag in varchar2,
524 p_elig_apls_flag in varchar2,
525 p_prtn_elig_ovrid_alwd_flag in varchar2,
526 p_trk_inelig_per_flag in varchar2,
527 p_postelcn_edit_rl in number,
528 p_dflt_to_asn_pndg_ctfn_cd in varchar2,
529 p_dflt_to_asn_pndg_ctfn_rl in number,
530 p_mn_cvg_amt in number,
531 p_mn_cvg_rl in number,
532 p_mx_cvg_alwd_amt in number,
533 p_mx_cvg_incr_alwd_amt in number,
534 p_mx_cvg_incr_wcf_alwd_amt in number,
535 p_mx_cvg_mlt_incr_num in number,
536 p_mx_cvg_mlt_incr_wcf_num in number,
537 p_mx_cvg_rl in number,
538 p_mx_cvg_wcfn_amt in number,
539 p_mx_cvg_wcfn_mlt_num in number,
540 p_no_mn_cvg_amt_apls_flag in varchar2,
541 p_no_mn_cvg_incr_apls_flag in varchar2,
542 p_no_mx_cvg_amt_apls_flag in varchar2,
543 p_no_mx_cvg_incr_apls_flag in varchar2,
544 p_unsspnd_enrt_cd in varchar2,
545 p_prort_prtl_yr_cvg_rstrn_cd in varchar2,
546 p_prort_prtl_yr_cvg_rstrn_rl in number,
547 p_cvg_incr_r_decr_only_cd in varchar2,
548 p_bnft_or_option_rstrctn_cd in varchar2,
549 p_per_cvrd_cd in varchar2,
550 p_short_name in varchar2,
551 p_short_code in varchar2,
552 p_legislation_code in varchar2,
553 p_legislation_subgroup in varchar2,
554 P_vrfy_fmly_mmbr_rl in number,
555 P_vrfy_fmly_mmbr_cd in varchar2,
556 P_use_csd_rsd_prccng_cd in varchar2,
557 p_cpp_attribute_category in varchar2,
558 p_cpp_attribute1 in varchar2,
559 p_cpp_attribute2 in varchar2,
560 p_cpp_attribute3 in varchar2,
561 p_cpp_attribute4 in varchar2,
562 p_cpp_attribute5 in varchar2,
563 p_cpp_attribute6 in varchar2,
564 p_cpp_attribute7 in varchar2,
565 p_cpp_attribute8 in varchar2,
566 p_cpp_attribute9 in varchar2,
567 p_cpp_attribute10 in varchar2,
568 p_cpp_attribute11 in varchar2,
569 p_cpp_attribute12 in varchar2,
570 p_cpp_attribute13 in varchar2,
571 p_cpp_attribute14 in varchar2,
572 p_cpp_attribute15 in varchar2,
573 p_cpp_attribute16 in varchar2,
574 p_cpp_attribute17 in varchar2,
575 p_cpp_attribute18 in varchar2,
576 p_cpp_attribute19 in varchar2,
577 p_cpp_attribute20 in varchar2,
578 p_cpp_attribute21 in varchar2,
579 p_cpp_attribute22 in varchar2,
580 p_cpp_attribute23 in varchar2,
581 p_cpp_attribute24 in varchar2,
582 p_cpp_attribute25 in varchar2,
583 p_cpp_attribute26 in varchar2,
584 p_cpp_attribute27 in varchar2,
585 p_cpp_attribute28 in varchar2,
586 p_cpp_attribute29 in varchar2,
587 p_cpp_attribute30 in varchar2,
588 p_all_inelig in varchar2,
589 p_object_version_number in number
590 )
591 Return g_rec_type;
592 --
593 end ben_cpp_shd;