51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: Procedure update_dml
55: (p_rec in out nocopy ghr_cdt_shd.g_rec_type
56: ) is
57: --
58: l_proc varchar2(72) := g_package||'update_dml';
59: --
93: Exception
94: When hr_api.check_integrity_violated Then
95: -- A check constraint has been violated
96: --
97: ghr_cdt_shd.constraint_error
98: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
99: When hr_api.parent_integrity_violated Then
100: -- Parent integrity has been violated
101: --
98: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
99: When hr_api.parent_integrity_violated Then
100: -- Parent integrity has been violated
101: --
102: ghr_cdt_shd.constraint_error
103: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
104: When hr_api.unique_integrity_violated Then
105: -- Unique integrity has been violated
106: --
103: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
104: When hr_api.unique_integrity_violated Then
105: -- Unique integrity has been violated
106: --
107: ghr_cdt_shd.constraint_error
108: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
109: When Others Then
110: --
111: Raise;
143: --
144: -- {End Of Comments}
145: -- ----------------------------------------------------------------------------
146: Procedure pre_update
147: (p_rec in ghr_cdt_shd.g_rec_type
148: ) is
149: --
150: l_proc varchar2(72) := g_package||'pre_update';
151: --
188: -- {End Of Comments}
189: -- ----------------------------------------------------------------------------
190: Procedure post_update
191: (p_effective_date in date
192: ,p_rec in ghr_cdt_shd.g_rec_type
193: ) is
194: --
195: l_proc varchar2(72) := g_package||'post_update';
196: --
214: ,p_action_type => p_rec.action_type
215: ,p_payment_type => p_rec.payment_type
216: ,p_object_version_number => p_rec.object_version_number
217: ,p_description => p_rec.description
218: ,p_compl_ca_header_id_o => ghr_cdt_shd.g_old_rec.compl_ca_header_id
219: --,p_action_o => ghr_cdt_shd.g_old_rec.action
220: ,p_amount_o => ghr_cdt_shd.g_old_rec.amount
221: ,p_order_date_o => ghr_cdt_shd.g_old_rec.order_date
222: ,p_due_date_o => ghr_cdt_shd.g_old_rec.due_date
215: ,p_payment_type => p_rec.payment_type
216: ,p_object_version_number => p_rec.object_version_number
217: ,p_description => p_rec.description
218: ,p_compl_ca_header_id_o => ghr_cdt_shd.g_old_rec.compl_ca_header_id
219: --,p_action_o => ghr_cdt_shd.g_old_rec.action
220: ,p_amount_o => ghr_cdt_shd.g_old_rec.amount
221: ,p_order_date_o => ghr_cdt_shd.g_old_rec.order_date
222: ,p_due_date_o => ghr_cdt_shd.g_old_rec.due_date
223: ,p_request_date_o => ghr_cdt_shd.g_old_rec.request_date
216: ,p_object_version_number => p_rec.object_version_number
217: ,p_description => p_rec.description
218: ,p_compl_ca_header_id_o => ghr_cdt_shd.g_old_rec.compl_ca_header_id
219: --,p_action_o => ghr_cdt_shd.g_old_rec.action
220: ,p_amount_o => ghr_cdt_shd.g_old_rec.amount
221: ,p_order_date_o => ghr_cdt_shd.g_old_rec.order_date
222: ,p_due_date_o => ghr_cdt_shd.g_old_rec.due_date
223: ,p_request_date_o => ghr_cdt_shd.g_old_rec.request_date
224: ,p_complete_date_o => ghr_cdt_shd.g_old_rec.complete_date
217: ,p_description => p_rec.description
218: ,p_compl_ca_header_id_o => ghr_cdt_shd.g_old_rec.compl_ca_header_id
219: --,p_action_o => ghr_cdt_shd.g_old_rec.action
220: ,p_amount_o => ghr_cdt_shd.g_old_rec.amount
221: ,p_order_date_o => ghr_cdt_shd.g_old_rec.order_date
222: ,p_due_date_o => ghr_cdt_shd.g_old_rec.due_date
223: ,p_request_date_o => ghr_cdt_shd.g_old_rec.request_date
224: ,p_complete_date_o => ghr_cdt_shd.g_old_rec.complete_date
225: ,p_category_o => ghr_cdt_shd.g_old_rec.category
218: ,p_compl_ca_header_id_o => ghr_cdt_shd.g_old_rec.compl_ca_header_id
219: --,p_action_o => ghr_cdt_shd.g_old_rec.action
220: ,p_amount_o => ghr_cdt_shd.g_old_rec.amount
221: ,p_order_date_o => ghr_cdt_shd.g_old_rec.order_date
222: ,p_due_date_o => ghr_cdt_shd.g_old_rec.due_date
223: ,p_request_date_o => ghr_cdt_shd.g_old_rec.request_date
224: ,p_complete_date_o => ghr_cdt_shd.g_old_rec.complete_date
225: ,p_category_o => ghr_cdt_shd.g_old_rec.category
226: --,p_type_o => ghr_cdt_shd.g_old_rec.type
219: --,p_action_o => ghr_cdt_shd.g_old_rec.action
220: ,p_amount_o => ghr_cdt_shd.g_old_rec.amount
221: ,p_order_date_o => ghr_cdt_shd.g_old_rec.order_date
222: ,p_due_date_o => ghr_cdt_shd.g_old_rec.due_date
223: ,p_request_date_o => ghr_cdt_shd.g_old_rec.request_date
224: ,p_complete_date_o => ghr_cdt_shd.g_old_rec.complete_date
225: ,p_category_o => ghr_cdt_shd.g_old_rec.category
226: --,p_type_o => ghr_cdt_shd.g_old_rec.type
227: ,p_phase_o => ghr_cdt_shd.g_old_rec.phase
220: ,p_amount_o => ghr_cdt_shd.g_old_rec.amount
221: ,p_order_date_o => ghr_cdt_shd.g_old_rec.order_date
222: ,p_due_date_o => ghr_cdt_shd.g_old_rec.due_date
223: ,p_request_date_o => ghr_cdt_shd.g_old_rec.request_date
224: ,p_complete_date_o => ghr_cdt_shd.g_old_rec.complete_date
225: ,p_category_o => ghr_cdt_shd.g_old_rec.category
226: --,p_type_o => ghr_cdt_shd.g_old_rec.type
227: ,p_phase_o => ghr_cdt_shd.g_old_rec.phase
228: ,p_action_type_o => ghr_cdt_shd.g_old_rec.action_type
221: ,p_order_date_o => ghr_cdt_shd.g_old_rec.order_date
222: ,p_due_date_o => ghr_cdt_shd.g_old_rec.due_date
223: ,p_request_date_o => ghr_cdt_shd.g_old_rec.request_date
224: ,p_complete_date_o => ghr_cdt_shd.g_old_rec.complete_date
225: ,p_category_o => ghr_cdt_shd.g_old_rec.category
226: --,p_type_o => ghr_cdt_shd.g_old_rec.type
227: ,p_phase_o => ghr_cdt_shd.g_old_rec.phase
228: ,p_action_type_o => ghr_cdt_shd.g_old_rec.action_type
229: ,p_payment_type_o => ghr_cdt_shd.g_old_rec.payment_type
222: ,p_due_date_o => ghr_cdt_shd.g_old_rec.due_date
223: ,p_request_date_o => ghr_cdt_shd.g_old_rec.request_date
224: ,p_complete_date_o => ghr_cdt_shd.g_old_rec.complete_date
225: ,p_category_o => ghr_cdt_shd.g_old_rec.category
226: --,p_type_o => ghr_cdt_shd.g_old_rec.type
227: ,p_phase_o => ghr_cdt_shd.g_old_rec.phase
228: ,p_action_type_o => ghr_cdt_shd.g_old_rec.action_type
229: ,p_payment_type_o => ghr_cdt_shd.g_old_rec.payment_type
230: ,p_object_version_number_o => ghr_cdt_shd.g_old_rec.object_version_number
223: ,p_request_date_o => ghr_cdt_shd.g_old_rec.request_date
224: ,p_complete_date_o => ghr_cdt_shd.g_old_rec.complete_date
225: ,p_category_o => ghr_cdt_shd.g_old_rec.category
226: --,p_type_o => ghr_cdt_shd.g_old_rec.type
227: ,p_phase_o => ghr_cdt_shd.g_old_rec.phase
228: ,p_action_type_o => ghr_cdt_shd.g_old_rec.action_type
229: ,p_payment_type_o => ghr_cdt_shd.g_old_rec.payment_type
230: ,p_object_version_number_o => ghr_cdt_shd.g_old_rec.object_version_number
231: ,p_description_o => ghr_cdt_shd.g_old_rec.description
224: ,p_complete_date_o => ghr_cdt_shd.g_old_rec.complete_date
225: ,p_category_o => ghr_cdt_shd.g_old_rec.category
226: --,p_type_o => ghr_cdt_shd.g_old_rec.type
227: ,p_phase_o => ghr_cdt_shd.g_old_rec.phase
228: ,p_action_type_o => ghr_cdt_shd.g_old_rec.action_type
229: ,p_payment_type_o => ghr_cdt_shd.g_old_rec.payment_type
230: ,p_object_version_number_o => ghr_cdt_shd.g_old_rec.object_version_number
231: ,p_description_o => ghr_cdt_shd.g_old_rec.description
232: );
225: ,p_category_o => ghr_cdt_shd.g_old_rec.category
226: --,p_type_o => ghr_cdt_shd.g_old_rec.type
227: ,p_phase_o => ghr_cdt_shd.g_old_rec.phase
228: ,p_action_type_o => ghr_cdt_shd.g_old_rec.action_type
229: ,p_payment_type_o => ghr_cdt_shd.g_old_rec.payment_type
230: ,p_object_version_number_o => ghr_cdt_shd.g_old_rec.object_version_number
231: ,p_description_o => ghr_cdt_shd.g_old_rec.description
232: );
233: --
226: --,p_type_o => ghr_cdt_shd.g_old_rec.type
227: ,p_phase_o => ghr_cdt_shd.g_old_rec.phase
228: ,p_action_type_o => ghr_cdt_shd.g_old_rec.action_type
229: ,p_payment_type_o => ghr_cdt_shd.g_old_rec.payment_type
230: ,p_object_version_number_o => ghr_cdt_shd.g_old_rec.object_version_number
231: ,p_description_o => ghr_cdt_shd.g_old_rec.description
232: );
233: --
234: exception
227: ,p_phase_o => ghr_cdt_shd.g_old_rec.phase
228: ,p_action_type_o => ghr_cdt_shd.g_old_rec.action_type
229: ,p_payment_type_o => ghr_cdt_shd.g_old_rec.payment_type
230: ,p_object_version_number_o => ghr_cdt_shd.g_old_rec.object_version_number
231: ,p_description_o => ghr_cdt_shd.g_old_rec.description
232: );
233: --
234: exception
235: --
287: --
288: -- {End Of Comments}
289: -- ----------------------------------------------------------------------------
290: Procedure convert_defs
291: (p_rec in out nocopy ghr_cdt_shd.g_rec_type
292: ) is
293: --
294: Begin
295: --
299: -- is being used then we must set to the 'current' argument value.
300: --
301: If (p_rec.compl_ca_header_id = hr_api.g_number) then
302: p_rec.compl_ca_header_id :=
303: ghr_cdt_shd.g_old_rec.compl_ca_header_id;
304: End If;
305: /*
306: If (p_rec.action = hr_api.g_varchar2) then
307: p_rec.action :=
304: End If;
305: /*
306: If (p_rec.action = hr_api.g_varchar2) then
307: p_rec.action :=
308: ghr_cdt_shd.g_old_rec.action;
309: End If;
310: */
311: If (p_rec.amount = hr_api.g_number) then
312: p_rec.amount :=
309: End If;
310: */
311: If (p_rec.amount = hr_api.g_number) then
312: p_rec.amount :=
313: ghr_cdt_shd.g_old_rec.amount;
314: End If;
315: If (p_rec.order_date = hr_api.g_date) then
316: p_rec.order_date :=
317: ghr_cdt_shd.g_old_rec.order_date;
313: ghr_cdt_shd.g_old_rec.amount;
314: End If;
315: If (p_rec.order_date = hr_api.g_date) then
316: p_rec.order_date :=
317: ghr_cdt_shd.g_old_rec.order_date;
318: End If;
319: If (p_rec.due_date = hr_api.g_date) then
320: p_rec.due_date :=
321: ghr_cdt_shd.g_old_rec.due_date;
317: ghr_cdt_shd.g_old_rec.order_date;
318: End If;
319: If (p_rec.due_date = hr_api.g_date) then
320: p_rec.due_date :=
321: ghr_cdt_shd.g_old_rec.due_date;
322: End If;
323: If (p_rec.request_date = hr_api.g_date) then
324: p_rec.request_date :=
325: ghr_cdt_shd.g_old_rec.request_date;
321: ghr_cdt_shd.g_old_rec.due_date;
322: End If;
323: If (p_rec.request_date = hr_api.g_date) then
324: p_rec.request_date :=
325: ghr_cdt_shd.g_old_rec.request_date;
326: End If;
327: If (p_rec.complete_date = hr_api.g_date) then
328: p_rec.complete_date :=
329: ghr_cdt_shd.g_old_rec.complete_date;
325: ghr_cdt_shd.g_old_rec.request_date;
326: End If;
327: If (p_rec.complete_date = hr_api.g_date) then
328: p_rec.complete_date :=
329: ghr_cdt_shd.g_old_rec.complete_date;
330: End If;
331: If (p_rec.category = hr_api.g_varchar2) then
332: p_rec.category :=
333: ghr_cdt_shd.g_old_rec.category;
329: ghr_cdt_shd.g_old_rec.complete_date;
330: End If;
331: If (p_rec.category = hr_api.g_varchar2) then
332: p_rec.category :=
333: ghr_cdt_shd.g_old_rec.category;
334: End If;
335: /*
336: If (p_rec.type = hr_api.g_varchar2) then
337: p_rec.type :=
334: End If;
335: /*
336: If (p_rec.type = hr_api.g_varchar2) then
337: p_rec.type :=
338: ghr_cdt_shd.g_old_rec.type;
339: End If;
340: */
341: If (p_rec.phase = hr_api.g_varchar2) then
342: p_rec.phase :=
339: End If;
340: */
341: If (p_rec.phase = hr_api.g_varchar2) then
342: p_rec.phase :=
343: ghr_cdt_shd.g_old_rec.phase;
344: End If;
345: If (p_rec.action_type = hr_api.g_varchar2) then
346: p_rec.action_type :=
347: ghr_cdt_shd.g_old_rec.action_type;
343: ghr_cdt_shd.g_old_rec.phase;
344: End If;
345: If (p_rec.action_type = hr_api.g_varchar2) then
346: p_rec.action_type :=
347: ghr_cdt_shd.g_old_rec.action_type;
348: End If;
349: If (p_rec.payment_type = hr_api.g_varchar2) then
350: p_rec.payment_type :=
351: ghr_cdt_shd.g_old_rec.payment_type;
347: ghr_cdt_shd.g_old_rec.action_type;
348: End If;
349: If (p_rec.payment_type = hr_api.g_varchar2) then
350: p_rec.payment_type :=
351: ghr_cdt_shd.g_old_rec.payment_type;
352: End If;
353: If (p_rec.description = hr_api.g_varchar2) then
354: p_rec.description :=
355: ghr_cdt_shd.g_old_rec.description;
351: ghr_cdt_shd.g_old_rec.payment_type;
352: End If;
353: If (p_rec.description = hr_api.g_varchar2) then
354: p_rec.description :=
355: ghr_cdt_shd.g_old_rec.description;
356: End If;
357: --
358: End convert_defs;
359: --
361: -- |---------------------------------< upd >----------------------------------|
362: -- ----------------------------------------------------------------------------
363: Procedure upd
364: (p_effective_date in date
365: ,p_rec in out nocopy ghr_cdt_shd.g_rec_type
366: ) is
367: --
368: l_proc varchar2(72) := g_package||'upd';
369: --
371: hr_utility.set_location('Entering:'||l_proc, 5);
372: --
373: -- We must lock the row which we need to update.
374: --
375: ghr_cdt_shd.lck
376: (p_rec.compl_ca_detail_id
377: ,p_rec.object_version_number
378: );
379: --
426: ,p_payment_type in varchar2
427: ,p_description in varchar2
428: ) is
429: --
430: l_rec ghr_cdt_shd.g_rec_type;
431: l_proc varchar2(72) := g_package||'upd';
432: --
433: Begin
434: hr_utility.set_location('Entering:'||l_proc, 5);
436: -- Call conversion function to turn arguments into the
437: -- l_rec structure.
438: --
439: l_rec :=
440: ghr_cdt_shd.convert_args
441: (p_compl_ca_detail_id
442: ,p_compl_ca_header_id
443: --,p_action
444: ,p_amount