47: -- Internal Row Handler Use Only.
48: --
49: -- {End Of Comments}
50: -- ----------------------------------------------------------------------------
51: Procedure update_dml(p_rec in out nocopy pay_sbt_shd.g_rec_type) is
52: --
53: l_proc varchar2(72) := g_package||'update_dml';
54: --
55: Begin
106: --
107: Exception
108: When hr_api.check_integrity_violated Then
109: -- A check constraint has been violated
110: pay_sbt_shd.constraint_error
111: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
112: When hr_api.parent_integrity_violated Then
113: -- Parent integrity has been violated
114: pay_sbt_shd.constraint_error
110: pay_sbt_shd.constraint_error
111: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
112: When hr_api.parent_integrity_violated Then
113: -- Parent integrity has been violated
114: pay_sbt_shd.constraint_error
115: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
116: When hr_api.unique_integrity_violated Then
117: -- Unique integrity has been violated
118: pay_sbt_shd.constraint_error
114: pay_sbt_shd.constraint_error
115: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
116: When hr_api.unique_integrity_violated Then
117: -- Unique integrity has been violated
118: pay_sbt_shd.constraint_error
119: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
120: When Others Then
121: Raise;
122: End update_dml;
152: -- Internal Row Handler Use Only.
153: --
154: -- {End Of Comments}
155: -- ----------------------------------------------------------------------------
156: Procedure pre_update(p_rec in pay_sbt_shd.g_rec_type) is
157: --
158: l_proc varchar2(72) := g_package||'pre_update';
159: --
160: Begin
194: -- Internal Row Handler Use Only.
195: --
196: -- {End Of Comments}
197: -- ----------------------------------------------------------------------------
198: Procedure post_update(p_rec in pay_sbt_shd.g_rec_type) is
199: --
200: l_proc varchar2(72) := g_package||'post_update';
201: --
202: Begin
248: -- Internal Row Handler Use Only.
249: --
250: -- {End Of Comments}
251: -- ----------------------------------------------------------------------------
252: Procedure convert_defs(p_rec in out nocopy pay_sbt_shd.g_rec_type) is
253: --
254: l_proc varchar2(72) := g_package||'convert_defs';
255: --
256: Begin
263: -- is being used then we must set to the 'current' argument value.
264: --
265: If (p_rec.template_id = hr_api.g_number) then
266: p_rec.template_id :=
267: pay_sbt_shd.g_old_rec.template_id;
268: End If;
269: If (p_rec.assignment_remuneration_flag = hr_api.g_varchar2) then
270: p_rec.assignment_remuneration_flag :=
271: pay_sbt_shd.g_old_rec.assignment_remuneration_flag;
267: pay_sbt_shd.g_old_rec.template_id;
268: End If;
269: If (p_rec.assignment_remuneration_flag = hr_api.g_varchar2) then
270: p_rec.assignment_remuneration_flag :=
271: pay_sbt_shd.g_old_rec.assignment_remuneration_flag;
272: End If;
273: If (p_rec.balance_name = hr_api.g_varchar2) then
274: p_rec.balance_name :=
275: pay_sbt_shd.g_old_rec.balance_name;
271: pay_sbt_shd.g_old_rec.assignment_remuneration_flag;
272: End If;
273: If (p_rec.balance_name = hr_api.g_varchar2) then
274: p_rec.balance_name :=
275: pay_sbt_shd.g_old_rec.balance_name;
276: End If;
277: If (p_rec.balance_uom = hr_api.g_varchar2) then
278: p_rec.balance_uom :=
279: pay_sbt_shd.g_old_rec.balance_uom;
275: pay_sbt_shd.g_old_rec.balance_name;
276: End If;
277: If (p_rec.balance_uom = hr_api.g_varchar2) then
278: p_rec.balance_uom :=
279: pay_sbt_shd.g_old_rec.balance_uom;
280: End If;
281: If (p_rec.currency_code = hr_api.g_varchar2) then
282: p_rec.currency_code :=
283: pay_sbt_shd.g_old_rec.currency_code;
279: pay_sbt_shd.g_old_rec.balance_uom;
280: End If;
281: If (p_rec.currency_code = hr_api.g_varchar2) then
282: p_rec.currency_code :=
283: pay_sbt_shd.g_old_rec.currency_code;
284: End If;
285: If (p_rec.comments = hr_api.g_varchar2) then
286: p_rec.comments :=
287: pay_sbt_shd.g_old_rec.comments;
283: pay_sbt_shd.g_old_rec.currency_code;
284: End If;
285: If (p_rec.comments = hr_api.g_varchar2) then
286: p_rec.comments :=
287: pay_sbt_shd.g_old_rec.comments;
288: End If;
289: If (p_rec.reporting_name = hr_api.g_varchar2) then
290: p_rec.reporting_name :=
291: pay_sbt_shd.g_old_rec.reporting_name;
287: pay_sbt_shd.g_old_rec.comments;
288: End If;
289: If (p_rec.reporting_name = hr_api.g_varchar2) then
290: p_rec.reporting_name :=
291: pay_sbt_shd.g_old_rec.reporting_name;
292: End If;
293: If (p_rec.attribute_category = hr_api.g_varchar2) then
294: p_rec.attribute_category :=
295: pay_sbt_shd.g_old_rec.attribute_category;
291: pay_sbt_shd.g_old_rec.reporting_name;
292: End If;
293: If (p_rec.attribute_category = hr_api.g_varchar2) then
294: p_rec.attribute_category :=
295: pay_sbt_shd.g_old_rec.attribute_category;
296: End If;
297: If (p_rec.attribute1 = hr_api.g_varchar2) then
298: p_rec.attribute1 :=
299: pay_sbt_shd.g_old_rec.attribute1;
295: pay_sbt_shd.g_old_rec.attribute_category;
296: End If;
297: If (p_rec.attribute1 = hr_api.g_varchar2) then
298: p_rec.attribute1 :=
299: pay_sbt_shd.g_old_rec.attribute1;
300: End If;
301: If (p_rec.attribute2 = hr_api.g_varchar2) then
302: p_rec.attribute2 :=
303: pay_sbt_shd.g_old_rec.attribute2;
299: pay_sbt_shd.g_old_rec.attribute1;
300: End If;
301: If (p_rec.attribute2 = hr_api.g_varchar2) then
302: p_rec.attribute2 :=
303: pay_sbt_shd.g_old_rec.attribute2;
304: End If;
305: If (p_rec.attribute3 = hr_api.g_varchar2) then
306: p_rec.attribute3 :=
307: pay_sbt_shd.g_old_rec.attribute3;
303: pay_sbt_shd.g_old_rec.attribute2;
304: End If;
305: If (p_rec.attribute3 = hr_api.g_varchar2) then
306: p_rec.attribute3 :=
307: pay_sbt_shd.g_old_rec.attribute3;
308: End If;
309: If (p_rec.attribute4 = hr_api.g_varchar2) then
310: p_rec.attribute4 :=
311: pay_sbt_shd.g_old_rec.attribute4;
307: pay_sbt_shd.g_old_rec.attribute3;
308: End If;
309: If (p_rec.attribute4 = hr_api.g_varchar2) then
310: p_rec.attribute4 :=
311: pay_sbt_shd.g_old_rec.attribute4;
312: End If;
313: If (p_rec.attribute5 = hr_api.g_varchar2) then
314: p_rec.attribute5 :=
315: pay_sbt_shd.g_old_rec.attribute5;
311: pay_sbt_shd.g_old_rec.attribute4;
312: End If;
313: If (p_rec.attribute5 = hr_api.g_varchar2) then
314: p_rec.attribute5 :=
315: pay_sbt_shd.g_old_rec.attribute5;
316: End If;
317: If (p_rec.attribute6 = hr_api.g_varchar2) then
318: p_rec.attribute6 :=
319: pay_sbt_shd.g_old_rec.attribute6;
315: pay_sbt_shd.g_old_rec.attribute5;
316: End If;
317: If (p_rec.attribute6 = hr_api.g_varchar2) then
318: p_rec.attribute6 :=
319: pay_sbt_shd.g_old_rec.attribute6;
320: End If;
321: If (p_rec.attribute7 = hr_api.g_varchar2) then
322: p_rec.attribute7 :=
323: pay_sbt_shd.g_old_rec.attribute7;
319: pay_sbt_shd.g_old_rec.attribute6;
320: End If;
321: If (p_rec.attribute7 = hr_api.g_varchar2) then
322: p_rec.attribute7 :=
323: pay_sbt_shd.g_old_rec.attribute7;
324: End If;
325: If (p_rec.attribute8 = hr_api.g_varchar2) then
326: p_rec.attribute8 :=
327: pay_sbt_shd.g_old_rec.attribute8;
323: pay_sbt_shd.g_old_rec.attribute7;
324: End If;
325: If (p_rec.attribute8 = hr_api.g_varchar2) then
326: p_rec.attribute8 :=
327: pay_sbt_shd.g_old_rec.attribute8;
328: End If;
329: If (p_rec.attribute9 = hr_api.g_varchar2) then
330: p_rec.attribute9 :=
331: pay_sbt_shd.g_old_rec.attribute9;
327: pay_sbt_shd.g_old_rec.attribute8;
328: End If;
329: If (p_rec.attribute9 = hr_api.g_varchar2) then
330: p_rec.attribute9 :=
331: pay_sbt_shd.g_old_rec.attribute9;
332: End If;
333: If (p_rec.attribute10 = hr_api.g_varchar2) then
334: p_rec.attribute10 :=
335: pay_sbt_shd.g_old_rec.attribute10;
331: pay_sbt_shd.g_old_rec.attribute9;
332: End If;
333: If (p_rec.attribute10 = hr_api.g_varchar2) then
334: p_rec.attribute10 :=
335: pay_sbt_shd.g_old_rec.attribute10;
336: End If;
337: If (p_rec.attribute11 = hr_api.g_varchar2) then
338: p_rec.attribute11 :=
339: pay_sbt_shd.g_old_rec.attribute11;
335: pay_sbt_shd.g_old_rec.attribute10;
336: End If;
337: If (p_rec.attribute11 = hr_api.g_varchar2) then
338: p_rec.attribute11 :=
339: pay_sbt_shd.g_old_rec.attribute11;
340: End If;
341: If (p_rec.attribute12 = hr_api.g_varchar2) then
342: p_rec.attribute12 :=
343: pay_sbt_shd.g_old_rec.attribute12;
339: pay_sbt_shd.g_old_rec.attribute11;
340: End If;
341: If (p_rec.attribute12 = hr_api.g_varchar2) then
342: p_rec.attribute12 :=
343: pay_sbt_shd.g_old_rec.attribute12;
344: End If;
345: If (p_rec.attribute13 = hr_api.g_varchar2) then
346: p_rec.attribute13 :=
347: pay_sbt_shd.g_old_rec.attribute13;
343: pay_sbt_shd.g_old_rec.attribute12;
344: End If;
345: If (p_rec.attribute13 = hr_api.g_varchar2) then
346: p_rec.attribute13 :=
347: pay_sbt_shd.g_old_rec.attribute13;
348: End If;
349: If (p_rec.attribute14 = hr_api.g_varchar2) then
350: p_rec.attribute14 :=
351: pay_sbt_shd.g_old_rec.attribute14;
347: pay_sbt_shd.g_old_rec.attribute13;
348: End If;
349: If (p_rec.attribute14 = hr_api.g_varchar2) then
350: p_rec.attribute14 :=
351: pay_sbt_shd.g_old_rec.attribute14;
352: End If;
353: If (p_rec.attribute15 = hr_api.g_varchar2) then
354: p_rec.attribute15 :=
355: pay_sbt_shd.g_old_rec.attribute15;
351: pay_sbt_shd.g_old_rec.attribute14;
352: End If;
353: If (p_rec.attribute15 = hr_api.g_varchar2) then
354: p_rec.attribute15 :=
355: pay_sbt_shd.g_old_rec.attribute15;
356: End If;
357: If (p_rec.attribute16 = hr_api.g_varchar2) then
358: p_rec.attribute16 :=
359: pay_sbt_shd.g_old_rec.attribute16;
355: pay_sbt_shd.g_old_rec.attribute15;
356: End If;
357: If (p_rec.attribute16 = hr_api.g_varchar2) then
358: p_rec.attribute16 :=
359: pay_sbt_shd.g_old_rec.attribute16;
360: End If;
361: If (p_rec.attribute17 = hr_api.g_varchar2) then
362: p_rec.attribute17 :=
363: pay_sbt_shd.g_old_rec.attribute17;
359: pay_sbt_shd.g_old_rec.attribute16;
360: End If;
361: If (p_rec.attribute17 = hr_api.g_varchar2) then
362: p_rec.attribute17 :=
363: pay_sbt_shd.g_old_rec.attribute17;
364: End If;
365: If (p_rec.attribute18 = hr_api.g_varchar2) then
366: p_rec.attribute18 :=
367: pay_sbt_shd.g_old_rec.attribute18;
363: pay_sbt_shd.g_old_rec.attribute17;
364: End If;
365: If (p_rec.attribute18 = hr_api.g_varchar2) then
366: p_rec.attribute18 :=
367: pay_sbt_shd.g_old_rec.attribute18;
368: End If;
369: If (p_rec.attribute19 = hr_api.g_varchar2) then
370: p_rec.attribute19 :=
371: pay_sbt_shd.g_old_rec.attribute19;
367: pay_sbt_shd.g_old_rec.attribute18;
368: End If;
369: If (p_rec.attribute19 = hr_api.g_varchar2) then
370: p_rec.attribute19 :=
371: pay_sbt_shd.g_old_rec.attribute19;
372: End If;
373: If (p_rec.attribute20 = hr_api.g_varchar2) then
374: p_rec.attribute20 :=
375: pay_sbt_shd.g_old_rec.attribute20;
371: pay_sbt_shd.g_old_rec.attribute19;
372: End If;
373: If (p_rec.attribute20 = hr_api.g_varchar2) then
374: p_rec.attribute20 :=
375: pay_sbt_shd.g_old_rec.attribute20;
376: End If;
377: If (p_rec.jurisdiction_level = hr_api.g_number) then
378: p_rec.jurisdiction_level :=
379: pay_sbt_shd.g_old_rec.jurisdiction_level;
375: pay_sbt_shd.g_old_rec.attribute20;
376: End If;
377: If (p_rec.jurisdiction_level = hr_api.g_number) then
378: p_rec.jurisdiction_level :=
379: pay_sbt_shd.g_old_rec.jurisdiction_level;
380: End If;
381: If (p_rec.tax_type = hr_api.g_varchar2) then
382: p_rec.tax_type :=
383: pay_sbt_shd.g_old_rec.tax_type;
379: pay_sbt_shd.g_old_rec.jurisdiction_level;
380: End If;
381: If (p_rec.tax_type = hr_api.g_varchar2) then
382: p_rec.tax_type :=
383: pay_sbt_shd.g_old_rec.tax_type;
384: End If;
385: If (p_rec.exclusion_rule_id = hr_api.g_number) then
386: p_rec.exclusion_rule_id :=
387: pay_sbt_shd.g_old_rec.exclusion_rule_id;
383: pay_sbt_shd.g_old_rec.tax_type;
384: End If;
385: If (p_rec.exclusion_rule_id = hr_api.g_number) then
386: p_rec.exclusion_rule_id :=
387: pay_sbt_shd.g_old_rec.exclusion_rule_id;
388: End If;
389: If (p_rec.category_name = hr_api.g_varchar2) then
390: p_rec.category_name :=
391: pay_sbt_shd.g_old_rec.category_name;
387: pay_sbt_shd.g_old_rec.exclusion_rule_id;
388: End If;
389: If (p_rec.category_name = hr_api.g_varchar2) then
390: p_rec.category_name :=
391: pay_sbt_shd.g_old_rec.category_name;
392: End If;
393: If (p_rec.base_balance_type_id = hr_api.g_number) then
394: p_rec.base_balance_type_id :=
395: pay_sbt_shd.g_old_rec.base_balance_type_id;
391: pay_sbt_shd.g_old_rec.category_name;
392: End If;
393: If (p_rec.base_balance_type_id = hr_api.g_number) then
394: p_rec.base_balance_type_id :=
395: pay_sbt_shd.g_old_rec.base_balance_type_id;
396: End If;
397: If (p_rec.base_balance_name = hr_api.g_varchar2) then
398: p_rec.base_balance_name :=
399: pay_sbt_shd.g_old_rec.base_balance_name;
395: pay_sbt_shd.g_old_rec.base_balance_type_id;
396: End If;
397: If (p_rec.base_balance_name = hr_api.g_varchar2) then
398: p_rec.base_balance_name :=
399: pay_sbt_shd.g_old_rec.base_balance_name;
400: End If;
401: If (p_rec.input_value_id = hr_api.g_number) then
402: p_rec.input_value_id :=
403: pay_sbt_shd.g_old_rec.input_value_id;
399: pay_sbt_shd.g_old_rec.base_balance_name;
400: End If;
401: If (p_rec.input_value_id = hr_api.g_number) then
402: p_rec.input_value_id :=
403: pay_sbt_shd.g_old_rec.input_value_id;
404: End If;
405: --
406: hr_utility.set_location(' Leaving:'||l_proc, 10);
407: --
412: -- ----------------------------------------------------------------------------
413: Procedure upd
414: (
415: p_effective_date in date,
416: p_rec in out nocopy pay_sbt_shd.g_rec_type
417: ) is
418: --
419: l_proc varchar2(72) := g_package||'upd';
420: --
422: hr_utility.set_location('Entering:'||l_proc, 5);
423: --
424: -- We must lock the row which we need to update.
425: --
426: pay_sbt_shd.lck
427: (
428: p_rec.balance_type_id,
429: p_rec.object_version_number
430: );
494: p_input_value_id in number default hr_api.g_number,
495: p_object_version_number in out nocopy number
496: ) is
497: --
498: l_rec pay_sbt_shd.g_rec_type;
499: l_proc varchar2(72) := g_package||'upd';
500: --
501: Begin
502: hr_utility.set_location('Entering:'||l_proc, 5);
504: -- Call conversion function to turn arguments into the
505: -- l_rec structure.
506: --
507: l_rec :=
508: pay_sbt_shd.convert_args
509: (
510: p_balance_type_id,
511: hr_api.g_number,
512: p_assignment_remuneration_flag,