51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: Procedure update_dml
55: (p_rec in out nocopy pqh_vlp_shd.g_rec_type
56: ) is
57: --
58: l_proc varchar2(72) := g_package||'update_dml';
59: --
92: Exception
93: When hr_api.check_integrity_violated Then
94: -- A check constraint has been violated
95: --
96: pqh_vlp_shd.constraint_error
97: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
98: When hr_api.parent_integrity_violated Then
99: -- Parent integrity has been violated
100: --
97: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
98: When hr_api.parent_integrity_violated Then
99: -- Parent integrity has been violated
100: --
101: pqh_vlp_shd.constraint_error
102: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
103: When hr_api.unique_integrity_violated Then
104: -- Unique integrity has been violated
105: --
102: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
103: When hr_api.unique_integrity_violated Then
104: -- Unique integrity has been violated
105: --
106: pqh_vlp_shd.constraint_error
107: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
108: When Others Then
109: --
110: Raise;
142: --
143: -- {End Of Comments}
144: -- ----------------------------------------------------------------------------
145: Procedure pre_update
146: (p_rec in pqh_vlp_shd.g_rec_type
147: ) is
148: --
149: l_proc varchar2(72) := g_package||'pre_update';
150: --
187: -- {End Of Comments}
188: -- ----------------------------------------------------------------------------
189: Procedure post_update
190: (p_effective_date in date
191: ,p_rec in pqh_vlp_shd.g_rec_type
192: ) is
193: --
194: l_proc varchar2(72) := g_package||'post_update';
195: --
227: => p_rec.validation_status
228: ,p_object_version_number
229: => p_rec.object_version_number
230: ,p_validation_id_o
231: => pqh_vlp_shd.g_old_rec.validation_id
232: ,p_start_date_o
233: => pqh_vlp_shd.g_old_rec.start_date
234: ,p_end_date_o
235: => pqh_vlp_shd.g_old_rec.end_date
229: => p_rec.object_version_number
230: ,p_validation_id_o
231: => pqh_vlp_shd.g_old_rec.validation_id
232: ,p_start_date_o
233: => pqh_vlp_shd.g_old_rec.start_date
234: ,p_end_date_o
235: => pqh_vlp_shd.g_old_rec.end_date
236: ,p_previous_employer_id_o
237: => pqh_vlp_shd.g_old_rec.previous_employer_id
231: => pqh_vlp_shd.g_old_rec.validation_id
232: ,p_start_date_o
233: => pqh_vlp_shd.g_old_rec.start_date
234: ,p_end_date_o
235: => pqh_vlp_shd.g_old_rec.end_date
236: ,p_previous_employer_id_o
237: => pqh_vlp_shd.g_old_rec.previous_employer_id
238: ,p_assignment_category_o
239: => pqh_vlp_shd.g_old_rec.assignment_category
233: => pqh_vlp_shd.g_old_rec.start_date
234: ,p_end_date_o
235: => pqh_vlp_shd.g_old_rec.end_date
236: ,p_previous_employer_id_o
237: => pqh_vlp_shd.g_old_rec.previous_employer_id
238: ,p_assignment_category_o
239: => pqh_vlp_shd.g_old_rec.assignment_category
240: ,p_normal_hours_o
241: => pqh_vlp_shd.g_old_rec.normal_hours
235: => pqh_vlp_shd.g_old_rec.end_date
236: ,p_previous_employer_id_o
237: => pqh_vlp_shd.g_old_rec.previous_employer_id
238: ,p_assignment_category_o
239: => pqh_vlp_shd.g_old_rec.assignment_category
240: ,p_normal_hours_o
241: => pqh_vlp_shd.g_old_rec.normal_hours
242: ,p_frequency_o
243: => pqh_vlp_shd.g_old_rec.frequency
237: => pqh_vlp_shd.g_old_rec.previous_employer_id
238: ,p_assignment_category_o
239: => pqh_vlp_shd.g_old_rec.assignment_category
240: ,p_normal_hours_o
241: => pqh_vlp_shd.g_old_rec.normal_hours
242: ,p_frequency_o
243: => pqh_vlp_shd.g_old_rec.frequency
244: ,p_period_years_o
245: => pqh_vlp_shd.g_old_rec.period_years
239: => pqh_vlp_shd.g_old_rec.assignment_category
240: ,p_normal_hours_o
241: => pqh_vlp_shd.g_old_rec.normal_hours
242: ,p_frequency_o
243: => pqh_vlp_shd.g_old_rec.frequency
244: ,p_period_years_o
245: => pqh_vlp_shd.g_old_rec.period_years
246: ,p_period_months_o
247: => pqh_vlp_shd.g_old_rec.period_months
241: => pqh_vlp_shd.g_old_rec.normal_hours
242: ,p_frequency_o
243: => pqh_vlp_shd.g_old_rec.frequency
244: ,p_period_years_o
245: => pqh_vlp_shd.g_old_rec.period_years
246: ,p_period_months_o
247: => pqh_vlp_shd.g_old_rec.period_months
248: ,p_period_days_o
249: => pqh_vlp_shd.g_old_rec.period_days
243: => pqh_vlp_shd.g_old_rec.frequency
244: ,p_period_years_o
245: => pqh_vlp_shd.g_old_rec.period_years
246: ,p_period_months_o
247: => pqh_vlp_shd.g_old_rec.period_months
248: ,p_period_days_o
249: => pqh_vlp_shd.g_old_rec.period_days
250: ,p_comments_o
251: => pqh_vlp_shd.g_old_rec.comments
245: => pqh_vlp_shd.g_old_rec.period_years
246: ,p_period_months_o
247: => pqh_vlp_shd.g_old_rec.period_months
248: ,p_period_days_o
249: => pqh_vlp_shd.g_old_rec.period_days
250: ,p_comments_o
251: => pqh_vlp_shd.g_old_rec.comments
252: ,p_validation_status_o
253: => pqh_vlp_shd.g_old_rec.validation_status
247: => pqh_vlp_shd.g_old_rec.period_months
248: ,p_period_days_o
249: => pqh_vlp_shd.g_old_rec.period_days
250: ,p_comments_o
251: => pqh_vlp_shd.g_old_rec.comments
252: ,p_validation_status_o
253: => pqh_vlp_shd.g_old_rec.validation_status
254: ,p_object_version_number_o
255: => pqh_vlp_shd.g_old_rec.object_version_number
249: => pqh_vlp_shd.g_old_rec.period_days
250: ,p_comments_o
251: => pqh_vlp_shd.g_old_rec.comments
252: ,p_validation_status_o
253: => pqh_vlp_shd.g_old_rec.validation_status
254: ,p_object_version_number_o
255: => pqh_vlp_shd.g_old_rec.object_version_number
256: );
257: --
251: => pqh_vlp_shd.g_old_rec.comments
252: ,p_validation_status_o
253: => pqh_vlp_shd.g_old_rec.validation_status
254: ,p_object_version_number_o
255: => pqh_vlp_shd.g_old_rec.object_version_number
256: );
257: --
258: exception
259: --
311: --
312: -- {End Of Comments}
313: -- ----------------------------------------------------------------------------
314: Procedure convert_defs
315: (p_rec in out nocopy pqh_vlp_shd.g_rec_type
316: ) is
317: --
318: Begin
319: --
323: -- is being used then we must set to the 'current' argument value.
324: --
325: If (p_rec.validation_id = hr_api.g_number) then
326: p_rec.validation_id :=
327: pqh_vlp_shd.g_old_rec.validation_id;
328: End If;
329: If (p_rec.start_date = hr_api.g_date) then
330: p_rec.start_date :=
331: pqh_vlp_shd.g_old_rec.start_date;
327: pqh_vlp_shd.g_old_rec.validation_id;
328: End If;
329: If (p_rec.start_date = hr_api.g_date) then
330: p_rec.start_date :=
331: pqh_vlp_shd.g_old_rec.start_date;
332: End If;
333: If (p_rec.end_date = hr_api.g_date) then
334: p_rec.end_date :=
335: pqh_vlp_shd.g_old_rec.end_date;
331: pqh_vlp_shd.g_old_rec.start_date;
332: End If;
333: If (p_rec.end_date = hr_api.g_date) then
334: p_rec.end_date :=
335: pqh_vlp_shd.g_old_rec.end_date;
336: End If;
337: If (p_rec.previous_employer_id = hr_api.g_number) then
338: p_rec.previous_employer_id :=
339: pqh_vlp_shd.g_old_rec.previous_employer_id;
335: pqh_vlp_shd.g_old_rec.end_date;
336: End If;
337: If (p_rec.previous_employer_id = hr_api.g_number) then
338: p_rec.previous_employer_id :=
339: pqh_vlp_shd.g_old_rec.previous_employer_id;
340: End If;
341: If (p_rec.assignment_category = hr_api.g_varchar2) then
342: p_rec.assignment_category :=
343: pqh_vlp_shd.g_old_rec.assignment_category;
339: pqh_vlp_shd.g_old_rec.previous_employer_id;
340: End If;
341: If (p_rec.assignment_category = hr_api.g_varchar2) then
342: p_rec.assignment_category :=
343: pqh_vlp_shd.g_old_rec.assignment_category;
344: End If;
345:
346: If (p_rec.normal_hours = hr_api.g_number) then
347: p_rec.normal_hours :=
344: End If;
345:
346: If (p_rec.normal_hours = hr_api.g_number) then
347: p_rec.normal_hours :=
348: pqh_vlp_shd.g_old_rec.normal_hours;
349: End If;
350: If (p_rec.frequency = hr_api.g_varchar2) then
351: p_rec.frequency :=
352: pqh_vlp_shd.g_old_rec.frequency;
348: pqh_vlp_shd.g_old_rec.normal_hours;
349: End If;
350: If (p_rec.frequency = hr_api.g_varchar2) then
351: p_rec.frequency :=
352: pqh_vlp_shd.g_old_rec.frequency;
353: End If;
354: If (p_rec.period_years = hr_api.g_number) then
355: p_rec.period_years :=
356: pqh_vlp_shd.g_old_rec.period_years;
352: pqh_vlp_shd.g_old_rec.frequency;
353: End If;
354: If (p_rec.period_years = hr_api.g_number) then
355: p_rec.period_years :=
356: pqh_vlp_shd.g_old_rec.period_years;
357: End If;
358: If (p_rec.period_months = hr_api.g_number) then
359: p_rec.period_months :=
360: pqh_vlp_shd.g_old_rec.period_months;
356: pqh_vlp_shd.g_old_rec.period_years;
357: End If;
358: If (p_rec.period_months = hr_api.g_number) then
359: p_rec.period_months :=
360: pqh_vlp_shd.g_old_rec.period_months;
361: End If;
362: If (p_rec.period_days = hr_api.g_number) then
363: p_rec.period_days :=
364: pqh_vlp_shd.g_old_rec.period_days;
360: pqh_vlp_shd.g_old_rec.period_months;
361: End If;
362: If (p_rec.period_days = hr_api.g_number) then
363: p_rec.period_days :=
364: pqh_vlp_shd.g_old_rec.period_days;
365: End If;
366: If (p_rec.comments = hr_api.g_varchar2) then
367: p_rec.comments :=
368: pqh_vlp_shd.g_old_rec.comments;
364: pqh_vlp_shd.g_old_rec.period_days;
365: End If;
366: If (p_rec.comments = hr_api.g_varchar2) then
367: p_rec.comments :=
368: pqh_vlp_shd.g_old_rec.comments;
369: End If;
370: If (p_rec.validation_status = hr_api.g_varchar2) then
371: p_rec.validation_status :=
372: pqh_vlp_shd.g_old_rec.validation_status;
368: pqh_vlp_shd.g_old_rec.comments;
369: End If;
370: If (p_rec.validation_status = hr_api.g_varchar2) then
371: p_rec.validation_status :=
372: pqh_vlp_shd.g_old_rec.validation_status;
373: End If;
374: --
375: End convert_defs;
376: --
378: -- |---------------------------------< upd >----------------------------------|
379: -- ----------------------------------------------------------------------------
380: Procedure upd
381: (p_effective_date in date
382: ,p_rec in out nocopy pqh_vlp_shd.g_rec_type
383: ) is
384: --
385: l_proc varchar2(72) := g_package||'upd';
386: --
388: hr_utility.set_location('Entering:'||l_proc, 5);
389: --
390: -- We must lock the row which we need to update.
391: --
392: pqh_vlp_shd.lck
393: (p_rec.validation_period_id
394: ,p_rec.object_version_number
395: );
396: --
448: ,p_comments in varchar2 default hr_api.g_varchar2
449: ,p_validation_status in varchar2 default hr_api.g_varchar2
450: ) is
451: --
452: l_rec pqh_vlp_shd.g_rec_type;
453: l_proc varchar2(72) := g_package||'upd';
454: --
455: Begin
456: hr_utility.set_location('Entering:'||l_proc, 5);
458: -- Call conversion function to turn arguments into the
459: -- l_rec structure.
460: --
461: l_rec :=
462: pqh_vlp_shd.convert_args
463: (p_validation_period_id
464: ,p_validation_id
465: ,p_start_date
466: ,p_end_date