PACKAGE BODY: APPS.PA_HR_PROJECT_SETUP

Source

1 PACKAGE BODY pa_hr_project_setup AS
2 /* $Header: PAHRPRJB.pls 120.2 2005/08/23 22:28:31 avaithia 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      cursor proj_player( p_person_id number ) is
13                 select  null
14                 from    PA_PROJECT_PLAYERS         pa
15                 where   pa.person_id                    = P_PERSON_ID;
16 
17      cursor tasks( p_person_id number ) is
18                 select  null
19                 from    PA_TASKS         pa
20                 where   pa.TASK_MANAGER_PERSON_ID   = P_PERSON_ID;
21 
22   BEGIN
23       Error_Message := 'PA_HR_PER_IN_PRJ_PLAY';
24       OPEN proj_player(p_person_id);
25       FETCH proj_player INTO dummy1;
26       IF proj_player%found THEN
27          CLOSE proj_player;
28          raise reference_exists;
29       END IF;
30       CLOSE proj_player;
31 
32       Error_Message := 'PA_HR_PER_IN_TASK_DETAILS';
33       OPEN tasks(p_person_id);
34       FETCH tasks INTO dummy1;
35       IF tasks%found THEN
36          CLOSE tasks;
37          raise reference_exists;
38       END IF;
39       CLOSE tasks;
40 
41       Reference_Exist := 'N';
42       Error_Message   := NULL;
43       EXCEPTION
44         WHEN reference_exists  THEN
45           Reference_Exist := 'Y';
46         WHEN others  THEN
47           raise;
48   END check_person_reference;
49 
50   PROCEDURE check_job_reference    (p_job_id          IN number,
51                                     Error_Message    OUT NOCOPY varchar2, --File.Sql.39 bug 4440895
52                                     Reference_Exist  OUT NOCOPY varchar2) --File.Sql.39 bug 4440895
53   IS
54   BEGIN
55       Reference_Exist := 'N';
56       Error_Message   := NULL;
57   END check_job_reference;
58 
59 --
60 END pa_hr_project_setup;