44: -- Internal Row Handler Use Only.
45: --
46: -- {End Of Comments}
47: -- ----------------------------------------------------------------------------
48: Procedure update_dml(p_rec in out nocopy pqh_rst_shd.g_rec_type) is
49: --
50: l_proc varchar2(72) := g_package||'update_dml';
51: --
52: Begin
85: --
86: Exception
87: When hr_api.check_integrity_violated Then
88: -- A check constraint has been violated
89: pqh_rst_shd.constraint_error
90: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
91: When hr_api.parent_integrity_violated Then
92: -- Parent integrity has been violated
93: pqh_rst_shd.constraint_error
89: pqh_rst_shd.constraint_error
90: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
91: When hr_api.parent_integrity_violated Then
92: -- Parent integrity has been violated
93: pqh_rst_shd.constraint_error
94: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
95: When hr_api.unique_integrity_violated Then
96: -- Unique integrity has been violated
97: pqh_rst_shd.constraint_error
93: pqh_rst_shd.constraint_error
94: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
95: When hr_api.unique_integrity_violated Then
96: -- Unique integrity has been violated
97: pqh_rst_shd.constraint_error
98: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
99: When Others Then
100: Raise;
101: End update_dml;
131: -- Internal Row Handler Use Only.
132: --
133: -- {End Of Comments}
134: -- ----------------------------------------------------------------------------
135: Procedure pre_update(p_rec in pqh_rst_shd.g_rec_type) is
136: --
137: l_proc varchar2(72) := g_package||'pre_update';
138: --
139: Begin
174: --
175: -- {End Of Comments}
176: -- ----------------------------------------------------------------------------
177: Procedure post_update(
178: p_effective_date in date,p_rec in pqh_rst_shd.g_rec_type) is
179: --
180: l_proc varchar2(72) := g_package||'post_update';
181: --
182: Begin
203: ,p_starting_organization_id =>p_rec.starting_organization_id
204: ,p_seeded_rule_flag =>p_rec.seeded_rule_flag
205: ,p_status =>p_rec.status
206: ,p_effective_date =>p_effective_date
207: ,p_business_group_id_o =>pqh_rst_shd.g_old_rec.business_group_id
208: ,p_rule_set_name_o =>pqh_rst_shd.g_old_rec.rule_set_name
209: ,p_organization_structure_id_o =>pqh_rst_shd.g_old_rec.organization_structure_id
210: ,p_organization_id_o =>pqh_rst_shd.g_old_rec.organization_id
211: ,p_referenced_rule_set_id_o =>pqh_rst_shd.g_old_rec.referenced_rule_set_id
204: ,p_seeded_rule_flag =>p_rec.seeded_rule_flag
205: ,p_status =>p_rec.status
206: ,p_effective_date =>p_effective_date
207: ,p_business_group_id_o =>pqh_rst_shd.g_old_rec.business_group_id
208: ,p_rule_set_name_o =>pqh_rst_shd.g_old_rec.rule_set_name
209: ,p_organization_structure_id_o =>pqh_rst_shd.g_old_rec.organization_structure_id
210: ,p_organization_id_o =>pqh_rst_shd.g_old_rec.organization_id
211: ,p_referenced_rule_set_id_o =>pqh_rst_shd.g_old_rec.referenced_rule_set_id
212: ,p_rule_level_cd_o =>pqh_rst_shd.g_old_rec.rule_level_cd
205: ,p_status =>p_rec.status
206: ,p_effective_date =>p_effective_date
207: ,p_business_group_id_o =>pqh_rst_shd.g_old_rec.business_group_id
208: ,p_rule_set_name_o =>pqh_rst_shd.g_old_rec.rule_set_name
209: ,p_organization_structure_id_o =>pqh_rst_shd.g_old_rec.organization_structure_id
210: ,p_organization_id_o =>pqh_rst_shd.g_old_rec.organization_id
211: ,p_referenced_rule_set_id_o =>pqh_rst_shd.g_old_rec.referenced_rule_set_id
212: ,p_rule_level_cd_o =>pqh_rst_shd.g_old_rec.rule_level_cd
213: ,p_object_version_number_o =>pqh_rst_shd.g_old_rec.object_version_number
206: ,p_effective_date =>p_effective_date
207: ,p_business_group_id_o =>pqh_rst_shd.g_old_rec.business_group_id
208: ,p_rule_set_name_o =>pqh_rst_shd.g_old_rec.rule_set_name
209: ,p_organization_structure_id_o =>pqh_rst_shd.g_old_rec.organization_structure_id
210: ,p_organization_id_o =>pqh_rst_shd.g_old_rec.organization_id
211: ,p_referenced_rule_set_id_o =>pqh_rst_shd.g_old_rec.referenced_rule_set_id
212: ,p_rule_level_cd_o =>pqh_rst_shd.g_old_rec.rule_level_cd
213: ,p_object_version_number_o =>pqh_rst_shd.g_old_rec.object_version_number
214: ,p_short_name_o =>pqh_rst_shd.g_old_rec.short_name
207: ,p_business_group_id_o =>pqh_rst_shd.g_old_rec.business_group_id
208: ,p_rule_set_name_o =>pqh_rst_shd.g_old_rec.rule_set_name
209: ,p_organization_structure_id_o =>pqh_rst_shd.g_old_rec.organization_structure_id
210: ,p_organization_id_o =>pqh_rst_shd.g_old_rec.organization_id
211: ,p_referenced_rule_set_id_o =>pqh_rst_shd.g_old_rec.referenced_rule_set_id
212: ,p_rule_level_cd_o =>pqh_rst_shd.g_old_rec.rule_level_cd
213: ,p_object_version_number_o =>pqh_rst_shd.g_old_rec.object_version_number
214: ,p_short_name_o =>pqh_rst_shd.g_old_rec.short_name
215: ,p_rule_applicability_o =>pqh_rst_shd.g_old_rec.rule_applicability
208: ,p_rule_set_name_o =>pqh_rst_shd.g_old_rec.rule_set_name
209: ,p_organization_structure_id_o =>pqh_rst_shd.g_old_rec.organization_structure_id
210: ,p_organization_id_o =>pqh_rst_shd.g_old_rec.organization_id
211: ,p_referenced_rule_set_id_o =>pqh_rst_shd.g_old_rec.referenced_rule_set_id
212: ,p_rule_level_cd_o =>pqh_rst_shd.g_old_rec.rule_level_cd
213: ,p_object_version_number_o =>pqh_rst_shd.g_old_rec.object_version_number
214: ,p_short_name_o =>pqh_rst_shd.g_old_rec.short_name
215: ,p_rule_applicability_o =>pqh_rst_shd.g_old_rec.rule_applicability
216: ,p_rule_category_o =>pqh_rst_shd.g_old_rec.rule_category
209: ,p_organization_structure_id_o =>pqh_rst_shd.g_old_rec.organization_structure_id
210: ,p_organization_id_o =>pqh_rst_shd.g_old_rec.organization_id
211: ,p_referenced_rule_set_id_o =>pqh_rst_shd.g_old_rec.referenced_rule_set_id
212: ,p_rule_level_cd_o =>pqh_rst_shd.g_old_rec.rule_level_cd
213: ,p_object_version_number_o =>pqh_rst_shd.g_old_rec.object_version_number
214: ,p_short_name_o =>pqh_rst_shd.g_old_rec.short_name
215: ,p_rule_applicability_o =>pqh_rst_shd.g_old_rec.rule_applicability
216: ,p_rule_category_o =>pqh_rst_shd.g_old_rec.rule_category
217: ,p_starting_organization_id_o =>pqh_rst_shd.g_old_rec.starting_organization_id
210: ,p_organization_id_o =>pqh_rst_shd.g_old_rec.organization_id
211: ,p_referenced_rule_set_id_o =>pqh_rst_shd.g_old_rec.referenced_rule_set_id
212: ,p_rule_level_cd_o =>pqh_rst_shd.g_old_rec.rule_level_cd
213: ,p_object_version_number_o =>pqh_rst_shd.g_old_rec.object_version_number
214: ,p_short_name_o =>pqh_rst_shd.g_old_rec.short_name
215: ,p_rule_applicability_o =>pqh_rst_shd.g_old_rec.rule_applicability
216: ,p_rule_category_o =>pqh_rst_shd.g_old_rec.rule_category
217: ,p_starting_organization_id_o =>pqh_rst_shd.g_old_rec.starting_organization_id
218: ,p_seeded_rule_flag_o =>pqh_rst_shd.g_old_rec.seeded_rule_flag
211: ,p_referenced_rule_set_id_o =>pqh_rst_shd.g_old_rec.referenced_rule_set_id
212: ,p_rule_level_cd_o =>pqh_rst_shd.g_old_rec.rule_level_cd
213: ,p_object_version_number_o =>pqh_rst_shd.g_old_rec.object_version_number
214: ,p_short_name_o =>pqh_rst_shd.g_old_rec.short_name
215: ,p_rule_applicability_o =>pqh_rst_shd.g_old_rec.rule_applicability
216: ,p_rule_category_o =>pqh_rst_shd.g_old_rec.rule_category
217: ,p_starting_organization_id_o =>pqh_rst_shd.g_old_rec.starting_organization_id
218: ,p_seeded_rule_flag_o =>pqh_rst_shd.g_old_rec.seeded_rule_flag
219: ,p_status_o =>pqh_rst_shd.g_old_rec.status
212: ,p_rule_level_cd_o =>pqh_rst_shd.g_old_rec.rule_level_cd
213: ,p_object_version_number_o =>pqh_rst_shd.g_old_rec.object_version_number
214: ,p_short_name_o =>pqh_rst_shd.g_old_rec.short_name
215: ,p_rule_applicability_o =>pqh_rst_shd.g_old_rec.rule_applicability
216: ,p_rule_category_o =>pqh_rst_shd.g_old_rec.rule_category
217: ,p_starting_organization_id_o =>pqh_rst_shd.g_old_rec.starting_organization_id
218: ,p_seeded_rule_flag_o =>pqh_rst_shd.g_old_rec.seeded_rule_flag
219: ,p_status_o =>pqh_rst_shd.g_old_rec.status
220: );
213: ,p_object_version_number_o =>pqh_rst_shd.g_old_rec.object_version_number
214: ,p_short_name_o =>pqh_rst_shd.g_old_rec.short_name
215: ,p_rule_applicability_o =>pqh_rst_shd.g_old_rec.rule_applicability
216: ,p_rule_category_o =>pqh_rst_shd.g_old_rec.rule_category
217: ,p_starting_organization_id_o =>pqh_rst_shd.g_old_rec.starting_organization_id
218: ,p_seeded_rule_flag_o =>pqh_rst_shd.g_old_rec.seeded_rule_flag
219: ,p_status_o =>pqh_rst_shd.g_old_rec.status
220: );
221: --
214: ,p_short_name_o =>pqh_rst_shd.g_old_rec.short_name
215: ,p_rule_applicability_o =>pqh_rst_shd.g_old_rec.rule_applicability
216: ,p_rule_category_o =>pqh_rst_shd.g_old_rec.rule_category
217: ,p_starting_organization_id_o =>pqh_rst_shd.g_old_rec.starting_organization_id
218: ,p_seeded_rule_flag_o =>pqh_rst_shd.g_old_rec.seeded_rule_flag
219: ,p_status_o =>pqh_rst_shd.g_old_rec.status
220: );
221: --
222: exception
215: ,p_rule_applicability_o =>pqh_rst_shd.g_old_rec.rule_applicability
216: ,p_rule_category_o =>pqh_rst_shd.g_old_rec.rule_category
217: ,p_starting_organization_id_o =>pqh_rst_shd.g_old_rec.starting_organization_id
218: ,p_seeded_rule_flag_o =>pqh_rst_shd.g_old_rec.seeded_rule_flag
219: ,p_status_o =>pqh_rst_shd.g_old_rec.status
220: );
221: --
222: exception
223: --
277: -- Internal Row Handler Use Only.
278: --
279: -- {End Of Comments}
280: -- ----------------------------------------------------------------------------
281: Procedure convert_defs(p_rec in out nocopy pqh_rst_shd.g_rec_type) is
282: --
283: l_proc varchar2(72) := g_package||'convert_defs';
284: --
285: Begin
292: -- is being used then we must set to the 'current' argument value.
293: --
294: If (p_rec.business_group_id = hr_api.g_number) then
295: p_rec.business_group_id :=
296: pqh_rst_shd.g_old_rec.business_group_id;
297: End If;
298: If (p_rec.rule_set_name = hr_api.g_varchar2) then
299: p_rec.rule_set_name :=
300: pqh_rst_shd.g_old_rec.rule_set_name;
296: pqh_rst_shd.g_old_rec.business_group_id;
297: End If;
298: If (p_rec.rule_set_name = hr_api.g_varchar2) then
299: p_rec.rule_set_name :=
300: pqh_rst_shd.g_old_rec.rule_set_name;
301: End If;
302: If (p_rec.organization_structure_id = hr_api.g_number) then
303: p_rec.organization_structure_id :=
304: pqh_rst_shd.g_old_rec.organization_structure_id;
300: pqh_rst_shd.g_old_rec.rule_set_name;
301: End If;
302: If (p_rec.organization_structure_id = hr_api.g_number) then
303: p_rec.organization_structure_id :=
304: pqh_rst_shd.g_old_rec.organization_structure_id;
305: End If;
306: If (p_rec.organization_id = hr_api.g_number) then
307: p_rec.organization_id :=
308: pqh_rst_shd.g_old_rec.organization_id;
304: pqh_rst_shd.g_old_rec.organization_structure_id;
305: End If;
306: If (p_rec.organization_id = hr_api.g_number) then
307: p_rec.organization_id :=
308: pqh_rst_shd.g_old_rec.organization_id;
309: End If;
310: If (p_rec.referenced_rule_set_id = hr_api.g_number) then
311: p_rec.referenced_rule_set_id :=
312: pqh_rst_shd.g_old_rec.referenced_rule_set_id;
308: pqh_rst_shd.g_old_rec.organization_id;
309: End If;
310: If (p_rec.referenced_rule_set_id = hr_api.g_number) then
311: p_rec.referenced_rule_set_id :=
312: pqh_rst_shd.g_old_rec.referenced_rule_set_id;
313: End If;
314: If (p_rec.rule_level_cd = hr_api.g_varchar2) then
315: p_rec.rule_level_cd :=
316: pqh_rst_shd.g_old_rec.rule_level_cd;
312: pqh_rst_shd.g_old_rec.referenced_rule_set_id;
313: End If;
314: If (p_rec.rule_level_cd = hr_api.g_varchar2) then
315: p_rec.rule_level_cd :=
316: pqh_rst_shd.g_old_rec.rule_level_cd;
317: End If;
318: If (p_rec.short_name = hr_api.g_varchar2) then
319: p_rec.short_name :=
320: pqh_rst_shd.g_old_rec.short_name;
316: pqh_rst_shd.g_old_rec.rule_level_cd;
317: End If;
318: If (p_rec.short_name = hr_api.g_varchar2) then
319: p_rec.short_name :=
320: pqh_rst_shd.g_old_rec.short_name;
321: End If;
322: If (p_rec.rule_applicability = hr_api.g_varchar2) then
323: p_rec.rule_applicability :=
324: pqh_rst_shd.g_old_rec.rule_applicability;
320: pqh_rst_shd.g_old_rec.short_name;
321: End If;
322: If (p_rec.rule_applicability = hr_api.g_varchar2) then
323: p_rec.rule_applicability :=
324: pqh_rst_shd.g_old_rec.rule_applicability;
325: End If;
326: If (p_rec.rule_category = hr_api.g_varchar2) then
327: p_rec.rule_category :=
328: pqh_rst_shd.g_old_rec.rule_category;
324: pqh_rst_shd.g_old_rec.rule_applicability;
325: End If;
326: If (p_rec.rule_category = hr_api.g_varchar2) then
327: p_rec.rule_category :=
328: pqh_rst_shd.g_old_rec.rule_category;
329: End If;
330: If (p_rec.starting_organization_id = hr_api.g_number) then
331: p_rec.starting_organization_id :=
332: pqh_rst_shd.g_old_rec.starting_organization_id;
328: pqh_rst_shd.g_old_rec.rule_category;
329: End If;
330: If (p_rec.starting_organization_id = hr_api.g_number) then
331: p_rec.starting_organization_id :=
332: pqh_rst_shd.g_old_rec.starting_organization_id;
333: End If;
334: If (p_rec.seeded_rule_flag = hr_api.g_varchar2) then
335: p_rec.seeded_rule_flag :=
336: pqh_rst_shd.g_old_rec.seeded_rule_flag;
332: pqh_rst_shd.g_old_rec.starting_organization_id;
333: End If;
334: If (p_rec.seeded_rule_flag = hr_api.g_varchar2) then
335: p_rec.seeded_rule_flag :=
336: pqh_rst_shd.g_old_rec.seeded_rule_flag;
337: End If;
338: If (p_rec.status = hr_api.g_varchar2) then
339: p_rec.status :=
340: pqh_rst_shd.g_old_rec.status;
336: pqh_rst_shd.g_old_rec.seeded_rule_flag;
337: End If;
338: If (p_rec.status = hr_api.g_varchar2) then
339: p_rec.status :=
340: pqh_rst_shd.g_old_rec.status;
341: End If;
342: --
343: hr_utility.set_location(' Leaving:'||l_proc, 10);
344: --
349: -- ----------------------------------------------------------------------------
350: Procedure upd
351: (
352: p_effective_date in date,
353: p_rec in out nocopy pqh_rst_shd.g_rec_type
354: ) is
355: --
356: l_proc varchar2(72) := g_package||'upd';
357: --
359: hr_utility.set_location('Entering:'||l_proc, 5);
360: --
361: -- We must lock the row which we need to update.
362: --
363: pqh_rst_shd.lck
364: (
365: p_rec.rule_set_id,
366: p_rec.object_version_number
367: );
411: p_seeded_rule_flag in varchar2 default hr_api.g_varchar2,
412: p_status in varchar2 default hr_api.g_varchar2
413: ) is
414: --
415: l_rec pqh_rst_shd.g_rec_type;
416: l_proc varchar2(72) := g_package||'upd';
417: --
418: Begin
419: hr_utility.set_location('Entering:'||l_proc, 5);
421: -- Call conversion function to turn arguments into the
422: -- l_rec structure.
423: --
424: l_rec :=
425: pqh_rst_shd.convert_args
426: (
427: p_business_group_id,
428: p_rule_set_id,
429: p_rule_set_name,