[Home] [Help]
53: --
54: -- {end Of Comments}
55: -- --------------------------------------------------------------------------
56: procedure update_dml
57: (p_rec in out nocopy hxc_tbb_shd.g_rec_type
58: ) is
59:
60: l_proc varchar2(72);
61:
106:
107: exception
108: when hr_api.check_integrity_violated then
109: -- a check constraint has been violated
110: hxc_tbb_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: hxc_tbb_shd.constraint_error
110: hxc_tbb_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: hxc_tbb_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: hxc_tbb_shd.constraint_error
114: hxc_tbb_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: hxc_tbb_shd.constraint_error
119: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
120: when others then
121: raise;
122:
154: --
155: -- {end Of Comments}
156: -- --------------------------------------------------------------------------
157: procedure pre_update
158: (p_rec in hxc_tbb_shd.g_rec_type
159: ) is
160:
161: l_proc varchar2(72);
162:
206: -- {end Of Comments}
207: -- --------------------------------------------------------------------------
208: procedure post_update
209: (p_effective_date in date
210: ,p_rec in hxc_tbb_shd.g_rec_type
211: ) is
212:
213: l_proc varchar2(72);
214:
255: => p_rec.application_set_id
256: ,p_translation_display_key
257: => p_rec.translation_display_key
258: ,p_type_o
259: => hxc_tbb_shd.g_old_rec.type
260: ,p_measure_o
261: => hxc_tbb_shd.g_old_rec.measure
262: ,p_unit_of_measure_o
263: => hxc_tbb_shd.g_old_rec.unit_of_measure
257: => p_rec.translation_display_key
258: ,p_type_o
259: => hxc_tbb_shd.g_old_rec.type
260: ,p_measure_o
261: => hxc_tbb_shd.g_old_rec.measure
262: ,p_unit_of_measure_o
263: => hxc_tbb_shd.g_old_rec.unit_of_measure
264: ,p_start_time_o
265: => hxc_tbb_shd.g_old_rec.start_time
259: => hxc_tbb_shd.g_old_rec.type
260: ,p_measure_o
261: => hxc_tbb_shd.g_old_rec.measure
262: ,p_unit_of_measure_o
263: => hxc_tbb_shd.g_old_rec.unit_of_measure
264: ,p_start_time_o
265: => hxc_tbb_shd.g_old_rec.start_time
266: ,p_stop_time_o
267: => hxc_tbb_shd.g_old_rec.stop_time
261: => hxc_tbb_shd.g_old_rec.measure
262: ,p_unit_of_measure_o
263: => hxc_tbb_shd.g_old_rec.unit_of_measure
264: ,p_start_time_o
265: => hxc_tbb_shd.g_old_rec.start_time
266: ,p_stop_time_o
267: => hxc_tbb_shd.g_old_rec.stop_time
268: ,p_parent_building_block_id_o
269: => hxc_tbb_shd.g_old_rec.parent_building_block_id
263: => hxc_tbb_shd.g_old_rec.unit_of_measure
264: ,p_start_time_o
265: => hxc_tbb_shd.g_old_rec.start_time
266: ,p_stop_time_o
267: => hxc_tbb_shd.g_old_rec.stop_time
268: ,p_parent_building_block_id_o
269: => hxc_tbb_shd.g_old_rec.parent_building_block_id
270: ,p_parent_building_block_ovn_o
271: => hxc_tbb_shd.g_old_rec.parent_building_block_ovn
265: => hxc_tbb_shd.g_old_rec.start_time
266: ,p_stop_time_o
267: => hxc_tbb_shd.g_old_rec.stop_time
268: ,p_parent_building_block_id_o
269: => hxc_tbb_shd.g_old_rec.parent_building_block_id
270: ,p_parent_building_block_ovn_o
271: => hxc_tbb_shd.g_old_rec.parent_building_block_ovn
272: ,p_scope_o
273: => hxc_tbb_shd.g_old_rec.scope
267: => hxc_tbb_shd.g_old_rec.stop_time
268: ,p_parent_building_block_id_o
269: => hxc_tbb_shd.g_old_rec.parent_building_block_id
270: ,p_parent_building_block_ovn_o
271: => hxc_tbb_shd.g_old_rec.parent_building_block_ovn
272: ,p_scope_o
273: => hxc_tbb_shd.g_old_rec.scope
274: ,p_object_version_number_o
275: => hxc_tbb_shd.g_old_rec.object_version_number
269: => hxc_tbb_shd.g_old_rec.parent_building_block_id
270: ,p_parent_building_block_ovn_o
271: => hxc_tbb_shd.g_old_rec.parent_building_block_ovn
272: ,p_scope_o
273: => hxc_tbb_shd.g_old_rec.scope
274: ,p_object_version_number_o
275: => hxc_tbb_shd.g_old_rec.object_version_number
276: ,p_approval_status_o
277: => hxc_tbb_shd.g_old_rec.approval_status
271: => hxc_tbb_shd.g_old_rec.parent_building_block_ovn
272: ,p_scope_o
273: => hxc_tbb_shd.g_old_rec.scope
274: ,p_object_version_number_o
275: => hxc_tbb_shd.g_old_rec.object_version_number
276: ,p_approval_status_o
277: => hxc_tbb_shd.g_old_rec.approval_status
278: ,p_resource_id_o
279: => hxc_tbb_shd.g_old_rec.resource_id
273: => hxc_tbb_shd.g_old_rec.scope
274: ,p_object_version_number_o
275: => hxc_tbb_shd.g_old_rec.object_version_number
276: ,p_approval_status_o
277: => hxc_tbb_shd.g_old_rec.approval_status
278: ,p_resource_id_o
279: => hxc_tbb_shd.g_old_rec.resource_id
280: ,p_resource_type_o
281: => hxc_tbb_shd.g_old_rec.resource_type
275: => hxc_tbb_shd.g_old_rec.object_version_number
276: ,p_approval_status_o
277: => hxc_tbb_shd.g_old_rec.approval_status
278: ,p_resource_id_o
279: => hxc_tbb_shd.g_old_rec.resource_id
280: ,p_resource_type_o
281: => hxc_tbb_shd.g_old_rec.resource_type
282: ,p_approval_style_id_o
283: => hxc_tbb_shd.g_old_rec.approval_style_id
277: => hxc_tbb_shd.g_old_rec.approval_status
278: ,p_resource_id_o
279: => hxc_tbb_shd.g_old_rec.resource_id
280: ,p_resource_type_o
281: => hxc_tbb_shd.g_old_rec.resource_type
282: ,p_approval_style_id_o
283: => hxc_tbb_shd.g_old_rec.approval_style_id
284: ,p_date_from_o
285: => hxc_tbb_shd.g_old_rec.date_from
279: => hxc_tbb_shd.g_old_rec.resource_id
280: ,p_resource_type_o
281: => hxc_tbb_shd.g_old_rec.resource_type
282: ,p_approval_style_id_o
283: => hxc_tbb_shd.g_old_rec.approval_style_id
284: ,p_date_from_o
285: => hxc_tbb_shd.g_old_rec.date_from
286: ,p_date_to_o
287: => hxc_tbb_shd.g_old_rec.date_to
281: => hxc_tbb_shd.g_old_rec.resource_type
282: ,p_approval_style_id_o
283: => hxc_tbb_shd.g_old_rec.approval_style_id
284: ,p_date_from_o
285: => hxc_tbb_shd.g_old_rec.date_from
286: ,p_date_to_o
287: => hxc_tbb_shd.g_old_rec.date_to
288: ,p_comment_text_o
289: => hxc_tbb_shd.g_old_rec.comment_text
283: => hxc_tbb_shd.g_old_rec.approval_style_id
284: ,p_date_from_o
285: => hxc_tbb_shd.g_old_rec.date_from
286: ,p_date_to_o
287: => hxc_tbb_shd.g_old_rec.date_to
288: ,p_comment_text_o
289: => hxc_tbb_shd.g_old_rec.comment_text
290: ,p_application_set_id_o
291: => hxc_tbb_shd.g_old_rec.application_set_id
285: => hxc_tbb_shd.g_old_rec.date_from
286: ,p_date_to_o
287: => hxc_tbb_shd.g_old_rec.date_to
288: ,p_comment_text_o
289: => hxc_tbb_shd.g_old_rec.comment_text
290: ,p_application_set_id_o
291: => hxc_tbb_shd.g_old_rec.application_set_id
292: ,p_translation_display_key_o
293: => hxc_tbb_shd.g_old_rec.translation_display_key
287: => hxc_tbb_shd.g_old_rec.date_to
288: ,p_comment_text_o
289: => hxc_tbb_shd.g_old_rec.comment_text
290: ,p_application_set_id_o
291: => hxc_tbb_shd.g_old_rec.application_set_id
292: ,p_translation_display_key_o
293: => hxc_tbb_shd.g_old_rec.translation_display_key
294: );
295:
289: => hxc_tbb_shd.g_old_rec.comment_text
290: ,p_application_set_id_o
291: => hxc_tbb_shd.g_old_rec.application_set_id
292: ,p_translation_display_key_o
293: => hxc_tbb_shd.g_old_rec.translation_display_key
294: );
295:
296: exception
297:
351: --
352: -- {end Of Comments}
353: -- --------------------------------------------------------------------------
354: procedure convert_defs
355: (p_rec in out nocopy hxc_tbb_shd.g_rec_type
356: ) is
357:
358: begin
359:
363: -- is being used then we must set to the 'current' argument value.
364:
365: if (p_rec.type = hr_api.g_varchar2) then
366: p_rec.type :=
367: hxc_tbb_shd.g_old_rec.type;
368: end if;
369:
370: if (p_rec.measure = hr_api.g_number) then
371: p_rec.measure :=
368: end if;
369:
370: if (p_rec.measure = hr_api.g_number) then
371: p_rec.measure :=
372: hxc_tbb_shd.g_old_rec.measure;
373: end if;
374:
375: if (p_rec.unit_of_measure = hr_api.g_varchar2) then
376: p_rec.unit_of_measure :=
373: end if;
374:
375: if (p_rec.unit_of_measure = hr_api.g_varchar2) then
376: p_rec.unit_of_measure :=
377: hxc_tbb_shd.g_old_rec.unit_of_measure;
378: end if;
379:
380: if (p_rec.start_time = hr_api.g_date) then
381: p_rec.start_time :=
378: end if;
379:
380: if (p_rec.start_time = hr_api.g_date) then
381: p_rec.start_time :=
382: hxc_tbb_shd.g_old_rec.start_time;
383: end if;
384:
385: if (p_rec.stop_time = hr_api.g_date) then
386: p_rec.stop_time :=
383: end if;
384:
385: if (p_rec.stop_time = hr_api.g_date) then
386: p_rec.stop_time :=
387: hxc_tbb_shd.g_old_rec.stop_time;
388: end if;
389:
390: if (p_rec.parent_building_block_id = hr_api.g_number) then
391: p_rec.parent_building_block_id :=
388: end if;
389:
390: if (p_rec.parent_building_block_id = hr_api.g_number) then
391: p_rec.parent_building_block_id :=
392: hxc_tbb_shd.g_old_rec.parent_building_block_id;
393: end if;
394:
395: if (p_rec.scope = hr_api.g_varchar2) then
396: p_rec.scope :=
393: end if;
394:
395: if (p_rec.scope = hr_api.g_varchar2) then
396: p_rec.scope :=
397: hxc_tbb_shd.g_old_rec.scope;
398: end if;
399:
400: if (p_rec.approval_status = hr_api.g_varchar2) then
401: p_rec.approval_status :=
398: end if;
399:
400: if (p_rec.approval_status = hr_api.g_varchar2) then
401: p_rec.approval_status :=
402: hxc_tbb_shd.g_old_rec.approval_status;
403: end if;
404:
405: if (p_rec.resource_id = hr_api.g_number) then
406: p_rec.resource_id :=
403: end if;
404:
405: if (p_rec.resource_id = hr_api.g_number) then
406: p_rec.resource_id :=
407: hxc_tbb_shd.g_old_rec.resource_id;
408: end if;
409:
410: if (p_rec.resource_type = hr_api.g_varchar2) then
411: p_rec.resource_type :=
408: end if;
409:
410: if (p_rec.resource_type = hr_api.g_varchar2) then
411: p_rec.resource_type :=
412: hxc_tbb_shd.g_old_rec.resource_type;
413: end if;
414:
415: if (p_rec.approval_style_id = hr_api.g_number) then
416: p_rec.approval_style_id :=
413: end if;
414:
415: if (p_rec.approval_style_id = hr_api.g_number) then
416: p_rec.approval_style_id :=
417: hxc_tbb_shd.g_old_rec.approval_style_id;
418: end if;
419:
420: if (p_rec.date_from = hr_api.g_date) then
421: p_rec.date_from :=
418: end if;
419:
420: if (p_rec.date_from = hr_api.g_date) then
421: p_rec.date_from :=
422: hxc_tbb_shd.g_old_rec.date_from;
423: end if;
424:
425: if (p_rec.date_to = hr_api.g_date) then
426: p_rec.date_to :=
423: end if;
424:
425: if (p_rec.date_to = hr_api.g_date) then
426: p_rec.date_to :=
427: hxc_tbb_shd.g_old_rec.date_to;
428: end if;
429:
430: if (p_rec.comment_text = hr_api.g_varchar2) then
431: p_rec.comment_text :=
428: end if;
429:
430: if (p_rec.comment_text = hr_api.g_varchar2) then
431: p_rec.comment_text :=
432: hxc_tbb_shd.g_old_rec.comment_text;
433: end if;
434:
435: if (p_rec.data_set_id = hr_api.g_number) then
436: p_rec.data_set_id :=
433: end if;
434:
435: if (p_rec.data_set_id = hr_api.g_number) then
436: p_rec.data_set_id :=
437: hxc_tbb_shd.g_old_rec.data_set_id;
438: end if;
439:
440:
441: end convert_defs;
444: -- |---------------------------------< upd >--------------------------------|
445: -- --------------------------------------------------------------------------
446: procedure upd
447: (p_effective_date in date
448: ,p_rec in out nocopy hxc_tbb_shd.g_rec_type
449: ) is
450:
451: l_proc varchar2(72);
452:
460: end if;
461:
462: -- we must lock the row which we need to update.
463:
464: hxc_tbb_shd.lck
465: (p_rec.time_building_block_id
466: ,p_rec.object_version_number
467: );
468:
517: ,p_data_set_id in number default hr_api.g_number
518: ,p_translation_display_key in varchar2 default hr_api.g_varchar2
519: ) is
520:
521: l_rec hxc_tbb_shd.g_rec_type;
522: l_proc varchar2(72);
523:
524: begin
525:
533: -- call conversion function to turn arguments into the
534: -- l_rec structure.
535:
536: l_rec :=
537: hxc_tbb_shd.convert_args
538: (p_time_building_block_id
539: ,hr_api.g_varchar2
540: ,p_measure
541: ,p_unit_of_measure