[Home] [Help]
1: PACKAGE BODY OKC_TEMPLATE_USAGES_PVT AS
2: /* $Header: OKCVTMPLUSGB.pls 120.1.12000000.3 2007/02/26 22:30:51 ssivarap 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,
1064: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1065: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3600: Entered Insert_Row function');
1066: END IF;
1067:
1068: INSERT INTO OKC_TEMPLATE_USAGES(
1069: DOCUMENT_TYPE,
1070: DOCUMENT_ID,
1071: TEMPLATE_ID,
1072: DOC_NUMBERING_SCHEME,
1154: END Insert_Row;
1155:
1156:
1157: -------------------------------------
1158: -- Insert_Row for:OKC_TEMPLATE_USAGES --
1159: -------------------------------------
1160: PROCEDURE Insert_Row(
1161: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1162: x_return_status OUT NOCOPY VARCHAR2,
1191: p_locked_by_user_id IN NUMBER := NULL
1192:
1193: ) IS
1194: l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
1195: l_object_version_number OKC_TEMPLATE_USAGES.OBJECT_VERSION_NUMBER%TYPE;
1196: l_created_by OKC_TEMPLATE_USAGES.CREATED_BY%TYPE;
1197: l_creation_date OKC_TEMPLATE_USAGES.CREATION_DATE%TYPE;
1198: l_last_updated_by OKC_TEMPLATE_USAGES.LAST_UPDATED_BY%TYPE;
1199: l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
1192:
1193: ) IS
1194: l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
1195: l_object_version_number OKC_TEMPLATE_USAGES.OBJECT_VERSION_NUMBER%TYPE;
1196: l_created_by OKC_TEMPLATE_USAGES.CREATED_BY%TYPE;
1197: l_creation_date OKC_TEMPLATE_USAGES.CREATION_DATE%TYPE;
1198: l_last_updated_by OKC_TEMPLATE_USAGES.LAST_UPDATED_BY%TYPE;
1199: l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
1200: l_last_update_date OKC_TEMPLATE_USAGES.LAST_UPDATE_DATE%TYPE;
1193: ) IS
1194: l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
1195: l_object_version_number OKC_TEMPLATE_USAGES.OBJECT_VERSION_NUMBER%TYPE;
1196: l_created_by OKC_TEMPLATE_USAGES.CREATED_BY%TYPE;
1197: l_creation_date OKC_TEMPLATE_USAGES.CREATION_DATE%TYPE;
1198: l_last_updated_by OKC_TEMPLATE_USAGES.LAST_UPDATED_BY%TYPE;
1199: l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
1200: l_last_update_date OKC_TEMPLATE_USAGES.LAST_UPDATE_DATE%TYPE;
1201: l_authoring_party_code OKC_TEMPLATE_USAGES.authoring_party_code%type;
1194: l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
1195: l_object_version_number OKC_TEMPLATE_USAGES.OBJECT_VERSION_NUMBER%TYPE;
1196: l_created_by OKC_TEMPLATE_USAGES.CREATED_BY%TYPE;
1197: l_creation_date OKC_TEMPLATE_USAGES.CREATION_DATE%TYPE;
1198: l_last_updated_by OKC_TEMPLATE_USAGES.LAST_UPDATED_BY%TYPE;
1199: l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
1200: l_last_update_date OKC_TEMPLATE_USAGES.LAST_UPDATE_DATE%TYPE;
1201: l_authoring_party_code OKC_TEMPLATE_USAGES.authoring_party_code%type;
1202:
1195: l_object_version_number OKC_TEMPLATE_USAGES.OBJECT_VERSION_NUMBER%TYPE;
1196: l_created_by OKC_TEMPLATE_USAGES.CREATED_BY%TYPE;
1197: l_creation_date OKC_TEMPLATE_USAGES.CREATION_DATE%TYPE;
1198: l_last_updated_by OKC_TEMPLATE_USAGES.LAST_UPDATED_BY%TYPE;
1199: l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
1200: l_last_update_date OKC_TEMPLATE_USAGES.LAST_UPDATE_DATE%TYPE;
1201: l_authoring_party_code OKC_TEMPLATE_USAGES.authoring_party_code%type;
1202:
1203:
1196: l_created_by OKC_TEMPLATE_USAGES.CREATED_BY%TYPE;
1197: l_creation_date OKC_TEMPLATE_USAGES.CREATION_DATE%TYPE;
1198: l_last_updated_by OKC_TEMPLATE_USAGES.LAST_UPDATED_BY%TYPE;
1199: l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
1200: l_last_update_date OKC_TEMPLATE_USAGES.LAST_UPDATE_DATE%TYPE;
1201: l_authoring_party_code OKC_TEMPLATE_USAGES.authoring_party_code%type;
1202:
1203:
1204: BEGIN
1197: l_creation_date OKC_TEMPLATE_USAGES.CREATION_DATE%TYPE;
1198: l_last_updated_by OKC_TEMPLATE_USAGES.LAST_UPDATED_BY%TYPE;
1199: l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
1200: l_last_update_date OKC_TEMPLATE_USAGES.LAST_UPDATE_DATE%TYPE;
1201: l_authoring_party_code OKC_TEMPLATE_USAGES.authoring_party_code%type;
1202:
1203:
1204: BEGIN
1205:
1341: ---------------------------------------------------------------------------
1342: -- PROCEDURE Lock_Row
1343: ---------------------------------------------------------------------------
1344: -----------------------------------
1345: -- Lock_Row for:OKC_TEMPLATE_USAGES --
1346: -----------------------------------
1347: FUNCTION Lock_Row(
1348: p_document_type IN VARCHAR2,
1349: p_document_id IN NUMBER,
1354: PRAGMA EXCEPTION_INIT(E_Resource_Busy, -00054);
1355:
1356: CURSOR lock_csr (cp_document_type VARCHAR2, cp_document_id NUMBER, cp_object_version_number NUMBER) IS
1357: SELECT object_version_number
1358: FROM OKC_TEMPLATE_USAGES
1359: WHERE DOCUMENT_TYPE = cp_document_type AND DOCUMENT_ID = cp_document_id
1360: AND (object_version_number = cp_object_version_number OR cp_object_version_number IS NULL)
1361: FOR UPDATE OF object_version_number NOWAIT;
1362:
1361: FOR UPDATE OF object_version_number NOWAIT;
1362:
1363: CURSOR lchk_csr (cp_document_type VARCHAR2, cp_document_id NUMBER) IS
1364: SELECT object_version_number
1365: FROM OKC_TEMPLATE_USAGES
1366: WHERE DOCUMENT_TYPE = cp_document_type AND DOCUMENT_ID = cp_document_id;
1367:
1368: l_return_status VARCHAR2(1);
1369: l_api_name CONSTANT VARCHAR2(30) := 'lock_row';
1366: WHERE DOCUMENT_TYPE = cp_document_type AND DOCUMENT_ID = cp_document_id;
1367:
1368: l_return_status VARCHAR2(1);
1369: l_api_name CONSTANT VARCHAR2(30) := 'lock_row';
1370: l_object_version_number OKC_TEMPLATE_USAGES.OBJECT_VERSION_NUMBER%TYPE;
1371:
1372: l_row_notfound BOOLEAN := FALSE;
1373: BEGIN
1374:
1407: CLOSE lchk_csr;
1408:
1409: IF (l_row_notfound) THEN
1410: Okc_Api.Set_Message(G_FND_APP,G_LOCK_RECORD_DELETED,
1411: 'ENTITYNAME','OKC_TEMPLATE_USAGES',
1412: 'PKEY',p_document_type||':'||p_document_id,
1413: 'OVN',p_object_version_number
1414: );
1415: ELSIF l_object_version_number > p_object_version_number THEN
1453: RETURN( G_RET_STS_UNEXP_ERROR );
1454: END Lock_Row;
1455:
1456: -----------------------------------
1457: -- Lock_Row for:OKC_TEMPLATE_USAGES --
1458: -----------------------------------
1459: PROCEDURE Lock_Row(
1460: x_return_status OUT NOCOPY VARCHAR2,
1461:
1520: ---------------------------------------------------------------------------
1521: -- PROCEDURE Update_Row
1522: ---------------------------------------------------------------------------
1523: -------------------------------------
1524: -- Update_Row for:OKC_TEMPLATE_USAGES --
1525: -------------------------------------
1526: FUNCTION Update_Row(
1527: p_document_type IN VARCHAR2,
1528: p_document_id IN NUMBER,
1562: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1563: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'6400: Entered Update_Row');
1564: END IF;
1565:
1566: UPDATE OKC_TEMPLATE_USAGES
1567: SET TEMPLATE_ID = p_template_id,
1568: DOC_NUMBERING_SCHEME = p_doc_numbering_scheme,
1569: DOCUMENT_NUMBER = p_document_number,
1570: ARTICLE_EFFECTIVE_DATE = p_article_effective_date,
1618:
1619: END Update_Row;
1620:
1621: -------------------------------------
1622: -- Update_Row for:OKC_TEMPLATE_USAGES --
1623: -------------------------------------
1624: PROCEDURE Update_Row(
1625: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1626:
1653: p_legal_contact_id IN NUMBER := NULL,
1654: p_locked_by_user_id IN NUMBER := NULL
1655: ) IS
1656: l_api_name CONSTANT VARCHAR2(30) := 'update_row';
1657: l_template_id OKC_TEMPLATE_USAGES.TEMPLATE_ID%TYPE;
1658: l_doc_numbering_scheme OKC_TEMPLATE_USAGES.DOC_NUMBERING_SCHEME%TYPE;
1659: l_document_number OKC_TEMPLATE_USAGES.DOCUMENT_NUMBER%TYPE;
1660: l_article_effective_date OKC_TEMPLATE_USAGES.ARTICLE_EFFECTIVE_DATE%TYPE;
1661: l_config_header_id OKC_TEMPLATE_USAGES.CONFIG_HEADER_ID%TYPE;
1654: p_locked_by_user_id IN NUMBER := NULL
1655: ) IS
1656: l_api_name CONSTANT VARCHAR2(30) := 'update_row';
1657: l_template_id OKC_TEMPLATE_USAGES.TEMPLATE_ID%TYPE;
1658: l_doc_numbering_scheme OKC_TEMPLATE_USAGES.DOC_NUMBERING_SCHEME%TYPE;
1659: l_document_number OKC_TEMPLATE_USAGES.DOCUMENT_NUMBER%TYPE;
1660: l_article_effective_date OKC_TEMPLATE_USAGES.ARTICLE_EFFECTIVE_DATE%TYPE;
1661: l_config_header_id OKC_TEMPLATE_USAGES.CONFIG_HEADER_ID%TYPE;
1662: l_config_revision_number OKC_TEMPLATE_USAGES.CONFIG_REVISION_NUMBER%TYPE;
1655: ) IS
1656: l_api_name CONSTANT VARCHAR2(30) := 'update_row';
1657: l_template_id OKC_TEMPLATE_USAGES.TEMPLATE_ID%TYPE;
1658: l_doc_numbering_scheme OKC_TEMPLATE_USAGES.DOC_NUMBERING_SCHEME%TYPE;
1659: l_document_number OKC_TEMPLATE_USAGES.DOCUMENT_NUMBER%TYPE;
1660: l_article_effective_date OKC_TEMPLATE_USAGES.ARTICLE_EFFECTIVE_DATE%TYPE;
1661: l_config_header_id OKC_TEMPLATE_USAGES.CONFIG_HEADER_ID%TYPE;
1662: l_config_revision_number OKC_TEMPLATE_USAGES.CONFIG_REVISION_NUMBER%TYPE;
1663: l_valid_config_yn OKC_TEMPLATE_USAGES.VALID_CONFIG_YN%TYPE;
1656: l_api_name CONSTANT VARCHAR2(30) := 'update_row';
1657: l_template_id OKC_TEMPLATE_USAGES.TEMPLATE_ID%TYPE;
1658: l_doc_numbering_scheme OKC_TEMPLATE_USAGES.DOC_NUMBERING_SCHEME%TYPE;
1659: l_document_number OKC_TEMPLATE_USAGES.DOCUMENT_NUMBER%TYPE;
1660: l_article_effective_date OKC_TEMPLATE_USAGES.ARTICLE_EFFECTIVE_DATE%TYPE;
1661: l_config_header_id OKC_TEMPLATE_USAGES.CONFIG_HEADER_ID%TYPE;
1662: l_config_revision_number OKC_TEMPLATE_USAGES.CONFIG_REVISION_NUMBER%TYPE;
1663: l_valid_config_yn OKC_TEMPLATE_USAGES.VALID_CONFIG_YN%TYPE;
1664: l_orig_system_reference_code OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_CODE%TYPE;
1657: l_template_id OKC_TEMPLATE_USAGES.TEMPLATE_ID%TYPE;
1658: l_doc_numbering_scheme OKC_TEMPLATE_USAGES.DOC_NUMBERING_SCHEME%TYPE;
1659: l_document_number OKC_TEMPLATE_USAGES.DOCUMENT_NUMBER%TYPE;
1660: l_article_effective_date OKC_TEMPLATE_USAGES.ARTICLE_EFFECTIVE_DATE%TYPE;
1661: l_config_header_id OKC_TEMPLATE_USAGES.CONFIG_HEADER_ID%TYPE;
1662: l_config_revision_number OKC_TEMPLATE_USAGES.CONFIG_REVISION_NUMBER%TYPE;
1663: l_valid_config_yn OKC_TEMPLATE_USAGES.VALID_CONFIG_YN%TYPE;
1664: l_orig_system_reference_code OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_CODE%TYPE;
1665: l_orig_system_reference_id1 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID1%TYPE;
1658: l_doc_numbering_scheme OKC_TEMPLATE_USAGES.DOC_NUMBERING_SCHEME%TYPE;
1659: l_document_number OKC_TEMPLATE_USAGES.DOCUMENT_NUMBER%TYPE;
1660: l_article_effective_date OKC_TEMPLATE_USAGES.ARTICLE_EFFECTIVE_DATE%TYPE;
1661: l_config_header_id OKC_TEMPLATE_USAGES.CONFIG_HEADER_ID%TYPE;
1662: l_config_revision_number OKC_TEMPLATE_USAGES.CONFIG_REVISION_NUMBER%TYPE;
1663: l_valid_config_yn OKC_TEMPLATE_USAGES.VALID_CONFIG_YN%TYPE;
1664: l_orig_system_reference_code OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_CODE%TYPE;
1665: l_orig_system_reference_id1 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID1%TYPE;
1666: l_orig_system_reference_id2 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID2%TYPE;
1659: l_document_number OKC_TEMPLATE_USAGES.DOCUMENT_NUMBER%TYPE;
1660: l_article_effective_date OKC_TEMPLATE_USAGES.ARTICLE_EFFECTIVE_DATE%TYPE;
1661: l_config_header_id OKC_TEMPLATE_USAGES.CONFIG_HEADER_ID%TYPE;
1662: l_config_revision_number OKC_TEMPLATE_USAGES.CONFIG_REVISION_NUMBER%TYPE;
1663: l_valid_config_yn OKC_TEMPLATE_USAGES.VALID_CONFIG_YN%TYPE;
1664: l_orig_system_reference_code OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_CODE%TYPE;
1665: l_orig_system_reference_id1 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID1%TYPE;
1666: l_orig_system_reference_id2 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID2%TYPE;
1667:
1660: l_article_effective_date OKC_TEMPLATE_USAGES.ARTICLE_EFFECTIVE_DATE%TYPE;
1661: l_config_header_id OKC_TEMPLATE_USAGES.CONFIG_HEADER_ID%TYPE;
1662: l_config_revision_number OKC_TEMPLATE_USAGES.CONFIG_REVISION_NUMBER%TYPE;
1663: l_valid_config_yn OKC_TEMPLATE_USAGES.VALID_CONFIG_YN%TYPE;
1664: l_orig_system_reference_code OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_CODE%TYPE;
1665: l_orig_system_reference_id1 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID1%TYPE;
1666: l_orig_system_reference_id2 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID2%TYPE;
1667:
1668: l_authoring_party_code OKC_TEMPLATE_USAGES.AUTHORING_PARTY_CODE%TYPE;
1661: l_config_header_id OKC_TEMPLATE_USAGES.CONFIG_HEADER_ID%TYPE;
1662: l_config_revision_number OKC_TEMPLATE_USAGES.CONFIG_REVISION_NUMBER%TYPE;
1663: l_valid_config_yn OKC_TEMPLATE_USAGES.VALID_CONFIG_YN%TYPE;
1664: l_orig_system_reference_code OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_CODE%TYPE;
1665: l_orig_system_reference_id1 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID1%TYPE;
1666: l_orig_system_reference_id2 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID2%TYPE;
1667:
1668: l_authoring_party_code OKC_TEMPLATE_USAGES.AUTHORING_PARTY_CODE%TYPE;
1669: l_contract_source_code OKC_TEMPLATE_USAGES.CONTRACT_SOURCE_CODE%TYPE;
1662: l_config_revision_number OKC_TEMPLATE_USAGES.CONFIG_REVISION_NUMBER%TYPE;
1663: l_valid_config_yn OKC_TEMPLATE_USAGES.VALID_CONFIG_YN%TYPE;
1664: l_orig_system_reference_code OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_CODE%TYPE;
1665: l_orig_system_reference_id1 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID1%TYPE;
1666: l_orig_system_reference_id2 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID2%TYPE;
1667:
1668: l_authoring_party_code OKC_TEMPLATE_USAGES.AUTHORING_PARTY_CODE%TYPE;
1669: l_contract_source_code OKC_TEMPLATE_USAGES.CONTRACT_SOURCE_CODE%TYPE;
1670: l_approval_abstract_text OKC_TEMPLATE_USAGES.APPROVAL_ABSTRACT_TEXT%TYPE;
1664: l_orig_system_reference_code OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_CODE%TYPE;
1665: l_orig_system_reference_id1 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID1%TYPE;
1666: l_orig_system_reference_id2 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID2%TYPE;
1667:
1668: l_authoring_party_code OKC_TEMPLATE_USAGES.AUTHORING_PARTY_CODE%TYPE;
1669: l_contract_source_code OKC_TEMPLATE_USAGES.CONTRACT_SOURCE_CODE%TYPE;
1670: l_approval_abstract_text OKC_TEMPLATE_USAGES.APPROVAL_ABSTRACT_TEXT%TYPE;
1671: l_autogen_deviations_flag OKC_TEMPLATE_USAGES.AUTOGEN_DEVIATIONS_FLAG%TYPE;
1672: -- Fix for bug# 3990983
1665: l_orig_system_reference_id1 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID1%TYPE;
1666: l_orig_system_reference_id2 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID2%TYPE;
1667:
1668: l_authoring_party_code OKC_TEMPLATE_USAGES.AUTHORING_PARTY_CODE%TYPE;
1669: l_contract_source_code OKC_TEMPLATE_USAGES.CONTRACT_SOURCE_CODE%TYPE;
1670: l_approval_abstract_text OKC_TEMPLATE_USAGES.APPROVAL_ABSTRACT_TEXT%TYPE;
1671: l_autogen_deviations_flag OKC_TEMPLATE_USAGES.AUTOGEN_DEVIATIONS_FLAG%TYPE;
1672: -- Fix for bug# 3990983
1673: l_source_change_allowed_flag OKC_TEMPLATE_USAGES.SOURCE_CHANGE_ALLOWED_FLAG%TYPE;
1666: l_orig_system_reference_id2 OKC_TEMPLATE_USAGES.ORIG_SYSTEM_REFERENCE_ID2%TYPE;
1667:
1668: l_authoring_party_code OKC_TEMPLATE_USAGES.AUTHORING_PARTY_CODE%TYPE;
1669: l_contract_source_code OKC_TEMPLATE_USAGES.CONTRACT_SOURCE_CODE%TYPE;
1670: l_approval_abstract_text OKC_TEMPLATE_USAGES.APPROVAL_ABSTRACT_TEXT%TYPE;
1671: l_autogen_deviations_flag OKC_TEMPLATE_USAGES.AUTOGEN_DEVIATIONS_FLAG%TYPE;
1672: -- Fix for bug# 3990983
1673: l_source_change_allowed_flag OKC_TEMPLATE_USAGES.SOURCE_CHANGE_ALLOWED_FLAG%TYPE;
1674:
1667:
1668: l_authoring_party_code OKC_TEMPLATE_USAGES.AUTHORING_PARTY_CODE%TYPE;
1669: l_contract_source_code OKC_TEMPLATE_USAGES.CONTRACT_SOURCE_CODE%TYPE;
1670: l_approval_abstract_text OKC_TEMPLATE_USAGES.APPROVAL_ABSTRACT_TEXT%TYPE;
1671: l_autogen_deviations_flag OKC_TEMPLATE_USAGES.AUTOGEN_DEVIATIONS_FLAG%TYPE;
1672: -- Fix for bug# 3990983
1673: l_source_change_allowed_flag OKC_TEMPLATE_USAGES.SOURCE_CHANGE_ALLOWED_FLAG%TYPE;
1674:
1675: l_object_version_number OKC_TEMPLATE_USAGES.OBJECT_VERSION_NUMBER%TYPE;
1669: l_contract_source_code OKC_TEMPLATE_USAGES.CONTRACT_SOURCE_CODE%TYPE;
1670: l_approval_abstract_text OKC_TEMPLATE_USAGES.APPROVAL_ABSTRACT_TEXT%TYPE;
1671: l_autogen_deviations_flag OKC_TEMPLATE_USAGES.AUTOGEN_DEVIATIONS_FLAG%TYPE;
1672: -- Fix for bug# 3990983
1673: l_source_change_allowed_flag OKC_TEMPLATE_USAGES.SOURCE_CHANGE_ALLOWED_FLAG%TYPE;
1674:
1675: l_object_version_number OKC_TEMPLATE_USAGES.OBJECT_VERSION_NUMBER%TYPE;
1676: l_created_by OKC_TEMPLATE_USAGES.CREATED_BY%TYPE;
1677: l_creation_date OKC_TEMPLATE_USAGES.CREATION_DATE%TYPE;
1671: l_autogen_deviations_flag OKC_TEMPLATE_USAGES.AUTOGEN_DEVIATIONS_FLAG%TYPE;
1672: -- Fix for bug# 3990983
1673: l_source_change_allowed_flag OKC_TEMPLATE_USAGES.SOURCE_CHANGE_ALLOWED_FLAG%TYPE;
1674:
1675: l_object_version_number OKC_TEMPLATE_USAGES.OBJECT_VERSION_NUMBER%TYPE;
1676: l_created_by OKC_TEMPLATE_USAGES.CREATED_BY%TYPE;
1677: l_creation_date OKC_TEMPLATE_USAGES.CREATION_DATE%TYPE;
1678: l_last_updated_by OKC_TEMPLATE_USAGES.LAST_UPDATED_BY%TYPE;
1679: l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
1672: -- Fix for bug# 3990983
1673: l_source_change_allowed_flag OKC_TEMPLATE_USAGES.SOURCE_CHANGE_ALLOWED_FLAG%TYPE;
1674:
1675: l_object_version_number OKC_TEMPLATE_USAGES.OBJECT_VERSION_NUMBER%TYPE;
1676: l_created_by OKC_TEMPLATE_USAGES.CREATED_BY%TYPE;
1677: l_creation_date OKC_TEMPLATE_USAGES.CREATION_DATE%TYPE;
1678: l_last_updated_by OKC_TEMPLATE_USAGES.LAST_UPDATED_BY%TYPE;
1679: l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
1680: l_last_update_date OKC_TEMPLATE_USAGES.LAST_UPDATE_DATE%TYPE;
1673: l_source_change_allowed_flag OKC_TEMPLATE_USAGES.SOURCE_CHANGE_ALLOWED_FLAG%TYPE;
1674:
1675: l_object_version_number OKC_TEMPLATE_USAGES.OBJECT_VERSION_NUMBER%TYPE;
1676: l_created_by OKC_TEMPLATE_USAGES.CREATED_BY%TYPE;
1677: l_creation_date OKC_TEMPLATE_USAGES.CREATION_DATE%TYPE;
1678: l_last_updated_by OKC_TEMPLATE_USAGES.LAST_UPDATED_BY%TYPE;
1679: l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
1680: l_last_update_date OKC_TEMPLATE_USAGES.LAST_UPDATE_DATE%TYPE;
1681:
1674:
1675: l_object_version_number OKC_TEMPLATE_USAGES.OBJECT_VERSION_NUMBER%TYPE;
1676: l_created_by OKC_TEMPLATE_USAGES.CREATED_BY%TYPE;
1677: l_creation_date OKC_TEMPLATE_USAGES.CREATION_DATE%TYPE;
1678: l_last_updated_by OKC_TEMPLATE_USAGES.LAST_UPDATED_BY%TYPE;
1679: l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
1680: l_last_update_date OKC_TEMPLATE_USAGES.LAST_UPDATE_DATE%TYPE;
1681:
1682:
1675: l_object_version_number OKC_TEMPLATE_USAGES.OBJECT_VERSION_NUMBER%TYPE;
1676: l_created_by OKC_TEMPLATE_USAGES.CREATED_BY%TYPE;
1677: l_creation_date OKC_TEMPLATE_USAGES.CREATION_DATE%TYPE;
1678: l_last_updated_by OKC_TEMPLATE_USAGES.LAST_UPDATED_BY%TYPE;
1679: l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
1680: l_last_update_date OKC_TEMPLATE_USAGES.LAST_UPDATE_DATE%TYPE;
1681:
1682:
1683: l_lock_terms_flag OKC_TEMPLATE_USAGES.LOCK_TERMS_FLAG%TYPE;
1676: l_created_by OKC_TEMPLATE_USAGES.CREATED_BY%TYPE;
1677: l_creation_date OKC_TEMPLATE_USAGES.CREATION_DATE%TYPE;
1678: l_last_updated_by OKC_TEMPLATE_USAGES.LAST_UPDATED_BY%TYPE;
1679: l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
1680: l_last_update_date OKC_TEMPLATE_USAGES.LAST_UPDATE_DATE%TYPE;
1681:
1682:
1683: l_lock_terms_flag OKC_TEMPLATE_USAGES.LOCK_TERMS_FLAG%TYPE;
1684: l_enable_reporting_flag OKC_TEMPLATE_USAGES.ENABLE_REPORTING_FLAG%TYPE;
1679: l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
1680: l_last_update_date OKC_TEMPLATE_USAGES.LAST_UPDATE_DATE%TYPE;
1681:
1682:
1683: l_lock_terms_flag OKC_TEMPLATE_USAGES.LOCK_TERMS_FLAG%TYPE;
1684: l_enable_reporting_flag OKC_TEMPLATE_USAGES.ENABLE_REPORTING_FLAG%TYPE;
1685: l_contract_admin_id OKC_TEMPLATE_USAGES.CONTRACT_ADMIN_ID%TYPE;
1686: l_legal_contact_id OKC_TEMPLATE_USAGES.LEGAL_CONTACT_ID%TYPE;
1687: l_locked_by_user_id OKC_TEMPLATE_USAGES.LOCKED_BY_USER_ID%TYPE;
1680: l_last_update_date OKC_TEMPLATE_USAGES.LAST_UPDATE_DATE%TYPE;
1681:
1682:
1683: l_lock_terms_flag OKC_TEMPLATE_USAGES.LOCK_TERMS_FLAG%TYPE;
1684: l_enable_reporting_flag OKC_TEMPLATE_USAGES.ENABLE_REPORTING_FLAG%TYPE;
1685: l_contract_admin_id OKC_TEMPLATE_USAGES.CONTRACT_ADMIN_ID%TYPE;
1686: l_legal_contact_id OKC_TEMPLATE_USAGES.LEGAL_CONTACT_ID%TYPE;
1687: l_locked_by_user_id OKC_TEMPLATE_USAGES.LOCKED_BY_USER_ID%TYPE;
1688:
1681:
1682:
1683: l_lock_terms_flag OKC_TEMPLATE_USAGES.LOCK_TERMS_FLAG%TYPE;
1684: l_enable_reporting_flag OKC_TEMPLATE_USAGES.ENABLE_REPORTING_FLAG%TYPE;
1685: l_contract_admin_id OKC_TEMPLATE_USAGES.CONTRACT_ADMIN_ID%TYPE;
1686: l_legal_contact_id OKC_TEMPLATE_USAGES.LEGAL_CONTACT_ID%TYPE;
1687: l_locked_by_user_id OKC_TEMPLATE_USAGES.LOCKED_BY_USER_ID%TYPE;
1688:
1689: BEGIN
1682:
1683: l_lock_terms_flag OKC_TEMPLATE_USAGES.LOCK_TERMS_FLAG%TYPE;
1684: l_enable_reporting_flag OKC_TEMPLATE_USAGES.ENABLE_REPORTING_FLAG%TYPE;
1685: l_contract_admin_id OKC_TEMPLATE_USAGES.CONTRACT_ADMIN_ID%TYPE;
1686: l_legal_contact_id OKC_TEMPLATE_USAGES.LEGAL_CONTACT_ID%TYPE;
1687: l_locked_by_user_id OKC_TEMPLATE_USAGES.LOCKED_BY_USER_ID%TYPE;
1688:
1689: BEGIN
1690:
1683: l_lock_terms_flag OKC_TEMPLATE_USAGES.LOCK_TERMS_FLAG%TYPE;
1684: l_enable_reporting_flag OKC_TEMPLATE_USAGES.ENABLE_REPORTING_FLAG%TYPE;
1685: l_contract_admin_id OKC_TEMPLATE_USAGES.CONTRACT_ADMIN_ID%TYPE;
1686: l_legal_contact_id OKC_TEMPLATE_USAGES.LEGAL_CONTACT_ID%TYPE;
1687: l_locked_by_user_id OKC_TEMPLATE_USAGES.LOCKED_BY_USER_ID%TYPE;
1688:
1689: BEGIN
1690:
1691: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1896: ---------------------------------------------------------------------------
1897: -- PROCEDURE Delete_Row
1898: ---------------------------------------------------------------------------
1899: -------------------------------------
1900: -- Delete_Row for:OKC_TEMPLATE_USAGES --
1901: -------------------------------------
1902: FUNCTION Delete_Row(
1903: p_document_type IN VARCHAR2,
1904: p_document_id IN NUMBER
1909: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1910: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8200: Entered Delete_Row');
1911: END IF;
1912:
1913: DELETE FROM OKC_TEMPLATE_USAGES WHERE DOCUMENT_TYPE = p_DOCUMENT_TYPE AND DOCUMENT_ID = p_DOCUMENT_ID;
1914:
1915: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1916: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8300: Leaving Delete_Row');
1917: END IF;
1936:
1937: END Delete_Row;
1938:
1939: -------------------------------------
1940: -- Delete_Row for:OKC_TEMPLATE_USAGES --
1941: -------------------------------------
1942: PROCEDURE Delete_Row(
1943: x_return_status OUT NOCOPY VARCHAR2,
1944: p_document_type IN VARCHAR2,
2023:
2024: -----------------------------------------
2025: -- Saving Base Table
2026: -----------------------------------------
2027: INSERT INTO OKC_TEMPLATE_USAGES_H (
2028: major_version,
2029: DOCUMENT_TYPE,
2030: DOCUMENT_ID,
2031: TEMPLATE_ID,
2087: ENABLE_REPORTING_FLAG,
2088: CONTRACT_ADMIN_ID,
2089: LEGAL_CONTACT_ID,
2090: LOCKED_BY_USER_ID
2091: FROM OKC_TEMPLATE_USAGES
2092: WHERE document_type = p_doc_type and document_id = p_doc_id;
2093:
2094: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2095: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'10000: Leaving create_version');
2131:
2132: -----------------------------------------
2133: -- Restoring Base Table
2134: -----------------------------------------
2135: INSERT INTO OKC_TEMPLATE_USAGES (
2136: DOCUMENT_TYPE,
2137: DOCUMENT_ID,
2138: TEMPLATE_ID,
2139: DOC_NUMBERING_SCHEME,
2193: ENABLE_REPORTING_FLAG,
2194: CONTRACT_ADMIN_ID,
2195: LEGAL_CONTACT_ID,
2196: LOCKED_BY_USER_ID
2197: FROM OKC_TEMPLATE_USAGES_H
2198: WHERE document_type = p_doc_type and document_id = p_doc_id AND major_version = p_major_version;
2199:
2200: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2201: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'10500: Leaving restore_version');
2236: -----------------------------------------
2237: -- Restoring Base Table
2238: -----------------------------------------
2239: DELETE
2240: FROM OKC_TEMPLATE_USAGES_H
2241: WHERE document_type = p_doc_type
2242: AND document_id = p_doc_id
2243: AND major_version = p_major_version;
2244:
2380: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
2381: END IF;
2382: x_return_status := G_RET_STS_UNEXP_ERROR ;
2383: END Delete_Set;
2384: END OKC_TEMPLATE_USAGES_PVT;