The following lines contain the word 'select', 'insert', 'update' or 'delete':
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY, '*** In procedure chord_setup ***');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY, 'Document Type '|| x_doc_type);
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY, 'Document Subtype '|| x_doc_subtype);
select authorization_status
into x_auth_status
from po_headers_all
where po_header_id=x_po_header_id;
select authorization_status
into x_auth_status
from po_releases_all
where po_release_id=x_po_release_id;
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY, '*** FINISH: chord_setup ***');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY, '*** exception chord_doc_type ***');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY, '*** In procedure chord_doc_type ***');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY, 'doc_type '|| x_doc_type);
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY, 'doc_subtype '|| x_doc_subtype);
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY, 'CO TYPE: po_standard');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY, 'CO TYPE: po_contract');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY, 'CO TYPE: po_blanket');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY, 'CO TYPE: po_planned');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY, 'CO TYPE: blanket_release');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY, 'CO TYPE: scheduled_release');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY, '*** Finish: chord_doc_type ***');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY, '*** exception chord_doc_type ***');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'*** In Procedure: archive_on_approval ***');
SELECT ARCHIVE_EXTERNAL_REVISION_CODE
INTO x_archive_code
FROM PO_DOCUMENT_TYPES podta
WHERE podta.DOCUMENT_TYPE_CODE = x_doc_type
AND podta.DOCUMENT_SUBTYPE = x_doc_subtype;
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'*** Finished: archive_on_approval ***');
PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,
'*** execption archive_on_approval_set *** '||x_result);