PACKAGE BODY: APPS.PA_HR_AGREEMENTS

Source

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