eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.AMS_LIST_PURGE_PVT dependencies on AMS_UTILITY_PVT

Line 120: AMS_Utility_PVT.Debug_Message(l_api_name||': Start ');

116: l_list_header_id NUMBER;
117: BEGIN
118: IF (AMS_DEBUG_HIGH_ON) THEN
119:
120: AMS_Utility_PVT.Debug_Message(l_api_name||': Start ');
121: END IF;
122:
123: x_return_status := FND_API.G_RET_STS_SUCCESS;
124:

Line 144: AMS_Utility_PVT.Debug_Message(l_api_name||': l_import_list_header_id:' || l_import_list_header_id );

140: -- Create the Savepoint
141: SAVEPOINT Purge_Expired_List_Header;
142:
143: IF (AMS_DEBUG_HIGH_ON) THEN
144: AMS_Utility_PVT.Debug_Message(l_api_name||': l_import_list_header_id:' || l_import_list_header_id );
145: AMS_Utility_PVT.Debug_Message(l_api_name||': l_expiry_date:' || l_expiry_date );
146: AMS_Utility_PVT.Debug_Message(l_api_name||': l_usage:' || l_usage );
147: AMS_Utility_PVT.Debug_Message(l_api_name||': l_force_purge_flag:' || l_force_purge_flag );
148: END IF;

Line 145: AMS_Utility_PVT.Debug_Message(l_api_name||': l_expiry_date:' || l_expiry_date );

141: SAVEPOINT Purge_Expired_List_Header;
142:
143: IF (AMS_DEBUG_HIGH_ON) THEN
144: AMS_Utility_PVT.Debug_Message(l_api_name||': l_import_list_header_id:' || l_import_list_header_id );
145: AMS_Utility_PVT.Debug_Message(l_api_name||': l_expiry_date:' || l_expiry_date );
146: AMS_Utility_PVT.Debug_Message(l_api_name||': l_usage:' || l_usage );
147: AMS_Utility_PVT.Debug_Message(l_api_name||': l_force_purge_flag:' || l_force_purge_flag );
148: END IF;
149:

Line 146: AMS_Utility_PVT.Debug_Message(l_api_name||': l_usage:' || l_usage );

142:
143: IF (AMS_DEBUG_HIGH_ON) THEN
144: AMS_Utility_PVT.Debug_Message(l_api_name||': l_import_list_header_id:' || l_import_list_header_id );
145: AMS_Utility_PVT.Debug_Message(l_api_name||': l_expiry_date:' || l_expiry_date );
146: AMS_Utility_PVT.Debug_Message(l_api_name||': l_usage:' || l_usage );
147: AMS_Utility_PVT.Debug_Message(l_api_name||': l_force_purge_flag:' || l_force_purge_flag );
148: END IF;
149:
150: IF l_expiry_date IS NULL AND l_usage IS NULL THEN

Line 147: AMS_Utility_PVT.Debug_Message(l_api_name||': l_force_purge_flag:' || l_force_purge_flag );

143: IF (AMS_DEBUG_HIGH_ON) THEN
144: AMS_Utility_PVT.Debug_Message(l_api_name||': l_import_list_header_id:' || l_import_list_header_id );
145: AMS_Utility_PVT.Debug_Message(l_api_name||': l_expiry_date:' || l_expiry_date );
146: AMS_Utility_PVT.Debug_Message(l_api_name||': l_usage:' || l_usage );
147: AMS_Utility_PVT.Debug_Message(l_api_name||': l_force_purge_flag:' || l_force_purge_flag );
148: END IF;
149:
150: IF l_expiry_date IS NULL AND l_usage IS NULL THEN
151: -- get grace period from profile, default 60

Line 157: AMS_Utility_PVT.Debug_Message(l_api_name||': ' || l_import_list_header_id ||' grace period passed');

153:
154: IF l_grace_date <= SYSDATE THEN
155:
156: IF (AMS_DEBUG_HIGH_ON) THEN
157: AMS_Utility_PVT.Debug_Message(l_api_name||': ' || l_import_list_header_id ||' grace period passed');
158: END IF;
159:
160: -- Delete from ams_imp_source_lines
161: IF (AMS_DEBUG_HIGH_ON) THEN

Line 162: AMS_Utility_PVT.debug_message(l_api_name||': delete from source lines');

158: END IF;
159:
160: -- Delete from ams_imp_source_lines
161: IF (AMS_DEBUG_HIGH_ON) THEN
162: AMS_Utility_PVT.debug_message(l_api_name||': delete from source lines');
163: END IF;
164: DELETE FROM ams_imp_source_lines
165: WHERE import_list_header_id = l_import_list_header_id;
166: END IF;

Line 170: AMS_Utility_PVT.Debug_Message(l_api_name||': ' || l_import_list_header_id ||' expiry date passed');

166: END IF;
167: ELSIF l_expiry_date IS NOT NULL AND l_expiry_date <= SYSDATE THEN
168:
169: IF (AMS_DEBUG_HIGH_ON) THEN
170: AMS_Utility_PVT.Debug_Message(l_api_name||': ' || l_import_list_header_id ||' expiry date passed');
171: END IF;
172:
173: -- Add logic to delete from ams_list_entries
174: IF (AMS_DEBUG_HIGH_ON) THEN

Line 175: AMS_Utility_PVT.debug_message(l_api_name||': delete from list entries');

171: END IF;
172:
173: -- Add logic to delete from ams_list_entries
174: IF (AMS_DEBUG_HIGH_ON) THEN
175: AMS_Utility_PVT.debug_message(l_api_name||': delete from list entries');
176: END IF;
177:
178: IF l_force_purge_flag <> 'Y' THEN
179: IF (AMS_DEBUG_HIGH_ON) THEN

Line 180: AMS_Utility_PVT.debug_message(l_api_name||': non force purge');

176: END IF;
177:
178: IF l_force_purge_flag <> 'Y' THEN
179: IF (AMS_DEBUG_HIGH_ON) THEN
180: AMS_Utility_PVT.debug_message(l_api_name||': non force purge');
181: END IF;
182: OPEN c_list_entries_rec_int(l_import_list_header_id);
183: LOOP
184: FETCH c_list_entries_rec_int INTO l_list_header_id;

Line 219: AMS_Utility_PVT.debug_message(l_api_name||': force purge expiry passed');

215: l_list_size_tbl(l_list_iterator) := l_list_size_temp;
216: END IF;
217: ELSE -- force purge
218: IF (AMS_DEBUG_HIGH_ON) THEN
219: AMS_Utility_PVT.debug_message(l_api_name||': force purge expiry passed');
220: AMS_Utility_PVT.debug_message(l_api_name||': force purge expiry passed l_import_list_header_id:'||l_import_list_header_id);
221: END IF;
222:
223: OPEN c_list_entries_force_rec_int(l_import_list_header_id);

Line 220: AMS_Utility_PVT.debug_message(l_api_name||': force purge expiry passed l_import_list_header_id:'||l_import_list_header_id);

216: END IF;
217: ELSE -- force purge
218: IF (AMS_DEBUG_HIGH_ON) THEN
219: AMS_Utility_PVT.debug_message(l_api_name||': force purge expiry passed');
220: AMS_Utility_PVT.debug_message(l_api_name||': force purge expiry passed l_import_list_header_id:'||l_import_list_header_id);
221: END IF;
222:
223: OPEN c_list_entries_force_rec_int(l_import_list_header_id);
224: LOOP

Line 261: AMS_Utility_PVT.debug_message(l_api_name||': bulk update on entries');

257: END IF;
258: END IF;
259:
260: IF (AMS_DEBUG_HIGH_ON) THEN
261: AMS_Utility_PVT.debug_message(l_api_name||': bulk update on entries');
262: AMS_Utility_PVT.debug_message('After collecting the data l_entry_iterator:'||l_entry_iterator);
263: AMS_Utility_PVT.debug_message('After collecting the data l_list_entry_tbl.count:'||l_list_entry_tbl.count);
264: END IF;
265:

Line 262: AMS_Utility_PVT.debug_message('After collecting the data l_entry_iterator:'||l_entry_iterator);

258: END IF;
259:
260: IF (AMS_DEBUG_HIGH_ON) THEN
261: AMS_Utility_PVT.debug_message(l_api_name||': bulk update on entries');
262: AMS_Utility_PVT.debug_message('After collecting the data l_entry_iterator:'||l_entry_iterator);
263: AMS_Utility_PVT.debug_message('After collecting the data l_list_entry_tbl.count:'||l_list_entry_tbl.count);
264: END IF;
265:
266: -- Do bulk delete from list entries

Line 263: AMS_Utility_PVT.debug_message('After collecting the data l_list_entry_tbl.count:'||l_list_entry_tbl.count);

259:
260: IF (AMS_DEBUG_HIGH_ON) THEN
261: AMS_Utility_PVT.debug_message(l_api_name||': bulk update on entries');
262: AMS_Utility_PVT.debug_message('After collecting the data l_entry_iterator:'||l_entry_iterator);
263: AMS_Utility_PVT.debug_message('After collecting the data l_list_entry_tbl.count:'||l_list_entry_tbl.count);
264: END IF;
265:
266: -- Do bulk delete from list entries
267: IF l_entry_iterator > 1 THEN

Line 274: AMS_Utility_PVT.debug_message(l_api_name||': bulk update on list headers');

270: WHERE list_entry_id = l_list_entry_tbl(i);
271: END IF;
272:
273: IF (AMS_DEBUG_HIGH_ON) THEN
274: AMS_Utility_PVT.debug_message(l_api_name||': bulk update on list headers');
275: END IF;
276: -- Do bulk update on list headers
277: --IF l_list_iterator > 0 THEN
278: IF l_list_size_tbl.last > 0

Line 296: AMS_Utility_PVT.debug_message(l_api_name||': force purge expiry_date passed count of ams_imp_source_lines_deleted:'||sql%rowcount);

292: -- Delete from ams_imp_source_lines
293: DELETE FROM ams_imp_source_lines
294: WHERE import_list_header_id = l_import_list_header_id;
295: IF (AMS_DEBUG_HIGH_ON) THEN
296: AMS_Utility_PVT.debug_message(l_api_name||': force purge expiry_date passed count of ams_imp_source_lines_deleted:'||sql%rowcount);
297: END IF;
298:
299: -- Delete from ams_party_sources
300: DELETE FROM ams_party_sources

Line 304: AMS_Utility_PVT.debug_message(l_api_name||': force purge expiry_date passed count of ams_party_sources:'||sql%rowcount);

300: DELETE FROM ams_party_sources
301: WHERE import_list_header_id = l_import_list_header_id
302: AND used_flag = 'N';
303: IF (AMS_DEBUG_HIGH_ON) THEN
304: AMS_Utility_PVT.debug_message(l_api_name||': force purge expiry_date passed count of ams_party_sources:'||sql%rowcount);
305: END IF;
306: ELSIF l_usage IS NOT NULL THEN -- check usage
307: IF (AMS_DEBUG_HIGH_ON) THEN
308: AMS_Utility_PVT.Debug_Message(l_api_name||': ' || l_import_list_header_id || ': usage is ' ||l_usage);

Line 308: AMS_Utility_PVT.Debug_Message(l_api_name||': ' || l_import_list_header_id || ': usage is ' ||l_usage);

304: AMS_Utility_PVT.debug_message(l_api_name||': force purge expiry_date passed count of ams_party_sources:'||sql%rowcount);
305: END IF;
306: ELSIF l_usage IS NOT NULL THEN -- check usage
307: IF (AMS_DEBUG_HIGH_ON) THEN
308: AMS_Utility_PVT.Debug_Message(l_api_name||': ' || l_import_list_header_id || ': usage is ' ||l_usage);
309: END IF;
310:
311: -- Add logic to delete from ams_list_entries
312: IF (AMS_DEBUG_HIGH_ON) THEN

Line 313: AMS_Utility_PVT.debug_message(l_api_name||': delete from list entries:' || l_force_purge_flag);

309: END IF;
310:
311: -- Add logic to delete from ams_list_entries
312: IF (AMS_DEBUG_HIGH_ON) THEN
313: AMS_Utility_PVT.debug_message(l_api_name||': delete from list entries:' || l_force_purge_flag);
314: END IF;
315:
316: IF l_force_purge_flag <> 'Y' THEN
317: IF (AMS_DEBUG_HIGH_ON) THEN

Line 318: AMS_Utility_PVT.debug_message(l_api_name||': non force purge');

314: END IF;
315:
316: IF l_force_purge_flag <> 'Y' THEN
317: IF (AMS_DEBUG_HIGH_ON) THEN
318: AMS_Utility_PVT.debug_message(l_api_name||': non force purge');
319: END IF;
320:
321: OPEN c_list_entries_rec_int(l_import_list_header_id);
322: LOOP

Line 356: AMS_Utility_PVT.debug_message(l_api_name||': usage is not null and force purge');

352: l_list_size_tbl(l_list_iterator) := l_list_size_temp;
353: END IF;
354: ELSE
355: IF (AMS_DEBUG_HIGH_ON) THEN
356: AMS_Utility_PVT.debug_message(l_api_name||': usage is not null and force purge');
357: END IF;
358:
359: OPEN c_list_entries_force_rec_int(l_import_list_header_id);
360: LOOP

Line 396: AMS_Utility_PVT.debug_message(l_api_name||': l_entry_iterator=' || l_entry_iterator);

392: END IF;
393: END IF;
394: -- Do bulk delete from list entries
395: IF (AMS_DEBUG_HIGH_ON) THEN
396: AMS_Utility_PVT.debug_message(l_api_name||': l_entry_iterator=' || l_entry_iterator);
397: AMS_Utility_PVT.debug_message(l_api_name||': l_list_entry_tbl.count=' || l_list_entry_tbl.count);
398: END IF;
399: IF l_entry_iterator > 1 THEN
400: FORALL i IN l_list_entry_tbl.first .. l_list_entry_tbl.last

Line 397: AMS_Utility_PVT.debug_message(l_api_name||': l_list_entry_tbl.count=' || l_list_entry_tbl.count);

393: END IF;
394: -- Do bulk delete from list entries
395: IF (AMS_DEBUG_HIGH_ON) THEN
396: AMS_Utility_PVT.debug_message(l_api_name||': l_entry_iterator=' || l_entry_iterator);
397: AMS_Utility_PVT.debug_message(l_api_name||': l_list_entry_tbl.count=' || l_list_entry_tbl.count);
398: END IF;
399: IF l_entry_iterator > 1 THEN
400: FORALL i IN l_list_entry_tbl.first .. l_list_entry_tbl.last
401: DELETE FROM ams_list_entries

Line 405: AMS_Utility_PVT.debug_message(l_api_name||': bulk update on list headers');

401: DELETE FROM ams_list_entries
402: WHERE list_entry_id = l_list_entry_tbl(i);
403: END IF;
404: IF (AMS_DEBUG_HIGH_ON) THEN
405: AMS_Utility_PVT.debug_message(l_api_name||': bulk update on list headers');
406: END IF;
407: IF (AMS_DEBUG_HIGH_ON) THEN
408: AMS_Utility_PVT.debug_message(l_api_name||': l_list_size_tbl.last=' || l_list_size_tbl.last);
409: END IF;

Line 408: AMS_Utility_PVT.debug_message(l_api_name||': l_list_size_tbl.last=' || l_list_size_tbl.last);

404: IF (AMS_DEBUG_HIGH_ON) THEN
405: AMS_Utility_PVT.debug_message(l_api_name||': bulk update on list headers');
406: END IF;
407: IF (AMS_DEBUG_HIGH_ON) THEN
408: AMS_Utility_PVT.debug_message(l_api_name||': l_list_size_tbl.last=' || l_list_size_tbl.last);
409: END IF;
410: -- Do bulk update on list headers
411: --IF l_list_iterator > 0 THEN
412: IF l_list_size_tbl.last > 0 THEN

Line 426: AMS_Utility_PVT.debug_message(l_api_name||': deleting from ams_party_sources');

422: WHERE list_header_id = l_list_header_tbl(i);
423: END IF;
424:
425: IF (AMS_DEBUG_HIGH_ON) THEN
426: AMS_Utility_PVT.debug_message(l_api_name||': deleting from ams_party_sources');
427: END IF;
428:
429: -- Delete from ams_party_sources
430: DELETE FROM ams_party_sources

Line 438: AMS_Utility_PVT.debug_message(l_api_name||': count of ams_party_sources deleted:'||sql%rowcount);

434: FROM ams_imp_source_lines
435: WHERE import_list_header_id = l_import_list_header_id
436: AND current_usage >= l_usage);
437: IF (AMS_DEBUG_HIGH_ON) THEN
438: AMS_Utility_PVT.debug_message(l_api_name||': count of ams_party_sources deleted:'||sql%rowcount);
439: END IF;
440:
441: IF (AMS_DEBUG_HIGH_ON) THEN
442: AMS_Utility_PVT.debug_message(l_api_name||': deleting from ams_imp_source_lines');

Line 442: AMS_Utility_PVT.debug_message(l_api_name||': deleting from ams_imp_source_lines');

438: AMS_Utility_PVT.debug_message(l_api_name||': count of ams_party_sources deleted:'||sql%rowcount);
439: END IF;
440:
441: IF (AMS_DEBUG_HIGH_ON) THEN
442: AMS_Utility_PVT.debug_message(l_api_name||': deleting from ams_imp_source_lines');
443: END IF;
444:
445: -- Delete from ams_imp_source_lines
446: DELETE FROM ams_imp_source_lines

Line 453: AMS_Utility_PVT.debug_message(l_api_name||': count of ams_imp_source_lines deleted:'||sql%rowcount);

449:
450: END IF;
451:
452: IF (AMS_DEBUG_HIGH_ON) THEN
453: AMS_Utility_PVT.debug_message(l_api_name||': count of ams_imp_source_lines deleted:'||sql%rowcount);
454: AMS_Utility_PVT.Debug_Message(l_api_name||': Delete log and update ams_imp_list_headers_all ');
455: END IF;
456:
457: OPEN C_get_usr_status(l_lookup_code);

Line 454: AMS_Utility_PVT.Debug_Message(l_api_name||': Delete log and update ams_imp_list_headers_all ');

450: END IF;
451:
452: IF (AMS_DEBUG_HIGH_ON) THEN
453: AMS_Utility_PVT.debug_message(l_api_name||': count of ams_imp_source_lines deleted:'||sql%rowcount);
454: AMS_Utility_PVT.Debug_Message(l_api_name||': Delete log and update ams_imp_list_headers_all ');
455: END IF;
456:
457: OPEN C_get_usr_status(l_lookup_code);
458: FETCH C_get_usr_status INTO l_status_id;

Line 479: AMS_Utility_PVT.Debug_Message(l_api_name||': l_upd_status_code=' || l_upd_status_code);

475: WHERE b.import_list_header_id = a.import_list_header_id)
476: RETURNING status_code INTO l_upd_status_code;
477:
478: IF (AMS_DEBUG_HIGH_ON) THEN
479: AMS_Utility_PVT.Debug_Message(l_api_name||': l_upd_status_code=' || l_upd_status_code);
480: END IF;
481: IF l_upd_status_code = l_lookup_code
482: THEN
483: -- Delete from ams_act_logs

Line 488: AMS_Utility_PVT.debug_message(l_api_name||': count of ams_act_logs deleted:'||sql%rowcount);

484: DELETE FROM ams_act_logs
485: WHERE arc_act_log_used_by = l_arc_log_used_by
486: AND act_log_used_by_id = l_import_list_header_id;
487: IF (AMS_DEBUG_HIGH_ON) THEN
488: AMS_Utility_PVT.debug_message(l_api_name||': count of ams_act_logs deleted:'||sql%rowcount);
489: END IF;
490: END IF;
491:
492: COMMIT WORK; --commit after every import header purge

Line 510: AMS_Utility_PVT.Debug_Message(l_api_name||': Delete cancelld imp list headers ');

506: IF (AMS_DEBUG_HIGH_ON) THEN
507:
508:
509:
510: AMS_Utility_PVT.Debug_Message(l_api_name||': Delete cancelld imp list headers ');
511:
512: END IF;
513: DELETE FROM ams_imp_list_headers_all
514: WHERE status_code = 'CANCELLED';

Line 519: AMS_Utility_PVT.Debug_Message(l_api_name||': End ');

515:
516: -- If no errors, commit the work
517: COMMIT WORK;
518: IF (AMS_DEBUG_HIGH_ON) THEN
519: AMS_Utility_PVT.Debug_Message(l_api_name||': End ');
520: END IF;
521:
522: EXCEPTION
523:

Line 527: AMS_Utility_PVT.Debug_Message(l_api_name||' failed on ' ||l_import_list_header_id );

523:
524: WHEN OTHERS THEN
525: IF (AMS_DEBUG_HIGH_ON) THEN
526:
527: AMS_Utility_PVT.Debug_Message(l_api_name||' failed on ' ||l_import_list_header_id );
528: AMS_Utility_PVT.Debug_Message(l_api_name|| SQLERRM||'-'||SQLCODE);
529:
530: END IF;
531: IF (c_all_imp_list_rec%ISOPEN) THEN

Line 528: AMS_Utility_PVT.Debug_Message(l_api_name|| SQLERRM||'-'||SQLCODE);

524: WHEN OTHERS THEN
525: IF (AMS_DEBUG_HIGH_ON) THEN
526:
527: AMS_Utility_PVT.Debug_Message(l_api_name||' failed on ' ||l_import_list_header_id );
528: AMS_Utility_PVT.Debug_Message(l_api_name|| SQLERRM||'-'||SQLCODE);
529:
530: END IF;
531: IF (c_all_imp_list_rec%ISOPEN) THEN
532: CLOSE c_all_imp_list_rec;

Line 580: Ams_Utility_Pvt.Write_Conc_log ;

576: x_msg_count => l_msg_count,
577: x_msg_data => l_msg_data);
578:
579: -- Write_log ;
580: Ams_Utility_Pvt.Write_Conc_log ;
581: IF(l_return_status = FND_API.G_RET_STS_SUCCESS)THEN
582: retcode := 0;
583: ELSE
584: retcode := 1;

Line 648: AMS_Utility_PVT.Debug_Message(l_api_name||' Start ');

644:
645: BEGIN
646: IF (AMS_DEBUG_HIGH_ON) THEN
647:
648: AMS_Utility_PVT.Debug_Message(l_api_name||' Start ');
649: END IF;
650:
651: x_return_status := FND_API.G_RET_STS_SUCCESS;
652:

Line 694: AMS_Utility_PVT.Debug_Message(l_api_name||' Purge list header ID ' || l_list_header_id);

690: NVL(fnd_profile.VALUE('AMS_BUDGET_ADJ_GRACE_PERIOD'), 180); --should be defaulted to 180.
691: IF SYSDATE >= l_grace_date THEN
692: IF (AMS_DEBUG_HIGH_ON) THEN
693:
694: AMS_Utility_PVT.Debug_Message(l_api_name||' Purge list header ID ' || l_list_header_id);
695: END IF;
696: -- Delete from ams_list_entries
697: DELETE FROM ams_list_entries
698: WHERE list_header_id = l_list_header_id;

Line 760: AMS_Utility_PVT.Debug_Message(l_api_name||' End ');

756: IF (AMS_DEBUG_HIGH_ON) THEN
757:
758:
759:
760: AMS_Utility_PVT.Debug_Message(l_api_name||' End ');
761:
762: END IF;
763:
764: EXCEPTION

Line 812: Ams_Utility_Pvt.Write_Conc_log ;

808: x_msg_count => l_msg_count,
809: x_msg_data => l_msg_data);
810:
811: -- Write_log ;
812: Ams_Utility_Pvt.Write_Conc_log ;
813: IF(l_return_status = FND_API.G_RET_STS_SUCCESS)THEN
814: retcode := 0;
815: ELSE
816: retcode := 1;

Line 875: AMS_Utility_PVT.Debug_Message(l_full_name||': Start ');

871: IF (AMS_DEBUG_HIGH_ON) THEN
872:
873:
874:
875: AMS_Utility_PVT.Debug_Message(l_full_name||': Start ');
876:
877: END IF;
878:
879: IF FND_API.to_boolean(p_init_msg_list) THEN

Line 937: AMS_Utility_PVT.debug_message(l_full_name ||': end');

933: IF (AMS_DEBUG_HIGH_ON) THEN
934:
935:
936:
937: AMS_Utility_PVT.debug_message(l_full_name ||': end');
938:
939: END IF;
940:
941: EXCEPTION

Line 945: AMS_Utility_Pvt.Debug_Message('Error in increase usage '|| sqlerrm);

941: EXCEPTION
942: WHEN OTHERS THEN
943: IF (AMS_DEBUG_HIGH_ON) THEN
944:
945: AMS_Utility_Pvt.Debug_Message('Error in increase usage '|| sqlerrm);
946: END IF;
947:
948: IF(c_source_line_rec%ISOPEN)then
949: CLOSE c_source_line_rec;