[Home] [Help]
PACKAGE BODY: APPS.JL_BR_AP_INT_COLLECT_EXT_PKG
Source
1 PACKAGE BODY JL_BR_AP_INT_COLLECT_EXT_PKG as
2 /* $Header: jlbrpccb.pls 120.3.12010000.2 2009/11/19 16:09:33 gmeni ship $ */
3
4 PROCEDURE Insert_Row (X_Rowid IN OUT NOCOPY VARCHAR2,
5 X_FILE_CONTROL VARCHAR2,
6 X_ENTRY_SEQUENTIAL_NUMBER NUMBER,
7 X_REGISTRY_CODE VARCHAR2 DEFAULT NULL,
8 X_RETURN_CODE NUMBER DEFAULT NULL,
9 X_SERVICE_CODE NUMBER DEFAULT NULL,
10 X_RECORDING_DATE DATE DEFAULT NULL,
11 X_ISSUE_DATE DATE DEFAULT NULL,
12 X_DOCUMENT_NUMBER VARCHAR2 DEFAULT NULL,
13 X_DRAWER_GUARANTOR VARCHAR2 DEFAULT NULL,
14 X_INSTRUCTION_1 VARCHAR2 DEFAULT NULL,
15 X_INSTRUCTION_2 VARCHAR2 DEFAULT NULL,
16 X_CNAB_CODE VARCHAR2 DEFAULT NULL,
17 X_DUE_DATE DATE DEFAULT NULL,
18 X_AMOUNT NUMBER DEFAULT NULL,
19 X_DISCOUNT_DATE DATE DEFAULT NULL,
20 X_DISCOUNT_AMOUNT NUMBER DEFAULT NULL,
21 X_ARREARS_DATE DATE DEFAULT NULL,
22 X_ARREARS_CODE VARCHAR2 DEFAULT NULL,
23 X_ARREARS_INTEREST NUMBER DEFAULT NULL,
24 X_ABATE_AMOUNT NUMBER DEFAULT NULL,
25 X_PAID_AMOUNT NUMBER DEFAULT NULL,
26 X_PAYMENT_LOCATION VARCHAR2 DEFAULT NULL,
27 X_DOCUMENT_TYPE VARCHAR2 DEFAULT NULL,
28 X_ACCEPTANCE VARCHAR2 DEFAULT NULL,
29 X_PROCESSING_DATE DATE DEFAULT NULL,
30 X_BANK_USE VARCHAR2 DEFAULT NULL,
31 X_PORTFOLIO VARCHAR2 DEFAULT NULL,
32 X_PENALTY_FEE_AMOUNT NUMBER DEFAULT NULL,
33 X_PENALTY_FEE_DATE DATE DEFAULT NULL,
34 X_OTHER_ACCRETIONS NUMBER DEFAULT NULL,
35 X_OUR_NUMBER VARCHAR2 DEFAULT NULL,
36 X_TRANSFEROR_CODE VARCHAR2 DEFAULT NULL,
37 X_OCCURRENCE VARCHAR2 DEFAULT NULL,
38 X_OCCURRENCE_DATE DATE DEFAULT NULL,
39 X_DRAWEE_NAME VARCHAR2 DEFAULT NULL,
40 X_DRAWEE_BANK_CODE VARCHAR2 DEFAULT NULL,
41 X_DRAWEE_BANK_NAME VARCHAR2 DEFAULT NULL,
42 X_DRAWEE_BRANCH_CODE VARCHAR2 DEFAULT NULL,
43 X_DRAWEE_ACCOUNT_NUMBER VARCHAR2 DEFAULT NULL,
44 X_DRAWEE_INSCRIPTION_TYPE NUMBER DEFAULT NULL,
45 X_DRAWEE_INSCRIPTION_NUMBER VARCHAR2 DEFAULT NULL,
46 X_TRANSFEROR_NAME VARCHAR2 DEFAULT NULL,
47 X_TRANSFEROR_BANK_CODE VARCHAR2 DEFAULT NULL,
48 X_TRANSFEROR_BRANCH_CODE VARCHAR2 DEFAULT NULL,
49 X_TRANSFEROR_ACCOUNT_NUMBER VARCHAR2 DEFAULT NULL,
50 X_TRANSFEROR_INSCRIPTION_TYPE NUMBER DEFAULT NULL,
51 X_TRANSFEROR_INSCRIPTION_NUM VARCHAR2 DEFAULT NULL,
52 X_ACCOUNTING_BALANCING_SEGMENT VARCHAR2 DEFAULT NULL,
53 X_SET_OF_BOOKS_ID NUMBER DEFAULT NULL,
54 X_ERROR_CODE VARCHAR2 DEFAULT NULL,
55 X_LAST_UPDATE_DATE DATE,
56 X_LAST_UPDATED_BY NUMBER,
57 X_CREATION_DATE DATE,
58 X_CREATED_BY NUMBER,
59 X_LAST_UPDATE_LOGIN NUMBER,
60 X_ATTRIBUTE_CATEGORY VARCHAR2 DEFAULT NULL,
61 X_ATTRIBUTE1 VARCHAR2 DEFAULT NULL,
62 X_ATTRIBUTE2 VARCHAR2 DEFAULT NULL,
63 X_ATTRIBUTE3 VARCHAR2 DEFAULT NULL,
64 X_ATTRIBUTE4 VARCHAR2 DEFAULT NULL,
65 X_ATTRIBUTE5 VARCHAR2 DEFAULT NULL,
66 X_ATTRIBUTE6 VARCHAR2 DEFAULT NULL,
67 X_ATTRIBUTE7 VARCHAR2 DEFAULT NULL,
68 X_ATTRIBUTE8 VARCHAR2 DEFAULT NULL,
69 X_ATTRIBUTE9 VARCHAR2 DEFAULT NULL,
70 X_ATTRIBUTE10 VARCHAR2 DEFAULT NULL,
71 X_ATTRIBUTE11 VARCHAR2 DEFAULT NULL,
72 X_ATTRIBUTE12 VARCHAR2 DEFAULT NULL,
73 X_ATTRIBUTE13 VARCHAR2 DEFAULT NULL,
74 X_ATTRIBUTE14 VARCHAR2 DEFAULT NULL,
75 X_ATTRIBUTE15 VARCHAR2 DEFAULT NULL,
76 X_calling_sequence VARCHAR2,
77 X_ORG_ID VARCHAR2 DEFAULT NULL,
78 X_BARCODE VARCHAR2 DEFAULT NULL,
79 X_ELECTRONIC_FORMAT_FLAG VARCHAR2 DEFAULT NULL
80 ) IS
81
82 CURSOR C IS SELECT rowid FROM JL_BR_AP_INT_COLLECT_EXT
83 WHERE file_control = X_file_control
84 AND entry_sequential_number = X_entry_sequential_number;
85 current_calling_sequence VARCHAR2(2000);
86 debug_info VARCHAR2(100);
87
88 BEGIN
89 -- Update the calling sequence
90 --
91 current_calling_sequence := 'JL_BR_AP_INT_COLLECT_EXT_PKG.INSERT_ROW<-' ||
92 X_calling_sequence;
93
94 debug_info := 'Insert into JL_BR_AP_INT_COLLECT_EXT';
95 INSERT INTO JL_BR_AP_INT_COLLECT_EXT(
96 FILE_CONTROL,
97 ENTRY_SEQUENTIAL_NUMBER,
98 REGISTRY_CODE,
99 RETURN_CODE,
100 SERVICE_CODE,
101 RECORDING_DATE,
102 ISSUE_DATE,
103 DOCUMENT_NUMBER,
104 DRAWER_GUARANTOR,
105 INSTRUCTION_1,
106 INSTRUCTION_2,
107 CNAB_CODE,
108 DUE_DATE,
109 AMOUNT,
110 DISCOUNT_DATE,
111 DISCOUNT_AMOUNT,
112 ARREARS_DATE,
113 ARREARS_CODE,
114 ARREARS_INTEREST,
115 ABATE_AMOUNT,
116 PAID_AMOUNT,
117 PAYMENT_LOCATION,
118 DOCUMENT_TYPE,
119 ACCEPTANCE,
120 PROCESSING_DATE,
121 BANK_USE,
122 PORTFOLIO,
123 PENALTY_FEE_AMOUNT,
124 PENALTY_FEE_DATE,
125 OTHER_ACCRETIONS,
126 OUR_NUMBER,
127 TRANSFEROR_CODE,
128 OCCURRENCE,
129 OCCURRENCE_DATE,
130 DRAWEE_NAME,
131 DRAWEE_BANK_CODE,
132 DRAWEE_BANK_NAME,
133 DRAWEE_BRANCH_CODE,
134 DRAWEE_ACCOUNT_NUMBER,
135 DRAWEE_INSCRIPTION_TYPE,
136 DRAWEE_INSCRIPTION_NUMBER,
137 TRANSFEROR_NAME,
138 TRANSFEROR_BANK_CODE,
139 TRANSFEROR_BRANCH_CODE,
140 TRANSFEROR_ACCOUNT_NUMBER,
141 TRANSFEROR_INSCRIPTION_TYPE,
142 TRANSFEROR_INSCRIPTION_NUMBER,
143 ACCOUNTING_BALANCING_SEGMENT,
144 SET_OF_BOOKS_ID,
145 ERROR_CODE,
146 LAST_UPDATE_DATE,
147 LAST_UPDATED_BY,
148 CREATION_DATE,
149 CREATED_BY,
150 LAST_UPDATE_LOGIN,
151 ATTRIBUTE_CATEGORY,
152 ATTRIBUTE1,
153 ATTRIBUTE2,
154 ATTRIBUTE3,
155 ATTRIBUTE4,
156 ATTRIBUTE5,
157 ATTRIBUTE6,
158 ATTRIBUTE7,
159 ATTRIBUTE8,
160 ATTRIBUTE9,
161 ATTRIBUTE10,
162 ATTRIBUTE11,
163 ATTRIBUTE12,
164 ATTRIBUTE13,
165 ATTRIBUTE14,
166 ATTRIBUTE15,
167 ORG_ID,
168 BARCODE,
169 ELECTRONIC_FORMAT_FLAG
170 )
171 VALUES (
172 X_FILE_CONTROL,
173 X_ENTRY_SEQUENTIAL_NUMBER,
174 X_REGISTRY_CODE,
175 X_RETURN_CODE,
179 X_DOCUMENT_NUMBER,
176 X_SERVICE_CODE,
177 X_RECORDING_DATE,
178 X_ISSUE_DATE,
180 X_DRAWER_GUARANTOR,
181 X_INSTRUCTION_1,
182 X_INSTRUCTION_2,
183 X_CNAB_CODE,
184 X_DUE_DATE,
185 X_AMOUNT,
186 X_DISCOUNT_DATE,
187 X_DISCOUNT_AMOUNT,
188 X_ARREARS_DATE,
189 X_ARREARS_CODE,
190 X_ARREARS_INTEREST,
191 X_ABATE_AMOUNT,
192 X_PAID_AMOUNT,
193 X_PAYMENT_LOCATION,
194 X_DOCUMENT_TYPE,
195 X_ACCEPTANCE,
196 X_PROCESSING_DATE,
197 X_BANK_USE,
198 X_PORTFOLIO,
199 X_PENALTY_FEE_AMOUNT,
200 X_PENALTY_FEE_DATE,
201 X_OTHER_ACCRETIONS,
202 X_OUR_NUMBER,
203 X_TRANSFEROR_CODE,
204 X_OCCURRENCE,
205 X_OCCURRENCE_DATE,
206 X_DRAWEE_NAME,
207 X_DRAWEE_BANK_CODE,
208 X_DRAWEE_BANK_NAME,
209 X_DRAWEE_BRANCH_CODE,
210 X_DRAWEE_ACCOUNT_NUMBER,
211 X_DRAWEE_INSCRIPTION_TYPE,
212 X_DRAWEE_INSCRIPTION_NUMBER,
213 X_TRANSFEROR_NAME,
214 X_TRANSFEROR_BANK_CODE,
215 X_TRANSFEROR_BRANCH_CODE,
216 X_TRANSFEROR_ACCOUNT_NUMBER,
217 X_TRANSFEROR_INSCRIPTION_TYPE,
218 X_TRANSFEROR_INSCRIPTION_NUM,
219 X_ACCOUNTING_BALANCING_SEGMENT,
220 X_SET_OF_BOOKS_ID,
221 X_ERROR_CODE,
222 X_LAST_UPDATE_DATE,
223 X_LAST_UPDATED_BY,
224 X_CREATION_DATE,
225 X_CREATED_BY,
226 X_LAST_UPDATE_LOGIN,
227 X_ATTRIBUTE_CATEGORY,
228 X_ATTRIBUTE1,
229 X_ATTRIBUTE2,
230 X_ATTRIBUTE3,
231 X_ATTRIBUTE4,
232 X_ATTRIBUTE5,
233 X_ATTRIBUTE6,
234 X_ATTRIBUTE7,
235 X_ATTRIBUTE8,
236 X_ATTRIBUTE9,
237 X_ATTRIBUTE10,
238 X_ATTRIBUTE11,
239 X_ATTRIBUTE12,
240 X_ATTRIBUTE13,
241 X_ATTRIBUTE14,
242 X_ATTRIBUTE15,
243 X_ORG_ID,
244 X_BARCODE,
245 X_ELECTRONIC_FORMAT_FLAG
246 );
247
248 debug_info := 'Open cursor C';
249 OPEN C;
250 debug_info := 'Fetch cursor C';
251 FETCH C INTO X_Rowid;
252 IF (C%NOTFOUND) THEN
253 debug_info := 'Close cursor C - DATA NOTFOUND';
254 CLOSE C;
255 Raise NO_DATA_FOUND;
256 END IF;
257 debug_info := 'Close cursor C';
258 CLOSE C;
259
260 EXCEPTION
261 WHEN OTHERS THEN
262 IF (SQLCODE <> -20001) THEN
263 FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
264 FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
265 FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
266 FND_MESSAGE.SET_TOKEN('PARAMETERS', 'file_control = ' ||
267 X_file_control ||
268 ' entry_sequential_number = ' ||
269 X_entry_sequential_number);
270 FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
271 END IF;
272
273 APP_EXCEPTION.RAISE_EXCEPTION;
274
275 END Insert_Row;
276
277
278 PROCEDURE Lock_Row(X_Rowid VARCHAR2,
279 X_FILE_CONTROL VARCHAR2,
280 X_ENTRY_SEQUENTIAL_NUMBER NUMBER,
281 X_REGISTRY_CODE VARCHAR2 DEFAULT NULL,
282 X_RETURN_CODE NUMBER DEFAULT NULL,
283 X_SERVICE_CODE NUMBER DEFAULT NULL,
284 X_RECORDING_DATE DATE DEFAULT NULL,
285 X_ISSUE_DATE DATE DEFAULT NULL,
286 X_DOCUMENT_NUMBER VARCHAR2 DEFAULT NULL,
287 X_DRAWER_GUARANTOR VARCHAR2 DEFAULT NULL,
288 X_INSTRUCTION_1 VARCHAR2 DEFAULT NULL,
289 X_INSTRUCTION_2 VARCHAR2 DEFAULT NULL,
290 X_CNAB_CODE VARCHAR2 DEFAULT NULL,
291 X_DUE_DATE DATE DEFAULT NULL,
292 X_AMOUNT NUMBER DEFAULT NULL,
293 X_DISCOUNT_DATE DATE DEFAULT NULL,
294 X_DISCOUNT_AMOUNT NUMBER DEFAULT NULL,
295 X_ARREARS_DATE DATE DEFAULT NULL,
296 X_ARREARS_CODE VARCHAR2 DEFAULT NULL,
297 X_ARREARS_INTEREST NUMBER DEFAULT NULL,
298 X_ABATE_AMOUNT NUMBER DEFAULT NULL,
299 X_PAID_AMOUNT NUMBER DEFAULT NULL,
300 X_PAYMENT_LOCATION VARCHAR2 DEFAULT NULL,
301 X_DOCUMENT_TYPE VARCHAR2 DEFAULT NULL,
302 X_ACCEPTANCE VARCHAR2 DEFAULT NULL,
303 X_PROCESSING_DATE DATE DEFAULT NULL,
304 X_BANK_USE VARCHAR2 DEFAULT NULL,
305 X_PORTFOLIO VARCHAR2 DEFAULT NULL,
306 X_PENALTY_FEE_AMOUNT NUMBER DEFAULT NULL,
307 X_PENALTY_FEE_DATE DATE DEFAULT NULL,
308 X_OTHER_ACCRETIONS NUMBER DEFAULT NULL,
309 X_OUR_NUMBER VARCHAR2 DEFAULT NULL,
310 X_TRANSFEROR_CODE VARCHAR2 DEFAULT NULL,
311 X_OCCURRENCE VARCHAR2 DEFAULT NULL,
312 X_OCCURRENCE_DATE DATE DEFAULT NULL,
313 X_DRAWEE_NAME VARCHAR2 DEFAULT NULL,
314 X_DRAWEE_BANK_CODE VARCHAR2 DEFAULT NULL,
318 X_DRAWEE_INSCRIPTION_TYPE NUMBER DEFAULT NULL,
315 X_DRAWEE_BANK_NAME VARCHAR2 DEFAULT NULL,
316 X_DRAWEE_BRANCH_CODE VARCHAR2 DEFAULT NULL,
317 X_DRAWEE_ACCOUNT_NUMBER VARCHAR2 DEFAULT NULL,
319 X_DRAWEE_INSCRIPTION_NUMBER VARCHAR2 DEFAULT NULL,
320 X_TRANSFEROR_NAME VARCHAR2 DEFAULT NULL,
321 X_TRANSFEROR_BANK_CODE VARCHAR2 DEFAULT NULL,
322 X_TRANSFEROR_BRANCH_CODE VARCHAR2 DEFAULT NULL,
323 X_TRANSFEROR_ACCOUNT_NUMBER VARCHAR2 DEFAULT NULL,
324 X_TRANSFEROR_INSCRIPTION_TYPE NUMBER DEFAULT NULL,
325 X_TRANSFEROR_INSCRIPTION_NUM VARCHAR2 DEFAULT NULL,
326 X_ACCOUNTING_BALANCING_SEGMENT VARCHAR2 DEFAULT NULL,
327 X_SET_OF_BOOKS_ID NUMBER DEFAULT NULL,
328 X_ERROR_CODE VARCHAR2 DEFAULT NULL,
329 X_LAST_UPDATE_DATE DATE,
330 X_LAST_UPDATED_BY NUMBER,
331 X_CREATION_DATE DATE,
332 X_CREATED_BY NUMBER,
333 X_LAST_UPDATE_LOGIN NUMBER,
334 X_ATTRIBUTE_CATEGORY VARCHAR2 DEFAULT NULL,
335 X_ATTRIBUTE1 VARCHAR2 DEFAULT NULL,
336 X_ATTRIBUTE2 VARCHAR2 DEFAULT NULL,
337 X_ATTRIBUTE3 VARCHAR2 DEFAULT NULL,
338 X_ATTRIBUTE4 VARCHAR2 DEFAULT NULL,
339 X_ATTRIBUTE5 VARCHAR2 DEFAULT NULL,
340 X_ATTRIBUTE6 VARCHAR2 DEFAULT NULL,
341 X_ATTRIBUTE7 VARCHAR2 DEFAULT NULL,
342 X_ATTRIBUTE8 VARCHAR2 DEFAULT NULL,
343 X_ATTRIBUTE9 VARCHAR2 DEFAULT NULL,
344 X_ATTRIBUTE10 VARCHAR2 DEFAULT NULL,
345 X_ATTRIBUTE11 VARCHAR2 DEFAULT NULL,
346 X_ATTRIBUTE12 VARCHAR2 DEFAULT NULL,
347 X_ATTRIBUTE13 VARCHAR2 DEFAULT NULL,
348 X_ATTRIBUTE14 VARCHAR2 DEFAULT NULL,
349 X_ATTRIBUTE15 VARCHAR2 DEFAULT NULL,
350 X_calling_sequence VARCHAR2,
351 X_BARCODE VARCHAR2 DEFAULT NULL,
352 X_ELECTRONIC_FORMAT_FLAG VARCHAR2 DEFAULT NULL
353 ) IS
354 CURSOR C IS
355 SELECT *
356 FROM JL_BR_AP_INT_COLLECT_EXT
357 WHERE rowid = X_Rowid
358 FOR UPDATE OF file_control NOWAIT;
359
360 Recinfo C%ROWTYPE;
361
362 current_calling_sequence VARCHAR2(2000);
363 debug_info VARCHAR2(100);
364
365 BEGIN
366 -- Update the calling sequence
367 --
368 current_calling_sequence := 'JL_BR_AP_INT_COLLECT_EXT_PKG.LOCK_ROW<-' ||
369 X_calling_sequence;
370 debug_info := 'Open cursor C';
371 OPEN C;
372 debug_info := 'Fetch cursor C';
373 FETCH C INTO Recinfo;
374
375 IF (C%NOTFOUND) THEN
376 debug_info := 'Close cursor C - DATA NOTFOUND';
377 CLOSE C;
378 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
379 APP_EXCEPTION.Raise_Exception;
380 END IF;
381
382 debug_info := 'Close cursor C';
383 CLOSE C;
384 IF (
385 (Recinfo.file_control = X_file_control)
386 AND (Recinfo.entry_sequential_number = X_entry_sequential_number)
387 AND ( (Recinfo.REGISTRY_CODE = X_REGISTRY_CODE)
388 OR ( (Recinfo.REGISTRY_CODE IS NULL)
389 AND (X_REGISTRY_CODE IS NULL)))
390 AND ( (Recinfo.RETURN_CODE = X_RETURN_CODE)
391 OR ( (Recinfo.RETURN_CODE IS NULL)
392 AND (X_RETURN_CODE IS NULL)))
393 AND ( (Recinfo.SERVICE_CODE = X_SERVICE_CODE)
394 OR ( (Recinfo.SERVICE_CODE IS NULL)
395 AND (X_SERVICE_CODE IS NULL)))
396 AND ( (Recinfo.RECORDING_DATE = X_RECORDING_DATE)
397 OR ( (Recinfo.RECORDING_DATE IS NULL)
398 AND (X_RECORDING_DATE IS NULL)))
399 AND ( (Recinfo.ISSUE_DATE = X_ISSUE_DATE)
400 OR ( (Recinfo.ISSUE_DATE IS NULL)
401 AND (X_ISSUE_DATE IS NULL)))
402 AND ( (Recinfo.DOCUMENT_NUMBER = X_DOCUMENT_NUMBER)
403 OR ( (Recinfo.DOCUMENT_NUMBER IS NULL)
404 AND (X_DOCUMENT_NUMBER IS NULL)))
405 AND ( (Recinfo.DRAWER_GUARANTOR = X_DRAWER_GUARANTOR)
406 OR ( (Recinfo.DRAWER_GUARANTOR IS NULL)
407 AND (X_DRAWER_GUARANTOR IS NULL)))
408 AND ( (Recinfo.INSTRUCTION_1 = X_INSTRUCTION_1)
409 OR ( (Recinfo.INSTRUCTION_1 IS NULL)
410 AND (X_INSTRUCTION_1 IS NULL)))
411 AND ( (Recinfo.INSTRUCTION_2 = X_INSTRUCTION_2)
412 OR ( (Recinfo.INSTRUCTION_2 IS NULL)
413 AND (X_INSTRUCTION_2 IS NULL)))
414 AND ( (Recinfo.CNAB_CODE = X_CNAB_CODE)
415 OR ( (Recinfo.CNAB_CODE IS NULL)
416 AND (X_CNAB_CODE IS NULL)))
417 AND ( (Recinfo.DUE_DATE = X_DUE_DATE)
418 OR ( (Recinfo.DUE_DATE IS NULL)
419 AND (X_DUE_DATE IS NULL)))
420 AND ( (Recinfo.AMOUNT = X_AMOUNT)
421 OR ( (Recinfo.AMOUNT IS NULL)
425 AND (X_DISCOUNT_DATE IS NULL)))
422 AND (X_AMOUNT IS NULL)))
423 AND ( (Recinfo.DISCOUNT_DATE = X_DISCOUNT_DATE)
424 OR ( (Recinfo.DISCOUNT_DATE IS NULL)
426 AND ( (Recinfo.DISCOUNT_AMOUNT = X_DISCOUNT_AMOUNT)
427 OR ( (Recinfo.DISCOUNT_AMOUNT IS NULL)
431 AND (X_ARREARS_DATE IS NULL)))
428 AND (X_DISCOUNT_AMOUNT IS NULL)))
429 AND ( (Recinfo.ARREARS_DATE = X_ARREARS_DATE)
430 OR ( (Recinfo.ARREARS_DATE IS NULL)
432 AND ( (Recinfo.ARREARS_CODE = X_ARREARS_CODE)
433 OR ( (Recinfo.ARREARS_CODE IS NULL)
434 AND (X_ARREARS_CODE IS NULL)))
435 AND ( (Recinfo.ARREARS_INTEREST = X_ARREARS_INTEREST)
436 OR ( (Recinfo.ARREARS_INTEREST IS NULL)
437 AND (X_ARREARS_INTEREST IS NULL)))
438 AND ( (Recinfo.ABATE_AMOUNT = X_ABATE_AMOUNT)
439 OR ( (Recinfo.ABATE_AMOUNT IS NULL)
440 AND (X_ABATE_AMOUNT IS NULL)))
441 AND ( (Recinfo.PAID_AMOUNT = X_PAID_AMOUNT)
442 OR ( (Recinfo.PAID_AMOUNT IS NULL)
443 AND (X_PAID_AMOUNT IS NULL)))
444 AND ( (Recinfo.PAYMENT_LOCATION = X_PAYMENT_LOCATION)
445 OR ( (Recinfo.PAYMENT_LOCATION IS NULL)
446 AND (X_PAYMENT_LOCATION IS NULL)))
447 AND ( (Recinfo.DOCUMENT_TYPE = X_DOCUMENT_TYPE)
448 OR ( (Recinfo.DOCUMENT_TYPE IS NULL)
449 AND (X_DOCUMENT_TYPE IS NULL)))
450 AND ( (Recinfo.ACCEPTANCE = X_ACCEPTANCE)
451 OR ( (Recinfo.ACCEPTANCE IS NULL)
452 AND (X_ACCEPTANCE IS NULL)))
453 AND ( (Recinfo.PROCESSING_DATE = X_PROCESSING_DATE)
454 OR ( (Recinfo.PROCESSING_DATE IS NULL)
455 AND (X_PROCESSING_DATE IS NULL)))
456 AND ( (Recinfo.BANK_USE = X_BANK_USE)
457 OR ( (Recinfo.BANK_USE IS NULL)
458 AND (X_BANK_USE IS NULL)))
459 AND ( (Recinfo.PORTFOLIO = X_PORTFOLIO)
460 OR ( (Recinfo.PORTFOLIO IS NULL)
461 AND (X_PORTFOLIO IS NULL)))
462 AND ( (Recinfo.PENALTY_FEE_AMOUNT = X_PENALTY_FEE_AMOUNT)
463 OR ( (Recinfo.PENALTY_FEE_AMOUNT IS NULL)
464 AND (X_PENALTY_FEE_AMOUNT IS NULL)))
465 AND ( (Recinfo.PENALTY_FEE_DATE = X_PENALTY_FEE_DATE)
466 OR ( (Recinfo.PENALTY_FEE_DATE IS NULL)
467 AND (X_PENALTY_FEE_DATE IS NULL)))
468 AND ( (Recinfo.OTHER_ACCRETIONS = X_OTHER_ACCRETIONS)
469 OR ( (Recinfo.OTHER_ACCRETIONS IS NULL)
470 AND (X_OTHER_ACCRETIONS IS NULL)))
471 AND ( (Recinfo.OUR_NUMBER = X_OUR_NUMBER)
472 OR ( (Recinfo.OUR_NUMBER IS NULL)
473 AND (X_OUR_NUMBER IS NULL)))
474 AND ( (Recinfo.TRANSFEROR_CODE = X_TRANSFEROR_CODE)
475 OR ( (Recinfo.TRANSFEROR_CODE IS NULL)
476 AND (X_TRANSFEROR_CODE IS NULL)))
477 AND ( (Recinfo.OCCURRENCE = X_OCCURRENCE)
478 OR ( (Recinfo.OCCURRENCE IS NULL)
479 AND (X_OCCURRENCE IS NULL)))
480 AND ( (Recinfo.OCCURRENCE_DATE = X_OCCURRENCE_DATE)
481 OR ( (Recinfo.OCCURRENCE_DATE IS NULL)
482 AND (X_OCCURRENCE_DATE IS NULL)))
483 AND ( (Recinfo.DRAWEE_NAME = X_DRAWEE_NAME)
484 OR ( (Recinfo.DRAWEE_NAME IS NULL)
485 AND (X_DRAWEE_NAME IS NULL)))
486 AND ( (Recinfo.DRAWEE_BANK_CODE = X_DRAWEE_BANK_CODE)
487 OR ( (Recinfo.DRAWEE_BANK_CODE IS NULL)
488 AND (X_DRAWEE_BANK_CODE IS NULL)))
489 AND ( (Recinfo.DRAWEE_BANK_NAME = X_DRAWEE_BANK_NAME)
490 OR ( (Recinfo.DRAWEE_BANK_NAME IS NULL)
491 AND (X_DRAWEE_BANK_NAME IS NULL)))
492 AND ( (Recinfo.DRAWEE_BRANCH_CODE = X_DRAWEE_BRANCH_CODE)
493 OR ( (Recinfo.DRAWEE_BRANCH_CODE IS NULL)
494 AND (X_DRAWEE_BRANCH_CODE IS NULL)))
495 AND ( (Recinfo.DRAWEE_ACCOUNT_NUMBER = X_DRAWEE_ACCOUNT_NUMBER)
496 OR ( (Recinfo.DRAWEE_ACCOUNT_NUMBER IS NULL)
497 AND (X_DRAWEE_ACCOUNT_NUMBER IS NULL)))
498 AND ( (Recinfo.TRANSFEROR_INSCRIPTION_TYPE = X_TRANSFEROR_INSCRIPTION_TYPE)
499 OR ( (Recinfo.TRANSFEROR_INSCRIPTION_TYPE IS NULL)
500 AND (X_TRANSFEROR_INSCRIPTION_TYPE IS NULL)))
501 AND ( (Recinfo.TRANSFEROR_INSCRIPTION_NUMBER = X_TRANSFEROR_INSCRIPTION_NUM)
502 OR ( (Recinfo.TRANSFEROR_INSCRIPTION_NUMBER IS NULL)
503 AND (X_TRANSFEROR_INSCRIPTION_NUM IS NULL)))
507 AND ( (Recinfo.SET_OF_BOOKS_ID = X_SET_OF_BOOKS_ID)
504 AND ( (Recinfo.ACCOUNTING_BALANCING_SEGMENT = X_ACCOUNTING_BALANCING_SEGMENT)
505 OR ( (Recinfo.ACCOUNTING_BALANCING_SEGMENT IS NULL)
506 AND (X_ACCOUNTING_BALANCING_SEGMENT IS NULL)))
508 OR ( (Recinfo.SET_OF_BOOKS_ID IS NULL)
509 AND (X_SET_OF_BOOKS_ID IS NULL)))
510 AND ( (Recinfo.ERROR_CODE = X_ERROR_CODE)
511 OR ( (Recinfo.ERROR_CODE IS NULL)
512 AND (X_ERROR_CODE IS NULL)))
513 AND ( (Recinfo.ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY)
514 OR ( (Recinfo.ATTRIBUTE_CATEGORY IS NULL)
515 AND (X_ATTRIBUTE_CATEGORY IS NULL)))
516 AND ( (Recinfo.ATTRIBUTE1 = X_ATTRIBUTE1)
517 OR ( (Recinfo.ATTRIBUTE1 IS NULL)
518 AND (X_ATTRIBUTE1 IS NULL)))
519 AND ( (Recinfo.ATTRIBUTE2 = X_ATTRIBUTE2)
520 OR ( (Recinfo.ATTRIBUTE2 IS NULL)
521 AND (X_ATTRIBUTE2 IS NULL)))
522 AND ( (Recinfo.ATTRIBUTE3 = X_ATTRIBUTE3)
523 OR ( (Recinfo.ATTRIBUTE3 IS NULL)
524 AND (X_ATTRIBUTE3 IS NULL)))
525 AND ( (Recinfo.ATTRIBUTE4 = X_ATTRIBUTE4)
526 OR ( (Recinfo.ATTRIBUTE4 IS NULL)
527 AND (X_ATTRIBUTE4 IS NULL)))
528 AND ( (Recinfo.ATTRIBUTE5 = X_ATTRIBUTE5)
529 OR ( (Recinfo.ATTRIBUTE5 IS NULL)
530 AND (X_ATTRIBUTE5 IS NULL)))
531 AND ( (Recinfo.ATTRIBUTE6 = X_ATTRIBUTE6)
532 OR ( (Recinfo.ATTRIBUTE6 IS NULL)
533 AND (X_ATTRIBUTE6 IS NULL)))
534 AND ( (Recinfo.ATTRIBUTE7 = X_ATTRIBUTE7)
535 OR ( (Recinfo.ATTRIBUTE7 IS NULL)
536 AND (X_ATTRIBUTE7 IS NULL)))
537 AND ( (Recinfo.ATTRIBUTE8 = X_ATTRIBUTE8)
538 OR ( (Recinfo.ATTRIBUTE8 IS NULL)
539 AND (X_ATTRIBUTE8 IS NULL)))
540 AND ( (Recinfo.ATTRIBUTE9 = X_ATTRIBUTE9)
541 OR ( (Recinfo.ATTRIBUTE9 IS NULL)
542 AND (X_ATTRIBUTE9 IS NULL)))
543 AND ( (Recinfo.ATTRIBUTE10 = X_ATTRIBUTE10)
544 OR ( (Recinfo.ATTRIBUTE10 IS NULL)
545 AND (X_ATTRIBUTE10 IS NULL)))
546 AND ( (Recinfo.ATTRIBUTE11 = X_ATTRIBUTE11)
547 OR ( (Recinfo.ATTRIBUTE11 IS NULL)
548 AND (X_ATTRIBUTE11 IS NULL)))
549 AND ( (Recinfo.ATTRIBUTE12 = X_ATTRIBUTE12)
550 OR ( (Recinfo.ATTRIBUTE12 IS NULL)
551 AND (X_ATTRIBUTE12 IS NULL)))
552 AND ( (Recinfo.ATTRIBUTE13 = X_ATTRIBUTE13)
553 OR ( (Recinfo.ATTRIBUTE13 IS NULL)
554 AND (X_ATTRIBUTE13 IS NULL)))
555 AND ( (Recinfo.ATTRIBUTE14 = X_ATTRIBUTE14)
556 OR ( (Recinfo.ATTRIBUTE14 IS NULL)
557 AND (X_ATTRIBUTE14 IS NULL)))
558 AND ( (Recinfo.ATTRIBUTE15 = X_ATTRIBUTE15)
559 OR ( (Recinfo.ATTRIBUTE15 IS NULL)
560 AND (X_ATTRIBUTE15 IS NULL)))
561 AND ( (recinfo.barcode = x_barcode)
562 OR ( (recinfo.barcode IS NULL)
563 AND (x_barcode IS NULL)))
564 AND ( (recinfo.electronic_format_flag = x_electronic_format_flag)
565 OR ( (recinfo.electronic_format_flag IS NULL)
566 AND (x_electronic_format_flag IS NULL)))
567 ) THEN
568 RETURN;
569 ELSE
570 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
571 APP_EXCEPTION.Raise_Exception;
572 END IF;
573
574 EXCEPTION
575 WHEN OTHERS THEN
576 IF (SQLCODE <> -20001) THEN
577 IF (SQLCODE = -54) THEN
578 FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
579 ELSE
580 FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
581 FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
582 FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
583 FND_MESSAGE.SET_TOKEN('PARAMETERS','file_control = ' ||
584 X_file_control ||
585 ' entry_sequential_number = ' ||
586 X_entry_sequential_number);
587 FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
588 END IF;
589 END IF;
590
591 APP_EXCEPTION.RAISE_EXCEPTION;
592 END Lock_Row;
593
594
595 PROCEDURE Update_Row(X_Rowid VARCHAR2,
596 X_FILE_CONTROL VARCHAR2,
597 X_ENTRY_SEQUENTIAL_NUMBER NUMBER,
598 X_REGISTRY_CODE VARCHAR2 DEFAULT NULL,
599 X_RETURN_CODE NUMBER DEFAULT NULL,
600 X_SERVICE_CODE NUMBER DEFAULT NULL,
601 X_RECORDING_DATE DATE DEFAULT NULL,
602 X_ISSUE_DATE DATE DEFAULT NULL,
603 X_DOCUMENT_NUMBER VARCHAR2 DEFAULT NULL,
604 X_DRAWER_GUARANTOR VARCHAR2 DEFAULT NULL,
605 X_INSTRUCTION_1 VARCHAR2 DEFAULT NULL,
606 X_INSTRUCTION_2 VARCHAR2 DEFAULT NULL,
607 X_CNAB_CODE VARCHAR2 DEFAULT NULL,
608 X_DUE_DATE DATE DEFAULT NULL,
609 X_AMOUNT NUMBER DEFAULT NULL,
610 X_DISCOUNT_DATE DATE DEFAULT NULL,
611 X_DISCOUNT_AMOUNT NUMBER DEFAULT NULL,
615 X_ABATE_AMOUNT NUMBER DEFAULT NULL,
612 X_ARREARS_DATE DATE DEFAULT NULL,
613 X_ARREARS_CODE VARCHAR2 DEFAULT NULL,
614 X_ARREARS_INTEREST NUMBER DEFAULT NULL,
616 X_PAID_AMOUNT NUMBER DEFAULT NULL,
617 X_PAYMENT_LOCATION VARCHAR2 DEFAULT NULL,
618 X_DOCUMENT_TYPE VARCHAR2 DEFAULT NULL,
619 X_ACCEPTANCE VARCHAR2 DEFAULT NULL,
620 X_PROCESSING_DATE DATE DEFAULT NULL,
621 X_BANK_USE VARCHAR2 DEFAULT NULL,
622 X_PORTFOLIO VARCHAR2 DEFAULT NULL,
623 X_PENALTY_FEE_AMOUNT NUMBER DEFAULT NULL,
624 X_PENALTY_FEE_DATE DATE DEFAULT NULL,
625 X_OTHER_ACCRETIONS NUMBER DEFAULT NULL,
626 X_OUR_NUMBER VARCHAR2 DEFAULT NULL,
627 X_TRANSFEROR_CODE VARCHAR2 DEFAULT NULL,
628 X_OCCURRENCE VARCHAR2 DEFAULT NULL,
629 X_OCCURRENCE_DATE DATE DEFAULT NULL,
630 X_DRAWEE_NAME VARCHAR2 DEFAULT NULL,
631 X_DRAWEE_BANK_CODE VARCHAR2 DEFAULT NULL,
632 X_DRAWEE_BANK_NAME VARCHAR2 DEFAULT NULL,
633 X_DRAWEE_BRANCH_CODE VARCHAR2 DEFAULT NULL,
634 X_DRAWEE_ACCOUNT_NUMBER VARCHAR2 DEFAULT NULL,
635 X_DRAWEE_INSCRIPTION_TYPE NUMBER DEFAULT NULL,
636 X_DRAWEE_INSCRIPTION_NUMBER VARCHAR2 DEFAULT NULL,
637 X_TRANSFEROR_NAME VARCHAR2 DEFAULT NULL,
638 X_TRANSFEROR_BANK_CODE VARCHAR2 DEFAULT NULL,
639 X_TRANSFEROR_BRANCH_CODE VARCHAR2 DEFAULT NULL,
640 X_TRANSFEROR_ACCOUNT_NUMBER VARCHAR2 DEFAULT NULL,
641 X_TRANSFEROR_INSCRIPTION_TYPE NUMBER DEFAULT NULL,
642 X_TRANSFEROR_INSCRIPTION_NUM VARCHAR2 DEFAULT NULL,
643 X_ACCOUNTING_BALANCING_SEGMENT VARCHAR2 DEFAULT NULL,
644 X_SET_OF_BOOKS_ID NUMBER DEFAULT NULL,
645 X_ERROR_CODE VARCHAR2 DEFAULT NULL,
646 X_LAST_UPDATE_DATE DATE,
647 X_LAST_UPDATED_BY NUMBER,
648 X_CREATION_DATE DATE,
649 X_CREATED_BY NUMBER,
650 X_LAST_UPDATE_LOGIN NUMBER,
651 X_ATTRIBUTE_CATEGORY VARCHAR2 DEFAULT NULL,
652 X_ATTRIBUTE1 VARCHAR2 DEFAULT NULL,
653 X_ATTRIBUTE2 VARCHAR2 DEFAULT NULL,
654 X_ATTRIBUTE3 VARCHAR2 DEFAULT NULL,
658 X_ATTRIBUTE7 VARCHAR2 DEFAULT NULL,
655 X_ATTRIBUTE4 VARCHAR2 DEFAULT NULL,
656 X_ATTRIBUTE5 VARCHAR2 DEFAULT NULL,
657 X_ATTRIBUTE6 VARCHAR2 DEFAULT NULL,
659 X_ATTRIBUTE8 VARCHAR2 DEFAULT NULL,
660 X_ATTRIBUTE9 VARCHAR2 DEFAULT NULL,
661 X_ATTRIBUTE10 VARCHAR2 DEFAULT NULL,
662 X_ATTRIBUTE11 VARCHAR2 DEFAULT NULL,
663 X_ATTRIBUTE12 VARCHAR2 DEFAULT NULL,
664 X_ATTRIBUTE13 VARCHAR2 DEFAULT NULL,
665 X_ATTRIBUTE14 VARCHAR2 DEFAULT NULL,
666 X_ATTRIBUTE15 VARCHAR2 DEFAULT NULL,
667 X_calling_sequence VARCHAR2,
668 X_BARCODE VARCHAR2 DEFAULT NULL,
669 X_ELECTRONIC_FORMAT_FLAG VARCHAR2 DEFAULT NULL
670 ) IS
671
672 current_calling_sequence VARCHAR2(2000);
673 debug_info VARCHAR2(100);
674 BEGIN
675 -- Update the calling sequence
676 --
677 current_calling_sequence := 'JL_BR_AP_INT_COLLECT_EXT_PKG.UPDATE_ROW<-' ||
678 X_calling_sequence;
679 debug_info := 'Update JL_BR_AP_INT_COLLECT_EXT';
680 UPDATE JL_BR_AP_INT_COLLECT_EXT
681 SET
682 FILE_CONTROL = X_FILE_CONTROL,
683 ENTRY_SEQUENTIAL_NUMBER = X_ENTRY_SEQUENTIAL_NUMBER,
687 RECORDING_DATE = X_RECORDING_DATE,
684 REGISTRY_CODE = X_REGISTRY_CODE,
685 RETURN_CODE = X_RETURN_CODE,
686 SERVICE_CODE = X_SERVICE_CODE,
688 ISSUE_DATE = X_ISSUE_DATE,
689 DOCUMENT_NUMBER = X_DOCUMENT_NUMBER,
690 DRAWER_GUARANTOR = X_DRAWER_GUARANTOR,
691 INSTRUCTION_1 = X_INSTRUCTION_1,
692 INSTRUCTION_2 = X_INSTRUCTION_2,
693 CNAB_CODE = X_CNAB_CODE,
694 DUE_DATE = X_DUE_DATE,
695 AMOUNT = X_AMOUNT,
696 DISCOUNT_DATE = X_DISCOUNT_DATE,
697 DISCOUNT_AMOUNT = X_DISCOUNT_AMOUNT,
698 ARREARS_DATE = X_ARREARS_DATE,
699 ARREARS_CODE = X_ARREARS_CODE,
700 ARREARS_INTEREST = X_ARREARS_INTEREST,
701 ABATE_AMOUNT = X_ABATE_AMOUNT,
702 PAID_AMOUNT = X_PAID_AMOUNT,
703 PAYMENT_LOCATION = X_PAYMENT_LOCATION,
704 DOCUMENT_TYPE = X_DOCUMENT_TYPE,
705 ACCEPTANCE = X_ACCEPTANCE,
706 PROCESSING_DATE = X_PROCESSING_DATE,
707 BANK_USE = X_BANK_USE,
708 PORTFOLIO = X_PORTFOLIO,
709 PENALTY_FEE_AMOUNT = X_PENALTY_FEE_AMOUNT,
710 PENALTY_FEE_DATE = X_PENALTY_FEE_DATE,
711 OTHER_ACCRETIONS = X_OTHER_ACCRETIONS,
712 OUR_NUMBER = X_OUR_NUMBER,
713 TRANSFEROR_CODE = X_TRANSFEROR_CODE,
714 OCCURRENCE = X_OCCURRENCE,
715 OCCURRENCE_DATE = X_OCCURRENCE_DATE,
716 DRAWEE_NAME = X_DRAWEE_NAME,
717 DRAWEE_BANK_CODE = X_DRAWEE_BANK_CODE,
718 DRAWEE_BANK_NAME = X_DRAWEE_BANK_NAME,
719 DRAWEE_BRANCH_CODE = X_DRAWEE_BRANCH_CODE,
720 DRAWEE_ACCOUNT_NUMBER = X_DRAWEE_ACCOUNT_NUMBER,
721 DRAWEE_INSCRIPTION_TYPE = X_DRAWEE_INSCRIPTION_TYPE,
722 DRAWEE_INSCRIPTION_NUMBER = X_DRAWEE_INSCRIPTION_NUMBER,
723 TRANSFEROR_NAME = X_TRANSFEROR_NAME,
724 TRANSFEROR_BANK_CODE = X_TRANSFEROR_BANK_CODE,
725 TRANSFEROR_BRANCH_CODE = X_TRANSFEROR_BRANCH_CODE,
726 TRANSFEROR_ACCOUNT_NUMBER = X_TRANSFEROR_ACCOUNT_NUMBER,
727 TRANSFEROR_INSCRIPTION_TYPE = X_TRANSFEROR_INSCRIPTION_TYPE,
728 TRANSFEROR_INSCRIPTION_NUMBER = X_TRANSFEROR_INSCRIPTION_NUM,
729 ACCOUNTING_BALANCING_SEGMENT = X_ACCOUNTING_BALANCING_SEGMENT,
730 SET_OF_BOOKS_ID = X_SET_OF_BOOKS_ID,
731 ERROR_CODE = X_ERROR_CODE,
732 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
733 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
734 CREATION_DATE = X_CREATION_DATE,
735 CREATED_BY = X_CREATED_BY,
736 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
737 ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY,
738 ATTRIBUTE1 = X_ATTRIBUTE1,
739 ATTRIBUTE2 = X_ATTRIBUTE2,
740 ATTRIBUTE3 = X_ATTRIBUTE3,
741 ATTRIBUTE4 = X_ATTRIBUTE4,
742 ATTRIBUTE5 = X_ATTRIBUTE5,
743 ATTRIBUTE6 = X_ATTRIBUTE6,
744 ATTRIBUTE7 = X_ATTRIBUTE7,
745 ATTRIBUTE8 = X_ATTRIBUTE8,
746 ATTRIBUTE9 = X_ATTRIBUTE9,
747 ATTRIBUTE10 = X_ATTRIBUTE10,
748 ATTRIBUTE11 = X_ATTRIBUTE11,
749 ATTRIBUTE12 = X_ATTRIBUTE12,
750 ATTRIBUTE13 = X_ATTRIBUTE13,
751 ATTRIBUTE14 = X_ATTRIBUTE14,
752 ATTRIBUTE15 = X_ATTRIBUTE15,
753 BARCODE = X_BARCODE,
754 ELECTRONIC_FORMAT_FLAG = X_ELECTRONIC_FORMAT_FLAG
755 WHERE rowid = X_Rowid;
756
757 IF (SQL%NOTFOUND) THEN
758 Raise NO_DATA_FOUND;
759 END IF;
760
761 EXCEPTION
762 WHEN OTHERS THEN
763 IF (SQLCODE <> -20001) THEN
764 FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
765 FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
766 FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
767 FND_MESSAGE.SET_TOKEN('PARAMETERS','file_control = ' ||
768 X_file_control ||
769 ' entry_sequential_number = ' ||
773 APP_EXCEPTION.RAISE_EXCEPTION;
770 X_entry_sequential_number);
771 FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
772 END IF;
774
775 END Update_Row;
776
777 PROCEDURE Delete_Row(X_Rowid VARCHAR2,
778 X_calling_sequence IN VARCHAR2) IS
779 current_calling_sequence VARCHAR2(2000);
780 debug_info VARCHAR2(100);
781 BEGIN
782 -- Update the calling sequence
783 --
784 current_calling_sequence := 'JL_BR_AP_INT_COLLECT_EXT_PKG.DELETE_ROW<-' ||
785 X_calling_sequence;
786 debug_info := 'Delete from JL_BR_AP_INT_COLLECT_EXT';
787 DELETE FROM JL_BR_AP_INT_COLLECT_EXT
788 WHERE rowid = X_Rowid;
789
790 IF (SQL%NOTFOUND) THEN
791 Raise NO_DATA_FOUND;
792 END IF;
793
794 EXCEPTION
795 WHEN OTHERS THEN
796 IF (SQLCODE <> -20001) THEN
797 FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
798 FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
799 FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
800 FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid);
801 FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
802 END IF;
803 APP_EXCEPTION.RAISE_EXCEPTION;
804
805 END Delete_Row;
806
807 END JL_BR_AP_INT_COLLECT_EXT_PKG;