50: -- Internal Table Handler Use Only.
51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: Procedure update_dml(p_rec in out nocopy per_za_eqt_shd.g_rec_type) is
55: --
56: l_proc varchar2(72) := g_package||'update_dml';
57: l_dummy number;
58: --
62: -- Increment the object version
63: --
64: p_rec.object_version_number := p_rec.object_version_number + 1;
65: --
66: per_za_eqt_shd.g_api_dml := true; -- Set the api dml status
67: --
68: -- Update the per_qualification_types Row
69: --
70: update per_qualification_types
117: p_rec.nqf_qualification_type);
118: end;
119:
120: --
121: per_za_eqt_shd.g_api_dml := false; -- Unset the api dml status
122: --
123: hr_utility.set_location(' Leaving:'||l_proc, 10);
124: --
125: Exception
124: --
125: Exception
126: When hr_api.check_integrity_violated Then
127: -- A check constraint has been violated
128: per_za_eqt_shd.g_api_dml := false; -- Unset the api dml status
129: per_za_eqt_shd.constraint_error
130: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
131: When hr_api.parent_integrity_violated Then
132: -- Parent integrity has been violated
125: Exception
126: When hr_api.check_integrity_violated Then
127: -- A check constraint has been violated
128: per_za_eqt_shd.g_api_dml := false; -- Unset the api dml status
129: per_za_eqt_shd.constraint_error
130: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
131: When hr_api.parent_integrity_violated Then
132: -- Parent integrity has been violated
133: per_za_eqt_shd.g_api_dml := false; -- Unset the api dml status
129: per_za_eqt_shd.constraint_error
130: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
131: When hr_api.parent_integrity_violated Then
132: -- Parent integrity has been violated
133: per_za_eqt_shd.g_api_dml := false; -- Unset the api dml status
134: per_za_eqt_shd.constraint_error
135: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
136: When hr_api.unique_integrity_violated Then
137: -- Unique integrity has been violated
130: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
131: When hr_api.parent_integrity_violated Then
132: -- Parent integrity has been violated
133: per_za_eqt_shd.g_api_dml := false; -- Unset the api dml status
134: per_za_eqt_shd.constraint_error
135: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
136: When hr_api.unique_integrity_violated Then
137: -- Unique integrity has been violated
138: per_za_eqt_shd.g_api_dml := false; -- Unset the api dml status
134: per_za_eqt_shd.constraint_error
135: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
136: When hr_api.unique_integrity_violated Then
137: -- Unique integrity has been violated
138: per_za_eqt_shd.g_api_dml := false; -- Unset the api dml status
139: per_za_eqt_shd.constraint_error
140: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
141: When Others Then
142: per_za_eqt_shd.g_api_dml := false; -- Unset the api dml status
135: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
136: When hr_api.unique_integrity_violated Then
137: -- Unique integrity has been violated
138: per_za_eqt_shd.g_api_dml := false; -- Unset the api dml status
139: per_za_eqt_shd.constraint_error
140: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
141: When Others Then
142: per_za_eqt_shd.g_api_dml := false; -- Unset the api dml status
143: Raise;
138: per_za_eqt_shd.g_api_dml := false; -- Unset the api dml status
139: per_za_eqt_shd.constraint_error
140: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
141: When Others Then
142: per_za_eqt_shd.g_api_dml := false; -- Unset the api dml status
143: Raise;
144: End update_dml;
145: --
146: -- ----------------------------------------------------------------------------
174: -- Internal Table Handler Use Only.
175: --
176: -- {End Of Comments}
177: -- ----------------------------------------------------------------------------
178: Procedure pre_update(p_rec in per_za_eqt_shd.g_rec_type) is
179: --
180: l_proc varchar2(72) := g_package||'pre_update';
181: --
182: Begin
216: -- Internal Table Handler Use Only.
217: --
218: -- {End Of Comments}
219: -- ----------------------------------------------------------------------------
220: Procedure post_update(p_rec in per_za_eqt_shd.g_rec_type) is
221: --
222: l_proc varchar2(72) := g_package||'post_update';
223: --
224: Begin
270: -- Internal Table Handler Use Only.
271: --
272: -- {End Of Comments}
273: -- ----------------------------------------------------------------------------
274: Procedure convert_defs(p_rec in out nocopy per_za_eqt_shd.g_rec_type) is
275: --
276: l_proc varchar2(72) := g_package||'convert_defs';
277: --
278: Begin
285: -- is being used then we must set to the 'current' argument value.
286: --
287: If (p_rec.name = hr_api.g_varchar2) then
288: p_rec.name :=
289: per_za_eqt_shd.g_old_rec.name;
290: End If;
291: If (p_rec.nqf_qualification_type = hr_api.g_varchar2) then
292: p_rec.nqf_qualification_type :=
293: per_za_eqt_shd.g_old_rec.nqf_qualification_type;
289: per_za_eqt_shd.g_old_rec.name;
290: End If;
291: If (p_rec.nqf_qualification_type = hr_api.g_varchar2) then
292: p_rec.nqf_qualification_type :=
293: per_za_eqt_shd.g_old_rec.nqf_qualification_type;
294: End If;
295: If (p_rec.category = hr_api.g_varchar2) then
296: p_rec.category :=
297: per_za_eqt_shd.g_old_rec.category;
293: per_za_eqt_shd.g_old_rec.nqf_qualification_type;
294: End If;
295: If (p_rec.category = hr_api.g_varchar2) then
296: p_rec.category :=
297: per_za_eqt_shd.g_old_rec.category;
298: End If;
299: If (p_rec.rank = hr_api.g_number) then
300: p_rec.rank :=
301: per_za_eqt_shd.g_old_rec.rank;
297: per_za_eqt_shd.g_old_rec.category;
298: End If;
299: If (p_rec.rank = hr_api.g_number) then
300: p_rec.rank :=
301: per_za_eqt_shd.g_old_rec.rank;
302: End If;
303: If (p_rec.attribute_category = hr_api.g_varchar2) then
304: p_rec.attribute_category :=
305: per_za_eqt_shd.g_old_rec.attribute_category;
301: per_za_eqt_shd.g_old_rec.rank;
302: End If;
303: If (p_rec.attribute_category = hr_api.g_varchar2) then
304: p_rec.attribute_category :=
305: per_za_eqt_shd.g_old_rec.attribute_category;
306: End If;
307: If (p_rec.attribute1 = hr_api.g_varchar2) then
308: p_rec.attribute1 :=
309: per_za_eqt_shd.g_old_rec.attribute1;
305: per_za_eqt_shd.g_old_rec.attribute_category;
306: End If;
307: If (p_rec.attribute1 = hr_api.g_varchar2) then
308: p_rec.attribute1 :=
309: per_za_eqt_shd.g_old_rec.attribute1;
310: End If;
311: If (p_rec.attribute2 = hr_api.g_varchar2) then
312: p_rec.attribute2 :=
313: per_za_eqt_shd.g_old_rec.attribute2;
309: per_za_eqt_shd.g_old_rec.attribute1;
310: End If;
311: If (p_rec.attribute2 = hr_api.g_varchar2) then
312: p_rec.attribute2 :=
313: per_za_eqt_shd.g_old_rec.attribute2;
314: End If;
315: If (p_rec.attribute3 = hr_api.g_varchar2) then
316: p_rec.attribute3 :=
317: per_za_eqt_shd.g_old_rec.attribute3;
313: per_za_eqt_shd.g_old_rec.attribute2;
314: End If;
315: If (p_rec.attribute3 = hr_api.g_varchar2) then
316: p_rec.attribute3 :=
317: per_za_eqt_shd.g_old_rec.attribute3;
318: End If;
319: If (p_rec.attribute4 = hr_api.g_varchar2) then
320: p_rec.attribute4 :=
321: per_za_eqt_shd.g_old_rec.attribute4;
317: per_za_eqt_shd.g_old_rec.attribute3;
318: End If;
319: If (p_rec.attribute4 = hr_api.g_varchar2) then
320: p_rec.attribute4 :=
321: per_za_eqt_shd.g_old_rec.attribute4;
322: End If;
323: If (p_rec.attribute5 = hr_api.g_varchar2) then
324: p_rec.attribute5 :=
325: per_za_eqt_shd.g_old_rec.attribute5;
321: per_za_eqt_shd.g_old_rec.attribute4;
322: End If;
323: If (p_rec.attribute5 = hr_api.g_varchar2) then
324: p_rec.attribute5 :=
325: per_za_eqt_shd.g_old_rec.attribute5;
326: End If;
327: If (p_rec.attribute6 = hr_api.g_varchar2) then
328: p_rec.attribute6 :=
329: per_za_eqt_shd.g_old_rec.attribute6;
325: per_za_eqt_shd.g_old_rec.attribute5;
326: End If;
327: If (p_rec.attribute6 = hr_api.g_varchar2) then
328: p_rec.attribute6 :=
329: per_za_eqt_shd.g_old_rec.attribute6;
330: End If;
331: If (p_rec.attribute7 = hr_api.g_varchar2) then
332: p_rec.attribute7 :=
333: per_za_eqt_shd.g_old_rec.attribute7;
329: per_za_eqt_shd.g_old_rec.attribute6;
330: End If;
331: If (p_rec.attribute7 = hr_api.g_varchar2) then
332: p_rec.attribute7 :=
333: per_za_eqt_shd.g_old_rec.attribute7;
334: End If;
335: If (p_rec.attribute8 = hr_api.g_varchar2) then
336: p_rec.attribute8 :=
337: per_za_eqt_shd.g_old_rec.attribute8;
333: per_za_eqt_shd.g_old_rec.attribute7;
334: End If;
335: If (p_rec.attribute8 = hr_api.g_varchar2) then
336: p_rec.attribute8 :=
337: per_za_eqt_shd.g_old_rec.attribute8;
338: End If;
339: If (p_rec.attribute9 = hr_api.g_varchar2) then
340: p_rec.attribute9 :=
341: per_za_eqt_shd.g_old_rec.attribute9;
337: per_za_eqt_shd.g_old_rec.attribute8;
338: End If;
339: If (p_rec.attribute9 = hr_api.g_varchar2) then
340: p_rec.attribute9 :=
341: per_za_eqt_shd.g_old_rec.attribute9;
342: End If;
343: If (p_rec.attribute10 = hr_api.g_varchar2) then
344: p_rec.attribute10 :=
345: per_za_eqt_shd.g_old_rec.attribute10;
341: per_za_eqt_shd.g_old_rec.attribute9;
342: End If;
343: If (p_rec.attribute10 = hr_api.g_varchar2) then
344: p_rec.attribute10 :=
345: per_za_eqt_shd.g_old_rec.attribute10;
346: End If;
347: If (p_rec.attribute11 = hr_api.g_varchar2) then
348: p_rec.attribute11 :=
349: per_za_eqt_shd.g_old_rec.attribute11;
345: per_za_eqt_shd.g_old_rec.attribute10;
346: End If;
347: If (p_rec.attribute11 = hr_api.g_varchar2) then
348: p_rec.attribute11 :=
349: per_za_eqt_shd.g_old_rec.attribute11;
350: End If;
351: If (p_rec.attribute12 = hr_api.g_varchar2) then
352: p_rec.attribute12 :=
353: per_za_eqt_shd.g_old_rec.attribute12;
349: per_za_eqt_shd.g_old_rec.attribute11;
350: End If;
351: If (p_rec.attribute12 = hr_api.g_varchar2) then
352: p_rec.attribute12 :=
353: per_za_eqt_shd.g_old_rec.attribute12;
354: End If;
355: If (p_rec.attribute13 = hr_api.g_varchar2) then
356: p_rec.attribute13 :=
357: per_za_eqt_shd.g_old_rec.attribute13;
353: per_za_eqt_shd.g_old_rec.attribute12;
354: End If;
355: If (p_rec.attribute13 = hr_api.g_varchar2) then
356: p_rec.attribute13 :=
357: per_za_eqt_shd.g_old_rec.attribute13;
358: End If;
359: If (p_rec.attribute14 = hr_api.g_varchar2) then
360: p_rec.attribute14 :=
361: per_za_eqt_shd.g_old_rec.attribute14;
357: per_za_eqt_shd.g_old_rec.attribute13;
358: End If;
359: If (p_rec.attribute14 = hr_api.g_varchar2) then
360: p_rec.attribute14 :=
361: per_za_eqt_shd.g_old_rec.attribute14;
362: End If;
363: If (p_rec.attribute15 = hr_api.g_varchar2) then
364: p_rec.attribute15 :=
365: per_za_eqt_shd.g_old_rec.attribute15;
361: per_za_eqt_shd.g_old_rec.attribute14;
362: End If;
363: If (p_rec.attribute15 = hr_api.g_varchar2) then
364: p_rec.attribute15 :=
365: per_za_eqt_shd.g_old_rec.attribute15;
366: End If;
367: If (p_rec.attribute16 = hr_api.g_varchar2) then
368: p_rec.attribute16 :=
369: per_za_eqt_shd.g_old_rec.attribute16;
365: per_za_eqt_shd.g_old_rec.attribute15;
366: End If;
367: If (p_rec.attribute16 = hr_api.g_varchar2) then
368: p_rec.attribute16 :=
369: per_za_eqt_shd.g_old_rec.attribute16;
370: End If;
371: If (p_rec.attribute17 = hr_api.g_varchar2) then
372: p_rec.attribute17 :=
373: per_za_eqt_shd.g_old_rec.attribute17;
369: per_za_eqt_shd.g_old_rec.attribute16;
370: End If;
371: If (p_rec.attribute17 = hr_api.g_varchar2) then
372: p_rec.attribute17 :=
373: per_za_eqt_shd.g_old_rec.attribute17;
374: End If;
375: If (p_rec.attribute18 = hr_api.g_varchar2) then
376: p_rec.attribute18 :=
377: per_za_eqt_shd.g_old_rec.attribute18;
373: per_za_eqt_shd.g_old_rec.attribute17;
374: End If;
375: If (p_rec.attribute18 = hr_api.g_varchar2) then
376: p_rec.attribute18 :=
377: per_za_eqt_shd.g_old_rec.attribute18;
378: End If;
379: If (p_rec.attribute19 = hr_api.g_varchar2) then
380: p_rec.attribute19 :=
381: per_za_eqt_shd.g_old_rec.attribute19;
377: per_za_eqt_shd.g_old_rec.attribute18;
378: End If;
379: If (p_rec.attribute19 = hr_api.g_varchar2) then
380: p_rec.attribute19 :=
381: per_za_eqt_shd.g_old_rec.attribute19;
382: End If;
383: If (p_rec.attribute20 = hr_api.g_varchar2) then
384: p_rec.attribute20 :=
385: per_za_eqt_shd.g_old_rec.attribute20;
381: per_za_eqt_shd.g_old_rec.attribute19;
382: End If;
383: If (p_rec.attribute20 = hr_api.g_varchar2) then
384: p_rec.attribute20 :=
385: per_za_eqt_shd.g_old_rec.attribute20;
386: End If;
387:
388: --
389: hr_utility.set_location(' Leaving:'||l_proc, 10);
394: -- |---------------------------------< upd >----------------------------------|
395: -- ----------------------------------------------------------------------------
396: Procedure upd
397: (
398: p_rec in out nocopy per_za_eqt_shd.g_rec_type,
399: p_effective_date in date,
400: p_validate in boolean default false
401: ) is
402: --
415: End If;
416: --
417: -- We must lock the row which we need to update.
418: --
419: per_za_eqt_shd.lck
420: (
421: p_rec.qualification_type_id,
422: p_rec.object_version_number
423: );
494: p_effective_date in date,
495: p_validate in boolean default false
496: ) is
497: --
498: l_rec per_za_eqt_shd.g_rec_type;
499: l_proc varchar2(72) := g_package||'upd';
500: --
501: Begin
502: hr_utility.set_location('Entering:'||l_proc, 5);
504: -- Call conversion function to turn arguments into the
505: -- l_rec structure.
506: --
507: l_rec :=
508: per_za_eqt_shd.convert_args
509: (
510: p_qualification_type_id,
511: p_nqf_qualification_type,
512: p_name,