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