1: PACKAGE BODY PO_DOCUMENT_ARCHIVE_GRP AS
2: /* $Header: POXPOARB.pls 120.1 2005/06/29 18:40:18 shsiung noship $ */
3:
4: G_PKG_NAME CONSTANT varchar2(30) := 'PO_DOCUMENT_ARCHIVE_GRP';
5:
1: PACKAGE BODY PO_DOCUMENT_ARCHIVE_GRP AS
2: /* $Header: POXPOARB.pls 120.1 2005/06/29 18:40:18 shsiung noship $ */
3:
4: G_PKG_NAME CONSTANT varchar2(30) := 'PO_DOCUMENT_ARCHIVE_GRP';
5:
6: c_log_head CONSTANT VARCHAR2(50) := 'po.plsql.'|| G_PKG_NAME || '.';
7:
8: -- Read the profile option that enables/disables the debug log
226: AND document_subtype = p_document_subtype;
227:
228: l_progress := '020';
229: IF p_process = l_when_to_archive THEN
230: PO_DOCUMENT_ARCHIVE_GRP.Archive_PO(
231: p_api_version => p_api_version,
232: p_document_id => p_document_id,
233: p_document_type => p_document_type,
234: p_document_subtype => p_document_subtype,
296: x_msg_count => l_msg_count,
297: x_msg_data => x_msg_data);
298: END archive_po;
299:
300: END PO_DOCUMENT_ARCHIVE_GRP; -- Package spec