PACKAGE BODY: APPS.PA_CLIENT_EXTN_INV_TRANSFER

Source

1 PACKAGE BODY PA_Client_Extn_Inv_Transfer AS
2 -- $Header: PAXPTRXB.pls 120.3 2005/08/19 17:18:29 mwasowic noship $
3 
4    /*----------------------------------------------------------------------+
5     |                Determine AR Transaction Type                         |
6     +----------------------------------------------------------------------*/
7 
8 Procedure Get_AR_Trx_Type ( 	P_Project_ID		IN	Number,
9 				P_Draft_Invoice_Num	IN	Number,
10 				P_Invoice_Class		IN	Varchar2,
11                                 P_Project_Amount        IN      Number,
12                                 P_Project_Currency_Code IN      Varchar2,
13                                 P_Inv_Currency_Code     IN      Varchar2,
14 				P_Invoice_Amount	IN	Number,
15 				P_AR_Trx_Type_ID	IN	Number,
16 				X_AR_Trx_Type_ID	OUT	NOCOPY Number,   --File.Sql.39 bug 4440895
17 				X_Status		OUT	NOCOPY Number ) IS --File.Sql.39 bug 4440895
18 
19 BEGIN
20 
21 -- Reset the output parameters.
22 X_AR_Trx_Type_ID := NULL;
23 X_Status := 0;
24 
25 EXCEPTION
26 
27 When OTHERS then
28 	X_Status := SQLCODE;
29 	RAISE;
30 
31 END Get_AR_Trx_Type;
32 
33 END PA_Client_Extn_Inv_Transfer;