[Home] [Help]
PACKAGE BODY: APPS.JL_BR_AR_SELECT_ACCOUNTS_PKG
Source
1 PACKAGE BODY JL_BR_AR_SELECT_ACCOUNTS_PKG as
2 /* $Header: jlbrrsab.pls 120.5 2003/09/18 21:03:34 vsidhart ship $ */
3
4 PROCEDURE Insert_Row ( X_Rowid IN OUT NOCOPY VARCHAR2,
5
6 X_SELECT_ACCOUNT_ID NUMBER,
7 X_SELECTION_CONTROL_ID NUMBER,
8 X_BANK_ACCT_USE_ID NUMBER,
9 X_GL_DATE DATE ,
10 X_SELECTION_DATE DATE ,
11 X_CANCELLATION_DATE DATE ,
12 X_FORMAT_DATE DATE ,
13 X_REMITTANCE_DATE DATE ,
14 X_PORTFOLIO_CODE NUMBER ,
15 X_MIN_DOCUMENT_AMOUNT NUMBER ,
16 X_MAX_DOCUMENT_AMOUNT NUMBER ,
17 X_MIN_REMITTANCE_AMOUNT NUMBER ,
18 X_MAX_REMITTANCE_AMOUNT NUMBER ,
19 X_BANK_INSTRUCTION_CODE1 NUMBER ,
20 X_BANK_INSTRUCTION_CODE2 NUMBER ,
21 X_BANK_CHARGE_AMOUNT NUMBER ,
22 X_BATCH_SOURCE_ID NUMBER ,
23 X_PERCENTAGE_DISTRIBUTION NUMBER ,
24 X_ATTRIBUTE_CATEGORY VARCHAR2 ,
25 X_ATTRIBUTE1 VARCHAR2 ,
26 X_ATTRIBUTE2 VARCHAR2 ,
27 X_ATTRIBUTE3 VARCHAR2 ,
28 X_ATTRIBUTE4 VARCHAR2 ,
29 X_ATTRIBUTE5 VARCHAR2 ,
30 X_ATTRIBUTE6 VARCHAR2 ,
31 X_ATTRIBUTE7 VARCHAR2 ,
32 X_ATTRIBUTE8 VARCHAR2 ,
33 X_ATTRIBUTE9 VARCHAR2 ,
34 X_ATTRIBUTE10 VARCHAR2 ,
35 X_ATTRIBUTE11 VARCHAR2 ,
36 X_ATTRIBUTE12 VARCHAR2 ,
37 X_ATTRIBUTE13 VARCHAR2 ,
38 X_ATTRIBUTE14 VARCHAR2 ,
39 X_ATTRIBUTE15 VARCHAR2 ,
40 X_LAST_UPDATE_DATE DATE,
41 X_LAST_UPDATED_BY NUMBER,
42 X_CREATION_DATE DATE,
43 X_CREATED_BY NUMBER,
44 X_LAST_UPDATE_LOGIN NUMBER,
45
46 X_calling_sequence VARCHAR2,
47 X_ORG_ID NUMBER
48 ) IS
49 CURSOR C IS SELECT rowid FROM JL_BR_AR_SELECT_ACCOUNTS
50 WHERE select_account_id = X_select_account_id;
51 current_calling_sequence VARCHAR2(2000);
52 debug_info VARCHAR2(100);
53
54 BEGIN
55 -- Update the calling sequence
56 --
57 current_calling_sequence := 'JL_BR_AR_SELECT_ACCOUNTS_PKG.INSERT_ROW<-' ||
58 X_calling_sequence;
59
60 debug_info := 'Insert into JL_BR_AR_SELECT_ACCOUNTS';
61 INSERT INTO JL_BR_AR_SELECT_ACCOUNTS
62 (
63 SELECT_ACCOUNT_ID,
64 SELECTION_CONTROL_ID,
65 BANK_ACCT_USE_ID,
66 GL_DATE,
67 SELECTION_DATE,
68 CANCELLATION_DATE,
69 FORMAT_DATE,
70 REMITTANCE_DATE,
71 PORTFOLIO_CODE,
72 MIN_DOCUMENT_AMOUNT,
73 MAX_DOCUMENT_AMOUNT,
74 MIN_REMITTANCE_AMOUNT,
75 MAX_REMITTANCE_AMOUNT,
76 BANK_INSTRUCTION_CODE1,
77 BANK_INSTRUCTION_CODE2,
78 BANK_CHARGE_AMOUNT,
79 BATCH_SOURCE_ID,
80 PERCENTAGE_DISTRIBUTION,
81 ATTRIBUTE_CATEGORY,
82 ATTRIBUTE1,
83 ATTRIBUTE2,
84 ATTRIBUTE3,
85 ATTRIBUTE4,
86 ATTRIBUTE5,
87 ATTRIBUTE6,
88 ATTRIBUTE7,
89 ATTRIBUTE8,
90 ATTRIBUTE9,
91 ATTRIBUTE10,
92 ATTRIBUTE11,
93 ATTRIBUTE12,
94 ATTRIBUTE13,
95 ATTRIBUTE14,
96 ATTRIBUTE15,
97 LAST_UPDATE_DATE,
98 LAST_UPDATED_BY,
99 CREATION_DATE,
100 CREATED_BY,
101 LAST_UPDATE_LOGIN,
102 ORG_ID
103 )
104 VALUES (
105 X_SELECT_ACCOUNT_ID,
106 X_SELECTION_CONTROL_ID,
107 X_BANK_ACCT_USE_ID,
108 X_GL_DATE,
109 X_SELECTION_DATE,
110 X_CANCELLATION_DATE,
111 X_FORMAT_DATE,
112 X_REMITTANCE_DATE,
113 X_PORTFOLIO_CODE,
114 X_MIN_DOCUMENT_AMOUNT,
115 X_MAX_DOCUMENT_AMOUNT,
116 X_MIN_REMITTANCE_AMOUNT,
117 X_MAX_REMITTANCE_AMOUNT,
118 X_BANK_INSTRUCTION_CODE1,
119 X_BANK_INSTRUCTION_CODE2,
120 X_BANK_CHARGE_AMOUNT,
121 X_BATCH_SOURCE_ID,
122 X_PERCENTAGE_DISTRIBUTION,
123 X_ATTRIBUTE_CATEGORY,
124 X_ATTRIBUTE1,
125 X_ATTRIBUTE2,
126 X_ATTRIBUTE3,
127 X_ATTRIBUTE4,
128 X_ATTRIBUTE5,
129 X_ATTRIBUTE6,
130 X_ATTRIBUTE7,
131 X_ATTRIBUTE8,
132 X_ATTRIBUTE9,
133 X_ATTRIBUTE10,
134 X_ATTRIBUTE11,
135 X_ATTRIBUTE12,
136 X_ATTRIBUTE13,
137 X_ATTRIBUTE14,
138 X_ATTRIBUTE15,
139 X_LAST_UPDATE_DATE,
140 X_LAST_UPDATED_BY,
141 X_CREATION_DATE,
142 X_CREATED_BY,
143 X_LAST_UPDATE_LOGIN,
144 X_ORG_ID
145 );
146
147 debug_info := 'Open cursor C';
148 OPEN C;
149 debug_info := 'Fetch cursor C';
150 FETCH C INTO X_Rowid;
151 if (C%NOTFOUND) then
152 debug_info := 'Close cursor C - DATA NOTFOUND';
153 CLOSE C;
154 Raise NO_DATA_FOUND;
155 end if;
156 debug_info := 'Close cursor C';
157 CLOSE C;
158
159 EXCEPTION
160 WHEN OTHERS THEN
161 IF (SQLCODE <> -20001) THEN
162 FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
163 FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
164 FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
165 FND_MESSAGE.SET_TOKEN('PARAMETERS','select_account_id = ' ||
166 X_select_account_id );
167 FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
168 END IF;
169 APP_EXCEPTION.RAISE_EXCEPTION;
170
171 END Insert_Row;
172
173
174 PROCEDURE Lock_Row ( X_Rowid VARCHAR2,
175
176 X_SELECT_ACCOUNT_ID NUMBER,
177 X_SELECTION_CONTROL_ID NUMBER,
178 X_BANK_ACCT_USE_ID NUMBER,
179 X_GL_DATE DATE ,
180 X_SELECTION_DATE DATE ,
181 X_CANCELLATION_DATE DATE ,
182 X_FORMAT_DATE DATE ,
183 X_REMITTANCE_DATE DATE ,
184 X_PORTFOLIO_CODE NUMBER ,
185 X_MIN_DOCUMENT_AMOUNT NUMBER ,
186 X_MAX_DOCUMENT_AMOUNT NUMBER ,
187 X_MIN_REMITTANCE_AMOUNT NUMBER ,
188 X_MAX_REMITTANCE_AMOUNT NUMBER ,
189 X_BANK_INSTRUCTION_CODE1 NUMBER ,
190 X_BANK_INSTRUCTION_CODE2 NUMBER ,
191 X_BANK_CHARGE_AMOUNT NUMBER ,
192 X_BATCH_SOURCE_ID NUMBER ,
193 X_PERCENTAGE_DISTRIBUTION NUMBER ,
194 X_ATTRIBUTE_CATEGORY VARCHAR2 ,
195 X_ATTRIBUTE1 VARCHAR2 ,
196 X_ATTRIBUTE2 VARCHAR2 ,
197 X_ATTRIBUTE3 VARCHAR2 ,
198 X_ATTRIBUTE4 VARCHAR2 ,
199 X_ATTRIBUTE5 VARCHAR2 ,
200 X_ATTRIBUTE6 VARCHAR2 ,
201 X_ATTRIBUTE7 VARCHAR2 ,
202 X_ATTRIBUTE8 VARCHAR2 ,
203 X_ATTRIBUTE9 VARCHAR2 ,
204 X_ATTRIBUTE10 VARCHAR2 ,
205 X_ATTRIBUTE11 VARCHAR2 ,
206 X_ATTRIBUTE12 VARCHAR2 ,
207 X_ATTRIBUTE13 VARCHAR2 ,
208 X_ATTRIBUTE14 VARCHAR2 ,
209 X_ATTRIBUTE15 VARCHAR2 ,
210 X_LAST_UPDATE_DATE DATE,
211 X_LAST_UPDATED_BY NUMBER,
212 X_CREATION_DATE DATE,
213 X_CREATED_BY NUMBER,
214 X_LAST_UPDATE_LOGIN NUMBER,
215
216 X_calling_sequence VARCHAR2
217 ) IS
218 CURSOR C IS
219 SELECT *
220 FROM JL_BR_AR_SELECT_ACCOUNTS
221 WHERE rowid = X_Rowid
222 FOR UPDATE of select_account_id NOWAIT;
223 Recinfo C%ROWTYPE;
224
225 current_calling_sequence VARCHAR2(2000);
226 debug_info VARCHAR2(100);
227
228 BEGIN
229 -- Update the calling sequence
230 --
231 current_calling_sequence := 'JL_BR_AR_SELECT_ACCOUNTS_PKG.LOCK_ROW<-' ||
232 X_calling_sequence;
233 debug_info := 'Open cursor C';
234 OPEN C;
235 debug_info := 'Fetch cursor C';
236 FETCH C INTO Recinfo;
237 if (C%NOTFOUND) then
238 debug_info := 'Close cursor C - DATA NOTFOUND';
239 CLOSE C;
240 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
241 APP_EXCEPTION.Raise_Exception;
242 end if;
243 debug_info := 'Close cursor C';
244 CLOSE C;
245 if (
246 (Recinfo.select_account_id = X_select_account_id)
247 AND (Recinfo.selection_control_id = X_selection_control_id)
248 AND (Recinfo.bank_acct_use_id = X_bank_acct_use_id)
249 AND ( (Recinfo.GL_DATE = X_GL_DATE)
250 OR ( (Recinfo.GL_DATE IS NULL)
251 AND (X_GL_DATE IS NULL)))
252 AND ( (Recinfo.SELECTION_DATE = X_SELECTION_DATE)
253 OR ( (Recinfo.SELECTION_DATE IS NULL)
254 AND (X_SELECTION_DATE IS NULL)))
255 AND ( (Recinfo.CANCELLATION_DATE = X_CANCELLATION_DATE)
256 OR ( (Recinfo.CANCELLATION_DATE IS NULL)
257 AND (X_CANCELLATION_DATE IS NULL)))
258 AND ( (Recinfo.FORMAT_DATE = X_FORMAT_DATE)
259 OR ( (Recinfo.FORMAT_DATE IS NULL)
260 AND (X_FORMAT_DATE IS NULL)))
261 AND ( (Recinfo.REMITTANCE_DATE = X_REMITTANCE_DATE)
262 OR ( (Recinfo.REMITTANCE_DATE IS NULL)
263 AND (X_REMITTANCE_DATE IS NULL)))
264 AND ( (Recinfo.PORTFOLIO_CODE = X_PORTFOLIO_CODE)
265 OR ( (Recinfo.PORTFOLIO_CODE IS NULL)
266 AND (X_PORTFOLIO_CODE IS NULL)))
267 AND ( (Recinfo.MIN_DOCUMENT_AMOUNT = X_MIN_DOCUMENT_AMOUNT)
268 OR ( (Recinfo.MIN_DOCUMENT_AMOUNT IS NULL)
269 AND (X_MIN_DOCUMENT_AMOUNT IS NULL)))
270 AND ( (Recinfo.MAX_DOCUMENT_AMOUNT = X_MAX_DOCUMENT_AMOUNT)
271 OR ( (Recinfo.MAX_DOCUMENT_AMOUNT IS NULL)
272 AND (X_MAX_DOCUMENT_AMOUNT IS NULL)))
273 AND ( (Recinfo.MIN_REMITTANCE_AMOUNT = X_MIN_REMITTANCE_AMOUNT)
274 OR ( (Recinfo.MIN_REMITTANCE_AMOUNT IS NULL)
275 AND (X_MIN_REMITTANCE_AMOUNT IS NULL)))
276 AND ( (Recinfo.MAX_REMITTANCE_AMOUNT = X_MAX_REMITTANCE_AMOUNT)
277 OR ( (Recinfo.MAX_REMITTANCE_AMOUNT IS NULL)
278 AND (X_MAX_REMITTANCE_AMOUNT IS NULL)))
279 AND ( (Recinfo.BANK_INSTRUCTION_CODE1 = X_BANK_INSTRUCTION_CODE1)
280 OR ( (Recinfo.BANK_INSTRUCTION_CODE1 IS NULL)
281 AND (X_BANK_INSTRUCTION_CODE1 IS NULL)))
282 AND ( (Recinfo.BANK_INSTRUCTION_CODE2 = X_BANK_INSTRUCTION_CODE2)
283 OR ( (Recinfo.BANK_INSTRUCTION_CODE2 IS NULL)
284 AND (X_BANK_INSTRUCTION_CODE2 IS NULL)))
285 AND ( (Recinfo.BANK_CHARGE_AMOUNT = X_BANK_CHARGE_AMOUNT)
286 OR ( (Recinfo.BANK_CHARGE_AMOUNT IS NULL)
287 AND (X_BANK_CHARGE_AMOUNT IS NULL)))
288 AND ( (Recinfo.BATCH_SOURCE_ID = X_BATCH_SOURCE_ID)
289 OR ( (Recinfo.BATCH_SOURCE_ID IS NULL)
290 AND (X_BATCH_SOURCE_ID IS NULL)))
291 AND ( (Recinfo.PERCENTAGE_DISTRIBUTION = X_PERCENTAGE_DISTRIBUTION)
292 OR ( (Recinfo.PERCENTAGE_DISTRIBUTION IS NULL)
293 AND (X_PERCENTAGE_DISTRIBUTION IS NULL)))
294 AND ( (Recinfo.ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY)
295 OR ( (Recinfo.ATTRIBUTE_CATEGORY IS NULL)
296 AND (X_ATTRIBUTE_CATEGORY IS NULL)))
297 AND ( (Recinfo.ATTRIBUTE1 = X_ATTRIBUTE1)
298 OR ( (Recinfo.ATTRIBUTE1 IS NULL)
299 AND (X_ATTRIBUTE1 IS NULL)))
300 AND ( (Recinfo.ATTRIBUTE2 = X_ATTRIBUTE2)
301 OR ( (Recinfo.ATTRIBUTE2 IS NULL)
302 AND (X_ATTRIBUTE2 IS NULL)))
303 AND ( (Recinfo.ATTRIBUTE3 = X_ATTRIBUTE3)
304 OR ( (Recinfo.ATTRIBUTE3 IS NULL)
305 AND (X_ATTRIBUTE3 IS NULL)))
306 AND ( (Recinfo.ATTRIBUTE4 = X_ATTRIBUTE4)
307 OR ( (Recinfo.ATTRIBUTE4 IS NULL)
308 AND (X_ATTRIBUTE4 IS NULL)))
309 AND ( (Recinfo.ATTRIBUTE5 = X_ATTRIBUTE5)
310 OR ( (Recinfo.ATTRIBUTE5 IS NULL)
311 AND (X_ATTRIBUTE5 IS NULL)))
312 AND ( (Recinfo.ATTRIBUTE6 = X_ATTRIBUTE6)
313 OR ( (Recinfo.ATTRIBUTE6 IS NULL)
314 AND (X_ATTRIBUTE6 IS NULL)))
315 AND ( (Recinfo.ATTRIBUTE7 = X_ATTRIBUTE7)
316 OR ( (Recinfo.ATTRIBUTE7 IS NULL)
317 AND (X_ATTRIBUTE7 IS NULL)))
318 AND ( (Recinfo.ATTRIBUTE8 = X_ATTRIBUTE8)
319 OR ( (Recinfo.ATTRIBUTE8 IS NULL)
320 AND (X_ATTRIBUTE8 IS NULL)))
321 AND ( (Recinfo.ATTRIBUTE9 = X_ATTRIBUTE9)
322 OR ( (Recinfo.ATTRIBUTE9 IS NULL)
323 AND (X_ATTRIBUTE9 IS NULL)))
324 AND ( (Recinfo.ATTRIBUTE10 = X_ATTRIBUTE10)
325 OR ( (Recinfo.ATTRIBUTE10 IS NULL)
326 AND (X_ATTRIBUTE10 IS NULL)))
327 AND ( (Recinfo.ATTRIBUTE11 = X_ATTRIBUTE11)
328 OR ( (Recinfo.ATTRIBUTE11 IS NULL)
329 AND (X_ATTRIBUTE11 IS NULL)))
330 AND ( (Recinfo.ATTRIBUTE12 = X_ATTRIBUTE12)
331 OR ( (Recinfo.ATTRIBUTE12 IS NULL)
335 AND (X_ATTRIBUTE13 IS NULL)))
332 AND (X_ATTRIBUTE12 IS NULL)))
333 AND ( (Recinfo.ATTRIBUTE13 = X_ATTRIBUTE13)
334 OR ( (Recinfo.ATTRIBUTE13 IS NULL)
336 AND ( (Recinfo.ATTRIBUTE14 = X_ATTRIBUTE14)
337 OR ( (Recinfo.ATTRIBUTE14 IS NULL)
338 AND (X_ATTRIBUTE14 IS NULL)))
339 AND ( (Recinfo.ATTRIBUTE15 = X_ATTRIBUTE15)
340 OR ( (Recinfo.ATTRIBUTE15 IS NULL)
341 AND (X_ATTRIBUTE15 IS NULL)))
342 ) then
343 return;
344 else
345 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
346 APP_EXCEPTION.Raise_Exception;
347 end if;
348
349 EXCEPTION
350 WHEN OTHERS THEN
351 IF (SQLCODE <> -20001) THEN
352 IF (SQLCODE = -54) THEN
353 FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
354 ELSE
355 FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
356 FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
357 FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
358 FND_MESSAGE.SET_TOKEN('PARAMETERS','select_account_id = ' ||
359 X_select_account_id );
360 FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
361 END IF;
362 END IF;
363 APP_EXCEPTION.RAISE_EXCEPTION;
364
365 END Lock_Row;
366
367
368
369 PROCEDURE Update_Row ( X_Rowid VARCHAR2,
370
371 X_SELECT_ACCOUNT_ID NUMBER,
372 X_SELECTION_CONTROL_ID NUMBER,
373 X_BANK_ACCT_USE_ID NUMBER,
374 X_GL_DATE DATE ,
375 X_SELECTION_DATE DATE ,
376 X_CANCELLATION_DATE DATE ,
377 X_FORMAT_DATE DATE ,
378 X_REMITTANCE_DATE DATE ,
379 X_PORTFOLIO_CODE NUMBER ,
380 X_MIN_DOCUMENT_AMOUNT NUMBER ,
381 X_MAX_DOCUMENT_AMOUNT NUMBER ,
382 X_MIN_REMITTANCE_AMOUNT NUMBER ,
383 X_MAX_REMITTANCE_AMOUNT NUMBER ,
384 X_BANK_INSTRUCTION_CODE1 NUMBER ,
385 X_BANK_INSTRUCTION_CODE2 NUMBER ,
386 X_BANK_CHARGE_AMOUNT NUMBER ,
387 X_BATCH_SOURCE_ID NUMBER ,
388 X_PERCENTAGE_DISTRIBUTION NUMBER ,
389 X_ATTRIBUTE_CATEGORY VARCHAR2 ,
390 X_ATTRIBUTE1 VARCHAR2 ,
391 X_ATTRIBUTE2 VARCHAR2 ,
392 X_ATTRIBUTE3 VARCHAR2 ,
393 X_ATTRIBUTE4 VARCHAR2 ,
394 X_ATTRIBUTE5 VARCHAR2 ,
395 X_ATTRIBUTE6 VARCHAR2 ,
396 X_ATTRIBUTE7 VARCHAR2 ,
397 X_ATTRIBUTE8 VARCHAR2 ,
398 X_ATTRIBUTE9 VARCHAR2 ,
399 X_ATTRIBUTE10 VARCHAR2 ,
400 X_ATTRIBUTE11 VARCHAR2 ,
401 X_ATTRIBUTE12 VARCHAR2 ,
402 X_ATTRIBUTE13 VARCHAR2 ,
403 X_ATTRIBUTE14 VARCHAR2 ,
404 X_ATTRIBUTE15 VARCHAR2 ,
405 X_LAST_UPDATE_DATE DATE,
406 X_LAST_UPDATED_BY NUMBER,
407 X_CREATION_DATE DATE,
408 X_CREATED_BY NUMBER,
409 X_LAST_UPDATE_LOGIN NUMBER,
410
411 X_calling_sequence VARCHAR2
412 ) IS
413 current_calling_sequence VARCHAR2(2000);
414 debug_info VARCHAR2(100);
415 BEGIN
416 -- Update the calling sequence
417 --
418 current_calling_sequence := 'JL_BR_AR_SELECT_ACCOUNTS_PKG.UPDATE_ROW<-' ||
419 X_calling_sequence;
420 debug_info := 'Update JL_BR_AR_SELECT_ACCOUNTS';
421 UPDATE JL_BR_AR_SELECT_ACCOUNTS
422 SET
423 SELECT_ACCOUNT_ID = X_SELECT_ACCOUNT_ID ,
424 SELECTION_CONTROL_ID = X_SELECTION_CONTROL_ID ,
425 BANK_ACCT_USE_ID = X_BANK_ACCT_USE_ID ,
426 GL_DATE = X_GL_DATE ,
427 SELECTION_DATE = X_SELECTION_DATE ,
428 CANCELLATION_DATE = X_CANCELLATION_DATE ,
429 FORMAT_DATE = X_FORMAT_DATE ,
430 REMITTANCE_DATE = X_REMITTANCE_DATE ,
431 PORTFOLIO_CODE = X_PORTFOLIO_CODE ,
432 MIN_DOCUMENT_AMOUNT = X_MIN_DOCUMENT_AMOUNT ,
433 MAX_DOCUMENT_AMOUNT = X_MAX_DOCUMENT_AMOUNT ,
434 MIN_REMITTANCE_AMOUNT = X_MIN_REMITTANCE_AMOUNT ,
435 MAX_REMITTANCE_AMOUNT = X_MAX_REMITTANCE_AMOUNT ,
436 BANK_INSTRUCTION_CODE1 = X_BANK_INSTRUCTION_CODE1 ,
437 BANK_INSTRUCTION_CODE2 = X_BANK_INSTRUCTION_CODE2 ,
438 BANK_CHARGE_AMOUNT = X_BANK_CHARGE_AMOUNT ,
439 BATCH_SOURCE_ID = X_BATCH_SOURCE_ID ,
440 PERCENTAGE_DISTRIBUTION = X_PERCENTAGE_DISTRIBUTION ,
441 ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY ,
442 ATTRIBUTE1 = X_ATTRIBUTE1 ,
443 ATTRIBUTE2 = X_ATTRIBUTE2 ,
444 ATTRIBUTE3 = X_ATTRIBUTE3 ,
445 ATTRIBUTE4 = X_ATTRIBUTE4 ,
446 ATTRIBUTE5 = X_ATTRIBUTE5 ,
447 ATTRIBUTE6 = X_ATTRIBUTE6 ,
448 ATTRIBUTE7 = X_ATTRIBUTE7 ,
449 ATTRIBUTE8 = X_ATTRIBUTE8 ,
450 ATTRIBUTE9 = X_ATTRIBUTE9 ,
451 ATTRIBUTE10 = X_ATTRIBUTE10 ,
452 ATTRIBUTE11 = X_ATTRIBUTE11 ,
453 ATTRIBUTE12 = X_ATTRIBUTE12 ,
454 ATTRIBUTE13 = X_ATTRIBUTE13 ,
455 ATTRIBUTE14 = X_ATTRIBUTE14 ,
456 ATTRIBUTE15 = X_ATTRIBUTE15 ,
457 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE ,
458 LAST_UPDATED_BY = X_LAST_UPDATED_BY ,
459 CREATION_DATE = X_CREATION_DATE ,
460 CREATED_BY = X_CREATED_BY ,
461 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
462 WHERE rowid = X_Rowid;
463
464 if (SQL%NOTFOUND) then
465 Raise NO_DATA_FOUND;
466 end if;
467
468 EXCEPTION
469 WHEN OTHERS THEN
470 IF (SQLCODE <> -20001) THEN
471 FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
472 FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
473 FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
474 FND_MESSAGE.SET_TOKEN('PARAMETERS','select_account_id = ' ||
475 X_select_account_id );
476 FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
477 END IF;
478 APP_EXCEPTION.RAISE_EXCEPTION;
479
480 END Update_Row;
481
482 PROCEDURE Delete_Row (X_Rowid VARCHAR2,
483 X_calling_sequence IN VARCHAR2
484 ) IS
485 current_calling_sequence VARCHAR2(2000);
486 debug_info VARCHAR2(100);
487 BEGIN
488 -- Update the calling sequence
489 --
490 current_calling_sequence := 'JL_BR_AR_SELECT_ACCOUNTS_PKG.DELETE_ROW<-' ||
491 X_calling_sequence;
492 debug_info := 'Delete from JL_BR_AR_SELECT_ACCOUNTS';
493 DELETE FROM JL_BR_AR_SELECT_ACCOUNTS
494 WHERE rowid = X_Rowid;
495
496 if (SQL%NOTFOUND) then
497 Raise NO_DATA_FOUND;
498 end if;
499
500 EXCEPTION
501 WHEN OTHERS THEN
502 IF (SQLCODE <> -20001) THEN
503 FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
504 FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
505 FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
506 FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid);
507 FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
508 END IF;
509 APP_EXCEPTION.RAISE_EXCEPTION;
510
511 END Delete_Row;
512
513
514 END JL_BR_AR_SELECT_ACCOUNTS_PKG;