PACKAGE BODY: APPS.PA_HR_SUMMARIZATIONS

Source

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  ;