[Home] [Help]
52: --
53: -- {End Of Comments}
54: -- ----------------------------------------------------------------------------
55: Procedure update_dml
56: (p_rec in out nocopy hxc_hac_shd.g_rec_type
57: ) is
58: --
59: l_proc varchar2(72);
60: --
66: --
67: -- Increment the object version
68: p_rec.object_version_number := p_rec.object_version_number + 1;
69: --
70: hxc_hac_shd.g_api_dml := true; -- Set the api dml status
71: --
72: -- Update the hxc_approval_comps Row
73: --
74: update hxc_approval_comps
108: END IF;
109:
110:
111: --
112: hxc_hac_shd.g_api_dml := false; -- Unset the api dml status
113: --
114: if g_debug then
115: hr_utility.set_location(' Leaving:'||l_proc, 10);
116: end if;
117: --
118: Exception
119: When hr_api.check_integrity_violated Then
120: -- A check constraint has been violated
121: hxc_hac_shd.g_api_dml := false; -- Unset the api dml status
122: hxc_hac_shd.constraint_error
123: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
124: When hr_api.parent_integrity_violated Then
125: -- Parent integrity has been violated
118: Exception
119: When hr_api.check_integrity_violated Then
120: -- A check constraint has been violated
121: hxc_hac_shd.g_api_dml := false; -- Unset the api dml status
122: hxc_hac_shd.constraint_error
123: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
124: When hr_api.parent_integrity_violated Then
125: -- Parent integrity has been violated
126: hxc_hac_shd.g_api_dml := false; -- Unset the api dml status
122: hxc_hac_shd.constraint_error
123: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
124: When hr_api.parent_integrity_violated Then
125: -- Parent integrity has been violated
126: hxc_hac_shd.g_api_dml := false; -- Unset the api dml status
127: hxc_hac_shd.constraint_error
128: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
129: When hr_api.unique_integrity_violated Then
130: -- Unique integrity has been violated
123: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
124: When hr_api.parent_integrity_violated Then
125: -- Parent integrity has been violated
126: hxc_hac_shd.g_api_dml := false; -- Unset the api dml status
127: hxc_hac_shd.constraint_error
128: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
129: When hr_api.unique_integrity_violated Then
130: -- Unique integrity has been violated
131: hxc_hac_shd.g_api_dml := false; -- Unset the api dml status
127: hxc_hac_shd.constraint_error
128: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
129: When hr_api.unique_integrity_violated Then
130: -- Unique integrity has been violated
131: hxc_hac_shd.g_api_dml := false; -- Unset the api dml status
132: hxc_hac_shd.constraint_error
133: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
134: When Others Then
135: hxc_hac_shd.g_api_dml := false; -- Unset the api dml status
128: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
129: When hr_api.unique_integrity_violated Then
130: -- Unique integrity has been violated
131: hxc_hac_shd.g_api_dml := false; -- Unset the api dml status
132: hxc_hac_shd.constraint_error
133: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
134: When Others Then
135: hxc_hac_shd.g_api_dml := false; -- Unset the api dml status
136: Raise;
131: hxc_hac_shd.g_api_dml := false; -- Unset the api dml status
132: hxc_hac_shd.constraint_error
133: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
134: When Others Then
135: hxc_hac_shd.g_api_dml := false; -- Unset the api dml status
136: Raise;
137: End update_dml;
138: --
139: -- ----------------------------------------------------------------------------
168: --
169: -- {End Of Comments}
170: -- ----------------------------------------------------------------------------
171: Procedure pre_update
172: (p_rec in hxc_hac_shd.g_rec_type
173: ) is
174: --
175: l_proc varchar2(72);
176: --
216: -- {End Of Comments}
217: -- ----------------------------------------------------------------------------
218: Procedure post_update
219: (p_effective_date in date
220: ,p_rec in hxc_hac_shd.g_rec_type
221: ) is
222: --
223: l_proc varchar2(72);
224: --
232: update hxc_app_comp_notif_usages
233: set
234: approval_comp_ovn=p_rec.object_version_number where
235: approval_comp_id=p_rec.approval_comp_id and
236: approval_comp_ovn=hxc_hac_shd.g_old_rec.object_version_number;
237:
238:
239: hxc_hac_rku.after_update
240: (p_effective_date => p_effective_date
267: ,p_parent_comp_ovn
268: => p_rec.parent_comp_ovn
269: ,p_run_recipient_extensions =>p_rec.run_recipient_extensions
270: ,p_approval_style_id_o
271: => hxc_hac_shd.g_old_rec.approval_style_id
272: ,p_time_recipient_id_o
273: => hxc_hac_shd.g_old_rec.time_recipient_id
274: ,p_approval_mechanism_o
275: => hxc_hac_shd.g_old_rec.approval_mechanism
269: ,p_run_recipient_extensions =>p_rec.run_recipient_extensions
270: ,p_approval_style_id_o
271: => hxc_hac_shd.g_old_rec.approval_style_id
272: ,p_time_recipient_id_o
273: => hxc_hac_shd.g_old_rec.time_recipient_id
274: ,p_approval_mechanism_o
275: => hxc_hac_shd.g_old_rec.approval_mechanism
276: ,p_approval_mechanism_id_o
277: => hxc_hac_shd.g_old_rec.approval_mechanism_id
271: => hxc_hac_shd.g_old_rec.approval_style_id
272: ,p_time_recipient_id_o
273: => hxc_hac_shd.g_old_rec.time_recipient_id
274: ,p_approval_mechanism_o
275: => hxc_hac_shd.g_old_rec.approval_mechanism
276: ,p_approval_mechanism_id_o
277: => hxc_hac_shd.g_old_rec.approval_mechanism_id
278: ,p_wf_item_type_o
279: => hxc_hac_shd.g_old_rec.wf_item_type
273: => hxc_hac_shd.g_old_rec.time_recipient_id
274: ,p_approval_mechanism_o
275: => hxc_hac_shd.g_old_rec.approval_mechanism
276: ,p_approval_mechanism_id_o
277: => hxc_hac_shd.g_old_rec.approval_mechanism_id
278: ,p_wf_item_type_o
279: => hxc_hac_shd.g_old_rec.wf_item_type
280: ,p_wf_name_o
281: => hxc_hac_shd.g_old_rec.wf_name
275: => hxc_hac_shd.g_old_rec.approval_mechanism
276: ,p_approval_mechanism_id_o
277: => hxc_hac_shd.g_old_rec.approval_mechanism_id
278: ,p_wf_item_type_o
279: => hxc_hac_shd.g_old_rec.wf_item_type
280: ,p_wf_name_o
281: => hxc_hac_shd.g_old_rec.wf_name
282: ,p_start_date_o
283: => hxc_hac_shd.g_old_rec.start_date
277: => hxc_hac_shd.g_old_rec.approval_mechanism_id
278: ,p_wf_item_type_o
279: => hxc_hac_shd.g_old_rec.wf_item_type
280: ,p_wf_name_o
281: => hxc_hac_shd.g_old_rec.wf_name
282: ,p_start_date_o
283: => hxc_hac_shd.g_old_rec.start_date
284: ,p_end_date_o
285: => hxc_hac_shd.g_old_rec.end_date
279: => hxc_hac_shd.g_old_rec.wf_item_type
280: ,p_wf_name_o
281: => hxc_hac_shd.g_old_rec.wf_name
282: ,p_start_date_o
283: => hxc_hac_shd.g_old_rec.start_date
284: ,p_end_date_o
285: => hxc_hac_shd.g_old_rec.end_date
286: ,p_object_version_number_o
287: => hxc_hac_shd.g_old_rec.object_version_number
281: => hxc_hac_shd.g_old_rec.wf_name
282: ,p_start_date_o
283: => hxc_hac_shd.g_old_rec.start_date
284: ,p_end_date_o
285: => hxc_hac_shd.g_old_rec.end_date
286: ,p_object_version_number_o
287: => hxc_hac_shd.g_old_rec.object_version_number
288: ,p_approval_order_o
289: => hxc_hac_shd.g_old_rec.approval_order
283: => hxc_hac_shd.g_old_rec.start_date
284: ,p_end_date_o
285: => hxc_hac_shd.g_old_rec.end_date
286: ,p_object_version_number_o
287: => hxc_hac_shd.g_old_rec.object_version_number
288: ,p_approval_order_o
289: => hxc_hac_shd.g_old_rec.approval_order
290: ,p_time_category_id_o
291: => hxc_hac_shd.g_old_rec.time_category_id
285: => hxc_hac_shd.g_old_rec.end_date
286: ,p_object_version_number_o
287: => hxc_hac_shd.g_old_rec.object_version_number
288: ,p_approval_order_o
289: => hxc_hac_shd.g_old_rec.approval_order
290: ,p_time_category_id_o
291: => hxc_hac_shd.g_old_rec.time_category_id
292: ,p_parent_comp_id_o
293: => hxc_hac_shd.g_old_rec.parent_comp_id
287: => hxc_hac_shd.g_old_rec.object_version_number
288: ,p_approval_order_o
289: => hxc_hac_shd.g_old_rec.approval_order
290: ,p_time_category_id_o
291: => hxc_hac_shd.g_old_rec.time_category_id
292: ,p_parent_comp_id_o
293: => hxc_hac_shd.g_old_rec.parent_comp_id
294: ,p_parent_comp_ovn_o
295: => hxc_hac_shd.g_old_rec.parent_comp_ovn
289: => hxc_hac_shd.g_old_rec.approval_order
290: ,p_time_category_id_o
291: => hxc_hac_shd.g_old_rec.time_category_id
292: ,p_parent_comp_id_o
293: => hxc_hac_shd.g_old_rec.parent_comp_id
294: ,p_parent_comp_ovn_o
295: => hxc_hac_shd.g_old_rec.parent_comp_ovn
296: ,p_run_recipient_extensions_o =>hxc_hac_shd.g_old_rec.run_recipient_extensions
297:
291: => hxc_hac_shd.g_old_rec.time_category_id
292: ,p_parent_comp_id_o
293: => hxc_hac_shd.g_old_rec.parent_comp_id
294: ,p_parent_comp_ovn_o
295: => hxc_hac_shd.g_old_rec.parent_comp_ovn
296: ,p_run_recipient_extensions_o =>hxc_hac_shd.g_old_rec.run_recipient_extensions
297:
298: );
299: --
292: ,p_parent_comp_id_o
293: => hxc_hac_shd.g_old_rec.parent_comp_id
294: ,p_parent_comp_ovn_o
295: => hxc_hac_shd.g_old_rec.parent_comp_ovn
296: ,p_run_recipient_extensions_o =>hxc_hac_shd.g_old_rec.run_recipient_extensions
297:
298: );
299: --
300: exception
355: --
356: -- {End Of Comments}
357: -- ----------------------------------------------------------------------------
358: Procedure convert_defs
359: (p_rec in out nocopy hxc_hac_shd.g_rec_type
360: ) is
361: --
362: Begin
363: --
367: -- is being used then we must set to the 'current' argument value.
368: --
369: If (p_rec.approval_style_id = hr_api.g_number) then
370: p_rec.approval_style_id :=
371: hxc_hac_shd.g_old_rec.approval_style_id;
372: End If;
373: If (p_rec.time_recipient_id = hr_api.g_number) then
374: p_rec.time_recipient_id :=
375: hxc_hac_shd.g_old_rec.time_recipient_id;
371: hxc_hac_shd.g_old_rec.approval_style_id;
372: End If;
373: If (p_rec.time_recipient_id = hr_api.g_number) then
374: p_rec.time_recipient_id :=
375: hxc_hac_shd.g_old_rec.time_recipient_id;
376: End If;
377: If (p_rec.approval_mechanism = hr_api.g_varchar2) then
378: p_rec.approval_mechanism :=
379: hxc_hac_shd.g_old_rec.approval_mechanism;
375: hxc_hac_shd.g_old_rec.time_recipient_id;
376: End If;
377: If (p_rec.approval_mechanism = hr_api.g_varchar2) then
378: p_rec.approval_mechanism :=
379: hxc_hac_shd.g_old_rec.approval_mechanism;
380: End If;
381: If (p_rec.approval_mechanism_id = hr_api.g_number) then
382: p_rec.approval_mechanism_id :=
383: hxc_hac_shd.g_old_rec.approval_mechanism_id;
379: hxc_hac_shd.g_old_rec.approval_mechanism;
380: End If;
381: If (p_rec.approval_mechanism_id = hr_api.g_number) then
382: p_rec.approval_mechanism_id :=
383: hxc_hac_shd.g_old_rec.approval_mechanism_id;
384: End If;
385: If (p_rec.wf_item_type = hr_api.g_varchar2) then
386: p_rec.wf_item_type :=
387: hxc_hac_shd.g_old_rec.wf_item_type;
383: hxc_hac_shd.g_old_rec.approval_mechanism_id;
384: End If;
385: If (p_rec.wf_item_type = hr_api.g_varchar2) then
386: p_rec.wf_item_type :=
387: hxc_hac_shd.g_old_rec.wf_item_type;
388: End If;
389: If (p_rec.wf_name = hr_api.g_varchar2) then
390: p_rec.wf_name :=
391: hxc_hac_shd.g_old_rec.wf_name;
387: hxc_hac_shd.g_old_rec.wf_item_type;
388: End If;
389: If (p_rec.wf_name = hr_api.g_varchar2) then
390: p_rec.wf_name :=
391: hxc_hac_shd.g_old_rec.wf_name;
392: End If;
393: If (p_rec.start_date = hr_api.g_date) then
394: p_rec.start_date :=
395: hxc_hac_shd.g_old_rec.start_date;
391: hxc_hac_shd.g_old_rec.wf_name;
392: End If;
393: If (p_rec.start_date = hr_api.g_date) then
394: p_rec.start_date :=
395: hxc_hac_shd.g_old_rec.start_date;
396: End If;
397: If (p_rec.end_date = hr_api.g_date) then
398: p_rec.end_date :=
399: hxc_hac_shd.g_old_rec.end_date;
395: hxc_hac_shd.g_old_rec.start_date;
396: End If;
397: If (p_rec.end_date = hr_api.g_date) then
398: p_rec.end_date :=
399: hxc_hac_shd.g_old_rec.end_date;
400: End If;
401: If (p_rec.approval_order = hr_api.g_number) then
402: p_rec.approval_order :=
403: hxc_hac_shd.g_old_rec.approval_order;
399: hxc_hac_shd.g_old_rec.end_date;
400: End If;
401: If (p_rec.approval_order = hr_api.g_number) then
402: p_rec.approval_order :=
403: hxc_hac_shd.g_old_rec.approval_order;
404: End If;
405: If (p_rec.time_category_id = hr_api.g_number) then
406: p_rec.time_category_id :=
407: hxc_hac_shd.g_old_rec.time_category_id;
403: hxc_hac_shd.g_old_rec.approval_order;
404: End If;
405: If (p_rec.time_category_id = hr_api.g_number) then
406: p_rec.time_category_id :=
407: hxc_hac_shd.g_old_rec.time_category_id;
408: End If;
409: If (p_rec.parent_comp_id = hr_api.g_number) then
410: p_rec.parent_comp_id :=
411: hxc_hac_shd.g_old_rec.parent_comp_id;
407: hxc_hac_shd.g_old_rec.time_category_id;
408: End If;
409: If (p_rec.parent_comp_id = hr_api.g_number) then
410: p_rec.parent_comp_id :=
411: hxc_hac_shd.g_old_rec.parent_comp_id;
412: End If;
413: If (p_rec.parent_comp_ovn = hr_api.g_number) then
414: p_rec.parent_comp_ovn :=
415: hxc_hac_shd.g_old_rec.parent_comp_ovn;
411: hxc_hac_shd.g_old_rec.parent_comp_id;
412: End If;
413: If (p_rec.parent_comp_ovn = hr_api.g_number) then
414: p_rec.parent_comp_ovn :=
415: hxc_hac_shd.g_old_rec.parent_comp_ovn;
416: End If;
417: If (p_rec.run_recipient_extensions = hr_api.g_varchar2) then
418: p_rec.run_recipient_extensions :=
419: hxc_hac_shd.g_old_rec.run_recipient_extensions;
415: hxc_hac_shd.g_old_rec.parent_comp_ovn;
416: End If;
417: If (p_rec.run_recipient_extensions = hr_api.g_varchar2) then
418: p_rec.run_recipient_extensions :=
419: hxc_hac_shd.g_old_rec.run_recipient_extensions;
420: End If;
421: --
422: End convert_defs;
423: --
425: -- |---------------------------------< upd >----------------------------------|
426: -- ----------------------------------------------------------------------------
427: Procedure upd
428: (p_effective_date in date
429: ,p_rec in out nocopy hxc_hac_shd.g_rec_type
430: ) is
431: --
432: l_proc varchar2(72);
433: --
439: end if;
440: --
441: -- We must lock the row which we need to update.
442: --
443: hxc_hac_shd.lck
444: (p_rec.approval_comp_id
445: ,p_rec.object_version_number
446: );
447: --
495: ,p_run_recipient_extensions in varchar2 default hr_api.g_varchar2
496:
497: ) is
498: --
499: l_rec hxc_hac_shd.g_rec_type;
500: l_proc varchar2(72);
501: --
502: Begin
503: g_debug:=hr_utility.debug_enabled;
509: -- Call conversion function to turn arguments into the
510: -- l_rec structure.
511: --
512: l_rec :=
513: hxc_hac_shd.convert_args
514: (p_approval_comp_id
515: ,p_approval_style_id
516: ,p_time_recipient_id
517: ,p_approval_mechanism