319: BEGIN
320:
321: SELECT NVL(REVISION_NUM, -1)
322: INTO l_archived_revision_num
323: FROM PO_HEADERS_ARCHIVE
324: WHERE PO_HEADER_ID = p_document_id
325: AND LATEST_EXTERNAL_FLAG = 'Y';
326:
327: EXCEPTION
437: IS
438:
439: BEGIN
440:
441: UPDATE PO_HEADERS_ARCHIVE
442: SET LATEST_EXTERNAL_FLAG = 'N'
443: WHERE PO_HEADER_ID = p_document_id
444: AND LATEST_EXTERNAL_FLAG = 'Y';
445:
446: -- Archive the header.
447: -- This will be an exact copy of po_headers except for
448: -- the latest_external_flag. Keep the columns in
449: -- alphabetical order for easy verification.
450: INSERT INTO PO_HEADERS_ARCHIVE
451: (
452: ACCEPTANCE_DUE_DATE ,
453: ACCEPTANCE_REQUIRED_FLAG ,
454: AGENT_ID ,