1 PACKAGE BODY pa_hr_cost_rates AS
2 /* $Header: PAHRCRTB.pls 120.2 2005/08/19 16:18:47 ramurthy noship $ */
3 --
4 --
5 PROCEDURE check_person_reference (p_person_id IN number,
6 Error_Message OUT NOCOPY varchar2,
7 Reference_Exist OUT NOCOPY varchar2)
8 IS
9 reference_exists exception;
10 dummy1 varchar2(1);
11
12 cursor cost_dist( p_person_id number ) is
13 select null
14 from PA_COST_DIST_OVERRIDES pa
15 where pa.person_id = P_PERSON_ID;
16
17 cursor compens_detail( p_person_id number ) is
18 select null
19 from PA_COMPENSATION_DETAILS_ALL pa
20 where pa.person_id = P_PERSON_ID;
21
22 /* *****************
23 cursor proj_task( p_person_id number ) is
24 select null
25 from PA_PROJECT_TASK_ALIASES pa
26 where pa.person_id = P_PERSON_ID;
27 ************* */
28
29 BEGIN
30
31 Error_Message := 'PA_HR_PER_COST_DIST_OVER';
32 OPEN cost_dist(p_person_id);
33 FETCH cost_dist INTO dummy1;
34 IF cost_dist%found THEN
35 CLOSE cost_dist;
36 raise reference_exists;
37 END IF;
38 CLOSE cost_dist;
39
40 Error_Message := 'PA_HR_PER_COMP_DETAILS';
41 OPEN compens_detail(p_person_id);
42 FETCH compens_detail INTO dummy1;
43 IF compens_detail%found THEN
44 CLOSE compens_detail;
45 raise reference_exists;
46 END IF;
47 CLOSE compens_detail;
48
49 /* *************
50 Error_Message := 'PA_HR_PER_PRJ_TASK_ALIAS';
51 OPEN proj_task(p_person_id);
52 FETCH proj_task INTO dummy1;
53 IF proj_task%found THEN
54 CLOSE proj_task;
55 raise reference_exists;
56 END IF;
57 CLOSE proj_task;
58 *** */
59
60 Reference_Exist := 'N';
61 Error_Message := NULL;
62 EXCEPTION
63 WHEN reference_exists THEN
64 Reference_Exist := 'Y';
65 WHEN others THEN
66 raise;
67 END check_person_reference;
68
69 PROCEDURE check_job_reference (p_job_id IN number,
70 Error_Message OUT NOCOPY varchar2,
71 Reference_Exist OUT NOCOPY varchar2)
72 IS
73 BEGIN
74 Reference_Exist := 'N';
75 Error_Message := NULL;
76 END check_job_reference;
77
78 --
79 END pa_hr_cost_rates;