[Home] [Help]
47: -- Internal Row Handler Use Only.
48: --
49: -- {End Of Comments}
50: -- ----------------------------------------------------------------------------
51: Procedure update_dml(p_rec in out nocopy pay_set_shd.g_rec_type) is
52: --
53: l_proc varchar2(72) := g_package||'update_dml';
54: --
55: Begin
152: --
153: Exception
154: When hr_api.check_integrity_violated Then
155: -- A check constraint has been violated
156: pay_set_shd.constraint_error
157: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
158: When hr_api.parent_integrity_violated Then
159: -- Parent integrity has been violated
160: pay_set_shd.constraint_error
156: pay_set_shd.constraint_error
157: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
158: When hr_api.parent_integrity_violated Then
159: -- Parent integrity has been violated
160: pay_set_shd.constraint_error
161: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
162: When hr_api.unique_integrity_violated Then
163: -- Unique integrity has been violated
164: pay_set_shd.constraint_error
160: pay_set_shd.constraint_error
161: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
162: When hr_api.unique_integrity_violated Then
163: -- Unique integrity has been violated
164: pay_set_shd.constraint_error
165: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
166: When Others Then
167: Raise;
168: End update_dml;
198: -- Internal Row Handler Use Only.
199: --
200: -- {End Of Comments}
201: -- ----------------------------------------------------------------------------
202: Procedure pre_update(p_rec in pay_set_shd.g_rec_type) is
203: --
204: l_proc varchar2(72) := g_package||'pre_update';
205: --
206: Begin
239: -- Internal Row Handler Use Only.
240: --
241: -- {End Of Comments}
242: -- ----------------------------------------------------------------------------
243: Procedure post_update(p_rec in pay_set_shd.g_rec_type) is
244: --
245: l_proc varchar2(72) := g_package||'post_update';
246: --
247: Begin
293: -- Internal Row Handler Use Only.
294: --
295: -- {End Of Comments}
296: -- ----------------------------------------------------------------------------
297: Procedure convert_defs(p_rec in out nocopy pay_set_shd.g_rec_type) is
298: --
299: l_proc varchar2(72) := g_package||'convert_defs';
300: --
301: Begin
308: -- is being used then we must set to the 'current' argument value.
309: --
310: If (p_rec.template_id = hr_api.g_number) then
311: p_rec.template_id :=
312: pay_set_shd.g_old_rec.template_id;
313: End If;
314: If (p_rec.classification_name = hr_api.g_varchar2) then
315: p_rec.classification_name :=
316: pay_set_shd.g_old_rec.classification_name;
312: pay_set_shd.g_old_rec.template_id;
313: End If;
314: If (p_rec.classification_name = hr_api.g_varchar2) then
315: p_rec.classification_name :=
316: pay_set_shd.g_old_rec.classification_name;
317: End If;
318: If (p_rec.additional_entry_allowed_flag = hr_api.g_varchar2) then
319: p_rec.additional_entry_allowed_flag :=
320: pay_set_shd.g_old_rec.additional_entry_allowed_flag;
316: pay_set_shd.g_old_rec.classification_name;
317: End If;
318: If (p_rec.additional_entry_allowed_flag = hr_api.g_varchar2) then
319: p_rec.additional_entry_allowed_flag :=
320: pay_set_shd.g_old_rec.additional_entry_allowed_flag;
321: End If;
322: If (p_rec.adjustment_only_flag = hr_api.g_varchar2) then
323: p_rec.adjustment_only_flag :=
324: pay_set_shd.g_old_rec.adjustment_only_flag;
320: pay_set_shd.g_old_rec.additional_entry_allowed_flag;
321: End If;
322: If (p_rec.adjustment_only_flag = hr_api.g_varchar2) then
323: p_rec.adjustment_only_flag :=
324: pay_set_shd.g_old_rec.adjustment_only_flag;
325: End If;
326: If (p_rec.closed_for_entry_flag = hr_api.g_varchar2) then
327: p_rec.closed_for_entry_flag :=
328: pay_set_shd.g_old_rec.closed_for_entry_flag;
324: pay_set_shd.g_old_rec.adjustment_only_flag;
325: End If;
326: If (p_rec.closed_for_entry_flag = hr_api.g_varchar2) then
327: p_rec.closed_for_entry_flag :=
328: pay_set_shd.g_old_rec.closed_for_entry_flag;
329: End If;
330: If (p_rec.element_name = hr_api.g_varchar2) then
331: p_rec.element_name :=
332: pay_set_shd.g_old_rec.element_name;
328: pay_set_shd.g_old_rec.closed_for_entry_flag;
329: End If;
330: If (p_rec.element_name = hr_api.g_varchar2) then
331: p_rec.element_name :=
332: pay_set_shd.g_old_rec.element_name;
333: End If;
334: If (p_rec.indirect_only_flag = hr_api.g_varchar2) then
335: p_rec.indirect_only_flag :=
336: pay_set_shd.g_old_rec.indirect_only_flag;
332: pay_set_shd.g_old_rec.element_name;
333: End If;
334: If (p_rec.indirect_only_flag = hr_api.g_varchar2) then
335: p_rec.indirect_only_flag :=
336: pay_set_shd.g_old_rec.indirect_only_flag;
337: End If;
338: If (p_rec.multiple_entries_allowed_flag = hr_api.g_varchar2) then
339: p_rec.multiple_entries_allowed_flag :=
340: pay_set_shd.g_old_rec.multiple_entries_allowed_flag;
336: pay_set_shd.g_old_rec.indirect_only_flag;
337: End If;
338: If (p_rec.multiple_entries_allowed_flag = hr_api.g_varchar2) then
339: p_rec.multiple_entries_allowed_flag :=
340: pay_set_shd.g_old_rec.multiple_entries_allowed_flag;
341: End If;
342: If (p_rec.multiply_value_flag = hr_api.g_varchar2) then
343: p_rec.multiply_value_flag :=
344: pay_set_shd.g_old_rec.multiply_value_flag;
340: pay_set_shd.g_old_rec.multiple_entries_allowed_flag;
341: End If;
342: If (p_rec.multiply_value_flag = hr_api.g_varchar2) then
343: p_rec.multiply_value_flag :=
344: pay_set_shd.g_old_rec.multiply_value_flag;
345: End If;
346: If (p_rec.post_termination_rule = hr_api.g_varchar2) then
347: p_rec.post_termination_rule :=
348: pay_set_shd.g_old_rec.post_termination_rule;
344: pay_set_shd.g_old_rec.multiply_value_flag;
345: End If;
346: If (p_rec.post_termination_rule = hr_api.g_varchar2) then
347: p_rec.post_termination_rule :=
348: pay_set_shd.g_old_rec.post_termination_rule;
349: End If;
350: If (p_rec.process_in_run_flag = hr_api.g_varchar2) then
351: p_rec.process_in_run_flag :=
352: pay_set_shd.g_old_rec.process_in_run_flag;
348: pay_set_shd.g_old_rec.post_termination_rule;
349: End If;
350: If (p_rec.process_in_run_flag = hr_api.g_varchar2) then
351: p_rec.process_in_run_flag :=
352: pay_set_shd.g_old_rec.process_in_run_flag;
353: End If;
354: If (p_rec.relative_processing_priority = hr_api.g_number) then
355: p_rec.relative_processing_priority :=
356: pay_set_shd.g_old_rec.relative_processing_priority;
352: pay_set_shd.g_old_rec.process_in_run_flag;
353: End If;
354: If (p_rec.relative_processing_priority = hr_api.g_number) then
355: p_rec.relative_processing_priority :=
356: pay_set_shd.g_old_rec.relative_processing_priority;
357: End If;
358: If (p_rec.processing_type = hr_api.g_varchar2) then
359: p_rec.processing_type :=
360: pay_set_shd.g_old_rec.processing_type;
356: pay_set_shd.g_old_rec.relative_processing_priority;
357: End If;
358: If (p_rec.processing_type = hr_api.g_varchar2) then
359: p_rec.processing_type :=
360: pay_set_shd.g_old_rec.processing_type;
361: End If;
362: If (p_rec.standard_link_flag = hr_api.g_varchar2) then
363: p_rec.standard_link_flag :=
364: pay_set_shd.g_old_rec.standard_link_flag;
360: pay_set_shd.g_old_rec.processing_type;
361: End If;
362: If (p_rec.standard_link_flag = hr_api.g_varchar2) then
363: p_rec.standard_link_flag :=
364: pay_set_shd.g_old_rec.standard_link_flag;
365: End If;
366: If (p_rec.input_currency_code = hr_api.g_varchar2) then
367: p_rec.input_currency_code :=
368: pay_set_shd.g_old_rec.input_currency_code;
364: pay_set_shd.g_old_rec.standard_link_flag;
365: End If;
366: If (p_rec.input_currency_code = hr_api.g_varchar2) then
367: p_rec.input_currency_code :=
368: pay_set_shd.g_old_rec.input_currency_code;
369: End If;
370: If (p_rec.output_currency_code = hr_api.g_varchar2) then
371: p_rec.output_currency_code :=
372: pay_set_shd.g_old_rec.output_currency_code;
368: pay_set_shd.g_old_rec.input_currency_code;
369: End If;
370: If (p_rec.output_currency_code = hr_api.g_varchar2) then
371: p_rec.output_currency_code :=
372: pay_set_shd.g_old_rec.output_currency_code;
373: End If;
374: If (p_rec.benefit_classification_name = hr_api.g_varchar2) then
375: p_rec.benefit_classification_name :=
376: pay_set_shd.g_old_rec.benefit_classification_name;
372: pay_set_shd.g_old_rec.output_currency_code;
373: End If;
374: If (p_rec.benefit_classification_name = hr_api.g_varchar2) then
375: p_rec.benefit_classification_name :=
376: pay_set_shd.g_old_rec.benefit_classification_name;
377: End If;
378: If (p_rec.description = hr_api.g_varchar2) then
379: p_rec.description :=
380: pay_set_shd.g_old_rec.description;
376: pay_set_shd.g_old_rec.benefit_classification_name;
377: End If;
378: If (p_rec.description = hr_api.g_varchar2) then
379: p_rec.description :=
380: pay_set_shd.g_old_rec.description;
381: End If;
382: If (p_rec.qualifying_age = hr_api.g_number) then
383: p_rec.qualifying_age :=
384: pay_set_shd.g_old_rec.qualifying_age;
380: pay_set_shd.g_old_rec.description;
381: End If;
382: If (p_rec.qualifying_age = hr_api.g_number) then
383: p_rec.qualifying_age :=
384: pay_set_shd.g_old_rec.qualifying_age;
385: End If;
386: If (p_rec.qualifying_length_of_service = hr_api.g_number) then
387: p_rec.qualifying_length_of_service :=
388: pay_set_shd.g_old_rec.qualifying_length_of_service;
384: pay_set_shd.g_old_rec.qualifying_age;
385: End If;
386: If (p_rec.qualifying_length_of_service = hr_api.g_number) then
387: p_rec.qualifying_length_of_service :=
388: pay_set_shd.g_old_rec.qualifying_length_of_service;
389: End If;
390: If (p_rec.qualifying_units = hr_api.g_varchar2) then
391: p_rec.qualifying_units :=
392: pay_set_shd.g_old_rec.qualifying_units;
388: pay_set_shd.g_old_rec.qualifying_length_of_service;
389: End If;
390: If (p_rec.qualifying_units = hr_api.g_varchar2) then
391: p_rec.qualifying_units :=
392: pay_set_shd.g_old_rec.qualifying_units;
393: End If;
394: If (p_rec.reporting_name = hr_api.g_varchar2) then
395: p_rec.reporting_name :=
396: pay_set_shd.g_old_rec.reporting_name;
392: pay_set_shd.g_old_rec.qualifying_units;
393: End If;
394: If (p_rec.reporting_name = hr_api.g_varchar2) then
395: p_rec.reporting_name :=
396: pay_set_shd.g_old_rec.reporting_name;
397: End If;
398: If (p_rec.attribute_category = hr_api.g_varchar2) then
399: p_rec.attribute_category :=
400: pay_set_shd.g_old_rec.attribute_category;
396: pay_set_shd.g_old_rec.reporting_name;
397: End If;
398: If (p_rec.attribute_category = hr_api.g_varchar2) then
399: p_rec.attribute_category :=
400: pay_set_shd.g_old_rec.attribute_category;
401: End If;
402: If (p_rec.attribute1 = hr_api.g_varchar2) then
403: p_rec.attribute1 :=
404: pay_set_shd.g_old_rec.attribute1;
400: pay_set_shd.g_old_rec.attribute_category;
401: End If;
402: If (p_rec.attribute1 = hr_api.g_varchar2) then
403: p_rec.attribute1 :=
404: pay_set_shd.g_old_rec.attribute1;
405: End If;
406: If (p_rec.attribute2 = hr_api.g_varchar2) then
407: p_rec.attribute2 :=
408: pay_set_shd.g_old_rec.attribute2;
404: pay_set_shd.g_old_rec.attribute1;
405: End If;
406: If (p_rec.attribute2 = hr_api.g_varchar2) then
407: p_rec.attribute2 :=
408: pay_set_shd.g_old_rec.attribute2;
409: End If;
410: If (p_rec.attribute3 = hr_api.g_varchar2) then
411: p_rec.attribute3 :=
412: pay_set_shd.g_old_rec.attribute3;
408: pay_set_shd.g_old_rec.attribute2;
409: End If;
410: If (p_rec.attribute3 = hr_api.g_varchar2) then
411: p_rec.attribute3 :=
412: pay_set_shd.g_old_rec.attribute3;
413: End If;
414: If (p_rec.attribute4 = hr_api.g_varchar2) then
415: p_rec.attribute4 :=
416: pay_set_shd.g_old_rec.attribute4;
412: pay_set_shd.g_old_rec.attribute3;
413: End If;
414: If (p_rec.attribute4 = hr_api.g_varchar2) then
415: p_rec.attribute4 :=
416: pay_set_shd.g_old_rec.attribute4;
417: End If;
418: If (p_rec.attribute5 = hr_api.g_varchar2) then
419: p_rec.attribute5 :=
420: pay_set_shd.g_old_rec.attribute5;
416: pay_set_shd.g_old_rec.attribute4;
417: End If;
418: If (p_rec.attribute5 = hr_api.g_varchar2) then
419: p_rec.attribute5 :=
420: pay_set_shd.g_old_rec.attribute5;
421: End If;
422: If (p_rec.attribute6 = hr_api.g_varchar2) then
423: p_rec.attribute6 :=
424: pay_set_shd.g_old_rec.attribute6;
420: pay_set_shd.g_old_rec.attribute5;
421: End If;
422: If (p_rec.attribute6 = hr_api.g_varchar2) then
423: p_rec.attribute6 :=
424: pay_set_shd.g_old_rec.attribute6;
425: End If;
426: If (p_rec.attribute7 = hr_api.g_varchar2) then
427: p_rec.attribute7 :=
428: pay_set_shd.g_old_rec.attribute7;
424: pay_set_shd.g_old_rec.attribute6;
425: End If;
426: If (p_rec.attribute7 = hr_api.g_varchar2) then
427: p_rec.attribute7 :=
428: pay_set_shd.g_old_rec.attribute7;
429: End If;
430: If (p_rec.attribute8 = hr_api.g_varchar2) then
431: p_rec.attribute8 :=
432: pay_set_shd.g_old_rec.attribute8;
428: pay_set_shd.g_old_rec.attribute7;
429: End If;
430: If (p_rec.attribute8 = hr_api.g_varchar2) then
431: p_rec.attribute8 :=
432: pay_set_shd.g_old_rec.attribute8;
433: End If;
434: If (p_rec.attribute9 = hr_api.g_varchar2) then
435: p_rec.attribute9 :=
436: pay_set_shd.g_old_rec.attribute9;
432: pay_set_shd.g_old_rec.attribute8;
433: End If;
434: If (p_rec.attribute9 = hr_api.g_varchar2) then
435: p_rec.attribute9 :=
436: pay_set_shd.g_old_rec.attribute9;
437: End If;
438: If (p_rec.attribute10 = hr_api.g_varchar2) then
439: p_rec.attribute10 :=
440: pay_set_shd.g_old_rec.attribute10;
436: pay_set_shd.g_old_rec.attribute9;
437: End If;
438: If (p_rec.attribute10 = hr_api.g_varchar2) then
439: p_rec.attribute10 :=
440: pay_set_shd.g_old_rec.attribute10;
441: End If;
442: If (p_rec.attribute11 = hr_api.g_varchar2) then
443: p_rec.attribute11 :=
444: pay_set_shd.g_old_rec.attribute11;
440: pay_set_shd.g_old_rec.attribute10;
441: End If;
442: If (p_rec.attribute11 = hr_api.g_varchar2) then
443: p_rec.attribute11 :=
444: pay_set_shd.g_old_rec.attribute11;
445: End If;
446: If (p_rec.attribute12 = hr_api.g_varchar2) then
447: p_rec.attribute12 :=
448: pay_set_shd.g_old_rec.attribute12;
444: pay_set_shd.g_old_rec.attribute11;
445: End If;
446: If (p_rec.attribute12 = hr_api.g_varchar2) then
447: p_rec.attribute12 :=
448: pay_set_shd.g_old_rec.attribute12;
449: End If;
450: If (p_rec.attribute13 = hr_api.g_varchar2) then
451: p_rec.attribute13 :=
452: pay_set_shd.g_old_rec.attribute13;
448: pay_set_shd.g_old_rec.attribute12;
449: End If;
450: If (p_rec.attribute13 = hr_api.g_varchar2) then
451: p_rec.attribute13 :=
452: pay_set_shd.g_old_rec.attribute13;
453: End If;
454: If (p_rec.attribute14 = hr_api.g_varchar2) then
455: p_rec.attribute14 :=
456: pay_set_shd.g_old_rec.attribute14;
452: pay_set_shd.g_old_rec.attribute13;
453: End If;
454: If (p_rec.attribute14 = hr_api.g_varchar2) then
455: p_rec.attribute14 :=
456: pay_set_shd.g_old_rec.attribute14;
457: End If;
458: If (p_rec.attribute15 = hr_api.g_varchar2) then
459: p_rec.attribute15 :=
460: pay_set_shd.g_old_rec.attribute15;
456: pay_set_shd.g_old_rec.attribute14;
457: End If;
458: If (p_rec.attribute15 = hr_api.g_varchar2) then
459: p_rec.attribute15 :=
460: pay_set_shd.g_old_rec.attribute15;
461: End If;
462: If (p_rec.attribute16 = hr_api.g_varchar2) then
463: p_rec.attribute16 :=
464: pay_set_shd.g_old_rec.attribute16;
460: pay_set_shd.g_old_rec.attribute15;
461: End If;
462: If (p_rec.attribute16 = hr_api.g_varchar2) then
463: p_rec.attribute16 :=
464: pay_set_shd.g_old_rec.attribute16;
465: End If;
466: If (p_rec.attribute17 = hr_api.g_varchar2) then
467: p_rec.attribute17 :=
468: pay_set_shd.g_old_rec.attribute17;
464: pay_set_shd.g_old_rec.attribute16;
465: End If;
466: If (p_rec.attribute17 = hr_api.g_varchar2) then
467: p_rec.attribute17 :=
468: pay_set_shd.g_old_rec.attribute17;
469: End If;
470: If (p_rec.attribute18 = hr_api.g_varchar2) then
471: p_rec.attribute18 :=
472: pay_set_shd.g_old_rec.attribute18;
468: pay_set_shd.g_old_rec.attribute17;
469: End If;
470: If (p_rec.attribute18 = hr_api.g_varchar2) then
471: p_rec.attribute18 :=
472: pay_set_shd.g_old_rec.attribute18;
473: End If;
474: If (p_rec.attribute19 = hr_api.g_varchar2) then
475: p_rec.attribute19 :=
476: pay_set_shd.g_old_rec.attribute19;
472: pay_set_shd.g_old_rec.attribute18;
473: End If;
474: If (p_rec.attribute19 = hr_api.g_varchar2) then
475: p_rec.attribute19 :=
476: pay_set_shd.g_old_rec.attribute19;
477: End If;
478: If (p_rec.attribute20 = hr_api.g_varchar2) then
479: p_rec.attribute20 :=
480: pay_set_shd.g_old_rec.attribute20;
476: pay_set_shd.g_old_rec.attribute19;
477: End If;
478: If (p_rec.attribute20 = hr_api.g_varchar2) then
479: p_rec.attribute20 :=
480: pay_set_shd.g_old_rec.attribute20;
481: End If;
482: If (p_rec.element_information_category = hr_api.g_varchar2) then
483: p_rec.element_information_category :=
484: pay_set_shd.g_old_rec.element_information_category;
480: pay_set_shd.g_old_rec.attribute20;
481: End If;
482: If (p_rec.element_information_category = hr_api.g_varchar2) then
483: p_rec.element_information_category :=
484: pay_set_shd.g_old_rec.element_information_category;
485: End If;
486: If (p_rec.element_information1 = hr_api.g_varchar2) then
487: p_rec.element_information1 :=
488: pay_set_shd.g_old_rec.element_information1;
484: pay_set_shd.g_old_rec.element_information_category;
485: End If;
486: If (p_rec.element_information1 = hr_api.g_varchar2) then
487: p_rec.element_information1 :=
488: pay_set_shd.g_old_rec.element_information1;
489: End If;
490: If (p_rec.element_information2 = hr_api.g_varchar2) then
491: p_rec.element_information2 :=
492: pay_set_shd.g_old_rec.element_information2;
488: pay_set_shd.g_old_rec.element_information1;
489: End If;
490: If (p_rec.element_information2 = hr_api.g_varchar2) then
491: p_rec.element_information2 :=
492: pay_set_shd.g_old_rec.element_information2;
493: End If;
494: If (p_rec.element_information3 = hr_api.g_varchar2) then
495: p_rec.element_information3 :=
496: pay_set_shd.g_old_rec.element_information3;
492: pay_set_shd.g_old_rec.element_information2;
493: End If;
494: If (p_rec.element_information3 = hr_api.g_varchar2) then
495: p_rec.element_information3 :=
496: pay_set_shd.g_old_rec.element_information3;
497: End If;
498: If (p_rec.element_information4 = hr_api.g_varchar2) then
499: p_rec.element_information4 :=
500: pay_set_shd.g_old_rec.element_information4;
496: pay_set_shd.g_old_rec.element_information3;
497: End If;
498: If (p_rec.element_information4 = hr_api.g_varchar2) then
499: p_rec.element_information4 :=
500: pay_set_shd.g_old_rec.element_information4;
501: End If;
502: If (p_rec.element_information5 = hr_api.g_varchar2) then
503: p_rec.element_information5 :=
504: pay_set_shd.g_old_rec.element_information5;
500: pay_set_shd.g_old_rec.element_information4;
501: End If;
502: If (p_rec.element_information5 = hr_api.g_varchar2) then
503: p_rec.element_information5 :=
504: pay_set_shd.g_old_rec.element_information5;
505: End If;
506: If (p_rec.element_information6 = hr_api.g_varchar2) then
507: p_rec.element_information6 :=
508: pay_set_shd.g_old_rec.element_information6;
504: pay_set_shd.g_old_rec.element_information5;
505: End If;
506: If (p_rec.element_information6 = hr_api.g_varchar2) then
507: p_rec.element_information6 :=
508: pay_set_shd.g_old_rec.element_information6;
509: End If;
510: If (p_rec.element_information7 = hr_api.g_varchar2) then
511: p_rec.element_information7 :=
512: pay_set_shd.g_old_rec.element_information7;
508: pay_set_shd.g_old_rec.element_information6;
509: End If;
510: If (p_rec.element_information7 = hr_api.g_varchar2) then
511: p_rec.element_information7 :=
512: pay_set_shd.g_old_rec.element_information7;
513: End If;
514: If (p_rec.element_information8 = hr_api.g_varchar2) then
515: p_rec.element_information8 :=
516: pay_set_shd.g_old_rec.element_information8;
512: pay_set_shd.g_old_rec.element_information7;
513: End If;
514: If (p_rec.element_information8 = hr_api.g_varchar2) then
515: p_rec.element_information8 :=
516: pay_set_shd.g_old_rec.element_information8;
517: End If;
518: If (p_rec.element_information9 = hr_api.g_varchar2) then
519: p_rec.element_information9 :=
520: pay_set_shd.g_old_rec.element_information9;
516: pay_set_shd.g_old_rec.element_information8;
517: End If;
518: If (p_rec.element_information9 = hr_api.g_varchar2) then
519: p_rec.element_information9 :=
520: pay_set_shd.g_old_rec.element_information9;
521: End If;
522: If (p_rec.element_information10 = hr_api.g_varchar2) then
523: p_rec.element_information10 :=
524: pay_set_shd.g_old_rec.element_information10;
520: pay_set_shd.g_old_rec.element_information9;
521: End If;
522: If (p_rec.element_information10 = hr_api.g_varchar2) then
523: p_rec.element_information10 :=
524: pay_set_shd.g_old_rec.element_information10;
525: End If;
526: If (p_rec.element_information11 = hr_api.g_varchar2) then
527: p_rec.element_information11 :=
528: pay_set_shd.g_old_rec.element_information11;
524: pay_set_shd.g_old_rec.element_information10;
525: End If;
526: If (p_rec.element_information11 = hr_api.g_varchar2) then
527: p_rec.element_information11 :=
528: pay_set_shd.g_old_rec.element_information11;
529: End If;
530: If (p_rec.element_information12 = hr_api.g_varchar2) then
531: p_rec.element_information12 :=
532: pay_set_shd.g_old_rec.element_information12;
528: pay_set_shd.g_old_rec.element_information11;
529: End If;
530: If (p_rec.element_information12 = hr_api.g_varchar2) then
531: p_rec.element_information12 :=
532: pay_set_shd.g_old_rec.element_information12;
533: End If;
534: If (p_rec.element_information13 = hr_api.g_varchar2) then
535: p_rec.element_information13 :=
536: pay_set_shd.g_old_rec.element_information13;
532: pay_set_shd.g_old_rec.element_information12;
533: End If;
534: If (p_rec.element_information13 = hr_api.g_varchar2) then
535: p_rec.element_information13 :=
536: pay_set_shd.g_old_rec.element_information13;
537: End If;
538: If (p_rec.element_information14 = hr_api.g_varchar2) then
539: p_rec.element_information14 :=
540: pay_set_shd.g_old_rec.element_information14;
536: pay_set_shd.g_old_rec.element_information13;
537: End If;
538: If (p_rec.element_information14 = hr_api.g_varchar2) then
539: p_rec.element_information14 :=
540: pay_set_shd.g_old_rec.element_information14;
541: End If;
542: If (p_rec.element_information15 = hr_api.g_varchar2) then
543: p_rec.element_information15 :=
544: pay_set_shd.g_old_rec.element_information15;
540: pay_set_shd.g_old_rec.element_information14;
541: End If;
542: If (p_rec.element_information15 = hr_api.g_varchar2) then
543: p_rec.element_information15 :=
544: pay_set_shd.g_old_rec.element_information15;
545: End If;
546: If (p_rec.element_information16 = hr_api.g_varchar2) then
547: p_rec.element_information16 :=
548: pay_set_shd.g_old_rec.element_information16;
544: pay_set_shd.g_old_rec.element_information15;
545: End If;
546: If (p_rec.element_information16 = hr_api.g_varchar2) then
547: p_rec.element_information16 :=
548: pay_set_shd.g_old_rec.element_information16;
549: End If;
550: If (p_rec.element_information17 = hr_api.g_varchar2) then
551: p_rec.element_information17 :=
552: pay_set_shd.g_old_rec.element_information17;
548: pay_set_shd.g_old_rec.element_information16;
549: End If;
550: If (p_rec.element_information17 = hr_api.g_varchar2) then
551: p_rec.element_information17 :=
552: pay_set_shd.g_old_rec.element_information17;
553: End If;
554: If (p_rec.element_information18 = hr_api.g_varchar2) then
555: p_rec.element_information18 :=
556: pay_set_shd.g_old_rec.element_information18;
552: pay_set_shd.g_old_rec.element_information17;
553: End If;
554: If (p_rec.element_information18 = hr_api.g_varchar2) then
555: p_rec.element_information18 :=
556: pay_set_shd.g_old_rec.element_information18;
557: End If;
558: If (p_rec.element_information19 = hr_api.g_varchar2) then
559: p_rec.element_information19 :=
560: pay_set_shd.g_old_rec.element_information19;
556: pay_set_shd.g_old_rec.element_information18;
557: End If;
558: If (p_rec.element_information19 = hr_api.g_varchar2) then
559: p_rec.element_information19 :=
560: pay_set_shd.g_old_rec.element_information19;
561: End If;
562: If (p_rec.element_information20 = hr_api.g_varchar2) then
563: p_rec.element_information20 :=
564: pay_set_shd.g_old_rec.element_information20;
560: pay_set_shd.g_old_rec.element_information19;
561: End If;
562: If (p_rec.element_information20 = hr_api.g_varchar2) then
563: p_rec.element_information20 :=
564: pay_set_shd.g_old_rec.element_information20;
565: End If;
566: If (p_rec.third_party_pay_only_flag = hr_api.g_varchar2) then
567: p_rec.third_party_pay_only_flag :=
568: pay_set_shd.g_old_rec.third_party_pay_only_flag;
564: pay_set_shd.g_old_rec.element_information20;
565: End If;
566: If (p_rec.third_party_pay_only_flag = hr_api.g_varchar2) then
567: p_rec.third_party_pay_only_flag :=
568: pay_set_shd.g_old_rec.third_party_pay_only_flag;
569: End If;
570: If (p_rec.skip_formula = hr_api.g_varchar2) then
571: p_rec.skip_formula :=
572: pay_set_shd.g_old_rec.skip_formula;
568: pay_set_shd.g_old_rec.third_party_pay_only_flag;
569: End If;
570: If (p_rec.skip_formula = hr_api.g_varchar2) then
571: p_rec.skip_formula :=
572: pay_set_shd.g_old_rec.skip_formula;
573: End If;
574: If (p_rec.payroll_formula_id = hr_api.g_number) then
575: p_rec.payroll_formula_id :=
576: pay_set_shd.g_old_rec.payroll_formula_id;
572: pay_set_shd.g_old_rec.skip_formula;
573: End If;
574: If (p_rec.payroll_formula_id = hr_api.g_number) then
575: p_rec.payroll_formula_id :=
576: pay_set_shd.g_old_rec.payroll_formula_id;
577: End If;
578: If (p_rec.exclusion_rule_id = hr_api.g_number) then
579: p_rec.exclusion_rule_id :=
580: pay_set_shd.g_old_rec.exclusion_rule_id;
576: pay_set_shd.g_old_rec.payroll_formula_id;
577: End If;
578: If (p_rec.exclusion_rule_id = hr_api.g_number) then
579: p_rec.exclusion_rule_id :=
580: pay_set_shd.g_old_rec.exclusion_rule_id;
581: End If;
582: If (p_rec.iterative_flag = hr_api.g_varchar2) then
583: p_rec.iterative_flag :=
584: pay_set_shd.g_old_rec.iterative_flag;
580: pay_set_shd.g_old_rec.exclusion_rule_id;
581: End If;
582: If (p_rec.iterative_flag = hr_api.g_varchar2) then
583: p_rec.iterative_flag :=
584: pay_set_shd.g_old_rec.iterative_flag;
585: End If;
586: If (p_rec.iterative_priority = hr_api.g_number) then
587: p_rec.iterative_priority :=
588: pay_set_shd.g_old_rec.iterative_priority;
584: pay_set_shd.g_old_rec.iterative_flag;
585: End If;
586: If (p_rec.iterative_priority = hr_api.g_number) then
587: p_rec.iterative_priority :=
588: pay_set_shd.g_old_rec.iterative_priority;
589: End If;
590: If (p_rec.iterative_formula_name = hr_api.g_varchar2) then
591: p_rec.iterative_formula_name :=
592: pay_set_shd.g_old_rec.iterative_formula_name;
588: pay_set_shd.g_old_rec.iterative_priority;
589: End If;
590: If (p_rec.iterative_formula_name = hr_api.g_varchar2) then
591: p_rec.iterative_formula_name :=
592: pay_set_shd.g_old_rec.iterative_formula_name;
593: End If;
594: If (p_rec.process_mode = hr_api.g_varchar2) then
595: p_rec.process_mode :=
596: pay_set_shd.g_old_rec.process_mode;
592: pay_set_shd.g_old_rec.iterative_formula_name;
593: End If;
594: If (p_rec.process_mode = hr_api.g_varchar2) then
595: p_rec.process_mode :=
596: pay_set_shd.g_old_rec.process_mode;
597: End If;
598: If (p_rec.grossup_flag = hr_api.g_varchar2) then
599: p_rec.grossup_flag :=
600: pay_set_shd.g_old_rec.grossup_flag;
596: pay_set_shd.g_old_rec.process_mode;
597: End If;
598: If (p_rec.grossup_flag = hr_api.g_varchar2) then
599: p_rec.grossup_flag :=
600: pay_set_shd.g_old_rec.grossup_flag;
601: End If;
602: If (p_rec.advance_indicator = hr_api.g_varchar2) then
603: p_rec.advance_indicator :=
604: pay_set_shd.g_old_rec.advance_indicator;
600: pay_set_shd.g_old_rec.grossup_flag;
601: End If;
602: If (p_rec.advance_indicator = hr_api.g_varchar2) then
603: p_rec.advance_indicator :=
604: pay_set_shd.g_old_rec.advance_indicator;
605: End If;
606: If (p_rec.advance_payable = hr_api.g_varchar2) then
607: p_rec.advance_payable :=
608: pay_set_shd.g_old_rec.advance_payable;
604: pay_set_shd.g_old_rec.advance_indicator;
605: End If;
606: If (p_rec.advance_payable = hr_api.g_varchar2) then
607: p_rec.advance_payable :=
608: pay_set_shd.g_old_rec.advance_payable;
609: End If;
610: If (p_rec.advance_deduction = hr_api.g_varchar2) then
611: p_rec.advance_deduction :=
612: pay_set_shd.g_old_rec.advance_deduction;
608: pay_set_shd.g_old_rec.advance_payable;
609: End If;
610: If (p_rec.advance_deduction = hr_api.g_varchar2) then
611: p_rec.advance_deduction :=
612: pay_set_shd.g_old_rec.advance_deduction;
613: End If;
614: If (p_rec.process_advance_entry = hr_api.g_varchar2) then
615: p_rec.process_advance_entry :=
616: pay_set_shd.g_old_rec.process_advance_entry;
612: pay_set_shd.g_old_rec.advance_deduction;
613: End If;
614: If (p_rec.process_advance_entry = hr_api.g_varchar2) then
615: p_rec.process_advance_entry :=
616: pay_set_shd.g_old_rec.process_advance_entry;
617: End If;
618: If (p_rec.proration_group = hr_api.g_varchar2) then
619: p_rec.proration_group :=
620: pay_set_shd.g_old_rec.proration_group;
616: pay_set_shd.g_old_rec.process_advance_entry;
617: End If;
618: If (p_rec.proration_group = hr_api.g_varchar2) then
619: p_rec.proration_group :=
620: pay_set_shd.g_old_rec.proration_group;
621: End If;
622: If (p_rec.proration_formula = hr_api.g_varchar2) then
623: p_rec.proration_formula :=
624: pay_set_shd.g_old_rec.proration_formula;
620: pay_set_shd.g_old_rec.proration_group;
621: End If;
622: If (p_rec.proration_formula = hr_api.g_varchar2) then
623: p_rec.proration_formula :=
624: pay_set_shd.g_old_rec.proration_formula;
625: End If;
626: If (p_rec.recalc_event_group = hr_api.g_varchar2) then
627: p_rec.recalc_event_group :=
628: pay_set_shd.g_old_rec.recalc_event_group;
624: pay_set_shd.g_old_rec.proration_formula;
625: End If;
626: If (p_rec.recalc_event_group = hr_api.g_varchar2) then
627: p_rec.recalc_event_group :=
628: pay_set_shd.g_old_rec.recalc_event_group;
629: End If;
630: If (p_rec.once_each_period_flag = hr_api.g_varchar2) then
631: p_rec.once_each_period_flag :=
632: pay_set_shd.g_old_rec.once_each_period_flag;
628: pay_set_shd.g_old_rec.recalc_event_group;
629: End If;
630: If (p_rec.once_each_period_flag = hr_api.g_varchar2) then
631: p_rec.once_each_period_flag :=
632: pay_set_shd.g_old_rec.once_each_period_flag;
633: End If;
634: --
635: hr_utility.set_location(' Leaving:'||l_proc, 10);
636: --
640: -- |---------------------------------< upd >----------------------------------|
641: -- ----------------------------------------------------------------------------
642: Procedure upd
643: (p_effective_date in date
644: ,p_rec in out nocopy pay_set_shd.g_rec_type
645: ) is
646: --
647: l_proc varchar2(72) := g_package||'upd';
648: --
650: hr_utility.set_location('Entering:'||l_proc, 5);
651: --
652: -- We must lock the row which we need to update.
653: --
654: pay_set_shd.lck
655: (
656: p_rec.element_type_id,
657: p_rec.object_version_number
658: );
768: p_once_each_period_flag in varchar2 default hr_api.g_varchar2,
769: p_object_version_number in out nocopy number
770: ) is
771: --
772: l_rec pay_set_shd.g_rec_type;
773: l_proc varchar2(72) := g_package||'upd';
774: --
775: Begin
776: hr_utility.set_location('Entering:'||l_proc, 5);
778: -- Call conversion function to turn arguments into the
779: -- l_rec structure.
780: --
781: l_rec :=
782: pay_set_shd.convert_args
783: (
784: p_element_type_id,
785: hr_api.g_number,
786: p_classification_name,