[Home] [Help]
1: PACKAGE BODY pa_person AS
2: /* $Header: PAPERB.pls 120.1 2005/08/19 16:39:22 mwasowic noship $ */
3: --
4: --
5: PROCEDURE check_business_group (p_person_id IN number,
161: AND fpi.status = 'I';
162: --
163: BEGIN
164: --
165: hr_utility.set_location('PA_PERSON.PA_PREDEL_VALIDATION', 1);
166: --
167: begin
168: select 'Y'
169: into v_delete_permitted
170: from sys.dual
171: where not exists (
172: select null
173: from pa_compensation_details pa
174: where pa.person_id = P_PERSON_ID);
175: exception
176: when NO_DATA_FOUND then
177: hr_utility.set_message (801, 'HR_6285_ALL_PA_PER_NO_DEL');
178: hr_utility.raise_error;
177: hr_utility.set_message (801, 'HR_6285_ALL_PA_PER_NO_DEL');
178: hr_utility.raise_error;
179: end;
180: --
181: hr_utility.set_location('PA_PERSON.PA_PREDEL_VALIDATION', 2);
182: --
183: begin
184: select 'Y'
185: into v_delete_permitted
188: select null
189: from pa_emp_bill_rate_overrides pa
190: where pa.project_id > -1
191: and pa.task_id > -1
192: and pa.person_id = P_PERSON_ID);
193: exception
194: when NO_DATA_FOUND then
195: hr_utility.set_message (801, 'HR_6286_ALL_PA2_PER_NO_DEL');
196: hr_utility.raise_error;
195: hr_utility.set_message (801, 'HR_6286_ALL_PA2_PER_NO_DEL');
196: hr_utility.raise_error;
197: end;
198: --
199: hr_utility.set_location('PA_PERSON.PA_PREDEL_VALIDATION', 3);
200: --
201: begin
202: select 'Y'
203: into v_delete_permitted
205: where not exists (
206: select null
207: from pa_job_assignment_overrides pa
208: where ((pa.project_id > -1 AND
209: pa.person_id = P_PERSON_ID)
210: OR
211: (pa.task_id > -1 AND
212: pa.person_id = P_PERSON_ID)));
213: exception
208: where ((pa.project_id > -1 AND
209: pa.person_id = P_PERSON_ID)
210: OR
211: (pa.task_id > -1 AND
212: pa.person_id = P_PERSON_ID)));
213: exception
214: when NO_DATA_FOUND then
215: hr_utility.set_message (801, 'HR_6287_ALL_PA3_PER_NO_DEL');
216: hr_utility.raise_error;
215: hr_utility.set_message (801, 'HR_6287_ALL_PA3_PER_NO_DEL');
216: hr_utility.raise_error;
217: end;
218: --
219: hr_utility.set_location('PA_PERSON.PA_PREDEL_VALIDATION', 4);
220: --
221: begin
222: select 'Y'
223: into v_delete_permitted
227: null
228: from pa_bill_rates pa
229: where pa.bill_rate_organization_id > -1
230: and pa.std_bill_rate_schedule <> 'DUMMY'
231: and pa.person_id = P_PERSON_ID);
232: exception
233: when NO_DATA_FOUND then
234: hr_utility.set_message (801, 'HR_6288_ALL_PA4_PER_NO_DEL');
235: hr_utility.raise_error;
234: hr_utility.set_message (801, 'HR_6288_ALL_PA4_PER_NO_DEL');
235: hr_utility.raise_error;
236: end;
237: --
238: hr_utility.set_location('PA_PERSON.PA_PREDEL_VALIDATION', 5);
239: --
240: begin
241: select 'Y'
242: into v_delete_permitted
243: from sys.dual
244: where not exists (
245: select null
246: from pa_project_players pa
247: where pa.person_id = P_PERSON_ID);
248: exception
249: when NO_DATA_FOUND then
250: hr_utility.set_message (801, 'HR_6289_ALL_PA5_PER_NO_DEL');
251: hr_utility.raise_error;
250: hr_utility.set_message (801, 'HR_6289_ALL_PA5_PER_NO_DEL');
251: hr_utility.raise_error;
252: end;
253: --
254: hr_utility.set_location('PA_PERSON.PA_PREDEL_VALIDATION', 6);
255: --
256: begin
257: select 'Y'
258: into v_delete_permitted
266: hr_utility.set_message (801, 'HR_6290_ALL_PA6_PER_NO_DEL');
267: hr_utility.raise_error;
268: end;
269: --
270: hr_utility.set_location('PA_PERSON.PA_PREDEL_VALIDATION', 7);
271: --
272: begin
273: select 'Y'
274: into v_delete_permitted
282: hr_utility.set_message (801, 'HR_6295_ALL_PA7_PER_NO_DEL');
283: hr_utility.raise_error;
284: end;
285: --
286: hr_utility.set_location('PA_PERSON.PA_PREDEL_VALIDATION', 8);
287: --
288: begin
289: select /*+ INDEX (pa PA_CREDIT_RECEIVERS_U1) */
290: 'Y'
292: from sys.dual
293: where not exists (
294: select null
295: from pa_credit_receivers pa
296: where pa.person_id = P_PERSON_ID);
297: exception
298: when NO_DATA_FOUND then
299: hr_utility.set_message (801, 'HR_6297_ALL_PA8_PER_NO_DEL');
300: hr_utility.raise_error;
299: hr_utility.set_message (801, 'HR_6297_ALL_PA8_PER_NO_DEL');
300: hr_utility.raise_error;
301: end;
302: --
303: hr_utility.set_location('PA_PERSON.PA_PREDEL_VALIDATION', 9);
304: --
305: begin
306: select 'Y'
307: into v_delete_permitted
323: hr_utility.set_message (801, 'HR_6300_ALL_PA9_PER_NO_DEL');
324: hr_utility.raise_error;
325: end;
326: --
327: hr_utility.set_location('PA_PERSON.PA_PREDEL_VALIDATION', 10);
328: --
329: begin
330: select 'Y'
331: into v_delete_permitted
344:
345: /* -- sowong - these lines of code are removed since PA EMPLOYEE ACCUM
346: -- references are not needed (see bug 967781).
347:
348: hr_utility.set_location('PA_PERSON.PA_PREDEL_VALIDATION', 11);
349: --
350: begin
351: select 'Y'
352: into v_delete_permitted
353: from sys.dual
354: where not exists (
355: select null
356: from pa_employee_accum pa
357: where pa.person_id = P_PERSON_ID);
358: exception
359: when NO_DATA_FOUND then
360: hr_utility.set_message (801, 'HR_6302_ALL_PA11_PER_NO_DEL');
361: hr_utility.raise_error;
362: end;
363: --
364: */
365:
366: hr_utility.set_location('PA_PERSON.PA_PREDEL_VALIDATION', 12);
367: --
368: begin
369: select 'Y'
370: into v_delete_permitted
380: hr_utility.set_message (801, 'HR_7057_ALL_PA12_PER_NO_DEL');
381: hr_utility.raise_error;
382: end;
383: --
384: hr_utility.set_location('PA_PERSON.PA_PREDEL_VALIDATION', 16);
385: --
386: begin
387: select 'Y'
388: into v_delete_permitted
390: where not exists (
391: select null
392: from pa_transaction_controls pa
393: where pa.project_id > -1
394: and pa.person_id = P_PERSON_ID);
395: exception
396: when NO_DATA_FOUND then
397: hr_utility.set_message (801, 'HR_7061_ALL_PA16_PER_NO_DEL');
398: hr_utility.raise_error;
408: --
409: --
410: END phase2;
411: --
412: END pa_person;