1 PACKAGE BODY ASO_UPGRADE_PVT as
2 /* $Header: asovupgb.pls 115.6 2002/12/07 19:53:05 hagrawal ship $ */
3 -- Start of Comments
4 -- Package name : ASO_UPGRADE_PVT
5 -- Purpose :This package will be used to insert the data in all aso migration scripts.
6 -- History :
7 -- NOTE :Data will be inserted in ASO_UPGRADE_ERRORS table.
8 -- End of Comments
9
10 Procedure add_message(
11 p_module_name IN VARCHAR2, --Valid Module Names are 'ASO','QOT:FORMS','QOT:HTML'
12 p_error_level IN VARCHAR2, -- Valid error Levels are 'ERROR','WARNING','INFORMATION'
13 p_error_text IN VARCHAR2,
14 p_creation_date IN DATE := sysdate,
15 p_source_name IN VARCHAR2, -- Pass the scriptname here like 'asopromg.sql'
16 p_table_name IN VARCHAR2 := NULL, -- Pass the table Name which raised the exception
17 p_identifier IN NUMBER := NULL -- Pass the corrosponding id here (e.g., quote_header_id,resource_id)
18 )
19 IS
20 PRAGMA AUTONOMOUS_TRANSACTION;
21 BEGIN
22 INSERT INTO ASO_UPGRADE_ERRORS
23 (UPGRADE_ID,
24 MODULE_NAME,
25 ERROR_LEVEL,
26 ERROR_TEXT,
27 CREATION_DATE,
28 SOURCE_NAME,
29 TABLE_NAME,
30 IDENTIFIER
31 )
32 VALUES
33 (
34 ASO_UPGRADE_ERRORS_S.NEXTVAL,
35 p_module_name,
36 p_error_level,
37 p_error_text,
38 p_creation_date,
39 p_source_name,
40 p_table_name,
41 p_identifier
42 );
43 COMMIT;
44 EXCEPTION
45 WHEN OTHERS THEN
46 Raise;
47 END;
48 END ASO_UPGRADE_PVT;