[Home] [Help]
51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: Procedure update_dml
55: (p_rec in out nocopy pqh_ver_shd.g_rec_type
56: ) is
57: --
58: l_proc varchar2(72) := g_package||'update_dml';
59: --
95: Exception
96: When hr_api.check_integrity_violated Then
97: -- A check constraint has been violated
98: --
99: pqh_ver_shd.constraint_error
100: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
101: When hr_api.parent_integrity_violated Then
102: -- Parent integrity has been violated
103: --
100: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
101: When hr_api.parent_integrity_violated Then
102: -- Parent integrity has been violated
103: --
104: pqh_ver_shd.constraint_error
105: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
106: When hr_api.unique_integrity_violated Then
107: -- Unique integrity has been violated
108: --
105: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
106: When hr_api.unique_integrity_violated Then
107: -- Unique integrity has been violated
108: --
109: pqh_ver_shd.constraint_error
110: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
111: When Others Then
112: --
113: Raise;
145: --
146: -- {End Of Comments}
147: -- ----------------------------------------------------------------------------
148: Procedure pre_update
149: (p_rec in pqh_ver_shd.g_rec_type
150: ) is
151: --
152: l_proc varchar2(72) := g_package||'pre_update';
153: --
190: -- {End Of Comments}
191: -- ----------------------------------------------------------------------------
192: Procedure post_update
193: (p_effective_date in date
194: ,p_rec in pqh_ver_shd.g_rec_type
195: ) is
196: --
197: l_proc varchar2(72) := g_package||'post_update';
198: --
236: => p_rec.freeze
237: ,p_object_version_number
238: => p_rec.object_version_number
239: ,p_wrkplc_vldtn_id_o
240: => pqh_ver_shd.g_old_rec.wrkplc_vldtn_id
241: ,p_version_number_o
242: => pqh_ver_shd.g_old_rec.version_number
243: ,p_business_group_id_o
244: => pqh_ver_shd.g_old_rec.business_group_id
238: => p_rec.object_version_number
239: ,p_wrkplc_vldtn_id_o
240: => pqh_ver_shd.g_old_rec.wrkplc_vldtn_id
241: ,p_version_number_o
242: => pqh_ver_shd.g_old_rec.version_number
243: ,p_business_group_id_o
244: => pqh_ver_shd.g_old_rec.business_group_id
245: ,p_tariff_contract_code_o
246: => pqh_ver_shd.g_old_rec.tariff_contract_code
240: => pqh_ver_shd.g_old_rec.wrkplc_vldtn_id
241: ,p_version_number_o
242: => pqh_ver_shd.g_old_rec.version_number
243: ,p_business_group_id_o
244: => pqh_ver_shd.g_old_rec.business_group_id
245: ,p_tariff_contract_code_o
246: => pqh_ver_shd.g_old_rec.tariff_contract_code
247: ,p_tariff_group_code_o
248: => pqh_ver_shd.g_old_rec.tariff_group_code
242: => pqh_ver_shd.g_old_rec.version_number
243: ,p_business_group_id_o
244: => pqh_ver_shd.g_old_rec.business_group_id
245: ,p_tariff_contract_code_o
246: => pqh_ver_shd.g_old_rec.tariff_contract_code
247: ,p_tariff_group_code_o
248: => pqh_ver_shd.g_old_rec.tariff_group_code
249: ,p_remuneration_job_descripti_o
250: => pqh_ver_shd.g_old_rec.remuneration_job_description
244: => pqh_ver_shd.g_old_rec.business_group_id
245: ,p_tariff_contract_code_o
246: => pqh_ver_shd.g_old_rec.tariff_contract_code
247: ,p_tariff_group_code_o
248: => pqh_ver_shd.g_old_rec.tariff_group_code
249: ,p_remuneration_job_descripti_o
250: => pqh_ver_shd.g_old_rec.remuneration_job_description
251: ,p_job_group_id_o
252: => pqh_ver_shd.g_old_rec.job_group_id
246: => pqh_ver_shd.g_old_rec.tariff_contract_code
247: ,p_tariff_group_code_o
248: => pqh_ver_shd.g_old_rec.tariff_group_code
249: ,p_remuneration_job_descripti_o
250: => pqh_ver_shd.g_old_rec.remuneration_job_description
251: ,p_job_group_id_o
252: => pqh_ver_shd.g_old_rec.job_group_id
253: ,p_remuneration_job_id_o
254: => pqh_ver_shd.g_old_rec.remuneration_job_id
248: => pqh_ver_shd.g_old_rec.tariff_group_code
249: ,p_remuneration_job_descripti_o
250: => pqh_ver_shd.g_old_rec.remuneration_job_description
251: ,p_job_group_id_o
252: => pqh_ver_shd.g_old_rec.job_group_id
253: ,p_remuneration_job_id_o
254: => pqh_ver_shd.g_old_rec.remuneration_job_id
255: ,p_derived_grade_id_o
256: => pqh_ver_shd.g_old_rec.derived_grade_id
250: => pqh_ver_shd.g_old_rec.remuneration_job_description
251: ,p_job_group_id_o
252: => pqh_ver_shd.g_old_rec.job_group_id
253: ,p_remuneration_job_id_o
254: => pqh_ver_shd.g_old_rec.remuneration_job_id
255: ,p_derived_grade_id_o
256: => pqh_ver_shd.g_old_rec.derived_grade_id
257: ,p_derived_case_group_id_o
258: => pqh_ver_shd.g_old_rec.derived_case_group_id
252: => pqh_ver_shd.g_old_rec.job_group_id
253: ,p_remuneration_job_id_o
254: => pqh_ver_shd.g_old_rec.remuneration_job_id
255: ,p_derived_grade_id_o
256: => pqh_ver_shd.g_old_rec.derived_grade_id
257: ,p_derived_case_group_id_o
258: => pqh_ver_shd.g_old_rec.derived_case_group_id
259: ,p_derived_subcasgrp_id_o
260: => pqh_ver_shd.g_old_rec.derived_subcasgrp_id
254: => pqh_ver_shd.g_old_rec.remuneration_job_id
255: ,p_derived_grade_id_o
256: => pqh_ver_shd.g_old_rec.derived_grade_id
257: ,p_derived_case_group_id_o
258: => pqh_ver_shd.g_old_rec.derived_case_group_id
259: ,p_derived_subcasgrp_id_o
260: => pqh_ver_shd.g_old_rec.derived_subcasgrp_id
261: ,p_user_enterable_grade_id_o
262: => pqh_ver_shd.g_old_rec.user_enterable_grade_id
256: => pqh_ver_shd.g_old_rec.derived_grade_id
257: ,p_derived_case_group_id_o
258: => pqh_ver_shd.g_old_rec.derived_case_group_id
259: ,p_derived_subcasgrp_id_o
260: => pqh_ver_shd.g_old_rec.derived_subcasgrp_id
261: ,p_user_enterable_grade_id_o
262: => pqh_ver_shd.g_old_rec.user_enterable_grade_id
263: ,p_user_enterable_case_group__o
264: => pqh_ver_shd.g_old_rec.user_enterable_case_group_id
258: => pqh_ver_shd.g_old_rec.derived_case_group_id
259: ,p_derived_subcasgrp_id_o
260: => pqh_ver_shd.g_old_rec.derived_subcasgrp_id
261: ,p_user_enterable_grade_id_o
262: => pqh_ver_shd.g_old_rec.user_enterable_grade_id
263: ,p_user_enterable_case_group__o
264: => pqh_ver_shd.g_old_rec.user_enterable_case_group_id
265: ,p_user_enterable_subcasgrp_i_o
266: => pqh_ver_shd.g_old_rec.user_enterable_subcasgrp_id
260: => pqh_ver_shd.g_old_rec.derived_subcasgrp_id
261: ,p_user_enterable_grade_id_o
262: => pqh_ver_shd.g_old_rec.user_enterable_grade_id
263: ,p_user_enterable_case_group__o
264: => pqh_ver_shd.g_old_rec.user_enterable_case_group_id
265: ,p_user_enterable_subcasgrp_i_o
266: => pqh_ver_shd.g_old_rec.user_enterable_subcasgrp_id
267: ,p_freeze_o
268: => pqh_ver_shd.g_old_rec.freeze
262: => pqh_ver_shd.g_old_rec.user_enterable_grade_id
263: ,p_user_enterable_case_group__o
264: => pqh_ver_shd.g_old_rec.user_enterable_case_group_id
265: ,p_user_enterable_subcasgrp_i_o
266: => pqh_ver_shd.g_old_rec.user_enterable_subcasgrp_id
267: ,p_freeze_o
268: => pqh_ver_shd.g_old_rec.freeze
269: ,p_object_version_number_o
270: => pqh_ver_shd.g_old_rec.object_version_number
264: => pqh_ver_shd.g_old_rec.user_enterable_case_group_id
265: ,p_user_enterable_subcasgrp_i_o
266: => pqh_ver_shd.g_old_rec.user_enterable_subcasgrp_id
267: ,p_freeze_o
268: => pqh_ver_shd.g_old_rec.freeze
269: ,p_object_version_number_o
270: => pqh_ver_shd.g_old_rec.object_version_number
271: );
272: --
266: => pqh_ver_shd.g_old_rec.user_enterable_subcasgrp_id
267: ,p_freeze_o
268: => pqh_ver_shd.g_old_rec.freeze
269: ,p_object_version_number_o
270: => pqh_ver_shd.g_old_rec.object_version_number
271: );
272: --
273: exception
274: --
326: --
327: -- {End Of Comments}
328: -- ----------------------------------------------------------------------------
329: Procedure convert_defs
330: (p_rec in out nocopy pqh_ver_shd.g_rec_type
331: ) is
332: --
333: Begin
334: --
338: -- is being used then we must set to the 'current' argument value.
339: --
340: If (p_rec.wrkplc_vldtn_id = hr_api.g_number) then
341: p_rec.wrkplc_vldtn_id :=
342: pqh_ver_shd.g_old_rec.wrkplc_vldtn_id;
343: End If;
344: If (p_rec.version_number = hr_api.g_number) then
345: p_rec.version_number :=
346: pqh_ver_shd.g_old_rec.version_number;
342: pqh_ver_shd.g_old_rec.wrkplc_vldtn_id;
343: End If;
344: If (p_rec.version_number = hr_api.g_number) then
345: p_rec.version_number :=
346: pqh_ver_shd.g_old_rec.version_number;
347: End If;
348: If (p_rec.business_group_id = hr_api.g_number) then
349: p_rec.business_group_id :=
350: pqh_ver_shd.g_old_rec.business_group_id;
346: pqh_ver_shd.g_old_rec.version_number;
347: End If;
348: If (p_rec.business_group_id = hr_api.g_number) then
349: p_rec.business_group_id :=
350: pqh_ver_shd.g_old_rec.business_group_id;
351: End If;
352: If (p_rec.tariff_contract_code = hr_api.g_varchar2) then
353: p_rec.tariff_contract_code :=
354: pqh_ver_shd.g_old_rec.tariff_contract_code;
350: pqh_ver_shd.g_old_rec.business_group_id;
351: End If;
352: If (p_rec.tariff_contract_code = hr_api.g_varchar2) then
353: p_rec.tariff_contract_code :=
354: pqh_ver_shd.g_old_rec.tariff_contract_code;
355: End If;
356: If (p_rec.tariff_group_code = hr_api.g_varchar2) then
357: p_rec.tariff_group_code :=
358: pqh_ver_shd.g_old_rec.tariff_group_code;
354: pqh_ver_shd.g_old_rec.tariff_contract_code;
355: End If;
356: If (p_rec.tariff_group_code = hr_api.g_varchar2) then
357: p_rec.tariff_group_code :=
358: pqh_ver_shd.g_old_rec.tariff_group_code;
359: End If;
360: If (p_rec.remuneration_job_description = hr_api.g_varchar2) then
361: p_rec.remuneration_job_description :=
362: pqh_ver_shd.g_old_rec.remuneration_job_description;
358: pqh_ver_shd.g_old_rec.tariff_group_code;
359: End If;
360: If (p_rec.remuneration_job_description = hr_api.g_varchar2) then
361: p_rec.remuneration_job_description :=
362: pqh_ver_shd.g_old_rec.remuneration_job_description;
363: End If;
364: If (p_rec.job_group_id = hr_api.g_number) then
365: p_rec.job_group_id :=
366: pqh_ver_shd.g_old_rec.job_group_id;
362: pqh_ver_shd.g_old_rec.remuneration_job_description;
363: End If;
364: If (p_rec.job_group_id = hr_api.g_number) then
365: p_rec.job_group_id :=
366: pqh_ver_shd.g_old_rec.job_group_id;
367: End If;
368: If (p_rec.remuneration_job_id = hr_api.g_number) then
369: p_rec.remuneration_job_id :=
370: pqh_ver_shd.g_old_rec.remuneration_job_id;
366: pqh_ver_shd.g_old_rec.job_group_id;
367: End If;
368: If (p_rec.remuneration_job_id = hr_api.g_number) then
369: p_rec.remuneration_job_id :=
370: pqh_ver_shd.g_old_rec.remuneration_job_id;
371: End If;
372: If (p_rec.derived_grade_id = hr_api.g_number) then
373: p_rec.derived_grade_id :=
374: pqh_ver_shd.g_old_rec.derived_grade_id;
370: pqh_ver_shd.g_old_rec.remuneration_job_id;
371: End If;
372: If (p_rec.derived_grade_id = hr_api.g_number) then
373: p_rec.derived_grade_id :=
374: pqh_ver_shd.g_old_rec.derived_grade_id;
375: End If;
376: If (p_rec.derived_case_group_id = hr_api.g_number) then
377: p_rec.derived_case_group_id :=
378: pqh_ver_shd.g_old_rec.derived_case_group_id;
374: pqh_ver_shd.g_old_rec.derived_grade_id;
375: End If;
376: If (p_rec.derived_case_group_id = hr_api.g_number) then
377: p_rec.derived_case_group_id :=
378: pqh_ver_shd.g_old_rec.derived_case_group_id;
379: End If;
380: If (p_rec.derived_subcasgrp_id = hr_api.g_number) then
381: p_rec.derived_subcasgrp_id :=
382: pqh_ver_shd.g_old_rec.derived_subcasgrp_id;
378: pqh_ver_shd.g_old_rec.derived_case_group_id;
379: End If;
380: If (p_rec.derived_subcasgrp_id = hr_api.g_number) then
381: p_rec.derived_subcasgrp_id :=
382: pqh_ver_shd.g_old_rec.derived_subcasgrp_id;
383: End If;
384: If (p_rec.user_enterable_grade_id = hr_api.g_number) then
385: p_rec.user_enterable_grade_id :=
386: pqh_ver_shd.g_old_rec.user_enterable_grade_id;
382: pqh_ver_shd.g_old_rec.derived_subcasgrp_id;
383: End If;
384: If (p_rec.user_enterable_grade_id = hr_api.g_number) then
385: p_rec.user_enterable_grade_id :=
386: pqh_ver_shd.g_old_rec.user_enterable_grade_id;
387: End If;
388: If (p_rec.user_enterable_case_group_id = hr_api.g_number) then
389: p_rec.user_enterable_case_group_id :=
390: pqh_ver_shd.g_old_rec.user_enterable_case_group_id;
386: pqh_ver_shd.g_old_rec.user_enterable_grade_id;
387: End If;
388: If (p_rec.user_enterable_case_group_id = hr_api.g_number) then
389: p_rec.user_enterable_case_group_id :=
390: pqh_ver_shd.g_old_rec.user_enterable_case_group_id;
391: End If;
392: If (p_rec.user_enterable_subcasgrp_id = hr_api.g_number) then
393: p_rec.user_enterable_subcasgrp_id :=
394: pqh_ver_shd.g_old_rec.user_enterable_subcasgrp_id;
390: pqh_ver_shd.g_old_rec.user_enterable_case_group_id;
391: End If;
392: If (p_rec.user_enterable_subcasgrp_id = hr_api.g_number) then
393: p_rec.user_enterable_subcasgrp_id :=
394: pqh_ver_shd.g_old_rec.user_enterable_subcasgrp_id;
395: End If;
396: If (p_rec.freeze = hr_api.g_varchar2) then
397: p_rec.freeze :=
398: pqh_ver_shd.g_old_rec.freeze;
394: pqh_ver_shd.g_old_rec.user_enterable_subcasgrp_id;
395: End If;
396: If (p_rec.freeze = hr_api.g_varchar2) then
397: p_rec.freeze :=
398: pqh_ver_shd.g_old_rec.freeze;
399: End If;
400: --
401: End convert_defs;
402: --
404: -- |---------------------------------< upd >----------------------------------|
405: -- ----------------------------------------------------------------------------
406: Procedure upd
407: (p_effective_date in date
408: ,p_rec in out nocopy pqh_ver_shd.g_rec_type
409: ) is
410: --
411: l_proc varchar2(72) := g_package||'upd';
412: --
414: hr_utility.set_location('Entering:'||l_proc, 5);
415: --
416: -- We must lock the row which we need to update.
417: --
418: pqh_ver_shd.lck
419: (p_rec.wrkplc_vldtn_ver_id
420: ,p_rec.object_version_number
421: );
422: --
477: ,p_user_enterable_case_group_id in number default hr_api.g_number
478: ,p_user_enterable_subcasgrp_id in number default hr_api.g_number
479: ) is
480: --
481: l_rec pqh_ver_shd.g_rec_type;
482: l_proc varchar2(72) := g_package||'upd';
483: --
484: Begin
485: hr_utility.set_location('Entering:'||l_proc, 5);
487: -- Call conversion function to turn arguments into the
488: -- l_rec structure.
489: --
490: l_rec :=
491: pqh_ver_shd.convert_args
492: (p_wrkplc_vldtn_ver_id
493: ,p_wrkplc_vldtn_id
494: ,p_version_number
495: ,p_business_group_id