98: * po_headers or po_releases with the new revision number and set
99: * authorization_status to "Requires Reapproval" and initiate
100: * Workflow if the document was already in Approved state.
101: * Returns:
102: * x_return_status - FND_API.G_RET_STS_SUCCESS if control action succeeds
103: * FND_API.G_RET_STS_ERROR if control action fails
104: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
105: */
106: --------------------------------------------------------------------------------
99: * authorization_status to "Requires Reapproval" and initiate
100: * Workflow if the document was already in Approved state.
101: * Returns:
102: * x_return_status - FND_API.G_RET_STS_SUCCESS if control action succeeds
103: * FND_API.G_RET_STS_ERROR if control action fails
104: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
105: */
106: --------------------------------------------------------------------------------
107: --Start of Comments
100: * Workflow if the document was already in Approved state.
101: * Returns:
102: * x_return_status - FND_API.G_RET_STS_SUCCESS if control action succeeds
103: * FND_API.G_RET_STS_ERROR if control action fails
104: * FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
105: */
106: --------------------------------------------------------------------------------
107: --Start of Comments
108: --Name: MassUpdate_Releases
153: --p_communicate_update
154: -- Communicate Price Updates to Supplier
155: --OUT:
156: --x_return_status
157: -- FND_API.G_RET_STS_SUCCESS if API succeeds
158: -- FND_API.G_RET_STS_ERROR if API fails
159: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
160: --Testing:
161: --
154: -- Communicate Price Updates to Supplier
155: --OUT:
156: --x_return_status
157: -- FND_API.G_RET_STS_SUCCESS if API succeeds
158: -- FND_API.G_RET_STS_ERROR if API fails
159: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
160: --Testing:
161: --
162: --End of Comments
155: --OUT:
156: --x_return_status
157: -- FND_API.G_RET_STS_SUCCESS if API succeeds
158: -- FND_API.G_RET_STS_ERROR if API fails
159: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
160: --Testing:
161: --
162: --End of Comments
163: --------------------------------------------------------------------------------
633:
634:
635: -- Standard call to check for call compatibility
636:
637: IF (NOT FND_API.Compatible_API_Call(l_api_version
638: ,p_api_version
639: ,l_api_name
640: ,G_PKG_NAME))
641: THEN
638: ,p_api_version
639: ,l_api_name
640: ,G_PKG_NAME))
641: THEN
642: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
643: END IF;
644:
645: -- Initialize API return status to success
646:
643: END IF;
644:
645: -- Initialize API return status to success
646:
647: x_return_status := FND_API.G_RET_STS_SUCCESS;
648:
649: IF g_debug_stmt then
650: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
651: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
1712:
1713: PO_DEBUG.put_line('End of Retroactive Pricing Program');
1714:
1715: EXCEPTION
1716: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1717: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1718: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1719: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
1720: l_module,SQLERRM(SQLCODE));
1713: PO_DEBUG.put_line('End of Retroactive Pricing Program');
1714:
1715: EXCEPTION
1716: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1717: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1718: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1719: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
1720: l_module,SQLERRM(SQLCODE));
1721: END IF;
1720: l_module,SQLERRM(SQLCODE));
1721: END IF;
1722: ROLLBACK;
1723: when l_tax_failure then
1724: x_return_status := FND_API.G_RET_STS_ERROR;
1725: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1726: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
1727: l_module,SQLERRM(SQLCODE));
1728: END IF;
1727: l_module,SQLERRM(SQLCODE));
1728: END IF;
1729: ROLLBACK;
1730: when no_data_found then
1731: x_return_status := FND_API.G_RET_STS_ERROR;
1732: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1733: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
1734: l_module,SQLERRM(SQLCODE));
1735: END IF;
1734: l_module,SQLERRM(SQLCODE));
1735: END IF;
1736: ROLLBACK;
1737: when others then
1738: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1739: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
1740: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
1741: l_module,SQLERRM(SQLCODE));
1742: END IF;
1973: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
1974: 'Callin Tax : Return Status ' ||l_return_status);
1975: END IF;
1976: END IF;
1977: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1978: RAISE l_tax_failure;
1979: END IF;
1980: --
1981: END LOOP;
2121: FND_LOG.string(FND_LOG.LEVEL_STATEMENT,l_module,
2122: 'Callin Tax : Return Status ' ||l_return_status);
2123: END IF;
2124: END IF;
2125: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2126: RAISE l_tax_failure;
2127: END IF;
2128: --
2129: END LOOP;
2615: * erroring out here but just logging it and then continue
2616: * trying to submit next document for approval.
2617: */
2618:
2619: If (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
2620: l_msg_buf := null;
2621: l_msg_buf := FND_MSG_PUB.Get(p_msg_index => 1,
2622: p_encoded => 'F');
2623: l_msg_buf := 'Std PO ' ||g_po_header_id_table(i)||
2626: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,
2627: l_module,l_msg_buf);
2628: END IF;
2629: end if;
2630: If ((x_return_status = FND_API.G_RET_STS_SUCCESS) and
2631: (x_sub_check_status = FND_API.G_RET_STS_ERROR)) THEN
2632:
2633: l_msg_buf := 'Std PO: ' ||g_po_header_id_table(i)||
2634: ' Online Report Id: '||x_online_report_id;
2627: l_module,l_msg_buf);
2628: END IF;
2629: end if;
2630: If ((x_return_status = FND_API.G_RET_STS_SUCCESS) and
2631: (x_sub_check_status = FND_API.G_RET_STS_ERROR)) THEN
2632:
2633: l_msg_buf := 'Std PO: ' ||g_po_header_id_table(i)||
2634: ' Online Report Id: '||x_online_report_id;
2635: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2639:
2640: end if;
2641: l_module := g_log_head||l_api_name||'.'||'010'||'.';
2642:
2643: If ((x_return_status = FND_API.G_RET_STS_SUCCESS) and
2644: (x_sub_check_status = FND_API.G_RET_STS_SUCCESS)) THEN
2645:
2646: PO_RETROACTIVE_PRICING_PVT.Retroactive_Launch_Approval
2647: ( p_doc_id => g_po_header_id_table(i),
2640: end if;
2641: l_module := g_log_head||l_api_name||'.'||'010'||'.';
2642:
2643: If ((x_return_status = FND_API.G_RET_STS_SUCCESS) and
2644: (x_sub_check_status = FND_API.G_RET_STS_SUCCESS)) THEN
2645:
2646: PO_RETROACTIVE_PRICING_PVT.Retroactive_Launch_Approval
2647: ( p_doc_id => g_po_header_id_table(i),
2648: p_doc_type => 'PO',
2738: * are really exception that happened but we are not
2739: * erroring out here but just logging it and then continue
2740: * trying to submit next document for approval.
2741: */
2742: If (x_return_status <> FND_API.G_RET_STS_SUCCESS) then
2743: l_msg_buf := null;
2744: l_msg_buf := FND_MSG_PUB.Get(p_msg_index => 1,
2745: p_encoded => 'F');
2746: l_msg_buf := 'Release ' ||g_po_release_id_table(i)||
2750: l_module,l_msg_buf);
2751: END IF;
2752: end if;
2753:
2754: If ((x_return_status = FND_API.G_RET_STS_SUCCESS) and
2755: (x_sub_check_status = FND_API.G_RET_STS_ERROR)) THEN
2756:
2757: l_msg_buf := 'Release ' ||g_po_release_id_table(i)||
2758: 'Online Report Id '||x_online_report_id;
2751: END IF;
2752: end if;
2753:
2754: If ((x_return_status = FND_API.G_RET_STS_SUCCESS) and
2755: (x_sub_check_status = FND_API.G_RET_STS_ERROR)) THEN
2756:
2757: l_msg_buf := 'Release ' ||g_po_release_id_table(i)||
2758: 'Online Report Id '||x_online_report_id;
2759: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_EXCEPTION) THEN
2763:
2764: end if;
2765:
2766: l_module := g_log_head||l_api_name||'.'||'010'||'.';
2767: If ((x_return_status = FND_API.G_RET_STS_SUCCESS) and
2768: (x_sub_check_status = FND_API.G_RET_STS_SUCCESS)) THEN
2769:
2770: PO_RETROACTIVE_PRICING_PVT.Retroactive_Launch_Approval
2771: ( p_doc_id => g_po_release_id_table(i),
2764: end if;
2765:
2766: l_module := g_log_head||l_api_name||'.'||'010'||'.';
2767: If ((x_return_status = FND_API.G_RET_STS_SUCCESS) and
2768: (x_sub_check_status = FND_API.G_RET_STS_SUCCESS)) THEN
2769:
2770: PO_RETROACTIVE_PRICING_PVT.Retroactive_Launch_Approval
2771: ( p_doc_id => g_po_release_id_table(i),
2772: p_doc_type => 'RELEASE',
3334: -- PO : Standard PO
3335: -- RELEASE : Release
3336: --OUT:
3337: --x_return_status
3338: -- FND_API.G_RET_STS_SUCCESS if API succeeds
3339: -- FND_API.G_RET_STS_ERROR if API fails
3340: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3341: --x_msg_count
3342: -- Number of Error messages
3335: -- RELEASE : Release
3336: --OUT:
3337: --x_return_status
3338: -- FND_API.G_RET_STS_SUCCESS if API succeeds
3339: -- FND_API.G_RET_STS_ERROR if API fails
3340: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3341: --x_msg_count
3342: -- Number of Error messages
3343: --x_msg_data
3336: --OUT:
3337: --x_return_status
3338: -- FND_API.G_RET_STS_SUCCESS if API succeeds
3339: -- FND_API.G_RET_STS_ERROR if API fails
3340: -- FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
3341: --x_msg_count
3342: -- Number of Error messages
3343: --x_msg_data
3344: -- Contains error msg in case x_return_status returned
3341: --x_msg_count
3342: -- Number of Error messages
3343: --x_msg_data
3344: -- Contains error msg in case x_return_status returned
3345: -- FND_API.G_RET_STS_ERROR or FND_API.G_RET_STS_UNEXP_ERROR
3346: --Testing:
3347: --
3348: --End of Comments
3349: -------------------------------------------------------------------------------
3605: ELSE
3606: po_debug.set_file_io(null);
3607: END IF;
3608:
3609: x_return_status := FND_API.G_RET_STS_SUCCESS;
3610: x_msg_count := 0;
3611: x_msg_data := NULL;
3612:
3613: IF g_debug_stmt THEN
3616: PO_DEBUG.debug_var(l_log_head,l_progress,'p_document_type', p_document_type);
3617: END IF;
3618:
3619: -- Standard call to check for call compatibility
3620: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
3621: THEN
3622: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3623: END IF;
3624:
3618:
3619: -- Standard call to check for call compatibility
3620: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
3621: THEN
3622: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3623: END IF;
3624:
3625: -- Bug 3314204, Pass Inventory API price in functional price
3626: SELECT nvl(FND.precision, 2)
3762: PO_DEBUG.put_line('Return status : ' || l_return_status);
3763: PO_DEBUG.put_line('Message Count: ' || l_msg_count);
3764: PO_DEBUG.put_line('Message data : '|| l_msg_data);
3765:
3766: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) Then
3767: IF (l_return_status = FND_API.G_RET_STS_ERROR) Then
3768: RAISE FND_API.G_EXC_ERROR;
3769: ELSE
3770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3763: PO_DEBUG.put_line('Message Count: ' || l_msg_count);
3764: PO_DEBUG.put_line('Message data : '|| l_msg_data);
3765:
3766: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) Then
3767: IF (l_return_status = FND_API.G_RET_STS_ERROR) Then
3768: RAISE FND_API.G_EXC_ERROR;
3769: ELSE
3770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3771: END IF; /* IF (l_return_status = FND_API.G_RET_STS_ERROR) */
3764: PO_DEBUG.put_line('Message data : '|| l_msg_data);
3765:
3766: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) Then
3767: IF (l_return_status = FND_API.G_RET_STS_ERROR) Then
3768: RAISE FND_API.G_EXC_ERROR;
3769: ELSE
3770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3771: END IF; /* IF (l_return_status = FND_API.G_RET_STS_ERROR) */
3772: END IF; /* IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) */
3766: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) Then
3767: IF (l_return_status = FND_API.G_RET_STS_ERROR) Then
3768: RAISE FND_API.G_EXC_ERROR;
3769: ELSE
3770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3771: END IF; /* IF (l_return_status = FND_API.G_RET_STS_ERROR) */
3772: END IF; /* IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) */
3773:
3774: /** INVCONV rseshadr - call OPM API for process organizations **/
3767: IF (l_return_status = FND_API.G_RET_STS_ERROR) Then
3768: RAISE FND_API.G_EXC_ERROR;
3769: ELSE
3770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3771: END IF; /* IF (l_return_status = FND_API.G_RET_STS_ERROR) */
3772: END IF; /* IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) */
3773:
3774: /** INVCONV rseshadr - call OPM API for process organizations **/
3775: l_progress := '106';
3768: RAISE FND_API.G_EXC_ERROR;
3769: ELSE
3770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3771: END IF; /* IF (l_return_status = FND_API.G_RET_STS_ERROR) */
3772: END IF; /* IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) */
3773:
3774: /** INVCONV rseshadr - call OPM API for process organizations **/
3775: l_progress := '106';
3776: IF g_debug_stmt THEN
3780: PO_DEBUG.put_line('Call GMF_Rcv_Accounting_Pkg.Create_Adjust_Txns');
3781:
3782: GMF_Rcv_Accounting_Pkg.Create_Adjust_Txns(
3783: p_api_version => 1.0,
3784: p_init_msg_list => FND_API.G_FALSE,
3785: p_commit => FND_API.G_FALSE,
3786: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3787: p_po_header_id => l_po_header_ids_tbl(i),
3788: p_po_release_id => l_po_release_ids_tbl(i),
3781:
3782: GMF_Rcv_Accounting_Pkg.Create_Adjust_Txns(
3783: p_api_version => 1.0,
3784: p_init_msg_list => FND_API.G_FALSE,
3785: p_commit => FND_API.G_FALSE,
3786: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3787: p_po_header_id => l_po_header_ids_tbl(i),
3788: p_po_release_id => l_po_release_ids_tbl(i),
3789: p_po_line_id => l_po_line_ids_tbl(i),
3782: GMF_Rcv_Accounting_Pkg.Create_Adjust_Txns(
3783: p_api_version => 1.0,
3784: p_init_msg_list => FND_API.G_FALSE,
3785: p_commit => FND_API.G_FALSE,
3786: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3787: p_po_header_id => l_po_header_ids_tbl(i),
3788: p_po_release_id => l_po_release_ids_tbl(i),
3789: p_po_line_id => l_po_line_ids_tbl(i),
3790: p_po_line_location_id=> l_line_location_ids_tbl(i),
3804: PO_DEBUG.put_line('Return status : ' || l_return_status);
3805: PO_DEBUG.put_line('Message Count: ' || l_msg_count);
3806: PO_DEBUG.put_line('Message data : '|| l_msg_data);
3807:
3808: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) Then
3809: IF (l_return_status = FND_API.G_RET_STS_ERROR) Then
3810: RAISE FND_API.G_EXC_ERROR;
3811: ELSE
3812: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3805: PO_DEBUG.put_line('Message Count: ' || l_msg_count);
3806: PO_DEBUG.put_line('Message data : '|| l_msg_data);
3807:
3808: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) Then
3809: IF (l_return_status = FND_API.G_RET_STS_ERROR) Then
3810: RAISE FND_API.G_EXC_ERROR;
3811: ELSE
3812: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3813: END IF; /* IF (l_return_status = FND_API.G_RET_STS_ERROR) */
3806: PO_DEBUG.put_line('Message data : '|| l_msg_data);
3807:
3808: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) Then
3809: IF (l_return_status = FND_API.G_RET_STS_ERROR) Then
3810: RAISE FND_API.G_EXC_ERROR;
3811: ELSE
3812: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3813: END IF; /* IF (l_return_status = FND_API.G_RET_STS_ERROR) */
3814: END IF; /* IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) */
3808: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) Then
3809: IF (l_return_status = FND_API.G_RET_STS_ERROR) Then
3810: RAISE FND_API.G_EXC_ERROR;
3811: ELSE
3812: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3813: END IF; /* IF (l_return_status = FND_API.G_RET_STS_ERROR) */
3814: END IF; /* IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) */
3815: /** INVCONV rseshadr - end of changes **/
3816:
3809: IF (l_return_status = FND_API.G_RET_STS_ERROR) Then
3810: RAISE FND_API.G_EXC_ERROR;
3811: ELSE
3812: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3813: END IF; /* IF (l_return_status = FND_API.G_RET_STS_ERROR) */
3814: END IF; /* IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) */
3815: /** INVCONV rseshadr - end of changes **/
3816:
3817: END LOOP;
3810: RAISE FND_API.G_EXC_ERROR;
3811: ELSE
3812: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3813: END IF; /* IF (l_return_status = FND_API.G_RET_STS_ERROR) */
3814: END IF; /* IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) */
3815: /** INVCONV rseshadr - end of changes **/
3816:
3817: END LOOP;
3818:
4084: PO_DEBUG.put_line('Call Inventory API');
4085:
4086: INV_LOGICAL_TRANSACTIONS_PUB.create_logical_transactions(
4087: p_api_version_number => 1.0,
4088: p_init_msg_lst => FND_API.G_FALSE,
4089: p_validation_flag => FND_API.G_TRUE,
4090: p_trx_flow_header_id => NULL,
4091: p_defer_logical_transactions=> NULL,
4092: p_logical_trx_type_code => 4,
4085:
4086: INV_LOGICAL_TRANSACTIONS_PUB.create_logical_transactions(
4087: p_api_version_number => 1.0,
4088: p_init_msg_lst => FND_API.G_FALSE,
4089: p_validation_flag => FND_API.G_TRUE,
4090: p_trx_flow_header_id => NULL,
4091: p_defer_logical_transactions=> NULL,
4092: p_logical_trx_type_code => 4,
4093: p_exploded_flag => 2,
4106: PO_DEBUG.put_line('Return status : ' || l_return_status);
4107: PO_DEBUG.put_line('Message Count: ' || l_msg_count);
4108: PO_DEBUG.put_line('Message data : '|| l_msg_data);
4109:
4110: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) Then
4111: IF (l_return_status = FND_API.G_RET_STS_ERROR) Then
4112: RAISE FND_API.G_EXC_ERROR;
4113: ELSE
4114: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4107: PO_DEBUG.put_line('Message Count: ' || l_msg_count);
4108: PO_DEBUG.put_line('Message data : '|| l_msg_data);
4109:
4110: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) Then
4111: IF (l_return_status = FND_API.G_RET_STS_ERROR) Then
4112: RAISE FND_API.G_EXC_ERROR;
4113: ELSE
4114: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4115: END IF; /* IF (l_return_status = FND_API.G_RET_STS_ERROR) */
4108: PO_DEBUG.put_line('Message data : '|| l_msg_data);
4109:
4110: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) Then
4111: IF (l_return_status = FND_API.G_RET_STS_ERROR) Then
4112: RAISE FND_API.G_EXC_ERROR;
4113: ELSE
4114: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4115: END IF; /* IF (l_return_status = FND_API.G_RET_STS_ERROR) */
4116: END IF; /* IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) */
4110: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) Then
4111: IF (l_return_status = FND_API.G_RET_STS_ERROR) Then
4112: RAISE FND_API.G_EXC_ERROR;
4113: ELSE
4114: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4115: END IF; /* IF (l_return_status = FND_API.G_RET_STS_ERROR) */
4116: END IF; /* IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) */
4117:
4118: END IF; /* IF (l_mtl_index > 0) */
4111: IF (l_return_status = FND_API.G_RET_STS_ERROR) Then
4112: RAISE FND_API.G_EXC_ERROR;
4113: ELSE
4114: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4115: END IF; /* IF (l_return_status = FND_API.G_RET_STS_ERROR) */
4116: END IF; /* IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) */
4117:
4118: END IF; /* IF (l_mtl_index > 0) */
4119:
4112: RAISE FND_API.G_EXC_ERROR;
4113: ELSE
4114: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4115: END IF; /* IF (l_return_status = FND_API.G_RET_STS_ERROR) */
4116: END IF; /* IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) */
4117:
4118: END IF; /* IF (l_mtl_index > 0) */
4119:
4120: l_progress := '380';
4186:
4187: COMMIT; --
4188:
4189: EXCEPTION
4190: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4191: ROLLBACK TO RETRO_INVOICE_SP;
4192: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
4193: p_encoded => 'F');
4194: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4190: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4191: ROLLBACK TO RETRO_INVOICE_SP;
4192: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
4193: p_encoded => 'F');
4194: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4195:
4196: IF g_debug_unexp THEN
4197: PO_DEBUG.debug_exc(l_log_head,l_progress);
4198: END IF;
4208: END IF;
4209: IF (c_consigned_release%ISOPEN) THEN
4210: CLOSE c_consigned_release;
4211: END IF;
4212: WHEN FND_API.G_EXC_ERROR THEN
4213: ROLLBACK TO RETRO_INVOICE_SP;
4214: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
4215: p_encoded => 'F');
4216: x_return_status := FND_API.G_RET_STS_ERROR;
4212: WHEN FND_API.G_EXC_ERROR THEN
4213: ROLLBACK TO RETRO_INVOICE_SP;
4214: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
4215: p_encoded => 'F');
4216: x_return_status := FND_API.G_RET_STS_ERROR;
4217:
4218: IF g_debug_unexp THEN
4219: PO_DEBUG.debug_exc(l_log_head,l_progress);
4220: END IF;
4242: END IF;
4243:
4244: x_msg_data := FND_MSG_PUB.GET(p_msg_index => FND_MSG_PUB.G_LAST,
4245: p_encoded => 'F');
4246: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4247:
4248: IF (c_stdpo%ISOPEN) THEN
4249: CLOSE c_stdpo;
4250: END IF;