756: if(l_debug_enabled = 'Y') then
757: x_progress := ++l_progress || l_api_name || ' : Federal document : Updated po_requisition_lines_all with -1 :';
758: log_message(x_progress);
759: END IF;
760: p_split_result := FND_API.G_RET_STS_SUCCESS;
761: ELSE
762:
763: -- Insert values into po's split temp global table
764: INSERT INTO po_req_split_lines_GT (
794: -- registering out result, error, num_msgs, error_msg, failed req
795: -- bug 3955102 - invoke API by names, not index
796: PO_NEGOTIATIONS4_GRP.Split_RequisitionLines(
797: P_API_VERSION => 1.0,
798: P_INIT_MSG_LIST => FND_API.G_FALSE,
799: P_COMMIT => FND_API.G_FALSE,
800: X_RETURN_STATUS => p_split_result,
801: X_MSG_COUNT => l_num_messages,
802: X_MSG_DATA => p_split_failure_reason,
795: -- bug 3955102 - invoke API by names, not index
796: PO_NEGOTIATIONS4_GRP.Split_RequisitionLines(
797: P_API_VERSION => 1.0,
798: P_INIT_MSG_LIST => FND_API.G_FALSE,
799: P_COMMIT => FND_API.G_FALSE,
800: X_RETURN_STATUS => p_split_result,
801: X_MSG_COUNT => l_num_messages,
802: X_MSG_DATA => p_split_failure_reason,
803: P_AUCTION_HEADER_ID => p_auction_header_id);
813: END IF; -- End if p_split_result = 'SUCCESS'
814:
815: -- If successful, insert values back into sourcing's table
816: --
817: IF (p_split_result = FND_API.G_RET_STS_SUCCESS) THEN
818:
819: if(l_debug_enabled = 'Y') then
820: x_progress := ++l_progress || l_api_name || ' : p_split_result is successful :';
821: log_message(x_progress);
860: -- Here, we will retrieve the last error message to display to user.
861: -- in decoded format
862:
863: IF (l_num_messages > 0) THEN
864: p_split_failure_reason := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST, FND_API.G_FALSE);
865: END IF;
866:
867: -- if unexpected error, append the text 'Unexpected System Error' to
868: -- error message
865: END IF;
866:
867: -- if unexpected error, append the text 'Unexpected System Error' to
868: -- error message
869: IF (p_split_result = FND_API.G_RET_STS_UNEXP_ERROR) THEN
870: p_split_failure_reason := PON_AUCTION_PKG.getMessage('PON_UNEXPECTED_ERROR') || ': ' || p_split_failure_reason;
871: END IF;
872:
873: p_split_result := 'FAILURE';
4536:
4537:
4538: PO_SOURCING_GRP.CREATE_CPA(
4539: p_api_version => 1.0,
4540: p_init_msg_list => FND_API.G_TRUE,
4541: p_commit => FND_API.G_FALSE,
4542: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4543: x_msg_count => x_msg_count,
4544: x_msg_data => x_msg_data,
4537:
4538: PO_SOURCING_GRP.CREATE_CPA(
4539: p_api_version => 1.0,
4540: p_init_msg_list => FND_API.G_TRUE,
4541: p_commit => FND_API.G_FALSE,
4542: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4543: x_msg_count => x_msg_count,
4544: x_msg_data => x_msg_data,
4545: x_return_status => x_return_status,
4538: PO_SOURCING_GRP.CREATE_CPA(
4539: p_api_version => 1.0,
4540: p_init_msg_list => FND_API.G_TRUE,
4541: p_commit => FND_API.G_FALSE,
4542: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4543: x_msg_count => x_msg_count,
4544: x_msg_data => x_msg_data,
4545: x_return_status => x_return_status,
4546: p_interface_header_id => x_interface_header_id,
4560: log_message(x_progress);
4561: x_progress := '66.2: GENERATE_POS: Just after create_CPA po header id '||x_po_header_id;
4562: log_message(x_progress);
4563:
4564: IF (x_return_status = FND_API.g_ret_sts_success
4565: AND x_order_number is NOT NULL) THEN
4566: x_error_code := PO_SUCCESS;
4567: -- In case of federal : Populate clm_document_number column to order_number
4568: IF PON_CLM_UTIL_PKG.IS_DOCUMENT_FEDERAL(x_doctype_id) = 1 THEN
4570: from po_headers_all
4571: where
4572: po_header_id = x_po_header_id;
4573: END IF;
4574: ELSIF (x_return_status = FND_API.g_ret_sts_error
4575: OR x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4576: x_error_code := PO_PDOI_ERROR;
4577: IF x_msg_count = 1 THEN
4578: x_error_msg := x_msg_data;
4571: where
4572: po_header_id = x_po_header_id;
4573: END IF;
4574: ELSIF (x_return_status = FND_API.g_ret_sts_error
4575: OR x_return_status = FND_API.g_ret_sts_unexp_error) THEN
4576: x_error_code := PO_PDOI_ERROR;
4577: IF x_msg_count = 1 THEN
4578: x_error_msg := x_msg_data;
4579: ELSIF (x_msg_count > 0) THEN
4576: x_error_code := PO_PDOI_ERROR;
4577: IF x_msg_count = 1 THEN
4578: x_error_msg := x_msg_data;
4579: ELSIF (x_msg_count > 0) THEN
4580: x_error_msg := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST, FND_API.G_FALSE);
4581: END IF;-- msg_count
4582:
4583: x_progress := substrb('67: GENERATE_POS: create cpa error:'||x_error_msg, 1,4000);
4584:
4593: log_message(x_progress);
4594:
4595: /* PO_SOURCING_GRP.DELETE_INTERFACE_HEADER(
4596: p_api_version => 1.0,
4597: p_init_msg_list => FND_API.G_FALSE,
4598: p_commit => FND_API.G_FALSE,
4599: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4600: x_msg_count => x_msg_count,
4601: x_msg_data => x_msg_data,
4594:
4595: /* PO_SOURCING_GRP.DELETE_INTERFACE_HEADER(
4596: p_api_version => 1.0,
4597: p_init_msg_list => FND_API.G_FALSE,
4598: p_commit => FND_API.G_FALSE,
4599: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4600: x_msg_count => x_msg_count,
4601: x_msg_data => x_msg_data,
4602: x_return_status => x_return_status,
4595: /* PO_SOURCING_GRP.DELETE_INTERFACE_HEADER(
4596: p_api_version => 1.0,
4597: p_init_msg_list => FND_API.G_FALSE,
4598: p_commit => FND_API.G_FALSE,
4599: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4600: x_msg_count => x_msg_count,
4601: x_msg_data => x_msg_data,
4602: x_return_status => x_return_status,
4603: p_interface_header_id => x_interface_header_id
4606: x_progress := '68.1: GENERATE_POS: Just after call to Delete interface header status:'||x_return_status;
4607:
4608: log_message(x_progress);
4609:
4610: IF (x_return_status <> FND_API.g_ret_sts_success) THEN
4611: x_error_code := PO_DELETE_ERROR;
4612: IF x_msg_count = 1 THEN
4613: x_error_msg := x_msg_data;
4614: ELSIF (x_msg_count > 0) THEN
4611: x_error_code := PO_DELETE_ERROR;
4612: IF x_msg_count = 1 THEN
4613: x_error_msg := x_msg_data;
4614: ELSIF (x_msg_count > 0) THEN
4615: x_error_msg := FND_MSG_PUB.GET(FND_MSG_PUB.G_LAST, FND_API.G_FALSE);
4616: END IF;-- msg_count
4617: x_progress := substrb('68.2: GENERATE_POS: delete interface header error:'||x_error_msg, 1,4000);
4618:
4619: log_message(x_progress);
4654: log_message('70.GENERATE_POS: Just after create_documents: x_return_status=' || x_return_status || ' x_num_lines_processed=' || x_num_lines_processed || ' x_order_number=' || x_order_number);
4655:
4656:
4657:
4658: IF (x_return_status = FND_API.g_ret_sts_success
4659: AND x_num_lines_processed >0 AND x_order_number is NOT NULL)
4660: THEN
4661: x_error_code := PO_SUCCESS;
4662: -- In case of federal : Populate clm_document_number column to order_number
4939: x_ItemKey := to_char(x_doc_id) || '-' || x_seq_for_item_key;
4940:
4941: x_progress := '25: Calling Get_Transmission_Defaults PO API:' ||
4942: 'p_api_version: 1.0 , ' ||
4943: 'p_int_msg_list: FND_API.G_FALSE, '||
4944: 'p_doc_id: ' || x_doc_id || ', ' ||
4945: 'p_doc_type: ' || x_doc_type || ', ' ||
4946: 'p_doc_subtype: ' || x_doc_subtype || ', ' ||
4947: 'p_preparer_id: ' || x_preparer_id;
4949:
4950: /* Get supplier's default transmission settings */
4951: PO_VENDOR_SITES_GRP.Get_Transmission_Defaults(
4952: p_api_version => 1.0,
4953: p_init_msg_list => FND_API.G_FALSE,
4954: p_document_id => p_po_header_id,
4955: p_document_type => x_doc_type,
4956: p_document_subtype => x_doc_subtype,
4957: p_preparer_id => x_preparer_id,
4965: x_return_status => x_po_api_return_status,
4966: x_msg_count => x_msg_count,
4967: x_msg_data => x_msg_data);
4968:
4969: if (x_po_api_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4970: x_progress := '27: Failure in : PO_VENDOR_SITES_GRP.Get_Transmission_Defaults : ' || 'x_po_api_return_status : '||x_po_api_return_status ||','||
4971: 'x_msg_data : '|| x_msg_data;
4972:
4973: log_message(x_progress);
5945:
5946: -- Raise Business Event
5947: PON_BIZ_EVENTS_PVT.RAISE_PO_CREATION_INIT_EVENT (
5948: p_api_version => 1.0 ,
5949: p_init_msg_list => FND_API.G_FALSE,
5950: p_commit => FND_API.G_FALSE,
5951: p_auction_header_id => p_auction_header_id,
5952: p_user_name => p_user_name,
5953: p_requisition_based_flag => x_requistion_based,
5946: -- Raise Business Event
5947: PON_BIZ_EVENTS_PVT.RAISE_PO_CREATION_INIT_EVENT (
5948: p_api_version => 1.0 ,
5949: p_init_msg_list => FND_API.G_FALSE,
5950: p_commit => FND_API.G_FALSE,
5951: p_auction_header_id => p_auction_header_id,
5952: p_user_name => p_user_name,
5953: p_requisition_based_flag => x_requistion_based,
5954: x_return_status => x_return_status,