51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: Procedure update_dml
55: (p_rec in out nocopy pay_pta_shd.g_rec_type
56: ) is
57: --
58: l_proc varchar2(72) := g_package||'update_dml';
59: --
90: Exception
91: When hr_api.check_integrity_violated Then
92: -- A check constraint has been violated
93: --
94: pay_pta_shd.constraint_error
95: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
96: When hr_api.parent_integrity_violated Then
97: -- Parent integrity has been violated
98: --
95: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
96: When hr_api.parent_integrity_violated Then
97: -- Parent integrity has been violated
98: --
99: pay_pta_shd.constraint_error
100: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
101: When hr_api.unique_integrity_violated Then
102: -- Unique integrity has been violated
103: --
100: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
101: When hr_api.unique_integrity_violated Then
102: -- Unique integrity has been violated
103: --
104: pay_pta_shd.constraint_error
105: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
106: When Others Then
107: --
108: Raise;
140: --
141: -- {End Of Comments}
142: -- ----------------------------------------------------------------------------
143: Procedure pre_update
144: (p_rec in pay_pta_shd.g_rec_type
145: ) is
146: --
147: l_proc varchar2(72) := g_package||'pre_update';
148: --
184: --
185: -- {End Of Comments}
186: -- ----------------------------------------------------------------------------
187: Procedure post_update
188: (p_rec in pay_pta_shd.g_rec_type
189: ) is
190: --
191: l_proc varchar2(72) := g_package||'post_update';
192: --
219: => p_rec.dyn_trigger_package_name
220: ,p_dyn_trig_pkg_generated
221: => p_rec.dyn_trig_pkg_generated
222: ,p_table_name_o
223: => pay_pta_shd.g_old_rec.table_name
224: ,p_application_id_o
225: => pay_pta_shd.g_old_rec.application_id
226: ,p_surrogate_key_name_o
227: => pay_pta_shd.g_old_rec.surrogate_key_name
221: => p_rec.dyn_trig_pkg_generated
222: ,p_table_name_o
223: => pay_pta_shd.g_old_rec.table_name
224: ,p_application_id_o
225: => pay_pta_shd.g_old_rec.application_id
226: ,p_surrogate_key_name_o
227: => pay_pta_shd.g_old_rec.surrogate_key_name
228: ,p_start_date_name_o
229: => pay_pta_shd.g_old_rec.start_date_name
223: => pay_pta_shd.g_old_rec.table_name
224: ,p_application_id_o
225: => pay_pta_shd.g_old_rec.application_id
226: ,p_surrogate_key_name_o
227: => pay_pta_shd.g_old_rec.surrogate_key_name
228: ,p_start_date_name_o
229: => pay_pta_shd.g_old_rec.start_date_name
230: ,p_end_date_name_o
231: => pay_pta_shd.g_old_rec.end_date_name
225: => pay_pta_shd.g_old_rec.application_id
226: ,p_surrogate_key_name_o
227: => pay_pta_shd.g_old_rec.surrogate_key_name
228: ,p_start_date_name_o
229: => pay_pta_shd.g_old_rec.start_date_name
230: ,p_end_date_name_o
231: => pay_pta_shd.g_old_rec.end_date_name
232: ,p_business_group_id_o
233: => pay_pta_shd.g_old_rec.business_group_id
227: => pay_pta_shd.g_old_rec.surrogate_key_name
228: ,p_start_date_name_o
229: => pay_pta_shd.g_old_rec.start_date_name
230: ,p_end_date_name_o
231: => pay_pta_shd.g_old_rec.end_date_name
232: ,p_business_group_id_o
233: => pay_pta_shd.g_old_rec.business_group_id
234: ,p_legislation_code_o
235: => pay_pta_shd.g_old_rec.legislation_code
229: => pay_pta_shd.g_old_rec.start_date_name
230: ,p_end_date_name_o
231: => pay_pta_shd.g_old_rec.end_date_name
232: ,p_business_group_id_o
233: => pay_pta_shd.g_old_rec.business_group_id
234: ,p_legislation_code_o
235: => pay_pta_shd.g_old_rec.legislation_code
236: ,p_object_version_number_o
237: => pay_pta_shd.g_old_rec.object_version_number
231: => pay_pta_shd.g_old_rec.end_date_name
232: ,p_business_group_id_o
233: => pay_pta_shd.g_old_rec.business_group_id
234: ,p_legislation_code_o
235: => pay_pta_shd.g_old_rec.legislation_code
236: ,p_object_version_number_o
237: => pay_pta_shd.g_old_rec.object_version_number
238: ,p_dyn_trigger_type_o
239: => pay_pta_shd.g_old_rec.dyn_trigger_type
233: => pay_pta_shd.g_old_rec.business_group_id
234: ,p_legislation_code_o
235: => pay_pta_shd.g_old_rec.legislation_code
236: ,p_object_version_number_o
237: => pay_pta_shd.g_old_rec.object_version_number
238: ,p_dyn_trigger_type_o
239: => pay_pta_shd.g_old_rec.dyn_trigger_type
240: ,p_dyn_trigger_package_name_o
241: => pay_pta_shd.g_old_rec.dyn_trigger_package_name
235: => pay_pta_shd.g_old_rec.legislation_code
236: ,p_object_version_number_o
237: => pay_pta_shd.g_old_rec.object_version_number
238: ,p_dyn_trigger_type_o
239: => pay_pta_shd.g_old_rec.dyn_trigger_type
240: ,p_dyn_trigger_package_name_o
241: => pay_pta_shd.g_old_rec.dyn_trigger_package_name
242: ,p_dyn_trig_pkg_generated_o
243: => pay_pta_shd.g_old_rec.dyn_trig_pkg_generated
237: => pay_pta_shd.g_old_rec.object_version_number
238: ,p_dyn_trigger_type_o
239: => pay_pta_shd.g_old_rec.dyn_trigger_type
240: ,p_dyn_trigger_package_name_o
241: => pay_pta_shd.g_old_rec.dyn_trigger_package_name
242: ,p_dyn_trig_pkg_generated_o
243: => pay_pta_shd.g_old_rec.dyn_trig_pkg_generated
244: );
245: --
239: => pay_pta_shd.g_old_rec.dyn_trigger_type
240: ,p_dyn_trigger_package_name_o
241: => pay_pta_shd.g_old_rec.dyn_trigger_package_name
242: ,p_dyn_trig_pkg_generated_o
243: => pay_pta_shd.g_old_rec.dyn_trig_pkg_generated
244: );
245: --
246: exception
247: --
299: --
300: -- {End Of Comments}
301: -- ----------------------------------------------------------------------------
302: Procedure convert_defs
303: (p_rec in out nocopy pay_pta_shd.g_rec_type
304: ) is
305: --
306: Begin
307: --
311: -- is being used then we must set to the 'current' argument value.
312: --
313: If (p_rec.table_name = hr_api.g_varchar2) then
314: p_rec.table_name :=
315: pay_pta_shd.g_old_rec.table_name;
316: End If;
317: If (p_rec.application_id = hr_api.g_number) then
318: p_rec.application_id :=
319: pay_pta_shd.g_old_rec.application_id;
315: pay_pta_shd.g_old_rec.table_name;
316: End If;
317: If (p_rec.application_id = hr_api.g_number) then
318: p_rec.application_id :=
319: pay_pta_shd.g_old_rec.application_id;
320: End If;
321: If (p_rec.surrogate_key_name = hr_api.g_varchar2) then
322: p_rec.surrogate_key_name :=
323: pay_pta_shd.g_old_rec.surrogate_key_name;
319: pay_pta_shd.g_old_rec.application_id;
320: End If;
321: If (p_rec.surrogate_key_name = hr_api.g_varchar2) then
322: p_rec.surrogate_key_name :=
323: pay_pta_shd.g_old_rec.surrogate_key_name;
324: End If;
325: If (p_rec.start_date_name = hr_api.g_varchar2) then
326: p_rec.start_date_name :=
327: pay_pta_shd.g_old_rec.start_date_name;
323: pay_pta_shd.g_old_rec.surrogate_key_name;
324: End If;
325: If (p_rec.start_date_name = hr_api.g_varchar2) then
326: p_rec.start_date_name :=
327: pay_pta_shd.g_old_rec.start_date_name;
328: End If;
329: If (p_rec.end_date_name = hr_api.g_varchar2) then
330: p_rec.end_date_name :=
331: pay_pta_shd.g_old_rec.end_date_name;
327: pay_pta_shd.g_old_rec.start_date_name;
328: End If;
329: If (p_rec.end_date_name = hr_api.g_varchar2) then
330: p_rec.end_date_name :=
331: pay_pta_shd.g_old_rec.end_date_name;
332: End If;
333: If (p_rec.business_group_id = hr_api.g_number) then
334: p_rec.business_group_id :=
335: pay_pta_shd.g_old_rec.business_group_id;
331: pay_pta_shd.g_old_rec.end_date_name;
332: End If;
333: If (p_rec.business_group_id = hr_api.g_number) then
334: p_rec.business_group_id :=
335: pay_pta_shd.g_old_rec.business_group_id;
336: End If;
337: If (p_rec.legislation_code = hr_api.g_varchar2) then
338: p_rec.legislation_code :=
339: pay_pta_shd.g_old_rec.legislation_code;
335: pay_pta_shd.g_old_rec.business_group_id;
336: End If;
337: If (p_rec.legislation_code = hr_api.g_varchar2) then
338: p_rec.legislation_code :=
339: pay_pta_shd.g_old_rec.legislation_code;
340: End If;
341: If (p_rec.dyn_trigger_type = hr_api.g_varchar2) then
342: p_rec.dyn_trigger_type :=
343: pay_pta_shd.g_old_rec.dyn_trigger_type;
339: pay_pta_shd.g_old_rec.legislation_code;
340: End If;
341: If (p_rec.dyn_trigger_type = hr_api.g_varchar2) then
342: p_rec.dyn_trigger_type :=
343: pay_pta_shd.g_old_rec.dyn_trigger_type;
344: End If;
345: If (p_rec.dyn_trigger_package_name = hr_api.g_varchar2) then
346: p_rec.dyn_trigger_package_name :=
347: pay_pta_shd.g_old_rec.dyn_trigger_package_name;
343: pay_pta_shd.g_old_rec.dyn_trigger_type;
344: End If;
345: If (p_rec.dyn_trigger_package_name = hr_api.g_varchar2) then
346: p_rec.dyn_trigger_package_name :=
347: pay_pta_shd.g_old_rec.dyn_trigger_package_name;
348: End If;
349: If (p_rec.dyn_trig_pkg_generated = hr_api.g_varchar2) then
350: p_rec.dyn_trig_pkg_generated :=
351: pay_pta_shd.g_old_rec.dyn_trig_pkg_generated;
347: pay_pta_shd.g_old_rec.dyn_trigger_package_name;
348: End If;
349: If (p_rec.dyn_trig_pkg_generated = hr_api.g_varchar2) then
350: p_rec.dyn_trig_pkg_generated :=
351: pay_pta_shd.g_old_rec.dyn_trig_pkg_generated;
352: End If;
353: --
354: End convert_defs;
355: --
356: -- ----------------------------------------------------------------------------
357: -- |---------------------------------< upd >----------------------------------|
358: -- ----------------------------------------------------------------------------
359: Procedure upd
360: (p_rec in out nocopy pay_pta_shd.g_rec_type
361: ) is
362: --
363: l_proc varchar2(72) := g_package||'upd';
364: --
366: hr_utility.set_location('Entering:'||l_proc, 5);
367: --
368: -- We must lock the row which we need to update.
369: --
370: pay_pta_shd.lck
371: (p_rec.dated_table_id
372: ,p_rec.object_version_number
373: );
374: --
415: ,p_dyn_trigger_package_name in varchar2 default hr_api.g_varchar2
416: ,p_dyn_trig_pkg_generated in varchar2 default hr_api.g_varchar2
417: ) is
418: --
419: l_rec pay_pta_shd.g_rec_type;
420: l_proc varchar2(72) := g_package||'upd';
421: --
422: Begin
423: hr_utility.set_location('Entering:'||l_proc, 5);
425: -- Call conversion function to turn arguments into the
426: -- l_rec structure.
427: --
428: l_rec :=
429: pay_pta_shd.convert_args
430: (p_dated_table_id
431: ,p_table_name
432: ,p_application_id
433: ,p_surrogate_key_name