1 PACKAGE BODY pa_hr_invoice AS
2 /* $Header: PAHRINVB.pls 120.2 2005/08/16 15:39:45 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 credit_receiv( p_person_id number ) is
13 select null
14 from pa_credit_receivers pa
15 where pa.person_id = P_PERSON_ID;
16
17 cursor draft_inv( p_person_id number ) is
18 select null
22
19 from pa_draft_invoices_all pa
20 where pa.approved_by_person_id = P_PERSON_ID
21 or pa.released_by_person_id = P_PERSON_ID;
23 BEGIN
24
25 Error_Message := 'PA_HR_PER_CREDIT_RECEIV';
26 OPEN credit_receiv(p_person_id);
27 FETCH credit_receiv INTO dummy1;
28 IF credit_receiv%found THEN
29 CLOSE credit_receiv;
30 raise reference_exists;
31 END IF;
32 CLOSE credit_receiv;
33
34 Error_Message := 'PA_HR_PER_DRAFT_INV';
35 OPEN draft_inv(p_person_id);
36 FETCH draft_inv INTO dummy1;
37 IF draft_inv%found THEN
38 CLOSE draft_inv;
39 raise reference_exists;
40 END IF;
41 CLOSE draft_inv;
42
43 Reference_Exist := 'N';
44 Error_Message := NULL;
45 EXCEPTION
46 WHEN reference_exists THEN
47 Reference_Exist := 'Y';
48 WHEN others THEN
49 raise;
50 END check_person_reference;
51
52 PROCEDURE check_job_reference (p_job_id IN number,
53 Error_Message OUT NOCOPY varchar2,
54 Reference_Exist OUT NOCOPY varchar2)
55 IS
56 BEGIN
57 Reference_Exist := 'N';
58 Error_Message := NULL;
59 END check_job_reference;
60 END pa_hr_invoice ;