1: PACKAGE BODY pa_job AS
2: /* $Header: PAJOBB.pls 120.2 2005/08/25 12:25:44 ramurthy noship $ */
3: --
4: /*
5: NAME
128: when OTHERS then
129: Raise;
130: /* **
131: when NO_DATA_FOUND then
132: hr_utility.set_message (275, 'PA_JOB_PHS1_NO_DEL');
133: hr_utility.raise_error;
134: ** */
135: END check_business_group;
136:
135: END check_business_group;
136:
137: PROCEDURE phase2 (p_job_id number) IS
138: dummy VARCHAR2(240); -- used for into argument
139: cursor pa_job_exists is
140: SELECT 'The Job may not be deleted if PA is installed and implemented'
141: FROM fnd_product_installations fpi
142: , pa_implementations_all imp
143: WHERE fpi.application_id = 275
144: AND fpi.status = 'I';
145:
146: BEGIN
147: --
148: -- hr_utility.set_location('PA_JOB.PA_PREDEL_VALIDATION', 1);
149: --
150: open pa_job_exists;
151: fetch pa_job_exists into dummy;
152: if pa_job_exists%found then
146: BEGIN
147: --
148: -- hr_utility.set_location('PA_JOB.PA_PREDEL_VALIDATION', 1);
149: --
150: open pa_job_exists;
151: fetch pa_job_exists into dummy;
152: if pa_job_exists%found then
153: hr_utility.set_message (275,'PA_JOB_CANT_DELETE');
154: hr_utility.raise_error;
147: --
148: -- hr_utility.set_location('PA_JOB.PA_PREDEL_VALIDATION', 1);
149: --
150: open pa_job_exists;
151: fetch pa_job_exists into dummy;
152: if pa_job_exists%found then
153: hr_utility.set_message (275,'PA_JOB_CANT_DELETE');
154: hr_utility.raise_error;
155: end if;
148: -- hr_utility.set_location('PA_JOB.PA_PREDEL_VALIDATION', 1);
149: --
150: open pa_job_exists;
151: fetch pa_job_exists into dummy;
152: if pa_job_exists%found then
153: hr_utility.set_message (275,'PA_JOB_CANT_DELETE');
154: hr_utility.raise_error;
155: end if;
156: close pa_job_exists;
149: --
150: open pa_job_exists;
151: fetch pa_job_exists into dummy;
152: if pa_job_exists%found then
153: hr_utility.set_message (275,'PA_JOB_CANT_DELETE');
154: hr_utility.raise_error;
155: end if;
156: close pa_job_exists;
157: --
152: if pa_job_exists%found then
153: hr_utility.set_message (275,'PA_JOB_CANT_DELETE');
154: hr_utility.raise_error;
155: end if;
156: close pa_job_exists;
157: --
158: END phase2;
159:
160: END pa_job;
156: close pa_job_exists;
157: --
158: END phase2;
159:
160: END pa_job;