54: --
55: -- {End Of Comments}
56: -- ----------------------------------------------------------------------------
57: Procedure update_dml
58: (p_rec in out nocopy pqh_str_shd.g_rec_type
59: ) is
60: --
61: l_proc varchar2(72) := g_package||'update_dml';
62: --
102: Exception
103: When hr_api.check_integrity_violated Then
104: -- A check constraint has been violated
105: --
106: pqh_str_shd.constraint_error
107: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
108: When hr_api.parent_integrity_violated Then
109: -- Parent integrity has been violated
110: --
107: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
108: When hr_api.parent_integrity_violated Then
109: -- Parent integrity has been violated
110: --
111: pqh_str_shd.constraint_error
112: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
113: When hr_api.unique_integrity_violated Then
114: -- Unique integrity has been violated
115: --
112: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
113: When hr_api.unique_integrity_violated Then
114: -- Unique integrity has been violated
115: --
116: pqh_str_shd.constraint_error
117: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
118: When Others Then
119: --
120: Raise;
152: --
153: -- {End Of Comments}
154: -- ----------------------------------------------------------------------------
155: Procedure pre_update
156: (p_rec in pqh_str_shd.g_rec_type
157: ) is
158: --
159: l_proc varchar2(72) := g_package||'pre_update';
160: --
208: -- {End Of Comments}
209: -- ----------------------------------------------------------------------------
210: Procedure post_update
211: (p_effective_date in date
212: ,p_rec in pqh_str_shd.g_rec_type
213: ) is
214: --
215: l_proc varchar2(72) := g_package||'post_update';
216: --
246: => p_rec.exclude_flag
247: ,p_object_version_number
248: => p_rec.object_version_number
249: ,p_statutory_situation_id_o
250: => pqh_str_shd.g_old_rec.statutory_situation_id
251: ,p_processing_sequence_o
252: => pqh_str_shd.g_old_rec.processing_sequence
253: ,p_txn_category_attribute_id_o
254: => pqh_str_shd.g_old_rec.txn_category_attribute_id
248: => p_rec.object_version_number
249: ,p_statutory_situation_id_o
250: => pqh_str_shd.g_old_rec.statutory_situation_id
251: ,p_processing_sequence_o
252: => pqh_str_shd.g_old_rec.processing_sequence
253: ,p_txn_category_attribute_id_o
254: => pqh_str_shd.g_old_rec.txn_category_attribute_id
255: ,p_from_value_o
256: => pqh_str_shd.g_old_rec.from_value
250: => pqh_str_shd.g_old_rec.statutory_situation_id
251: ,p_processing_sequence_o
252: => pqh_str_shd.g_old_rec.processing_sequence
253: ,p_txn_category_attribute_id_o
254: => pqh_str_shd.g_old_rec.txn_category_attribute_id
255: ,p_from_value_o
256: => pqh_str_shd.g_old_rec.from_value
257: ,p_to_value_o
258: => pqh_str_shd.g_old_rec.to_value
252: => pqh_str_shd.g_old_rec.processing_sequence
253: ,p_txn_category_attribute_id_o
254: => pqh_str_shd.g_old_rec.txn_category_attribute_id
255: ,p_from_value_o
256: => pqh_str_shd.g_old_rec.from_value
257: ,p_to_value_o
258: => pqh_str_shd.g_old_rec.to_value
259: ,p_enabled_flag_o
260: => pqh_str_shd.g_old_rec.enabled_flag
254: => pqh_str_shd.g_old_rec.txn_category_attribute_id
255: ,p_from_value_o
256: => pqh_str_shd.g_old_rec.from_value
257: ,p_to_value_o
258: => pqh_str_shd.g_old_rec.to_value
259: ,p_enabled_flag_o
260: => pqh_str_shd.g_old_rec.enabled_flag
261: ,p_required_flag_o
262: => pqh_str_shd.g_old_rec.required_flag
256: => pqh_str_shd.g_old_rec.from_value
257: ,p_to_value_o
258: => pqh_str_shd.g_old_rec.to_value
259: ,p_enabled_flag_o
260: => pqh_str_shd.g_old_rec.enabled_flag
261: ,p_required_flag_o
262: => pqh_str_shd.g_old_rec.required_flag
263: ,p_exclude_flag_o
264: => pqh_str_shd.g_old_rec.exclude_flag
258: => pqh_str_shd.g_old_rec.to_value
259: ,p_enabled_flag_o
260: => pqh_str_shd.g_old_rec.enabled_flag
261: ,p_required_flag_o
262: => pqh_str_shd.g_old_rec.required_flag
263: ,p_exclude_flag_o
264: => pqh_str_shd.g_old_rec.exclude_flag
265: ,p_object_version_number_o
266: => pqh_str_shd.g_old_rec.object_version_number
260: => pqh_str_shd.g_old_rec.enabled_flag
261: ,p_required_flag_o
262: => pqh_str_shd.g_old_rec.required_flag
263: ,p_exclude_flag_o
264: => pqh_str_shd.g_old_rec.exclude_flag
265: ,p_object_version_number_o
266: => pqh_str_shd.g_old_rec.object_version_number
267: );
268: --
262: => pqh_str_shd.g_old_rec.required_flag
263: ,p_exclude_flag_o
264: => pqh_str_shd.g_old_rec.exclude_flag
265: ,p_object_version_number_o
266: => pqh_str_shd.g_old_rec.object_version_number
267: );
268: --
269: exception
270: --
327: --
328: -- {End Of Comments}
329: -- ----------------------------------------------------------------------------
330: Procedure convert_defs
331: (p_rec in out nocopy pqh_str_shd.g_rec_type
332: ) is
333: --
334: Begin
335: --
339: -- is being used then we must set to the 'current' argument value.
340: --
341: If (p_rec.statutory_situation_id = hr_api.g_number) then
342: p_rec.statutory_situation_id :=
343: pqh_str_shd.g_old_rec.statutory_situation_id;
344: End If;
345: If (p_rec.processing_sequence = hr_api.g_number) then
346: p_rec.processing_sequence :=
347: pqh_str_shd.g_old_rec.processing_sequence;
343: pqh_str_shd.g_old_rec.statutory_situation_id;
344: End If;
345: If (p_rec.processing_sequence = hr_api.g_number) then
346: p_rec.processing_sequence :=
347: pqh_str_shd.g_old_rec.processing_sequence;
348: End If;
349: If (p_rec.txn_category_attribute_id = hr_api.g_number) then
350: p_rec.txn_category_attribute_id :=
351: pqh_str_shd.g_old_rec.txn_category_attribute_id;
347: pqh_str_shd.g_old_rec.processing_sequence;
348: End If;
349: If (p_rec.txn_category_attribute_id = hr_api.g_number) then
350: p_rec.txn_category_attribute_id :=
351: pqh_str_shd.g_old_rec.txn_category_attribute_id;
352: End If;
353: If (p_rec.from_value = hr_api.g_varchar2) then
354: p_rec.from_value :=
355: pqh_str_shd.g_old_rec.from_value;
351: pqh_str_shd.g_old_rec.txn_category_attribute_id;
352: End If;
353: If (p_rec.from_value = hr_api.g_varchar2) then
354: p_rec.from_value :=
355: pqh_str_shd.g_old_rec.from_value;
356: End If;
357: If (p_rec.to_value = hr_api.g_varchar2) then
358: p_rec.to_value :=
359: pqh_str_shd.g_old_rec.to_value;
355: pqh_str_shd.g_old_rec.from_value;
356: End If;
357: If (p_rec.to_value = hr_api.g_varchar2) then
358: p_rec.to_value :=
359: pqh_str_shd.g_old_rec.to_value;
360: End If;
361: If (p_rec.enabled_flag = hr_api.g_varchar2) then
362: p_rec.enabled_flag :=
363: pqh_str_shd.g_old_rec.enabled_flag;
359: pqh_str_shd.g_old_rec.to_value;
360: End If;
361: If (p_rec.enabled_flag = hr_api.g_varchar2) then
362: p_rec.enabled_flag :=
363: pqh_str_shd.g_old_rec.enabled_flag;
364: End If;
365: If (p_rec.required_flag = hr_api.g_varchar2) then
366: p_rec.required_flag :=
367: pqh_str_shd.g_old_rec.required_flag;
363: pqh_str_shd.g_old_rec.enabled_flag;
364: End If;
365: If (p_rec.required_flag = hr_api.g_varchar2) then
366: p_rec.required_flag :=
367: pqh_str_shd.g_old_rec.required_flag;
368: End If;
369: If (p_rec.exclude_flag = hr_api.g_varchar2) then
370: p_rec.exclude_flag :=
371: pqh_str_shd.g_old_rec.exclude_flag;
367: pqh_str_shd.g_old_rec.required_flag;
368: End If;
369: If (p_rec.exclude_flag = hr_api.g_varchar2) then
370: p_rec.exclude_flag :=
371: pqh_str_shd.g_old_rec.exclude_flag;
372: End If;
373: --
374: End convert_defs;
375: --
377: -- |---------------------------------< upd >----------------------------------|
378: -- ----------------------------------------------------------------------------
379: Procedure upd
380: (p_effective_date in date
381: ,p_rec in out nocopy pqh_str_shd.g_rec_type
382: ) is
383: --
384: l_proc varchar2(72) := g_package||'upd';
385: --
395:
396: --
397: -- We must lock the row which we need to update.
398: --
399: pqh_str_shd.lck
400: (p_rec.stat_situation_rule_id
401: ,p_rec.object_version_number
402: );
403: --
451: ,p_required_flag in varchar2 default hr_api.g_varchar2
452: ,p_exclude_flag in varchar2 default hr_api.g_varchar2
453: ) is
454: --
455: l_rec pqh_str_shd.g_rec_type;
456: l_proc varchar2(72) := g_package||'upd';
457: --
458: Begin
459:
469: -- Call conversion function to turn arguments into the
470: -- l_rec structure.
471: --
472: l_rec :=
473: pqh_str_shd.convert_args
474: (p_stat_situation_rule_id
475: ,p_statutory_situation_id
476: ,p_processing_sequence
477: ,p_txn_category_attribute_id