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