173: -- Internal Row Handler Use Only.
174: --
175: -- ----------------------------------------------------------------------------
176: procedure chk_df
177: (p_rec in per_evt_shd.g_rec_type
178: ) is
179: --
180: l_proc varchar2(72) := g_package || 'chk_df';
181: --
182: begin
183: hr_utility.set_location('Entering:'||l_proc,10);
184: --
185: if ((p_rec.event_id is not null) and (
186: nvl(per_evt_shd.g_old_rec.attribute_category, hr_api.g_varchar2) <>
187: nvl(p_rec.attribute_category, hr_api.g_varchar2) or
188: nvl(per_evt_shd.g_old_rec.attribute1, hr_api.g_varchar2) <>
189: nvl(p_rec.attribute1, hr_api.g_varchar2) or
190: nvl(per_evt_shd.g_old_rec.attribute2, hr_api.g_varchar2) <>
184: --
185: if ((p_rec.event_id is not null) and (
186: nvl(per_evt_shd.g_old_rec.attribute_category, hr_api.g_varchar2) <>
187: nvl(p_rec.attribute_category, hr_api.g_varchar2) or
188: nvl(per_evt_shd.g_old_rec.attribute1, hr_api.g_varchar2) <>
189: nvl(p_rec.attribute1, hr_api.g_varchar2) or
190: nvl(per_evt_shd.g_old_rec.attribute2, hr_api.g_varchar2) <>
191: nvl(p_rec.attribute2, hr_api.g_varchar2) or
192: nvl(per_evt_shd.g_old_rec.attribute3, hr_api.g_varchar2) <>
186: nvl(per_evt_shd.g_old_rec.attribute_category, hr_api.g_varchar2) <>
187: nvl(p_rec.attribute_category, hr_api.g_varchar2) or
188: nvl(per_evt_shd.g_old_rec.attribute1, hr_api.g_varchar2) <>
189: nvl(p_rec.attribute1, hr_api.g_varchar2) or
190: nvl(per_evt_shd.g_old_rec.attribute2, hr_api.g_varchar2) <>
191: nvl(p_rec.attribute2, hr_api.g_varchar2) or
192: nvl(per_evt_shd.g_old_rec.attribute3, hr_api.g_varchar2) <>
193: nvl(p_rec.attribute3, hr_api.g_varchar2) or
194: nvl(per_evt_shd.g_old_rec.attribute4, hr_api.g_varchar2) <>
188: nvl(per_evt_shd.g_old_rec.attribute1, hr_api.g_varchar2) <>
189: nvl(p_rec.attribute1, hr_api.g_varchar2) or
190: nvl(per_evt_shd.g_old_rec.attribute2, hr_api.g_varchar2) <>
191: nvl(p_rec.attribute2, hr_api.g_varchar2) or
192: nvl(per_evt_shd.g_old_rec.attribute3, hr_api.g_varchar2) <>
193: nvl(p_rec.attribute3, hr_api.g_varchar2) or
194: nvl(per_evt_shd.g_old_rec.attribute4, hr_api.g_varchar2) <>
195: nvl(p_rec.attribute4, hr_api.g_varchar2) or
196: nvl(per_evt_shd.g_old_rec.attribute5, hr_api.g_varchar2) <>
190: nvl(per_evt_shd.g_old_rec.attribute2, hr_api.g_varchar2) <>
191: nvl(p_rec.attribute2, hr_api.g_varchar2) or
192: nvl(per_evt_shd.g_old_rec.attribute3, hr_api.g_varchar2) <>
193: nvl(p_rec.attribute3, hr_api.g_varchar2) or
194: nvl(per_evt_shd.g_old_rec.attribute4, hr_api.g_varchar2) <>
195: nvl(p_rec.attribute4, hr_api.g_varchar2) or
196: nvl(per_evt_shd.g_old_rec.attribute5, hr_api.g_varchar2) <>
197: nvl(p_rec.attribute5, hr_api.g_varchar2) or
198: nvl(per_evt_shd.g_old_rec.attribute6, hr_api.g_varchar2) <>
192: nvl(per_evt_shd.g_old_rec.attribute3, hr_api.g_varchar2) <>
193: nvl(p_rec.attribute3, hr_api.g_varchar2) or
194: nvl(per_evt_shd.g_old_rec.attribute4, hr_api.g_varchar2) <>
195: nvl(p_rec.attribute4, hr_api.g_varchar2) or
196: nvl(per_evt_shd.g_old_rec.attribute5, hr_api.g_varchar2) <>
197: nvl(p_rec.attribute5, hr_api.g_varchar2) or
198: nvl(per_evt_shd.g_old_rec.attribute6, hr_api.g_varchar2) <>
199: nvl(p_rec.attribute6, hr_api.g_varchar2) or
200: nvl(per_evt_shd.g_old_rec.attribute7, hr_api.g_varchar2) <>
194: nvl(per_evt_shd.g_old_rec.attribute4, hr_api.g_varchar2) <>
195: nvl(p_rec.attribute4, hr_api.g_varchar2) or
196: nvl(per_evt_shd.g_old_rec.attribute5, hr_api.g_varchar2) <>
197: nvl(p_rec.attribute5, hr_api.g_varchar2) or
198: nvl(per_evt_shd.g_old_rec.attribute6, hr_api.g_varchar2) <>
199: nvl(p_rec.attribute6, hr_api.g_varchar2) or
200: nvl(per_evt_shd.g_old_rec.attribute7, hr_api.g_varchar2) <>
201: nvl(p_rec.attribute7, hr_api.g_varchar2) or
202: nvl(per_evt_shd.g_old_rec.attribute8, hr_api.g_varchar2) <>
196: nvl(per_evt_shd.g_old_rec.attribute5, hr_api.g_varchar2) <>
197: nvl(p_rec.attribute5, hr_api.g_varchar2) or
198: nvl(per_evt_shd.g_old_rec.attribute6, hr_api.g_varchar2) <>
199: nvl(p_rec.attribute6, hr_api.g_varchar2) or
200: nvl(per_evt_shd.g_old_rec.attribute7, hr_api.g_varchar2) <>
201: nvl(p_rec.attribute7, hr_api.g_varchar2) or
202: nvl(per_evt_shd.g_old_rec.attribute8, hr_api.g_varchar2) <>
203: nvl(p_rec.attribute8, hr_api.g_varchar2) or
204: nvl(per_evt_shd.g_old_rec.attribute9, hr_api.g_varchar2) <>
198: nvl(per_evt_shd.g_old_rec.attribute6, hr_api.g_varchar2) <>
199: nvl(p_rec.attribute6, hr_api.g_varchar2) or
200: nvl(per_evt_shd.g_old_rec.attribute7, hr_api.g_varchar2) <>
201: nvl(p_rec.attribute7, hr_api.g_varchar2) or
202: nvl(per_evt_shd.g_old_rec.attribute8, hr_api.g_varchar2) <>
203: nvl(p_rec.attribute8, hr_api.g_varchar2) or
204: nvl(per_evt_shd.g_old_rec.attribute9, hr_api.g_varchar2) <>
205: nvl(p_rec.attribute9, hr_api.g_varchar2) or
206: nvl(per_evt_shd.g_old_rec.attribute10, hr_api.g_varchar2) <>
200: nvl(per_evt_shd.g_old_rec.attribute7, hr_api.g_varchar2) <>
201: nvl(p_rec.attribute7, hr_api.g_varchar2) or
202: nvl(per_evt_shd.g_old_rec.attribute8, hr_api.g_varchar2) <>
203: nvl(p_rec.attribute8, hr_api.g_varchar2) or
204: nvl(per_evt_shd.g_old_rec.attribute9, hr_api.g_varchar2) <>
205: nvl(p_rec.attribute9, hr_api.g_varchar2) or
206: nvl(per_evt_shd.g_old_rec.attribute10, hr_api.g_varchar2) <>
207: nvl(p_rec.attribute10, hr_api.g_varchar2) or
208: nvl(per_evt_shd.g_old_rec.attribute11, hr_api.g_varchar2) <>
202: nvl(per_evt_shd.g_old_rec.attribute8, hr_api.g_varchar2) <>
203: nvl(p_rec.attribute8, hr_api.g_varchar2) or
204: nvl(per_evt_shd.g_old_rec.attribute9, hr_api.g_varchar2) <>
205: nvl(p_rec.attribute9, hr_api.g_varchar2) or
206: nvl(per_evt_shd.g_old_rec.attribute10, hr_api.g_varchar2) <>
207: nvl(p_rec.attribute10, hr_api.g_varchar2) or
208: nvl(per_evt_shd.g_old_rec.attribute11, hr_api.g_varchar2) <>
209: nvl(p_rec.attribute11, hr_api.g_varchar2) or
210: nvl(per_evt_shd.g_old_rec.attribute12, hr_api.g_varchar2) <>
204: nvl(per_evt_shd.g_old_rec.attribute9, hr_api.g_varchar2) <>
205: nvl(p_rec.attribute9, hr_api.g_varchar2) or
206: nvl(per_evt_shd.g_old_rec.attribute10, hr_api.g_varchar2) <>
207: nvl(p_rec.attribute10, hr_api.g_varchar2) or
208: nvl(per_evt_shd.g_old_rec.attribute11, hr_api.g_varchar2) <>
209: nvl(p_rec.attribute11, hr_api.g_varchar2) or
210: nvl(per_evt_shd.g_old_rec.attribute12, hr_api.g_varchar2) <>
211: nvl(p_rec.attribute12, hr_api.g_varchar2) or
212: nvl(per_evt_shd.g_old_rec.attribute13, hr_api.g_varchar2) <>
206: nvl(per_evt_shd.g_old_rec.attribute10, hr_api.g_varchar2) <>
207: nvl(p_rec.attribute10, hr_api.g_varchar2) or
208: nvl(per_evt_shd.g_old_rec.attribute11, hr_api.g_varchar2) <>
209: nvl(p_rec.attribute11, hr_api.g_varchar2) or
210: nvl(per_evt_shd.g_old_rec.attribute12, hr_api.g_varchar2) <>
211: nvl(p_rec.attribute12, hr_api.g_varchar2) or
212: nvl(per_evt_shd.g_old_rec.attribute13, hr_api.g_varchar2) <>
213: nvl(p_rec.attribute13, hr_api.g_varchar2) or
214: nvl(per_evt_shd.g_old_rec.attribute14, hr_api.g_varchar2) <>
208: nvl(per_evt_shd.g_old_rec.attribute11, hr_api.g_varchar2) <>
209: nvl(p_rec.attribute11, hr_api.g_varchar2) or
210: nvl(per_evt_shd.g_old_rec.attribute12, hr_api.g_varchar2) <>
211: nvl(p_rec.attribute12, hr_api.g_varchar2) or
212: nvl(per_evt_shd.g_old_rec.attribute13, hr_api.g_varchar2) <>
213: nvl(p_rec.attribute13, hr_api.g_varchar2) or
214: nvl(per_evt_shd.g_old_rec.attribute14, hr_api.g_varchar2) <>
215: nvl(p_rec.attribute14, hr_api.g_varchar2) or
216: nvl(per_evt_shd.g_old_rec.attribute15, hr_api.g_varchar2) <>
210: nvl(per_evt_shd.g_old_rec.attribute12, hr_api.g_varchar2) <>
211: nvl(p_rec.attribute12, hr_api.g_varchar2) or
212: nvl(per_evt_shd.g_old_rec.attribute13, hr_api.g_varchar2) <>
213: nvl(p_rec.attribute13, hr_api.g_varchar2) or
214: nvl(per_evt_shd.g_old_rec.attribute14, hr_api.g_varchar2) <>
215: nvl(p_rec.attribute14, hr_api.g_varchar2) or
216: nvl(per_evt_shd.g_old_rec.attribute15, hr_api.g_varchar2) <>
217: nvl(p_rec.attribute15, hr_api.g_varchar2) or
218: nvl(per_evt_shd.g_old_rec.attribute16, hr_api.g_varchar2) <>
212: nvl(per_evt_shd.g_old_rec.attribute13, hr_api.g_varchar2) <>
213: nvl(p_rec.attribute13, hr_api.g_varchar2) or
214: nvl(per_evt_shd.g_old_rec.attribute14, hr_api.g_varchar2) <>
215: nvl(p_rec.attribute14, hr_api.g_varchar2) or
216: nvl(per_evt_shd.g_old_rec.attribute15, hr_api.g_varchar2) <>
217: nvl(p_rec.attribute15, hr_api.g_varchar2) or
218: nvl(per_evt_shd.g_old_rec.attribute16, hr_api.g_varchar2) <>
219: nvl(p_rec.attribute16, hr_api.g_varchar2) or
220: nvl(per_evt_shd.g_old_rec.attribute17, hr_api.g_varchar2) <>
214: nvl(per_evt_shd.g_old_rec.attribute14, hr_api.g_varchar2) <>
215: nvl(p_rec.attribute14, hr_api.g_varchar2) or
216: nvl(per_evt_shd.g_old_rec.attribute15, hr_api.g_varchar2) <>
217: nvl(p_rec.attribute15, hr_api.g_varchar2) or
218: nvl(per_evt_shd.g_old_rec.attribute16, hr_api.g_varchar2) <>
219: nvl(p_rec.attribute16, hr_api.g_varchar2) or
220: nvl(per_evt_shd.g_old_rec.attribute17, hr_api.g_varchar2) <>
221: nvl(p_rec.attribute17, hr_api.g_varchar2) or
222: nvl(per_evt_shd.g_old_rec.attribute18, hr_api.g_varchar2) <>
216: nvl(per_evt_shd.g_old_rec.attribute15, hr_api.g_varchar2) <>
217: nvl(p_rec.attribute15, hr_api.g_varchar2) or
218: nvl(per_evt_shd.g_old_rec.attribute16, hr_api.g_varchar2) <>
219: nvl(p_rec.attribute16, hr_api.g_varchar2) or
220: nvl(per_evt_shd.g_old_rec.attribute17, hr_api.g_varchar2) <>
221: nvl(p_rec.attribute17, hr_api.g_varchar2) or
222: nvl(per_evt_shd.g_old_rec.attribute18, hr_api.g_varchar2) <>
223: nvl(p_rec.attribute18, hr_api.g_varchar2) or
224: nvl(per_evt_shd.g_old_rec.attribute19, hr_api.g_varchar2) <>
218: nvl(per_evt_shd.g_old_rec.attribute16, hr_api.g_varchar2) <>
219: nvl(p_rec.attribute16, hr_api.g_varchar2) or
220: nvl(per_evt_shd.g_old_rec.attribute17, hr_api.g_varchar2) <>
221: nvl(p_rec.attribute17, hr_api.g_varchar2) or
222: nvl(per_evt_shd.g_old_rec.attribute18, hr_api.g_varchar2) <>
223: nvl(p_rec.attribute18, hr_api.g_varchar2) or
224: nvl(per_evt_shd.g_old_rec.attribute19, hr_api.g_varchar2) <>
225: nvl(p_rec.attribute19, hr_api.g_varchar2) or
226: nvl(per_evt_shd.g_old_rec.attribute20, hr_api.g_varchar2) <>
220: nvl(per_evt_shd.g_old_rec.attribute17, hr_api.g_varchar2) <>
221: nvl(p_rec.attribute17, hr_api.g_varchar2) or
222: nvl(per_evt_shd.g_old_rec.attribute18, hr_api.g_varchar2) <>
223: nvl(p_rec.attribute18, hr_api.g_varchar2) or
224: nvl(per_evt_shd.g_old_rec.attribute19, hr_api.g_varchar2) <>
225: nvl(p_rec.attribute19, hr_api.g_varchar2) or
226: nvl(per_evt_shd.g_old_rec.attribute20, hr_api.g_varchar2) <>
227: nvl(p_rec.attribute20, hr_api.g_varchar2) ))
228: or (p_rec.event_id is null) then
222: nvl(per_evt_shd.g_old_rec.attribute18, hr_api.g_varchar2) <>
223: nvl(p_rec.attribute18, hr_api.g_varchar2) or
224: nvl(per_evt_shd.g_old_rec.attribute19, hr_api.g_varchar2) <>
225: nvl(p_rec.attribute19, hr_api.g_varchar2) or
226: nvl(per_evt_shd.g_old_rec.attribute20, hr_api.g_varchar2) <>
227: nvl(p_rec.attribute20, hr_api.g_varchar2) ))
228: or (p_rec.event_id is null) then
229: --
230: -- Only execute the validation if absolutely necessary:
309: --
310: -- {End Of Comments}
311: -- ----------------------------------------------------------------------------
312: Procedure chk_non_updateable_args
313: (p_rec in per_evt_shd.g_rec_type
314: ) IS
315: --
316: l_proc varchar2(72) := g_package || 'chk_non_updateable_args';
317: l_error EXCEPTION;
321: --
322: -- Only proceed with the validation if a row exists for the current
323: -- record in the HR Schema.
324: --
325: IF NOT per_evt_shd.api_updating
326: (p_event_id => p_rec.event_id
327: ,p_object_version_number => p_rec.object_version_number
328: ) THEN
329: fnd_message.set_name('PER', 'HR_289323_EVENT_NOT_FOUND');
331: fnd_message.set_token('STEP ', '5');
332: fnd_message.raise_error;
333: END IF;
334: --
335: if p_rec.business_group_id <> per_evt_shd.g_old_rec.business_group_id then
336: l_argument := 'business_group_id';
337: raise l_error;
338: end if;
339: --
521: -- Whe updating only proceed with validation if :
522: -- a) The g_old_rec is current and
523: -- b) The value for employee/applicant flag has changed
524: --
525: if (per_evt_shd.g_old_rec.event_id is null
526: or nvl(per_evt_shd.g_old_rec.emp_or_apl, hr_api.g_varchar2)
527: <> nvl(p_emp_or_apl, hr_api.g_varchar2)
528: ) then
529: --
522: -- a) The g_old_rec is current and
523: -- b) The value for employee/applicant flag has changed
524: --
525: if (per_evt_shd.g_old_rec.event_id is null
526: or nvl(per_evt_shd.g_old_rec.emp_or_apl, hr_api.g_varchar2)
527: <> nvl(p_emp_or_apl, hr_api.g_varchar2)
528: ) then
529: --
530: hr_utility.set_location(l_proc, 20);
589: -- Only proceed with validation if :
590: -- a) The current g_old_rec is current and
591: -- b) The value for event_or_interview has changed
592: --
593: if (per_evt_shd.g_old_rec.event_id is null
594: or nvl(per_evt_shd.g_old_rec.event_or_interview, hr_api.g_varchar2)
595: <> nvl(p_event_or_interview, hr_api.g_varchar2) ) then
596: --
597: hr_utility.set_location(l_proc, 20);
590: -- a) The current g_old_rec is current and
591: -- b) The value for event_or_interview has changed
592: --
593: if (per_evt_shd.g_old_rec.event_id is null
594: or nvl(per_evt_shd.g_old_rec.event_or_interview, hr_api.g_varchar2)
595: <> nvl(p_event_or_interview, hr_api.g_varchar2) ) then
596: --
597: hr_utility.set_location(l_proc, 20);
598: --
673: --
674: begin
675: hr_utility.set_location('Entering:'|| l_proc, 10);
676: --
677: hr_utility.set_location('event_id : ' || per_evt_shd.g_old_rec.event_id, 11);
678: hr_utility.set_location('old person id : ' || per_evt_shd.g_old_rec.internal_contact_person_id, 12);
679: hr_utility.set_location('new person id : ' || p_internal_contact_person_id, 13);
680:
681: if ((per_evt_shd.g_old_rec.event_id is null and p_internal_contact_person_id is not null)
674: begin
675: hr_utility.set_location('Entering:'|| l_proc, 10);
676: --
677: hr_utility.set_location('event_id : ' || per_evt_shd.g_old_rec.event_id, 11);
678: hr_utility.set_location('old person id : ' || per_evt_shd.g_old_rec.internal_contact_person_id, 12);
679: hr_utility.set_location('new person id : ' || p_internal_contact_person_id, 13);
680:
681: if ((per_evt_shd.g_old_rec.event_id is null and p_internal_contact_person_id is not null)
682: or (per_evt_shd.g_old_rec.event_id is not null
677: hr_utility.set_location('event_id : ' || per_evt_shd.g_old_rec.event_id, 11);
678: hr_utility.set_location('old person id : ' || per_evt_shd.g_old_rec.internal_contact_person_id, 12);
679: hr_utility.set_location('new person id : ' || p_internal_contact_person_id, 13);
680:
681: if ((per_evt_shd.g_old_rec.event_id is null and p_internal_contact_person_id is not null)
682: or (per_evt_shd.g_old_rec.event_id is not null
683: and nvl(per_evt_shd.g_old_rec.internal_contact_person_id, hr_api.g_number)
684: <> nvl(p_internal_contact_person_id, hr_api.g_number))) then
685: --
678: hr_utility.set_location('old person id : ' || per_evt_shd.g_old_rec.internal_contact_person_id, 12);
679: hr_utility.set_location('new person id : ' || p_internal_contact_person_id, 13);
680:
681: if ((per_evt_shd.g_old_rec.event_id is null and p_internal_contact_person_id is not null)
682: or (per_evt_shd.g_old_rec.event_id is not null
683: and nvl(per_evt_shd.g_old_rec.internal_contact_person_id, hr_api.g_number)
684: <> nvl(p_internal_contact_person_id, hr_api.g_number))) then
685: --
686: hr_utility.set_location(l_proc, 20);
679: hr_utility.set_location('new person id : ' || p_internal_contact_person_id, 13);
680:
681: if ((per_evt_shd.g_old_rec.event_id is null and p_internal_contact_person_id is not null)
682: or (per_evt_shd.g_old_rec.event_id is not null
683: and nvl(per_evt_shd.g_old_rec.internal_contact_person_id, hr_api.g_number)
684: <> nvl(p_internal_contact_person_id, hr_api.g_number))) then
685: --
686: hr_utility.set_location(l_proc, 20);
687: --
769: --
770: begin
771: hr_utility.set_location('Entering:'|| l_proc, 10);
772: --
773: if ((per_evt_shd.g_old_rec.event_id is null and p_organization_run_by_id is not null)
774: or (per_evt_shd.g_old_rec.event_id is not null
775: and nvl(per_evt_shd.g_old_rec.organization_run_by_id, hr_api.g_number)
776: <> nvl(p_organization_run_by_id, hr_api.g_number))) then
777: --
770: begin
771: hr_utility.set_location('Entering:'|| l_proc, 10);
772: --
773: if ((per_evt_shd.g_old_rec.event_id is null and p_organization_run_by_id is not null)
774: or (per_evt_shd.g_old_rec.event_id is not null
775: and nvl(per_evt_shd.g_old_rec.organization_run_by_id, hr_api.g_number)
776: <> nvl(p_organization_run_by_id, hr_api.g_number))) then
777: --
778: hr_utility.set_location(l_proc, 20);
771: hr_utility.set_location('Entering:'|| l_proc, 10);
772: --
773: if ((per_evt_shd.g_old_rec.event_id is null and p_organization_run_by_id is not null)
774: or (per_evt_shd.g_old_rec.event_id is not null
775: and nvl(per_evt_shd.g_old_rec.organization_run_by_id, hr_api.g_number)
776: <> nvl(p_organization_run_by_id, hr_api.g_number))) then
777: --
778: hr_utility.set_location(l_proc, 20);
779: --
861: if (p_assignment_id is not null) then
862: if (p_assignment_id <> hr_api.g_number) then
863: l_assignment_id := p_assignment_id;
864: else
865: l_assignment_id := per_evt_shd.g_old_rec.assignment_id;
866: end if;
867: --
868: -- Check that the assignment_id is in the per_assignments table.
869: --
1001: -- Internal Table Handler Use Only.
1002: --
1003: --
1004: Procedure chk_party_id(
1005: p_rec in out nocopy per_evt_shd.g_rec_type
1006: )is
1007: --
1008: l_proc varchar2(72) := g_package||'chk_party_id';
1009: l_party_id per_events.party_id%TYPE;
1060: -- ----------------------------------------------------------------------------
1061: -- |---------------------------< insert_validate >----------------------------|
1062: -- ----------------------------------------------------------------------------
1063: Procedure insert_validate
1064: (p_rec in out nocopy per_evt_shd.g_rec_type
1065: ) is
1066: --
1067: l_proc varchar2(72) := g_package||'insert_validate';
1068: --
1165: -- ----------------------------------------------------------------------------
1166: -- |---------------------------< update_validate >----------------------------|
1167: -- ----------------------------------------------------------------------------
1168: Procedure update_validate
1169: (p_rec in per_evt_shd.g_rec_type
1170: ) is
1171: --
1172: l_proc varchar2(72) := g_package||'update_validate';
1173: --
1259: -- ----------------------------------------------------------------------------
1260: -- |---------------------------< delete_validate >----------------------------|
1261: -- ----------------------------------------------------------------------------
1262: Procedure delete_validate
1263: (p_rec in per_evt_shd.g_rec_type
1264: ) is
1265: --
1266: l_proc varchar2(72) := g_package||'delete_validate';
1267: --