583: -- req change.
584: if(l_doc_status = 'APPROVED') then
585: PO_CHG_REQUEST_PVT.validate_change_request (
586: p_api_version => 1.0,
587: p_init_msg_list => FND_API.G_FALSE,
588: x_return_status => l_return_status,
589: x_msg_data => l_msg_data,
590: p_po_header_id => p_po_header_id,
591: p_po_release_id => p_po_release_id,
632: x_progress :='PO_ReqChangeRequestWF_PVT.ValidateAndSaveRequest:005';
633:
634: PO_CHG_REQUEST_PVT.save_request(
635: p_api_version =>1.0,
636: p_Init_Msg_List =>FND_API.G_FALSE,
637: x_return_status =>l_return_status,
638: p_po_header_id =>p_po_header_id,
639: p_po_release_id =>p_po_release_id,
640: p_revision_num =>p_revision_num,
667: -- it will be done when the PO is back to approved status
668: x_progress :='PO_ReqChangeRequestWF_PVT.ValidateAndSaveRequest:009';
669: PO_CHG_REQUEST_PVT.save_request(
670: p_api_version =>1.0,
671: p_Init_Msg_List =>FND_API.G_FALSE,
672: x_return_status =>l_return_status,
673: p_po_header_id =>p_po_header_id,
674: p_po_release_id =>p_po_release_id,
675: p_revision_num =>p_revision_num,
733: p_rec_tax =>l_recoverable_tax,
734: p_nonrec_tax =>l_nonrecoverable_tax);
735:
736: x_progress :='0'||l_return_status;
737: if(l_return_status<>FND_API.G_RET_STS_SUCCESS) then
738: raise g_update_data_exp;
739: end if;
740: update po_req_distributions_all
741: set req_line_quantity=p_new_quantity,
804: p_quantity =>null,
805: p_dist_amount => null,
806: p_rec_tax =>l_recoverable_tax,
807: p_nonrec_tax =>l_nonrecoverable_tax);
808: if(l_return_status<>FND_API.G_RET_STS_SUCCESS) then
809: raise g_update_data_exp;
810: end if;
811:
812: x_progress :='002-'||to_char(l_distributions_id);
1510:
1511: x_progress :='010';
1512: PO_CHG_REQUEST_PVT.validate_change_request (
1513: p_api_version => 1.0,
1514: p_init_msg_list => FND_API.G_FALSE,
1515: x_return_status => l_return_status,
1516: x_msg_data => l_msg_data,
1517: p_po_header_id => ll_document_header_id,
1518: p_po_release_id => ll_po_release_id,
1918: end if;
1919:
1920: PO_Document_Control_GRP.control_document
1921: (p_api_version => 1.0,
1922: p_init_msg_list => FND_API.G_FALSE,
1923: p_commit => FND_API.G_TRUE,
1924: x_return_status => l_return_status,
1925: p_doc_type => l_document_type,
1926: p_doc_subtype => l_document_subtype ,
1919:
1920: PO_Document_Control_GRP.control_document
1921: (p_api_version => 1.0,
1922: p_init_msg_list => FND_API.G_FALSE,
1923: p_commit => FND_API.G_TRUE,
1924: x_return_status => l_return_status,
1925: p_doc_type => l_document_type,
1926: p_doc_subtype => l_document_subtype ,
1927: p_doc_id => l_document_id,
1951: close cancel_request;
1952: x_progress:='CANCELLATION:004';
1953:
1954: --Update change request status for success case
1955: IF(l_return_status = FND_API.g_ret_sts_success) THEN
1956: -- accept the po cancel request and req cancel request
1957: -- fix bug 2733303.
1958: -- when buyer response to the po change, the response_date
1959: -- response_reason and resonded_by is not carried back to
2041:
2042: -- Raise the exceptions here, to handle the error case to
2043: -- continue workflow. In case of unexpected exception, raise back the
2044: -- error and make the error process to handle them.
2045: IF (l_return_status = FND_API.g_ret_sts_error) THEN
2046: RAISE FND_API.g_exc_error;
2047: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
2048: RAISE FND_API.g_exc_unexpected_error;
2049: END IF;
2042: -- Raise the exceptions here, to handle the error case to
2043: -- continue workflow. In case of unexpected exception, raise back the
2044: -- error and make the error process to handle them.
2045: IF (l_return_status = FND_API.g_ret_sts_error) THEN
2046: RAISE FND_API.g_exc_error;
2047: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
2048: RAISE FND_API.g_exc_unexpected_error;
2049: END IF;
2050:
2043: -- continue workflow. In case of unexpected exception, raise back the
2044: -- error and make the error process to handle them.
2045: IF (l_return_status = FND_API.g_ret_sts_error) THEN
2046: RAISE FND_API.g_exc_error;
2047: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
2048: RAISE FND_API.g_exc_unexpected_error;
2049: END IF;
2050:
2051: exception
2044: -- error and make the error process to handle them.
2045: IF (l_return_status = FND_API.g_ret_sts_error) THEN
2046: RAISE FND_API.g_exc_error;
2047: ELSIF (l_return_status = FND_API.g_ret_sts_unexp_error) THEN
2048: RAISE FND_API.g_exc_unexpected_error;
2049: END IF;
2050:
2051: exception
2052: -- In case of error, set the change request status to Rejected and
2050:
2051: exception
2052: -- In case of error, set the change request status to Rejected and
2053: -- continue the workflow.
2054: when FND_API.g_exc_error then
2055: -- automacally reject the cancel request.
2056: -- additionally updating the validation_error field with the message stack populated
2057: -- by cancel api(if no. of message is 1).
2058:
2301: raise l_po_cancel_api;
2302: end if;
2303: */
2304: IF (l_return_code = 1) THEN
2305: RAISE FND_API.g_exc_error;
2306: ELSIF (l_return_code= 2) THEN
2307: RAISE FND_API.g_exc_unexpected_error;
2308: END IF;
2309:
2303: */
2304: IF (l_return_code = 1) THEN
2305: RAISE FND_API.g_exc_error;
2306: ELSIF (l_return_code= 2) THEN
2307: RAISE FND_API.g_exc_unexpected_error;
2308: END IF;
2309:
2310: -- fix bug 2733303.
2311: -- when buyer response to the po change, the response_date
2395: x_progress:='ACCEPTANCE:011';
2396:
2397: exception
2398: --In case of error, continue workflow
2399: when FND_API.g_exc_error then
2400: rollback to PO_REQCHANGEREQUESTWF_PVT_SP;
2401:
2402: update PO_CHANGE_REQUESTS
2403: set request_status='REJECTED',
2690: -- Api returns 0,1 or 2. In case of 1, rollback the changes
2691: -- and reject the change request.
2692:
2693: IF (l_return_code = 1) THEN
2694: RAISE FND_API.g_exc_error;
2695: ELSIF (l_return_code= 2) THEN
2696:
2697: RAISE FND_API.g_exc_unexpected_error;
2698: END IF;
2693: IF (l_return_code = 1) THEN
2694: RAISE FND_API.g_exc_error;
2695: ELSIF (l_return_code= 2) THEN
2696:
2697: RAISE FND_API.g_exc_unexpected_error;
2698: END IF;
2699:
2700: -- fix bug 2733303.
2701: -- when buyer response to the po change, the response_date
2770:
2771: exception
2772: --In case of error, rollback
2773:
2774: when FND_API.g_exc_error then
2775: rollback to PO_REQCHANGEREQUESTWF_PVT_SP;
2776:
2777: update PO_CHANGE_REQUESTS
2778: set request_status='REJECTED',
7334: fnd_global.APPS_INITIALIZE (l_user_id, l_responsibility_id, l_application_id);
7335: */
7336: po_sup_chg_request_wf_grp.KickOffPOApproval(1, p_return_status,
7337: p_po_header_id, p_po_release_id, p_return_msg);
7338: if(p_return_status=FND_API.G_RET_STS_SUCCESS) then
7339: commit;
7340: end if;
7341: exception
7342: when others then
7430: --rejected, there will be no change reqeust in BUY_APP. So,
7431: --the document_id cursor will not fetch records. So, call
7432: --KickOffPOApproval only if either l_header_id or l_release_id
7433: --is not null
7434: l_return_status := FND_API.G_RET_STS_SUCCESS;
7435:
7436: IF ( (l_header_id is not null) OR (l_release_id is not null)) THEN
7437: KickOffPOApproval(l_header_id,l_release_id, l_return_status, l_return_msg);
7438: END IF;
7438: END IF;
7439: --po_sup_chg_request_wf_grp.KickOffPOApproval(1, l_return_status, l_header_id, l_release_id, l_return_msg);
7440: --PO_ChangeOrderWF_GRP.KickOffPOApproval(1, l_return_status, l_header_id, l_release_id, l_return_msg);
7441:
7442: if(l_return_status<>FND_API.G_RET_STS_SUCCESS) then
7443: x_progress := 'PO_ReqChangeRequestWF_PVT.Start_Poapprv_WF:-'||l_return_status||'-'||to_char(l_header_id)||'-'||to_char(l_release_id)||'-'||l_return_msg;
7444: raise l_exception;
7445: else
7446: x_progress := 'PO_ReqChangeRequestWF_PVT.Start_Poapprv_WF: 03';
8652: * Returns:
8653: ************************************************************************/
8654: Procedure Process_Cancelled_Req_Lines(
8655: p_api_version in number,
8656: p_init_msg_list in varchar2:=FND_API.G_FALSE,
8657: p_commit in varchar2 :=FND_API.G_FALSE,
8658: x_return_status out NOCOPY varchar2,
8659: x_msg_count out NOCOPY number,
8660: x_msg_data out NOCOPY varchar2,
8653: ************************************************************************/
8654: Procedure Process_Cancelled_Req_Lines(
8655: p_api_version in number,
8656: p_init_msg_list in varchar2:=FND_API.G_FALSE,
8657: p_commit in varchar2 :=FND_API.G_FALSE,
8658: x_return_status out NOCOPY varchar2,
8659: x_msg_count out NOCOPY number,
8660: x_msg_data out NOCOPY varchar2,
8661: p_CanceledReqLineIDs_tbl in ReqLineID_tbl_type) is
8697: (select pcr2.change_request_id
8698: from po_change_requests pcr2
8699: where pcr2.parent_change_request_id=pcr1.change_request_id);
8700: begin
8701: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
8702: l_api_name, g_pkg_name) THEN
8703: RAISE FND_API.g_exc_unexpected_error;
8704: END IF;
8705:
8699: where pcr2.parent_change_request_id=pcr1.change_request_id);
8700: begin
8701: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
8702: l_api_name, g_pkg_name) THEN
8703: RAISE FND_API.g_exc_unexpected_error;
8704: END IF;
8705:
8706: IF FND_API.to_boolean(p_init_msg_list) THEN
8707: FND_MSG_PUB.initialize;
8702: l_api_name, g_pkg_name) THEN
8703: RAISE FND_API.g_exc_unexpected_error;
8704: END IF;
8705:
8706: IF FND_API.to_boolean(p_init_msg_list) THEN
8707: FND_MSG_PUB.initialize;
8708: END IF;
8709:
8710: l_index:=p_CanceledReqLineIDs_tbl.FIRST;
8803: l_index:=p_CanceledReqLineIDs_tbl.next(l_index);
8804: end loop;
8805:
8806: -- Standard API check of p_commit
8807: IF FND_API.to_boolean(p_commit) THEN
8808: COMMIT WORK;
8809: END IF;
8810:
8811: x_return_status:=FND_API.g_ret_sts_success;
8807: IF FND_API.to_boolean(p_commit) THEN
8808: COMMIT WORK;
8809: END IF;
8810:
8811: x_return_status:=FND_API.g_ret_sts_success;
8812: EXCEPTION
8813: WHEN FND_API.g_exc_unexpected_error THEN
8814: x_return_status := FND_API.g_ret_sts_unexp_error;
8815: when others then
8809: END IF;
8810:
8811: x_return_status:=FND_API.g_ret_sts_success;
8812: EXCEPTION
8813: WHEN FND_API.g_exc_unexpected_error THEN
8814: x_return_status := FND_API.g_ret_sts_unexp_error;
8815: when others then
8816: x_return_status := FND_API.g_ret_sts_unexp_error;
8817: null;
8810:
8811: x_return_status:=FND_API.g_ret_sts_success;
8812: EXCEPTION
8813: WHEN FND_API.g_exc_unexpected_error THEN
8814: x_return_status := FND_API.g_ret_sts_unexp_error;
8815: when others then
8816: x_return_status := FND_API.g_ret_sts_unexp_error;
8817: null;
8818: end Process_Cancelled_Req_Lines;
8812: EXCEPTION
8813: WHEN FND_API.g_exc_unexpected_error THEN
8814: x_return_status := FND_API.g_ret_sts_unexp_error;
8815: when others then
8816: x_return_status := FND_API.g_ret_sts_unexp_error;
8817: null;
8818: end Process_Cancelled_Req_Lines;
8819:
8820:
8860: l_api_name CONSTANT VARCHAR2(30) := 'Submit_Req_Change';
8861: l_api_version CONSTANT NUMBER := 1.0;
8862:
8863: BEGIN
8864: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
8865: l_api_name, g_pkg_name) THEN
8866: RAISE FND_API.g_exc_unexpected_error;
8867: END IF;
8868: x_return_status := FND_API.g_ret_sts_success;
8862:
8863: BEGIN
8864: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
8865: l_api_name, g_pkg_name) THEN
8866: RAISE FND_API.g_exc_unexpected_error;
8867: END IF;
8868: x_return_status := FND_API.g_ret_sts_success;
8869: -- End standard API initialization
8870:
8864: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
8865: l_api_name, g_pkg_name) THEN
8866: RAISE FND_API.g_exc_unexpected_error;
8867: END IF;
8868: x_return_status := FND_API.g_ret_sts_success;
8869: -- End standard API initialization
8870:
8871: open change_request_group_id;
8872: fetch change_request_group_id into l_change_request_group_id;
8899: DefaultApprovalPathID => NULL,
8900: note => p_note_to_approver,
8901: p_Initiator => p_initiator);
8902:
8903: IF FND_API.to_boolean(p_commit) THEN
8904: COMMIT WORK;
8905: END IF;
8906: EXCEPTION
8907: WHEN FND_API.g_exc_unexpected_error THEN
8903: IF FND_API.to_boolean(p_commit) THEN
8904: COMMIT WORK;
8905: END IF;
8906: EXCEPTION
8907: WHEN FND_API.g_exc_unexpected_error THEN
8908: x_return_status := FND_API.g_ret_sts_unexp_error;
8909: WHEN OTHERS THEN
8910: x_return_status := FND_API.g_ret_sts_unexp_error;
8911: RAISE;
8904: COMMIT WORK;
8905: END IF;
8906: EXCEPTION
8907: WHEN FND_API.g_exc_unexpected_error THEN
8908: x_return_status := FND_API.g_ret_sts_unexp_error;
8909: WHEN OTHERS THEN
8910: x_return_status := FND_API.g_ret_sts_unexp_error;
8911: RAISE;
8912: END;
8906: EXCEPTION
8907: WHEN FND_API.g_exc_unexpected_error THEN
8908: x_return_status := FND_API.g_ret_sts_unexp_error;
8909: WHEN OTHERS THEN
8910: x_return_status := FND_API.g_ret_sts_unexp_error;
8911: RAISE;
8912: END;
8913:
8914: /*************************************************************************
9001: and was.item_key=l_item_key
9002: and was.activity_name=activity
9003: and was.notification_id=wfn.notification_id;
9004: begin
9005: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
9006: l_api_name, g_pkg_name) THEN
9007: RAISE FND_API.g_exc_unexpected_error;
9008: END IF;
9009:
9003: and was.notification_id=wfn.notification_id;
9004: begin
9005: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
9006: l_api_name, g_pkg_name) THEN
9007: RAISE FND_API.g_exc_unexpected_error;
9008: END IF;
9009:
9010: x_return_status := FND_API.g_ret_sts_success;
9011:
9006: l_api_name, g_pkg_name) THEN
9007: RAISE FND_API.g_exc_unexpected_error;
9008: END IF;
9009:
9010: x_return_status := FND_API.g_ret_sts_success;
9011:
9012: update po_change_requests
9013: set request_status=p_acceptance_flag,
9014: change_active_flag=decode(p_acceptance_flag, 'REJECTED', 'N', 'Y'),
9051: end if;
9052: exception
9053: when others then null;
9054: end;
9055: IF FND_API.to_boolean(p_commit) THEN
9056: COMMIT WORK;
9057: END IF;
9058:
9059: EXCEPTION
9057: END IF;
9058:
9059: EXCEPTION
9060: when others then
9061: x_return_status := FND_API.g_ret_sts_unexp_error;
9062: end Record_Buyer_Response;
9063:
9064: Procedure Process_Buyer_Response(
9065: p_api_version in number,
9104: END IF;
9105:
9106: END IF;
9107:
9108: IF NOT FND_API.compatible_api_call(l_api_version, p_api_version,
9109: l_api_name, g_pkg_name) THEN
9110: IF (g_fnd_debug = 'Y') THEN
9111: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
9112: FND_LOG.string(log_level => G_LEVEL_EXCEPTION,
9114: message => 'api is not compatible');
9115: END IF;
9116: END IF;
9117:
9118: RAISE FND_API.g_exc_unexpected_error;
9119: END IF;
9120:
9121: x_progress:='001';
9122: x_return_status := FND_API.g_ret_sts_success;
9118: RAISE FND_API.g_exc_unexpected_error;
9119: END IF;
9120:
9121: x_progress:='001';
9122: x_return_status := FND_API.g_ret_sts_success;
9123: select PO_REQUESTER_CHANGE_WF_S.nextval into l_count from dual;
9124: item_key:='RESPONSE_'||to_char(p_change_request_group_id)||'_'||to_char(l_count);
9125:
9126: x_progress:='002';
9211: END IF;
9212:
9213: EXCEPTION
9214: when others then
9215: x_return_status := FND_API.g_ret_sts_unexp_error;
9216: IF( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
9217: FND_LOG.string(log_level => G_LEVEL_EXCEPTION,
9218: module => G_MODULE_NAME||'.'||l_procedure_name,
9219: message => 'x_progress:'||x_progress||'-sqlerrm:'||sqlerrm);
9904: BEGIN
9905:
9906: PO_CO_Tolerances_Grp.get_tolerances(
9907: p_api_version => 1.0,
9908: p_init_msg_list => FND_API.G_TRUE,
9909: p_organization_id => p_organization_id,
9910: p_change_order_type => po_co_tolerances_grp.g_rco_buy_app,
9911: x_tolerances_tbl => l_tolerances_tbl,
9912: x_return_status => l_return_status,
9912: x_return_status => l_return_status,
9913: x_msg_count => l_msg_count,
9914: x_msg_data => l_msg_data);
9915:
9916: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
9917: IF (g_po_wf_debug = 'Y') THEN
9918: PO_WF_DEBUG_PKG.insert_debug(p_itemtype,p_itemkey,'PO_CO_Tolerances_Grp.get_tolerances API failed:' || l_return_status || ' ' || l_msg_data);
9919: END IF;
9920: END IF;
10255:
10256: -- kick off PO approval
10257: KickOffPOApproval(l_po_header_id, l_po_release_id, l_return_status, l_return_msg);
10258:
10259: IF (l_return_status<>FND_API.G_RET_STS_SUCCESS) THEN
10260: l_progress := 'PO_ReqChangeRequestWF_PVT.Accept_Po_Changes: 11-'||l_return_status||'-'||to_char(l_po_header_id)||'-'||to_char(l_po_release_id)||'-'||l_return_msg;
10261: raise l_exception;
10262: else
10263: l_progress := 'PO_ReqChangeRequestWF_PVT.Accept_Po_Changes: 11';
11432: WHERE change_request_group_id = grp_id;
11433:
11434:
11435: BEGIN
11436: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version,
11437: l_api_name, g_pkg_name) THEN
11438:
11439: RAISE fnd_api.g_exc_unexpected_error;
11440: END IF;
11435: BEGIN
11436: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version,
11437: l_api_name, g_pkg_name) THEN
11438:
11439: RAISE fnd_api.g_exc_unexpected_error;
11440: END IF;
11441: x_return_status := fnd_api.g_ret_sts_success;
11442: -- End standard API initialization
11443: l_progress := '001';
11437: l_api_name, g_pkg_name) THEN
11438:
11439: RAISE fnd_api.g_exc_unexpected_error;
11440: END IF;
11441: x_return_status := fnd_api.g_ret_sts_success;
11442: -- End standard API initialization
11443: l_progress := '001';
11444:
11445: IF g_debug_stmt THEN
11527: p_initiator => p_initiator,
11528: p_source_type_code => p_source_type_code);
11529:
11530:
11531: IF fnd_api.to_boolean(p_commit) THEN
11532: COMMIT WORK;
11533: END IF;
11534:
11535: l_progress := '004';
11536: IF g_debug_stmt THEN
11537: po_debug.debug_stmt(l_log_head, l_progress,'ending submit_internal_req_change');
11538: END IF;
11539: EXCEPTION
11540: WHEN fnd_api.g_exc_unexpected_error THEN
11541: x_return_status := fnd_api.g_ret_sts_unexp_error;
11542: WHEN OTHERS THEN
11543: x_return_status := fnd_api.g_ret_sts_unexp_error;
11544:
11537: po_debug.debug_stmt(l_log_head, l_progress,'ending submit_internal_req_change');
11538: END IF;
11539: EXCEPTION
11540: WHEN fnd_api.g_exc_unexpected_error THEN
11541: x_return_status := fnd_api.g_ret_sts_unexp_error;
11542: WHEN OTHERS THEN
11543: x_return_status := fnd_api.g_ret_sts_unexp_error;
11544:
11545: RAISE;
11539: EXCEPTION
11540: WHEN fnd_api.g_exc_unexpected_error THEN
11541: x_return_status := fnd_api.g_ret_sts_unexp_error;
11542: WHEN OTHERS THEN
11543: x_return_status := fnd_api.g_ret_sts_unexp_error;
11544:
11545: RAISE;
11546: END submit_internal_req_change;
11547:
11737: l_msg_count number;
11738: l_msg_data varchar2(200);
11739: BEGIN
11740: l_return_status := 'Y';
11741: x_return_status :=fnd_api.g_ret_sts_success;
11742: l_progress := '000';
11743: /*
11744: Algorithm: this procedure gets called for every req int line
11745: place on SO .The changes are approved when this is called
11881:
11882:
11883: l_progress := '007';
11884:
11885: IF (l_return_status = fnd_api.g_ret_sts_success) THEN --return status from OM API
11886: -- for successful lines update the change request as accepted
11887: l_progress := '008';
11888: IF g_debug_stmt THEN
11889: po_debug.debug_stmt(l_log_head, l_progress,'for successful lines updating the change request as accepted');
11996:
11997: EXCEPTION
11998: WHEN OTHERS THEN
11999: l_orgid := get_requisition_org( p_req_hdr_id => l_document_header_id);
12000: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12001:
12002: IF l_orgid is NOT NULL THEN
12003: PO_MOAC_UTILS_PVT.set_org_context(l_orgid) ; --
12004: END IF;
12131:
12132: l_progress := '005';
12133:
12134: -- error handling after calling populate_encumbrance_gt
12135: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
12136: IF g_debug_stmt THEN
12137: po_debug.debug_stmt(l_log_head, l_progress,'error exists with funds check');
12138: END IF;
12139: RAISE fnd_api.g_exc_unexpected_error;
12135: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
12136: IF g_debug_stmt THEN
12137: po_debug.debug_stmt(l_log_head, l_progress,'error exists with funds check');
12138: END IF;
12139: RAISE fnd_api.g_exc_unexpected_error;
12140: END IF;
12141:
12142: -- re-initialize distributions list table
12143: l_distribution_id_tbl.delete;
12224: IF g_debug_stmt THEN
12225: po_debug.debug_stmt(l_log_head, l_progress, 'FUNDS ADJUST:' || l_fc_result_status ||' PO RETURN CODE:' || l_po_return_code);
12226: END IF;
12227:
12228: IF (l_fc_result_status = fnd_api.g_ret_sts_unexp_error) THEN
12229: IF g_debug_stmt THEN
12230: po_debug.debug_stmt(l_log_head, l_progress,'error exists with funds check');
12231: END IF;
12232: RAISE fnd_api.g_exc_unexpected_error;
12228: IF (l_fc_result_status = fnd_api.g_ret_sts_unexp_error) THEN
12229: IF g_debug_stmt THEN
12230: po_debug.debug_stmt(l_log_head, l_progress,'error exists with funds check');
12231: END IF;
12232: RAISE fnd_api.g_exc_unexpected_error;
12233: RETURN;
12234:
12235: ELSE
12236:
12238: po_debug.debug_STmt(l_log_head, l_progress, 'after DO adjust of funds');
12239: END IF;
12240:
12241: IF (l_po_return_code = po_document_funds_grp.g_return_success) THEN
12242: x_return_status := fnd_api.g_ret_sts_success;
12243: ELSE
12244: x_return_status := fnd_api.g_ret_sts_error;
12245: RAISE fnd_api.g_exc_unexpected_error;
12246: RETURN;
12240:
12241: IF (l_po_return_code = po_document_funds_grp.g_return_success) THEN
12242: x_return_status := fnd_api.g_ret_sts_success;
12243: ELSE
12244: x_return_status := fnd_api.g_ret_sts_error;
12245: RAISE fnd_api.g_exc_unexpected_error;
12246: RETURN;
12247: END IF;
12248:
12241: IF (l_po_return_code = po_document_funds_grp.g_return_success) THEN
12242: x_return_status := fnd_api.g_ret_sts_success;
12243: ELSE
12244: x_return_status := fnd_api.g_ret_sts_error;
12245: RAISE fnd_api.g_exc_unexpected_error;
12246: RETURN;
12247: END IF;
12248:
12249: END IF;
12290: -- the above api takes care of primary uom conversion
12291: l_progress := '015';
12292:
12293: IF NOT l_bool_ret_sts THEN
12294: RAISE fnd_api.g_exc_unexpected_error;
12295: END IF;
12296: IF g_debug_stmt THEN
12297: po_debug.debug_STmt(l_log_head, l_progress, 'Updated the req line and dist and mtl_supply with the quantity changes');
12298: po_debug.debug_STmt(l_log_head, l_progress, 'Returning from update_reqline_quan_changes');
12352: , p_receipt_date => p_need_by_date
12353: );
12354:
12355: IF NOT l_bool_ret_sts THEN
12356: RAISE fnd_api.g_exc_unexpected_error;
12357: END IF;
12358:
12359:
12360: x_progress := '003';
12425: , p_receipt_date => NULL
12426: );
12427:
12428: IF NOT l_bool_ret_sts THEN
12429: RAISE fnd_api.g_exc_unexpected_error;
12430: END IF;
12431: IF g_debug_stmt THEN
12432: po_debug.debug_stmt(l_log_head, x_progress,'Mtl_supply deleted and cancelling funds');
12433: END IF;
12435: -- cancel the encumbered funds
12436:
12437: PO_DOCUMENT_FUNDS_GRP.do_cancel(
12438: p_api_version => 1.0
12439: , p_commit => fnd_api.g_true
12440: , p_init_msg_list => fnd_api.g_false
12441: , p_validation_level=> FND_API.G_VALID_LEVEL_FULL
12442: , x_return_status =>l_return_status
12443: , p_doc_type =>'REQ'
12436:
12437: PO_DOCUMENT_FUNDS_GRP.do_cancel(
12438: p_api_version => 1.0
12439: , p_commit => fnd_api.g_true
12440: , p_init_msg_list => fnd_api.g_false
12441: , p_validation_level=> FND_API.G_VALID_LEVEL_FULL
12442: , x_return_status =>l_return_status
12443: , p_doc_type =>'REQ'
12444: , p_doc_subtype =>null
12437: PO_DOCUMENT_FUNDS_GRP.do_cancel(
12438: p_api_version => 1.0
12439: , p_commit => fnd_api.g_true
12440: , p_init_msg_list => fnd_api.g_false
12441: , p_validation_level=> FND_API.G_VALID_LEVEL_FULL
12442: , x_return_status =>l_return_status
12443: , p_doc_type =>'REQ'
12444: , p_doc_subtype =>null
12445: , p_doc_level =>'LINE'