PACKAGE BODY: APPS.CE_XML_LINES_INF_PKG

Source

1 PACKAGE BODY CE_XML_LINES_INF_PKG AS
2 /* $Header: cexmllib.pls 120.3 2005/09/20 06:06:59 svali noship $ */
3 
4   FUNCTION body_revision RETURN VARCHAR2 IS
5   BEGIN
6 
7     RETURN '$Revision: 120.3 $';
8 
9   END body_revision;
10 
11   FUNCTION spec_revision RETURN VARCHAR2 IS
12   BEGIN
13 
14     RETURN G_spec_revision;
15 
16   END spec_revision;
17 
18   PROCEDURE Ifx_Row(   X_Bank_Account_Num		VARCHAR2,
19 		       X_Statement_Number		VARCHAR2,
20 		       X_Line_Number			NUMBER,
21 		       X_Trx_Date			DATE,
22 		       X_Trx_Code		IN OUT  NOCOPY VARCHAR2,
23 		       X_Effective_Date			DATE,
24 		       X_Trx_Text			VARCHAR2,
25 		       X_Invoice_Text			VARCHAR2,
26 		       X_Bank_Account_Text		VARCHAR2,
27 		       X_Amount				NUMBER,
28 		       X_Charges_Amount			NUMBER,
29 		       X_Currency_Code			VARCHAR2,
30 		       X_Exchange_Rate			NUMBER,
31 		       X_user_exchange_rate_type	VARCHAR2,
32 		       X_exchange_rate_date		DATE,
33 		       X_original_amount		NUMBER,
34 		       X_Bank_Trx_Number		VARCHAR2,
35 		       X_Customer_Text			VARCHAR2,
36 		       X_Created_By		IN OUT	NOCOPY NUMBER,
37 		       X_Creation_Date		IN OUT	NOCOPY DATE,
38                        X_Last_Updated_By	IN OUT	NOCOPY NUMBER,
39                        X_Last_Update_Date	IN OUT	NOCOPY DATE,
40 		       X_Attribute_Category		VARCHAR2,
41 		       X_Attribute1			VARCHAR2,
42 		       X_Attribute10			VARCHAR2,
43 		       X_Attribute11			VARCHAR2,
44 		       X_Attribute12			VARCHAR2,
45 		       X_Attribute13			VARCHAR2,
46 		       X_Attribute14			VARCHAR2,
47 		       X_Attribute15			VARCHAR2,
48 		       X_Attribute2			VARCHAR2,
49 		       X_Attribute3			VARCHAR2,
50 		       X_Attribute4			VARCHAR2,
51 		       X_Attribute5			VARCHAR2,
52 		       X_Attribute6			VARCHAR2,
53 		       X_Attribute7			VARCHAR2,
54 		       X_Attribute8			VARCHAR2,
55 		       X_Attribute9			VARCHAR2) IS
56 
57   l_cnt         NUMBER;
58   l_Rowid       ROWID;
59   l_trx_code    VARCHAR2(30);
60 
61   l_seq		number;
62 
63   BEGIN
64 
65     DELETE FROM ce_statement_lines_interface
66     WHERE  bank_account_num = ltrim(rtrim(X_Bank_Account_Num,' '), ' ')
67     AND    statement_number = ltrim(rtrim(X_Statement_Number,' '), ' ')
68     AND    line_number      = X_Line_Number;
69 
70     IF substr(X_trx_code,1,3) = 'BAI' THEN
71       l_trx_code := substr(X_trx_code,5,3);
72     ELSE
73       l_trx_code := X_trx_code;
74     END IF;
75 
76     CE_STAT_LINES_INF_PKG.Insert_Row(
77 			l_Rowid,
78 			ltrim(rtrim(X_Bank_Account_Num,' '), ' '),
79 			ltrim(rtrim(X_Statement_Number,' '), ' '),
80 			X_Line_Number,
81 			ltrim(rtrim(X_Trx_Date,' '), ' '),
82 			ltrim(rtrim(l_trx_code,' '), ' '),
83 			ltrim(rtrim(X_Effective_Date,' '), ' '),
84 			ltrim(rtrim(X_Trx_Text,' '), ' '),
85 			ltrim(rtrim(X_Invoice_Text,' '), ' '),
86 			ltrim(rtrim(X_Bank_Account_Text,' '), ' '),
87 			X_Amount,
88 			X_Charges_Amount,
89 			ltrim(rtrim(X_Currency_Code,' '), ' '),
90 			X_Exchange_Rate,
91 			ltrim(rtrim(X_user_exchange_rate_type,' '), ' '),
92 			ltrim(rtrim(X_exchange_rate_date,' '), ' '),
93 			X_original_amount,
94 			ltrim(rtrim(X_Bank_Trx_Number,' '), ' '),
95 			ltrim(rtrim(X_Customer_Text,' '), ' '),
96 			-1,
97 			sysdate,
98 			-1,
99 			sysdate,
100 			X_Attribute_Category,
101 			X_Attribute1,
102 			X_Attribute10,
103 			X_Attribute11,
104 			X_Attribute12 ,
105 			X_Attribute13,
106 			X_Attribute14,
107 			X_Attribute15,
108 			X_Attribute2,
109 			X_Attribute3,
110 			X_Attribute4,
111 			X_Attribute5,
112 			X_Attribute6,
113 			X_Attribute7,
114 			X_Attribute8,
115 			X_Attribute9);
116 
117   EXCEPTION
118     WHEN OTHERS THEN
119       fnd_message.set_name('CE', 'CE_UNHANDLED_EXCEPTION');
120       fnd_message.set_token('PROCEDURE', 'CE_XML_LINES_INF_PKG.IFX_ROW');
121       RAISE;
122   END Ifx_row;
123 
124 END CE_XML_LINES_INF_PKG;