[Home] [Help]
1: PACKAGE BODY OKC_TEMPLATE_USAGES_PVT AS
2: /* $Header: OKCVTMPLUSGB.pls 120.3.12020000.2 2012/07/18 11:17:23 harchand ship $ */
3:
4:
5: ---------------------------------------------------------------------------
26: G_RECORD_VALID_LEVEL CONSTANT NUMBER := OKC_API.G_RECORD_VALID_LEVEL;
27: ---------------------------------------------------------------------------
28: -- GLOBAL VARIABLES
29: ---------------------------------------------------------------------------
30: G_PKG_NAME CONSTANT VARCHAR2(40) := 'OKC_TEMPLATE_USAGES_PVT';
31: G_MODULE CONSTANT VARCHAR2(200) := 'okc.plsql.'||G_PKG_NAME||'.';
32: G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
33: G_INTERNAL_PARTY_CODE CONSTANT VARCHAR2(30) := 'INTERNAL_ORG';
34:
50: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_CODE';
51:
52:
53: ---------------------------------------------------------------------------
54: -- FUNCTION get_rec for: OKC_TEMPLATE_USAGES
55: ---------------------------------------------------------------------------
56: FUNCTION Get_Rec (
57: p_document_type IN VARCHAR2,
58: p_document_id IN NUMBER,
87: x_locked_by_user_id OUT NOCOPY NUMBER
88:
89: ) RETURN VARCHAR2 IS
90: l_api_name CONSTANT VARCHAR2(30) := 'Get_Rec';
91: CURSOR OKC_TEMPLATE_USAGES_pk_csr (cp_document_type IN VARCHAR2,cp_document_id IN NUMBER) IS
92: SELECT
93: TEMPLATE_ID,
94: DOC_NUMBERING_SCHEME,
95: DOCUMENT_NUMBER,
116: ENABLE_REPORTING_FLAG,
117: CONTRACT_ADMIN_ID,
118: LEGAL_CONTACT_ID,
119: LOCKED_BY_USER_ID
120: FROM OKC_TEMPLATE_USAGES t
121: WHERE t.DOCUMENT_TYPE = cp_document_type and
122: t.DOCUMENT_ID = cp_document_id;
123: BEGIN
124:
128: END IF;
129:
130:
131: -- Get current database values
132: OPEN OKC_TEMPLATE_USAGES_pk_csr (p_document_type, p_document_id);
133: FETCH OKC_TEMPLATE_USAGES_pk_csr INTO
134: x_template_id,
135: x_doc_numbering_scheme,
136: x_document_number,
129:
130:
131: -- Get current database values
132: OPEN OKC_TEMPLATE_USAGES_pk_csr (p_document_type, p_document_id);
133: FETCH OKC_TEMPLATE_USAGES_pk_csr INTO
134: x_template_id,
135: x_doc_numbering_scheme,
136: x_document_number,
137: x_article_effective_date,
158: x_contract_admin_id,
159: x_legal_contact_id,
160: x_locked_by_user_id;
161:
162: IF OKC_TEMPLATE_USAGES_pk_csr%NOTFOUND THEN
163: RAISE NO_DATA_FOUND;
164: END IF;
165: CLOSE OKC_TEMPLATE_USAGES_pk_csr;
166:
161:
162: IF OKC_TEMPLATE_USAGES_pk_csr%NOTFOUND THEN
163: RAISE NO_DATA_FOUND;
164: END IF;
165: CLOSE OKC_TEMPLATE_USAGES_pk_csr;
166:
167: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
168: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
169: '500: Leaving get_rec ');
185: p_token1_value => sqlcode,
186: p_token2 => G_SQLERRM_TOKEN,
187: p_token2_value => sqlerrm);
188:
189: IF OKC_TEMPLATE_USAGES_pk_csr%ISOPEN THEN
190: CLOSE OKC_TEMPLATE_USAGES_pk_csr;
191: END IF;
192:
193: RETURN G_RET_STS_UNEXP_ERROR ;
186: p_token2 => G_SQLERRM_TOKEN,
187: p_token2_value => sqlerrm);
188:
189: IF OKC_TEMPLATE_USAGES_pk_csr%ISOPEN THEN
190: CLOSE OKC_TEMPLATE_USAGES_pk_csr;
191: END IF;
192:
193: RETURN G_RET_STS_UNEXP_ERROR ;
194:
194:
195: END Get_Rec;
196:
197: -----------------------------------------
198: -- Set_Attributes for:OKC_TEMPLATE_USAGES --
199: -----------------------------------------
200: FUNCTION Set_Attributes(
201: p_document_type IN VARCHAR2,
202: p_document_id IN NUMBER,
248: x_locked_by_user_id OUT NOCOPY NUMBER
249: ) RETURN VARCHAR2 IS
250: l_api_name CONSTANT VARCHAR2(30) := 'Set_Attributes';
251: l_return_status VARCHAR2(1) := G_RET_STS_SUCCESS;
252: l_object_version_number OKC_TEMPLATE_USAGES.OBJECT_VERSION_NUMBER%TYPE;
253: l_created_by OKC_TEMPLATE_USAGES.CREATED_BY%TYPE;
254: l_creation_date OKC_TEMPLATE_USAGES.CREATION_DATE%TYPE;
255: l_last_updated_by OKC_TEMPLATE_USAGES.LAST_UPDATED_BY%TYPE;
256: l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
249: ) RETURN VARCHAR2 IS
250: l_api_name CONSTANT VARCHAR2(30) := 'Set_Attributes';
251: l_return_status VARCHAR2(1) := G_RET_STS_SUCCESS;
252: l_object_version_number OKC_TEMPLATE_USAGES.OBJECT_VERSION_NUMBER%TYPE;
253: l_created_by OKC_TEMPLATE_USAGES.CREATED_BY%TYPE;
254: l_creation_date OKC_TEMPLATE_USAGES.CREATION_DATE%TYPE;
255: l_last_updated_by OKC_TEMPLATE_USAGES.LAST_UPDATED_BY%TYPE;
256: l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
257: l_last_update_date OKC_TEMPLATE_USAGES.LAST_UPDATE_DATE%TYPE;
250: l_api_name CONSTANT VARCHAR2(30) := 'Set_Attributes';
251: l_return_status VARCHAR2(1) := G_RET_STS_SUCCESS;
252: l_object_version_number OKC_TEMPLATE_USAGES.OBJECT_VERSION_NUMBER%TYPE;
253: l_created_by OKC_TEMPLATE_USAGES.CREATED_BY%TYPE;
254: l_creation_date OKC_TEMPLATE_USAGES.CREATION_DATE%TYPE;
255: l_last_updated_by OKC_TEMPLATE_USAGES.LAST_UPDATED_BY%TYPE;
256: l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
257: l_last_update_date OKC_TEMPLATE_USAGES.LAST_UPDATE_DATE%TYPE;
258: BEGIN
251: l_return_status VARCHAR2(1) := G_RET_STS_SUCCESS;
252: l_object_version_number OKC_TEMPLATE_USAGES.OBJECT_VERSION_NUMBER%TYPE;
253: l_created_by OKC_TEMPLATE_USAGES.CREATED_BY%TYPE;
254: l_creation_date OKC_TEMPLATE_USAGES.CREATION_DATE%TYPE;
255: l_last_updated_by OKC_TEMPLATE_USAGES.LAST_UPDATED_BY%TYPE;
256: l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
257: l_last_update_date OKC_TEMPLATE_USAGES.LAST_UPDATE_DATE%TYPE;
258: BEGIN
259: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
252: l_object_version_number OKC_TEMPLATE_USAGES.OBJECT_VERSION_NUMBER%TYPE;
253: l_created_by OKC_TEMPLATE_USAGES.CREATED_BY%TYPE;
254: l_creation_date OKC_TEMPLATE_USAGES.CREATION_DATE%TYPE;
255: l_last_updated_by OKC_TEMPLATE_USAGES.LAST_UPDATED_BY%TYPE;
256: l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
257: l_last_update_date OKC_TEMPLATE_USAGES.LAST_UPDATE_DATE%TYPE;
258: BEGIN
259: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
260: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
253: l_created_by OKC_TEMPLATE_USAGES.CREATED_BY%TYPE;
254: l_creation_date OKC_TEMPLATE_USAGES.CREATION_DATE%TYPE;
255: l_last_updated_by OKC_TEMPLATE_USAGES.LAST_UPDATED_BY%TYPE;
256: l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
257: l_last_update_date OKC_TEMPLATE_USAGES.LAST_UPDATE_DATE%TYPE;
258: BEGIN
259: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
260: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
261: '700: Entered Set_Attributes ');
476:
477: END Set_Attributes ;
478:
479: ----------------------------------------------
480: -- Validate_Attributes for: OKC_TEMPLATE_USAGES --
481: ----------------------------------------------
482: FUNCTION Validate_Attributes (
483: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
484:
719: -- PROCEDURE Validate_Record
720: -- It calls Item Level Validations and then makes Record Level Validations
721: ---------------------------------------------------------------------------
722: ------------------------------------------
723: -- Validate_Record for:OKC_TEMPLATE_USAGES --
724: ------------------------------------------
725: FUNCTION Validate_Record (
726: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
727:
830: ---------------------------------------------------------------------------
831: -- PROCEDURE validate_row
832: ---------------------------------------------------------------------------
833: ---------------------------------------
834: -- validate_row for:OKC_TEMPLATE_USAGES --
835: ---------------------------------------
836: PROCEDURE validate_row(
837: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
838:
866: p_legal_contact_id IN NUMBER,
867: p_locked_by_user_id IN NUMBER
868: ) IS
869: l_api_name CONSTANT VARCHAR2(30) := 'validate_row';
870: l_template_id OKC_TEMPLATE_USAGES.TEMPLATE_ID%TYPE;
871: l_doc_numbering_scheme OKC_TEMPLATE_USAGES.DOC_NUMBERING_SCHEME%TYPE;
872: l_document_number OKC_TEMPLATE_USAGES.DOCUMENT_NUMBER%TYPE;
873: l_article_effective_date OKC_TEMPLATE_USAGES.ARTICLE_EFFECTIVE_DATE%TYPE;
874: l_config_header_id OKC_TEMPLATE_USAGES.CONFIG_HEADER_ID%TYPE;
867: p_locked_by_user_id IN NUMBER
868: ) IS
869: l_api_name CONSTANT VARCHAR2(30) := 'validate_row';
870: l_template_id OKC_TEMPLATE_USAGES.TEMPLATE_ID%TYPE;
871: l_doc_numbering_scheme OKC_TEMPLATE_USAGES.DOC_NUMBERING_SCHEME%TYPE;
872: l_document_number OKC_TEMPLATE_USAGES.DOCUMENT_NUMBER%TYPE;
873: l_article_effective_date OKC_TEMPLATE_USAGES.ARTICLE_EFFECTIVE_DATE%TYPE;
874: l_config_header_id OKC_TEMPLATE_USAGES.CONFIG_HEADER_ID%TYPE;
875: l_config_revision_number OKC_TEMPLATE_USAGES.CONFIG_REVISION_NUMBER%TYPE;
868: ) IS
869: l_api_name CONSTANT VARCHAR2(30) := 'validate_row';
870: l_template_id OKC_TEMPLATE_USAGES.TEMPLATE_ID%TYPE;
871: l_doc_numbering_scheme OKC_TEMPLATE_USAGES.DOC_NUMBERING_SCHEME%TYPE;
872: l_document_number OKC_TEMPLATE_USAGES.DOCUMENT_NUMBER%TYPE;
873: l_article_effective_date OKC_TEMPLATE_USAGES.ARTICLE_EFFECTIVE_DATE%TYPE;
874: l_config_header_id OKC_TEMPLATE_USAGES.CONFIG_HEADER_ID%TYPE;
875: l_config_revision_number OKC_TEMPLATE_USAGES.CONFIG_REVISION_NUMBER%TYPE;
876: l_valid_config_yn OKC_TEMPLATE_USAGES.VALID_CONFIG_YN%TYPE;
869: l_api_name CONSTANT VARCHAR2(30) := 'validate_row';
870: l_template_id OKC_TEMPLATE_USAGES.TEMPLATE_ID%TYPE;
871: l_doc_numbering_scheme OKC_TEMPLATE_USAGES.DOC_NUMBERING_SCHEME%TYPE;
872: l_document_number OKC_TEMPLATE_USAGES.DOCUMENT_NUMBER%TYPE;
873: l_article_effective_date OKC_TEMPLATE_USAGES.ARTICLE_EFFECTIVE_DATE%TYPE;
874: l_config_header_id OKC_TEMPLATE_USAGES.CONFIG_HEADER_ID%TYPE;
875: l_config_revision_number OKC_TEMPLATE_USAGES.CONFIG_REVISION_NUMBER%TYPE;
876: l_valid_config_yn OKC_TEMPLATE_USAGES.VALID_CONFIG_YN%TYPE;
877: l_object_version_number OKC_TEMPLATE_USAGES.OBJECT_VERSION_NUMBER%TYPE;
870: l_template_id OKC_TEMPLATE_USAGES.TEMPLATE_ID%TYPE;
871: l_doc_numbering_scheme OKC_TEMPLATE_USAGES.DOC_NUMBERING_SCHEME%TYPE;
872: l_document_number OKC_TEMPLATE_USAGES.DOCUMENT_NUMBER%TYPE;
873: l_article_effective_date OKC_TEMPLATE_USAGES.ARTICLE_EFFECTIVE_DATE%TYPE;
874: l_config_header_id OKC_TEMPLATE_USAGES.CONFIG_HEADER_ID%TYPE;
875: l_config_revision_number OKC_TEMPLATE_USAGES.CONFIG_REVISION_NUMBER%TYPE;
876: l_valid_config_yn OKC_TEMPLATE_USAGES.VALID_CONFIG_YN%TYPE;
877: l_object_version_number OKC_TEMPLATE_USAGES.OBJECT_VERSION_NUMBER%TYPE;
878: l_orig_system_reference_code OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_CODE%TYPE;
871: l_doc_numbering_scheme OKC_TEMPLATE_USAGES.DOC_NUMBERING_SCHEME%TYPE;
872: l_document_number OKC_TEMPLATE_USAGES.DOCUMENT_NUMBER%TYPE;
873: l_article_effective_date OKC_TEMPLATE_USAGES.ARTICLE_EFFECTIVE_DATE%TYPE;
874: l_config_header_id OKC_TEMPLATE_USAGES.CONFIG_HEADER_ID%TYPE;
875: l_config_revision_number OKC_TEMPLATE_USAGES.CONFIG_REVISION_NUMBER%TYPE;
876: l_valid_config_yn OKC_TEMPLATE_USAGES.VALID_CONFIG_YN%TYPE;
877: l_object_version_number OKC_TEMPLATE_USAGES.OBJECT_VERSION_NUMBER%TYPE;
878: l_orig_system_reference_code OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_CODE%TYPE;
879: l_orig_system_reference_id1 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID1%TYPE;
872: l_document_number OKC_TEMPLATE_USAGES.DOCUMENT_NUMBER%TYPE;
873: l_article_effective_date OKC_TEMPLATE_USAGES.ARTICLE_EFFECTIVE_DATE%TYPE;
874: l_config_header_id OKC_TEMPLATE_USAGES.CONFIG_HEADER_ID%TYPE;
875: l_config_revision_number OKC_TEMPLATE_USAGES.CONFIG_REVISION_NUMBER%TYPE;
876: l_valid_config_yn OKC_TEMPLATE_USAGES.VALID_CONFIG_YN%TYPE;
877: l_object_version_number OKC_TEMPLATE_USAGES.OBJECT_VERSION_NUMBER%TYPE;
878: l_orig_system_reference_code OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_CODE%TYPE;
879: l_orig_system_reference_id1 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID1%TYPE;
880: l_orig_system_reference_id2 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID2%TYPE;
873: l_article_effective_date OKC_TEMPLATE_USAGES.ARTICLE_EFFECTIVE_DATE%TYPE;
874: l_config_header_id OKC_TEMPLATE_USAGES.CONFIG_HEADER_ID%TYPE;
875: l_config_revision_number OKC_TEMPLATE_USAGES.CONFIG_REVISION_NUMBER%TYPE;
876: l_valid_config_yn OKC_TEMPLATE_USAGES.VALID_CONFIG_YN%TYPE;
877: l_object_version_number OKC_TEMPLATE_USAGES.OBJECT_VERSION_NUMBER%TYPE;
878: l_orig_system_reference_code OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_CODE%TYPE;
879: l_orig_system_reference_id1 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID1%TYPE;
880: l_orig_system_reference_id2 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID2%TYPE;
881:
874: l_config_header_id OKC_TEMPLATE_USAGES.CONFIG_HEADER_ID%TYPE;
875: l_config_revision_number OKC_TEMPLATE_USAGES.CONFIG_REVISION_NUMBER%TYPE;
876: l_valid_config_yn OKC_TEMPLATE_USAGES.VALID_CONFIG_YN%TYPE;
877: l_object_version_number OKC_TEMPLATE_USAGES.OBJECT_VERSION_NUMBER%TYPE;
878: l_orig_system_reference_code OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_CODE%TYPE;
879: l_orig_system_reference_id1 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID1%TYPE;
880: l_orig_system_reference_id2 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID2%TYPE;
881:
882: l_authoring_party_code OKC_TEMPLATE_USAGES.AUTHORING_PARTY_CODE%TYPE;
875: l_config_revision_number OKC_TEMPLATE_USAGES.CONFIG_REVISION_NUMBER%TYPE;
876: l_valid_config_yn OKC_TEMPLATE_USAGES.VALID_CONFIG_YN%TYPE;
877: l_object_version_number OKC_TEMPLATE_USAGES.OBJECT_VERSION_NUMBER%TYPE;
878: l_orig_system_reference_code OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_CODE%TYPE;
879: l_orig_system_reference_id1 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID1%TYPE;
880: l_orig_system_reference_id2 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID2%TYPE;
881:
882: l_authoring_party_code OKC_TEMPLATE_USAGES.AUTHORING_PARTY_CODE%TYPE;
883: l_contract_source_code OKC_TEMPLATE_USAGES.CONTRACT_SOURCE_CODE%TYPE;
876: l_valid_config_yn OKC_TEMPLATE_USAGES.VALID_CONFIG_YN%TYPE;
877: l_object_version_number OKC_TEMPLATE_USAGES.OBJECT_VERSION_NUMBER%TYPE;
878: l_orig_system_reference_code OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_CODE%TYPE;
879: l_orig_system_reference_id1 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID1%TYPE;
880: l_orig_system_reference_id2 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID2%TYPE;
881:
882: l_authoring_party_code OKC_TEMPLATE_USAGES.AUTHORING_PARTY_CODE%TYPE;
883: l_contract_source_code OKC_TEMPLATE_USAGES.CONTRACT_SOURCE_CODE%TYPE;
884: l_approval_abstract_text OKC_TEMPLATE_USAGES.APPROVAL_ABSTRACT_TEXT%TYPE;
878: l_orig_system_reference_code OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_CODE%TYPE;
879: l_orig_system_reference_id1 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID1%TYPE;
880: l_orig_system_reference_id2 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID2%TYPE;
881:
882: l_authoring_party_code OKC_TEMPLATE_USAGES.AUTHORING_PARTY_CODE%TYPE;
883: l_contract_source_code OKC_TEMPLATE_USAGES.CONTRACT_SOURCE_CODE%TYPE;
884: l_approval_abstract_text OKC_TEMPLATE_USAGES.APPROVAL_ABSTRACT_TEXT%TYPE;
885: l_autogen_deviations_flag OKC_TEMPLATE_USAGES.AUTOGEN_DEVIATIONS_FLAG%TYPE;
886: -- Fix for bug# 3990983
879: l_orig_system_reference_id1 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID1%TYPE;
880: l_orig_system_reference_id2 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID2%TYPE;
881:
882: l_authoring_party_code OKC_TEMPLATE_USAGES.AUTHORING_PARTY_CODE%TYPE;
883: l_contract_source_code OKC_TEMPLATE_USAGES.CONTRACT_SOURCE_CODE%TYPE;
884: l_approval_abstract_text OKC_TEMPLATE_USAGES.APPROVAL_ABSTRACT_TEXT%TYPE;
885: l_autogen_deviations_flag OKC_TEMPLATE_USAGES.AUTOGEN_DEVIATIONS_FLAG%TYPE;
886: -- Fix for bug# 3990983
887: l_source_change_allowed_flag OKC_TEMPLATE_USAGES.SOURCE_CHANGE_ALLOWED_FLAG%TYPE;
880: l_orig_system_reference_id2 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID2%TYPE;
881:
882: l_authoring_party_code OKC_TEMPLATE_USAGES.AUTHORING_PARTY_CODE%TYPE;
883: l_contract_source_code OKC_TEMPLATE_USAGES.CONTRACT_SOURCE_CODE%TYPE;
884: l_approval_abstract_text OKC_TEMPLATE_USAGES.APPROVAL_ABSTRACT_TEXT%TYPE;
885: l_autogen_deviations_flag OKC_TEMPLATE_USAGES.AUTOGEN_DEVIATIONS_FLAG%TYPE;
886: -- Fix for bug# 3990983
887: l_source_change_allowed_flag OKC_TEMPLATE_USAGES.SOURCE_CHANGE_ALLOWED_FLAG%TYPE;
888: l_lock_terms_flag OKC_TEMPLATE_USAGES.LOCK_TERMS_FLAG%TYPE;
881:
882: l_authoring_party_code OKC_TEMPLATE_USAGES.AUTHORING_PARTY_CODE%TYPE;
883: l_contract_source_code OKC_TEMPLATE_USAGES.CONTRACT_SOURCE_CODE%TYPE;
884: l_approval_abstract_text OKC_TEMPLATE_USAGES.APPROVAL_ABSTRACT_TEXT%TYPE;
885: l_autogen_deviations_flag OKC_TEMPLATE_USAGES.AUTOGEN_DEVIATIONS_FLAG%TYPE;
886: -- Fix for bug# 3990983
887: l_source_change_allowed_flag OKC_TEMPLATE_USAGES.SOURCE_CHANGE_ALLOWED_FLAG%TYPE;
888: l_lock_terms_flag OKC_TEMPLATE_USAGES.LOCK_TERMS_FLAG%TYPE;
889: l_enable_reporting_flag OKC_TEMPLATE_USAGES.ENABLE_REPORTING_FLAG%TYPE;
883: l_contract_source_code OKC_TEMPLATE_USAGES.CONTRACT_SOURCE_CODE%TYPE;
884: l_approval_abstract_text OKC_TEMPLATE_USAGES.APPROVAL_ABSTRACT_TEXT%TYPE;
885: l_autogen_deviations_flag OKC_TEMPLATE_USAGES.AUTOGEN_DEVIATIONS_FLAG%TYPE;
886: -- Fix for bug# 3990983
887: l_source_change_allowed_flag OKC_TEMPLATE_USAGES.SOURCE_CHANGE_ALLOWED_FLAG%TYPE;
888: l_lock_terms_flag OKC_TEMPLATE_USAGES.LOCK_TERMS_FLAG%TYPE;
889: l_enable_reporting_flag OKC_TEMPLATE_USAGES.ENABLE_REPORTING_FLAG%TYPE;
890: l_contract_admin_id OKC_TEMPLATE_USAGES.CONTRACT_ADMIN_ID%TYPE;
891: l_legal_contact_id OKC_TEMPLATE_USAGES.LEGAL_CONTACT_ID%TYPE;
884: l_approval_abstract_text OKC_TEMPLATE_USAGES.APPROVAL_ABSTRACT_TEXT%TYPE;
885: l_autogen_deviations_flag OKC_TEMPLATE_USAGES.AUTOGEN_DEVIATIONS_FLAG%TYPE;
886: -- Fix for bug# 3990983
887: l_source_change_allowed_flag OKC_TEMPLATE_USAGES.SOURCE_CHANGE_ALLOWED_FLAG%TYPE;
888: l_lock_terms_flag OKC_TEMPLATE_USAGES.LOCK_TERMS_FLAG%TYPE;
889: l_enable_reporting_flag OKC_TEMPLATE_USAGES.ENABLE_REPORTING_FLAG%TYPE;
890: l_contract_admin_id OKC_TEMPLATE_USAGES.CONTRACT_ADMIN_ID%TYPE;
891: l_legal_contact_id OKC_TEMPLATE_USAGES.LEGAL_CONTACT_ID%TYPE;
892: l_locked_by_user_id OKC_TEMPLATE_USAGES.LOCKED_BY_USER_ID%TYPE;
885: l_autogen_deviations_flag OKC_TEMPLATE_USAGES.AUTOGEN_DEVIATIONS_FLAG%TYPE;
886: -- Fix for bug# 3990983
887: l_source_change_allowed_flag OKC_TEMPLATE_USAGES.SOURCE_CHANGE_ALLOWED_FLAG%TYPE;
888: l_lock_terms_flag OKC_TEMPLATE_USAGES.LOCK_TERMS_FLAG%TYPE;
889: l_enable_reporting_flag OKC_TEMPLATE_USAGES.ENABLE_REPORTING_FLAG%TYPE;
890: l_contract_admin_id OKC_TEMPLATE_USAGES.CONTRACT_ADMIN_ID%TYPE;
891: l_legal_contact_id OKC_TEMPLATE_USAGES.LEGAL_CONTACT_ID%TYPE;
892: l_locked_by_user_id OKC_TEMPLATE_USAGES.LOCKED_BY_USER_ID%TYPE;
893:
886: -- Fix for bug# 3990983
887: l_source_change_allowed_flag OKC_TEMPLATE_USAGES.SOURCE_CHANGE_ALLOWED_FLAG%TYPE;
888: l_lock_terms_flag OKC_TEMPLATE_USAGES.LOCK_TERMS_FLAG%TYPE;
889: l_enable_reporting_flag OKC_TEMPLATE_USAGES.ENABLE_REPORTING_FLAG%TYPE;
890: l_contract_admin_id OKC_TEMPLATE_USAGES.CONTRACT_ADMIN_ID%TYPE;
891: l_legal_contact_id OKC_TEMPLATE_USAGES.LEGAL_CONTACT_ID%TYPE;
892: l_locked_by_user_id OKC_TEMPLATE_USAGES.LOCKED_BY_USER_ID%TYPE;
893:
894: l_created_by OKC_TEMPLATE_USAGES.CREATED_BY%TYPE;
887: l_source_change_allowed_flag OKC_TEMPLATE_USAGES.SOURCE_CHANGE_ALLOWED_FLAG%TYPE;
888: l_lock_terms_flag OKC_TEMPLATE_USAGES.LOCK_TERMS_FLAG%TYPE;
889: l_enable_reporting_flag OKC_TEMPLATE_USAGES.ENABLE_REPORTING_FLAG%TYPE;
890: l_contract_admin_id OKC_TEMPLATE_USAGES.CONTRACT_ADMIN_ID%TYPE;
891: l_legal_contact_id OKC_TEMPLATE_USAGES.LEGAL_CONTACT_ID%TYPE;
892: l_locked_by_user_id OKC_TEMPLATE_USAGES.LOCKED_BY_USER_ID%TYPE;
893:
894: l_created_by OKC_TEMPLATE_USAGES.CREATED_BY%TYPE;
895: l_creation_date OKC_TEMPLATE_USAGES.CREATION_DATE%TYPE;
888: l_lock_terms_flag OKC_TEMPLATE_USAGES.LOCK_TERMS_FLAG%TYPE;
889: l_enable_reporting_flag OKC_TEMPLATE_USAGES.ENABLE_REPORTING_FLAG%TYPE;
890: l_contract_admin_id OKC_TEMPLATE_USAGES.CONTRACT_ADMIN_ID%TYPE;
891: l_legal_contact_id OKC_TEMPLATE_USAGES.LEGAL_CONTACT_ID%TYPE;
892: l_locked_by_user_id OKC_TEMPLATE_USAGES.LOCKED_BY_USER_ID%TYPE;
893:
894: l_created_by OKC_TEMPLATE_USAGES.CREATED_BY%TYPE;
895: l_creation_date OKC_TEMPLATE_USAGES.CREATION_DATE%TYPE;
896: l_last_updated_by OKC_TEMPLATE_USAGES.LAST_UPDATED_BY%TYPE;
890: l_contract_admin_id OKC_TEMPLATE_USAGES.CONTRACT_ADMIN_ID%TYPE;
891: l_legal_contact_id OKC_TEMPLATE_USAGES.LEGAL_CONTACT_ID%TYPE;
892: l_locked_by_user_id OKC_TEMPLATE_USAGES.LOCKED_BY_USER_ID%TYPE;
893:
894: l_created_by OKC_TEMPLATE_USAGES.CREATED_BY%TYPE;
895: l_creation_date OKC_TEMPLATE_USAGES.CREATION_DATE%TYPE;
896: l_last_updated_by OKC_TEMPLATE_USAGES.LAST_UPDATED_BY%TYPE;
897: l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
898: l_last_update_date OKC_TEMPLATE_USAGES.LAST_UPDATE_DATE%TYPE;
891: l_legal_contact_id OKC_TEMPLATE_USAGES.LEGAL_CONTACT_ID%TYPE;
892: l_locked_by_user_id OKC_TEMPLATE_USAGES.LOCKED_BY_USER_ID%TYPE;
893:
894: l_created_by OKC_TEMPLATE_USAGES.CREATED_BY%TYPE;
895: l_creation_date OKC_TEMPLATE_USAGES.CREATION_DATE%TYPE;
896: l_last_updated_by OKC_TEMPLATE_USAGES.LAST_UPDATED_BY%TYPE;
897: l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
898: l_last_update_date OKC_TEMPLATE_USAGES.LAST_UPDATE_DATE%TYPE;
899: BEGIN
892: l_locked_by_user_id OKC_TEMPLATE_USAGES.LOCKED_BY_USER_ID%TYPE;
893:
894: l_created_by OKC_TEMPLATE_USAGES.CREATED_BY%TYPE;
895: l_creation_date OKC_TEMPLATE_USAGES.CREATION_DATE%TYPE;
896: l_last_updated_by OKC_TEMPLATE_USAGES.LAST_UPDATED_BY%TYPE;
897: l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
898: l_last_update_date OKC_TEMPLATE_USAGES.LAST_UPDATE_DATE%TYPE;
899: BEGIN
900:
893:
894: l_created_by OKC_TEMPLATE_USAGES.CREATED_BY%TYPE;
895: l_creation_date OKC_TEMPLATE_USAGES.CREATION_DATE%TYPE;
896: l_last_updated_by OKC_TEMPLATE_USAGES.LAST_UPDATED_BY%TYPE;
897: l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
898: l_last_update_date OKC_TEMPLATE_USAGES.LAST_UPDATE_DATE%TYPE;
899: BEGIN
900:
901: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
894: l_created_by OKC_TEMPLATE_USAGES.CREATED_BY%TYPE;
895: l_creation_date OKC_TEMPLATE_USAGES.CREATION_DATE%TYPE;
896: l_last_updated_by OKC_TEMPLATE_USAGES.LAST_UPDATED_BY%TYPE;
897: l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
898: l_last_update_date OKC_TEMPLATE_USAGES.LAST_UPDATE_DATE%TYPE;
899: BEGIN
900:
901: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
902: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3100: Entered validate_row');
1021: ---------------------------------------------------------------------------
1022: -- PROCEDURE Insert_Row
1023: ---------------------------------------------------------------------------
1024: -------------------------------------
1025: -- Insert_Row for:OKC_TEMPLATE_USAGES --
1026: -------------------------------------
1027: FUNCTION Insert_Row(
1028: p_document_type IN VARCHAR2,
1029: p_document_id IN NUMBER,
1065: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1066: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3600: Entered Insert_Row function');
1067: END IF;
1068:
1069: INSERT INTO OKC_TEMPLATE_USAGES(
1070: DOCUMENT_TYPE,
1071: DOCUMENT_ID,
1072: TEMPLATE_ID,
1073: DOC_NUMBERING_SCHEME,
1157: END Insert_Row;
1158:
1159:
1160: -------------------------------------
1161: -- Insert_Row for:OKC_TEMPLATE_USAGES --
1162: -------------------------------------
1163: PROCEDURE Insert_Row(
1164: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1165: x_return_status OUT NOCOPY VARCHAR2,
1195: p_contract_expert_finish_flag IN VARCHAR2 := NULL
1196:
1197: ) IS
1198: l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
1199: l_object_version_number OKC_TEMPLATE_USAGES.OBJECT_VERSION_NUMBER%TYPE;
1200: l_created_by OKC_TEMPLATE_USAGES.CREATED_BY%TYPE;
1201: l_creation_date OKC_TEMPLATE_USAGES.CREATION_DATE%TYPE;
1202: l_last_updated_by OKC_TEMPLATE_USAGES.LAST_UPDATED_BY%TYPE;
1203: l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
1196:
1197: ) IS
1198: l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
1199: l_object_version_number OKC_TEMPLATE_USAGES.OBJECT_VERSION_NUMBER%TYPE;
1200: l_created_by OKC_TEMPLATE_USAGES.CREATED_BY%TYPE;
1201: l_creation_date OKC_TEMPLATE_USAGES.CREATION_DATE%TYPE;
1202: l_last_updated_by OKC_TEMPLATE_USAGES.LAST_UPDATED_BY%TYPE;
1203: l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
1204: l_last_update_date OKC_TEMPLATE_USAGES.LAST_UPDATE_DATE%TYPE;
1197: ) IS
1198: l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
1199: l_object_version_number OKC_TEMPLATE_USAGES.OBJECT_VERSION_NUMBER%TYPE;
1200: l_created_by OKC_TEMPLATE_USAGES.CREATED_BY%TYPE;
1201: l_creation_date OKC_TEMPLATE_USAGES.CREATION_DATE%TYPE;
1202: l_last_updated_by OKC_TEMPLATE_USAGES.LAST_UPDATED_BY%TYPE;
1203: l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
1204: l_last_update_date OKC_TEMPLATE_USAGES.LAST_UPDATE_DATE%TYPE;
1205: l_authoring_party_code OKC_TEMPLATE_USAGES.authoring_party_code%type;
1198: l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
1199: l_object_version_number OKC_TEMPLATE_USAGES.OBJECT_VERSION_NUMBER%TYPE;
1200: l_created_by OKC_TEMPLATE_USAGES.CREATED_BY%TYPE;
1201: l_creation_date OKC_TEMPLATE_USAGES.CREATION_DATE%TYPE;
1202: l_last_updated_by OKC_TEMPLATE_USAGES.LAST_UPDATED_BY%TYPE;
1203: l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
1204: l_last_update_date OKC_TEMPLATE_USAGES.LAST_UPDATE_DATE%TYPE;
1205: l_authoring_party_code OKC_TEMPLATE_USAGES.authoring_party_code%type;
1206:
1199: l_object_version_number OKC_TEMPLATE_USAGES.OBJECT_VERSION_NUMBER%TYPE;
1200: l_created_by OKC_TEMPLATE_USAGES.CREATED_BY%TYPE;
1201: l_creation_date OKC_TEMPLATE_USAGES.CREATION_DATE%TYPE;
1202: l_last_updated_by OKC_TEMPLATE_USAGES.LAST_UPDATED_BY%TYPE;
1203: l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
1204: l_last_update_date OKC_TEMPLATE_USAGES.LAST_UPDATE_DATE%TYPE;
1205: l_authoring_party_code OKC_TEMPLATE_USAGES.authoring_party_code%type;
1206:
1207:
1200: l_created_by OKC_TEMPLATE_USAGES.CREATED_BY%TYPE;
1201: l_creation_date OKC_TEMPLATE_USAGES.CREATION_DATE%TYPE;
1202: l_last_updated_by OKC_TEMPLATE_USAGES.LAST_UPDATED_BY%TYPE;
1203: l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
1204: l_last_update_date OKC_TEMPLATE_USAGES.LAST_UPDATE_DATE%TYPE;
1205: l_authoring_party_code OKC_TEMPLATE_USAGES.authoring_party_code%type;
1206:
1207:
1208: BEGIN
1201: l_creation_date OKC_TEMPLATE_USAGES.CREATION_DATE%TYPE;
1202: l_last_updated_by OKC_TEMPLATE_USAGES.LAST_UPDATED_BY%TYPE;
1203: l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
1204: l_last_update_date OKC_TEMPLATE_USAGES.LAST_UPDATE_DATE%TYPE;
1205: l_authoring_party_code OKC_TEMPLATE_USAGES.authoring_party_code%type;
1206:
1207:
1208: BEGIN
1209:
1346: ---------------------------------------------------------------------------
1347: -- PROCEDURE Lock_Row
1348: ---------------------------------------------------------------------------
1349: -----------------------------------
1350: -- Lock_Row for:OKC_TEMPLATE_USAGES --
1351: -----------------------------------
1352: FUNCTION Lock_Row(
1353: p_document_type IN VARCHAR2,
1354: p_document_id IN NUMBER,
1359: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1360:
1361: CURSOR lock_csr (cp_document_type VARCHAR2, cp_document_id NUMBER, cp_object_version_number NUMBER) IS
1362: SELECT object_version_number
1363: FROM OKC_TEMPLATE_USAGES
1364: WHERE DOCUMENT_TYPE = cp_document_type AND DOCUMENT_ID = cp_document_id
1365: AND (object_version_number = cp_object_version_number OR cp_object_version_number IS NULL)
1366: FOR UPDATE OF object_version_number NOWAIT;
1367:
1366: FOR UPDATE OF object_version_number NOWAIT;
1367:
1368: CURSOR lchk_csr (cp_document_type VARCHAR2, cp_document_id NUMBER) IS
1369: SELECT object_version_number
1370: FROM OKC_TEMPLATE_USAGES
1371: WHERE DOCUMENT_TYPE = cp_document_type AND DOCUMENT_ID = cp_document_id;
1372:
1373: l_return_status VARCHAR2(1);
1374: l_api_name CONSTANT VARCHAR2(30) := 'lock_row';
1371: WHERE DOCUMENT_TYPE = cp_document_type AND DOCUMENT_ID = cp_document_id;
1372:
1373: l_return_status VARCHAR2(1);
1374: l_api_name CONSTANT VARCHAR2(30) := 'lock_row';
1375: l_object_version_number OKC_TEMPLATE_USAGES.OBJECT_VERSION_NUMBER%TYPE;
1376:
1377: l_row_notfound BOOLEAN := FALSE;
1378: BEGIN
1379:
1412: CLOSE lchk_csr;
1413:
1414: IF (l_row_notfound) THEN
1415: Okc_Api.Set_Message(G_FND_APP,G_LOCK_RECORD_DELETED,
1416: 'ENTITYNAME','OKC_TEMPLATE_USAGES',
1417: 'PKEY',p_document_type||':'||p_document_id,
1418: 'OVN',p_object_version_number
1419: );
1420: ELSIF l_object_version_number > p_object_version_number THEN
1458: RETURN( G_RET_STS_UNEXP_ERROR );
1459: END Lock_Row;
1460:
1461: -----------------------------------
1462: -- Lock_Row for:OKC_TEMPLATE_USAGES --
1463: -----------------------------------
1464: PROCEDURE Lock_Row(
1465: x_return_status OUT NOCOPY VARCHAR2,
1466:
1525: ---------------------------------------------------------------------------
1526: -- PROCEDURE Update_Row
1527: ---------------------------------------------------------------------------
1528: -------------------------------------
1529: -- Update_Row for:OKC_TEMPLATE_USAGES --
1530: -------------------------------------
1531: FUNCTION Update_Row(
1532: p_document_type IN VARCHAR2,
1533: p_document_id IN NUMBER,
1567: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1568: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'6400: Entered Update_Row');
1569: END IF;
1570:
1571: UPDATE OKC_TEMPLATE_USAGES
1572: SET TEMPLATE_ID = p_template_id,
1573: DOC_NUMBERING_SCHEME = p_doc_numbering_scheme,
1574: DOCUMENT_NUMBER = p_document_number,
1575: ARTICLE_EFFECTIVE_DATE = p_article_effective_date,
1623:
1624: END Update_Row;
1625:
1626: -------------------------------------
1627: -- Update_Row for:OKC_TEMPLATE_USAGES --
1628: -------------------------------------
1629: PROCEDURE Update_Row(
1630: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1631:
1658: p_legal_contact_id IN NUMBER := NULL,
1659: p_locked_by_user_id IN NUMBER := NULL
1660: ) IS
1661: l_api_name CONSTANT VARCHAR2(30) := 'update_row';
1662: l_template_id OKC_TEMPLATE_USAGES.TEMPLATE_ID%TYPE;
1663: l_doc_numbering_scheme OKC_TEMPLATE_USAGES.DOC_NUMBERING_SCHEME%TYPE;
1664: l_document_number OKC_TEMPLATE_USAGES.DOCUMENT_NUMBER%TYPE;
1665: l_article_effective_date OKC_TEMPLATE_USAGES.ARTICLE_EFFECTIVE_DATE%TYPE;
1666: l_config_header_id OKC_TEMPLATE_USAGES.CONFIG_HEADER_ID%TYPE;
1659: p_locked_by_user_id IN NUMBER := NULL
1660: ) IS
1661: l_api_name CONSTANT VARCHAR2(30) := 'update_row';
1662: l_template_id OKC_TEMPLATE_USAGES.TEMPLATE_ID%TYPE;
1663: l_doc_numbering_scheme OKC_TEMPLATE_USAGES.DOC_NUMBERING_SCHEME%TYPE;
1664: l_document_number OKC_TEMPLATE_USAGES.DOCUMENT_NUMBER%TYPE;
1665: l_article_effective_date OKC_TEMPLATE_USAGES.ARTICLE_EFFECTIVE_DATE%TYPE;
1666: l_config_header_id OKC_TEMPLATE_USAGES.CONFIG_HEADER_ID%TYPE;
1667: l_config_revision_number OKC_TEMPLATE_USAGES.CONFIG_REVISION_NUMBER%TYPE;
1660: ) IS
1661: l_api_name CONSTANT VARCHAR2(30) := 'update_row';
1662: l_template_id OKC_TEMPLATE_USAGES.TEMPLATE_ID%TYPE;
1663: l_doc_numbering_scheme OKC_TEMPLATE_USAGES.DOC_NUMBERING_SCHEME%TYPE;
1664: l_document_number OKC_TEMPLATE_USAGES.DOCUMENT_NUMBER%TYPE;
1665: l_article_effective_date OKC_TEMPLATE_USAGES.ARTICLE_EFFECTIVE_DATE%TYPE;
1666: l_config_header_id OKC_TEMPLATE_USAGES.CONFIG_HEADER_ID%TYPE;
1667: l_config_revision_number OKC_TEMPLATE_USAGES.CONFIG_REVISION_NUMBER%TYPE;
1668: l_valid_config_yn OKC_TEMPLATE_USAGES.VALID_CONFIG_YN%TYPE;
1661: l_api_name CONSTANT VARCHAR2(30) := 'update_row';
1662: l_template_id OKC_TEMPLATE_USAGES.TEMPLATE_ID%TYPE;
1663: l_doc_numbering_scheme OKC_TEMPLATE_USAGES.DOC_NUMBERING_SCHEME%TYPE;
1664: l_document_number OKC_TEMPLATE_USAGES.DOCUMENT_NUMBER%TYPE;
1665: l_article_effective_date OKC_TEMPLATE_USAGES.ARTICLE_EFFECTIVE_DATE%TYPE;
1666: l_config_header_id OKC_TEMPLATE_USAGES.CONFIG_HEADER_ID%TYPE;
1667: l_config_revision_number OKC_TEMPLATE_USAGES.CONFIG_REVISION_NUMBER%TYPE;
1668: l_valid_config_yn OKC_TEMPLATE_USAGES.VALID_CONFIG_YN%TYPE;
1669: l_orig_system_reference_code OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_CODE%TYPE;
1662: l_template_id OKC_TEMPLATE_USAGES.TEMPLATE_ID%TYPE;
1663: l_doc_numbering_scheme OKC_TEMPLATE_USAGES.DOC_NUMBERING_SCHEME%TYPE;
1664: l_document_number OKC_TEMPLATE_USAGES.DOCUMENT_NUMBER%TYPE;
1665: l_article_effective_date OKC_TEMPLATE_USAGES.ARTICLE_EFFECTIVE_DATE%TYPE;
1666: l_config_header_id OKC_TEMPLATE_USAGES.CONFIG_HEADER_ID%TYPE;
1667: l_config_revision_number OKC_TEMPLATE_USAGES.CONFIG_REVISION_NUMBER%TYPE;
1668: l_valid_config_yn OKC_TEMPLATE_USAGES.VALID_CONFIG_YN%TYPE;
1669: l_orig_system_reference_code OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_CODE%TYPE;
1670: l_orig_system_reference_id1 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID1%TYPE;
1663: l_doc_numbering_scheme OKC_TEMPLATE_USAGES.DOC_NUMBERING_SCHEME%TYPE;
1664: l_document_number OKC_TEMPLATE_USAGES.DOCUMENT_NUMBER%TYPE;
1665: l_article_effective_date OKC_TEMPLATE_USAGES.ARTICLE_EFFECTIVE_DATE%TYPE;
1666: l_config_header_id OKC_TEMPLATE_USAGES.CONFIG_HEADER_ID%TYPE;
1667: l_config_revision_number OKC_TEMPLATE_USAGES.CONFIG_REVISION_NUMBER%TYPE;
1668: l_valid_config_yn OKC_TEMPLATE_USAGES.VALID_CONFIG_YN%TYPE;
1669: l_orig_system_reference_code OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_CODE%TYPE;
1670: l_orig_system_reference_id1 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID1%TYPE;
1671: l_orig_system_reference_id2 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID2%TYPE;
1664: l_document_number OKC_TEMPLATE_USAGES.DOCUMENT_NUMBER%TYPE;
1665: l_article_effective_date OKC_TEMPLATE_USAGES.ARTICLE_EFFECTIVE_DATE%TYPE;
1666: l_config_header_id OKC_TEMPLATE_USAGES.CONFIG_HEADER_ID%TYPE;
1667: l_config_revision_number OKC_TEMPLATE_USAGES.CONFIG_REVISION_NUMBER%TYPE;
1668: l_valid_config_yn OKC_TEMPLATE_USAGES.VALID_CONFIG_YN%TYPE;
1669: l_orig_system_reference_code OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_CODE%TYPE;
1670: l_orig_system_reference_id1 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID1%TYPE;
1671: l_orig_system_reference_id2 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID2%TYPE;
1672:
1665: l_article_effective_date OKC_TEMPLATE_USAGES.ARTICLE_EFFECTIVE_DATE%TYPE;
1666: l_config_header_id OKC_TEMPLATE_USAGES.CONFIG_HEADER_ID%TYPE;
1667: l_config_revision_number OKC_TEMPLATE_USAGES.CONFIG_REVISION_NUMBER%TYPE;
1668: l_valid_config_yn OKC_TEMPLATE_USAGES.VALID_CONFIG_YN%TYPE;
1669: l_orig_system_reference_code OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_CODE%TYPE;
1670: l_orig_system_reference_id1 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID1%TYPE;
1671: l_orig_system_reference_id2 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID2%TYPE;
1672:
1673: l_authoring_party_code OKC_TEMPLATE_USAGES.AUTHORING_PARTY_CODE%TYPE;
1666: l_config_header_id OKC_TEMPLATE_USAGES.CONFIG_HEADER_ID%TYPE;
1667: l_config_revision_number OKC_TEMPLATE_USAGES.CONFIG_REVISION_NUMBER%TYPE;
1668: l_valid_config_yn OKC_TEMPLATE_USAGES.VALID_CONFIG_YN%TYPE;
1669: l_orig_system_reference_code OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_CODE%TYPE;
1670: l_orig_system_reference_id1 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID1%TYPE;
1671: l_orig_system_reference_id2 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID2%TYPE;
1672:
1673: l_authoring_party_code OKC_TEMPLATE_USAGES.AUTHORING_PARTY_CODE%TYPE;
1674: l_contract_source_code OKC_TEMPLATE_USAGES.CONTRACT_SOURCE_CODE%TYPE;
1667: l_config_revision_number OKC_TEMPLATE_USAGES.CONFIG_REVISION_NUMBER%TYPE;
1668: l_valid_config_yn OKC_TEMPLATE_USAGES.VALID_CONFIG_YN%TYPE;
1669: l_orig_system_reference_code OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_CODE%TYPE;
1670: l_orig_system_reference_id1 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID1%TYPE;
1671: l_orig_system_reference_id2 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID2%TYPE;
1672:
1673: l_authoring_party_code OKC_TEMPLATE_USAGES.AUTHORING_PARTY_CODE%TYPE;
1674: l_contract_source_code OKC_TEMPLATE_USAGES.CONTRACT_SOURCE_CODE%TYPE;
1675: l_approval_abstract_text OKC_TEMPLATE_USAGES.APPROVAL_ABSTRACT_TEXT%TYPE;
1669: l_orig_system_reference_code OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_CODE%TYPE;
1670: l_orig_system_reference_id1 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID1%TYPE;
1671: l_orig_system_reference_id2 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID2%TYPE;
1672:
1673: l_authoring_party_code OKC_TEMPLATE_USAGES.AUTHORING_PARTY_CODE%TYPE;
1674: l_contract_source_code OKC_TEMPLATE_USAGES.CONTRACT_SOURCE_CODE%TYPE;
1675: l_approval_abstract_text OKC_TEMPLATE_USAGES.APPROVAL_ABSTRACT_TEXT%TYPE;
1676: l_autogen_deviations_flag OKC_TEMPLATE_USAGES.AUTOGEN_DEVIATIONS_FLAG%TYPE;
1677: -- Fix for bug# 3990983
1670: l_orig_system_reference_id1 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID1%TYPE;
1671: l_orig_system_reference_id2 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID2%TYPE;
1672:
1673: l_authoring_party_code OKC_TEMPLATE_USAGES.AUTHORING_PARTY_CODE%TYPE;
1674: l_contract_source_code OKC_TEMPLATE_USAGES.CONTRACT_SOURCE_CODE%TYPE;
1675: l_approval_abstract_text OKC_TEMPLATE_USAGES.APPROVAL_ABSTRACT_TEXT%TYPE;
1676: l_autogen_deviations_flag OKC_TEMPLATE_USAGES.AUTOGEN_DEVIATIONS_FLAG%TYPE;
1677: -- Fix for bug# 3990983
1678: l_source_change_allowed_flag OKC_TEMPLATE_USAGES.SOURCE_CHANGE_ALLOWED_FLAG%TYPE;
1671: l_orig_system_reference_id2 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID2%TYPE;
1672:
1673: l_authoring_party_code OKC_TEMPLATE_USAGES.AUTHORING_PARTY_CODE%TYPE;
1674: l_contract_source_code OKC_TEMPLATE_USAGES.CONTRACT_SOURCE_CODE%TYPE;
1675: l_approval_abstract_text OKC_TEMPLATE_USAGES.APPROVAL_ABSTRACT_TEXT%TYPE;
1676: l_autogen_deviations_flag OKC_TEMPLATE_USAGES.AUTOGEN_DEVIATIONS_FLAG%TYPE;
1677: -- Fix for bug# 3990983
1678: l_source_change_allowed_flag OKC_TEMPLATE_USAGES.SOURCE_CHANGE_ALLOWED_FLAG%TYPE;
1679:
1672:
1673: l_authoring_party_code OKC_TEMPLATE_USAGES.AUTHORING_PARTY_CODE%TYPE;
1674: l_contract_source_code OKC_TEMPLATE_USAGES.CONTRACT_SOURCE_CODE%TYPE;
1675: l_approval_abstract_text OKC_TEMPLATE_USAGES.APPROVAL_ABSTRACT_TEXT%TYPE;
1676: l_autogen_deviations_flag OKC_TEMPLATE_USAGES.AUTOGEN_DEVIATIONS_FLAG%TYPE;
1677: -- Fix for bug# 3990983
1678: l_source_change_allowed_flag OKC_TEMPLATE_USAGES.SOURCE_CHANGE_ALLOWED_FLAG%TYPE;
1679:
1680: l_object_version_number OKC_TEMPLATE_USAGES.OBJECT_VERSION_NUMBER%TYPE;
1674: l_contract_source_code OKC_TEMPLATE_USAGES.CONTRACT_SOURCE_CODE%TYPE;
1675: l_approval_abstract_text OKC_TEMPLATE_USAGES.APPROVAL_ABSTRACT_TEXT%TYPE;
1676: l_autogen_deviations_flag OKC_TEMPLATE_USAGES.AUTOGEN_DEVIATIONS_FLAG%TYPE;
1677: -- Fix for bug# 3990983
1678: l_source_change_allowed_flag OKC_TEMPLATE_USAGES.SOURCE_CHANGE_ALLOWED_FLAG%TYPE;
1679:
1680: l_object_version_number OKC_TEMPLATE_USAGES.OBJECT_VERSION_NUMBER%TYPE;
1681: l_created_by OKC_TEMPLATE_USAGES.CREATED_BY%TYPE;
1682: l_creation_date OKC_TEMPLATE_USAGES.CREATION_DATE%TYPE;
1676: l_autogen_deviations_flag OKC_TEMPLATE_USAGES.AUTOGEN_DEVIATIONS_FLAG%TYPE;
1677: -- Fix for bug# 3990983
1678: l_source_change_allowed_flag OKC_TEMPLATE_USAGES.SOURCE_CHANGE_ALLOWED_FLAG%TYPE;
1679:
1680: l_object_version_number OKC_TEMPLATE_USAGES.OBJECT_VERSION_NUMBER%TYPE;
1681: l_created_by OKC_TEMPLATE_USAGES.CREATED_BY%TYPE;
1682: l_creation_date OKC_TEMPLATE_USAGES.CREATION_DATE%TYPE;
1683: l_last_updated_by OKC_TEMPLATE_USAGES.LAST_UPDATED_BY%TYPE;
1684: l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
1677: -- Fix for bug# 3990983
1678: l_source_change_allowed_flag OKC_TEMPLATE_USAGES.SOURCE_CHANGE_ALLOWED_FLAG%TYPE;
1679:
1680: l_object_version_number OKC_TEMPLATE_USAGES.OBJECT_VERSION_NUMBER%TYPE;
1681: l_created_by OKC_TEMPLATE_USAGES.CREATED_BY%TYPE;
1682: l_creation_date OKC_TEMPLATE_USAGES.CREATION_DATE%TYPE;
1683: l_last_updated_by OKC_TEMPLATE_USAGES.LAST_UPDATED_BY%TYPE;
1684: l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
1685: l_last_update_date OKC_TEMPLATE_USAGES.LAST_UPDATE_DATE%TYPE;
1678: l_source_change_allowed_flag OKC_TEMPLATE_USAGES.SOURCE_CHANGE_ALLOWED_FLAG%TYPE;
1679:
1680: l_object_version_number OKC_TEMPLATE_USAGES.OBJECT_VERSION_NUMBER%TYPE;
1681: l_created_by OKC_TEMPLATE_USAGES.CREATED_BY%TYPE;
1682: l_creation_date OKC_TEMPLATE_USAGES.CREATION_DATE%TYPE;
1683: l_last_updated_by OKC_TEMPLATE_USAGES.LAST_UPDATED_BY%TYPE;
1684: l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
1685: l_last_update_date OKC_TEMPLATE_USAGES.LAST_UPDATE_DATE%TYPE;
1686:
1679:
1680: l_object_version_number OKC_TEMPLATE_USAGES.OBJECT_VERSION_NUMBER%TYPE;
1681: l_created_by OKC_TEMPLATE_USAGES.CREATED_BY%TYPE;
1682: l_creation_date OKC_TEMPLATE_USAGES.CREATION_DATE%TYPE;
1683: l_last_updated_by OKC_TEMPLATE_USAGES.LAST_UPDATED_BY%TYPE;
1684: l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
1685: l_last_update_date OKC_TEMPLATE_USAGES.LAST_UPDATE_DATE%TYPE;
1686:
1687:
1680: l_object_version_number OKC_TEMPLATE_USAGES.OBJECT_VERSION_NUMBER%TYPE;
1681: l_created_by OKC_TEMPLATE_USAGES.CREATED_BY%TYPE;
1682: l_creation_date OKC_TEMPLATE_USAGES.CREATION_DATE%TYPE;
1683: l_last_updated_by OKC_TEMPLATE_USAGES.LAST_UPDATED_BY%TYPE;
1684: l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
1685: l_last_update_date OKC_TEMPLATE_USAGES.LAST_UPDATE_DATE%TYPE;
1686:
1687:
1688: l_lock_terms_flag OKC_TEMPLATE_USAGES.LOCK_TERMS_FLAG%TYPE;
1681: l_created_by OKC_TEMPLATE_USAGES.CREATED_BY%TYPE;
1682: l_creation_date OKC_TEMPLATE_USAGES.CREATION_DATE%TYPE;
1683: l_last_updated_by OKC_TEMPLATE_USAGES.LAST_UPDATED_BY%TYPE;
1684: l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
1685: l_last_update_date OKC_TEMPLATE_USAGES.LAST_UPDATE_DATE%TYPE;
1686:
1687:
1688: l_lock_terms_flag OKC_TEMPLATE_USAGES.LOCK_TERMS_FLAG%TYPE;
1689: l_enable_reporting_flag OKC_TEMPLATE_USAGES.ENABLE_REPORTING_FLAG%TYPE;
1684: l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
1685: l_last_update_date OKC_TEMPLATE_USAGES.LAST_UPDATE_DATE%TYPE;
1686:
1687:
1688: l_lock_terms_flag OKC_TEMPLATE_USAGES.LOCK_TERMS_FLAG%TYPE;
1689: l_enable_reporting_flag OKC_TEMPLATE_USAGES.ENABLE_REPORTING_FLAG%TYPE;
1690: l_contract_admin_id OKC_TEMPLATE_USAGES.CONTRACT_ADMIN_ID%TYPE;
1691: l_legal_contact_id OKC_TEMPLATE_USAGES.LEGAL_CONTACT_ID%TYPE;
1692: l_locked_by_user_id OKC_TEMPLATE_USAGES.LOCKED_BY_USER_ID%TYPE;
1685: l_last_update_date OKC_TEMPLATE_USAGES.LAST_UPDATE_DATE%TYPE;
1686:
1687:
1688: l_lock_terms_flag OKC_TEMPLATE_USAGES.LOCK_TERMS_FLAG%TYPE;
1689: l_enable_reporting_flag OKC_TEMPLATE_USAGES.ENABLE_REPORTING_FLAG%TYPE;
1690: l_contract_admin_id OKC_TEMPLATE_USAGES.CONTRACT_ADMIN_ID%TYPE;
1691: l_legal_contact_id OKC_TEMPLATE_USAGES.LEGAL_CONTACT_ID%TYPE;
1692: l_locked_by_user_id OKC_TEMPLATE_USAGES.LOCKED_BY_USER_ID%TYPE;
1693:
1686:
1687:
1688: l_lock_terms_flag OKC_TEMPLATE_USAGES.LOCK_TERMS_FLAG%TYPE;
1689: l_enable_reporting_flag OKC_TEMPLATE_USAGES.ENABLE_REPORTING_FLAG%TYPE;
1690: l_contract_admin_id OKC_TEMPLATE_USAGES.CONTRACT_ADMIN_ID%TYPE;
1691: l_legal_contact_id OKC_TEMPLATE_USAGES.LEGAL_CONTACT_ID%TYPE;
1692: l_locked_by_user_id OKC_TEMPLATE_USAGES.LOCKED_BY_USER_ID%TYPE;
1693:
1694: BEGIN
1687:
1688: l_lock_terms_flag OKC_TEMPLATE_USAGES.LOCK_TERMS_FLAG%TYPE;
1689: l_enable_reporting_flag OKC_TEMPLATE_USAGES.ENABLE_REPORTING_FLAG%TYPE;
1690: l_contract_admin_id OKC_TEMPLATE_USAGES.CONTRACT_ADMIN_ID%TYPE;
1691: l_legal_contact_id OKC_TEMPLATE_USAGES.LEGAL_CONTACT_ID%TYPE;
1692: l_locked_by_user_id OKC_TEMPLATE_USAGES.LOCKED_BY_USER_ID%TYPE;
1693:
1694: BEGIN
1695:
1688: l_lock_terms_flag OKC_TEMPLATE_USAGES.LOCK_TERMS_FLAG%TYPE;
1689: l_enable_reporting_flag OKC_TEMPLATE_USAGES.ENABLE_REPORTING_FLAG%TYPE;
1690: l_contract_admin_id OKC_TEMPLATE_USAGES.CONTRACT_ADMIN_ID%TYPE;
1691: l_legal_contact_id OKC_TEMPLATE_USAGES.LEGAL_CONTACT_ID%TYPE;
1692: l_locked_by_user_id OKC_TEMPLATE_USAGES.LOCKED_BY_USER_ID%TYPE;
1693:
1694: BEGIN
1695:
1696: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1901: ---------------------------------------------------------------------------
1902: -- PROCEDURE Delete_Row
1903: ---------------------------------------------------------------------------
1904: -------------------------------------
1905: -- Delete_Row for:OKC_TEMPLATE_USAGES --
1906: -------------------------------------
1907: FUNCTION Delete_Row(
1908: p_document_type IN VARCHAR2,
1909: p_document_id IN NUMBER
1914: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1915: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8200: Entered Delete_Row');
1916: END IF;
1917:
1918: DELETE FROM OKC_TEMPLATE_USAGES WHERE DOCUMENT_TYPE = p_DOCUMENT_TYPE AND DOCUMENT_ID = p_DOCUMENT_ID;
1919:
1920: IF nvl(fnd_profile.value('OKC_USE_CONTRACTS_RULES_ENGINE'), 'N') = 'Y' THEN
1921: DELETE FROM OKC_XPRT_DOC_QUES_RESPONSE WHERE DOC_TYPE = p_DOCUMENT_TYPE AND DOC_ID = p_DOCUMENT_ID;
1922: END IF;
1945:
1946: END Delete_Row;
1947:
1948: -------------------------------------
1949: -- Delete_Row for:OKC_TEMPLATE_USAGES --
1950: -------------------------------------
1951: PROCEDURE Delete_Row(
1952: x_return_status OUT NOCOPY VARCHAR2,
1953: p_document_type IN VARCHAR2,
2049:
2050: -----------------------------------------
2051: -- Saving Base Table
2052: -----------------------------------------
2053: INSERT INTO OKC_TEMPLATE_USAGES_H (
2054: major_version,
2055: DOCUMENT_TYPE,
2056: DOCUMENT_ID,
2057: TEMPLATE_ID,
2115: CONTRACT_ADMIN_ID,
2116: LEGAL_CONTACT_ID,
2117: LOCKED_BY_USER_ID,
2118: CONTRACT_EXPERT_FINISH_FLAG
2119: FROM OKC_TEMPLATE_USAGES
2120: WHERE document_type = p_doc_type and document_id = p_doc_id;
2121:
2122: --If contract expert uses new okc rules engine, then save responses also into history table.
2123: IF nvl(fnd_profile.value('OKC_USE_CONTRACTS_RULES_ENGINE'), 'N') = 'Y' THEN --okc rules engine
2164:
2165: -----------------------------------------
2166: -- Restoring Base Table
2167: -----------------------------------------
2168: INSERT INTO OKC_TEMPLATE_USAGES (
2169: DOCUMENT_TYPE,
2170: DOCUMENT_ID,
2171: TEMPLATE_ID,
2172: DOC_NUMBERING_SCHEME,
2228: CONTRACT_ADMIN_ID,
2229: LEGAL_CONTACT_ID,
2230: LOCKED_BY_USER_ID,
2231: CONTRACT_EXPERT_FINISH_FLAG
2232: FROM OKC_TEMPLATE_USAGES_H
2233: WHERE document_type = p_doc_type and document_id = p_doc_id AND major_version = p_major_version;
2234:
2235: --If contract expert uses new okc rules engine, then copy resposnes from history table to base table.
2236: IF nvl(fnd_profile.value('OKC_USE_CONTRACTS_RULES_ENGINE'), 'N') = 'Y' THEN --okc rules engine
2276: -----------------------------------------
2277: -- Restoring Base Table
2278: -----------------------------------------
2279: DELETE
2280: FROM OKC_TEMPLATE_USAGES_H
2281: WHERE document_type = p_doc_type
2282: AND document_id = p_doc_id
2283: AND major_version = p_major_version;
2284:
2425: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
2426: END IF;
2427: x_return_status := G_RET_STS_UNEXP_ERROR ;
2428: END Delete_Set;
2429: END OKC_TEMPLATE_USAGES_PVT;