1 PACKAGE BODY PA_CC_AP_INV_CLIENT_EXTN
2 -- $Header: PACCINPB.pls 120.2 2005/08/10 14:10:34 eyefimov noship $
3 AS
4
5
6 PROCEDURE override_exp_type_exp_org (
7 p_internal_billing_type IN VARCHAR2,
8 p_project_id IN NUMBER,
9 p_receiver_project_id IN NUMBER,
10 p_receiver_task_id IN NUMBER,
11 p_draft_invoice_number IN NUMBER,
12 p_draft_invoice_line_num IN NUMBER,
13 p_invoice_date IN DATE,
14 p_ra_invoice_number IN VARCHAR,
15 p_provider_org_id IN NUMBER,
16 p_receiver_org_id IN NUMBER,
17 p_cc_ar_invoice_id IN NUMBER,
18 p_cc_ar_invoice_line_num IN NUMBER,
19 p_project_customer_id IN NUMBER,
20 p_vendor_id IN NUMBER,
21 p_vendor_site_id IN NUMBER,
22 p_expenditure_type IN VARCHAR2,
23 p_expenditure_organization_id IN NUMBER,
24 x_expenditure_type OUT NOCOPY VARCHAR2,
25 x_expenditure_organization_id OUT NOCOPY NUMBER,
26 x_status IN OUT NOCOPY NUMBER,
27 x_Error_Stage IN OUT NOCOPY VARCHAR2,
28 X_Error_Code IN OUT NOCOPY NUMBER)
29
30 IS
31
32
33 BEGIN
34
35 x_status := 0;
36 pa_cc_utils.set_curr_function('PA_CC_AP_INV_CLIENT_EXTN.OVERRIDE_EXP_TYPE_EXP_ORG');
37 --
38 -- Default code returns the expenditure_type and expenditure organization
39 -- that were passed to it.
40 --
41 pa_cc_utils.log_message('Calling the custom code in client extension ');
42 X_Error_Stage := 'Assigning the original values back to it';
43
44 x_expenditure_type := p_expenditure_type ;
45 x_expenditure_organization_id := p_expenditure_organization_id ;
46
47 pa_cc_utils.reset_curr_function;
48
49 EXCEPTION
50
51 WHEN OTHERS THEN
52 RAISE ;
53
54 END override_exp_type_exp_org ;
55
56 END PA_CC_AP_INV_CLIENT_EXTN;