The following lines contain the word 'select', 'insert', 'update' or 'delete':
* Modifies: Arcives the document. Inserts an copy of the document in the
* archive tables
* Effects: This procedure archives the document that is passed in
*
* Returns:
* x_return_status: FND_API.G_RET_STS_SUCCESS if API succeeds
* FND_API.G_RET_STS_ERROR if API fails
* FND_API.G_RET_STS_UNEXP_ERROR if unexpected error occurs
* x_msg_data: Contains error msg in case x_return_status returned
* FND_API.G_RET_STS_ERROR or FND_API.G_RET_STS_UNEXP_ERROR
*/
PROCEDURE archive_po(p_api_version IN NUMBER,
p_document_id IN NUMBER,
p_document_type IN VARCHAR2,
p_document_subtype IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2)
IS
l_api_name CONSTANT varchar2(30) := 'ARCHIVE_PO';
SELECT po_header_id
INTO l_document_id
FROM PO_HEADERS_ALL
WHERE po_header_id= p_document_id;
SELECT po_release_id
INTO l_document_id
FROM PO_RELEASES_ALL
WHERE po_release_id= p_document_id;
SELECT archive_external_revision_code
INTO l_when_to_archive
FROM po_document_types
WHERE document_type_code = p_document_type
AND document_subtype = p_document_subtype;