175:
176: -- Initialize message list if p_init_msg_list is set to TRUE.
177:
178: IF FND_API.to_Boolean( p_init_msg_list ) THEN
179: FND_MSG_PUB.initialize;
180: END IF;
181:
182: l_progress := '040';
183:
264: PO_DEBUG.debug_var(l_log_head,l_progress,'l_online_report_id',l_online_report_id);
265: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
266: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
267: END IF;
268: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
269: FND_MSG_PUB.add_exc_msg(G_PKG_NAME,l_api_name,SQLERRM);
270: END IF;
271: ROLLBACK TO CHECK_RESERVE_SP;
272: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
265: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
266: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
267: END IF;
268: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
269: FND_MSG_PUB.add_exc_msg(G_PKG_NAME,l_api_name,SQLERRM);
270: END IF;
271: ROLLBACK TO CHECK_RESERVE_SP;
272: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
273: EXCEPTION
423:
424: -- Initialize message list if p_init_msg_list is set to TRUE.
425:
426: IF FND_API.to_Boolean( p_init_msg_list ) THEN
427: FND_MSG_PUB.initialize;
428: END IF;
429:
430: l_progress := '040';
431:
511: PO_DEBUG.debug_var(l_log_head,l_progress,'l_online_report_id',l_online_report_id);
512: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
513: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
514: END IF;
515: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
516: FND_MSG_PUB.add_exc_msg(G_PKG_NAME,l_api_name,SQLERRM);
517: END IF;
518: ROLLBACK TO CHECK_ADJUST_SP;
519: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
512: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
513: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
514: END IF;
515: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
516: FND_MSG_PUB.add_exc_msg(G_PKG_NAME,l_api_name,SQLERRM);
517: END IF;
518: ROLLBACK TO CHECK_ADJUST_SP;
519: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
520: EXCEPTION
698:
699: -- Initialize message list if p_init_msg_list is set to TRUE.
700:
701: IF FND_API.to_Boolean( p_init_msg_list ) THEN
702: FND_MSG_PUB.initialize;
703: END IF;
704:
705: l_progress := '040';
706:
819: PO_DEBUG.debug_var(l_log_head,l_progress,'l_online_report_id',l_online_report_id);
820: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
821: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
822: END IF;
823: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
824: FND_MSG_PUB.add_exc_msg(G_PKG_NAME,l_api_name,SQLERRM);
825: END IF;
826: ROLLBACK TO DO_RESERVE_SP;
827: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
820: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
821: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
822: END IF;
823: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
824: FND_MSG_PUB.add_exc_msg(G_PKG_NAME,l_api_name,SQLERRM);
825: END IF;
826: ROLLBACK TO DO_RESERVE_SP;
827: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
828: EXCEPTION
1011:
1012: -- Initialize message list if p_init_msg_list is set to TRUE.
1013:
1014: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1015: FND_MSG_PUB.initialize;
1016: END IF;
1017:
1018: l_progress := '040';
1019:
1131: PO_DEBUG.debug_var(l_log_head,l_progress,'l_online_report_id',l_online_report_id);
1132: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1133: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1134: END IF;
1135: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1136: FND_MSG_PUB.add_exc_msg(G_PKG_NAME,l_api_name,SQLERRM);
1137: END IF;
1138: ROLLBACK TO DO_UNRESERVE_SP;
1139: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
1132: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1133: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1134: END IF;
1135: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1136: FND_MSG_PUB.add_exc_msg(G_PKG_NAME,l_api_name,SQLERRM);
1137: END IF;
1138: ROLLBACK TO DO_UNRESERVE_SP;
1139: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
1140: EXCEPTION
1382: IF g_debug_stmt THEN
1383: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1384: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1385: END IF;
1386: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1387: FND_MSG_PUB.add_exc_msg(G_PKG_NAME,l_api_name,SQLERRM);
1388: END IF;
1389: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
1390: EXCEPTION
1383: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1384: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1385: END IF;
1386: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1387: FND_MSG_PUB.add_exc_msg(G_PKG_NAME,l_api_name,SQLERRM);
1388: END IF;
1389: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
1390: EXCEPTION
1391: WHEN OTHERS THEN
1517:
1518: -- Initialize message list if p_init_msg_list is set to TRUE.
1519:
1520: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1521: FND_MSG_PUB.initialize;
1522: END IF;
1523:
1524: l_progress := '040';
1525:
1607: PO_DEBUG.debug_var(l_log_head,l_progress,'l_online_report_id',l_online_report_id);
1608: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1609: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1610: END IF;
1611: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1612: FND_MSG_PUB.add_exc_msg(G_PKG_NAME,l_api_name,SQLERRM);
1613: END IF;
1614: ROLLBACK TO DO_RETURN_SP;
1615: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
1608: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1609: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1610: END IF;
1611: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1612: FND_MSG_PUB.add_exc_msg(G_PKG_NAME,l_api_name,SQLERRM);
1613: END IF;
1614: ROLLBACK TO DO_RETURN_SP;
1615: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
1616: EXCEPTION
1749:
1750: -- Initialize message list if p_init_msg_list is set to TRUE.
1751:
1752: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1753: FND_MSG_PUB.initialize;
1754: END IF;
1755:
1756: l_progress := '040';
1757:
1840: PO_DEBUG.debug_var(l_log_head,l_progress,'l_online_report_id',l_online_report_id);
1841: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1842: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1843: END IF;
1844: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1845: FND_MSG_PUB.add_exc_msg(G_PKG_NAME,l_api_name,SQLERRM);
1846: END IF;
1847: ROLLBACK TO DO_REJECT_SP;
1848: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
1841: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
1842: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
1843: END IF;
1844: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1845: FND_MSG_PUB.add_exc_msg(G_PKG_NAME,l_api_name,SQLERRM);
1846: END IF;
1847: ROLLBACK TO DO_REJECT_SP;
1848: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
1849: EXCEPTION
1985:
1986: -- Initialize message list if p_init_msg_list is set to TRUE.
1987:
1988: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1989: FND_MSG_PUB.initialize;
1990: END IF;
1991:
1992: l_progress := '040';
1993:
2076: PO_DEBUG.debug_var(l_log_head,l_progress,'l_online_report_id',l_online_report_id);
2077: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2078: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
2079: END IF;
2080: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2081: FND_MSG_PUB.add_exc_msg(G_PKG_NAME,l_api_name,SQLERRM);
2082: END IF;
2083: ROLLBACK TO DO_CANCEL_SP;
2084: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
2077: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2078: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
2079: END IF;
2080: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2081: FND_MSG_PUB.add_exc_msg(G_PKG_NAME,l_api_name,SQLERRM);
2082: END IF;
2083: ROLLBACK TO DO_CANCEL_SP;
2084: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
2085: EXCEPTION
2213:
2214: -- Initialize message list if p_init_msg_list is set to TRUE.
2215:
2216: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2217: FND_MSG_PUB.initialize;
2218: END IF;
2219:
2220: l_progress := '040';
2221:
2303: PO_DEBUG.debug_var(l_log_head,l_progress,'l_online_report_id',l_online_report_id);
2304: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2305: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
2306: END IF;
2307: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2308: FND_MSG_PUB.add_exc_msg(G_PKG_NAME,l_api_name,SQLERRM);
2309: END IF;
2310: ROLLBACK TO DO_ADJUST_SP;
2311: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
2304: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2305: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
2306: END IF;
2307: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2308: FND_MSG_PUB.add_exc_msg(G_PKG_NAME,l_api_name,SQLERRM);
2309: END IF;
2310: ROLLBACK TO DO_ADJUST_SP;
2311: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
2312: EXCEPTION
2440:
2441: -- Initialize message list if p_init_msg_list is set to TRUE.
2442:
2443: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2444: FND_MSG_PUB.initialize;
2445: END IF;
2446:
2447: l_progress := '040';
2448:
2530: PO_DEBUG.debug_var(l_log_head,l_progress,'l_online_report_id',l_online_report_id);
2531: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2532: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
2533: END IF;
2534: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2535: FND_MSG_PUB.add_exc_msg(G_PKG_NAME,l_api_name,SQLERRM);
2536: END IF;
2537: ROLLBACK TO DO_FINAL_CLOSE_SP;
2538: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
2531: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2532: PO_DEBUG.debug_var(l_log_head,l_progress,'x_po_return_code',x_po_return_code);
2533: END IF;
2534: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2535: FND_MSG_PUB.add_exc_msg(G_PKG_NAME,l_api_name,SQLERRM);
2536: END IF;
2537: ROLLBACK TO DO_FINAL_CLOSE_SP;
2538: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
2539: EXCEPTION
2680:
2681: -- Initialize message list if p_init_msg_list is set to TRUE.
2682:
2683: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2684: FND_MSG_PUB.initialize;
2685: END IF;
2686:
2687: l_progress := '040';
2688:
2752: IF g_debug_stmt THEN
2753: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2754: PO_DEBUG.debug_var(l_log_head,l_progress,'x_packet_id',x_packet_id);
2755: END IF;
2756: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2757: FND_MSG_PUB.add_exc_msg(G_PKG_NAME,l_api_name,SQLERRM);
2758: END IF;
2759: ROLLBACK TO REINSTATE_PO_ENCUMBRANCE_SP;
2760: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
2753: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2754: PO_DEBUG.debug_var(l_log_head,l_progress,'x_packet_id',x_packet_id);
2755: END IF;
2756: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2757: FND_MSG_PUB.add_exc_msg(G_PKG_NAME,l_api_name,SQLERRM);
2758: END IF;
2759: ROLLBACK TO REINSTATE_PO_ENCUMBRANCE_SP;
2760: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
2761: EXCEPTION
2850:
2851: -- Initialize message list if p_init_msg_list is set to TRUE.
2852:
2853: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2854: FND_MSG_PUB.initialize;
2855: END IF;
2856:
2857: l_progress := '040';
2858:
2912: IF g_debug_stmt THEN
2913: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2914: PO_DEBUG.debug_var(l_log_head,l_progress,'x_agreement_encumbered_tbl',x_agreement_encumbered_tbl);
2915: END IF;
2916: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2917: FND_MSG_PUB.add_exc_msg(G_PKG_NAME,l_api_name,SQLERRM);
2918: END IF;
2919: ROLLBACK TO IS_AGREEMENT_ENCUMBERED_SP;
2920: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
2913: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
2914: PO_DEBUG.debug_var(l_log_head,l_progress,'x_agreement_encumbered_tbl',x_agreement_encumbered_tbl);
2915: END IF;
2916: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2917: FND_MSG_PUB.add_exc_msg(G_PKG_NAME,l_api_name,SQLERRM);
2918: END IF;
2919: ROLLBACK TO IS_AGREEMENT_ENCUMBERED_SP;
2920: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
2921: EXCEPTION
3026:
3027: -- Initialize message list if p_init_msg_list is set to TRUE.
3028:
3029: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3030: FND_MSG_PUB.initialize;
3031: END IF;
3032:
3033: l_progress := '040';
3034:
3091: IF g_debug_stmt THEN
3092: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
3093: PO_DEBUG.debug_var(l_log_head,l_progress,'x_reservable_flag',x_reservable_flag);
3094: END IF;
3095: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3096: FND_MSG_PUB.add_exc_msg(G_PKG_NAME,l_api_name,SQLERRM);
3097: END IF;
3098: ROLLBACK TO IS_RESERVABLE_SP;
3099: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
3092: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
3093: PO_DEBUG.debug_var(l_log_head,l_progress,'x_reservable_flag',x_reservable_flag);
3094: END IF;
3095: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3096: FND_MSG_PUB.add_exc_msg(G_PKG_NAME,l_api_name,SQLERRM);
3097: END IF;
3098: ROLLBACK TO IS_RESERVABLE_SP;
3099: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
3100: EXCEPTION
3205:
3206: -- Initialize message list if p_init_msg_list is set to TRUE.
3207:
3208: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3209: FND_MSG_PUB.initialize;
3210: END IF;
3211:
3212: l_progress := '040';
3213:
3270: IF g_debug_stmt THEN
3271: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
3272: PO_DEBUG.debug_var(l_log_head,l_progress,'x_unreservable_flag',x_unreservable_flag);
3273: END IF;
3274: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3275: FND_MSG_PUB.add_exc_msg(G_PKG_NAME,l_api_name,SQLERRM);
3276: END IF;
3277: ROLLBACK TO IS_UNRESERVABLE_SP;
3278: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
3271: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
3272: PO_DEBUG.debug_var(l_log_head,l_progress,'x_unreservable_flag',x_unreservable_flag);
3273: END IF;
3274: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3275: FND_MSG_PUB.add_exc_msg(G_PKG_NAME,l_api_name,SQLERRM);
3276: END IF;
3277: ROLLBACK TO IS_UNRESERVABLE_SP;
3278: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
3279: EXCEPTION
3409: l_progress := '030';
3410:
3411: -- Initialize message list if p_init_msg_list is set to TRUE.
3412: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3413: FND_MSG_PUB.initialize;
3414: END IF;
3415:
3416: l_progress := '040';
3417:
3478: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3479: IF g_debug_stmt THEN
3480: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
3481: END IF;
3482: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3483: FND_MSG_PUB.add_exc_msg(G_PKG_NAME,l_api_name,SQLERRM);
3484: END IF;
3485: ROLLBACK TO POPULATE_ENCUMBRANCE_GT_GRP;
3486: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
3479: IF g_debug_stmt THEN
3480: PO_DEBUG.debug_var(l_log_head,l_progress,'x_return_status',x_return_status);
3481: END IF;
3482: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3483: FND_MSG_PUB.add_exc_msg(G_PKG_NAME,l_api_name,SQLERRM);
3484: END IF;
3485: ROLLBACK TO POPULATE_ENCUMBRANCE_GT_GRP;
3486: PO_DEBUG.debug_unexp(l_log_head,l_progress,'OTHERS End');
3487: EXCEPTION