44: -- Internal Row Handler Use Only.
45: --
46: -- {End Of Comments}
47: -- ----------------------------------------------------------------------------
48: Procedure update_dml(p_rec in out nocopy pay_etm_shd.g_rec_type) is
49: --
50: l_proc varchar2(72) := g_package||'update_dml';
51: --
52: Begin
132: --
133: Exception
134: When hr_api.check_integrity_violated Then
135: -- A check constraint has been violated
136: pay_etm_shd.constraint_error
137: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
138: When hr_api.parent_integrity_violated Then
139: -- Parent integrity has been violated
140: pay_etm_shd.constraint_error
136: pay_etm_shd.constraint_error
137: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
138: When hr_api.parent_integrity_violated Then
139: -- Parent integrity has been violated
140: pay_etm_shd.constraint_error
141: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
142: When hr_api.unique_integrity_violated Then
143: -- Unique integrity has been violated
144: pay_etm_shd.constraint_error
140: pay_etm_shd.constraint_error
141: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
142: When hr_api.unique_integrity_violated Then
143: -- Unique integrity has been violated
144: pay_etm_shd.constraint_error
145: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
146: When Others Then
147: Raise;
148: End update_dml;
178: -- Internal Row Handler Use Only.
179: --
180: -- {End Of Comments}
181: -- ----------------------------------------------------------------------------
182: Procedure pre_update(p_rec in pay_etm_shd.g_rec_type) is
183: --
184: l_proc varchar2(72) := g_package||'pre_update';
185: --
186: Begin
220: -- Internal Row Handler Use Only.
221: --
222: -- {End Of Comments}
223: -- ----------------------------------------------------------------------------
224: Procedure post_update(p_rec in pay_etm_shd.g_rec_type) is
225: --
226: l_proc varchar2(72) := g_package||'post_update';
227: --
228: Begin
274: -- Internal Row Handler Use Only.
275: --
276: -- {End Of Comments}
277: -- ----------------------------------------------------------------------------
278: Procedure convert_defs(p_rec in out nocopy pay_etm_shd.g_rec_type) is
279: --
280: l_proc varchar2(72) := g_package||'convert_defs';
281: --
282: Begin
289: -- is being used then we must set to the 'current' argument value.
290: --
291: If (p_rec.template_type = hr_api.g_varchar2) then
292: p_rec.template_type :=
293: pay_etm_shd.g_old_rec.template_type;
294: End If;
295: If (p_rec.template_name = hr_api.g_varchar2) then
296: p_rec.template_name :=
297: pay_etm_shd.g_old_rec.template_name;
293: pay_etm_shd.g_old_rec.template_type;
294: End If;
295: If (p_rec.template_name = hr_api.g_varchar2) then
296: p_rec.template_name :=
297: pay_etm_shd.g_old_rec.template_name;
298: End If;
299: If (p_rec.base_processing_priority = hr_api.g_number) then
300: p_rec.base_processing_priority :=
301: pay_etm_shd.g_old_rec.base_processing_priority;
297: pay_etm_shd.g_old_rec.template_name;
298: End If;
299: If (p_rec.base_processing_priority = hr_api.g_number) then
300: p_rec.base_processing_priority :=
301: pay_etm_shd.g_old_rec.base_processing_priority;
302: End If;
303: If (p_rec.business_group_id = hr_api.g_number) then
304: p_rec.business_group_id :=
305: pay_etm_shd.g_old_rec.business_group_id;
301: pay_etm_shd.g_old_rec.base_processing_priority;
302: End If;
303: If (p_rec.business_group_id = hr_api.g_number) then
304: p_rec.business_group_id :=
305: pay_etm_shd.g_old_rec.business_group_id;
306: End If;
307: If (p_rec.legislation_code = hr_api.g_varchar2) then
308: p_rec.legislation_code :=
309: pay_etm_shd.g_old_rec.legislation_code;
305: pay_etm_shd.g_old_rec.business_group_id;
306: End If;
307: If (p_rec.legislation_code = hr_api.g_varchar2) then
308: p_rec.legislation_code :=
309: pay_etm_shd.g_old_rec.legislation_code;
310: End If;
311: If (p_rec.version_number = hr_api.g_number) then
312: p_rec.version_number :=
313: pay_etm_shd.g_old_rec.version_number;
309: pay_etm_shd.g_old_rec.legislation_code;
310: End If;
311: If (p_rec.version_number = hr_api.g_number) then
312: p_rec.version_number :=
313: pay_etm_shd.g_old_rec.version_number;
314: End If;
315: If (p_rec.base_name = hr_api.g_varchar2) then
316: p_rec.base_name :=
317: pay_etm_shd.g_old_rec.base_name;
313: pay_etm_shd.g_old_rec.version_number;
314: End If;
315: If (p_rec.base_name = hr_api.g_varchar2) then
316: p_rec.base_name :=
317: pay_etm_shd.g_old_rec.base_name;
318: End If;
319: If (p_rec.max_base_name_length = hr_api.g_number) then
320: p_rec.max_base_name_length :=
321: pay_etm_shd.g_old_rec.max_base_name_length;
317: pay_etm_shd.g_old_rec.base_name;
318: End If;
319: If (p_rec.max_base_name_length = hr_api.g_number) then
320: p_rec.max_base_name_length :=
321: pay_etm_shd.g_old_rec.max_base_name_length;
322: End If;
323: If (p_rec.preference_info_category = hr_api.g_varchar2) then
324: p_rec.preference_info_category :=
325: pay_etm_shd.g_old_rec.preference_info_category;
321: pay_etm_shd.g_old_rec.max_base_name_length;
322: End If;
323: If (p_rec.preference_info_category = hr_api.g_varchar2) then
324: p_rec.preference_info_category :=
325: pay_etm_shd.g_old_rec.preference_info_category;
326: End If;
327: If (p_rec.preference_information1 = hr_api.g_varchar2) then
328: p_rec.preference_information1 :=
329: pay_etm_shd.g_old_rec.preference_information1;
325: pay_etm_shd.g_old_rec.preference_info_category;
326: End If;
327: If (p_rec.preference_information1 = hr_api.g_varchar2) then
328: p_rec.preference_information1 :=
329: pay_etm_shd.g_old_rec.preference_information1;
330: End If;
331: If (p_rec.preference_information2 = hr_api.g_varchar2) then
332: p_rec.preference_information2 :=
333: pay_etm_shd.g_old_rec.preference_information2;
329: pay_etm_shd.g_old_rec.preference_information1;
330: End If;
331: If (p_rec.preference_information2 = hr_api.g_varchar2) then
332: p_rec.preference_information2 :=
333: pay_etm_shd.g_old_rec.preference_information2;
334: End If;
335: If (p_rec.preference_information3 = hr_api.g_varchar2) then
336: p_rec.preference_information3 :=
337: pay_etm_shd.g_old_rec.preference_information3;
333: pay_etm_shd.g_old_rec.preference_information2;
334: End If;
335: If (p_rec.preference_information3 = hr_api.g_varchar2) then
336: p_rec.preference_information3 :=
337: pay_etm_shd.g_old_rec.preference_information3;
338: End If;
339: If (p_rec.preference_information4 = hr_api.g_varchar2) then
340: p_rec.preference_information4 :=
341: pay_etm_shd.g_old_rec.preference_information4;
337: pay_etm_shd.g_old_rec.preference_information3;
338: End If;
339: If (p_rec.preference_information4 = hr_api.g_varchar2) then
340: p_rec.preference_information4 :=
341: pay_etm_shd.g_old_rec.preference_information4;
342: End If;
343: If (p_rec.preference_information5 = hr_api.g_varchar2) then
344: p_rec.preference_information5 :=
345: pay_etm_shd.g_old_rec.preference_information5;
341: pay_etm_shd.g_old_rec.preference_information4;
342: End If;
343: If (p_rec.preference_information5 = hr_api.g_varchar2) then
344: p_rec.preference_information5 :=
345: pay_etm_shd.g_old_rec.preference_information5;
346: End If;
347: If (p_rec.preference_information6 = hr_api.g_varchar2) then
348: p_rec.preference_information6 :=
349: pay_etm_shd.g_old_rec.preference_information6;
345: pay_etm_shd.g_old_rec.preference_information5;
346: End If;
347: If (p_rec.preference_information6 = hr_api.g_varchar2) then
348: p_rec.preference_information6 :=
349: pay_etm_shd.g_old_rec.preference_information6;
350: End If;
351: If (p_rec.preference_information7 = hr_api.g_varchar2) then
352: p_rec.preference_information7 :=
353: pay_etm_shd.g_old_rec.preference_information7;
349: pay_etm_shd.g_old_rec.preference_information6;
350: End If;
351: If (p_rec.preference_information7 = hr_api.g_varchar2) then
352: p_rec.preference_information7 :=
353: pay_etm_shd.g_old_rec.preference_information7;
354: End If;
355: If (p_rec.preference_information8 = hr_api.g_varchar2) then
356: p_rec.preference_information8 :=
357: pay_etm_shd.g_old_rec.preference_information8;
353: pay_etm_shd.g_old_rec.preference_information7;
354: End If;
355: If (p_rec.preference_information8 = hr_api.g_varchar2) then
356: p_rec.preference_information8 :=
357: pay_etm_shd.g_old_rec.preference_information8;
358: End If;
359: If (p_rec.preference_information9 = hr_api.g_varchar2) then
360: p_rec.preference_information9 :=
361: pay_etm_shd.g_old_rec.preference_information9;
357: pay_etm_shd.g_old_rec.preference_information8;
358: End If;
359: If (p_rec.preference_information9 = hr_api.g_varchar2) then
360: p_rec.preference_information9 :=
361: pay_etm_shd.g_old_rec.preference_information9;
362: End If;
363: If (p_rec.preference_information10 = hr_api.g_varchar2) then
364: p_rec.preference_information10 :=
365: pay_etm_shd.g_old_rec.preference_information10;
361: pay_etm_shd.g_old_rec.preference_information9;
362: End If;
363: If (p_rec.preference_information10 = hr_api.g_varchar2) then
364: p_rec.preference_information10 :=
365: pay_etm_shd.g_old_rec.preference_information10;
366: End If;
367: If (p_rec.preference_information11 = hr_api.g_varchar2) then
368: p_rec.preference_information11 :=
369: pay_etm_shd.g_old_rec.preference_information11;
365: pay_etm_shd.g_old_rec.preference_information10;
366: End If;
367: If (p_rec.preference_information11 = hr_api.g_varchar2) then
368: p_rec.preference_information11 :=
369: pay_etm_shd.g_old_rec.preference_information11;
370: End If;
371: If (p_rec.preference_information12 = hr_api.g_varchar2) then
372: p_rec.preference_information12 :=
373: pay_etm_shd.g_old_rec.preference_information12;
369: pay_etm_shd.g_old_rec.preference_information11;
370: End If;
371: If (p_rec.preference_information12 = hr_api.g_varchar2) then
372: p_rec.preference_information12 :=
373: pay_etm_shd.g_old_rec.preference_information12;
374: End If;
375: If (p_rec.preference_information13 = hr_api.g_varchar2) then
376: p_rec.preference_information13 :=
377: pay_etm_shd.g_old_rec.preference_information13;
373: pay_etm_shd.g_old_rec.preference_information12;
374: End If;
375: If (p_rec.preference_information13 = hr_api.g_varchar2) then
376: p_rec.preference_information13 :=
377: pay_etm_shd.g_old_rec.preference_information13;
378: End If;
379: If (p_rec.preference_information14 = hr_api.g_varchar2) then
380: p_rec.preference_information14 :=
381: pay_etm_shd.g_old_rec.preference_information14;
377: pay_etm_shd.g_old_rec.preference_information13;
378: End If;
379: If (p_rec.preference_information14 = hr_api.g_varchar2) then
380: p_rec.preference_information14 :=
381: pay_etm_shd.g_old_rec.preference_information14;
382: End If;
383: If (p_rec.preference_information15 = hr_api.g_varchar2) then
384: p_rec.preference_information15 :=
385: pay_etm_shd.g_old_rec.preference_information15;
381: pay_etm_shd.g_old_rec.preference_information14;
382: End If;
383: If (p_rec.preference_information15 = hr_api.g_varchar2) then
384: p_rec.preference_information15 :=
385: pay_etm_shd.g_old_rec.preference_information15;
386: End If;
387: If (p_rec.preference_information16 = hr_api.g_varchar2) then
388: p_rec.preference_information16 :=
389: pay_etm_shd.g_old_rec.preference_information16;
385: pay_etm_shd.g_old_rec.preference_information15;
386: End If;
387: If (p_rec.preference_information16 = hr_api.g_varchar2) then
388: p_rec.preference_information16 :=
389: pay_etm_shd.g_old_rec.preference_information16;
390: End If;
391: If (p_rec.preference_information17 = hr_api.g_varchar2) then
392: p_rec.preference_information17 :=
393: pay_etm_shd.g_old_rec.preference_information17;
389: pay_etm_shd.g_old_rec.preference_information16;
390: End If;
391: If (p_rec.preference_information17 = hr_api.g_varchar2) then
392: p_rec.preference_information17 :=
393: pay_etm_shd.g_old_rec.preference_information17;
394: End If;
395: If (p_rec.preference_information18 = hr_api.g_varchar2) then
396: p_rec.preference_information18 :=
397: pay_etm_shd.g_old_rec.preference_information18;
393: pay_etm_shd.g_old_rec.preference_information17;
394: End If;
395: If (p_rec.preference_information18 = hr_api.g_varchar2) then
396: p_rec.preference_information18 :=
397: pay_etm_shd.g_old_rec.preference_information18;
398: End If;
399: If (p_rec.preference_information19 = hr_api.g_varchar2) then
400: p_rec.preference_information19 :=
401: pay_etm_shd.g_old_rec.preference_information19;
397: pay_etm_shd.g_old_rec.preference_information18;
398: End If;
399: If (p_rec.preference_information19 = hr_api.g_varchar2) then
400: p_rec.preference_information19 :=
401: pay_etm_shd.g_old_rec.preference_information19;
402: End If;
403: If (p_rec.preference_information20 = hr_api.g_varchar2) then
404: p_rec.preference_information20 :=
405: pay_etm_shd.g_old_rec.preference_information20;
401: pay_etm_shd.g_old_rec.preference_information19;
402: End If;
403: If (p_rec.preference_information20 = hr_api.g_varchar2) then
404: p_rec.preference_information20 :=
405: pay_etm_shd.g_old_rec.preference_information20;
406: End If;
407: If (p_rec.preference_information21 = hr_api.g_varchar2) then
408: p_rec.preference_information21 :=
409: pay_etm_shd.g_old_rec.preference_information21;
405: pay_etm_shd.g_old_rec.preference_information20;
406: End If;
407: If (p_rec.preference_information21 = hr_api.g_varchar2) then
408: p_rec.preference_information21 :=
409: pay_etm_shd.g_old_rec.preference_information21;
410: End If;
411: If (p_rec.preference_information22 = hr_api.g_varchar2) then
412: p_rec.preference_information22 :=
413: pay_etm_shd.g_old_rec.preference_information22;
409: pay_etm_shd.g_old_rec.preference_information21;
410: End If;
411: If (p_rec.preference_information22 = hr_api.g_varchar2) then
412: p_rec.preference_information22 :=
413: pay_etm_shd.g_old_rec.preference_information22;
414: End If;
415: If (p_rec.preference_information23 = hr_api.g_varchar2) then
416: p_rec.preference_information23 :=
417: pay_etm_shd.g_old_rec.preference_information23;
413: pay_etm_shd.g_old_rec.preference_information22;
414: End If;
415: If (p_rec.preference_information23 = hr_api.g_varchar2) then
416: p_rec.preference_information23 :=
417: pay_etm_shd.g_old_rec.preference_information23;
418: End If;
419: If (p_rec.preference_information24 = hr_api.g_varchar2) then
420: p_rec.preference_information24 :=
421: pay_etm_shd.g_old_rec.preference_information24;
417: pay_etm_shd.g_old_rec.preference_information23;
418: End If;
419: If (p_rec.preference_information24 = hr_api.g_varchar2) then
420: p_rec.preference_information24 :=
421: pay_etm_shd.g_old_rec.preference_information24;
422: End If;
423: If (p_rec.preference_information25 = hr_api.g_varchar2) then
424: p_rec.preference_information25 :=
425: pay_etm_shd.g_old_rec.preference_information25;
421: pay_etm_shd.g_old_rec.preference_information24;
422: End If;
423: If (p_rec.preference_information25 = hr_api.g_varchar2) then
424: p_rec.preference_information25 :=
425: pay_etm_shd.g_old_rec.preference_information25;
426: End If;
427: If (p_rec.preference_information26 = hr_api.g_varchar2) then
428: p_rec.preference_information26 :=
429: pay_etm_shd.g_old_rec.preference_information26;
425: pay_etm_shd.g_old_rec.preference_information25;
426: End If;
427: If (p_rec.preference_information26 = hr_api.g_varchar2) then
428: p_rec.preference_information26 :=
429: pay_etm_shd.g_old_rec.preference_information26;
430: End If;
431: If (p_rec.preference_information27 = hr_api.g_varchar2) then
432: p_rec.preference_information27 :=
433: pay_etm_shd.g_old_rec.preference_information27;
429: pay_etm_shd.g_old_rec.preference_information26;
430: End If;
431: If (p_rec.preference_information27 = hr_api.g_varchar2) then
432: p_rec.preference_information27 :=
433: pay_etm_shd.g_old_rec.preference_information27;
434: End If;
435: If (p_rec.preference_information28 = hr_api.g_varchar2) then
436: p_rec.preference_information28 :=
437: pay_etm_shd.g_old_rec.preference_information28;
433: pay_etm_shd.g_old_rec.preference_information27;
434: End If;
435: If (p_rec.preference_information28 = hr_api.g_varchar2) then
436: p_rec.preference_information28 :=
437: pay_etm_shd.g_old_rec.preference_information28;
438: End If;
439: If (p_rec.preference_information29 = hr_api.g_varchar2) then
440: p_rec.preference_information29 :=
441: pay_etm_shd.g_old_rec.preference_information29;
437: pay_etm_shd.g_old_rec.preference_information28;
438: End If;
439: If (p_rec.preference_information29 = hr_api.g_varchar2) then
440: p_rec.preference_information29 :=
441: pay_etm_shd.g_old_rec.preference_information29;
442: End If;
443: If (p_rec.preference_information30 = hr_api.g_varchar2) then
444: p_rec.preference_information30 :=
445: pay_etm_shd.g_old_rec.preference_information30;
441: pay_etm_shd.g_old_rec.preference_information29;
442: End If;
443: If (p_rec.preference_information30 = hr_api.g_varchar2) then
444: p_rec.preference_information30 :=
445: pay_etm_shd.g_old_rec.preference_information30;
446: End If;
447: If (p_rec.configuration_info_category = hr_api.g_varchar2) then
448: p_rec.configuration_info_category :=
449: pay_etm_shd.g_old_rec.configuration_info_category;
445: pay_etm_shd.g_old_rec.preference_information30;
446: End If;
447: If (p_rec.configuration_info_category = hr_api.g_varchar2) then
448: p_rec.configuration_info_category :=
449: pay_etm_shd.g_old_rec.configuration_info_category;
450: End If;
451: If (p_rec.configuration_information1 = hr_api.g_varchar2) then
452: p_rec.configuration_information1 :=
453: pay_etm_shd.g_old_rec.configuration_information1;
449: pay_etm_shd.g_old_rec.configuration_info_category;
450: End If;
451: If (p_rec.configuration_information1 = hr_api.g_varchar2) then
452: p_rec.configuration_information1 :=
453: pay_etm_shd.g_old_rec.configuration_information1;
454: End If;
455: If (p_rec.configuration_information2 = hr_api.g_varchar2) then
456: p_rec.configuration_information2 :=
457: pay_etm_shd.g_old_rec.configuration_information2;
453: pay_etm_shd.g_old_rec.configuration_information1;
454: End If;
455: If (p_rec.configuration_information2 = hr_api.g_varchar2) then
456: p_rec.configuration_information2 :=
457: pay_etm_shd.g_old_rec.configuration_information2;
458: End If;
459: If (p_rec.configuration_information3 = hr_api.g_varchar2) then
460: p_rec.configuration_information3 :=
461: pay_etm_shd.g_old_rec.configuration_information3;
457: pay_etm_shd.g_old_rec.configuration_information2;
458: End If;
459: If (p_rec.configuration_information3 = hr_api.g_varchar2) then
460: p_rec.configuration_information3 :=
461: pay_etm_shd.g_old_rec.configuration_information3;
462: End If;
463: If (p_rec.configuration_information4 = hr_api.g_varchar2) then
464: p_rec.configuration_information4 :=
465: pay_etm_shd.g_old_rec.configuration_information4;
461: pay_etm_shd.g_old_rec.configuration_information3;
462: End If;
463: If (p_rec.configuration_information4 = hr_api.g_varchar2) then
464: p_rec.configuration_information4 :=
465: pay_etm_shd.g_old_rec.configuration_information4;
466: End If;
467: If (p_rec.configuration_information5 = hr_api.g_varchar2) then
468: p_rec.configuration_information5 :=
469: pay_etm_shd.g_old_rec.configuration_information5;
465: pay_etm_shd.g_old_rec.configuration_information4;
466: End If;
467: If (p_rec.configuration_information5 = hr_api.g_varchar2) then
468: p_rec.configuration_information5 :=
469: pay_etm_shd.g_old_rec.configuration_information5;
470: End If;
471: If (p_rec.configuration_information6 = hr_api.g_varchar2) then
472: p_rec.configuration_information6 :=
473: pay_etm_shd.g_old_rec.configuration_information6;
469: pay_etm_shd.g_old_rec.configuration_information5;
470: End If;
471: If (p_rec.configuration_information6 = hr_api.g_varchar2) then
472: p_rec.configuration_information6 :=
473: pay_etm_shd.g_old_rec.configuration_information6;
474: End If;
475: If (p_rec.configuration_information7 = hr_api.g_varchar2) then
476: p_rec.configuration_information7 :=
477: pay_etm_shd.g_old_rec.configuration_information7;
473: pay_etm_shd.g_old_rec.configuration_information6;
474: End If;
475: If (p_rec.configuration_information7 = hr_api.g_varchar2) then
476: p_rec.configuration_information7 :=
477: pay_etm_shd.g_old_rec.configuration_information7;
478: End If;
479: If (p_rec.configuration_information8 = hr_api.g_varchar2) then
480: p_rec.configuration_information8 :=
481: pay_etm_shd.g_old_rec.configuration_information8;
477: pay_etm_shd.g_old_rec.configuration_information7;
478: End If;
479: If (p_rec.configuration_information8 = hr_api.g_varchar2) then
480: p_rec.configuration_information8 :=
481: pay_etm_shd.g_old_rec.configuration_information8;
482: End If;
483: If (p_rec.configuration_information9 = hr_api.g_varchar2) then
484: p_rec.configuration_information9 :=
485: pay_etm_shd.g_old_rec.configuration_information9;
481: pay_etm_shd.g_old_rec.configuration_information8;
482: End If;
483: If (p_rec.configuration_information9 = hr_api.g_varchar2) then
484: p_rec.configuration_information9 :=
485: pay_etm_shd.g_old_rec.configuration_information9;
486: End If;
487: If (p_rec.configuration_information10 = hr_api.g_varchar2) then
488: p_rec.configuration_information10 :=
489: pay_etm_shd.g_old_rec.configuration_information10;
485: pay_etm_shd.g_old_rec.configuration_information9;
486: End If;
487: If (p_rec.configuration_information10 = hr_api.g_varchar2) then
488: p_rec.configuration_information10 :=
489: pay_etm_shd.g_old_rec.configuration_information10;
490: End If;
491: If (p_rec.configuration_information11 = hr_api.g_varchar2) then
492: p_rec.configuration_information11 :=
493: pay_etm_shd.g_old_rec.configuration_information11;
489: pay_etm_shd.g_old_rec.configuration_information10;
490: End If;
491: If (p_rec.configuration_information11 = hr_api.g_varchar2) then
492: p_rec.configuration_information11 :=
493: pay_etm_shd.g_old_rec.configuration_information11;
494: End If;
495: If (p_rec.configuration_information12 = hr_api.g_varchar2) then
496: p_rec.configuration_information12 :=
497: pay_etm_shd.g_old_rec.configuration_information12;
493: pay_etm_shd.g_old_rec.configuration_information11;
494: End If;
495: If (p_rec.configuration_information12 = hr_api.g_varchar2) then
496: p_rec.configuration_information12 :=
497: pay_etm_shd.g_old_rec.configuration_information12;
498: End If;
499: If (p_rec.configuration_information13 = hr_api.g_varchar2) then
500: p_rec.configuration_information13 :=
501: pay_etm_shd.g_old_rec.configuration_information13;
497: pay_etm_shd.g_old_rec.configuration_information12;
498: End If;
499: If (p_rec.configuration_information13 = hr_api.g_varchar2) then
500: p_rec.configuration_information13 :=
501: pay_etm_shd.g_old_rec.configuration_information13;
502: End If;
503: If (p_rec.configuration_information14 = hr_api.g_varchar2) then
504: p_rec.configuration_information14 :=
505: pay_etm_shd.g_old_rec.configuration_information14;
501: pay_etm_shd.g_old_rec.configuration_information13;
502: End If;
503: If (p_rec.configuration_information14 = hr_api.g_varchar2) then
504: p_rec.configuration_information14 :=
505: pay_etm_shd.g_old_rec.configuration_information14;
506: End If;
507: If (p_rec.configuration_information15 = hr_api.g_varchar2) then
508: p_rec.configuration_information15 :=
509: pay_etm_shd.g_old_rec.configuration_information15;
505: pay_etm_shd.g_old_rec.configuration_information14;
506: End If;
507: If (p_rec.configuration_information15 = hr_api.g_varchar2) then
508: p_rec.configuration_information15 :=
509: pay_etm_shd.g_old_rec.configuration_information15;
510: End If;
511: If (p_rec.configuration_information16 = hr_api.g_varchar2) then
512: p_rec.configuration_information16 :=
513: pay_etm_shd.g_old_rec.configuration_information16;
509: pay_etm_shd.g_old_rec.configuration_information15;
510: End If;
511: If (p_rec.configuration_information16 = hr_api.g_varchar2) then
512: p_rec.configuration_information16 :=
513: pay_etm_shd.g_old_rec.configuration_information16;
514: End If;
515: If (p_rec.configuration_information17 = hr_api.g_varchar2) then
516: p_rec.configuration_information17 :=
517: pay_etm_shd.g_old_rec.configuration_information17;
513: pay_etm_shd.g_old_rec.configuration_information16;
514: End If;
515: If (p_rec.configuration_information17 = hr_api.g_varchar2) then
516: p_rec.configuration_information17 :=
517: pay_etm_shd.g_old_rec.configuration_information17;
518: End If;
519: If (p_rec.configuration_information18 = hr_api.g_varchar2) then
520: p_rec.configuration_information18 :=
521: pay_etm_shd.g_old_rec.configuration_information18;
517: pay_etm_shd.g_old_rec.configuration_information17;
518: End If;
519: If (p_rec.configuration_information18 = hr_api.g_varchar2) then
520: p_rec.configuration_information18 :=
521: pay_etm_shd.g_old_rec.configuration_information18;
522: End If;
523: If (p_rec.configuration_information19 = hr_api.g_varchar2) then
524: p_rec.configuration_information19 :=
525: pay_etm_shd.g_old_rec.configuration_information19;
521: pay_etm_shd.g_old_rec.configuration_information18;
522: End If;
523: If (p_rec.configuration_information19 = hr_api.g_varchar2) then
524: p_rec.configuration_information19 :=
525: pay_etm_shd.g_old_rec.configuration_information19;
526: End If;
527: If (p_rec.configuration_information20 = hr_api.g_varchar2) then
528: p_rec.configuration_information20 :=
529: pay_etm_shd.g_old_rec.configuration_information20;
525: pay_etm_shd.g_old_rec.configuration_information19;
526: End If;
527: If (p_rec.configuration_information20 = hr_api.g_varchar2) then
528: p_rec.configuration_information20 :=
529: pay_etm_shd.g_old_rec.configuration_information20;
530: End If;
531: If (p_rec.configuration_information21 = hr_api.g_varchar2) then
532: p_rec.configuration_information21 :=
533: pay_etm_shd.g_old_rec.configuration_information21;
529: pay_etm_shd.g_old_rec.configuration_information20;
530: End If;
531: If (p_rec.configuration_information21 = hr_api.g_varchar2) then
532: p_rec.configuration_information21 :=
533: pay_etm_shd.g_old_rec.configuration_information21;
534: End If;
535: If (p_rec.configuration_information22 = hr_api.g_varchar2) then
536: p_rec.configuration_information22 :=
537: pay_etm_shd.g_old_rec.configuration_information22;
533: pay_etm_shd.g_old_rec.configuration_information21;
534: End If;
535: If (p_rec.configuration_information22 = hr_api.g_varchar2) then
536: p_rec.configuration_information22 :=
537: pay_etm_shd.g_old_rec.configuration_information22;
538: End If;
539: If (p_rec.configuration_information23 = hr_api.g_varchar2) then
540: p_rec.configuration_information23 :=
541: pay_etm_shd.g_old_rec.configuration_information23;
537: pay_etm_shd.g_old_rec.configuration_information22;
538: End If;
539: If (p_rec.configuration_information23 = hr_api.g_varchar2) then
540: p_rec.configuration_information23 :=
541: pay_etm_shd.g_old_rec.configuration_information23;
542: End If;
543: If (p_rec.configuration_information24 = hr_api.g_varchar2) then
544: p_rec.configuration_information24 :=
545: pay_etm_shd.g_old_rec.configuration_information24;
541: pay_etm_shd.g_old_rec.configuration_information23;
542: End If;
543: If (p_rec.configuration_information24 = hr_api.g_varchar2) then
544: p_rec.configuration_information24 :=
545: pay_etm_shd.g_old_rec.configuration_information24;
546: End If;
547: If (p_rec.configuration_information25 = hr_api.g_varchar2) then
548: p_rec.configuration_information25 :=
549: pay_etm_shd.g_old_rec.configuration_information25;
545: pay_etm_shd.g_old_rec.configuration_information24;
546: End If;
547: If (p_rec.configuration_information25 = hr_api.g_varchar2) then
548: p_rec.configuration_information25 :=
549: pay_etm_shd.g_old_rec.configuration_information25;
550: End If;
551: If (p_rec.configuration_information26 = hr_api.g_varchar2) then
552: p_rec.configuration_information26 :=
553: pay_etm_shd.g_old_rec.configuration_information26;
549: pay_etm_shd.g_old_rec.configuration_information25;
550: End If;
551: If (p_rec.configuration_information26 = hr_api.g_varchar2) then
552: p_rec.configuration_information26 :=
553: pay_etm_shd.g_old_rec.configuration_information26;
554: End If;
555: If (p_rec.configuration_information27 = hr_api.g_varchar2) then
556: p_rec.configuration_information27 :=
557: pay_etm_shd.g_old_rec.configuration_information27;
553: pay_etm_shd.g_old_rec.configuration_information26;
554: End If;
555: If (p_rec.configuration_information27 = hr_api.g_varchar2) then
556: p_rec.configuration_information27 :=
557: pay_etm_shd.g_old_rec.configuration_information27;
558: End If;
559: If (p_rec.configuration_information28 = hr_api.g_varchar2) then
560: p_rec.configuration_information28 :=
561: pay_etm_shd.g_old_rec.configuration_information28;
557: pay_etm_shd.g_old_rec.configuration_information27;
558: End If;
559: If (p_rec.configuration_information28 = hr_api.g_varchar2) then
560: p_rec.configuration_information28 :=
561: pay_etm_shd.g_old_rec.configuration_information28;
562: End If;
563: If (p_rec.configuration_information29 = hr_api.g_varchar2) then
564: p_rec.configuration_information29 :=
565: pay_etm_shd.g_old_rec.configuration_information29;
561: pay_etm_shd.g_old_rec.configuration_information28;
562: End If;
563: If (p_rec.configuration_information29 = hr_api.g_varchar2) then
564: p_rec.configuration_information29 :=
565: pay_etm_shd.g_old_rec.configuration_information29;
566: End If;
567: If (p_rec.configuration_information30 = hr_api.g_varchar2) then
568: p_rec.configuration_information30 :=
569: pay_etm_shd.g_old_rec.configuration_information30;
565: pay_etm_shd.g_old_rec.configuration_information29;
566: End If;
567: If (p_rec.configuration_information30 = hr_api.g_varchar2) then
568: p_rec.configuration_information30 :=
569: pay_etm_shd.g_old_rec.configuration_information30;
570: End If;
571:
572: --
573: hr_utility.set_location(' Leaving:'||l_proc, 10);
578: -- |---------------------------------< upd >----------------------------------|
579: -- ----------------------------------------------------------------------------
580: Procedure upd
581: (p_effective_date in date
582: ,p_rec in out nocopy pay_etm_shd.g_rec_type
583: ) is
584: --
585: l_proc varchar2(72) := g_package||'upd';
586: --
588: hr_utility.set_location('Entering:'||l_proc, 5);
589: --
590: -- We must lock the row which we need to update.
591: --
592: pay_etm_shd.lck
593: (
594: p_rec.template_id,
595: p_rec.object_version_number
596: );
691: p_configuration_information30 in varchar2 default hr_api.g_varchar2,
692: p_object_version_number in out nocopy number
693: ) is
694: --
695: l_rec pay_etm_shd.g_rec_type;
696: l_proc varchar2(72) := g_package||'upd';
697: --
698: Begin
699: hr_utility.set_location('Entering:'||l_proc, 5);
701: -- Call conversion function to turn arguments into the
702: -- l_rec structure.
703: --
704: l_rec :=
705: pay_etm_shd.convert_args
706: (
707: p_template_id,
708: hr_api.g_varchar2,
709: hr_api.g_varchar2,