1 PACKAGE ECE_PO_ARCHIVE_PKG AS
2 -- $Header: ECEPOARS.pls 120.2 2005/09/28 11:51:47 arsriniv ship $
3
4 -- ============================================================================
5 -- Name: porarchive
6 -- Desc: Archving cover routine
7 -- Args: IN: p_document_type
8 -- p_document_subtype
9 -- p_document_id
10 -- p_process - Process that called this routine
11 -- 'PRINT' or 'APPROVE'.
12 -- Err : Any value other than 0 in p_error_code indicates an oracle error
13 -- occurred. Currently the only errors that are raised are oracle
14 -- errors. No other error codes are reserved for special meanings.
15 -- The Oracle Error Message is given in p_error_buf and the context
16 -- or call stack is in p_error_stack.
17 --
18 -- Conditions for archiving:
19 -- archive_external_revision code in PO_DOCUMENT_TYPES
20 -- (PRINT or APPROVE) of given document type must be the same
21 -- as process (PRINT or APPROVE).
22 -- Note: Routine does NOT do a commit, this must be done in the calling
23 -- routine!
24 -- ============================================================================
25
26 PROCEDURE PORARCHIVE (
27 P_DOCUMENT_TYPE IN VARCHAR2,
28 P_DOCUMENT_SUBTYPE IN VARCHAR2,
29 P_DOCUMENT_ID IN NUMBER,
30 P_PROCESS IN VARCHAR2,
31 P_ERROR_CODE OUT NOCOPY NUMBER,
32 P_ERROR_BUF OUT NOCOPY VARCHAR2,
33 P_ERROR_STACK OUT NOCOPY VARCHAR2);
34
35 END ECE_PO_ARCHIVE_PKG;
36
37
38 /* ================================================================
39 The following allows capturing compile error during AutoInstall
40 by intentionally causing an ORA-01858 error if there are records
41 in user_errors.
42
43 show errors package ECE_PO_ARCHIVE_PKG
44
45 select to_date( 'SQLERROR') from user_errors
46 where type = 'PACKAGE'
47 and name = 'ECE_PO_ARCHIVE_PKG'
48
49 ================================================================
50 */