[Home] [Help]
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;