[Home] [Help]
PACKAGE BODY: APPS.JL_BR_AP_CONSOLID_INVOICES_PKG
Source
1 PACKAGE BODY JL_BR_AP_CONSOLID_INVOICES_PKG as
2 /* $Header: jlbrpcib.pls 120.2 2003/04/26 00:29:12 thwon ship $ */
3
4 PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
5
6 X_Consolidated_Invoice_Id NUMBER,
7 X_Vendor_Id NUMBER,
8 X_Invoice_Num VARCHAR2,
9 X_Set_Of_Books_Id NUMBER,
10 X_Invoice_Currency_Code VARCHAR2,
11 X_Invoice_Amount NUMBER DEFAULT NULL,
12 X_Vendor_Site_Id NUMBER DEFAULT NULL,
13 X_Invoice_Date DATE DEFAULT NULL,
14 X_Description VARCHAR2 DEFAULT NULL,
15 X_Terms_Id NUMBER DEFAULT NULL,
16 X_Terms_Date DATE DEFAULT NULL,
17 X_Cancelled_Date DATE DEFAULT NULL,
18 X_Cancelled_By NUMBER DEFAULT NULL,
19 X_Cancelled_Amount NUMBER DEFAULT NULL,
20 X_Amt_Applicable_To_Discount NUMBER DEFAULT NULL,
21 X_Attribute_Category VARCHAR2 DEFAULT NULL,
22 X_Attribute1 VARCHAR2 DEFAULT NULL,
23 X_Attribute2 VARCHAR2 DEFAULT NULL,
24 X_Attribute3 VARCHAR2 DEFAULT NULL,
25 X_Attribute4 VARCHAR2 DEFAULT NULL,
26 X_Attribute5 VARCHAR2 DEFAULT NULL,
27 X_Attribute6 VARCHAR2 DEFAULT NULL,
28 X_Attribute7 VARCHAR2 DEFAULT NULL,
29 X_Attribute8 VARCHAR2 DEFAULT NULL,
30 X_Attribute9 VARCHAR2 DEFAULT NULL,
31 X_Attribute10 VARCHAR2 DEFAULT NULL,
32 X_Attribute11 VARCHAR2 DEFAULT NULL,
33 X_Attribute12 VARCHAR2 DEFAULT NULL,
34 X_Attribute13 VARCHAR2 DEFAULT NULL,
35 X_Attribute14 VARCHAR2 DEFAULT NULL,
36 X_Attribute15 VARCHAR2 DEFAULT NULL,
37 X_Last_Update_Date DATE,
38 X_Last_Updated_By NUMBER,
39 X_Creation_Date DATE DEFAULT NULL,
40 X_Created_By NUMBER DEFAULT NULL,
41 X_Last_Update_Login NUMBER DEFAULT NULL,
42 X_Pay_Group_Lookup_Code VARCHAR2 DEFAULT NULL,
43 X_Pay_Group_Flag VARCHAR2 DEFAULT NULL,
44 X_Org_ID NUMBER DEFAULT NULL,
45 X_calling_sequence IN VARCHAR2
46 ) IS
47 CURSOR C IS SELECT rowid FROM JL_BR_AP_CONSOLID_INVOICES
48 WHERE consolidated_invoice_id = X_Consolidated_Invoice_Id;
49 current_calling_sequence VARCHAR2(2000);
50 debug_info VARCHAR2(100);
51
52 BEGIN
53 -- Update the calling sequence
54 --
55 current_calling_sequence := 'JL_BR_AP_CONSOLID_INVOICES_PKG.INSERT_ROW<-' ||
56 X_calling_sequence;
57
58 debug_info := 'Insert into JL_BR_AP_CONSOLID_INVOICES';
59 INSERT INTO JL_BR_AP_CONSOLID_INVOICES(
60 consolidated_invoice_id,
61 vendor_id,
62 invoice_num,
63 set_of_books_id,
64 invoice_currency_code,
65 invoice_amount,
66 vendor_site_id,
67 invoice_date,
68 description,
69 terms_id,
70 terms_date,
71 cancelled_date,
72 cancelled_by,
73 cancelled_amount,
74 amount_applicable_to_discount,
75 attribute_category,
76 attribute1,
77 attribute2,
78 attribute3,
79 attribute4,
80 attribute5,
81 attribute6,
82 attribute7,
83 attribute8,
84 attribute9,
85 attribute10,
86 attribute11,
87 attribute12,
88 attribute13,
89 attribute14,
90 attribute15,
91 last_update_date,
92 last_updated_by,
93 creation_date,
94 created_by,
95 last_update_login,
96 pay_group_lookup_code,
97 pay_group_flag,
98 org_id
99 ) VALUES (
100 X_Consolidated_Invoice_Id,
101 X_Vendor_Id,
102 X_Invoice_Num,
103 X_Set_Of_Books_Id,
104 X_Invoice_Currency_Code,
105 X_Invoice_Amount,
106 X_Vendor_Site_Id,
107 X_Invoice_Date,
108 X_Description,
109 X_Terms_Id,
110 X_Terms_Date,
111 X_Cancelled_Date,
112 X_Cancelled_By,
113 X_Cancelled_Amount,
114 X_Amt_Applicable_To_Discount,
115 X_Attribute_Category,
116 X_Attribute1,
117 X_Attribute2,
118 X_Attribute3,
119 X_Attribute4,
120 X_Attribute5,
121 X_Attribute6,
122 X_Attribute7,
123 X_Attribute8,
124 X_Attribute9,
125 X_Attribute10,
126 X_Attribute11,
127 X_Attribute12,
128 X_Attribute13,
129 X_Attribute14,
130 X_Attribute15,
131 X_Last_Update_Date,
132 X_Last_Updated_By,
133 X_Creation_Date,
134 X_Created_By,
135 X_Last_Update_Login,
136 X_Pay_Group_Lookup_Code,
137 X_Pay_Group_Flag,
138 X_Org_ID
139 );
140
141 debug_info := 'Open cursor C';
142 OPEN C;
143 debug_info := 'Fetch cursor C';
144 FETCH C INTO X_Rowid;
145 if (C%NOTFOUND) then
146 debug_info := 'Close cursor C - DATA NOTFOUND';
147 CLOSE C;
148 Raise NO_DATA_FOUND;
149 end if;
150 debug_info := 'Close cursor C';
151 CLOSE C;
152
153 EXCEPTION
154 WHEN OTHERS THEN
155 IF (SQLCODE <> -20001) THEN
156 FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
157 FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
158 FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
159 FND_MESSAGE.SET_TOKEN('PARAMETERS','CONSOLIDATED_INVOICE_ID = ' ||
160 X_Consolidated_Invoice_Id);
161 FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
162 END IF;
163 APP_EXCEPTION.RAISE_EXCEPTION;
164
165 END Insert_Row;
166
167 PROCEDURE Lock_Row(X_Rowid VARCHAR2,
168
169 X_Consolidated_Invoice_Id NUMBER,
170 X_Vendor_Id NUMBER,
171 X_Invoice_Num VARCHAR2,
172 X_Set_Of_Books_Id NUMBER,
173 X_Invoice_Currency_Code VARCHAR2,
174 X_Invoice_Amount NUMBER DEFAULT NULL,
175 X_Vendor_Site_Id NUMBER DEFAULT NULL,
176 X_Invoice_Date DATE DEFAULT NULL,
177 X_Description VARCHAR2 DEFAULT NULL,
178 X_Terms_Id NUMBER DEFAULT NULL,
179 X_Terms_Date DATE DEFAULT NULL,
180 X_Cancelled_Date DATE DEFAULT NULL,
181 X_Cancelled_By NUMBER DEFAULT NULL,
182 X_Cancelled_Amount NUMBER DEFAULT NULL,
183 X_Amt_Applicable_To_Discount NUMBER DEFAULT NULL,
184 X_Attribute_Category VARCHAR2 DEFAULT NULL,
185 X_Attribute1 VARCHAR2 DEFAULT NULL,
186 X_Attribute2 VARCHAR2 DEFAULT NULL,
187 X_Attribute3 VARCHAR2 DEFAULT NULL,
188 X_Attribute4 VARCHAR2 DEFAULT NULL,
189 X_Attribute5 VARCHAR2 DEFAULT NULL,
190 X_Attribute6 VARCHAR2 DEFAULT NULL,
191 X_Attribute7 VARCHAR2 DEFAULT NULL,
192 X_Attribute8 VARCHAR2 DEFAULT NULL,
193 X_Attribute9 VARCHAR2 DEFAULT NULL,
194 X_Attribute10 VARCHAR2 DEFAULT NULL,
195 X_Attribute11 VARCHAR2 DEFAULT NULL,
196 X_Attribute12 VARCHAR2 DEFAULT NULL,
197 X_Attribute13 VARCHAR2 DEFAULT NULL,
198 X_Attribute14 VARCHAR2 DEFAULT NULL,
199 X_Attribute15 VARCHAR2 DEFAULT NULL,
200 X_Last_Update_Date DATE,
201 X_Last_Updated_By NUMBER,
202 X_Creation_Date DATE DEFAULT NULL,
203 X_Created_By NUMBER DEFAULT NULL,
204 X_Last_Update_Login NUMBER DEFAULT NULL,
205 X_Pay_Group_Lookup_Code VARCHAR2 DEFAULT NULL,
206 X_Pay_Group_Flag VARCHAR2 DEFAULT NULL,
207 X_calling_sequence IN VARCHAR2
208 ) IS
209 CURSOR C IS
210 SELECT *
211 FROM JL_BR_AP_CONSOLID_INVOICES
212 WHERE rowid = X_Rowid
213 FOR UPDATE of Consolidated_Invoice_Id NOWAIT;
214 Recinfo C%ROWTYPE;
215
216 current_calling_sequence VARCHAR2(2000);
217 debug_info VARCHAR2(100);
218
219 BEGIN
220 -- Update the calling sequence
221 --
222 current_calling_sequence := 'JL_BR_AP_CONSOLID_INVOICES_PKG.LOCK_ROW<-' ||
223 X_calling_sequence;
224 debug_info := 'Open cursor C';
225 OPEN C;
226 debug_info := 'Fetch cursor C';
227 FETCH C INTO Recinfo;
228 if (C%NOTFOUND) then
229 debug_info := 'Close cursor C - DATA NOTFOUND';
230 CLOSE C;
231 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
232 APP_EXCEPTION.Raise_Exception;
233 end if;
234 debug_info := 'Close cursor C';
235 CLOSE C;
236 if (
237 (Recinfo.consolidated_invoice_id = X_Consolidated_Invoice_Id)
238 AND (Recinfo.vendor_id = X_Vendor_Id)
239 AND (Recinfo.invoice_num = X_Invoice_Num)
240 AND (Recinfo.set_of_books_id = X_Set_Of_Books_Id)
241 AND (Recinfo.invoice_currency_code = X_Invoice_Currency_Code)
242 AND ( (Recinfo.invoice_amount = X_Invoice_Amount)
243 OR ( (Recinfo.invoice_amount IS NULL)
244 AND (X_Invoice_Amount IS NULL)))
245 AND ( (Recinfo.vendor_site_id = X_Vendor_Site_Id)
246 OR ( (Recinfo.vendor_site_id IS NULL)
247 AND (X_Vendor_Site_Id IS NULL)))
248 AND ( (Recinfo.invoice_date = X_Invoice_Date)
249 OR ( (Recinfo.invoice_date IS NULL)
250 AND (X_Invoice_Date IS NULL)))
251 AND ( (Recinfo.description = X_Description)
252 OR ( (Recinfo.description IS NULL)
253 AND (X_Description IS NULL)))
254 AND ( (Recinfo.terms_id = X_Terms_Id)
255 OR ( (Recinfo.terms_id IS NULL)
256 AND (X_Terms_Id IS NULL)))
257 AND ( (Recinfo.terms_date = X_Terms_Date)
258 OR ( (Recinfo.terms_date IS NULL)
259 AND (X_Terms_Date IS NULL)))
260 AND ( (Recinfo.cancelled_date = X_Cancelled_Date)
261 OR ( (Recinfo.cancelled_date IS NULL)
262 AND (X_Cancelled_Date IS NULL)))
263 AND ( (Recinfo.cancelled_by = X_Cancelled_By)
264 OR ( (Recinfo.cancelled_by IS NULL)
265 AND (X_Cancelled_By IS NULL)))
266 AND ( (Recinfo.cancelled_amount = X_Cancelled_Amount)
267 OR ( (Recinfo.cancelled_amount IS NULL)
268 AND (X_Cancelled_Amount IS NULL)))
269 AND ( (Recinfo.amount_applicable_to_discount = X_Amt_Applicable_To_Discount)
270 OR ( (Recinfo.amount_applicable_to_discount IS NULL)
271 AND (X_Amt_Applicable_To_Discount IS NULL)))
272 AND ( (Recinfo.attribute_category = X_Attribute_Category)
273 OR ( (Recinfo.attribute_category IS NULL)
274 AND (X_Attribute_Category IS NULL)))
275 AND ( (Recinfo.attribute1 = X_Attribute1)
276 OR ( (Recinfo.attribute1 IS NULL)
277 AND (X_Attribute1 IS NULL)))
278 AND ( (Recinfo.attribute2 = X_Attribute2)
279 OR ( (Recinfo.attribute2 IS NULL)
280 AND (X_Attribute2 IS NULL)))
281 AND ( (Recinfo.attribute3 = X_Attribute3)
282 OR ( (Recinfo.attribute3 IS NULL)
283 AND (X_Attribute3 IS NULL)))
284 AND ( (Recinfo.attribute4 = X_Attribute4)
285 OR ( (Recinfo.attribute4 IS NULL)
286 AND (X_Attribute4 IS NULL)))
287 AND ( (Recinfo.attribute5 = X_Attribute5)
288 OR ( (Recinfo.attribute5 IS NULL)
289 AND (X_Attribute5 IS NULL)))
290 AND ( (Recinfo.attribute6 = X_Attribute6)
291 OR ( (Recinfo.attribute6 IS NULL)
292 AND (X_Attribute6 IS NULL)))
293 AND ( (Recinfo.attribute7 = X_Attribute7)
294 OR ( (Recinfo.attribute7 IS NULL)
295 AND (X_Attribute7 IS NULL)))
296 AND ( (Recinfo.attribute8 = X_Attribute8)
297 OR ( (Recinfo.attribute8 IS NULL)
298 AND (X_Attribute8 IS NULL)))
299 AND ( (Recinfo.attribute9 = X_Attribute9)
300 OR ( (Recinfo.attribute9 IS NULL)
301 AND (X_Attribute9 IS NULL)))
302 AND ( (Recinfo.attribute10 = X_Attribute10)
303 OR ( (Recinfo.attribute10 IS NULL)
304 AND (X_Attribute10 IS NULL)))
305 AND ( (Recinfo.attribute11 = X_Attribute11)
306 OR ( (Recinfo.attribute11 IS NULL)
307 AND (X_Attribute11 IS NULL)))
308 AND ( (Recinfo.attribute12 = X_Attribute12)
309 OR ( (Recinfo.attribute12 IS NULL)
310 AND (X_Attribute12 IS NULL)))
311 AND ( (Recinfo.attribute13 = X_Attribute13)
312 OR ( (Recinfo.attribute13 IS NULL)
313 AND (X_Attribute13 IS NULL)))
314 AND ( (Recinfo.attribute14 = X_Attribute14)
315 OR ( (Recinfo.attribute14 IS NULL)
316 AND (X_Attribute14 IS NULL)))
317 AND ( (Recinfo.attribute15 = X_Attribute15)
318 OR ( (Recinfo.attribute15 IS NULL)
319 AND (X_Attribute15 IS NULL)))
320 AND ( (Recinfo.creation_date = X_Creation_Date)
321 OR ( (Recinfo.creation_date IS NULL)
322 AND (X_Creation_Date IS NULL)))
323 AND ( (Recinfo.created_by = X_Created_By)
324 OR ( (Recinfo.created_by IS NULL)
325 AND (X_Created_By IS NULL)))
326 AND ( (Recinfo.pay_group_lookup_code = X_Pay_Group_Lookup_Code)
327 OR ( (Recinfo.pay_group_lookup_code IS NULL)
328 AND (X_Pay_Group_Lookup_Code IS NULL)))
329 AND ( (Recinfo.pay_group_flag = X_Pay_Group_Flag)
330 OR ( (Recinfo.pay_group_flag IS NULL)
331 AND (X_Pay_Group_Flag IS NULL)))
332 ) then
333 return;
334 else
335 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
336 APP_EXCEPTION.Raise_Exception;
337 end if;
338
339 EXCEPTION
340 WHEN OTHERS THEN
341 IF (SQLCODE <> -20001) THEN
342 IF (SQLCODE = -54) THEN
343 FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
344 ELSE
345 FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
346 FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
347 FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
348 FND_MESSAGE.SET_TOKEN('PARAMETERS','CONSOLIDATED_INVOICE_ID = ' ||
349 X_Consolidated_Invoice_Id);
350 FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
351 END IF;
352 END IF;
353 APP_EXCEPTION.RAISE_EXCEPTION;
354
355 END Lock_Row;
356
357
358 PROCEDURE Update_Row(X_Rowid VARCHAR2,
359
360 X_Consolidated_Invoice_Id NUMBER,
361 X_Vendor_Id NUMBER,
365 X_Invoice_Amount NUMBER DEFAULT NULL,
362 X_Invoice_Num VARCHAR2,
363 X_Set_Of_Books_Id NUMBER,
364 X_Invoice_Currency_Code VARCHAR2,
366 X_Vendor_Site_Id NUMBER DEFAULT NULL,
367 X_Invoice_Date DATE DEFAULT NULL,
368 X_Description VARCHAR2 DEFAULT NULL,
369 X_Terms_Id NUMBER DEFAULT NULL,
370 X_Terms_Date DATE DEFAULT NULL,
371 X_Cancelled_Date DATE DEFAULT NULL,
372 X_Cancelled_By NUMBER DEFAULT NULL,
373 X_Cancelled_Amount NUMBER DEFAULT NULL,
374 X_Amt_Applicable_To_Discount NUMBER DEFAULT NULL,
375 X_Attribute_Category VARCHAR2 DEFAULT NULL,
376 X_Attribute1 VARCHAR2 DEFAULT NULL,
377 X_Attribute2 VARCHAR2 DEFAULT NULL,
378 X_Attribute3 VARCHAR2 DEFAULT NULL,
379 X_Attribute4 VARCHAR2 DEFAULT NULL,
380 X_Attribute5 VARCHAR2 DEFAULT NULL,
381 X_Attribute6 VARCHAR2 DEFAULT NULL,
382 X_Attribute7 VARCHAR2 DEFAULT NULL,
383 X_Attribute8 VARCHAR2 DEFAULT NULL,
384 X_Attribute9 VARCHAR2 DEFAULT NULL,
385 X_Attribute10 VARCHAR2 DEFAULT NULL,
386 X_Attribute11 VARCHAR2 DEFAULT NULL,
387 X_Attribute12 VARCHAR2 DEFAULT NULL,
388 X_Attribute13 VARCHAR2 DEFAULT NULL,
389 X_Attribute14 VARCHAR2 DEFAULT NULL,
390 X_Attribute15 VARCHAR2 DEFAULT NULL,
391 X_Last_Update_Date DATE,
392 X_Last_Updated_By NUMBER,
393 X_Creation_Date DATE DEFAULT NULL,
394 X_Created_By NUMBER DEFAULT NULL,
395 X_Last_Update_Login NUMBER DEFAULT NULL,
396 X_Pay_Group_Lookup_Code VARCHAR2 DEFAULT NULL,
397 X_Pay_Group_Flag VARCHAR2 DEFAULT NULL,
398 X_calling_sequence IN VARCHAR2
399
400 ) IS
401 current_calling_sequence VARCHAR2(2000);
402 debug_info VARCHAR2(100);
403 BEGIN
404 -- Update the calling sequence
405 --
406 current_calling_sequence := 'JL_BR_AP_CONSOLID_INVOICES_PKG.UPDATE_ROW<-' ||
407 X_calling_sequence;
408 debug_info := 'Update JL_BR_AP_CONSOLID_INVOICES';
409 UPDATE JL_BR_AP_CONSOLID_INVOICES
410 SET
411 consolidated_invoice_id = X_Consolidated_Invoice_Id,
412 vendor_id = X_Vendor_Id,
413 invoice_num = X_Invoice_Num,
414 set_of_books_id = X_Set_Of_Books_Id,
415 invoice_currency_code = X_Invoice_Currency_Code,
416 invoice_amount = X_Invoice_Amount,
417 vendor_site_id = X_Vendor_Site_Id,
418 invoice_date = X_Invoice_Date,
419 description = X_Description,
420 terms_id = X_Terms_Id,
421 terms_date = X_Terms_Date,
422 cancelled_date = X_Cancelled_Date,
423 cancelled_by = X_Cancelled_By,
424 cancelled_amount = X_Cancelled_Amount,
425 amount_applicable_to_discount = X_Amt_Applicable_To_Discount,
426 attribute_category = X_Attribute_Category,
427 attribute1 = X_Attribute1,
428 attribute2 = X_Attribute2,
429 attribute3 = X_Attribute3,
430 attribute4 = X_Attribute4,
431 attribute5 = X_Attribute5,
432 attribute6 = X_Attribute6,
433 attribute7 = X_Attribute7,
434 attribute8 = X_Attribute8,
435 attribute9 = X_Attribute9,
436 attribute10 = X_Attribute10,
437 attribute11 = X_Attribute11,
438 attribute12 = X_Attribute12,
439 attribute13 = X_Attribute13,
440 attribute14 = X_Attribute14,
441 attribute15 = X_Attribute15,
442 last_update_date = X_Last_Update_Date,
443 last_updated_by = X_Last_Updated_By,
444 creation_date = X_Creation_Date,
445 created_by = X_Created_by,
446 last_update_login = X_Last_Update_Login,
447 pay_group_lookup_code = X_Pay_Group_Lookup_Code,
448 pay_group_flag = X_Pay_Group_Flag
449
450 WHERE rowid = X_Rowid;
451
452 if (SQL%NOTFOUND) then
453 Raise NO_DATA_FOUND;
454 end if;
455
456 EXCEPTION
457 WHEN OTHERS THEN
458 IF (SQLCODE <> -20001) THEN
459 FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
460 FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
461 FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
462 FND_MESSAGE.SET_TOKEN('PARAMETERS','CONSOLIDATED_INVOICE_ID = ' ||
463 X_Consolidated_Invoice_Id);
464 FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
465 END IF;
466 APP_EXCEPTION.RAISE_EXCEPTION;
467
468 END Update_Row;
469
470 PROCEDURE Delete_Row(X_Rowid VARCHAR2,
471 X_calling_sequence IN VARCHAR2
472 ) IS
473 current_calling_sequence VARCHAR2(2000);
474 debug_info VARCHAR2(100);
475 BEGIN
476 -- Update the calling sequence
477 --
478 current_calling_sequence := 'JL_BR_AP_CONSOLID_INVOICES_PKG.DELETE_ROW<-' ||
479 X_calling_sequence;
480 debug_info := 'Delete from JL_BR_AP_CONSOLID_INVOICES';
481 DELETE FROM JL_BR_AP_CONSOLID_INVOICES
482 WHERE rowid = X_Rowid;
483
484 if (SQL%NOTFOUND) then
485 Raise NO_DATA_FOUND;
486 end if;
487
488 EXCEPTION
489 WHEN OTHERS THEN
490 IF (SQLCODE <> -20001) THEN
491 FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
492 FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
493 FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
494 FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid);
495 FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
496 END IF;
497 APP_EXCEPTION.RAISE_EXCEPTION;
498
499 END Delete_Row;
500
501
502 END JL_BR_AP_CONSOLID_INVOICES_PKG;