PACKAGE BODY: APPS.PA_HR_BUDGETS

Source

1 PACKAGE BODY pa_hr_budgets       AS
2 /* $Header: PAHRBUDB.pls 120.3 2006/01/13 01:42:48 ssong noship $ */
3 --
4   --
5   PROCEDURE check_person_reference (p_person_id       IN number,
6                                     Error_Message    OUT NOCOPY varchar2, --File.Sql.39 bug 4440895
7                                     Reference_Exist  OUT NOCOPY varchar2) --File.Sql.39 bug 4440895
8   IS
9      reference_exists  exception;
10      dummy1            varchar2(1);
11 
12      -- Modified for perf bug 4887375
13      cursor budget_ver( p_person_id number ) is
14           select  null
15           from    dual
16           where   exists
17             (select  null
18              from    PA_BUDGET_VERSIONS            pa
19              where   pa.BASELINED_BY_PERSON_ID   = P_PERSON_ID);
20 
21   BEGIN
22 
23       Error_Message := 'PA_HR_PER_IN_BUDG_VER';
24       OPEN budget_ver(p_person_id);
25       FETCH budget_ver INTO dummy1;
26       IF budget_ver%found THEN
27          CLOSE budget_ver;
28          raise reference_exists;
29       END IF;
30       CLOSE budget_ver;
31 
32       Reference_Exist := 'N';
33       Error_Message   := NULL;
34       EXCEPTION
35         WHEN reference_exists  THEN
36           Reference_Exist := 'Y';
37         WHEN others  THEN
38           raise;
39   END check_person_reference;
40 
41   PROCEDURE check_job_reference    (p_job_id          IN number,
42                                     Error_Message    OUT NOCOPY varchar2, --File.Sql.39 bug 4440895
43                                     Reference_Exist  OUT NOCOPY varchar2) --File.Sql.39 bug 4440895
44   IS
45   BEGIN
46       Reference_Exist := 'N';
47       Error_Message   := NULL;
48   END check_job_reference;
49 
50 --
51 END pa_hr_budgets      ;