50: -- Internal Table Handler Use Only.
51: --
52: -- {End Of Comments}
53: -- ----------------------------------------------------------------------------
54: Procedure update_dml(p_rec in out nocopy per_apl_shd.g_rec_type) is
55: --
56: l_proc varchar2(72) := g_package||'update_dml';
57: --
58: Begin
61: -- Increment the object version
62: --
63: p_rec.object_version_number := p_rec.object_version_number + 1;
64: --
65: per_apl_shd.g_api_dml := true; -- Set the api dml status
66: --
67: -- Update the per_applications Row
68: --
69: update per_applications
103: appl_attribute20 = p_rec.appl_attribute20,
104: object_version_number = p_rec.object_version_number
105: where application_id = p_rec.application_id;
106: --
107: per_apl_shd.g_api_dml := false; -- Unset the api dml status
108: --
109: hr_utility.set_location(' Leaving:'||l_proc, 10);
110: --
111: Exception
110: --
111: Exception
112: When hr_api.check_integrity_violated Then
113: -- A check constraint has been violated
114: per_apl_shd.g_api_dml := false; -- Unset the api dml status
115: per_apl_shd.constraint_error
116: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
117: When hr_api.parent_integrity_violated Then
118: -- Parent integrity has been violated
111: Exception
112: When hr_api.check_integrity_violated Then
113: -- A check constraint has been violated
114: per_apl_shd.g_api_dml := false; -- Unset the api dml status
115: per_apl_shd.constraint_error
116: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
117: When hr_api.parent_integrity_violated Then
118: -- Parent integrity has been violated
119: per_apl_shd.g_api_dml := false; -- Unset the api dml status
115: per_apl_shd.constraint_error
116: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
117: When hr_api.parent_integrity_violated Then
118: -- Parent integrity has been violated
119: per_apl_shd.g_api_dml := false; -- Unset the api dml status
120: per_apl_shd.constraint_error
121: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
122: When hr_api.unique_integrity_violated Then
123: -- Unique integrity has been violated
116: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
117: When hr_api.parent_integrity_violated Then
118: -- Parent integrity has been violated
119: per_apl_shd.g_api_dml := false; -- Unset the api dml status
120: per_apl_shd.constraint_error
121: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
122: When hr_api.unique_integrity_violated Then
123: -- Unique integrity has been violated
124: per_apl_shd.g_api_dml := false; -- Unset the api dml status
120: per_apl_shd.constraint_error
121: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
122: When hr_api.unique_integrity_violated Then
123: -- Unique integrity has been violated
124: per_apl_shd.g_api_dml := false; -- Unset the api dml status
125: per_apl_shd.constraint_error
126: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
127: When Others Then
128: per_apl_shd.g_api_dml := false; -- Unset the api dml status
121: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
122: When hr_api.unique_integrity_violated Then
123: -- Unique integrity has been violated
124: per_apl_shd.g_api_dml := false; -- Unset the api dml status
125: per_apl_shd.constraint_error
126: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
127: When Others Then
128: per_apl_shd.g_api_dml := false; -- Unset the api dml status
129: Raise;
124: per_apl_shd.g_api_dml := false; -- Unset the api dml status
125: per_apl_shd.constraint_error
126: (p_constraint_name => hr_api.strip_constraint_name(SQLERRM));
127: When Others Then
128: per_apl_shd.g_api_dml := false; -- Unset the api dml status
129: Raise;
130: End update_dml;
131: --
132: -- ----------------------------------------------------------------------------
160: -- Internal Table Handler Use Only.
161: --
162: -- {End Of Comments}
163: -- ----------------------------------------------------------------------------
164: Procedure pre_update(p_rec in per_apl_shd.g_rec_type) is
165: --
166: l_proc varchar2(72) := g_package||'pre_update';
167: --
168: Begin
202: -- Internal Table Handler Use Only.
203: --
204: -- {End Of Comments}
205: -- ----------------------------------------------------------------------------
206: Procedure post_update(p_rec in per_apl_shd.g_rec_type
207: ,p_effective_date in date) is
208: --
209: l_proc varchar2(72) := g_package||'post_update';
210: --
248: ,p_appl_attribute20 => p_rec.appl_attribute20
249: ,p_object_version_number => p_rec.object_version_number
250: ,p_effective_date => p_effective_date
251: ,p_business_group_id_o
252: => per_apl_shd.g_old_rec.business_group_id
253: ,p_person_id_o
254: => per_apl_shd.g_old_rec.person_id
255: ,p_date_received_o
256: => per_apl_shd.g_old_rec.date_received
250: ,p_effective_date => p_effective_date
251: ,p_business_group_id_o
252: => per_apl_shd.g_old_rec.business_group_id
253: ,p_person_id_o
254: => per_apl_shd.g_old_rec.person_id
255: ,p_date_received_o
256: => per_apl_shd.g_old_rec.date_received
257: ,p_comments_o
258: => per_apl_shd.g_old_rec.comments
252: => per_apl_shd.g_old_rec.business_group_id
253: ,p_person_id_o
254: => per_apl_shd.g_old_rec.person_id
255: ,p_date_received_o
256: => per_apl_shd.g_old_rec.date_received
257: ,p_comments_o
258: => per_apl_shd.g_old_rec.comments
259: ,p_current_employer_o
260: => per_apl_shd.g_old_rec.current_employer
254: => per_apl_shd.g_old_rec.person_id
255: ,p_date_received_o
256: => per_apl_shd.g_old_rec.date_received
257: ,p_comments_o
258: => per_apl_shd.g_old_rec.comments
259: ,p_current_employer_o
260: => per_apl_shd.g_old_rec.current_employer
261: ,p_projected_hire_date_o
262: => per_apl_shd.g_old_rec.projected_hire_date
256: => per_apl_shd.g_old_rec.date_received
257: ,p_comments_o
258: => per_apl_shd.g_old_rec.comments
259: ,p_current_employer_o
260: => per_apl_shd.g_old_rec.current_employer
261: ,p_projected_hire_date_o
262: => per_apl_shd.g_old_rec.projected_hire_date
263: ,p_successful_flag_o
264: => per_apl_shd.g_old_rec.successful_flag
258: => per_apl_shd.g_old_rec.comments
259: ,p_current_employer_o
260: => per_apl_shd.g_old_rec.current_employer
261: ,p_projected_hire_date_o
262: => per_apl_shd.g_old_rec.projected_hire_date
263: ,p_successful_flag_o
264: => per_apl_shd.g_old_rec.successful_flag
265: ,p_termination_reason_o
266: => per_apl_shd.g_old_rec.termination_reason
260: => per_apl_shd.g_old_rec.current_employer
261: ,p_projected_hire_date_o
262: => per_apl_shd.g_old_rec.projected_hire_date
263: ,p_successful_flag_o
264: => per_apl_shd.g_old_rec.successful_flag
265: ,p_termination_reason_o
266: => per_apl_shd.g_old_rec.termination_reason
267: ,p_request_id_o
268: => per_apl_shd.g_old_rec.request_id
262: => per_apl_shd.g_old_rec.projected_hire_date
263: ,p_successful_flag_o
264: => per_apl_shd.g_old_rec.successful_flag
265: ,p_termination_reason_o
266: => per_apl_shd.g_old_rec.termination_reason
267: ,p_request_id_o
268: => per_apl_shd.g_old_rec.request_id
269: ,p_program_application_id_o
270: => per_apl_shd.g_old_rec.program_application_id
264: => per_apl_shd.g_old_rec.successful_flag
265: ,p_termination_reason_o
266: => per_apl_shd.g_old_rec.termination_reason
267: ,p_request_id_o
268: => per_apl_shd.g_old_rec.request_id
269: ,p_program_application_id_o
270: => per_apl_shd.g_old_rec.program_application_id
271: ,p_program_id_o
272: => per_apl_shd.g_old_rec.program_id
266: => per_apl_shd.g_old_rec.termination_reason
267: ,p_request_id_o
268: => per_apl_shd.g_old_rec.request_id
269: ,p_program_application_id_o
270: => per_apl_shd.g_old_rec.program_application_id
271: ,p_program_id_o
272: => per_apl_shd.g_old_rec.program_id
273: ,p_program_update_date_o
274: => per_apl_shd.g_old_rec.program_update_date
268: => per_apl_shd.g_old_rec.request_id
269: ,p_program_application_id_o
270: => per_apl_shd.g_old_rec.program_application_id
271: ,p_program_id_o
272: => per_apl_shd.g_old_rec.program_id
273: ,p_program_update_date_o
274: => per_apl_shd.g_old_rec.program_update_date
275: ,p_appl_attribute_category_o
276: => per_apl_shd.g_old_rec.appl_attribute_category
270: => per_apl_shd.g_old_rec.program_application_id
271: ,p_program_id_o
272: => per_apl_shd.g_old_rec.program_id
273: ,p_program_update_date_o
274: => per_apl_shd.g_old_rec.program_update_date
275: ,p_appl_attribute_category_o
276: => per_apl_shd.g_old_rec.appl_attribute_category
277: ,p_appl_attribute1_o
278: => per_apl_shd.g_old_rec.appl_attribute1
272: => per_apl_shd.g_old_rec.program_id
273: ,p_program_update_date_o
274: => per_apl_shd.g_old_rec.program_update_date
275: ,p_appl_attribute_category_o
276: => per_apl_shd.g_old_rec.appl_attribute_category
277: ,p_appl_attribute1_o
278: => per_apl_shd.g_old_rec.appl_attribute1
279: ,p_appl_attribute2_o
280: => per_apl_shd.g_old_rec.appl_attribute2
274: => per_apl_shd.g_old_rec.program_update_date
275: ,p_appl_attribute_category_o
276: => per_apl_shd.g_old_rec.appl_attribute_category
277: ,p_appl_attribute1_o
278: => per_apl_shd.g_old_rec.appl_attribute1
279: ,p_appl_attribute2_o
280: => per_apl_shd.g_old_rec.appl_attribute2
281: ,p_appl_attribute3_o
282: => per_apl_shd.g_old_rec.appl_attribute3
276: => per_apl_shd.g_old_rec.appl_attribute_category
277: ,p_appl_attribute1_o
278: => per_apl_shd.g_old_rec.appl_attribute1
279: ,p_appl_attribute2_o
280: => per_apl_shd.g_old_rec.appl_attribute2
281: ,p_appl_attribute3_o
282: => per_apl_shd.g_old_rec.appl_attribute3
283: ,p_appl_attribute4_o
284: => per_apl_shd.g_old_rec.appl_attribute4
278: => per_apl_shd.g_old_rec.appl_attribute1
279: ,p_appl_attribute2_o
280: => per_apl_shd.g_old_rec.appl_attribute2
281: ,p_appl_attribute3_o
282: => per_apl_shd.g_old_rec.appl_attribute3
283: ,p_appl_attribute4_o
284: => per_apl_shd.g_old_rec.appl_attribute4
285: ,p_appl_attribute5_o
286: => per_apl_shd.g_old_rec.appl_attribute5
280: => per_apl_shd.g_old_rec.appl_attribute2
281: ,p_appl_attribute3_o
282: => per_apl_shd.g_old_rec.appl_attribute3
283: ,p_appl_attribute4_o
284: => per_apl_shd.g_old_rec.appl_attribute4
285: ,p_appl_attribute5_o
286: => per_apl_shd.g_old_rec.appl_attribute5
287: ,p_appl_attribute6_o
288: => per_apl_shd.g_old_rec.appl_attribute6
282: => per_apl_shd.g_old_rec.appl_attribute3
283: ,p_appl_attribute4_o
284: => per_apl_shd.g_old_rec.appl_attribute4
285: ,p_appl_attribute5_o
286: => per_apl_shd.g_old_rec.appl_attribute5
287: ,p_appl_attribute6_o
288: => per_apl_shd.g_old_rec.appl_attribute6
289: ,p_appl_attribute7_o
290: => per_apl_shd.g_old_rec.appl_attribute7
284: => per_apl_shd.g_old_rec.appl_attribute4
285: ,p_appl_attribute5_o
286: => per_apl_shd.g_old_rec.appl_attribute5
287: ,p_appl_attribute6_o
288: => per_apl_shd.g_old_rec.appl_attribute6
289: ,p_appl_attribute7_o
290: => per_apl_shd.g_old_rec.appl_attribute7
291: ,p_appl_attribute8_o
292: => per_apl_shd.g_old_rec.appl_attribute8
286: => per_apl_shd.g_old_rec.appl_attribute5
287: ,p_appl_attribute6_o
288: => per_apl_shd.g_old_rec.appl_attribute6
289: ,p_appl_attribute7_o
290: => per_apl_shd.g_old_rec.appl_attribute7
291: ,p_appl_attribute8_o
292: => per_apl_shd.g_old_rec.appl_attribute8
293: ,p_appl_attribute9_o
294: => per_apl_shd.g_old_rec.appl_attribute9
288: => per_apl_shd.g_old_rec.appl_attribute6
289: ,p_appl_attribute7_o
290: => per_apl_shd.g_old_rec.appl_attribute7
291: ,p_appl_attribute8_o
292: => per_apl_shd.g_old_rec.appl_attribute8
293: ,p_appl_attribute9_o
294: => per_apl_shd.g_old_rec.appl_attribute9
295: ,p_appl_attribute10_o
296: => per_apl_shd.g_old_rec.appl_attribute10
290: => per_apl_shd.g_old_rec.appl_attribute7
291: ,p_appl_attribute8_o
292: => per_apl_shd.g_old_rec.appl_attribute8
293: ,p_appl_attribute9_o
294: => per_apl_shd.g_old_rec.appl_attribute9
295: ,p_appl_attribute10_o
296: => per_apl_shd.g_old_rec.appl_attribute10
297: ,p_appl_attribute11_o
298: => per_apl_shd.g_old_rec.appl_attribute11
292: => per_apl_shd.g_old_rec.appl_attribute8
293: ,p_appl_attribute9_o
294: => per_apl_shd.g_old_rec.appl_attribute9
295: ,p_appl_attribute10_o
296: => per_apl_shd.g_old_rec.appl_attribute10
297: ,p_appl_attribute11_o
298: => per_apl_shd.g_old_rec.appl_attribute11
299: ,p_appl_attribute12_o
300: => per_apl_shd.g_old_rec.appl_attribute12
294: => per_apl_shd.g_old_rec.appl_attribute9
295: ,p_appl_attribute10_o
296: => per_apl_shd.g_old_rec.appl_attribute10
297: ,p_appl_attribute11_o
298: => per_apl_shd.g_old_rec.appl_attribute11
299: ,p_appl_attribute12_o
300: => per_apl_shd.g_old_rec.appl_attribute12
301: ,p_appl_attribute13_o
302: => per_apl_shd.g_old_rec.appl_attribute13
296: => per_apl_shd.g_old_rec.appl_attribute10
297: ,p_appl_attribute11_o
298: => per_apl_shd.g_old_rec.appl_attribute11
299: ,p_appl_attribute12_o
300: => per_apl_shd.g_old_rec.appl_attribute12
301: ,p_appl_attribute13_o
302: => per_apl_shd.g_old_rec.appl_attribute13
303: ,p_appl_attribute14_o
304: => per_apl_shd.g_old_rec.appl_attribute14
298: => per_apl_shd.g_old_rec.appl_attribute11
299: ,p_appl_attribute12_o
300: => per_apl_shd.g_old_rec.appl_attribute12
301: ,p_appl_attribute13_o
302: => per_apl_shd.g_old_rec.appl_attribute13
303: ,p_appl_attribute14_o
304: => per_apl_shd.g_old_rec.appl_attribute14
305: ,p_appl_attribute15_o
306: => per_apl_shd.g_old_rec.appl_attribute15
300: => per_apl_shd.g_old_rec.appl_attribute12
301: ,p_appl_attribute13_o
302: => per_apl_shd.g_old_rec.appl_attribute13
303: ,p_appl_attribute14_o
304: => per_apl_shd.g_old_rec.appl_attribute14
305: ,p_appl_attribute15_o
306: => per_apl_shd.g_old_rec.appl_attribute15
307: ,p_appl_attribute16_o
308: => per_apl_shd.g_old_rec.appl_attribute16
302: => per_apl_shd.g_old_rec.appl_attribute13
303: ,p_appl_attribute14_o
304: => per_apl_shd.g_old_rec.appl_attribute14
305: ,p_appl_attribute15_o
306: => per_apl_shd.g_old_rec.appl_attribute15
307: ,p_appl_attribute16_o
308: => per_apl_shd.g_old_rec.appl_attribute16
309: ,p_appl_attribute17_o
310: => per_apl_shd.g_old_rec.appl_attribute17
304: => per_apl_shd.g_old_rec.appl_attribute14
305: ,p_appl_attribute15_o
306: => per_apl_shd.g_old_rec.appl_attribute15
307: ,p_appl_attribute16_o
308: => per_apl_shd.g_old_rec.appl_attribute16
309: ,p_appl_attribute17_o
310: => per_apl_shd.g_old_rec.appl_attribute17
311: ,p_appl_attribute18_o
312: => per_apl_shd.g_old_rec.appl_attribute18
306: => per_apl_shd.g_old_rec.appl_attribute15
307: ,p_appl_attribute16_o
308: => per_apl_shd.g_old_rec.appl_attribute16
309: ,p_appl_attribute17_o
310: => per_apl_shd.g_old_rec.appl_attribute17
311: ,p_appl_attribute18_o
312: => per_apl_shd.g_old_rec.appl_attribute18
313: ,p_appl_attribute19_o
314: => per_apl_shd.g_old_rec.appl_attribute19
308: => per_apl_shd.g_old_rec.appl_attribute16
309: ,p_appl_attribute17_o
310: => per_apl_shd.g_old_rec.appl_attribute17
311: ,p_appl_attribute18_o
312: => per_apl_shd.g_old_rec.appl_attribute18
313: ,p_appl_attribute19_o
314: => per_apl_shd.g_old_rec.appl_attribute19
315: ,p_appl_attribute20_o
316: => per_apl_shd.g_old_rec.appl_attribute20
310: => per_apl_shd.g_old_rec.appl_attribute17
311: ,p_appl_attribute18_o
312: => per_apl_shd.g_old_rec.appl_attribute18
313: ,p_appl_attribute19_o
314: => per_apl_shd.g_old_rec.appl_attribute19
315: ,p_appl_attribute20_o
316: => per_apl_shd.g_old_rec.appl_attribute20
317: ,p_object_version_number_o
318: => per_apl_shd.g_old_rec.object_version_number
312: => per_apl_shd.g_old_rec.appl_attribute18
313: ,p_appl_attribute19_o
314: => per_apl_shd.g_old_rec.appl_attribute19
315: ,p_appl_attribute20_o
316: => per_apl_shd.g_old_rec.appl_attribute20
317: ,p_object_version_number_o
318: => per_apl_shd.g_old_rec.object_version_number
319: );
320: exception
314: => per_apl_shd.g_old_rec.appl_attribute19
315: ,p_appl_attribute20_o
316: => per_apl_shd.g_old_rec.appl_attribute20
317: ,p_object_version_number_o
318: => per_apl_shd.g_old_rec.object_version_number
319: );
320: exception
321: when hr_api.cannot_find_prog_unit then
322: hr_api.cannot_find_prog_unit_error
372: -- Internal Table Handler Use Only.
373: --
374: -- {End Of Comments}
375: -- ----------------------------------------------------------------------------
376: Procedure convert_defs(p_rec in out nocopy per_apl_shd.g_rec_type) is
377: --
378: l_proc varchar2(72) := g_package||'convert_defs';
379: --
380: Begin
387: -- is being used then we must set to the 'current' argument value.
388: --
389: If (p_rec.business_group_id = hr_api.g_number) then
390: p_rec.business_group_id :=
391: per_apl_shd.g_old_rec.business_group_id;
392: End If;
393: If (p_rec.person_id = hr_api.g_number) then
394: p_rec.person_id :=
395: per_apl_shd.g_old_rec.person_id;
391: per_apl_shd.g_old_rec.business_group_id;
392: End If;
393: If (p_rec.person_id = hr_api.g_number) then
394: p_rec.person_id :=
395: per_apl_shd.g_old_rec.person_id;
396: End If;
397: If (p_rec.date_received = hr_api.g_date) then
398: hr_utility.set_location(l_proc,6);
399: p_rec.date_received :=
396: End If;
397: If (p_rec.date_received = hr_api.g_date) then
398: hr_utility.set_location(l_proc,6);
399: p_rec.date_received :=
400: per_apl_shd.g_old_rec.date_received;
401: End If;
402: If (p_rec.comments = hr_api.g_varchar2) then
403: p_rec.comments :=
404: per_apl_shd.g_old_rec.comments;
400: per_apl_shd.g_old_rec.date_received;
401: End If;
402: If (p_rec.comments = hr_api.g_varchar2) then
403: p_rec.comments :=
404: per_apl_shd.g_old_rec.comments;
405: End If;
406: If (p_rec.current_employer = hr_api.g_varchar2) then
407: p_rec.current_employer :=
408: per_apl_shd.g_old_rec.current_employer;
404: per_apl_shd.g_old_rec.comments;
405: End If;
406: If (p_rec.current_employer = hr_api.g_varchar2) then
407: p_rec.current_employer :=
408: per_apl_shd.g_old_rec.current_employer;
409: End If;
410: If (p_rec.date_end = hr_api.g_date) then
411: p_rec.date_end :=
412: per_apl_shd.g_old_rec.date_end;
408: per_apl_shd.g_old_rec.current_employer;
409: End If;
410: If (p_rec.date_end = hr_api.g_date) then
411: p_rec.date_end :=
412: per_apl_shd.g_old_rec.date_end;
413: End If;
414: If (p_rec.projected_hire_date = hr_api.g_date) then
415: p_rec.projected_hire_date :=
416: per_apl_shd.g_old_rec.projected_hire_date;
412: per_apl_shd.g_old_rec.date_end;
413: End If;
414: If (p_rec.projected_hire_date = hr_api.g_date) then
415: p_rec.projected_hire_date :=
416: per_apl_shd.g_old_rec.projected_hire_date;
417: End If;
418: If (p_rec.successful_flag = hr_api.g_varchar2) then
419: p_rec.successful_flag :=
420: per_apl_shd.g_old_rec.successful_flag;
416: per_apl_shd.g_old_rec.projected_hire_date;
417: End If;
418: If (p_rec.successful_flag = hr_api.g_varchar2) then
419: p_rec.successful_flag :=
420: per_apl_shd.g_old_rec.successful_flag;
421: End If;
422: If (p_rec.termination_reason = hr_api.g_varchar2) then
423: p_rec.termination_reason :=
424: per_apl_shd.g_old_rec.termination_reason;
420: per_apl_shd.g_old_rec.successful_flag;
421: End If;
422: If (p_rec.termination_reason = hr_api.g_varchar2) then
423: p_rec.termination_reason :=
424: per_apl_shd.g_old_rec.termination_reason;
425: End If;
426: If (p_rec.request_id = hr_api.g_number) then
427: p_rec.request_id :=
428: per_apl_shd.g_old_rec.request_id;
424: per_apl_shd.g_old_rec.termination_reason;
425: End If;
426: If (p_rec.request_id = hr_api.g_number) then
427: p_rec.request_id :=
428: per_apl_shd.g_old_rec.request_id;
429: End If;
430: If (p_rec.program_application_id = hr_api.g_number) then
431: p_rec.program_application_id :=
432: per_apl_shd.g_old_rec.program_application_id;
428: per_apl_shd.g_old_rec.request_id;
429: End If;
430: If (p_rec.program_application_id = hr_api.g_number) then
431: p_rec.program_application_id :=
432: per_apl_shd.g_old_rec.program_application_id;
433: End If;
434: If (p_rec.program_id = hr_api.g_number) then
435: p_rec.program_id :=
436: per_apl_shd.g_old_rec.program_id;
432: per_apl_shd.g_old_rec.program_application_id;
433: End If;
434: If (p_rec.program_id = hr_api.g_number) then
435: p_rec.program_id :=
436: per_apl_shd.g_old_rec.program_id;
437: End If;
438: If (p_rec.program_update_date = hr_api.g_date) then
439: p_rec.program_update_date :=
440: per_apl_shd.g_old_rec.program_update_date;
436: per_apl_shd.g_old_rec.program_id;
437: End If;
438: If (p_rec.program_update_date = hr_api.g_date) then
439: p_rec.program_update_date :=
440: per_apl_shd.g_old_rec.program_update_date;
441: End If;
442: If (p_rec.appl_attribute_category = hr_api.g_varchar2) then
443: p_rec.appl_attribute_category :=
444: per_apl_shd.g_old_rec.appl_attribute_category;
440: per_apl_shd.g_old_rec.program_update_date;
441: End If;
442: If (p_rec.appl_attribute_category = hr_api.g_varchar2) then
443: p_rec.appl_attribute_category :=
444: per_apl_shd.g_old_rec.appl_attribute_category;
445: End If;
446: If (p_rec.appl_attribute1 = hr_api.g_varchar2) then
447: p_rec.appl_attribute1 :=
448: per_apl_shd.g_old_rec.appl_attribute1;
444: per_apl_shd.g_old_rec.appl_attribute_category;
445: End If;
446: If (p_rec.appl_attribute1 = hr_api.g_varchar2) then
447: p_rec.appl_attribute1 :=
448: per_apl_shd.g_old_rec.appl_attribute1;
449: End If;
450: If (p_rec.appl_attribute2 = hr_api.g_varchar2) then
451: p_rec.appl_attribute2 :=
452: per_apl_shd.g_old_rec.appl_attribute2;
448: per_apl_shd.g_old_rec.appl_attribute1;
449: End If;
450: If (p_rec.appl_attribute2 = hr_api.g_varchar2) then
451: p_rec.appl_attribute2 :=
452: per_apl_shd.g_old_rec.appl_attribute2;
453: End If;
454: If (p_rec.appl_attribute3 = hr_api.g_varchar2) then
455: p_rec.appl_attribute3 :=
456: per_apl_shd.g_old_rec.appl_attribute3;
452: per_apl_shd.g_old_rec.appl_attribute2;
453: End If;
454: If (p_rec.appl_attribute3 = hr_api.g_varchar2) then
455: p_rec.appl_attribute3 :=
456: per_apl_shd.g_old_rec.appl_attribute3;
457: End If;
458: If (p_rec.appl_attribute4 = hr_api.g_varchar2) then
459: p_rec.appl_attribute4 :=
460: per_apl_shd.g_old_rec.appl_attribute4;
456: per_apl_shd.g_old_rec.appl_attribute3;
457: End If;
458: If (p_rec.appl_attribute4 = hr_api.g_varchar2) then
459: p_rec.appl_attribute4 :=
460: per_apl_shd.g_old_rec.appl_attribute4;
461: End If;
462: If (p_rec.appl_attribute5 = hr_api.g_varchar2) then
463: p_rec.appl_attribute5 :=
464: per_apl_shd.g_old_rec.appl_attribute5;
460: per_apl_shd.g_old_rec.appl_attribute4;
461: End If;
462: If (p_rec.appl_attribute5 = hr_api.g_varchar2) then
463: p_rec.appl_attribute5 :=
464: per_apl_shd.g_old_rec.appl_attribute5;
465: End If;
466: If (p_rec.appl_attribute6 = hr_api.g_varchar2) then
467: p_rec.appl_attribute6 :=
468: per_apl_shd.g_old_rec.appl_attribute6;
464: per_apl_shd.g_old_rec.appl_attribute5;
465: End If;
466: If (p_rec.appl_attribute6 = hr_api.g_varchar2) then
467: p_rec.appl_attribute6 :=
468: per_apl_shd.g_old_rec.appl_attribute6;
469: End If;
470: If (p_rec.appl_attribute7 = hr_api.g_varchar2) then
471: p_rec.appl_attribute7 :=
472: per_apl_shd.g_old_rec.appl_attribute7;
468: per_apl_shd.g_old_rec.appl_attribute6;
469: End If;
470: If (p_rec.appl_attribute7 = hr_api.g_varchar2) then
471: p_rec.appl_attribute7 :=
472: per_apl_shd.g_old_rec.appl_attribute7;
473: End If;
474: If (p_rec.appl_attribute8 = hr_api.g_varchar2) then
475: p_rec.appl_attribute8 :=
476: per_apl_shd.g_old_rec.appl_attribute8;
472: per_apl_shd.g_old_rec.appl_attribute7;
473: End If;
474: If (p_rec.appl_attribute8 = hr_api.g_varchar2) then
475: p_rec.appl_attribute8 :=
476: per_apl_shd.g_old_rec.appl_attribute8;
477: End If;
478: If (p_rec.appl_attribute9 = hr_api.g_varchar2) then
479: p_rec.appl_attribute9 :=
480: per_apl_shd.g_old_rec.appl_attribute9;
476: per_apl_shd.g_old_rec.appl_attribute8;
477: End If;
478: If (p_rec.appl_attribute9 = hr_api.g_varchar2) then
479: p_rec.appl_attribute9 :=
480: per_apl_shd.g_old_rec.appl_attribute9;
481: End If;
482: If (p_rec.appl_attribute10 = hr_api.g_varchar2) then
483: p_rec.appl_attribute10 :=
484: per_apl_shd.g_old_rec.appl_attribute10;
480: per_apl_shd.g_old_rec.appl_attribute9;
481: End If;
482: If (p_rec.appl_attribute10 = hr_api.g_varchar2) then
483: p_rec.appl_attribute10 :=
484: per_apl_shd.g_old_rec.appl_attribute10;
485: End If;
486: If (p_rec.appl_attribute11 = hr_api.g_varchar2) then
487: p_rec.appl_attribute11 :=
488: per_apl_shd.g_old_rec.appl_attribute11;
484: per_apl_shd.g_old_rec.appl_attribute10;
485: End If;
486: If (p_rec.appl_attribute11 = hr_api.g_varchar2) then
487: p_rec.appl_attribute11 :=
488: per_apl_shd.g_old_rec.appl_attribute11;
489: End If;
490: If (p_rec.appl_attribute12 = hr_api.g_varchar2) then
491: p_rec.appl_attribute12 :=
492: per_apl_shd.g_old_rec.appl_attribute12;
488: per_apl_shd.g_old_rec.appl_attribute11;
489: End If;
490: If (p_rec.appl_attribute12 = hr_api.g_varchar2) then
491: p_rec.appl_attribute12 :=
492: per_apl_shd.g_old_rec.appl_attribute12;
493: End If;
494: If (p_rec.appl_attribute13 = hr_api.g_varchar2) then
495: p_rec.appl_attribute13 :=
496: per_apl_shd.g_old_rec.appl_attribute13;
492: per_apl_shd.g_old_rec.appl_attribute12;
493: End If;
494: If (p_rec.appl_attribute13 = hr_api.g_varchar2) then
495: p_rec.appl_attribute13 :=
496: per_apl_shd.g_old_rec.appl_attribute13;
497: End If;
498: If (p_rec.appl_attribute14 = hr_api.g_varchar2) then
499: p_rec.appl_attribute14 :=
500: per_apl_shd.g_old_rec.appl_attribute14;
496: per_apl_shd.g_old_rec.appl_attribute13;
497: End If;
498: If (p_rec.appl_attribute14 = hr_api.g_varchar2) then
499: p_rec.appl_attribute14 :=
500: per_apl_shd.g_old_rec.appl_attribute14;
501: End If;
502: If (p_rec.appl_attribute15 = hr_api.g_varchar2) then
503: p_rec.appl_attribute15 :=
504: per_apl_shd.g_old_rec.appl_attribute15;
500: per_apl_shd.g_old_rec.appl_attribute14;
501: End If;
502: If (p_rec.appl_attribute15 = hr_api.g_varchar2) then
503: p_rec.appl_attribute15 :=
504: per_apl_shd.g_old_rec.appl_attribute15;
505: End If;
506: If (p_rec.appl_attribute16 = hr_api.g_varchar2) then
507: p_rec.appl_attribute16 :=
508: per_apl_shd.g_old_rec.appl_attribute16;
504: per_apl_shd.g_old_rec.appl_attribute15;
505: End If;
506: If (p_rec.appl_attribute16 = hr_api.g_varchar2) then
507: p_rec.appl_attribute16 :=
508: per_apl_shd.g_old_rec.appl_attribute16;
509: End If;
510: If (p_rec.appl_attribute17 = hr_api.g_varchar2) then
511: p_rec.appl_attribute17 :=
512: per_apl_shd.g_old_rec.appl_attribute17;
508: per_apl_shd.g_old_rec.appl_attribute16;
509: End If;
510: If (p_rec.appl_attribute17 = hr_api.g_varchar2) then
511: p_rec.appl_attribute17 :=
512: per_apl_shd.g_old_rec.appl_attribute17;
513: End If;
514: If (p_rec.appl_attribute18 = hr_api.g_varchar2) then
515: p_rec.appl_attribute18 :=
516: per_apl_shd.g_old_rec.appl_attribute18;
512: per_apl_shd.g_old_rec.appl_attribute17;
513: End If;
514: If (p_rec.appl_attribute18 = hr_api.g_varchar2) then
515: p_rec.appl_attribute18 :=
516: per_apl_shd.g_old_rec.appl_attribute18;
517: End If;
518: If (p_rec.appl_attribute19 = hr_api.g_varchar2) then
519: p_rec.appl_attribute19 :=
520: per_apl_shd.g_old_rec.appl_attribute19;
516: per_apl_shd.g_old_rec.appl_attribute18;
517: End If;
518: If (p_rec.appl_attribute19 = hr_api.g_varchar2) then
519: p_rec.appl_attribute19 :=
520: per_apl_shd.g_old_rec.appl_attribute19;
521: End If;
522: If (p_rec.appl_attribute20 = hr_api.g_varchar2) then
523: p_rec.appl_attribute20 :=
524: per_apl_shd.g_old_rec.appl_attribute20;
520: per_apl_shd.g_old_rec.appl_attribute19;
521: End If;
522: If (p_rec.appl_attribute20 = hr_api.g_varchar2) then
523: p_rec.appl_attribute20 :=
524: per_apl_shd.g_old_rec.appl_attribute20;
525: End If;
526:
527: --
528: hr_utility.set_location(' Leaving:'||l_proc, 10);
533: -- |---------------------------------< upd >----------------------------------|
534: -- ----------------------------------------------------------------------------
535: Procedure upd
536: (
537: p_rec in out nocopy per_apl_shd.g_rec_type,
538: p_effective_date in date,
539: p_validate in boolean default false
540: ) is
541: --
554: End If;
555: --
556: -- We must lock the row which we need to update.
557: --
558: per_apl_shd.lck
559: (
560: p_rec.application_id,
561: p_rec.object_version_number
562: );
650: p_effective_date in date,
651: p_validate in boolean default false
652: ) is
653: --
654: l_rec per_apl_shd.g_rec_type;
655: l_proc varchar2(72) := g_package||'upd';
656: --
657: Begin
658: hr_utility.set_location('Entering:'||l_proc, 5);
660: -- Call conversion function to turn arguments into the
661: -- l_rec structure.
662: --
663: l_rec :=
664: per_apl_shd.convert_args
665: (
666: p_application_id,
667: hr_api.g_number,
668: hr_api.g_number,