1 PACKAGE QP_BULK_MSG AUTHID CURRENT_USER AS
2 /* $Header: QPXBMSGS.pls 120.2 2010/05/14 10:32:28 smuhamme ship $ */
3
4 TYPE num_type IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
5 TYPE char10_type IS TABLE OF Varchar2(30) INDEX BY BINARY_INTEGER; --bug no: 9652756
6 TYPE char30_type IS TABLE OF Varchar2(30) INDEX BY BINARY_INTEGER;
7 TYPE char50_type IS TABLE OF Varchar2(50) INDEX BY BINARY_INTEGER;
8 TYPE char240_type IS TABLE OF Varchar2(240) INDEX BY BINARY_INTEGER;
9 TYPE char2000_type IS TABLE OF Varchar2(2000) INDEX BY BINARY_INTEGER; --Bug 8392670
10
11 TYPE Msg_Rec_Type IS RECORD
12 ( Request_id NUMBER,
13 entity_type VARCHAR2(30),
14 table_name VARCHAR2(30),
15 orig_sys_header_ref VARCHAR2(50),
16 list_header_id NUMBER,
17 orig_sys_line_ref VARCHAR2(50),
18 orig_sys_qualifier_ref VARCHAR2(50),
19 orig_sys_pricing_attr_ref VARCHAR2(50),
20 error_message VARCHAR2(240));
21
22 TYPE Msg_Rec_Type1 IS RECORD
23 ( Request_id num_type,
24 entity_type char30_type,
25 table_name char30_type,
26 orig_sys_header_ref char50_type,
27 list_header_id num_type,
28 orig_sys_line_ref char50_type,
29 orig_sys_qualifier_ref char50_type,
30 orig_sys_pricing_attr_ref char50_type,
31 message_type char10_type, --bug no. 9652756
32 error_message char2000_type); --bug 8392670
33 --error_message char240_type);
34
35 G_Msg_Rec Msg_Rec_Type1;
36
37 PROCEDURE ADD(p_msg_rec QP_BULK_MSG.MSG_REC_TYPE,
38 p_msg_type VARCHAR2 := 'E'); --bug no: 9652756 - newly added parameter - defualt to Error
39
40 PROCEDURE SAVE_MESSAGE(p_request_id NUMBER);
41
42 END QP_BULK_MSG;