1 package body PA_Client_Extn_Inv_Actions as
2 /* $Header: PAXPIACB.pls 120.1 2005/08/19 17:16:48 mwasowic noship $ */
3
4 /*----------------------------------------------------------------------+
5 | Approve Customer Invoice Template |
6 +----------------------------------------------------------------------*/
7 Procedure Approve_Invoice ( P_Project_ID in number,
8 P_Draft_Invoice_Num in number,
9 P_Invoice_Class in varchar2,
10 P_Project_Amount in number,
11 P_Project_Currency_Code in varchar2,
12 P_Inv_Currency_Code in varchar2,
13 P_Invoice_Amount in number,
14 X_Approve_Flag out NOCOPY varchar2, --File.Sql.39 bug 4440895
15 X_Status out NOCOPY number ) is --File.Sql.39 bug 4440895
16 BEGIN
17 -- Reset the output parameters.
18 X_Approve_Flag := NULL;
19 X_status := 0;
20
21 -- Add your Approve Invoice Logic here.
22 -- If you want to Approve the Invoice set X_Approve_Flag to 'Y'.
23 -- If it's null or set to 'N', Approval of Invoice will not be Done.
24 -- Do not add 'commit' or 'rollback' in your code, since Oracle
25 -- Projects controls the transaction for you.
26
27 EXCEPTION
28 when others then
29 -- Add your exception handler here.
30 -- To raise an application error, assign a positive number to X_Status.
31 -- To raise an ORACLE error, assign SQLCODE to X_Status.
32 RAISE;
33
34 END Approve_Invoice;
35
36
37 /*----------------------------------------------------------------------+
38 | Release Customer Invoice Template |
39 +----------------------------------------------------------------------*/
40 Procedure Release_Invoice ( P_Project_ID in number,
41 P_Draft_Invoice_Num in number,
42 P_Invoice_Class in varchar2,
43 P_Project_Amount in number,
44 P_Project_Currency_Code in varchar2,
45 P_Inv_Currency_Code in varchar2,
46 P_Invoice_Amount in number,
47 X_Release_Flag out NOCOPY varchar2, --File.Sql.39 bug 4440895
48 X_RA_Invoice_Date out NOCOPY date, --File.Sql.39 bug 4440895
49 X_RA_Invoice_Num out NOCOPY varchar2, --File.Sql.39 bug 4440895
50 X_Status out NOCOPY number, --File.Sql.39 bug 4440895
51 X_Credit_Memo_Reason_Code out NOCOPY varchar2) is --File.Sql.39 bug 4440895
52 BEGIN
53 -- Reset the output parameters.
54 X_Release_Flag := NULL;
55 X_status := 0;
56 X_Credit_Memo_Reason_Code := NULL;
57 -- Add your Release Invoice Logic here.
58 -- If you want to Approve the Invoice set X_Release_Flag to 'Y'.
59 -- If it's null or set to 'N', Release of Invoice will not be Done.
60 -- Do not add 'commit' or 'rollback' in your code, since Oracle
61 -- Projects controls the transaction for you.
62
63 EXCEPTION
64 when others then
65 -- Add your exception handler here.
66 -- To raise an application error, assign a positive number to X_Status.
67 -- To raise an ORACLE error, assign SQLCODE to X_Status.
68 RAISE;
69
70 END Release_Invoice;
71
72 /* Overloaded Procedure Release_invoice for credit memo reason */
73 Procedure Release_Invoice ( P_Project_ID in number,
74 P_Draft_Invoice_Num in number,
75 P_Invoice_Class in varchar2,
76 P_Project_Amount in number,
77 P_Project_Currency_Code in varchar2,
78 P_Inv_Currency_Code in varchar2,
79 P_Invoice_Amount in number,
80 X_Release_Flag out NOCOPY varchar2, --File.Sql.39 bug 4440895
81 X_RA_Invoice_Date out NOCOPY date, --File.Sql.39 bug 4440895
82 X_RA_Invoice_Num out NOCOPY varchar2, --File.Sql.39 bug 4440895
83 X_Status out NOCOPY number) is --File.Sql.39 bug 4440895
84
85 new_excp exception;
86 BEGIN
87 Raise new_excp;
88 END Release_Invoice ;
89
90
91 end PA_Client_Extn_Inv_Actions;