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