44: -- Internal Row Handler Use Only.
45: --
46: -- {End Of Comments}
47: -- ----------------------------------------------------------------------------
48: Procedure update_dml(p_rec in out nocopy pqh_rtl_shd.g_rec_type) is
49: --
50: l_proc varchar2(72) := g_package||'update_dml';
51: --
52: Begin
71: --
72: Exception
73: When hr_api.check_integrity_violated Then
74: -- A check constraint has been violated
75: pqh_rtl_shd.constraint_error
76: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
77: When hr_api.parent_integrity_violated Then
78: -- Parent integrity has been violated
79: pqh_rtl_shd.constraint_error
75: pqh_rtl_shd.constraint_error
76: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
77: When hr_api.parent_integrity_violated Then
78: -- Parent integrity has been violated
79: pqh_rtl_shd.constraint_error
80: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
81: When hr_api.unique_integrity_violated Then
82: -- Unique integrity has been violated
83: pqh_rtl_shd.constraint_error
79: pqh_rtl_shd.constraint_error
80: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
81: When hr_api.unique_integrity_violated Then
82: -- Unique integrity has been violated
83: pqh_rtl_shd.constraint_error
84: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
85: When Others Then
86: Raise;
87: End update_dml;
117: -- Internal Row Handler Use Only.
118: --
119: -- {End Of Comments}
120: -- ----------------------------------------------------------------------------
121: Procedure pre_update(p_rec in pqh_rtl_shd.g_rec_type) is
122: --
123: l_proc varchar2(72) := g_package||'pre_update';
124: --
125: Begin
159: -- Internal Row Handler Use Only.
160: --
161: -- {End Of Comments}
162: -- ----------------------------------------------------------------------------
163: Procedure post_update(p_rec in pqh_rtl_shd.g_rec_type) is
164: --
165: l_proc varchar2(72) := g_package||'post_update';
166: --
167: Begin
178: ,p_rule_set_name =>p_rec.rule_set_name
179: ,p_description =>p_rec.description
180: ,p_language =>p_rec.language
181: ,p_source_lang =>p_rec.source_lang
182: ,p_rule_set_name_o =>pqh_rtl_shd.g_old_rec.rule_set_name
183: ,p_description_o =>pqh_rtl_shd.g_old_rec.description
184: ,p_language_o =>pqh_rtl_shd.g_old_rec.language
185: ,p_source_lang_o =>pqh_rtl_shd.g_old_rec.source_lang
186: );
179: ,p_description =>p_rec.description
180: ,p_language =>p_rec.language
181: ,p_source_lang =>p_rec.source_lang
182: ,p_rule_set_name_o =>pqh_rtl_shd.g_old_rec.rule_set_name
183: ,p_description_o =>pqh_rtl_shd.g_old_rec.description
184: ,p_language_o =>pqh_rtl_shd.g_old_rec.language
185: ,p_source_lang_o =>pqh_rtl_shd.g_old_rec.source_lang
186: );
187: --
180: ,p_language =>p_rec.language
181: ,p_source_lang =>p_rec.source_lang
182: ,p_rule_set_name_o =>pqh_rtl_shd.g_old_rec.rule_set_name
183: ,p_description_o =>pqh_rtl_shd.g_old_rec.description
184: ,p_language_o =>pqh_rtl_shd.g_old_rec.language
185: ,p_source_lang_o =>pqh_rtl_shd.g_old_rec.source_lang
186: );
187: --
188: exception
181: ,p_source_lang =>p_rec.source_lang
182: ,p_rule_set_name_o =>pqh_rtl_shd.g_old_rec.rule_set_name
183: ,p_description_o =>pqh_rtl_shd.g_old_rec.description
184: ,p_language_o =>pqh_rtl_shd.g_old_rec.language
185: ,p_source_lang_o =>pqh_rtl_shd.g_old_rec.source_lang
186: );
187: --
188: exception
189: --
243: -- Internal Row Handler Use Only.
244: --
245: -- {End Of Comments}
246: -- ----------------------------------------------------------------------------
247: Procedure convert_defs(p_rec in out nocopy pqh_rtl_shd.g_rec_type) is
248: --
249: l_proc varchar2(72) := g_package||'convert_defs';
250: --
251: Begin
258: -- is being used then we must set to the 'current' argument value.
259: --
260: If (p_rec.rule_set_name = hr_api.g_varchar2) then
261: p_rec.rule_set_name :=
262: pqh_rtl_shd.g_old_rec.rule_set_name;
263: End If;
264: If (p_rec.description = hr_api.g_varchar2) then
265: p_rec.description :=
266: pqh_rtl_shd.g_old_rec.description;
262: pqh_rtl_shd.g_old_rec.rule_set_name;
263: End If;
264: If (p_rec.description = hr_api.g_varchar2) then
265: p_rec.description :=
266: pqh_rtl_shd.g_old_rec.description;
267: End If;
268: If (p_rec.source_lang = hr_api.g_varchar2) then
269: p_rec.source_lang :=
270: pqh_rtl_shd.g_old_rec.source_lang;
266: pqh_rtl_shd.g_old_rec.description;
267: End If;
268: If (p_rec.source_lang = hr_api.g_varchar2) then
269: p_rec.source_lang :=
270: pqh_rtl_shd.g_old_rec.source_lang;
271: End If;
272: --
273: hr_utility.set_location(' Leaving:'||l_proc, 10);
274: --
278: -- |---------------------------------< upd >----------------------------------|
279: -- ----------------------------------------------------------------------------
280: Procedure upd
281: (
282: p_rec in out nocopy pqh_rtl_shd.g_rec_type
283: ) is
284: --
285: l_proc varchar2(72) := g_package||'upd';
286: --
288: hr_utility.set_location('Entering:'||l_proc, 5);
289: --
290: -- We must lock the row which we need to update.
291: --
292: pqh_rtl_shd.lck
293: (
294: p_rec.rule_set_id,
295: p_rec.language
296: );
328: p_language in varchar2,
329: p_source_lang in varchar2 default hr_api.g_varchar2
330: ) is
331: --
332: l_rec pqh_rtl_shd.g_rec_type;
333: l_proc varchar2(72) := g_package||'upd';
334: --
335: Begin
336: hr_utility.set_location('Entering:'||l_proc, 5);
338: -- Call conversion function to turn arguments into the
339: -- l_rec structure.
340: --
341: l_rec :=
342: pqh_rtl_shd.convert_args
343: (
344: p_rule_set_id,
345: p_rule_set_name,
346: p_description,