565:
566:
567: okc_terms_copy_grp.copy_doc(
568: P_API_VERSION => 1.0, -- p_api_version
569: P_INIT_MSG_LIST => fnd_api.g_false, -- p_init_msg_list
570: P_COMMIT => fnd_api.g_false, -- p_commit
571: P_SOURCE_DOC_TYPE => 'PA_'||g_header_rec.origination_code, -- (origination_code is CONTRACT or BLANKET)
572: P_SOURCE_DOC_ID => g_header_rec.source_doc_id, -- p_source_doc_id
573: P_TARGET_DOC_TYPE => v_contracts_doctype, -- p_target_doc_type
566:
567: okc_terms_copy_grp.copy_doc(
568: P_API_VERSION => 1.0, -- p_api_version
569: P_INIT_MSG_LIST => fnd_api.g_false, -- p_init_msg_list
570: P_COMMIT => fnd_api.g_false, -- p_commit
571: P_SOURCE_DOC_TYPE => 'PA_'||g_header_rec.origination_code, -- (origination_code is CONTRACT or BLANKET)
572: P_SOURCE_DOC_ID => g_header_rec.source_doc_id, -- p_source_doc_id
573: P_TARGET_DOC_TYPE => v_contracts_doctype, -- p_target_doc_type
574: P_TARGET_DOC_ID => x_document_number, -- p_target_doc_id
605: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
606: 'Executed copy_doc() ; returned with status : ' ||v_return_status);
607: end if;
608:
609: if (v_return_status <> fnd_api.g_ret_sts_success) then
610: if (fnd_log.level_statement >= fnd_log.g_current_runtime_level) then
611: fnd_log.string(fnd_log.level_statement,
612: 'pon.plsql.pon_sourcing_openapi_grp.create_draft_neg_interface_pvt',
613: 'Call to copy_doc() failed for source_id=' || g_header_rec.source_doc_id || ' target_id=' || x_document_number);
2874: -- Message count
2875: --x_msg_data
2876: -- message data
2877: --x_return_status
2878: -- FND_API.G_RET_STS_UNEXP_ERROR - for unexpected error
2879: --x_cpa_enabled
2880: -- Y if creation of CPA from sourcing is enabled
2881: -- N if creation of CPA from sourcing is disabled.
2882: --Testing:
2898: l_api_version CONSTANT VARCHAR2(5) := '1.0';
2899:
2900: BEGIN
2901:
2902: IF NOT (FND_API.compatible_api_call(l_api_version
2903: ,p_api_version
2904: ,l_api_name
2905: ,l_pkg_name)) THEN
2906: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2902: IF NOT (FND_API.compatible_api_call(l_api_version
2903: ,p_api_version
2904: ,l_api_name
2905: ,l_pkg_name)) THEN
2906: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2907: END IF;
2908:
2909: -- initialize API return status to success
2910: x_return_status:= FND_API.G_RET_STS_SUCCESS;
2906: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2907: END IF;
2908:
2909: -- initialize API return status to success
2910: x_return_status:= FND_API.G_RET_STS_SUCCESS;
2911:
2912: -- initialize meesage list
2913: IF (FND_API.to_Boolean(nvl(p_init_msg_list,FND_API.G_FALSE))) THEN
2914: FND_MSG_PUB.initialize;
2909: -- initialize API return status to success
2910: x_return_status:= FND_API.G_RET_STS_SUCCESS;
2911:
2912: -- initialize meesage list
2913: IF (FND_API.to_Boolean(nvl(p_init_msg_list,FND_API.G_FALSE))) THEN
2914: FND_MSG_PUB.initialize;
2915: END IF;
2916:
2917: x_cpa_enabled := 'Y';
2917: x_cpa_enabled := 'Y';
2918:
2919: EXCEPTION
2920: WHEN OTHERS THEN
2921: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2922: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2923: FND_MSG_PUB.add_exc_msg(l_pkg_name, l_api_name,SQLERRM);
2924: IF ( FND_LOG.level_unexpected >= fnd_log.g_current_runtime_level) then
2925: FND_LOG.string(log_level => FND_LOG.level_unexpected
2967: l_api_name CONSTANT VARCHAR2(30) := 'get_display_line_number';
2968: l_api_version CONSTANT NUMBER := 1.0;
2969:
2970: begin
2971: IF NOT (FND_API.compatible_api_call(l_api_version,
2972: p_api_version,
2973: l_api_name,
2974: l_pkg_name)) THEN
2975: FND_MSG_PUB.Count_and_Get(p_count => x_msg_count,
2973: l_api_name,
2974: l_pkg_name)) THEN
2975: FND_MSG_PUB.Count_and_Get(p_count => x_msg_count,
2976: p_data => x_msg_data);
2977: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2978: END IF;
2979:
2980: -- initialize meesage list
2981: IF (FND_API.to_Boolean(nvl(p_init_msg_list, FND_API.G_FALSE))) THEN
2977: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2978: END IF;
2979:
2980: -- initialize meesage list
2981: IF (FND_API.to_Boolean(nvl(p_init_msg_list, FND_API.G_FALSE))) THEN
2982: FND_MSG_PUB.initialize();
2983: END IF;
2984:
2985: begin
3007:
3008: END IF;
3009: exception
3010: when others then
3011: x_return_status := FND_API.G_RET_STS_ERROR;
3012: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3013: FND_MSG_PUB.add_exc_msg(l_pkg_name, l_api_name, SQLERRM);
3014: IF ( FND_LOG.level_error >= fnd_log.g_current_runtime_level) then
3015: FND_LOG.string(log_level => FND_LOG.level_error,
3021: p_data => x_msg_data);
3022: return;
3023: end;
3024:
3025: x_return_status := fnd_api.g_ret_sts_success;
3026:
3027: exception
3028: when others then
3029: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3025: x_return_status := fnd_api.g_ret_sts_success;
3026:
3027: exception
3028: when others then
3029: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3030: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3031: FND_MSG_PUB.add_exc_msg(l_pkg_name, l_api_name, SQLERRM);
3032: IF (FND_LOG.level_unexpected >= fnd_log.g_current_runtime_level) then
3033: FND_LOG.string(log_level => FND_LOG.level_unexpected,
3472: END LOOP;
3473:
3474: EXCEPTION
3475: WHEN NO_DATA_FOUND THEN
3476: x_result := FND_API.G_RET_STS_SUCCESS;
3477: x_error_code := null;
3478: x_error_message := NULL;
3479: -- logme('in NO_DATA_FOUND');
3480:
3480:
3481: RETURN;
3482:
3483: WHEN OTHERS THEN
3484: x_result := FND_API.G_RET_STS_ERROR ;
3485: x_error_code := 'UNKNOWN_ERROR';
3486: fnd_message.set_name('PON', 'PON_AUC_PLSQL_ERR');
3487: fnd_message.set_token('PACKAGE','PON_SOURCING_OPENAPI_GRP');
3488: fnd_message.set_token('PROCEDURE','maintain_clm_relations');