61: SAVEPOINT get_available_qty_sp;
62: l_progress := '10';
63:
64: -- Initialize message list to clear any existing messages
65: fnd_msg_pub.initialize;
66: l_progress := '20';
67:
68: -- Initialize the output variables
69: x_return_status := fnd_api.g_ret_sts_success;
188: EXCEPTION
189: WHEN FND_API.G_EXC_ERROR THEN
190: ROLLBACK TO get_available_qty_sp;
191: x_return_status := fnd_api.g_ret_sts_error;
192: fnd_msg_pub.count_and_get(p_count => x_msg_count,
193: p_data => x_msg_data);
194: IF (l_debug = 1) THEN
195: print_debug('Exiting get_available_qty - Execution error: ' ||
196: l_progress ||' '|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'));
198:
199: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
200: ROLLBACK TO get_available_qty_sp;
201: x_return_status := fnd_api.g_ret_sts_unexp_error;
202: fnd_msg_pub.count_and_get(p_count => x_msg_count,
203: p_data => x_msg_data);
204: IF (l_debug = 1) THEN
205: print_debug('Exiting get_available_qty - Unexpected error: ' ||
206: l_progress ||' '|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'));
208:
209: WHEN OTHERS THEN
210: ROLLBACK TO get_available_qty_sp;
211: x_return_status := fnd_api.g_ret_sts_unexp_error;
212: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
213: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
214: END IF;
215: fnd_msg_pub.count_and_get(p_count => x_msg_count,
216: p_data => x_msg_data);
209: WHEN OTHERS THEN
210: ROLLBACK TO get_available_qty_sp;
211: x_return_status := fnd_api.g_ret_sts_unexp_error;
212: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
213: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
214: END IF;
215: fnd_msg_pub.count_and_get(p_count => x_msg_count,
216: p_data => x_msg_data);
217: IF (l_debug = 1) THEN
211: x_return_status := fnd_api.g_ret_sts_unexp_error;
212: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
213: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
214: END IF;
215: fnd_msg_pub.count_and_get(p_count => x_msg_count,
216: p_data => x_msg_data);
217: IF (l_debug = 1) THEN
218: print_debug('Exiting get_available_qty - Others exception: ' ||
219: l_progress ||' '|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'));
264: SAVEPOINT get_available_lot_qty_sp;
265: l_progress := '10';
266:
267: -- Initialize message list to clear any existing messages
268: fnd_msg_pub.initialize;
269: l_progress := '20';
270:
271: -- Initialize the output variables
272: x_return_status := fnd_api.g_ret_sts_success;
359: EXCEPTION
360: WHEN FND_API.G_EXC_ERROR THEN
361: ROLLBACK TO get_available_lot_qty_sp;
362: x_return_status := fnd_api.g_ret_sts_error;
363: fnd_msg_pub.count_and_get(p_count => x_msg_count,
364: p_data => x_msg_data);
365: IF (l_debug = 1) THEN
366: print_debug('Exiting get_available_lot_qty - Execution error: ' ||
367: l_progress ||' '|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'));
369:
370: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
371: ROLLBACK TO get_available_lot_qty_sp;
372: x_return_status := fnd_api.g_ret_sts_unexp_error;
373: fnd_msg_pub.count_and_get(p_count => x_msg_count,
374: p_data => x_msg_data);
375: IF (l_debug = 1) THEN
376: print_debug('Exiting get_available_lot_qty - Unexpected error: ' ||
377: l_progress ||' '|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'));
379:
380: WHEN OTHERS THEN
381: ROLLBACK TO get_available_lot_qty_sp;
382: x_return_status := fnd_api.g_ret_sts_unexp_error;
383: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
384: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
385: END IF;
386: fnd_msg_pub.count_and_get(p_count => x_msg_count,
387: p_data => x_msg_data);
380: WHEN OTHERS THEN
381: ROLLBACK TO get_available_lot_qty_sp;
382: x_return_status := fnd_api.g_ret_sts_unexp_error;
383: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
384: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
385: END IF;
386: fnd_msg_pub.count_and_get(p_count => x_msg_count,
387: p_data => x_msg_data);
388: IF (l_debug = 1) THEN
382: x_return_status := fnd_api.g_ret_sts_unexp_error;
383: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
384: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
385: END IF;
386: fnd_msg_pub.count_and_get(p_count => x_msg_count,
387: p_data => x_msg_data);
388: IF (l_debug = 1) THEN
389: print_debug('Exiting get_available_lot_qty - Others exception: ' ||
390: l_progress ||' '|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'));
657: SAVEPOINT pre_process_load_sp;
658: l_progress := '10';
659:
660: -- Initialize message list to clear any existing messages
661: fnd_msg_pub.initialize;
662: l_progress := '15';
663:
664: -- Set the return status to success
665: x_return_status := fnd_api.g_ret_sts_success;
678: IF (l_debug = 1) THEN
679: print_debug('No WLC records found for given item/rev/lot/LPN combination!');
680: END IF;
681: FND_MESSAGE.SET_NAME('INV', 'INV_NO_RESULT_FOUND');
682: FND_MSG_PUB.ADD;
683: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
684: WHEN RECORD_LOCKED THEN
685: IF (l_debug = 1) THEN
686: print_debug('WLC record not available because it is locked by someone');
685: IF (l_debug = 1) THEN
686: print_debug('WLC record not available because it is locked by someone');
687: END IF;
688: FND_MESSAGE.SET_NAME('WMS', 'WMS_LPN_UNAVAIL');
689: FND_MSG_PUB.ADD;
690: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
691: END;
692: IF (l_debug = 1) THEN
693: print_debug('Successfully locked the WLC records');
805: END IF;
806: l_progress := '100';
807: -- RCV and WIP LPN's should have valid move order lines
808: FND_MESSAGE.SET_NAME('WMS', 'WMS_MO_NOT_FOUND');
809: FND_MSG_PUB.ADD;
810: RAISE FND_API.G_EXC_ERROR;
811: ELSE
812: -- LPN is an Inventory LPN with no move order lines.
813: -- This should be the non-ATF flow since if an ATF plan was in
907: IF (l_debug = 1) THEN
908: print_debug('Failure returned from create_mo API');
909: END IF;
910: FND_MESSAGE.SET_NAME('WMS', 'WMS_TD_MO_ERROR');
911: FND_MSG_PUB.ADD;
912: RAISE FND_API.G_EXC_ERROR;
913: END IF;
914: l_progress := '150';
915:
1110: l_progress := '230';
1111: -- This case should technically not occur if the move order
1112: -- lines are maintained properly.
1113: FND_MESSAGE.SET_NAME('WMS', 'WMS_MO_NOT_FOUND');
1114: FND_MSG_PUB.ADD;
1115: RAISE FND_API.G_EXC_ERROR;
1116: ELSE
1117: -- Full quantity has been matched
1118: IF (l_debug = 1) THEN
1218: print_debug('Could not find a matching move order line: ' ||
1219: l_current_serial);
1220: END IF;
1221: FND_MESSAGE.SET_NAME('WMS', 'WMS_MO_NOT_FOUND');
1222: FND_MSG_PUB.ADD;
1223: RAISE FND_API.G_EXC_ERROR;
1224: END IF;
1225:
1226: -- Close the MOL serial cursor
1242: IF (l_debug = 1) THEN
1243: print_debug('Unable to fully match the load quantity');
1244: END IF;
1245: FND_MESSAGE.SET_NAME ('WMS', 'WMS_CONT_INVALID_X_QTY');
1246: FND_MSG_PUB.ADD;
1247: RAISE FND_API.G_EXC_ERROR;
1248: ELSE
1249: -- Full quantity has been matched
1250: IF (l_debug = 1) THEN
1271: IF (l_debug = 1) THEN
1272: print_debug('Unable to fully match the load quantity');
1273: END IF;
1274: FND_MESSAGE.SET_NAME ('WMS', 'WMS_CONT_INVALID_X_QTY');
1275: FND_MSG_PUB.ADD;
1276: RAISE FND_API.G_EXC_ERROR;
1277: ELSE
1278: -- Full quantity has been matched
1279: IF (l_debug = 1) THEN
1388: print_debug('Could not find a matching move order line: ' ||
1389: l_marked_serials_tb(i).serial_number);
1390: END IF;
1391: FND_MESSAGE.SET_NAME('WMS', 'WMS_MO_NOT_FOUND');
1392: FND_MSG_PUB.ADD;
1393: RAISE FND_API.G_EXC_ERROR;
1394: END IF;
1395: END LOOP;--FOR i IN 1..l_marked_serials_tb.COUNT LOOP
1396: END IF;--END IF (l_lpn_context = 2) THEN
1465: IF (l_debug = 1) THEN
1466: print_debug('Matching MOL does not have enough valid qty for load');
1467: END IF;
1468: FND_MESSAGE.SET_NAME('WMS', 'WMS_MO_NOT_FOUND');
1469: FND_MSG_PUB.ADD;
1470: RAISE FND_API.G_EXC_ERROR;
1471: ELSE
1472: -- The matched MOL has enough valid quantity to load all the serials
1473: IF (l_debug = 1) THEN
2043: EXCEPTION
2044: WHEN FND_API.G_EXC_ERROR THEN
2045: ROLLBACK TO pre_process_load_sp;
2046: x_return_status := fnd_api.g_ret_sts_error;
2047: fnd_msg_pub.count_and_get(p_count => x_msg_count,
2048: p_data => x_msg_data);
2049: IF (l_debug = 1) THEN
2050: print_debug('Exiting pre_process_load - Execution error: ' ||
2051: l_progress ||' '|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'));
2053:
2054: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2055: ROLLBACK TO pre_process_load_sp;
2056: x_return_status := fnd_api.g_ret_sts_unexp_error;
2057: fnd_msg_pub.count_and_get(p_count => x_msg_count,
2058: p_data => x_msg_data);
2059: IF (l_debug = 1) THEN
2060: print_debug('Exiting pre_process_load - Unexpected error: ' ||
2061: l_progress ||' '|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'));
2063:
2064: WHEN OTHERS THEN
2065: ROLLBACK TO pre_process_load_sp;
2066: x_return_status := fnd_api.g_ret_sts_unexp_error;
2067: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2068: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2069: END IF;
2070: fnd_msg_pub.count_and_get(p_count => x_msg_count,
2071: p_data => x_msg_data);
2064: WHEN OTHERS THEN
2065: ROLLBACK TO pre_process_load_sp;
2066: x_return_status := fnd_api.g_ret_sts_unexp_error;
2067: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2068: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2069: END IF;
2070: fnd_msg_pub.count_and_get(p_count => x_msg_count,
2071: p_data => x_msg_data);
2072: IF (l_debug = 1) THEN
2066: x_return_status := fnd_api.g_ret_sts_unexp_error;
2067: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2068: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2069: END IF;
2070: fnd_msg_pub.count_and_get(p_count => x_msg_count,
2071: p_data => x_msg_data);
2072: IF (l_debug = 1) THEN
2073: print_debug('Exiting pre_process_load - Others exception: ' ||
2074: l_progress ||' '|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'));
2249: SAVEPOINT process_load_sp;
2250: l_progress := '10';
2251:
2252: -- Initialize message list to clear any existing messages
2253: fnd_msg_pub.initialize;
2254: l_progress := '15';
2255:
2256: -- Set the return status to success
2257: x_return_status := fnd_api.g_ret_sts_success;
2508: IF (l_debug = 1) THEN
2509: print_debug('No valid suggestions created for MOL!');
2510: END IF;
2511: FND_MESSAGE.SET_NAME ('WMS', 'WMS_ALLOCATE_FAIL');
2512: FND_MSG_PUB.ADD;
2513: RAISE FND_API.G_EXC_ERROR;
2514: END IF;
2515:
2516: -- Increment the table index value
2620: IF (l_debug = 1) THEN
2621: print_debug('Error calling the Receiving TM!');
2622: END IF;
2623: FND_MESSAGE.SET_NAME ('WMS', 'WMS_TD_TXNMGR_ERROR');
2624: FND_MSG_PUB.ADD;
2625: RAISE FND_API.G_EXC_ERROR;
2626: ELSE
2627: IF (l_debug = 1) THEN
2628: print_debug('Successfully called the Receiving TM');
2658: IF (l_debug = 1) THEN
2659: print_debug('Error calling the Inventory TM');
2660: END IF;
2661: FND_MESSAGE.SET_NAME ('WMS', 'WMS_TD_TXNMGR_ERROR');
2662: FND_MSG_PUB.ADD;
2663: RAISE FND_API.G_EXC_ERROR;
2664: ELSE
2665: IF (l_debug = 1) THEN
2666: print_debug('Success calling the Inventory TM');
2809: IF (l_debug = 1) THEN
2810: print_debug('Failure returned from PackUnpack_Container API');
2811: END IF;
2812: FND_MESSAGE.SET_NAME ('WMS', 'WMS_CONT_INVALID_SER');
2813: FND_MSG_PUB.ADD;
2814: RAISE FND_API.G_EXC_ERROR;
2815: END IF;
2816: l_progress := '220';
2817:
2850: IF (l_debug = 1) THEN
2851: print_debug('Could not successfully parse the serials!');
2852: END IF;
2853: FND_MESSAGE.SET_NAME ('WMS', 'WMS_CONT_INVALID_SER');
2854: FND_MSG_PUB.ADD;
2855: RAISE FND_API.G_EXC_ERROR;
2856: END IF;
2857: IF (l_debug = 1) THEN
2858: print_debug('Successfully parsed the serials');
3044: IF (l_debug = 1) THEN
3045: print_debug('No Move order lines were stored in the table!');
3046: END IF;
3047: FND_MESSAGE.SET_NAME('WMS', 'WMS_MO_NOT_FOUND');
3048: FND_MSG_PUB.ADD;
3049: RAISE FND_API.G_EXC_ERROR;
3050: END IF;
3051:
3052: --Bug 4566517. Get the sub/loc of into lpn
3285: print_debug('Exception while rolling back to save point');
3286: END IF;
3287: END;
3288: x_return_status := fnd_api.g_ret_sts_error;
3289: fnd_msg_pub.count_and_get(p_count => x_msg_count,
3290: p_data => x_msg_data);
3291: IF (l_debug = 1) THEN
3292: print_debug('Exiting process_load - Execution error: ' ||
3293: l_progress ||' '|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'));
3332: print_debug('Exception while rolling back to save point');
3333: END IF;
3334: END;
3335: x_return_status := fnd_api.g_ret_sts_unexp_error;
3336: fnd_msg_pub.count_and_get(p_count => x_msg_count,
3337: p_data => x_msg_data);
3338: IF (l_debug = 1) THEN
3339: print_debug('Exiting process_load - Unexpected error: ' ||
3340: l_progress ||' '|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'));
3379: print_debug('Exception while rolling back to save point');
3380: END IF;
3381: END;
3382: x_return_status := fnd_api.g_ret_sts_unexp_error;
3383: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3384: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
3385: END IF;
3386: fnd_msg_pub.count_and_get(p_count => x_msg_count,
3387: p_data => x_msg_data);
3380: END IF;
3381: END;
3382: x_return_status := fnd_api.g_ret_sts_unexp_error;
3383: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3384: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
3385: END IF;
3386: fnd_msg_pub.count_and_get(p_count => x_msg_count,
3387: p_data => x_msg_data);
3388: IF (l_debug = 1) THEN
3382: x_return_status := fnd_api.g_ret_sts_unexp_error;
3383: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3384: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
3385: END IF;
3386: fnd_msg_pub.count_and_get(p_count => x_msg_count,
3387: p_data => x_msg_data);
3388: IF (l_debug = 1) THEN
3389: print_debug('Exiting process_load - Others exception: ' ||
3390: l_progress ||' '|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'));
3417: SAVEPOINT unmark_serials_sp;
3418: l_progress := '10';
3419:
3420: -- Initialize message list to clear any existing messages
3421: fnd_msg_pub.initialize;
3422: l_progress := '20';
3423:
3424: -- Set the return status to success
3425: x_return_status := fnd_api.g_ret_sts_success;
3469: EXCEPTION
3470: WHEN FND_API.G_EXC_ERROR THEN
3471: ROLLBACK TO unmark_serials_sp;
3472: x_return_status := fnd_api.g_ret_sts_error;
3473: fnd_msg_pub.count_and_get(p_count => x_msg_count,
3474: p_data => x_msg_data);
3475: IF (l_debug = 1) THEN
3476: print_debug('Exiting unmark_serials - Execution error: ' ||
3477: l_progress ||' '|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'));
3479:
3480: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3481: ROLLBACK TO unmark_serials_sp;
3482: x_return_status := fnd_api.g_ret_sts_unexp_error;
3483: fnd_msg_pub.count_and_get(p_count => x_msg_count,
3484: p_data => x_msg_data);
3485: IF (l_debug = 1) THEN
3486: print_debug('Exiting unmark_serials - Unexpected error: ' ||
3487: l_progress ||' '|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'));
3489:
3490: WHEN OTHERS THEN
3491: ROLLBACK TO unmark_serials_sp;
3492: x_return_status := fnd_api.g_ret_sts_unexp_error;
3493: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3494: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
3495: END IF;
3496: fnd_msg_pub.count_and_get(p_count => x_msg_count,
3497: p_data => x_msg_data);
3490: WHEN OTHERS THEN
3491: ROLLBACK TO unmark_serials_sp;
3492: x_return_status := fnd_api.g_ret_sts_unexp_error;
3493: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3494: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
3495: END IF;
3496: fnd_msg_pub.count_and_get(p_count => x_msg_count,
3497: p_data => x_msg_data);
3498: IF (l_debug = 1) THEN
3492: x_return_status := fnd_api.g_ret_sts_unexp_error;
3493: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3494: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
3495: END IF;
3496: fnd_msg_pub.count_and_get(p_count => x_msg_count,
3497: p_data => x_msg_data);
3498: IF (l_debug = 1) THEN
3499: print_debug('Exiting unmark_serials - Others exception: ' ||
3500: l_progress ||' '|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'));
3548: SAVEPOINT cleanup_ATF_sp;
3549: l_progress := '10';
3550:
3551: -- Initialize message list to clear any existing messages
3552: fnd_msg_pub.initialize;
3553: l_progress := '20';
3554:
3555: -- Set the return status to success
3556: x_return_status := fnd_api.g_ret_sts_success;
3666: EXCEPTION
3667: WHEN FND_API.G_EXC_ERROR THEN
3668: ROLLBACK TO cleanup_ATF_sp;
3669: x_return_status := fnd_api.g_ret_sts_error;
3670: fnd_msg_pub.count_and_get(p_count => x_msg_count,
3671: p_data => x_msg_data);
3672: IF (l_debug = 1) THEN
3673: print_debug('Exiting cleanup_ATF - Execution error: ' ||
3674: l_progress ||' '|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'));
3676:
3677: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3678: ROLLBACK TO cleanup_ATF_sp;
3679: x_return_status := fnd_api.g_ret_sts_unexp_error;
3680: fnd_msg_pub.count_and_get(p_count => x_msg_count,
3681: p_data => x_msg_data);
3682: IF (l_debug = 1) THEN
3683: print_debug('Exiting cleanup_ATF - Unexpected error: ' ||
3684: l_progress ||' '|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'));
3686:
3687: WHEN OTHERS THEN
3688: ROLLBACK TO cleanup_ATF_sp;
3689: x_return_status := fnd_api.g_ret_sts_unexp_error;
3690: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3691: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
3692: END IF;
3693: fnd_msg_pub.count_and_get(p_count => x_msg_count,
3694: p_data => x_msg_data);
3687: WHEN OTHERS THEN
3688: ROLLBACK TO cleanup_ATF_sp;
3689: x_return_status := fnd_api.g_ret_sts_unexp_error;
3690: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3691: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
3692: END IF;
3693: fnd_msg_pub.count_and_get(p_count => x_msg_count,
3694: p_data => x_msg_data);
3695: IF (l_debug = 1) THEN
3689: x_return_status := fnd_api.g_ret_sts_unexp_error;
3690: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3691: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
3692: END IF;
3693: fnd_msg_pub.count_and_get(p_count => x_msg_count,
3694: p_data => x_msg_data);
3695: IF (l_debug = 1) THEN
3696: print_debug('Exiting cleanup_ATF - Others exception: ' ||
3697: l_progress ||' '|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'));