[Home] [Help]
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;