PACKAGE BODY: APPS.PA_HR_CAPITAL

Source

1 PACKAGE BODY pa_hr_capital       AS
2 /* $Header: PAHRCAPB.pls 120.2 2005/08/19 16:18:44 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 asset_all( p_person_id number ) is
13                 select  null
14                 from    PA_PROJECT_ASSETS_ALL         pa
15                 where   pa.ASSIGNED_TO_PERSON_ID    = P_PERSON_ID;
16   BEGIN
17 
18       Error_Message := 'PA_HR_PER_ASSET';
19       OPEN asset_all(p_person_id);
20       FETCH asset_all INTO dummy1;
21       IF asset_all%found THEN
22          CLOSE asset_all;
23          raise reference_exists;
24       END IF;
25       CLOSE asset_all;
26 
27       Reference_Exist := 'N';
28       Error_Message   := NULL;
29       EXCEPTION
30         WHEN reference_exists  THEN
31           Reference_Exist := 'Y';
32         WHEN others  THEN
33           raise;
34   END check_person_reference;
35 
36   PROCEDURE check_job_reference    (p_job_id          IN number,
37                                     Error_Message    OUT NOCOPY varchar2,
38                                     Reference_Exist  OUT NOCOPY varchar2)
39   IS
40   BEGIN
41       Reference_Exist := 'N';
42       Error_Message   := NULL;
43   END check_job_reference;
44 
45 --
46 END pa_hr_capital      ;