51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: Procedure update_dml
55: (p_rec in out nocopy pay_bld_shd.g_rec_type
56: ) is
57: --
58: l_proc varchar2(72) := g_package||'update_dml';
59: --
96: Exception
97: When hr_api.check_integrity_violated Then
98: -- A check constraint has been violated
99: --
100: pay_bld_shd.constraint_error
101: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
102: When hr_api.parent_integrity_violated Then
103: -- Parent integrity has been violated
104: --
101: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
102: When hr_api.parent_integrity_violated Then
103: -- Parent integrity has been violated
104: --
105: pay_bld_shd.constraint_error
106: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
107: When hr_api.unique_integrity_violated Then
108: -- Unique integrity has been violated
109: --
106: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
107: When hr_api.unique_integrity_violated Then
108: -- Unique integrity has been violated
109: --
110: pay_bld_shd.constraint_error
111: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
112: When Others Then
113: --
114: Raise;
146: --
147: -- {End Of Comments}
148: -- ----------------------------------------------------------------------------
149: Procedure pre_update
150: (p_rec in pay_bld_shd.g_rec_type
151: ) is
152: --
153: l_proc varchar2(72) := g_package||'pre_update';
154: --
190: --
191: -- {End Of Comments}
192: -- ----------------------------------------------------------------------------
193: Procedure post_update
194: (p_rec in pay_bld_shd.g_rec_type
195: ) is
196: --
197: l_proc varchar2(72) := g_package||'post_update';
198: --
241: => p_rec.save_run_balance_enabled
242: ,p_start_date_code
243: => p_rec.start_date_code
244: ,p_business_group_id_o
245: => pay_bld_shd.g_old_rec.business_group_id
246: ,p_legislation_code_o
247: => pay_bld_shd.g_old_rec.legislation_code
248: ,p_route_id_o
249: => pay_bld_shd.g_old_rec.route_id
243: => p_rec.start_date_code
244: ,p_business_group_id_o
245: => pay_bld_shd.g_old_rec.business_group_id
246: ,p_legislation_code_o
247: => pay_bld_shd.g_old_rec.legislation_code
248: ,p_route_id_o
249: => pay_bld_shd.g_old_rec.route_id
250: ,p_database_item_suffix_o
251: => pay_bld_shd.g_old_rec.database_item_suffix
245: => pay_bld_shd.g_old_rec.business_group_id
246: ,p_legislation_code_o
247: => pay_bld_shd.g_old_rec.legislation_code
248: ,p_route_id_o
249: => pay_bld_shd.g_old_rec.route_id
250: ,p_database_item_suffix_o
251: => pay_bld_shd.g_old_rec.database_item_suffix
252: ,p_dimension_name_o
253: => pay_bld_shd.g_old_rec.dimension_name
247: => pay_bld_shd.g_old_rec.legislation_code
248: ,p_route_id_o
249: => pay_bld_shd.g_old_rec.route_id
250: ,p_database_item_suffix_o
251: => pay_bld_shd.g_old_rec.database_item_suffix
252: ,p_dimension_name_o
253: => pay_bld_shd.g_old_rec.dimension_name
254: ,p_dimension_type_o
255: => pay_bld_shd.g_old_rec.dimension_type
249: => pay_bld_shd.g_old_rec.route_id
250: ,p_database_item_suffix_o
251: => pay_bld_shd.g_old_rec.database_item_suffix
252: ,p_dimension_name_o
253: => pay_bld_shd.g_old_rec.dimension_name
254: ,p_dimension_type_o
255: => pay_bld_shd.g_old_rec.dimension_type
256: ,p_description_o
257: => pay_bld_shd.g_old_rec.description
251: => pay_bld_shd.g_old_rec.database_item_suffix
252: ,p_dimension_name_o
253: => pay_bld_shd.g_old_rec.dimension_name
254: ,p_dimension_type_o
255: => pay_bld_shd.g_old_rec.dimension_type
256: ,p_description_o
257: => pay_bld_shd.g_old_rec.description
258: ,p_feed_checking_code_o
259: => pay_bld_shd.g_old_rec.feed_checking_code
253: => pay_bld_shd.g_old_rec.dimension_name
254: ,p_dimension_type_o
255: => pay_bld_shd.g_old_rec.dimension_type
256: ,p_description_o
257: => pay_bld_shd.g_old_rec.description
258: ,p_feed_checking_code_o
259: => pay_bld_shd.g_old_rec.feed_checking_code
260: ,p_legislation_subgroup_o
261: => pay_bld_shd.g_old_rec.legislation_subgroup
255: => pay_bld_shd.g_old_rec.dimension_type
256: ,p_description_o
257: => pay_bld_shd.g_old_rec.description
258: ,p_feed_checking_code_o
259: => pay_bld_shd.g_old_rec.feed_checking_code
260: ,p_legislation_subgroup_o
261: => pay_bld_shd.g_old_rec.legislation_subgroup
262: ,p_payments_flag_o
263: => pay_bld_shd.g_old_rec.payments_flag
257: => pay_bld_shd.g_old_rec.description
258: ,p_feed_checking_code_o
259: => pay_bld_shd.g_old_rec.feed_checking_code
260: ,p_legislation_subgroup_o
261: => pay_bld_shd.g_old_rec.legislation_subgroup
262: ,p_payments_flag_o
263: => pay_bld_shd.g_old_rec.payments_flag
264: ,p_expiry_checking_code_o
265: => pay_bld_shd.g_old_rec.expiry_checking_code
259: => pay_bld_shd.g_old_rec.feed_checking_code
260: ,p_legislation_subgroup_o
261: => pay_bld_shd.g_old_rec.legislation_subgroup
262: ,p_payments_flag_o
263: => pay_bld_shd.g_old_rec.payments_flag
264: ,p_expiry_checking_code_o
265: => pay_bld_shd.g_old_rec.expiry_checking_code
266: ,p_expiry_checking_level_o
267: => pay_bld_shd.g_old_rec.expiry_checking_level
261: => pay_bld_shd.g_old_rec.legislation_subgroup
262: ,p_payments_flag_o
263: => pay_bld_shd.g_old_rec.payments_flag
264: ,p_expiry_checking_code_o
265: => pay_bld_shd.g_old_rec.expiry_checking_code
266: ,p_expiry_checking_level_o
267: => pay_bld_shd.g_old_rec.expiry_checking_level
268: ,p_feed_checking_type_o
269: => pay_bld_shd.g_old_rec.feed_checking_type
263: => pay_bld_shd.g_old_rec.payments_flag
264: ,p_expiry_checking_code_o
265: => pay_bld_shd.g_old_rec.expiry_checking_code
266: ,p_expiry_checking_level_o
267: => pay_bld_shd.g_old_rec.expiry_checking_level
268: ,p_feed_checking_type_o
269: => pay_bld_shd.g_old_rec.feed_checking_type
270: ,p_dimension_level_o
271: => pay_bld_shd.g_old_rec.dimension_level
265: => pay_bld_shd.g_old_rec.expiry_checking_code
266: ,p_expiry_checking_level_o
267: => pay_bld_shd.g_old_rec.expiry_checking_level
268: ,p_feed_checking_type_o
269: => pay_bld_shd.g_old_rec.feed_checking_type
270: ,p_dimension_level_o
271: => pay_bld_shd.g_old_rec.dimension_level
272: ,p_period_type_o
273: => pay_bld_shd.g_old_rec.period_type
267: => pay_bld_shd.g_old_rec.expiry_checking_level
268: ,p_feed_checking_type_o
269: => pay_bld_shd.g_old_rec.feed_checking_type
270: ,p_dimension_level_o
271: => pay_bld_shd.g_old_rec.dimension_level
272: ,p_period_type_o
273: => pay_bld_shd.g_old_rec.period_type
274: ,p_asg_action_balance_dim_id_o
275: => pay_bld_shd.g_old_rec.asg_action_balance_dim_id
269: => pay_bld_shd.g_old_rec.feed_checking_type
270: ,p_dimension_level_o
271: => pay_bld_shd.g_old_rec.dimension_level
272: ,p_period_type_o
273: => pay_bld_shd.g_old_rec.period_type
274: ,p_asg_action_balance_dim_id_o
275: => pay_bld_shd.g_old_rec.asg_action_balance_dim_id
276: ,p_database_item_function_o
277: => pay_bld_shd.g_old_rec.database_item_function
271: => pay_bld_shd.g_old_rec.dimension_level
272: ,p_period_type_o
273: => pay_bld_shd.g_old_rec.period_type
274: ,p_asg_action_balance_dim_id_o
275: => pay_bld_shd.g_old_rec.asg_action_balance_dim_id
276: ,p_database_item_function_o
277: => pay_bld_shd.g_old_rec.database_item_function
278: ,p_save_run_balance_enabled_o
279: => pay_bld_shd.g_old_rec.save_run_balance_enabled
273: => pay_bld_shd.g_old_rec.period_type
274: ,p_asg_action_balance_dim_id_o
275: => pay_bld_shd.g_old_rec.asg_action_balance_dim_id
276: ,p_database_item_function_o
277: => pay_bld_shd.g_old_rec.database_item_function
278: ,p_save_run_balance_enabled_o
279: => pay_bld_shd.g_old_rec.save_run_balance_enabled
280: ,p_start_date_code_o
281: => pay_bld_shd.g_old_rec.start_date_code
275: => pay_bld_shd.g_old_rec.asg_action_balance_dim_id
276: ,p_database_item_function_o
277: => pay_bld_shd.g_old_rec.database_item_function
278: ,p_save_run_balance_enabled_o
279: => pay_bld_shd.g_old_rec.save_run_balance_enabled
280: ,p_start_date_code_o
281: => pay_bld_shd.g_old_rec.start_date_code
282: );
283: --
277: => pay_bld_shd.g_old_rec.database_item_function
278: ,p_save_run_balance_enabled_o
279: => pay_bld_shd.g_old_rec.save_run_balance_enabled
280: ,p_start_date_code_o
281: => pay_bld_shd.g_old_rec.start_date_code
282: );
283: --
284: exception
285: --
337: --
338: -- {End Of Comments}
339: -- ----------------------------------------------------------------------------
340: Procedure convert_defs
341: (p_rec in out nocopy pay_bld_shd.g_rec_type
342: ) is
343: --
344: Begin
345: --
349: -- is being used then we must set to the 'current' argument value.
350: --
351: If (p_rec.business_group_id = hr_api.g_number) then
352: p_rec.business_group_id :=
353: pay_bld_shd.g_old_rec.business_group_id;
354: End If;
355: If (p_rec.legislation_code = hr_api.g_varchar2) then
356: p_rec.legislation_code :=
357: pay_bld_shd.g_old_rec.legislation_code;
353: pay_bld_shd.g_old_rec.business_group_id;
354: End If;
355: If (p_rec.legislation_code = hr_api.g_varchar2) then
356: p_rec.legislation_code :=
357: pay_bld_shd.g_old_rec.legislation_code;
358: End If;
359: If (p_rec.route_id = hr_api.g_number) then
360: p_rec.route_id :=
361: pay_bld_shd.g_old_rec.route_id;
357: pay_bld_shd.g_old_rec.legislation_code;
358: End If;
359: If (p_rec.route_id = hr_api.g_number) then
360: p_rec.route_id :=
361: pay_bld_shd.g_old_rec.route_id;
362: End If;
363: If (p_rec.database_item_suffix = hr_api.g_varchar2) then
364: p_rec.database_item_suffix :=
365: pay_bld_shd.g_old_rec.database_item_suffix;
361: pay_bld_shd.g_old_rec.route_id;
362: End If;
363: If (p_rec.database_item_suffix = hr_api.g_varchar2) then
364: p_rec.database_item_suffix :=
365: pay_bld_shd.g_old_rec.database_item_suffix;
366: End If;
367: If (p_rec.dimension_name = hr_api.g_varchar2) then
368: p_rec.dimension_name :=
369: pay_bld_shd.g_old_rec.dimension_name;
365: pay_bld_shd.g_old_rec.database_item_suffix;
366: End If;
367: If (p_rec.dimension_name = hr_api.g_varchar2) then
368: p_rec.dimension_name :=
369: pay_bld_shd.g_old_rec.dimension_name;
370: End If;
371: If (p_rec.dimension_type = hr_api.g_varchar2) then
372: p_rec.dimension_type :=
373: pay_bld_shd.g_old_rec.dimension_type;
369: pay_bld_shd.g_old_rec.dimension_name;
370: End If;
371: If (p_rec.dimension_type = hr_api.g_varchar2) then
372: p_rec.dimension_type :=
373: pay_bld_shd.g_old_rec.dimension_type;
374: End If;
375: If (p_rec.description = hr_api.g_varchar2) then
376: p_rec.description :=
377: pay_bld_shd.g_old_rec.description;
373: pay_bld_shd.g_old_rec.dimension_type;
374: End If;
375: If (p_rec.description = hr_api.g_varchar2) then
376: p_rec.description :=
377: pay_bld_shd.g_old_rec.description;
378: End If;
379: If (p_rec.feed_checking_code = hr_api.g_varchar2) then
380: p_rec.feed_checking_code :=
381: pay_bld_shd.g_old_rec.feed_checking_code;
377: pay_bld_shd.g_old_rec.description;
378: End If;
379: If (p_rec.feed_checking_code = hr_api.g_varchar2) then
380: p_rec.feed_checking_code :=
381: pay_bld_shd.g_old_rec.feed_checking_code;
382: End If;
383: If (p_rec.legislation_subgroup = hr_api.g_varchar2) then
384: p_rec.legislation_subgroup :=
385: pay_bld_shd.g_old_rec.legislation_subgroup;
381: pay_bld_shd.g_old_rec.feed_checking_code;
382: End If;
383: If (p_rec.legislation_subgroup = hr_api.g_varchar2) then
384: p_rec.legislation_subgroup :=
385: pay_bld_shd.g_old_rec.legislation_subgroup;
386: End If;
387: If (p_rec.payments_flag = hr_api.g_varchar2) then
388: p_rec.payments_flag :=
389: pay_bld_shd.g_old_rec.payments_flag;
385: pay_bld_shd.g_old_rec.legislation_subgroup;
386: End If;
387: If (p_rec.payments_flag = hr_api.g_varchar2) then
388: p_rec.payments_flag :=
389: pay_bld_shd.g_old_rec.payments_flag;
390: End If;
391: If (p_rec.expiry_checking_code = hr_api.g_varchar2) then
392: p_rec.expiry_checking_code :=
393: pay_bld_shd.g_old_rec.expiry_checking_code;
389: pay_bld_shd.g_old_rec.payments_flag;
390: End If;
391: If (p_rec.expiry_checking_code = hr_api.g_varchar2) then
392: p_rec.expiry_checking_code :=
393: pay_bld_shd.g_old_rec.expiry_checking_code;
394: End If;
395: If (p_rec.expiry_checking_level = hr_api.g_varchar2) then
396: p_rec.expiry_checking_level :=
397: pay_bld_shd.g_old_rec.expiry_checking_level;
393: pay_bld_shd.g_old_rec.expiry_checking_code;
394: End If;
395: If (p_rec.expiry_checking_level = hr_api.g_varchar2) then
396: p_rec.expiry_checking_level :=
397: pay_bld_shd.g_old_rec.expiry_checking_level;
398: End If;
399: If (p_rec.feed_checking_type = hr_api.g_varchar2) then
400: p_rec.feed_checking_type :=
401: pay_bld_shd.g_old_rec.feed_checking_type;
397: pay_bld_shd.g_old_rec.expiry_checking_level;
398: End If;
399: If (p_rec.feed_checking_type = hr_api.g_varchar2) then
400: p_rec.feed_checking_type :=
401: pay_bld_shd.g_old_rec.feed_checking_type;
402: End If;
403: If (p_rec.dimension_level = hr_api.g_varchar2) then
404: p_rec.dimension_level :=
405: pay_bld_shd.g_old_rec.dimension_level;
401: pay_bld_shd.g_old_rec.feed_checking_type;
402: End If;
403: If (p_rec.dimension_level = hr_api.g_varchar2) then
404: p_rec.dimension_level :=
405: pay_bld_shd.g_old_rec.dimension_level;
406: End If;
407: If (p_rec.period_type = hr_api.g_varchar2) then
408: p_rec.period_type :=
409: pay_bld_shd.g_old_rec.period_type;
405: pay_bld_shd.g_old_rec.dimension_level;
406: End If;
407: If (p_rec.period_type = hr_api.g_varchar2) then
408: p_rec.period_type :=
409: pay_bld_shd.g_old_rec.period_type;
410: End If;
411: If (p_rec.asg_action_balance_dim_id = hr_api.g_number) then
412: p_rec.asg_action_balance_dim_id :=
413: pay_bld_shd.g_old_rec.asg_action_balance_dim_id;
409: pay_bld_shd.g_old_rec.period_type;
410: End If;
411: If (p_rec.asg_action_balance_dim_id = hr_api.g_number) then
412: p_rec.asg_action_balance_dim_id :=
413: pay_bld_shd.g_old_rec.asg_action_balance_dim_id;
414: End If;
415: If (p_rec.database_item_function = hr_api.g_varchar2) then
416: p_rec.database_item_function :=
417: pay_bld_shd.g_old_rec.database_item_function;
413: pay_bld_shd.g_old_rec.asg_action_balance_dim_id;
414: End If;
415: If (p_rec.database_item_function = hr_api.g_varchar2) then
416: p_rec.database_item_function :=
417: pay_bld_shd.g_old_rec.database_item_function;
418: End If;
419: If (p_rec.save_run_balance_enabled = hr_api.g_varchar2) then
420: p_rec.save_run_balance_enabled :=
421: pay_bld_shd.g_old_rec.save_run_balance_enabled;
417: pay_bld_shd.g_old_rec.database_item_function;
418: End If;
419: If (p_rec.save_run_balance_enabled = hr_api.g_varchar2) then
420: p_rec.save_run_balance_enabled :=
421: pay_bld_shd.g_old_rec.save_run_balance_enabled;
422: End If;
423: If (p_rec.start_date_code = hr_api.g_varchar2) then
424: p_rec.start_date_code :=
425: pay_bld_shd.g_old_rec.start_date_code;
421: pay_bld_shd.g_old_rec.save_run_balance_enabled;
422: End If;
423: If (p_rec.start_date_code = hr_api.g_varchar2) then
424: p_rec.start_date_code :=
425: pay_bld_shd.g_old_rec.start_date_code;
426: End If;
427: --
428: End convert_defs;
429: --
430: -- ----------------------------------------------------------------------------
431: -- |---------------------------------< upd >----------------------------------|
432: -- ----------------------------------------------------------------------------
433: Procedure upd
434: (p_rec in out nocopy pay_bld_shd.g_rec_type
435: ) is
436: --
437: l_proc varchar2(72) := g_package||'upd';
438: --
440: hr_utility.set_location('Entering:'||l_proc, 5);
441: --
442: -- We must lock the row which we need to update.
443: --
444: pay_bld_shd.lck
445: (p_rec.balance_dimension_id
446: );
447: --
448: -- 1. During an update system defaults are used to determine if
502: ,p_save_run_balance_enabled in varchar2 default hr_api.g_varchar2
503: ,p_start_date_code in varchar2 default hr_api.g_varchar2
504: ) is
505: --
506: l_rec pay_bld_shd.g_rec_type;
507: l_proc varchar2(72) := g_package||'upd';
508: --
509: Begin
510: hr_utility.set_location('Entering:'||l_proc, 5);
512: -- Call conversion function to turn arguments into the
513: -- l_rec structure.
514: --
515: l_rec :=
516: pay_bld_shd.convert_args
517: (p_balance_dimension_id
518: ,p_business_group_id
519: ,p_legislation_code
520: ,p_route_id