[Home] [Help]
PACKAGE BODY: APPS.CE_CASHFLOWS_PKG
Source
1 PACKAGE BODY CE_CASHFLOWS_PKG as
2 /* $Header: cebtcthb.pls 120.0 2005/07/26 08:44:47 jikumar noship $ */
3
4
5
6 FUNCTION body_revision RETURN VARCHAR2 IS
7 BEGIN
8
9 RETURN '$Revision: 120.0 $';
10
11 END body_revision;
12
13 FUNCTION spec_revision RETURN VARCHAR2 IS
14 BEGIN
15
16 RETURN G_spec_revision;
17
18 END spec_revision;
19
20 PROCEDURE INSERT_ROW (
21 X_ROWID IN OUT NOCOPY VARCHAR2,
22 X_CASHFLOW_ID IN OUT NOCOPY NUMBER,
23 X_CASHFLOW_LEDGER_ID NUMBER,
24 X_CASHFLOW_LEGAL_ENTITY_ID NUMBER,
25 X_CASHFLOW_BANK_ACCOUNT_ID NUMBER,
26 X_CASHFLOW_DIRECTION VARCHAR2,
27 X_CASHFLOW_CURRENCY_CODE VARCHAR2,
28 X_CASHFLOW_DATE DATE,
29 X_CASHFLOW_AMOUNT NUMBER,
30 X_BASE_AMOUNT NUMBER,
31 X_DESCRIPTION VARCHAR2,
32 X_CASHFLOW_EXCHANGE_RATE NUMBER,
33 X_CASHFLOW_EXCHANGE_DATE DATE,
34 X_CASHFLOW_EXCHANGE_RATE_TYPE VARCHAR2,
35 X_TRXN_REFERENCE_NUMBER NUMBER,
36 X_BANK_TRXN_NUMBER VARCHAR2,
37 X_SOURCE_TRXN_TYPE VARCHAR2,
38 X_SOURCE_TRXN_SUBTYPE_CODE_ID VARCHAR2,
39 X_STATEMENT_LINE_ID NUMBER,
40 X_ACTUAL_VALUE_DATE DATE,
41 X_COUNTERPARTY_PARTY_ID NUMBER,
42 X_COUNTERPARTY_BANK_ACCOUNT_ID NUMBER,
43 X_OFFSET_CCID NUMBER,
44 X_CASHFLOW_STATUS_CODE VARCHAR2,
45 X_CLEARED_DATE DATE,
46 X_CLEARED_AMOUNT NUMBER,
47 X_CLEARED_EXCHANGE_RATE NUMBER,
48 X_CLEARED_EXCHANGE_DATE DATE,
49 X_CLEARED_EXCHANGE_RATE_TYPE VARCHAR2,
50 X_CLEARING_CHARGES_AMOUNT NUMBER,
51 X_CLEARING_ERROR_AMOUNT NUMBER,
52 X_CLEARED_BY_FLAG VARCHAR2,
53 X_REFERENCE_TEXT VARCHAR2,
54 X_BANK_ACCOUNT_TEXT VARCHAR2,
55 X_CUSTOMER_TEXT VARCHAR2,
56 X_CREATED_BY NUMBER,
57 X_CREATION_DATE DATE,
58 X_LAST_UPDATED_BY NUMBER,
59 X_LAST_UPDATE_DATE DATE,
60 X_LAST_UPDATE_LOGIN NUMBER
61 ) IS
62
63 CURSOR C IS SELECT CE_CASHFLOWS_S.NEXTVAL FROM DUAL;
64
65 CURSOR C1 IS SELECT ROWID FROM CE_CASHFLOWS
66 WHERE CASHFLOW_ID = X_CASHFLOW_ID;
67 BEGIN
68 IF ( X_CASHFLOW_ID ) IS NULL THEN
69 OPEN C;
70 FETCH C INTO X_CASHFLOW_ID;
71 CLOSE C;
72 END IF;
73 INSERT INTO CE_CASHFLOWS (
74 CASHFLOW_ID,
75 CASHFLOW_LEDGER_ID,
76 CASHFLOW_LEGAL_ENTITY_ID,
77 CASHFLOW_BANK_ACCOUNT_ID,
78 CASHFLOW_DIRECTION,
79 CASHFLOW_CURRENCY_CODE,
80 CASHFLOW_DATE,
81 CASHFLOW_AMOUNT,
82 BASE_AMOUNT,
83 DESCRIPTION,
84 CASHFLOW_EXCHANGE_RATE,
85 CASHFLOW_EXCHANGE_DATE,
86 CASHFLOW_EXCHANGE_RATE_TYPE,
87 TRXN_REFERENCE_NUMBER,
88 BANK_TRXN_NUMBER,
89 SOURCE_TRXN_TYPE,
90 SOURCE_TRXN_SUBTYPE_CODE_ID,
91 STATEMENT_LINE_ID,
92 ACTUAL_VALUE_DATE,
93 COUNTERPARTY_PARTY_ID,
94 COUNTERPARTY_BANK_ACCOUNT_ID,
95 OFFSET_CCID,
96 CASHFLOW_STATUS_CODE,
97 CLEARED_DATE,
98 CLEARED_AMOUNT,
99 CLEARED_EXCHANGE_RATE,
100 CLEARED_EXCHANGE_DATE,
101 CLEARED_EXCHANGE_RATE_TYPE,
102 CLEARING_CHARGES_AMOUNT,
103 CLEARING_ERROR_AMOUNT,
104 CLEARED_BY_FLAG,
105 REFERENCE_TEXT,
106 BANK_ACCOUNT_TEXT,
107 CUSTOMER_TEXT,
108 CREATED_BY,
109 CREATION_DATE,
110 LAST_UPDATED_BY,
111 LAST_UPDATE_DATE,
112 LAST_UPDATE_LOGIN,
113 OBJECT_VERSION_NUMBER
114 ) VALUES
115 (
116 X_CASHFLOW_ID,
117 X_CASHFLOW_LEDGER_ID,
118 X_CASHFLOW_LEGAL_ENTITY_ID,
119 X_CASHFLOW_BANK_ACCOUNT_ID,
120 X_CASHFLOW_DIRECTION,
121 X_CASHFLOW_CURRENCY_CODE,
122 X_CASHFLOW_DATE,
123 X_CASHFLOW_AMOUNT,
124 X_BASE_AMOUNT,
125 X_DESCRIPTION,
126 X_CASHFLOW_EXCHANGE_RATE,
127 X_CASHFLOW_EXCHANGE_DATE,
128 X_CASHFLOW_EXCHANGE_RATE_TYPE,
129 X_TRXN_REFERENCE_NUMBER,
130 X_BANK_TRXN_NUMBER,
131 X_SOURCE_TRXN_TYPE,
132 X_SOURCE_TRXN_SUBTYPE_CODE_ID,
133 X_STATEMENT_LINE_ID,
134 X_ACTUAL_VALUE_DATE,
135 X_COUNTERPARTY_PARTY_ID,
136 X_COUNTERPARTY_BANK_ACCOUNT_ID,
137 X_OFFSET_CCID,
138 X_CASHFLOW_STATUS_CODE,
139 X_CLEARED_DATE,
140 X_CLEARED_AMOUNT,
141 X_CLEARED_EXCHANGE_RATE,
142 X_CLEARED_EXCHANGE_DATE,
143 X_CLEARED_EXCHANGE_RATE_TYPE,
144 X_CLEARING_CHARGES_AMOUNT,
145 X_CLEARING_ERROR_AMOUNT,
146 X_CLEARED_BY_FLAG,
147 X_REFERENCE_TEXT,
148 X_BANK_ACCOUNT_TEXT,
149 X_CUSTOMER_TEXT,
150 X_CREATED_BY,
151 X_CREATION_DATE,
152 X_LAST_UPDATED_BY,
153 X_LAST_UPDATE_DATE,
154 X_LAST_UPDATE_LOGIN,
155 '1' );
156
157 OPEN C1;
158 FETCH C1 INTO X_rowid;
159 IF (C1%NOTFOUND) THEN
160 CLOSE C1;
161 Raise NO_DATA_FOUND;
162 END IF;
163 CLOSE C1;
164
165 END INSERT_ROW;
166
167
168 PROCEDURE UPDATE_ROW (
169 X_ROWID VARCHAR2,
170 X_CASHFLOW_ID NUMBER,
171 X_CASHFLOW_LEDGER_ID NUMBER,
172 X_CASHFLOW_LEGAL_ENTITY_ID NUMBER,
173 X_CASHFLOW_BANK_ACCOUNT_ID NUMBER,
174 X_CASHFLOW_DIRECTION VARCHAR2,
175 X_CASHFLOW_CURRENCY_CODE VARCHAR2,
176 X_CASHFLOW_DATE DATE,
177 X_CASHFLOW_AMOUNT NUMBER,
178 X_BASE_AMOUNT NUMBER,
179 X_DESCRIPTION VARCHAR2,
180 X_CASHFLOW_EXCHANGE_RATE NUMBER,
181 X_CASHFLOW_EXCHANGE_DATE DATE,
182 X_CASHFLOW_EXCHANGE_RATE_TYPE VARCHAR2,
183 X_TRXN_REFERENCE_NUMBER NUMBER,
184 X_BANK_TRXN_NUMBER NUMBER,
185 X_SOURCE_TRXN_TYPE VARCHAR2,
186 X_SOURCE_TRXN_SUBTYPE_CODE_ID VARCHAR2,
187 X_STATEMENT_LINE_ID NUMBER,
188 X_ACTUAL_VALUE_DATE DATE,
189 X_COUNTERPARTY_PARTY_ID NUMBER,
190 X_COUNTERPARTY_BANK_ACCOUNT_ID NUMBER,
191 X_OFFSET_CCID NUMBER,
192 X_CASHFLOW_STATUS_CODE VARCHAR2,
193 X_CLEARED_DATE DATE,
194 X_CLEARED_AMOUNT NUMBER,
195 X_CLEARED_EXCHANGE_RATE NUMBER,
196 X_CLEARED_EXCHANGE_DATE DATE,
197 X_CLEARED_EXCHANGE_RATE_TYPE VARCHAR2,
198 X_CLEARING_CHARGES_AMOUNT NUMBER,
199 X_CLEARING_ERROR_AMOUNT NUMBER,
200 X_CLEARED_BY_FLAG VARCHAR2,
201 X_REFERENCE_TEXT VARCHAR2,
202 X_BANK_ACCOUNT_TEXT VARCHAR2,
203 X_CUSTOMER_TEXT VARCHAR2,
204 X_LAST_UPDATED_BY NUMBER,
205 X_LAST_UPDATE_DATE DATE,
206 X_LAST_UPDATE_LOGIN NUMBER,
207 X_OBJECT_VERSION_NUMBER NUMBER ) IS
208 BEGIN
209 UPDATE CE_CASHFLOWS
210 SET
211 CASHFLOW_ID = X_CASHFLOW_ID,
212 CASHFLOW_LEDGER_ID = X_CASHFLOW_LEDGER_ID,
213 CASHFLOW_LEGAL_ENTITY_ID = X_CASHFLOW_LEGAL_ENTITY_ID,
214 CASHFLOW_BANK_ACCOUNT_ID = X_CASHFLOW_BANK_ACCOUNT_ID,
215 CASHFLOW_DIRECTION = X_CASHFLOW_DIRECTION,
216 CASHFLOW_CURRENCY_CODE = X_CASHFLOW_CURRENCY_CODE,
217 CASHFLOW_DATE = X_CASHFLOW_DATE,
218 CASHFLOW_AMOUNT = X_CASHFLOW_AMOUNT,
219 BASE_AMOUNT = X_BASE_AMOUNT,
220 DESCRIPTION = X_DESCRIPTION,
221 CASHFLOW_EXCHANGE_RATE = X_CASHFLOW_EXCHANGE_RATE,
222 CASHFLOW_EXCHANGE_DATE = X_CASHFLOW_EXCHANGE_DATE,
223 CASHFLOW_EXCHANGE_RATE_TYPE = X_CASHFLOW_EXCHANGE_RATE_TYPE,
224 TRXN_REFERENCE_NUMBER = X_TRXN_REFERENCE_NUMBER,
225 BANK_TRXN_NUMBER = X_BANK_TRXN_NUMBER,
226 SOURCE_TRXN_TYPE = X_SOURCE_TRXN_TYPE,
227 SOURCE_TRXN_SUBTYPE_CODE_ID = X_SOURCE_TRXN_SUBTYPE_CODE_ID,
228 STATEMENT_LINE_ID = X_STATEMENT_LINE_ID,
229 ACTUAL_VALUE_DATE = X_ACTUAL_VALUE_DATE,
230 COUNTERPARTY_PARTY_ID = X_COUNTERPARTY_PARTY_ID,
231 COUNTERPARTY_BANK_ACCOUNT_ID = X_COUNTERPARTY_BANK_ACCOUNT_ID,
232 OFFSET_CCID = X_OFFSET_CCID,
233 CASHFLOW_STATUS_CODE = X_CASHFLOW_STATUS_CODE,
234 CLEARED_DATE = X_CLEARED_DATE,
235 CLEARED_AMOUNT = X_CLEARED_AMOUNT,
236 CLEARED_EXCHANGE_RATE = X_CLEARED_EXCHANGE_RATE,
237 CLEARED_EXCHANGE_DATE = X_CLEARED_EXCHANGE_DATE,
238 CLEARED_EXCHANGE_RATE_TYPE = X_CLEARED_EXCHANGE_RATE_TYPE,
239 CLEARING_CHARGES_AMOUNT = X_CLEARING_CHARGES_AMOUNT,
240 CLEARING_ERROR_AMOUNT = X_CLEARING_ERROR_AMOUNT,
241 CLEARED_BY_FLAG = X_CLEARED_BY_FLAG,
242 REFERENCE_TEXT = X_REFERENCE_TEXT,
243 BANK_ACCOUNT_TEXT = X_BANK_ACCOUNT_TEXT,
244 CUSTOMER_TEXT = X_CUSTOMER_TEXT,
245 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
246 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
247 LAST_UPDATE_LOGIN = LAST_UPDATE_LOGIN,
248 OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER + 1
249 WHERE
250 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER AND
251 ROWID = X_ROWID;
252
253 IF (SQL%NOTFOUND) THEN
254 Raise NO_DATA_FOUND;
255 END IF;
256
257 END UPDATE_ROW;
258
259
260 PROCEDURE Delete_Row( X_Row_id VARCHAR2 ) IS
261 BEGIN
262
263 DELETE FROM CE_CASHFLOWS
264 WHERE rowid = X_Row_Id;
265
266 IF (SQL%NOTFOUND) THEN
267 Raise NO_DATA_FOUND;
268 END IF;
269
270 END Delete_Row;
271
272
273 END CE_CASHFLOWS_PKG;