[Home] [Help]
PACKAGE BODY: APPS.JL_BR_AP_COLLECTION_DOCS_PKG
Source
1 PACKAGE BODY JL_BR_AP_COLLECTION_DOCS_PKG as
2 /* $Header: jlbrpecb.pls 120.4.12010000.2 2009/11/19 16:05:14 gmeni ship $ */
3
4 PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
5
6 X_BANK_COLLECTION_ID NUMBER,
7 X_LAST_UPDATED_BY NUMBER,
8 X_LAST_UPDATE_DATE DATE,
9 X_CREATED_BY NUMBER,
10 X_CREATION_DATE DATE,
11 X_LAST_UPDATE_LOGIN NUMBER,
12 X_INVOICE_ID NUMBER DEFAULT NULL,
13 X_PAYMENT_NUM NUMBER DEFAULT NULL,
14 X_HOLD_FLAG VARCHAR2 DEFAULT NULL,
15 X_ISSUE_DATE DATE DEFAULT NULL,
16 X_DOCUMENT_NUMBER VARCHAR2 DEFAULT NULL,
17 X_DRAWER_GUARANTOR VARCHAR2 DEFAULT NULL,
18 X_INSTRUCTION_1 VARCHAR2 DEFAULT NULL,
19 X_INSTRUCTION_2 VARCHAR2 DEFAULT NULL,
20 X_CURRENCY_CODE VARCHAR2,
21 X_DUE_DATE DATE DEFAULT NULL,
22 X_AMOUNT NUMBER DEFAULT NULL,
23 X_DISCOUNT_DATE DATE DEFAULT NULL,
24 X_DISCOUNT_AMOUNT NUMBER DEFAULT NULL,
25 X_ARREARS_DATE DATE DEFAULT NULL,
26 X_ARREARS_CODE VARCHAR2 DEFAULT NULL,
27 X_ARREARS_INTEREST NUMBER DEFAULT NULL,
28 X_ABATE_AMOUNT NUMBER DEFAULT NULL,
29 X_PAID_AMOUNT NUMBER DEFAULT NULL,
30 X_PAYMENT_LOCATION VARCHAR2 DEFAULT NULL,
31 X_DOCUMENT_TYPE VARCHAR2 DEFAULT NULL,
32 X_ACCEPTANCE VARCHAR2 DEFAULT NULL,
33 X_PROCESSING_DATE DATE DEFAULT NULL,
34 X_BANK_USE VARCHAR2 DEFAULT NULL,
35 X_PORTFOLIO VARCHAR2 DEFAULT NULL,
36 X_PENALTY_FEE_AMOUNT NUMBER DEFAULT NULL,
37 X_PENALTY_FEE_DATE DATE DEFAULT NULL,
38 X_OTHER_ACCRETIONS NUMBER DEFAULT NULL,
39 X_OUR_NUMBER VARCHAR2 DEFAULT NULL,
40 X_TRANSFEROR_CODE VARCHAR2 DEFAULT NULL,
41 X_VENDOR_SITE_ID NUMBER,
42 X_FILE_CONTROL VARCHAR2 DEFAULT NULL,
43 X_STATUS_LOOKUP_CODE VARCHAR2 DEFAULT NULL,
44 X_ATTRIBUTE_CATEGORY VARCHAR2 DEFAULT NULL,
45 X_ATTRIBUTE1 VARCHAR2 DEFAULT NULL,
46 X_ATTRIBUTE2 VARCHAR2 DEFAULT NULL,
47 X_ATTRIBUTE3 VARCHAR2 DEFAULT NULL,
48 X_ATTRIBUTE4 VARCHAR2 DEFAULT NULL,
49 X_ATTRIBUTE5 VARCHAR2 DEFAULT NULL,
50 X_ATTRIBUTE6 VARCHAR2 DEFAULT NULL,
51 X_ATTRIBUTE7 VARCHAR2 DEFAULT NULL,
52 X_ATTRIBUTE8 VARCHAR2 DEFAULT NULL,
53 X_ATTRIBUTE9 VARCHAR2 DEFAULT NULL,
54 X_ATTRIBUTE10 VARCHAR2 DEFAULT NULL,
55 X_ATTRIBUTE11 VARCHAR2 DEFAULT NULL,
56 X_ATTRIBUTE12 VARCHAR2 DEFAULT NULL,
57 X_ATTRIBUTE13 VARCHAR2 DEFAULT NULL,
58 X_ATTRIBUTE14 VARCHAR2 DEFAULT NULL,
59 X_ATTRIBUTE15 VARCHAR2 DEFAULT NULL,
60 X_ATTRIBUTE16 VARCHAR2 DEFAULT NULL,
61 X_ATTRIBUTE17 VARCHAR2 DEFAULT NULL,
62 X_ATTRIBUTE18 VARCHAR2 DEFAULT NULL,
63 X_ATTRIBUTE19 VARCHAR2 DEFAULT NULL,
64 X_ATTRIBUTE20 VARCHAR2 DEFAULT NULL,
65 X_ATTRIBUTE21 VARCHAR2 DEFAULT NULL,
66 X_ATTRIBUTE22 VARCHAR2 DEFAULT NULL,
67 X_ATTRIBUTE23 VARCHAR2 DEFAULT NULL,
68 X_ATTRIBUTE24 VARCHAR2 DEFAULT NULL,
69 X_ATTRIBUTE25 VARCHAR2 DEFAULT NULL,
70 X_ATTRIBUTE26 VARCHAR2 DEFAULT NULL,
71 X_ATTRIBUTE27 VARCHAR2 DEFAULT NULL,
72 X_ATTRIBUTE28 VARCHAR2 DEFAULT NULL,
73 X_ATTRIBUTE29 VARCHAR2 DEFAULT NULL,
74 X_ATTRIBUTE30 VARCHAR2 DEFAULT NULL,
75 X_ENTRY_SEQUENTIAL_NUMBER NUMBER DEFAULT NULL,
76 X_SET_OF_BOOKS_ID NUMBER,
77 X_VENDOR_ID NUMBER,
78 X_BANK_BRANCH_ID NUMBER,
79 X_BANK_PARTY_ID NUMBER,
80 X_BRANCH_PARTY_ID NUMBER,
81 X_ORG_ID NUMBER DEFAULT NULL,
82 X_calling_sequence VARCHAR2,
83 X_BARCODE VARCHAR2 DEFAULT NULL,
84 X_ELECTRONIC_FORMAT_FLAG VARCHAR2 DEFAULT NULL
85 ) IS
86 CURSOR C IS SELECT rowid FROM JL_BR_AP_COLLECTION_DOCS
87 WHERE bank_collection_id = X_bank_collection_id;
88 current_calling_sequence VARCHAR2(2000);
89 debug_info VARCHAR2(100);
90
91 BEGIN
92 -- Update the calling sequence
93 --
94 current_calling_sequence := 'JL_BR_AP_COLLECTION_DOCS_PKG.INSERT_ROW<-' ||
95 X_calling_sequence;
96
97 debug_info := 'Insert into JL_BR_AP_COLLECTION_DOCS';
98 INSERT INTO JL_BR_AP_COLLECTION_DOCS
99 (
100 BANK_COLLECTION_ID,
101 LAST_UPDATED_BY,
102 LAST_UPDATE_DATE,
103 CREATED_BY,
104 CREATION_DATE,
105 LAST_UPDATE_LOGIN,
106 INVOICE_ID,
107 PAYMENT_NUM,
108 HOLD_FLAG,
109 ISSUE_DATE,
110 DOCUMENT_NUMBER,
111 DRAWER_GUARANTOR,
112 INSTRUCTION_1,
113 INSTRUCTION_2,
114 CURRENCY_CODE,
115 DUE_DATE,
116 AMOUNT,
117 DISCOUNT_DATE,
118 DISCOUNT_AMOUNT,
119 ARREARS_DATE,
120 ARREARS_CODE,
121 ARREARS_INTEREST,
122 ABATE_AMOUNT,
123 PAID_AMOUNT,
124 PAYMENT_LOCATION,
125 DOCUMENT_TYPE,
126 ACCEPTANCE,
127 PROCESSING_DATE,
128 BANK_USE,
129 PORTFOLIO,
130 PENALTY_FEE_AMOUNT,
131 PENALTY_FEE_DATE,
132 OTHER_ACCRETIONS,
133 OUR_NUMBER,
134 TRANSFEROR_CODE,
135 VENDOR_SITE_ID,
136 FILE_CONTROL,
137 STATUS_LOOKUP_CODE,
138 ATTRIBUTE_CATEGORY,
139 ATTRIBUTE1,
140 ATTRIBUTE2,
141 ATTRIBUTE3,
142 ATTRIBUTE4,
143 ATTRIBUTE5,
144 ATTRIBUTE6,
145 ATTRIBUTE7,
146 ATTRIBUTE8,
147 ATTRIBUTE9,
148 ATTRIBUTE10,
149 ATTRIBUTE11,
150 ATTRIBUTE12,
151 ATTRIBUTE13,
152 ATTRIBUTE14,
153 ATTRIBUTE15,
154 ATTRIBUTE16,
155 ATTRIBUTE17,
156 ATTRIBUTE18,
157 ATTRIBUTE19,
158 ATTRIBUTE20,
159 ATTRIBUTE21,
160 ATTRIBUTE22,
161 ATTRIBUTE23,
162 ATTRIBUTE24,
163 ATTRIBUTE25,
164 ATTRIBUTE26,
165 ATTRIBUTE27,
166 ATTRIBUTE28,
167 ATTRIBUTE29,
168 ATTRIBUTE30,
169 ENTRY_SEQUENTIAL_NUMBER,
170 SET_OF_BOOKS_ID,
171 VENDOR_ID,
172 BANK_BRANCH_ID,
173 BANK_PARTY_ID,
174 BRANCH_PARTY_ID,
175 ORG_ID,
176 BARCODE,
177 ELECTRONIC_FORMAT_FLAG
178 )
179 VALUES (
180 X_BANK_COLLECTION_ID,
181 X_LAST_UPDATED_BY,
182 X_LAST_UPDATE_DATE,
183 X_CREATED_BY,
184 X_CREATION_DATE,
185 X_LAST_UPDATE_LOGIN,
186 X_INVOICE_ID,
187 X_PAYMENT_NUM,
188 X_HOLD_FLAG,
189 X_ISSUE_DATE,
190 X_DOCUMENT_NUMBER,
191 X_DRAWER_GUARANTOR,
192 X_INSTRUCTION_1,
193 X_INSTRUCTION_2,
194 X_CURRENCY_CODE,
195 X_DUE_DATE,
196 X_AMOUNT,
197 X_DISCOUNT_DATE,
198 X_DISCOUNT_AMOUNT,
199 X_ARREARS_DATE,
200 X_ARREARS_CODE,
201 X_ARREARS_INTEREST,
202 X_ABATE_AMOUNT,
203 X_PAID_AMOUNT,
204 X_PAYMENT_LOCATION,
205 X_DOCUMENT_TYPE,
206 X_ACCEPTANCE,
207 X_PROCESSING_DATE,
208 X_BANK_USE,
209 X_PORTFOLIO,
210 X_PENALTY_FEE_AMOUNT,
211 X_PENALTY_FEE_DATE,
212 X_OTHER_ACCRETIONS,
213 X_OUR_NUMBER,
214 X_TRANSFEROR_CODE,
215 X_VENDOR_SITE_ID,
216 X_FILE_CONTROL,
217 X_STATUS_LOOKUP_CODE,
218 X_ATTRIBUTE_CATEGORY,
219 X_ATTRIBUTE1,
220 X_ATTRIBUTE2,
221 X_ATTRIBUTE3,
222 X_ATTRIBUTE4,
223 X_ATTRIBUTE5,
224 X_ATTRIBUTE6,
225 X_ATTRIBUTE7,
226 X_ATTRIBUTE8,
227 X_ATTRIBUTE9,
228 X_ATTRIBUTE10,
229 X_ATTRIBUTE11,
230 X_ATTRIBUTE12,
231 X_ATTRIBUTE13,
232 X_ATTRIBUTE14,
233 X_ATTRIBUTE15,
234 X_ATTRIBUTE16,
235 X_ATTRIBUTE17,
236 X_ATTRIBUTE18,
237 X_ATTRIBUTE19,
238 X_ATTRIBUTE20,
239 X_ATTRIBUTE21,
240 X_ATTRIBUTE22,
241 X_ATTRIBUTE23,
242 X_ATTRIBUTE24,
243 X_ATTRIBUTE25,
244 X_ATTRIBUTE26,
245 X_ATTRIBUTE27,
246 X_ATTRIBUTE28,
247 X_ATTRIBUTE29,
248 X_ATTRIBUTE30,
249 X_ENTRY_SEQUENTIAL_NUMBER,
250 X_SET_OF_BOOKS_ID,
251 X_VENDOR_ID,
252 X_BANK_BRANCH_ID,
253 X_BANK_PARTY_ID,
254 X_BRANCH_PARTY_ID,
255 X_ORG_ID,
256 X_BARCODE,
257 X_ELECTRONIC_FORMAT_FLAG
258 );
259
260 debug_info := 'Open cursor C';
261 OPEN C;
262 debug_info := 'Fetch cursor C';
263 FETCH C INTO X_Rowid;
264 if (C%NOTFOUND) then
265 debug_info := 'Close cursor C - DATA NOTFOUND';
266 CLOSE C;
267 Raise NO_DATA_FOUND;
268 end if;
269 debug_info := 'Close cursor C';
270 CLOSE C;
271
272 EXCEPTION
273 WHEN OTHERS THEN
274 IF (SQLCODE <> -20001) THEN
275 FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
276 FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
277 FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
278 FND_MESSAGE.SET_TOKEN('PARAMETERS','bank_collection_id = ' ||
279 X_bank_collection_id);
280 FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
281 END IF;
282 APP_EXCEPTION.RAISE_EXCEPTION;
283
284 END Insert_Row;
285
286
287 PROCEDURE Lock_Row( X_Rowid VARCHAR2,
288
289 X_BANK_COLLECTION_ID NUMBER,
290 X_LAST_UPDATED_BY NUMBER,
291 X_LAST_UPDATE_DATE DATE,
292 X_CREATED_BY NUMBER,
293 X_CREATION_DATE DATE,
294 X_LAST_UPDATE_LOGIN NUMBER,
295 X_INVOICE_ID NUMBER DEFAULT NULL,
296 X_PAYMENT_NUM NUMBER DEFAULT NULL,
297 X_HOLD_FLAG VARCHAR2 DEFAULT NULL,
298 X_ISSUE_DATE DATE DEFAULT NULL,
299 X_DOCUMENT_NUMBER VARCHAR2 DEFAULT NULL,
300 X_DRAWER_GUARANTOR VARCHAR2 DEFAULT NULL,
301 X_INSTRUCTION_1 VARCHAR2 DEFAULT NULL,
302 X_INSTRUCTION_2 VARCHAR2 DEFAULT NULL,
303 X_CURRENCY_CODE VARCHAR2,
304 X_DUE_DATE DATE DEFAULT NULL,
305 X_AMOUNT NUMBER DEFAULT NULL,
306 X_DISCOUNT_DATE DATE DEFAULT NULL,
307 X_DISCOUNT_AMOUNT NUMBER DEFAULT NULL,
311 X_ABATE_AMOUNT NUMBER DEFAULT NULL,
308 X_ARREARS_DATE DATE DEFAULT NULL,
309 X_ARREARS_CODE VARCHAR2 DEFAULT NULL,
310 X_ARREARS_INTEREST NUMBER DEFAULT NULL,
312 X_PAID_AMOUNT NUMBER DEFAULT NULL,
313 X_PAYMENT_LOCATION VARCHAR2 DEFAULT NULL,
314 X_DOCUMENT_TYPE VARCHAR2 DEFAULT NULL,
315 X_ACCEPTANCE VARCHAR2 DEFAULT NULL,
316 X_PROCESSING_DATE DATE DEFAULT NULL,
317 X_BANK_USE VARCHAR2 DEFAULT NULL,
318 X_PORTFOLIO VARCHAR2 DEFAULT NULL,
319 X_PENALTY_FEE_AMOUNT NUMBER DEFAULT NULL,
320 X_PENALTY_FEE_DATE DATE DEFAULT NULL,
321 X_OTHER_ACCRETIONS NUMBER DEFAULT NULL,
322 X_OUR_NUMBER VARCHAR2 DEFAULT NULL,
323 X_TRANSFEROR_CODE VARCHAR2 DEFAULT NULL,
324 X_VENDOR_SITE_ID NUMBER,
325 X_FILE_CONTROL VARCHAR2 DEFAULT NULL,
326 X_STATUS_LOOKUP_CODE VARCHAR2 DEFAULT NULL,
327 X_ATTRIBUTE_CATEGORY VARCHAR2 DEFAULT NULL,
328 X_ATTRIBUTE1 VARCHAR2 DEFAULT NULL,
329 X_ATTRIBUTE2 VARCHAR2 DEFAULT NULL,
330 X_ATTRIBUTE3 VARCHAR2 DEFAULT NULL,
331 X_ATTRIBUTE4 VARCHAR2 DEFAULT NULL,
332 X_ATTRIBUTE5 VARCHAR2 DEFAULT NULL,
333 X_ATTRIBUTE6 VARCHAR2 DEFAULT NULL,
334 X_ATTRIBUTE7 VARCHAR2 DEFAULT NULL,
335 X_ATTRIBUTE8 VARCHAR2 DEFAULT NULL,
336 X_ATTRIBUTE9 VARCHAR2 DEFAULT NULL,
337 X_ATTRIBUTE10 VARCHAR2 DEFAULT NULL,
338 X_ATTRIBUTE11 VARCHAR2 DEFAULT NULL,
339 X_ATTRIBUTE12 VARCHAR2 DEFAULT NULL,
340 X_ATTRIBUTE13 VARCHAR2 DEFAULT NULL,
341 X_ATTRIBUTE14 VARCHAR2 DEFAULT NULL,
342 X_ATTRIBUTE15 VARCHAR2 DEFAULT NULL,
343 X_ATTRIBUTE16 VARCHAR2 DEFAULT NULL,
344 X_ATTRIBUTE17 VARCHAR2 DEFAULT NULL,
345 X_ATTRIBUTE18 VARCHAR2 DEFAULT NULL,
346 X_ATTRIBUTE19 VARCHAR2 DEFAULT NULL,
347 X_ATTRIBUTE20 VARCHAR2 DEFAULT NULL,
348 X_ATTRIBUTE21 VARCHAR2 DEFAULT NULL,
349 X_ATTRIBUTE22 VARCHAR2 DEFAULT NULL,
350 X_ATTRIBUTE23 VARCHAR2 DEFAULT NULL,
351 X_ATTRIBUTE24 VARCHAR2 DEFAULT NULL,
352 X_ATTRIBUTE25 VARCHAR2 DEFAULT NULL,
353 X_ATTRIBUTE26 VARCHAR2 DEFAULT NULL,
354 X_ATTRIBUTE27 VARCHAR2 DEFAULT NULL,
355 X_ATTRIBUTE28 VARCHAR2 DEFAULT NULL,
356 X_ATTRIBUTE29 VARCHAR2 DEFAULT NULL,
357 X_ATTRIBUTE30 VARCHAR2 DEFAULT NULL,
358 X_ENTRY_SEQUENTIAL_NUMBER NUMBER DEFAULT NULL,
359 X_SET_OF_BOOKS_ID NUMBER,
360 X_VENDOR_ID NUMBER,
361 X_BANK_BRANCH_ID NUMBER,
362 X_BANK_PARTY_ID NUMBER,
363 X_BRANCH_PARTY_ID NUMBER,
364 X_calling_sequence VARCHAR2,
365 X_BARCODE VARCHAR2 DEFAULT NULL,
366 X_ELECTRONIC_FORMAT_FLAG VARCHAR2 DEFAULT NULL
367 ) IS
368 CURSOR C IS
369 SELECT *
370 FROM JL_BR_AP_COLLECTION_DOCS
371 WHERE rowid = X_Rowid
372 FOR UPDATE of bank_collection_id NOWAIT;
373 Recinfo C%ROWTYPE;
374
375 current_calling_sequence VARCHAR2(2000);
376 debug_info VARCHAR2(100);
377
378 BEGIN
379 -- Update the calling sequence
380 --
381 current_calling_sequence := 'JL_BR_AP_COLLECTION_DOCS_PKG.LOCK_ROW<-' ||
382 X_calling_sequence;
383 debug_info := 'Open cursor C';
384 OPEN C;
385 debug_info := 'Fetch cursor C';
386 FETCH C INTO Recinfo;
387 if (C%NOTFOUND) then
388 debug_info := 'Close cursor C - DATA NOTFOUND';
389 CLOSE C;
390 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
391 APP_EXCEPTION.Raise_Exception;
392 end if;
393 debug_info := 'Close cursor C';
394 CLOSE C;
395 if (
396 (Recinfo.bank_collection_id = X_bank_collection_id)
397 AND ( (Recinfo.invoice_id = X_invoice_id)
398 OR ( (Recinfo.invoice_id IS NULL)
399 AND (X_invoice_id IS NULL)))
400 AND ( (Recinfo.payment_num = X_payment_num)
401 OR ( (Recinfo.payment_num IS NULL)
402 AND (X_payment_num IS NULL)))
403 AND ( (Recinfo.hold_flag = X_hold_flag)
407 OR ( (Recinfo.issue_date IS NULL)
404 OR ( (Recinfo.hold_flag IS NULL)
405 AND (X_hold_flag IS NULL)))
406 AND ( (Recinfo.issue_date = X_issue_date)
408 AND (X_issue_date IS NULL)))
409 AND ( (Recinfo.DOCUMENT_NUMBER = X_DOCUMENT_NUMBER)
410 OR ( (Recinfo.DOCUMENT_NUMBER IS NULL)
411 AND (X_DOCUMENT_NUMBER IS NULL)))
412 AND ( (Recinfo.DRAWER_GUARANTOR = X_DRAWER_GUARANTOR)
413 OR ( (Recinfo.DRAWER_GUARANTOR IS NULL)
414 AND (X_DRAWER_GUARANTOR IS NULL)))
415 AND ( (Recinfo.INSTRUCTION_1 = X_INSTRUCTION_1)
416 OR ( (Recinfo.INSTRUCTION_1 IS NULL)
417 AND (X_INSTRUCTION_1 IS NULL)))
418 AND ( (Recinfo.INSTRUCTION_2 = X_INSTRUCTION_2)
419 OR ( (Recinfo.INSTRUCTION_2 IS NULL)
420 AND (X_INSTRUCTION_2 IS NULL)))
421 AND (Recinfo.CURRENCY_CODE = X_CURRENCY_CODE)
422 AND ( (Recinfo.DUE_DATE = X_DUE_DATE)
423 OR ( (Recinfo.DUE_DATE IS NULL)
424 AND (X_DUE_DATE IS NULL)))
425 AND ( (Recinfo.AMOUNT = X_AMOUNT)
426 OR ( (Recinfo.AMOUNT IS NULL)
427 AND (X_AMOUNT IS NULL)))
428 AND ( (Recinfo.DISCOUNT_DATE = X_DISCOUNT_DATE)
429 OR ( (Recinfo.DISCOUNT_DATE IS NULL)
430 AND (X_DISCOUNT_DATE IS NULL)))
431 AND ( (Recinfo.DISCOUNT_AMOUNT = X_DISCOUNT_AMOUNT)
432 OR ( (Recinfo.DISCOUNT_AMOUNT IS NULL)
433 AND (X_DISCOUNT_AMOUNT IS NULL)))
434 AND ( (Recinfo.ARREARS_DATE = X_ARREARS_DATE)
435 OR ( (Recinfo.ARREARS_DATE IS NULL)
436 AND (X_ARREARS_DATE IS NULL)))
437 AND ( (Recinfo.ARREARS_CODE = X_ARREARS_CODE)
438 OR ( (Recinfo.ARREARS_CODE IS NULL)
439 AND (X_ARREARS_CODE IS NULL)))
440 AND ( (Recinfo.ARREARS_INTEREST = X_ARREARS_INTEREST)
441 OR ( (Recinfo.ARREARS_INTEREST IS NULL)
442 AND (X_ARREARS_INTEREST IS NULL)))
443 AND ( (Recinfo.ABATE_AMOUNT = X_ABATE_AMOUNT)
444 OR ( (Recinfo.ABATE_AMOUNT IS NULL)
445 AND (X_ABATE_AMOUNT IS NULL)))
446 AND ( (Recinfo.PAID_AMOUNT = X_PAID_AMOUNT)
447 OR ( (Recinfo.PAID_AMOUNT IS NULL)
448 AND (X_PAID_AMOUNT IS NULL)))
449 AND ( (Recinfo.PAYMENT_LOCATION = X_PAYMENT_LOCATION)
450 OR ( (Recinfo.PAYMENT_LOCATION IS NULL)
451 AND (X_PAYMENT_LOCATION IS NULL)))
452 AND ( (Recinfo.DOCUMENT_TYPE = X_DOCUMENT_TYPE)
453 OR ( (Recinfo.DOCUMENT_TYPE IS NULL)
454 AND (X_DOCUMENT_TYPE IS NULL)))
455 AND ( (Recinfo.ACCEPTANCE = X_ACCEPTANCE)
456 OR ( (Recinfo.ACCEPTANCE IS NULL)
457 AND (X_ACCEPTANCE IS NULL)))
458 AND ( (Recinfo.PROCESSING_DATE = X_PROCESSING_DATE)
459 OR ( (Recinfo.PROCESSING_DATE IS NULL)
460 AND (X_PROCESSING_DATE IS NULL)))
461 AND ( (Recinfo.BANK_USE = X_BANK_USE)
462 OR ( (Recinfo.BANK_USE IS NULL)
463 AND (X_BANK_USE IS NULL)))
464 AND ( (Recinfo.PORTFOLIO = X_PORTFOLIO)
465 OR ( (Recinfo.PORTFOLIO IS NULL)
466 AND (X_PORTFOLIO IS NULL)))
467 AND ( (Recinfo.PENALTY_FEE_AMOUNT = X_PENALTY_FEE_AMOUNT)
468 OR ( (Recinfo.PENALTY_FEE_AMOUNT IS NULL)
469 AND (X_PENALTY_FEE_AMOUNT IS NULL)))
470 AND ( (Recinfo.PENALTY_FEE_DATE = X_PENALTY_FEE_DATE)
471 OR ( (Recinfo.PENALTY_FEE_DATE IS NULL)
472 AND (X_PENALTY_FEE_DATE IS NULL)))
473 AND ( (Recinfo.OTHER_ACCRETIONS = X_OTHER_ACCRETIONS)
474 OR ( (Recinfo.OTHER_ACCRETIONS IS NULL)
475 AND (X_OTHER_ACCRETIONS IS NULL)))
476 AND ( (Recinfo.OUR_NUMBER = X_OUR_NUMBER)
477 OR ( (Recinfo.OUR_NUMBER IS NULL)
478 AND (X_OUR_NUMBER IS NULL)))
479 AND ( (Recinfo.TRANSFEROR_CODE = X_TRANSFEROR_CODE)
480 OR ( (Recinfo.TRANSFEROR_CODE IS NULL)
481 AND (X_TRANSFEROR_CODE IS NULL)))
482 AND (Recinfo.VENDOR_SITE_ID = X_VENDOR_SITE_ID)
483 AND ( (Recinfo.FILE_CONTROL = X_FILE_CONTROL)
484 OR ( (Recinfo.FILE_CONTROL IS NULL)
485 AND (X_FILE_CONTROL IS NULL)))
486 AND ( (Recinfo.STATUS_LOOKUP_CODE = X_STATUS_LOOKUP_CODE)
487 OR ( (Recinfo.STATUS_LOOKUP_CODE IS NULL)
488 AND (X_STATUS_LOOKUP_CODE IS NULL)))
489 AND ( (Recinfo.ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY)
490 OR ( (Recinfo.ATTRIBUTE_CATEGORY IS NULL)
491 AND (X_ATTRIBUTE_CATEGORY IS NULL)))
492 AND ( (Recinfo.ATTRIBUTE1 = X_ATTRIBUTE1)
493 OR ( (Recinfo.ATTRIBUTE1 IS NULL)
494 AND (X_ATTRIBUTE1 IS NULL)))
495 AND ( (Recinfo.ATTRIBUTE2 = X_ATTRIBUTE2)
496 OR ( (Recinfo.ATTRIBUTE2 IS NULL)
497 AND (X_ATTRIBUTE2 IS NULL)))
498 AND ( (Recinfo.ATTRIBUTE3 = X_ATTRIBUTE3)
499 OR ( (Recinfo.ATTRIBUTE3 IS NULL)
500 AND (X_ATTRIBUTE3 IS NULL)))
501 AND ( (Recinfo.ATTRIBUTE4 = X_ATTRIBUTE4)
502 OR ( (Recinfo.ATTRIBUTE4 IS NULL)
503 AND (X_ATTRIBUTE4 IS NULL)))
504 AND ( (Recinfo.ATTRIBUTE5 = X_ATTRIBUTE5)
505 OR ( (Recinfo.ATTRIBUTE5 IS NULL)
509 AND (X_ATTRIBUTE6 IS NULL)))
506 AND (X_ATTRIBUTE5 IS NULL)))
507 AND ( (Recinfo.ATTRIBUTE6 = X_ATTRIBUTE6)
508 OR ( (Recinfo.ATTRIBUTE6 IS NULL)
510 AND ( (Recinfo.ATTRIBUTE7 = X_ATTRIBUTE7)
511 OR ( (Recinfo.ATTRIBUTE7 IS NULL)
512 AND (X_ATTRIBUTE7 IS NULL)))
513 AND ( (Recinfo.ATTRIBUTE8 = X_ATTRIBUTE8)
514 OR ( (Recinfo.ATTRIBUTE8 IS NULL)
515 AND (X_ATTRIBUTE8 IS NULL)))
516 AND ( (Recinfo.ATTRIBUTE9 = X_ATTRIBUTE9)
517 OR ( (Recinfo.ATTRIBUTE9 IS NULL)
518 AND (X_ATTRIBUTE9 IS NULL)))
519 AND ( (Recinfo.ATTRIBUTE10 = X_ATTRIBUTE10)
520 OR ( (Recinfo.ATTRIBUTE10 IS NULL)
521 AND (X_ATTRIBUTE10 IS NULL)))
522 AND ( (Recinfo.ATTRIBUTE11 = X_ATTRIBUTE11)
523 OR ( (Recinfo.ATTRIBUTE11 IS NULL)
524 AND (X_ATTRIBUTE11 IS NULL)))
525 AND ( (Recinfo.ATTRIBUTE12 = X_ATTRIBUTE12)
526 OR ( (Recinfo.ATTRIBUTE12 IS NULL)
527 AND (X_ATTRIBUTE12 IS NULL)))
528 AND ( (Recinfo.ATTRIBUTE13 = X_ATTRIBUTE13)
529 OR ( (Recinfo.ATTRIBUTE13 IS NULL)
530 AND (X_ATTRIBUTE13 IS NULL)))
531 AND ( (Recinfo.ATTRIBUTE14 = X_ATTRIBUTE14)
532 OR ( (Recinfo.ATTRIBUTE14 IS NULL)
533 AND (X_ATTRIBUTE14 IS NULL)))
534 AND ( (Recinfo.ATTRIBUTE15 = X_ATTRIBUTE15)
535 OR ( (Recinfo.ATTRIBUTE15 IS NULL)
536 AND (X_ATTRIBUTE15 IS NULL)))
537 AND ( (Recinfo.ATTRIBUTE16 = X_ATTRIBUTE16)
538 OR ( (Recinfo.ATTRIBUTE16 IS NULL)
539 AND (X_ATTRIBUTE16 IS NULL)))
540 AND ( (Recinfo.ATTRIBUTE17 = X_ATTRIBUTE17)
541 OR ( (Recinfo.ATTRIBUTE17 IS NULL)
542 AND (X_ATTRIBUTE17 IS NULL)))
543 AND ( (Recinfo.ATTRIBUTE18 = X_ATTRIBUTE18)
544 OR ( (Recinfo.ATTRIBUTE18 IS NULL)
545 AND (X_ATTRIBUTE18 IS NULL)))
546 AND ( (Recinfo.ATTRIBUTE19 = X_ATTRIBUTE19)
547 OR ( (Recinfo.ATTRIBUTE19 IS NULL)
548 AND (X_ATTRIBUTE19 IS NULL)))
549 AND ( (Recinfo.ATTRIBUTE20 = X_ATTRIBUTE20)
550 OR ( (Recinfo.ATTRIBUTE20 IS NULL)
551 AND (X_ATTRIBUTE20 IS NULL)))
552 AND ( (Recinfo.ATTRIBUTE21 = X_ATTRIBUTE21)
553 OR ( (Recinfo.ATTRIBUTE21 IS NULL)
554 AND (X_ATTRIBUTE21 IS NULL)))
555 AND ( (Recinfo.ATTRIBUTE22 = X_ATTRIBUTE22)
556 OR ( (Recinfo.ATTRIBUTE22 IS NULL)
557 AND (X_ATTRIBUTE22 IS NULL)))
558 AND ( (Recinfo.ATTRIBUTE23 = X_ATTRIBUTE23)
559 OR ( (Recinfo.ATTRIBUTE23 IS NULL)
560 AND (X_ATTRIBUTE23 IS NULL)))
561 AND ( (Recinfo.ATTRIBUTE24 = X_ATTRIBUTE24)
562 OR ( (Recinfo.ATTRIBUTE24 IS NULL)
563 AND (X_ATTRIBUTE24 IS NULL)))
564 AND ( (Recinfo.ATTRIBUTE25 = X_ATTRIBUTE25)
565 OR ( (Recinfo.ATTRIBUTE25 IS NULL)
566 AND (X_ATTRIBUTE25 IS NULL)))
567 AND ( (Recinfo.ATTRIBUTE26 = X_ATTRIBUTE26)
568 OR ( (Recinfo.ATTRIBUTE26 IS NULL)
569 AND (X_ATTRIBUTE26 IS NULL)))
570 AND ( (Recinfo.ATTRIBUTE27 = X_ATTRIBUTE27)
571 OR ( (Recinfo.ATTRIBUTE27 IS NULL)
572 AND (X_ATTRIBUTE27 IS NULL)))
573 AND ( (Recinfo.ATTRIBUTE28 = X_ATTRIBUTE28)
574 OR ( (Recinfo.ATTRIBUTE28 IS NULL)
575 AND (X_ATTRIBUTE28 IS NULL)))
576 AND ( (Recinfo.ATTRIBUTE29 = X_ATTRIBUTE29)
577 OR ( (Recinfo.ATTRIBUTE29 IS NULL)
578 AND (X_ATTRIBUTE29 IS NULL)))
579 AND ( (Recinfo.ATTRIBUTE30 = X_ATTRIBUTE30)
580 OR ( (Recinfo.ATTRIBUTE30 IS NULL)
581 AND (X_ATTRIBUTE30 IS NULL)))
582 AND ( (Recinfo.ENTRY_SEQUENTIAL_NUMBER = X_ENTRY_SEQUENTIAL_NUMBER)
583 OR ( (Recinfo.ENTRY_SEQUENTIAL_NUMBER IS NULL)
584 AND (X_ENTRY_SEQUENTIAL_NUMBER IS NULL)))
585 AND (Recinfo.SET_OF_BOOKS_ID = X_SET_OF_BOOKS_ID)
586 AND (Recinfo.VENDOR_ID = X_VENDOR_ID)
587 AND ( (Recinfo.BANK_BRANCH_ID = X_BANK_BRANCH_ID)
588 OR ( (Recinfo.BANK_BRANCH_ID IS NULL)
589 AND (X_BANK_BRANCH_ID IS NULL)))
590 AND ( (Recinfo.BANK_PARTY_ID = X_BANK_PARTY_ID)
591 OR ( (Recinfo.BANK_PARTY_ID IS NULL)
592 AND (X_BANK_PARTY_ID IS NULL)))
593 AND (Recinfo.BRANCH_PARTY_ID = X_BRANCH_PARTY_ID)
594
595 AND ( (recinfo.barcode = x_barcode)
596 OR ( (recinfo.barcode IS NULL)
597 AND (x_barcode IS NULL)))
598 AND ( (recinfo.electronic_format_flag = x_electronic_format_flag)
599 OR ( (recinfo.electronic_format_flag IS NULL)
600 AND (x_electronic_format_flag IS NULL)))
601 ) then
602 return;
603 else
604 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
605 APP_EXCEPTION.Raise_Exception;
606 end if;
607
608 EXCEPTION
609 WHEN OTHERS THEN
610 IF (SQLCODE <> -20001) THEN
611 IF (SQLCODE = -54) THEN
612 FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
613 ELSE
614 FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
615 FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
619 FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
616 FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
617 FND_MESSAGE.SET_TOKEN('PARAMETERS','bank_collection_id = ' ||
618 X_bank_collection_id);
620 END IF;
621 END IF;
622 APP_EXCEPTION.RAISE_EXCEPTION;
623
624 END Lock_Row;
625
626
627 END JL_BR_AP_COLLECTION_DOCS_PKG;