[Home] [Help]
51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: Procedure update_dml
55: (p_rec in out nocopy pqh_vld_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: pqh_vld_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: pqh_vld_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: pqh_vld_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 pqh_vld_shd.g_rec_type
151: ) is
152: --
153: l_proc varchar2(72) := g_package||'pre_update';
154: --
191: -- {End Of Comments}
192: -- ----------------------------------------------------------------------------
193: Procedure post_update
194: (p_effective_date in date
195: ,p_rec in pqh_vld_shd.g_rec_type
196: ) is
197: --
198: l_proc varchar2(72) := g_package||'post_update';
199: --
239: => p_rec.percent_of_salary
240: ,p_object_version_number
241: => p_rec.object_version_number
242: ,p_pension_fund_type_code_o
243: => pqh_vld_shd.g_old_rec.pension_fund_type_code
244: ,p_pension_fund_id_o
245: => pqh_vld_shd.g_old_rec.pension_fund_id
246: ,p_business_group_id_o
247: => pqh_vld_shd.g_old_rec.business_group_id
241: => p_rec.object_version_number
242: ,p_pension_fund_type_code_o
243: => pqh_vld_shd.g_old_rec.pension_fund_type_code
244: ,p_pension_fund_id_o
245: => pqh_vld_shd.g_old_rec.pension_fund_id
246: ,p_business_group_id_o
247: => pqh_vld_shd.g_old_rec.business_group_id
248: ,p_person_id_o
249: => pqh_vld_shd.g_old_rec.person_id
243: => pqh_vld_shd.g_old_rec.pension_fund_type_code
244: ,p_pension_fund_id_o
245: => pqh_vld_shd.g_old_rec.pension_fund_id
246: ,p_business_group_id_o
247: => pqh_vld_shd.g_old_rec.business_group_id
248: ,p_person_id_o
249: => pqh_vld_shd.g_old_rec.person_id
250: ,p_request_date_o
251: => pqh_vld_shd.g_old_rec.request_date
245: => pqh_vld_shd.g_old_rec.pension_fund_id
246: ,p_business_group_id_o
247: => pqh_vld_shd.g_old_rec.business_group_id
248: ,p_person_id_o
249: => pqh_vld_shd.g_old_rec.person_id
250: ,p_request_date_o
251: => pqh_vld_shd.g_old_rec.request_date
252: ,p_completion_date_o
253: => pqh_vld_shd.g_old_rec.completion_date
247: => pqh_vld_shd.g_old_rec.business_group_id
248: ,p_person_id_o
249: => pqh_vld_shd.g_old_rec.person_id
250: ,p_request_date_o
251: => pqh_vld_shd.g_old_rec.request_date
252: ,p_completion_date_o
253: => pqh_vld_shd.g_old_rec.completion_date
254: ,p_previous_employer_id_o
255: => pqh_vld_shd.g_old_rec.previous_employer_id
249: => pqh_vld_shd.g_old_rec.person_id
250: ,p_request_date_o
251: => pqh_vld_shd.g_old_rec.request_date
252: ,p_completion_date_o
253: => pqh_vld_shd.g_old_rec.completion_date
254: ,p_previous_employer_id_o
255: => pqh_vld_shd.g_old_rec.previous_employer_id
256: ,p_previously_validated_flag_o
257: => pqh_vld_shd.g_old_rec.previously_validated_flag
251: => pqh_vld_shd.g_old_rec.request_date
252: ,p_completion_date_o
253: => pqh_vld_shd.g_old_rec.completion_date
254: ,p_previous_employer_id_o
255: => pqh_vld_shd.g_old_rec.previous_employer_id
256: ,p_previously_validated_flag_o
257: => pqh_vld_shd.g_old_rec.previously_validated_flag
258: ,p_status_o
259: => pqh_vld_shd.g_old_rec.status
253: => pqh_vld_shd.g_old_rec.completion_date
254: ,p_previous_employer_id_o
255: => pqh_vld_shd.g_old_rec.previous_employer_id
256: ,p_previously_validated_flag_o
257: => pqh_vld_shd.g_old_rec.previously_validated_flag
258: ,p_status_o
259: => pqh_vld_shd.g_old_rec.status
260: ,p_employer_amount_o
261: => pqh_vld_shd.g_old_rec.employer_amount
255: => pqh_vld_shd.g_old_rec.previous_employer_id
256: ,p_previously_validated_flag_o
257: => pqh_vld_shd.g_old_rec.previously_validated_flag
258: ,p_status_o
259: => pqh_vld_shd.g_old_rec.status
260: ,p_employer_amount_o
261: => pqh_vld_shd.g_old_rec.employer_amount
262: ,p_employer_currency_code_o
263: => pqh_vld_shd.g_old_rec.employer_currency_code
257: => pqh_vld_shd.g_old_rec.previously_validated_flag
258: ,p_status_o
259: => pqh_vld_shd.g_old_rec.status
260: ,p_employer_amount_o
261: => pqh_vld_shd.g_old_rec.employer_amount
262: ,p_employer_currency_code_o
263: => pqh_vld_shd.g_old_rec.employer_currency_code
264: ,p_employee_amount_o
265: => pqh_vld_shd.g_old_rec.employee_amount
259: => pqh_vld_shd.g_old_rec.status
260: ,p_employer_amount_o
261: => pqh_vld_shd.g_old_rec.employer_amount
262: ,p_employer_currency_code_o
263: => pqh_vld_shd.g_old_rec.employer_currency_code
264: ,p_employee_amount_o
265: => pqh_vld_shd.g_old_rec.employee_amount
266: ,p_employee_currency_code_o
267: => pqh_vld_shd.g_old_rec.employee_currency_code
261: => pqh_vld_shd.g_old_rec.employer_amount
262: ,p_employer_currency_code_o
263: => pqh_vld_shd.g_old_rec.employer_currency_code
264: ,p_employee_amount_o
265: => pqh_vld_shd.g_old_rec.employee_amount
266: ,p_employee_currency_code_o
267: => pqh_vld_shd.g_old_rec.employee_currency_code
268: ,p_deduction_per_period_o
269: => pqh_vld_shd.g_old_rec.deduction_per_period
263: => pqh_vld_shd.g_old_rec.employer_currency_code
264: ,p_employee_amount_o
265: => pqh_vld_shd.g_old_rec.employee_amount
266: ,p_employee_currency_code_o
267: => pqh_vld_shd.g_old_rec.employee_currency_code
268: ,p_deduction_per_period_o
269: => pqh_vld_shd.g_old_rec.deduction_per_period
270: ,p_deduction_currency_code_o
271: => pqh_vld_shd.g_old_rec.deduction_currency_code
265: => pqh_vld_shd.g_old_rec.employee_amount
266: ,p_employee_currency_code_o
267: => pqh_vld_shd.g_old_rec.employee_currency_code
268: ,p_deduction_per_period_o
269: => pqh_vld_shd.g_old_rec.deduction_per_period
270: ,p_deduction_currency_code_o
271: => pqh_vld_shd.g_old_rec.deduction_currency_code
272: ,p_percent_of_salary_o
273: => pqh_vld_shd.g_old_rec.percent_of_salary
267: => pqh_vld_shd.g_old_rec.employee_currency_code
268: ,p_deduction_per_period_o
269: => pqh_vld_shd.g_old_rec.deduction_per_period
270: ,p_deduction_currency_code_o
271: => pqh_vld_shd.g_old_rec.deduction_currency_code
272: ,p_percent_of_salary_o
273: => pqh_vld_shd.g_old_rec.percent_of_salary
274: ,p_object_version_number_o
275: => pqh_vld_shd.g_old_rec.object_version_number
269: => pqh_vld_shd.g_old_rec.deduction_per_period
270: ,p_deduction_currency_code_o
271: => pqh_vld_shd.g_old_rec.deduction_currency_code
272: ,p_percent_of_salary_o
273: => pqh_vld_shd.g_old_rec.percent_of_salary
274: ,p_object_version_number_o
275: => pqh_vld_shd.g_old_rec.object_version_number
276: );
277: --
271: => pqh_vld_shd.g_old_rec.deduction_currency_code
272: ,p_percent_of_salary_o
273: => pqh_vld_shd.g_old_rec.percent_of_salary
274: ,p_object_version_number_o
275: => pqh_vld_shd.g_old_rec.object_version_number
276: );
277: --
278: exception
279: --
331: --
332: -- {End Of Comments}
333: -- ----------------------------------------------------------------------------
334: Procedure convert_defs
335: (p_rec in out nocopy pqh_vld_shd.g_rec_type
336: ) is
337: --
338: Begin
339: --
343: -- is being used then we must set to the 'current' argument value.
344: --
345: If (p_rec.pension_fund_type_code = hr_api.g_varchar2) then
346: p_rec.pension_fund_type_code :=
347: pqh_vld_shd.g_old_rec.pension_fund_type_code;
348: End If;
349: If (p_rec.pension_fund_id = hr_api.g_number) then
350: p_rec.pension_fund_id :=
351: pqh_vld_shd.g_old_rec.pension_fund_id;
347: pqh_vld_shd.g_old_rec.pension_fund_type_code;
348: End If;
349: If (p_rec.pension_fund_id = hr_api.g_number) then
350: p_rec.pension_fund_id :=
351: pqh_vld_shd.g_old_rec.pension_fund_id;
352: End If;
353: If (p_rec.business_group_id = hr_api.g_number) then
354: p_rec.business_group_id :=
355: pqh_vld_shd.g_old_rec.business_group_id;
351: pqh_vld_shd.g_old_rec.pension_fund_id;
352: End If;
353: If (p_rec.business_group_id = hr_api.g_number) then
354: p_rec.business_group_id :=
355: pqh_vld_shd.g_old_rec.business_group_id;
356: End If;
357: If (p_rec.person_id = hr_api.g_number) then
358: p_rec.person_id :=
359: pqh_vld_shd.g_old_rec.person_id;
355: pqh_vld_shd.g_old_rec.business_group_id;
356: End If;
357: If (p_rec.person_id = hr_api.g_number) then
358: p_rec.person_id :=
359: pqh_vld_shd.g_old_rec.person_id;
360: End If;
361: If (p_rec.request_date = hr_api.g_date) then
362: p_rec.request_date :=
363: pqh_vld_shd.g_old_rec.request_date;
359: pqh_vld_shd.g_old_rec.person_id;
360: End If;
361: If (p_rec.request_date = hr_api.g_date) then
362: p_rec.request_date :=
363: pqh_vld_shd.g_old_rec.request_date;
364: End If;
365: If (p_rec.completion_date = hr_api.g_date) then
366: p_rec.completion_date :=
367: pqh_vld_shd.g_old_rec.completion_date;
363: pqh_vld_shd.g_old_rec.request_date;
364: End If;
365: If (p_rec.completion_date = hr_api.g_date) then
366: p_rec.completion_date :=
367: pqh_vld_shd.g_old_rec.completion_date;
368: End If;
369: If (p_rec.previous_employer_id = hr_api.g_number) then
370: p_rec.previous_employer_id :=
371: pqh_vld_shd.g_old_rec.previous_employer_id;
367: pqh_vld_shd.g_old_rec.completion_date;
368: End If;
369: If (p_rec.previous_employer_id = hr_api.g_number) then
370: p_rec.previous_employer_id :=
371: pqh_vld_shd.g_old_rec.previous_employer_id;
372: End If;
373: If (p_rec.previously_validated_flag = hr_api.g_varchar2) then
374: p_rec.previously_validated_flag :=
375: pqh_vld_shd.g_old_rec.previously_validated_flag;
371: pqh_vld_shd.g_old_rec.previous_employer_id;
372: End If;
373: If (p_rec.previously_validated_flag = hr_api.g_varchar2) then
374: p_rec.previously_validated_flag :=
375: pqh_vld_shd.g_old_rec.previously_validated_flag;
376: End If;
377: If (p_rec.status = hr_api.g_varchar2) then
378: p_rec.status :=
379: pqh_vld_shd.g_old_rec.status;
375: pqh_vld_shd.g_old_rec.previously_validated_flag;
376: End If;
377: If (p_rec.status = hr_api.g_varchar2) then
378: p_rec.status :=
379: pqh_vld_shd.g_old_rec.status;
380: End If;
381: If (p_rec.employer_amount = hr_api.g_number) then
382: p_rec.employer_amount :=
383: pqh_vld_shd.g_old_rec.employer_amount;
379: pqh_vld_shd.g_old_rec.status;
380: End If;
381: If (p_rec.employer_amount = hr_api.g_number) then
382: p_rec.employer_amount :=
383: pqh_vld_shd.g_old_rec.employer_amount;
384: End If;
385: If (p_rec.employer_currency_code = hr_api.g_varchar2) then
386: p_rec.employer_currency_code :=
387: pqh_vld_shd.g_old_rec.employer_currency_code;
383: pqh_vld_shd.g_old_rec.employer_amount;
384: End If;
385: If (p_rec.employer_currency_code = hr_api.g_varchar2) then
386: p_rec.employer_currency_code :=
387: pqh_vld_shd.g_old_rec.employer_currency_code;
388: End If;
389: If (p_rec.employee_amount = hr_api.g_number) then
390: p_rec.employee_amount :=
391: pqh_vld_shd.g_old_rec.employee_amount;
387: pqh_vld_shd.g_old_rec.employer_currency_code;
388: End If;
389: If (p_rec.employee_amount = hr_api.g_number) then
390: p_rec.employee_amount :=
391: pqh_vld_shd.g_old_rec.employee_amount;
392: End If;
393: If (p_rec.employee_currency_code = hr_api.g_varchar2) then
394: p_rec.employee_currency_code :=
395: pqh_vld_shd.g_old_rec.employee_currency_code;
391: pqh_vld_shd.g_old_rec.employee_amount;
392: End If;
393: If (p_rec.employee_currency_code = hr_api.g_varchar2) then
394: p_rec.employee_currency_code :=
395: pqh_vld_shd.g_old_rec.employee_currency_code;
396: End If;
397: If (p_rec.deduction_per_period = hr_api.g_number) then
398: p_rec.deduction_per_period :=
399: pqh_vld_shd.g_old_rec.deduction_per_period;
395: pqh_vld_shd.g_old_rec.employee_currency_code;
396: End If;
397: If (p_rec.deduction_per_period = hr_api.g_number) then
398: p_rec.deduction_per_period :=
399: pqh_vld_shd.g_old_rec.deduction_per_period;
400: End If;
401: If (p_rec.deduction_currency_code = hr_api.g_varchar2) then
402: p_rec.deduction_currency_code :=
403: pqh_vld_shd.g_old_rec.deduction_currency_code;
399: pqh_vld_shd.g_old_rec.deduction_per_period;
400: End If;
401: If (p_rec.deduction_currency_code = hr_api.g_varchar2) then
402: p_rec.deduction_currency_code :=
403: pqh_vld_shd.g_old_rec.deduction_currency_code;
404: End If;
405: If (p_rec.percent_of_salary = hr_api.g_number) then
406: p_rec.percent_of_salary :=
407: pqh_vld_shd.g_old_rec.percent_of_salary;
403: pqh_vld_shd.g_old_rec.deduction_currency_code;
404: End If;
405: If (p_rec.percent_of_salary = hr_api.g_number) then
406: p_rec.percent_of_salary :=
407: pqh_vld_shd.g_old_rec.percent_of_salary;
408: End If;
409: --
410: End convert_defs;
411: --
413: -- |---------------------------------< upd >----------------------------------|
414: -- ----------------------------------------------------------------------------
415: Procedure upd
416: (p_effective_date in date
417: ,p_rec in out nocopy pqh_vld_shd.g_rec_type
418: ) is
419: --
420: l_proc varchar2(72) := g_package||'upd';
421: --
423: hr_utility.set_location('Entering:'||l_proc, 5);
424: --
425: -- We must lock the row which we need to update.
426: --
427: pqh_vld_shd.lck
428: (p_rec.validation_id
429: ,p_rec.object_version_number
430: );
431: --
487: ,p_deduction_currency_code in varchar2 default hr_api.g_varchar2
488: ,p_percent_of_salary in number default hr_api.g_number
489: ) is
490: --
491: l_rec pqh_vld_shd.g_rec_type;
492: l_proc varchar2(72) := g_package||'upd';
493: --
494: Begin
495: hr_utility.set_location('Entering:'||l_proc, 5);
497: -- Call conversion function to turn arguments into the
498: -- l_rec structure.
499: --
500: l_rec :=
501: pqh_vld_shd.convert_args
502: (p_validation_id
503: ,p_pension_fund_type_code
504: ,p_pension_fund_id
505: ,p_business_group_id