The following lines contain the word 'select', 'insert', 'update' or 'delete':
G_RECORD_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_DELETED;
G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_LOGICALLY_DELETED;
G_LOCK_RECORD_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_LOCK_RECORD_DELETED;
x_last_updated_by OUT NOCOPY NUMBER,
x_last_update_login OUT NOCOPY NUMBER,
x_last_update_date OUT NOCOPY DATE,
--added for 10+ word integration and deviations report
x_authoring_party_code OUT NOCOPY VARCHAR2,
x_contract_source_code OUT NOCOPY VARCHAR2,
x_approval_abstract_text OUT NOCOPY CLOB,
x_autogen_deviations_flag OUT NOCOPY VARCHAR2,
--added for bug# 3990983
x_source_change_allowed_flag OUT NOCOPY VARCHAR2,
x_lock_terms_flag OUT NOCOPY VARCHAR2,
x_enable_reporting_flag OUT NOCOPY VARCHAR2,
x_contract_admin_id OUT NOCOPY NUMBER,
x_legal_contact_id OUT NOCOPY NUMBER,
x_locked_by_user_id OUT NOCOPY NUMBER
) RETURN VARCHAR2 IS
l_api_name CONSTANT VARCHAR2(30) := 'Get_Rec';
SELECT
TEMPLATE_ID,
DOC_NUMBERING_SCHEME,
DOCUMENT_NUMBER,
ARTICLE_EFFECTIVE_DATE,
CONFIG_HEADER_ID,
CONFIG_REVISION_NUMBER,
VALID_CONFIG_YN,
ORIG_SYSTEM_REFERENCE_CODE,
ORIG_SYSTEM_REFERENCE_ID1,
ORIG_SYSTEM_REFERENCE_ID2,
OBJECT_VERSION_NUMBER,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
AUTHORING_PARTY_CODE,
CONTRACT_SOURCE_CODE,
APPROVAL_ABSTRACT_TEXT ,
AUTOGEN_DEVIATIONS_FLAG,
-- Fix for bug# 3990983
SOURCE_CHANGE_ALLOWED_FLAG,
LOCK_TERMS_FLAG,
ENABLE_REPORTING_FLAG,
CONTRACT_ADMIN_ID,
LEGAL_CONTACT_ID,
LOCKED_BY_USER_ID
FROM OKC_TEMPLATE_USAGES t
WHERE t.DOCUMENT_TYPE = cp_document_type and
t.DOCUMENT_ID = cp_document_id;
x_last_updated_by,
x_last_update_login,
x_last_update_date,
x_authoring_party_code,
x_contract_source_code,
x_approval_abstract_text,
x_autogen_deviations_flag,
x_source_change_allowed_flag , -- Fix for bug# 3990983
x_lock_terms_flag,
x_enable_reporting_flag,
x_contract_admin_id,
x_legal_contact_id,
x_locked_by_user_id;
l_last_updated_by OKC_TEMPLATE_USAGES.LAST_UPDATED_BY%TYPE;
l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
l_last_update_date OKC_TEMPLATE_USAGES.LAST_UPDATE_DATE%TYPE;
x_last_updated_by => l_last_updated_by,
x_last_update_login => l_last_update_login,
x_last_update_date => l_last_update_date,
x_authoring_party_code => x_authoring_party_code ,
x_contract_source_code => x_contract_source_code ,
x_approval_abstract_text => x_approval_abstract_text,
x_autogen_deviations_flag => x_autogen_deviations_flag,
-- Fix for bug# 3990983
x_source_change_allowed_flag => x_source_change_allowed_flag,
x_lock_terms_flag => x_lock_terms_flag,
x_enable_reporting_flag => x_enable_reporting_flag,
x_contract_admin_id => x_contract_admin_id,
x_legal_contact_id => x_legal_contact_id,
x_locked_by_user_id => x_locked_by_user_id
);
SELECT '!'
FROM okc_terms_templates_all
WHERE TEMPLATE_ID = p_template_id;
SELECT '!'
FROM okc_number_schemes_b
WHERE num_scheme_id = p_doc_numbering_scheme;
SELECT '!'
FROM ??unknown_table??
WHERE ??CONFIG_HEADER_ID?? = p_config_header_id;
SELECT 'Y'
FROM OKC_RESP_PARTIES_B del, OKC_BUS_DOC_TYPES_B types
WHERE del.document_type_class = types.document_type_class
AND types.document_type = p_document_type
AND del.resp_party_code = p_party_code;
l_last_updated_by OKC_TEMPLATE_USAGES.LAST_UPDATED_BY%TYPE;
l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
l_last_update_date OKC_TEMPLATE_USAGES.LAST_UPDATE_DATE%TYPE;
FUNCTION Insert_Row(
p_document_type IN VARCHAR2,
p_document_id IN NUMBER,
p_template_id IN NUMBER,
p_doc_numbering_scheme IN NUMBER,
p_document_number IN VARCHAR2,
p_article_effective_date IN DATE,
p_config_header_id IN NUMBER,
p_config_revision_number IN NUMBER,
p_valid_config_yn IN VARCHAR2,
p_orig_system_reference_code IN VARCHAR2,
p_orig_system_reference_id1 IN NUMBER,
p_orig_system_reference_id2 IN NUMBER,
p_object_version_number IN NUMBER,
p_created_by IN NUMBER,
p_creation_date IN DATE,
p_last_updated_by IN NUMBER,
p_last_update_login IN NUMBER,
p_last_update_date IN DATE,
--added for 10+ word integration and deviations report
p_authoring_party_code IN VARCHAR2,
p_contract_source_code IN VARCHAR2,
p_approval_abstract_text IN CLOB,
p_autogen_deviations_flag IN VARCHAR2,
--Fix for bug# 3990983
p_source_change_allowed_flag IN VARCHAR2,
p_lock_terms_flag IN VARCHAR2 ,
p_enable_reporting_flag IN VARCHAR2 ,
p_contract_admin_id IN NUMBER ,
p_legal_contact_id IN NUMBER,
p_locked_by_user_id IN NUMBER,
p_contract_expert_finish_flag IN VARCHAR2
) RETURN VARCHAR2 IS
l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3600: Entered Insert_Row function');
INSERT INTO OKC_TEMPLATE_USAGES(
DOCUMENT_TYPE,
DOCUMENT_ID,
TEMPLATE_ID,
DOC_NUMBERING_SCHEME,
DOCUMENT_NUMBER,
ARTICLE_EFFECTIVE_DATE,
CONFIG_HEADER_ID,
CONFIG_REVISION_NUMBER,
VALID_CONFIG_YN,
ORIG_SYSTEM_REFERENCE_CODE,
ORIG_SYSTEM_REFERENCE_ID1,
ORIG_SYSTEM_REFERENCE_ID2,
OBJECT_VERSION_NUMBER,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
AUTHORING_PARTY_CODE,
CONTRACT_SOURCE_CODE ,
APPROVAL_ABSTRACT_TEXT ,
AUTOGEN_DEVIATIONS_FLAG,
--Fix for bug# 3990983
SOURCE_CHANGE_ALLOWED_FLAG,
lock_terms_flag,
enable_reporting_flag,
contract_admin_id,
legal_contact_id,
locked_by_user_id,
contract_expert_finish_flag)
VALUES (
p_document_type,
p_document_id,
p_template_id,
p_doc_numbering_scheme,
p_document_number,
p_article_effective_date,
p_config_header_id,
p_config_revision_number,
p_valid_config_yn,
p_orig_system_reference_code,
p_orig_system_reference_id1,
p_orig_system_reference_id2,
p_object_version_number,
p_created_by,
p_creation_date,
p_last_updated_by,
p_last_update_login,
p_last_update_date,
p_authoring_party_code,
p_contract_source_code,
p_approval_abstract_text,
p_autogen_deviations_flag,
-- Fix for bug# 3990983
p_source_change_allowed_flag,
p_lock_terms_flag,
p_enable_reporting_flag,
p_contract_admin_id,
p_legal_contact_id,
p_locked_by_user_id,
p_contract_expert_finish_flag
);
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3700: Leaving Insert_Row');
FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'3800: Leaving Insert_Row:OTHERS Exception');
END Insert_Row;
PROCEDURE Insert_Row(
p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
x_return_status OUT NOCOPY VARCHAR2,
p_document_type IN VARCHAR2,
p_document_id IN NUMBER,
p_template_id IN NUMBER,
p_doc_numbering_scheme IN NUMBER,
p_document_number IN VARCHAR2,
p_article_effective_date IN DATE,
p_config_header_id IN NUMBER,
p_config_revision_number IN NUMBER,
p_valid_config_yn IN VARCHAR2,
p_orig_system_reference_code IN VARCHAR2,
p_orig_system_reference_id1 IN NUMBER,
p_orig_system_reference_id2 IN NUMBER,
--added for 10+ word integration and deviations report
p_authoring_party_code IN VARCHAR2,
p_contract_source_code IN VARCHAR2,
p_approval_abstract_text IN CLOB,
p_autogen_deviations_flag IN VARCHAR2,
--Fix for bug# 3990983
p_source_change_allowed_flag IN VARCHAR2,
x_document_type OUT NOCOPY VARCHAR2,
x_document_id OUT NOCOPY NUMBER,
p_lock_terms_flag IN VARCHAR2 := NULL,
p_enable_reporting_flag IN VARCHAR2 := NULL,
p_contract_admin_id IN NUMBER := NULL,
p_legal_contact_id IN NUMBER := NULL,
p_locked_by_user_id IN NUMBER := NULL,
p_contract_expert_finish_flag IN VARCHAR2 := NULL
) IS
l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
l_last_updated_by OKC_TEMPLATE_USAGES.LAST_UPDATED_BY%TYPE;
l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
l_last_update_date OKC_TEMPLATE_USAGES.LAST_UPDATE_DATE%TYPE;
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4200: Entered Insert_Row');
l_last_update_date := l_creation_date;
l_last_updated_by := l_created_by;
l_last_update_login := Fnd_Global.Login_Id;
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4300: Call the internal Insert_Row for Base Table');
x_return_status := Insert_Row(
p_document_type => p_document_type,
p_document_id => p_document_id,
p_template_id => p_template_id,
p_doc_numbering_scheme => p_doc_numbering_scheme,
p_document_number => p_document_number,
p_article_effective_date => p_article_effective_date,
p_config_header_id => p_config_header_id,
p_config_revision_number => p_config_revision_number,
p_valid_config_yn => p_valid_config_yn,
p_orig_system_reference_code => p_orig_system_reference_code,
p_orig_system_reference_id1 => p_orig_system_reference_id1,
p_orig_system_reference_id2 => p_orig_system_reference_id2,
p_object_version_number => l_object_version_number,
p_created_by => l_created_by,
p_creation_date => l_creation_date,
p_last_updated_by => l_last_updated_by,
p_last_update_login => l_last_update_login,
p_last_update_date => l_last_update_date,
p_authoring_party_code => l_authoring_party_code,
p_contract_source_code => p_contract_source_code,
p_approval_abstract_text => p_approval_abstract_text,
p_autogen_deviations_flag => p_autogen_deviations_flag,
-- Fix for bug# 3990983
p_source_change_allowed_flag => p_source_change_allowed_flag,
p_lock_terms_flag => p_lock_terms_flag,
p_enable_reporting_flag => p_enable_reporting_flag,
p_contract_admin_id => p_contract_admin_id,
p_legal_contact_id => p_legal_contact_id,
p_locked_by_user_id => p_locked_by_user_id,
p_contract_expert_finish_flag => p_contract_expert_finish_flag
);
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4500: Leaving Insert_Row');
FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4600: Leaving Insert_Row:FND_API.G_EXC_ERROR Exception');
FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4700: Leaving Insert_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4800: Leaving Insert_Row because of EXCEPTION: '||sqlerrm);
END Insert_Row;
SELECT object_version_number
FROM OKC_TEMPLATE_USAGES
WHERE DOCUMENT_TYPE = cp_document_type AND DOCUMENT_ID = cp_document_id
AND (object_version_number = cp_object_version_number OR cp_object_version_number IS NULL)
FOR UPDATE OF object_version_number NOWAIT;
SELECT object_version_number
FROM OKC_TEMPLATE_USAGES
WHERE DOCUMENT_TYPE = cp_document_type AND DOCUMENT_ID = cp_document_id;
Okc_Api.Set_Message(G_FND_APP,G_LOCK_RECORD_DELETED,
'ENTITYNAME','OKC_TEMPLATE_USAGES',
'PKEY',p_document_type||':'||p_document_id,
'OVN',p_object_version_number
);
Okc_Api.Set_Message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
FUNCTION Update_Row(
p_document_type IN VARCHAR2,
p_document_id IN NUMBER,
p_template_id IN NUMBER,
p_doc_numbering_scheme IN NUMBER,
p_document_number IN VARCHAR2,
p_article_effective_date IN DATE,
p_config_header_id IN NUMBER,
p_config_revision_number IN NUMBER,
p_valid_config_yn IN VARCHAR2,
p_orig_system_reference_code IN VARCHAR2,
p_orig_system_reference_id1 IN NUMBER,
p_orig_system_reference_id2 IN NUMBER,
p_object_version_number IN NUMBER,
--p_created_by IN NUMBER,
--p_creation_date IN DATE,
p_last_updated_by IN NUMBER,
p_last_update_login IN NUMBER,
p_last_update_date IN DATE,
--added for 10+ word integration and deviations report
p_authoring_party_code IN VARCHAR2,
p_contract_source_code IN VARCHAR2,
p_approval_abstract_text IN CLOB,
p_autogen_deviations_flag IN VARCHAR2,
-- Fix for bug# 3990983
p_source_change_allowed_flag IN VARCHAR2,
p_lock_terms_flag IN VARCHAR2 ,
p_enable_reporting_flag IN VARCHAR2 ,
p_contract_admin_id IN NUMBER ,
p_legal_contact_id IN NUMBER,
p_locked_by_user_id IN NUMBER
) RETURN VARCHAR2 IS
l_api_name CONSTANT VARCHAR2(30) := 'update_row';
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'6400: Entered Update_Row');
UPDATE OKC_TEMPLATE_USAGES
SET TEMPLATE_ID = p_template_id,
DOC_NUMBERING_SCHEME = p_doc_numbering_scheme,
DOCUMENT_NUMBER = p_document_number,
ARTICLE_EFFECTIVE_DATE = p_article_effective_date,
CONFIG_HEADER_ID = p_config_header_id,
CONFIG_REVISION_NUMBER = p_config_revision_number,
VALID_CONFIG_YN = p_valid_config_yn,
ORIG_SYSTEM_REFERENCE_CODE = p_orig_system_reference_code,
ORIG_SYSTEM_REFERENCE_ID1 = p_orig_system_reference_id1,
ORIG_SYSTEM_REFERENCE_ID2 = p_orig_system_reference_id2,
OBJECT_VERSION_NUMBER = p_object_version_number,
--CREATED_BY = p_created_by,
--CREATION_DATE = p_creation_date,
LAST_UPDATED_BY = p_last_updated_by,
LAST_UPDATE_LOGIN = p_last_update_login,
LAST_UPDATE_DATE = p_last_update_date,
AUTHORING_PARTY_CODE = p_authoring_party_code,
CONTRACT_SOURCE_CODE = p_contract_source_code,
APPROVAL_ABSTRACT_TEXT = p_approval_abstract_text,
AUTOGEN_DEVIATIONS_FLAG = p_autogen_deviations_flag,
-- Fix for bug# 3990983
SOURCE_CHANGE_ALLOWED_FLAG = p_source_change_allowed_flag,
lock_terms_flag = p_lock_terms_flag,
enable_reporting_flag = p_enable_reporting_flag,
contract_admin_id = p_contract_admin_id,
legal_contact_id = p_legal_contact_id,
locked_by_user_id = p_locked_by_user_id
WHERE DOCUMENT_TYPE = p_document_type AND DOCUMENT_ID = p_document_id;
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'6500: Leaving Update_Row');
FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'6600: Leaving Update_Row because of EXCEPTION: '||sqlerrm);
END Update_Row;
PROCEDURE Update_Row(
p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
x_return_status OUT NOCOPY VARCHAR2,
p_document_type IN VARCHAR2,
p_document_id IN NUMBER,
p_template_id IN NUMBER := NULL,
p_doc_numbering_scheme IN NUMBER := NULL,
p_document_number IN VARCHAR2 := NULL,
p_article_effective_date IN DATE := NULL,
p_config_header_id IN NUMBER := NULL,
p_config_revision_number IN NUMBER := NULL,
p_valid_config_yn IN VARCHAR2 := NULL,
p_orig_system_reference_code IN VARCHAR2 := NULL,
p_orig_system_reference_id1 IN NUMBER := NULL,
p_orig_system_reference_id2 IN NUMBER := NULL,
--added for 10+ word integration and deviations report
p_object_version_number IN NUMBER := NULL,
p_authoring_party_code IN VARCHAR2 := NULL,
p_contract_source_code IN VARCHAR2 := NULL,
p_approval_abstract_text IN CLOB := NULL,
p_autogen_deviations_flag IN VARCHAR2 := NULL,
-- Fix for bug# 3990983
p_source_change_allowed_flag IN VARCHAR2:= NULL ,
p_lock_terms_flag IN VARCHAR2 := NULL,
p_enable_reporting_flag IN VARCHAR2 := NULL,
p_contract_admin_id IN NUMBER := NULL,
p_legal_contact_id IN NUMBER := NULL,
p_locked_by_user_id IN NUMBER := NULL
) IS
l_api_name CONSTANT VARCHAR2(30) := 'update_row';
l_last_updated_by OKC_TEMPLATE_USAGES.LAST_UPDATED_BY%TYPE;
l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
l_last_update_date OKC_TEMPLATE_USAGES.LAST_UPDATE_DATE%TYPE;
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7000: Entered Update_Row');
l_last_update_date := SYSDATE;
l_last_updated_by := FND_GLOBAL.USER_ID;
l_last_update_login := FND_GLOBAL.LOGIN_ID;
x_return_status := Update_Row(
p_document_type => p_document_type,
p_document_id => p_document_id,
p_template_id => l_template_id,
p_doc_numbering_scheme => l_doc_numbering_scheme,
p_document_number => l_document_number,
p_article_effective_date => l_article_effective_date,
p_config_header_id => l_config_header_id,
p_config_revision_number => l_config_revision_number,
p_valid_config_yn => l_valid_config_yn,
p_orig_system_reference_code => l_orig_system_reference_code,
p_orig_system_reference_id1 => l_orig_system_reference_id1,
p_orig_system_reference_id2 => l_orig_system_reference_id2,
p_object_version_number => l_object_version_number,
--p_created_by => l_created_by,
--p_creation_date => l_creation_date,
p_last_updated_by => l_last_updated_by,
p_last_update_login => l_last_update_login,
p_last_update_date => l_last_update_date,
p_authoring_party_code => l_authoring_party_code,
p_contract_source_code => l_contract_source_code,
p_approval_abstract_text => l_approval_abstract_text,
p_autogen_deviations_flag => l_autogen_deviations_flag,
-- Fix for bug# 3990983
p_source_change_allowed_flag => l_source_change_allowed_flag,
p_lock_terms_flag => l_lock_terms_flag,
p_enable_reporting_flag => l_enable_reporting_flag,
p_contract_admin_id => l_contract_admin_id,
p_legal_contact_id => l_legal_contact_id,
p_locked_by_user_id => l_locked_by_user_id
);
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7800: Leaving Update_Row');
FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'7900: Leaving Update_Row:FND_API.G_EXC_ERROR Exception');
FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'8000: Leaving Update_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'8100: Leaving Update_Row because of EXCEPTION: '||sqlerrm);
END Update_Row;
FUNCTION Delete_Row(
p_document_type IN VARCHAR2,
p_document_id IN NUMBER
) RETURN VARCHAR2 IS
l_api_name CONSTANT VARCHAR2(30) := 'delete_row';
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8200: Entered Delete_Row');
DELETE FROM OKC_TEMPLATE_USAGES WHERE DOCUMENT_TYPE = p_DOCUMENT_TYPE AND DOCUMENT_ID = p_DOCUMENT_ID;
DELETE FROM OKC_XPRT_DOC_QUES_RESPONSE WHERE DOC_TYPE = p_DOCUMENT_TYPE AND DOC_ID = p_DOCUMENT_ID;
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8300: Leaving Delete_Row');
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8400: Leaving Delete_Row because of EXCEPTION: '||sqlerrm);
END Delete_Row;
PROCEDURE Delete_Row(
x_return_status OUT NOCOPY VARCHAR2,
p_document_type IN VARCHAR2,
p_document_id IN NUMBER,
p_object_version_number IN NUMBER
, p_retain_lock_xprt_yn IN VARCHAR2 := 'N' -- Conc Mod Changes
) IS
l_api_name CONSTANT VARCHAR2(30) := 'Delete_Row';
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8800: Entered Delete_Row');
x_return_status := Delete_Row( p_document_type => p_document_type,p_document_id => p_document_id );
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'9300: Leaving Delete_Row');
FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'9400: Leaving Delete_Row:FND_API.G_EXC_ERROR Exception');
FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'9500: Leaving Delete_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'9600: Leaving Delete_Row because of EXCEPTION: '||sqlerrm);
END Delete_Row;
INSERT INTO OKC_TEMPLATE_USAGES_H (
major_version,
DOCUMENT_TYPE,
DOCUMENT_ID,
TEMPLATE_ID,
DOC_NUMBERING_SCHEME,
DOCUMENT_NUMBER,
ARTICLE_EFFECTIVE_DATE,
CONFIG_HEADER_ID,
CONFIG_REVISION_NUMBER,
VALID_CONFIG_YN,
ORIG_SYSTEM_REFERENCE_CODE,
ORIG_SYSTEM_REFERENCE_ID1,
ORIG_SYSTEM_REFERENCE_ID2,
OBJECT_VERSION_NUMBER,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
AUTHORING_PARTY_CODE,
CONTRACT_SOURCE_CODE,
APPROVAL_ABSTRACT_TEXT,
AUTOGEN_DEVIATIONS_FLAG,
-- Fix for bug# 3990983
SOURCE_CHANGE_ALLOWED_FLAG,
LOCK_TERMS_FLAG,
ENABLE_REPORTING_FLAG,
CONTRACT_ADMIN_ID,
LEGAL_CONTACT_ID,
LOCKED_BY_USER_ID,
CONTRACT_EXPERT_FINISH_FLAG)
SELECT
p_major_version,
DOCUMENT_TYPE,
DOCUMENT_ID,
TEMPLATE_ID,
DOC_NUMBERING_SCHEME,
DOCUMENT_NUMBER,
ARTICLE_EFFECTIVE_DATE,
CONFIG_HEADER_ID,
CONFIG_REVISION_NUMBER,
VALID_CONFIG_YN,
ORIG_SYSTEM_REFERENCE_CODE,
ORIG_SYSTEM_REFERENCE_ID1,
ORIG_SYSTEM_REFERENCE_ID2,
OBJECT_VERSION_NUMBER,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
AUTHORING_PARTY_CODE,
CONTRACT_SOURCE_CODE,
APPROVAL_ABSTRACT_TEXT,
AUTOGEN_DEVIATIONS_FLAG,
-- Fix for bug# 3990983
SOURCE_CHANGE_ALLOWED_FLAG,
LOCK_TERMS_FLAG,
ENABLE_REPORTING_FLAG,
CONTRACT_ADMIN_ID,
LEGAL_CONTACT_ID,
LOCKED_BY_USER_ID,
CONTRACT_EXPERT_FINISH_FLAG
FROM OKC_TEMPLATE_USAGES
WHERE document_type = p_doc_type and document_id = p_doc_id;
INSERT INTO OKC_TEMPLATE_USAGES (
DOCUMENT_TYPE,
DOCUMENT_ID,
TEMPLATE_ID,
DOC_NUMBERING_SCHEME,
DOCUMENT_NUMBER,
ARTICLE_EFFECTIVE_DATE,
CONFIG_HEADER_ID,
CONFIG_REVISION_NUMBER,
VALID_CONFIG_YN,
ORIG_SYSTEM_REFERENCE_CODE,
ORIG_SYSTEM_REFERENCE_ID1,
ORIG_SYSTEM_REFERENCE_ID2,
OBJECT_VERSION_NUMBER,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
AUTHORING_PARTY_CODE,
CONTRACT_SOURCE_CODE,
APPROVAL_ABSTRACT_TEXT,
AUTOGEN_DEVIATIONS_FLAG,
-- Fix for bug# 3990983
SOURCE_CHANGE_ALLOWED_FLAG,
LOCK_TERMS_FLAG,
ENABLE_REPORTING_FLAG,
CONTRACT_ADMIN_ID,
LEGAL_CONTACT_ID,
LOCKED_BY_USER_ID,
CONTRACT_EXPERT_FINISH_FLAG)
SELECT
DOCUMENT_TYPE,
DOCUMENT_ID,
TEMPLATE_ID,
DOC_NUMBERING_SCHEME,
DOCUMENT_NUMBER,
ARTICLE_EFFECTIVE_DATE,
CONFIG_HEADER_ID,
CONFIG_REVISION_NUMBER,
VALID_CONFIG_YN,
ORIG_SYSTEM_REFERENCE_CODE,
ORIG_SYSTEM_REFERENCE_ID1,
ORIG_SYSTEM_REFERENCE_ID2,
OBJECT_VERSION_NUMBER,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
AUTHORING_PARTY_CODE,
CONTRACT_SOURCE_CODE,
APPROVAL_ABSTRACT_TEXT,
AUTOGEN_DEVIATIONS_FLAG,
-- Fix for bug# 3990983
SOURCE_CHANGE_ALLOWED_FLAG,
LOCK_TERMS_FLAG,
ENABLE_REPORTING_FLAG,
CONTRACT_ADMIN_ID,
LEGAL_CONTACT_ID,
LOCKED_BY_USER_ID,
CONTRACT_EXPERT_FINISH_FLAG
FROM OKC_TEMPLATE_USAGES_H
WHERE document_type = p_doc_type and document_id = p_doc_id AND major_version = p_major_version;
FUNCTION Delete_Version(
p_doc_type IN VARCHAR2,
p_doc_id IN NUMBER,
p_major_version IN NUMBER
) RETURN VARCHAR2 IS
l_api_name CONSTANT VARCHAR2(30) := 'delete_version';
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7200: Entered Delete_Version');
DELETE
FROM OKC_TEMPLATE_USAGES_H
WHERE document_type = p_doc_type
AND document_id = p_doc_id
AND major_version = p_major_version;
--If contract expert uses new okc rules engine, then delete resposnes from history table.
IF nvl(fnd_profile.value('OKC_USE_CONTRACTS_RULES_ENGINE'), 'N') = 'Y' THEN --okc rules engine
OKC_XPRT_RULES_ENGINE_PVT.delete_xprt_responses_version(p_doc_id, p_doc_type, p_major_version); -- deleting responses from history table
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7300: Leaving Delete_Version');
FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'7400: Leaving Delete_Version because of EXCEPTION: '||sqlerrm);
END Delete_Version;
PROCEDURE Update_Template_Id(
x_return_status OUT NOCOPY VARCHAR2,
p_old_template_id IN NUMBER,
p_new_template_id IN NUMBER
) IS
l_api_name CONSTANT VARCHAR2(30) := 'Update_Template_Id';
SELECT template_id
FROM OKC_ALLOWED_TMPL_USAGES
WHERE TEMPLATE_ID = p_old_template_id
FOR UPDATE OF template_id NOWAIT;
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1100: Entered Update_Template_Id');
UPDATE okc_allowed_tmpl_usages
SET template_id = p_new_template_id ,
OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER+1,
LAST_UPDATED_BY = FND_GLOBAL.USER_ID,
LAST_UPDATE_LOGIN = FND_GLOBAL.LOGIN_ID,
LAST_UPDATE_DATE = Sysdate
WHERE template_id= p_old_template_id;
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1400: Leaving Update_Template_Id');
FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1500: Leaving Update_Template_Id: E_Resource_Busy Exception');
FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1600: Leaving Update_Template_Id because of EXCEPTION: '||sqlerrm);
END Update_Template_Id;
PROCEDURE Delete_Set(
x_return_status OUT NOCOPY VARCHAR2,
p_template_id IN NUMBER
) IS
l_api_name CONSTANT VARCHAR2(30) := 'Delete_Set';
SELECT rowid
FROM OKC_ALLOWED_TMPL_USAGES
WHERE TEMPLATE_ID = p_template_id
FOR UPDATE NOWAIT;
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entered Delete_Set');
DELETE
FROM OKC_ALLOWED_TMPL_USAGES
WHERE TEMPLATE_ID = p_template_id;
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'400: Leaving Delete_Set');
FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'500: Leaving Delete_Set:E_Resource_Busy Exception');
FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'600: Leaving Delete_Set because of EXCEPTION: '||sqlerrm);
END Delete_Set;