The following lines contain the word 'select', 'insert', 'update' or 'delete':
/* description : Validation checks for before inserting */
/* new record as well before modification */
/* takes place */
/*---------------------------------------------------------*/
G_DEBUG VARCHAR2(1):=AHL_DEBUG_PUB.is_log_enabled;
P_DELETE_FLAG IN VARCHAR2 := 'N' )
IS
--Cursor to retrieve the revision type code
CURSOR get_revision_type_code(c_revision_type_code VARCHAR2)
IS
SELECT lookup_code
FROM FND_LOOKUP_VALUES_VL
WHERE lookup_code = c_revision_type_code
AND lookup_type = 'AHL_REVISION_TYPE'
AND sysdate between start_date_active
AND nvl(end_date_active,sysdate);
SELECT lookup_code
FROM FND_LOOKUP_VALUES_VL
WHERE lookup_code = c_revision_status_code
AND lookup_type = 'AHL_REVISION_STATUS_TYPE'
AND sysdate between start_date_active
AND nvl(end_date_active,sysdate);
SELECT lookup_code
FROM FND_LOOKUP_VALUES_VL
WHERE lookup_code = c_media_type_code
AND lookup_type = 'AHL_MEDIA_TYPE'
AND sysdate between start_date_active
AND nvl(end_date_active,sysdate);
SELECT 'X'
FROM AHL_DOCUMENTS_B
WHERE document_id = c_document_id;
SELECT document_id,
revision_no,
revision_type_code,
revision_status_code,
revision_date,
approved_by_party_id,
approved_date,
effective_date,
obsolete_date,
issue_date,
received_date,
media_type_code,
issue_number
FROM AHL_DOC_REVISIONS_B
WHERE doc_revision_id = c_doc_revision_id;
SELECT 'X'
FROM AHL_DOC_REVISIONS_B
WHERE document_id = c_document_id
AND revision_no = c_revision_no;
SELECT '1'
FROM AHL_DOC_FILE_ASSOC_V
WHERE revision_id = c_doc_revision_id;
IF NVL(p_delete_flag,'N') <> 'Y'
THEN
IF p_doc_revision_id IS NOT NULL
THEN
OPEN get_doc_revision_rec_info(p_doc_revision_id);
SELECT MEANING into l_media_type_meaning
FROM FND_LOOKUP_VALUES_VL
WHERE LOOKUP_TYPE='AHL_MEDIA_TYPE' AND LOOKUP_CODE='E-FILE';
p_delete_flag => p_x_revision_tbl(i).delete_flag
);
Select AHL_DOC_REVISIONS_B_S.Nextval Into l_doc_revision_id from dual;
AHL_DOC_REVISIONS_PKG.INSERT_ROW(X_ROWID => l_row_id,
X_DOC_REVISION_ID => l_doc_revision_id,
X_APPROVED_DATE => l_revision_info.approved_date,
X_EFFECTIVE_DATE => l_revision_info.effective_date,
X_OBSOLETE_DATE => l_revision_info.obsolete_date,
X_ISSUE_DATE => l_revision_info.issue_date,
X_RECEIVED_DATE => l_revision_info.received_date,
X_URL => l_revision_info.url,
X_MEDIA_TYPE_CODE => l_revision_info.media_type_code,
X_VOLUME => l_revision_info.volume,
X_ISSUE => l_revision_info.issue,
X_ISSUE_NUMBER => l_revision_info.issue_number,
X_ATTRIBUTE_CATEGORY => l_revision_info.attribute_category,
X_ATTRIBUTE1 => l_revision_info.attribute1,
X_ATTRIBUTE2 => l_revision_info.attribute2,
X_REVISION_DATE => l_revision_info.revision_date,
X_ATTRIBUTE15 => l_revision_info.attribute15,
X_ATTRIBUTE9 => l_revision_info.attribute9,
X_ATTRIBUTE10 => l_revision_info.attribute10,
X_ATTRIBUTE11 => l_revision_info.attribute11,
X_ATTRIBUTE12 => l_revision_info.attribute12,
X_ATTRIBUTE13 => l_revision_info.attribute13,
X_DOCUMENT_ID => p_x_revision_tbl(i).document_id,
X_REVISION_NO => p_x_revision_tbl(i).revision_no,
X_APPROVED_BY_PARTY_ID => l_revision_info.approved_by_party_id,
X_REVISION_TYPE_CODE => p_x_revision_tbl(i).revision_type_code,
X_REVISION_STATUS_CODE => p_x_revision_tbl(i).revision_status_code,
X_OBJECT_VERSION_NUMBER => 1,
X_ATTRIBUTE3 => l_revision_info.attribute3,
X_ATTRIBUTE4 => l_revision_info.attribute4,
X_ATTRIBUTE5 => l_revision_info.attribute5,
X_ATTRIBUTE6 => l_revision_info.attribute6,
X_ATTRIBUTE7 => l_revision_info.attribute7,
X_ATTRIBUTE8 => l_revision_info.attribute8,
X_ATTRIBUTE14 => l_revision_info.attribute14,
X_COMMENTS => l_revision_info.comments,
X_CREATION_DATE => sysdate,
X_CREATED_BY => fnd_global.user_id,
X_LAST_UPDATE_DATE => sysdate,
X_LAST_UPDATED_BY => fnd_global.user_id,
X_LAST_UPDATE_LOGIN => fnd_global.login_id);
/* description : Update the existing revision record */
/* and removes the revision record */
/* for an associated document */
/* */
/*------------------------------------------------------*/
PROCEDURE MODIFY_REVISION
(
p_api_version IN NUMBER := 1.0 ,
p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
p_commit IN VARCHAR2 := FND_API.G_FALSE ,
p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
p_x_revision_tbl IN revision_tbl ,
x_return_status OUT NOCOPY VARCHAR2 ,
x_msg_count OUT NOCOPY NUMBER ,
x_msg_data OUT NOCOPY VARCHAR2
)
IS
-- Used to retrieve the existing record info
CURSOR get_doc_revisions_b_rec_info(c_doc_revision_id NUMBER)
IS
SELECT ROWID,
document_id,
revision_no,
revision_type_code,
revision_status_code,
revision_date,
approved_by_party_id,
approved_date,
effective_date,
obsolete_date,
issue_date,
received_date,
url,
media_type_code,
volume,
issue,
issue_number,
object_version_number,
attribute_category,
attribute1,
attribute2,
attribute3,
attribute4,
attribute5,
attribute6,
attribute7,
attribute8,
attribute9,
attribute10,
attribute11,
attribute12,
attribute13,
attribute14,
attribute15
FROM AHL_DOC_REVISIONS_B
WHERE doc_revision_id = c_doc_revision_id
FOR UPDATE OF object_version_number NOWAIT;
SELECT comments
FROM AHL_DOC_REVISIONS_TL
WHERE doc_revision_id = c_doc_revision_id
FOR UPDATE OF doc_revision_id NOWAIT;
p_delete_flag => p_x_revision_tbl(i).delete_flag
);
AHL_DOC_REVISIONS_PKG.UPDATE_ROW(X_DOC_REVISION_ID => p_x_revision_tbl(i).doc_revision_id,
X_APPROVED_DATE => l_revision_info.approved_date,
X_EFFECTIVE_DATE => l_revision_info.effective_date,
X_OBSOLETE_DATE => l_revision_info.obsolete_date,
X_ISSUE_DATE => l_revision_info.issue_date,
X_RECEIVED_DATE => l_revision_info.received_date,
X_URL => l_revision_info.url,
X_MEDIA_TYPE_CODE => l_revision_info.media_type_code,
X_VOLUME => l_revision_info.volume,
X_ISSUE => l_revision_info.issue,
X_ISSUE_NUMBER => l_revision_info.issue_number,
X_ATTRIBUTE_CATEGORY => l_revision_info.attribute_category,
X_ATTRIBUTE1 => l_revision_info.attribute1,
X_ATTRIBUTE2 => l_revision_info.attribute2,
X_REVISION_DATE => l_revision_info.revision_date,
X_ATTRIBUTE15 => l_revision_info.attribute15,
X_ATTRIBUTE9 => l_revision_info.attribute9,
X_ATTRIBUTE10 => l_revision_info.attribute10,
X_ATTRIBUTE11 => l_revision_info.attribute11,
X_ATTRIBUTE12 => l_revision_info.attribute12,
X_ATTRIBUTE13 => l_revision_info.attribute13,
X_DOCUMENT_ID => l_revision_info.document_id,
X_REVISION_NO => l_revision_info.revision_no,
X_APPROVED_BY_PARTY_ID => l_revision_info.approved_by_party_id,
X_REVISION_TYPE_CODE => l_revision_info.revision_type_code,
X_REVISION_STATUS_CODE => l_revision_info.revision_status_code,
X_OBJECT_VERSION_NUMBER => l_revision_info.object_version_number+1,
X_ATTRIBUTE3 => l_revision_info.attribute3,
X_ATTRIBUTE4 => l_revision_info.attribute4,
X_ATTRIBUTE5 => l_revision_info.attribute5,
X_ATTRIBUTE6 => l_revision_info.attribute6,
X_ATTRIBUTE7 => l_revision_info.attribute7,
X_ATTRIBUTE8 => l_revision_info.attribute8,
X_ATTRIBUTE14 => l_revision_info.attribute14,
X_COMMENTS => l_comments,
X_LAST_UPDATE_DATE => sysdate,
X_LAST_UPDATED_BY => fnd_global.user_id,
X_LAST_UPDATE_LOGIN => fnd_global.login_id);
NVL(p_x_revision_tbl(i).delete_flag, 'N') = 'Y' )
THEN
DELETE_REVISION
(p_api_version => 1.0 ,
p_init_msg_list => FND_API.G_TRUE ,
p_commit => FND_API.G_FALSE ,
p_validate_only => FND_API.G_TRUE ,
p_validation_level => FND_API.G_VALID_LEVEL_FULL,
p_x_revision_tbl => p_x_revision_tbl ,
x_return_status => x_return_status ,
x_msg_count => x_msg_count ,
x_msg_data => x_msg_data
);
PROCEDURE DELETE_REVISION
(
p_api_version IN NUMBER := 1.0 ,
p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
p_commit IN VARCHAR2 := FND_API.G_FALSE ,
p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
p_x_revision_tbl IN revision_tbl ,
x_return_status OUT NOCOPY VARCHAR2 ,
x_msg_count OUT NOCOPY NUMBER ,
x_msg_data OUT NOCOPY VARCHAR2
)
IS
-- to get the revision rec
CURSOR get_revision_rec_b_info(c_doc_revision_id NUMBER)
IS
SELECT ROWID,
effective_date,
obsolete_date,
object_version_number
FROM AHL_DOC_REVISIONS_B
WHERE doc_revision_id = c_doc_revision_id
FOR UPDATE OF object_version_number NOWAIT;
l_api_name CONSTANT VARCHAR2(30) := 'DELETE_REVISION';
SAVEPOINT delete_revision;
UPDATE AHL_DOC_REVISIONS_B
SET OBSOLETE_DATE = p_x_revision_tbl(i).obsolete_date
WHERE ROWID = l_rowid;
ROLLBACK TO delete_revision;
ROLLBACK TO delete_revision;
ROLLBACK TO delete_revision;
p_procedure_name => 'DELETE_REVISION',
p_error_text => SUBSTR(SQLERRM,1,240));
END DELETE_REVISION;