The following lines contain the word 'select', 'insert', 'update' or 'delete':
G_RECORD_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_DELETED;
G_NEW_RECORD_DELETED CONSTANT VARCHAR2(200) := 'OKC_LOCK_RECORD_DELETED';
G_RECORD_LOGICALLY_DELETED CONSTANT VARCHAR2(200) := OKC_API.G_RECORD_LOGICALLY_DELETED;
x_program_update_date OUT NOCOPY DATE,
x_parent_attached_doc_id OUT NOCOPY NUMBER,
x_delete_flag OUT NOCOPY VARCHAR2,
x_generated_flag OUT NOCOPY VARCHAR2,
x_object_version_number OUT NOCOPY NUMBER,
x_created_by OUT NOCOPY NUMBER,
x_creation_date OUT NOCOPY DATE,
x_last_updated_by OUT NOCOPY NUMBER,
x_last_update_login OUT NOCOPY NUMBER,
x_last_update_date OUT NOCOPY DATE,
x_primary_contract_doc_flag OUT NOCOPY VARCHAR2,
x_mergeable_doc_flag OUT NOCOPY VARCHAR2
) RETURN VARCHAR2 IS
l_api_name CONSTANT VARCHAR2(30) := 'get_rec';
SELECT
EXTERNAL_VISIBILITY_FLAG,
EFFECTIVE_FROM_TYPE,
EFFECTIVE_FROM_ID,
EFFECTIVE_FROM_VERSION,
INCLUDE_FOR_APPROVAL_FLAG,
PROGRAM_ID,
PROGRAM_APPLICATION_ID,
REQUEST_ID,
PROGRAM_UPDATE_DATE,
PARENT_ATTACHED_DOC_ID,
DELETE_FLAG,
GENERATED_FLAG,
OBJECT_VERSION_NUMBER,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
PRIMARY_CONTRACT_DOC_FLAG,
MERGEABLE_DOC_FLAG
FROM OKC_CONTRACT_DOCS t
WHERE t.BUSINESS_DOCUMENT_TYPE = cp_business_document_type and
t.BUSINESS_DOCUMENT_ID = cp_business_document_id and
t.BUSINESS_DOCUMENT_VERSION = cp_business_document_version and
t.ATTACHED_DOCUMENT_ID = cp_attached_document_id;
x_program_update_date,
x_parent_attached_doc_id,
x_delete_flag,
x_generated_flag,
x_object_version_number,
x_created_by,
x_creation_date,
x_last_updated_by,
x_last_update_login,
x_last_update_date,
x_primary_contract_doc_flag,
x_mergeable_doc_flag ;
p_program_update_date IN DATE,
p_parent_attached_doc_id IN NUMBER,
p_delete_flag IN VARCHAR2,
p_generated_flag IN VARCHAR2,
p_object_version_number IN OUT NOCOPY NUMBER,
p_primary_contract_doc_flag IN VARCHAR2,
p_mergeable_doc_flag IN VARCHAR2,
x_external_visibility_flag OUT NOCOPY VARCHAR2,
x_effective_from_type OUT NOCOPY VARCHAR2,
x_effective_from_id OUT NOCOPY NUMBER,
x_effective_from_version OUT NOCOPY NUMBER,
x_include_for_approval_flag OUT NOCOPY VARCHAR2,
x_program_id OUT NOCOPY NUMBER,
x_program_application_id OUT NOCOPY NUMBER,
x_request_id OUT NOCOPY NUMBER,
x_program_update_date OUT NOCOPY DATE,
x_parent_attached_doc_id OUT NOCOPY NUMBER,
x_delete_flag OUT NOCOPY VARCHAR2,
x_generated_flag OUT NOCOPY VARCHAR2,
x_primary_contract_doc_flag OUT NOCOPY VARCHAR2,
x_mergeable_doc_flag OUT NOCOPY VARCHAR2
) RETURN VARCHAR2 IS
l_api_name CONSTANT VARCHAR2(30) := 'set_attributes';
l_last_updated_by OKC_CONTRACT_DOCS.LAST_UPDATED_BY%TYPE;
l_last_update_login OKC_CONTRACT_DOCS.LAST_UPDATE_LOGIN%TYPE;
l_last_update_date OKC_CONTRACT_DOCS.LAST_UPDATE_DATE%TYPE;
x_program_update_date => x_program_update_date,
x_parent_attached_doc_id => x_parent_attached_doc_id,
x_delete_flag => x_delete_flag,
x_generated_flag => x_generated_flag,
x_object_version_number => l_object_version_number,
x_created_by => l_created_by,
x_creation_date => l_creation_date,
x_last_updated_by => l_last_updated_by,
x_last_update_login => l_last_update_login,
x_last_update_date => l_last_update_date,
x_primary_contract_doc_flag => x_primary_contract_doc_flag,
x_mergeable_doc_flag => x_mergeable_doc_flag
);
IF (p_program_update_date = G_MISS_DATE) THEN
x_program_update_date := NULL;
ELSIF (p_program_update_date IS NOT NULL) THEN
x_program_update_date := p_program_update_date;
IF (p_delete_flag = G_MISS_CHAR) THEN
x_delete_flag := NULL;
ELSIF (p_delete_flag IS NOT NULL) THEN
x_delete_flag := p_delete_flag;
p_program_update_date IN DATE,
p_parent_attached_doc_id IN NUMBER,
p_delete_flag IN VARCHAR2,
p_generated_flag IN VARCHAR2,
p_primary_contract_doc_flag IN VARCHAR2,
p_mergeable_doc_flag IN VARCHAR2
) RETURN VARCHAR2 IS
l_api_name CONSTANT VARCHAR2(30) := 'validate_attributes';
p_program_update_date IN DATE,
p_parent_attached_doc_id IN NUMBER,
p_delete_flag IN VARCHAR2,
p_generated_flag IN VARCHAR2,
p_primary_contract_doc_flag IN VARCHAR2,
p_mergeable_doc_flag IN VARCHAR2
) RETURN VARCHAR2 IS
l_api_name CONSTANT VARCHAR2(30) := 'validate_record';
p_program_update_date => p_program_update_date,
p_parent_attached_doc_id => p_parent_attached_doc_id,
p_delete_flag => p_delete_flag,
p_generated_flag => p_generated_flag,
p_primary_contract_doc_flag => p_primary_contract_doc_flag,
p_mergeable_doc_flag => p_mergeable_doc_flag
);
p_program_update_date IN DATE,
p_parent_attached_doc_id IN NUMBER,
p_delete_flag IN VARCHAR2,
p_generated_flag IN VARCHAR2,
p_primary_contract_doc_flag IN VARCHAR2,
p_mergeable_doc_flag IN VARCHAR2,
p_object_version_number IN NUMBER
) IS
l_api_name CONSTANT VARCHAR2(30) := 'validate_row';
l_program_update_date OKC_CONTRACT_DOCS.PROGRAM_UPDATE_DATE%TYPE;
l_delete_flag OKC_CONTRACT_DOCS.DELETE_FLAG%TYPE;
l_last_updated_by OKC_CONTRACT_DOCS.LAST_UPDATED_BY%TYPE;
l_last_update_login OKC_CONTRACT_DOCS.LAST_UPDATE_LOGIN%TYPE;
l_last_update_date OKC_CONTRACT_DOCS.LAST_UPDATE_DATE%TYPE;
p_program_update_date => p_program_update_date,
p_parent_attached_doc_id => p_parent_attached_doc_id,
p_delete_flag => p_delete_flag,
p_generated_flag => p_generated_flag,
p_object_version_number => l_object_version_number,
p_primary_contract_doc_flag => p_primary_contract_doc_flag,
p_mergeable_doc_flag => p_mergeable_doc_flag ,
x_external_visibility_flag => l_external_visibility_flag,
x_effective_from_type => l_effective_from_type,
x_effective_from_id => l_effective_from_id,
x_effective_from_version => l_effective_from_version,
x_include_for_approval_flag => l_include_for_approval_flag,
x_program_id => l_program_id,
x_program_application_id => l_program_application_id,
x_request_id => l_request_id,
x_program_update_date => l_program_update_date,
x_parent_attached_doc_id => l_parent_attached_doc_id,
x_delete_flag => l_delete_flag,
x_generated_flag => l_generated_flag,
x_primary_contract_doc_flag => l_primary_contract_doc_flag,
x_mergeable_doc_flag => l_mergeable_doc_flag
);
p_program_update_date => l_program_update_date,
p_parent_attached_doc_id => l_parent_attached_doc_id,
p_delete_flag => l_delete_flag,
p_generated_flag => l_generated_flag,
p_primary_contract_doc_flag => l_primary_contract_doc_flag,
p_mergeable_doc_flag => l_mergeable_doc_flag
);
FUNCTION Insert_Row(
p_business_document_type IN VARCHAR2,
p_business_document_id IN NUMBER,
p_business_document_version IN NUMBER,
p_attached_document_id IN NUMBER,
p_external_visibility_flag IN VARCHAR2,
p_effective_from_type IN VARCHAR2,
p_effective_from_id IN NUMBER,
p_effective_from_version IN NUMBER,
p_include_for_approval_flag IN VARCHAR2,
p_program_id IN NUMBER,
p_program_application_id IN NUMBER,
p_request_id IN NUMBER,
p_program_update_date IN DATE,
p_parent_attached_doc_id IN NUMBER,
p_delete_flag IN VARCHAR2,
p_generated_flag IN VARCHAR2,
p_object_version_number IN NUMBER,
p_created_by IN NUMBER,
p_creation_date IN DATE,
p_last_updated_by IN NUMBER,
p_last_update_login IN NUMBER,
p_last_update_date IN DATE,
p_primary_contract_doc_flag IN VARCHAR2,
p_mergeable_doc_flag IN VARCHAR2
) RETURN VARCHAR2 IS
l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3600: Entered Insert_Row function');
INSERT INTO OKC_CONTRACT_DOCS(
BUSINESS_DOCUMENT_TYPE,
BUSINESS_DOCUMENT_ID,
BUSINESS_DOCUMENT_VERSION,
ATTACHED_DOCUMENT_ID,
EXTERNAL_VISIBILITY_FLAG,
EFFECTIVE_FROM_TYPE,
EFFECTIVE_FROM_ID,
EFFECTIVE_FROM_VERSION,
INCLUDE_FOR_APPROVAL_FLAG,
PROGRAM_ID,
PROGRAM_APPLICATION_ID,
REQUEST_ID,
PROGRAM_UPDATE_DATE,
PARENT_ATTACHED_DOC_ID,
DELETE_FLAG,
GENERATED_FLAG,
OBJECT_VERSION_NUMBER,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE,
PRIMARY_CONTRACT_DOC_FLAG,
MERGEABLE_DOC_FLAG )
VALUES (
p_business_document_type,
p_business_document_id,
p_business_document_version,
p_attached_document_id,
p_external_visibility_flag,
p_effective_from_type,
p_effective_from_id,
p_effective_from_version,
p_include_for_approval_flag,
p_program_id,
p_program_application_id,
p_request_id,
p_program_update_date,
p_parent_attached_doc_id,
p_delete_flag,
p_generated_flag,
p_object_version_number,
p_created_by,
p_creation_date,
p_last_updated_by,
p_last_update_login,
p_last_update_date,
p_primary_contract_doc_flag,
p_mergeable_doc_flag );
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3700: Leaving Insert_Row');
FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'3800: Leaving Insert_Row:OTHERS Exception');
END Insert_Row;
PROCEDURE Insert_Row(
p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
x_return_status OUT NOCOPY VARCHAR2,
p_business_document_type IN VARCHAR2,
p_business_document_id IN NUMBER,
p_business_document_version IN NUMBER,
p_attached_document_id IN NUMBER,
p_external_visibility_flag IN VARCHAR2,
p_effective_from_type IN VARCHAR2,
p_effective_from_id IN NUMBER,
p_effective_from_version IN NUMBER,
p_include_for_approval_flag IN VARCHAR2,
p_program_id IN NUMBER,
p_program_application_id IN NUMBER,
p_request_id IN NUMBER,
p_program_update_date IN DATE,
p_parent_attached_doc_id IN NUMBER,
p_delete_flag IN VARCHAR2,
p_generated_flag IN VARCHAR2,
p_primary_contract_doc_flag IN VARCHAR2,
p_mergeable_doc_flag IN VARCHAR2,
x_business_document_type OUT NOCOPY VARCHAR2,
x_business_document_id OUT NOCOPY NUMBER,
x_business_document_version OUT NOCOPY NUMBER,
x_attached_document_id OUT NOCOPY NUMBER
) IS
l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
l_last_updated_by OKC_CONTRACT_DOCS.LAST_UPDATED_BY%TYPE;
l_last_update_login OKC_CONTRACT_DOCS.LAST_UPDATE_LOGIN%TYPE;
l_last_update_date OKC_CONTRACT_DOCS.LAST_UPDATE_DATE%TYPE;
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4200: Entered Insert_Row');
l_last_update_date := l_creation_date;
l_last_updated_by := l_created_by;
l_last_update_login := Fnd_Global.Login_Id;
p_program_update_date => p_program_update_date,
p_parent_attached_doc_id => p_parent_attached_doc_id,
p_delete_flag => p_delete_flag,
p_generated_flag => p_generated_flag,
p_primary_contract_doc_flag => p_primary_contract_doc_flag,
p_mergeable_doc_flag => p_mergeable_doc_flag
);
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4300: Call the internal Insert_Row for Base Table');
x_return_status := Insert_Row(
p_business_document_type => x_business_document_type,
p_business_document_id => x_business_document_id,
p_business_document_version => x_business_document_version,
p_attached_document_id => x_attached_document_id,
p_external_visibility_flag => p_external_visibility_flag,
p_effective_from_type => p_effective_from_type,
p_effective_from_id => p_effective_from_id,
p_effective_from_version => p_effective_from_version,
p_include_for_approval_flag => p_include_for_approval_flag,
p_program_id => p_program_id,
p_program_application_id => p_program_application_id,
p_request_id => p_request_id,
p_program_update_date => p_program_update_date,
p_parent_attached_doc_id => p_parent_attached_doc_id,
p_delete_flag => p_delete_flag,
p_generated_flag => p_generated_flag,
p_object_version_number => l_object_version_number,
p_created_by => l_created_by,
p_creation_date => l_creation_date,
p_last_updated_by => l_last_updated_by,
p_last_update_login => l_last_update_login,
p_last_update_date => l_last_update_date,
p_primary_contract_doc_flag => p_primary_contract_doc_flag,
p_mergeable_doc_flag => p_mergeable_doc_flag
);
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4500: Leaving Insert_Row');
FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4600: Leaving Insert_Row:FND_API.G_EXC_ERROR Exception');
FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4700: Leaving Insert_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4800: Leaving Insert_Row because of EXCEPTION: '||sqlerrm);
END Insert_Row;
SELECT object_version_number
FROM OKC_CONTRACT_DOCS
WHERE BUSINESS_DOCUMENT_TYPE = cp_business_document_type AND BUSINESS_DOCUMENT_ID = cp_business_document_id AND BUSINESS_DOCUMENT_VERSION = cp_business_document_version AND ATTACHED_DOCUMENT_ID = cp_attached_document_id
AND (object_version_number = cp_object_version_number OR cp_object_version_number IS NULL)
FOR UPDATE OF object_version_number NOWAIT;
SELECT object_version_number
FROM OKC_CONTRACT_DOCS
WHERE BUSINESS_DOCUMENT_TYPE = cp_business_document_type AND BUSINESS_DOCUMENT_ID = cp_business_document_id AND BUSINESS_DOCUMENT_VERSION = cp_business_document_version AND ATTACHED_DOCUMENT_ID = cp_attached_document_id;
p_msg_name => G_NEW_RECORD_DELETED,
p_token1 => 'ENTITYNAME',
p_token1_value => G_ENTITY_NAME,
p_token2 => 'PKEY',
p_token2_value => l_pk_string,
p_token3 => 'OVN',
p_token3_value => l_object_version_number);
Okc_Api.Set_Message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
FUNCTION Update_Row(
p_business_document_type IN VARCHAR2,
p_business_document_id IN NUMBER,
p_business_document_version IN NUMBER,
p_attached_document_id IN NUMBER,
p_external_visibility_flag IN VARCHAR2,
p_effective_from_type IN VARCHAR2,
p_effective_from_id IN NUMBER,
p_effective_from_version IN NUMBER,
p_include_for_approval_flag IN VARCHAR2,
p_program_id IN NUMBER,
p_program_application_id IN NUMBER,
p_request_id IN NUMBER,
p_program_update_date IN DATE,
p_parent_attached_doc_id IN NUMBER,
p_delete_flag IN VARCHAR2,
p_generated_flag IN VARCHAR2,
p_object_version_number IN NUMBER,
p_last_updated_by IN NUMBER,
p_last_update_login IN NUMBER,
p_last_update_date IN DATE,
p_primary_contract_doc_flag IN VARCHAR2,
p_mergeable_doc_flag IN VARCHAR2
) RETURN VARCHAR2 IS
l_api_name CONSTANT VARCHAR2(30) := 'update_row';
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'6400: Entered Update_Row');
UPDATE OKC_CONTRACT_DOCS
SET EXTERNAL_VISIBILITY_FLAG = p_external_visibility_flag,
EFFECTIVE_FROM_TYPE = p_effective_from_type,
EFFECTIVE_FROM_ID = p_effective_from_id,
EFFECTIVE_FROM_VERSION = p_effective_from_version,
INCLUDE_FOR_APPROVAL_FLAG = p_include_for_approval_flag,
PROGRAM_ID = p_program_id,
PROGRAM_APPLICATION_ID = p_program_application_id,
REQUEST_ID = p_request_id,
PROGRAM_UPDATE_DATE = p_program_update_date,
PARENT_ATTACHED_DOC_ID = p_parent_attached_doc_id,
DELETE_FLAG = p_delete_flag,
GENERATED_FLAG = p_generated_flag,
OBJECT_VERSION_NUMBER = p_object_version_number,
LAST_UPDATED_BY = p_last_updated_by,
LAST_UPDATE_LOGIN = p_last_update_login,
LAST_UPDATE_DATE = p_last_update_date,
PRIMARY_CONTRACT_DOC_FLAG = p_primary_contract_doc_flag,
MERGEABLE_DOC_FLAG = p_mergeable_doc_flag
WHERE BUSINESS_DOCUMENT_TYPE = p_business_document_type AND BUSINESS_DOCUMENT_ID = p_business_document_id AND BUSINESS_DOCUMENT_VERSION = p_business_document_version AND ATTACHED_DOCUMENT_ID = p_attached_document_id;
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'6500: Leaving Update_Row');
FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'6600: Leaving Update_Row because of EXCEPTION: '||sqlerrm);
END Update_Row;
PROCEDURE Update_Row(
p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
x_return_status OUT NOCOPY VARCHAR2,
p_business_document_type IN VARCHAR2,
p_business_document_id IN NUMBER,
p_business_document_version IN NUMBER,
p_attached_document_id IN NUMBER,
p_external_visibility_flag IN VARCHAR2 := NULL,
p_effective_from_type IN VARCHAR2 := NULL,
p_effective_from_id IN NUMBER := NULL,
p_effective_from_version IN NUMBER := NULL,
p_include_for_approval_flag IN VARCHAR2 := NULL,
p_program_id IN NUMBER := NULL,
p_program_application_id IN NUMBER := NULL,
p_request_id IN NUMBER := NULL,
p_program_update_date IN DATE := NULL,
p_parent_attached_doc_id IN NUMBER := NULL,
p_delete_flag IN VARCHAR2 := NULL,
p_generated_flag IN VARCHAR2 := NULL,
p_primary_contract_doc_flag IN VARCHAR2 := NULL,
p_mergeable_doc_flag IN VARCHAR2 := NULL,
p_object_version_number IN NUMBER
) IS
l_api_name CONSTANT VARCHAR2(30) := 'update_row';
l_program_update_date OKC_CONTRACT_DOCS.PROGRAM_UPDATE_DATE%TYPE;
l_delete_flag OKC_CONTRACT_DOCS.DELETE_FLAG%TYPE;
l_last_updated_by OKC_CONTRACT_DOCS.LAST_UPDATED_BY%TYPE;
l_last_update_login OKC_CONTRACT_DOCS.LAST_UPDATE_LOGIN%TYPE;
l_last_update_date OKC_CONTRACT_DOCS.LAST_UPDATE_DATE%TYPE;
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7000: Entered Update_Row');
p_program_update_date => p_program_update_date,
p_parent_attached_doc_id => p_parent_attached_doc_id,
p_delete_flag => p_delete_flag,
p_generated_flag => p_generated_flag,
p_object_version_number => l_object_version_number,
p_primary_contract_doc_flag => p_primary_contract_doc_flag,
p_mergeable_doc_flag => p_mergeable_doc_flag,
x_external_visibility_flag => l_external_visibility_flag,
x_effective_from_type => l_effective_from_type,
x_effective_from_id => l_effective_from_id,
x_effective_from_version => l_effective_from_version,
x_include_for_approval_flag => l_include_for_approval_flag,
x_program_id => l_program_id,
x_program_application_id => l_program_application_id,
x_request_id => l_request_id,
x_program_update_date => l_program_update_date,
x_parent_attached_doc_id => l_parent_attached_doc_id,
x_delete_flag => l_delete_flag,
x_generated_flag => l_generated_flag,
x_primary_contract_doc_flag => l_primary_contract_doc_flag,
x_mergeable_doc_flag => l_mergeable_doc_flag
);
p_program_update_date => l_program_update_date,
p_parent_attached_doc_id => l_parent_attached_doc_id,
p_delete_flag => l_delete_flag,
p_generated_flag => l_generated_flag,
p_primary_contract_doc_flag => l_primary_contract_doc_flag,
p_mergeable_doc_flag => l_mergeable_doc_flag
);
l_last_update_date := SYSDATE;
l_last_updated_by := FND_GLOBAL.USER_ID;
l_last_update_login := FND_GLOBAL.LOGIN_ID;
x_return_status := Update_Row(
p_business_document_type => p_business_document_type,
p_business_document_id => p_business_document_id,
p_business_document_version => p_business_document_version,
p_attached_document_id => p_attached_document_id,
p_external_visibility_flag => l_external_visibility_flag,
p_effective_from_type => l_effective_from_type,
p_effective_from_id => l_effective_from_id,
p_effective_from_version => l_effective_from_version,
p_include_for_approval_flag => l_include_for_approval_flag,
p_program_id => l_program_id,
p_program_application_id => l_program_application_id,
p_request_id => l_request_id,
p_program_update_date => l_program_update_date,
p_parent_attached_doc_id => l_parent_attached_doc_id,
p_delete_flag => l_delete_flag,
p_generated_flag => l_generated_flag,
p_object_version_number => l_object_version_number,
p_last_updated_by => l_last_updated_by,
p_last_update_login => l_last_update_login,
p_last_update_date => l_last_update_date,
p_primary_contract_doc_flag => l_primary_contract_doc_flag,
p_mergeable_doc_flag => l_mergeable_doc_flag
);
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7800: Leaving Update_Row');
FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'7900: Leaving Update_Row:FND_API.G_EXC_ERROR Exception');
FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'8000: Leaving Update_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'8100: Leaving Update_Row because of EXCEPTION: '||sqlerrm);
END Update_Row;
FUNCTION Delete_Row(
p_business_document_type IN VARCHAR2,
p_business_document_id IN NUMBER,
p_business_document_version IN NUMBER,
p_attached_document_id IN NUMBER
) RETURN VARCHAR2 IS
l_api_name CONSTANT VARCHAR2(30) := 'delete_row';
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8200: Entered Delete_Row');
DELETE FROM OKC_CONTRACT_DOCS
WHERE BUSINESS_DOCUMENT_TYPE = p_BUSINESS_DOCUMENT_TYPE AND BUSINESS_DOCUMENT_ID = p_BUSINESS_DOCUMENT_ID AND BUSINESS_DOCUMENT_VERSION = p_BUSINESS_DOCUMENT_VERSION AND ATTACHED_DOCUMENT_ID = p_ATTACHED_DOCUMENT_ID;
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8300: Leaving Delete_Row');
FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'8400: Leaving Delete_Row because of EXCEPTION: '||sqlerrm);
END Delete_Row;
PROCEDURE Delete_Row(
x_return_status OUT NOCOPY VARCHAR2,
p_business_document_type IN VARCHAR2,
p_business_document_id IN NUMBER,
p_business_document_version IN NUMBER,
p_attached_document_id IN NUMBER,
p_object_version_number IN NUMBER
) IS
l_api_name CONSTANT VARCHAR2(30) := 'B_Delete_Row';
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8800: Entered Delete_Row');
x_return_status := Delete_Row( p_business_document_type => p_business_document_type,p_business_document_id => p_business_document_id,p_business_document_version => p_business_document_version,p_attached_document_id => p_attached_document_id );
FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'9300: Leaving Delete_Row');
FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'9400: Leaving Delete_Row:FND_API.G_EXC_ERROR Exception');
FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'9500: Leaving Delete_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'9600: Leaving Delete_Row because of EXCEPTION: '||sqlerrm);
END Delete_Row;
UPDATE okc_contract_docs
SET effective_from_version = -99
WHERE delete_flag = 'N'
AND business_document_version = p_business_document_version - 1
AND business_document_id = p_business_document_id
AND business_document_type = p_business_document_type
AND business_document_version = effective_from_version;
UPDATE okc_contract_docs
SET business_document_version = -99
WHERE delete_flag = 'N'
AND business_document_version = p_business_document_version - 1
AND business_document_id = p_business_document_id
AND business_document_type = p_business_document_type;