1 PACKAGE BODY pa_hr_summarizations AS
2 /* $Header: PAHRSUMB.pls 115.1 99/08/19 17:42:12 porting shi $ */
3 --
4 --
5 PROCEDURE check_person_reference (p_person_id IN number,
6 Error_Message OUT varchar2,
7 Reference_Exist OUT varchar2)
8 IS
9 reference_exists exception;
10 dummy1 varchar2(1);
11
12 cursor resource_map( p_person_id number ) is
13 select null
14 from PA_RESOURCE_MAPS pa
15 where pa.person_id = P_PERSON_ID;
16
17 /* -- sowong - these lines of code are removed since PA EMPLOYEE ACCUM
18 -- references are not needed (see bug 967781).
19
20 cursor emp_accum( p_person_id number ) is
21 select null
22 from PA_EMPLOYEE_ACCUM_ALL pa
23 where pa.person_id = P_PERSON_ID;
24 */
25
26 cursor txn_accum( p_person_id number ) is
27 select null
28 from PA_TXN_ACCUM pa
29 where pa.person_id = P_PERSON_ID;
30
31 BEGIN
32
33 Error_Message := 'PA_HR_PER_IN_RES_MAP_DET';
34 OPEN resource_map(p_person_id);
35 FETCH resource_map INTO dummy1;
36 IF resource_map%found THEN
37 CLOSE resource_map;
38 raise reference_exists;
39 END IF;
40 CLOSE resource_map;
41
42 /* -- sowong - these lines of code are removed since PA EMPLOYEE ACCUM
43 -- references are not needed (see bug 967781).
44
45 Error_Message := 'PA_HR_PER_EMP_ACCUM';
46 OPEN emp_accum(p_person_id);
47 FETCH emp_accum INTO dummy1;
48 IF emp_accum%found THEN
49 CLOSE emp_accum;
50 raise reference_exists;
51 END IF;
52 CLOSE emp_accum;
53 */
54
55 Error_Message := 'PA_HR_PER_TXN_ACCUM';
56 OPEN txn_accum(p_person_id);
57 FETCH txn_accum INTO dummy1;
58 IF txn_accum%found THEN
59 CLOSE txn_accum;
60 raise reference_exists;
61 END IF;
62 CLOSE txn_accum;
63
64 Reference_Exist := 'N';
65 Error_Message := NULL;
66 EXCEPTION
67 WHEN reference_exists THEN
68 Reference_Exist := 'Y';
69 WHEN others THEN
70 raise;
71 END check_person_reference;
72
73 PROCEDURE check_job_reference (p_job_id IN number,
74 Error_Message OUT varchar2,
75 Reference_Exist OUT varchar2)
76 IS
77 reference_exists exception;
78 dummy1 varchar2(1);
79
80 cursor txn_accum( p_job_id number ) is
81 select null
82 from PA_TXN_ACCUM pa
83 where pa.job_id = P_JOB_ID;
84
85 BEGIN
86 Error_Message := 'PA_HR_JOB_TXN_ACCUM';
87 OPEN txn_accum(p_job_id);
88 FETCH txn_accum INTO dummy1;
89 IF txn_accum%found THEN
90 CLOSE txn_accum;
91 raise reference_exists;
92 END IF;
93 CLOSE txn_accum;
94
95 Reference_Exist := 'N';
96 Error_Message := NULL;
97 EXCEPTION
98 WHEN reference_exists THEN
99 Reference_Exist := 'Y';
100 WHEN others THEN
101 raise;
102 END check_job_reference;
103
104 --
105 END pa_hr_summarizations ;