PACKAGE BODY: APPS.QP_BULK_MSG

Source

1 PACKAGE BODY QP_BULK_MSG AS
2 /* $Header: QPXBMSGB.pls 120.2 2010/05/14 10:33:53 smuhamme ship $ */
3 
4 PROCEDURE ADD
5           (p_msg_rec  QP_BULK_MSG.MSG_REC_TYPE,
6 		   p_msg_type VARCHAR2) --bug no: 9652756 - newly added parameter default to 'E'
7 IS
8    l_index NUMBER;
9 
10 BEGIN
11    qp_bulk_loader_pub.write_log( 'IN QP_BULK_MSG.ADD');
12 
13    l_index := G_msg_rec.request_id.count+1;
14 
15    G_msg_rec.request_id(l_index) := p_msg_rec.request_id;
16    G_msg_rec.entity_type(l_index) := p_msg_rec.entity_type;
17    G_msg_rec.table_name(l_index) := p_msg_rec.table_name;
18    G_msg_rec.orig_sys_header_ref(l_index) := p_msg_rec.orig_sys_header_ref;
19    G_msg_rec.list_header_id(l_index) := p_msg_rec.list_header_id;
20    G_msg_rec.orig_sys_line_ref(l_index) := p_msg_rec.orig_sys_line_ref;
21    G_msg_rec.orig_sys_qualifier_ref(l_index) := p_msg_rec.orig_sys_qualifier_ref;
22    G_msg_rec.orig_sys_pricing_attr_ref(l_index) := p_msg_rec.orig_sys_pricing_attr_ref;
23    --Bug#5512040 RAVI (Constrict message to 240 char)
24    G_msg_rec.error_message(l_index) := SUBSTR(fnd_message.get,1,240);
25    G_msg_rec.message_type(l_index) := p_msg_type; --bug no: 9652756
26 
27 EXCEPTION
28     WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
29        qp_bulk_loader_pub.write_log( 'UNEXCPECTED ERROR IN QP_BULK_MSG.ADD');
30        RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
31     WHEN OTHERS THEN
32        qp_bulk_loader_pub.write_log( 'UNEXCPECTED ERROR IN QP_BULK_MSG.ADD');
33        RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
34 END ADD;
35 
36 PROCEDURE SAVE_MESSAGE
37           (p_request_id NUMBER)
38 IS
39 
40 l_count_msg NUMBER;
41 
42 BEGIN
43    l_count_msg := G_msg_rec.request_id.COUNT;
44 
45    FORALL I IN 1..l_count_msg
46      INSERT INTO QP_INTERFACE_ERRORS
47 		 (
48 		   ERROR_ID
49 		  ,LAST_UPDATE_DATE
50 		  ,LAST_UPDATED_BY
51 		  ,CREATION_DATE
52 		  ,CREATED_BY
53 		  ,LAST_UPDATE_LOGIN
54 		  ,REQUEST_ID
55 		  ,PROGRAM_APPLICATION_ID
56 		  ,PROGRAM_ID
57 		  ,PROGRAM_UPDATE_DATE
58 		  ,ENTITY_TYPE
59 		  ,TABLE_NAME
60 		  ,ORIG_SYS_HEADER_REF
61 		  ,ORIG_SYS_LINE_REF
62 		  ,ORIG_SYS_QUALIFIER_REF
63 		  ,ORIG_SYS_PRICING_ATTR_REF
64 		  ,ERROR_MESSAGE
65 		  ,MESSAGE_TYPE
66 		  )
67      VALUES
68       (
69        QP_INTERFACE_ERRORS_S.NEXTVAL
70        ,sysdate
71        ,FND_GLOBAL.USER_ID
72        ,sysdate
73        ,FND_GLOBAL.USER_ID
74        ,FND_GLOBAL.CONC_LOGIN_ID
75        ,G_MSG_REC.REQUEST_ID(I)
76        ,660
77        ,NULL
78        ,NULL
79        ,G_MSG_REC.entity_type(I)
80        ,G_MSG_REC.table_name(I)
81        ,G_MSG_REC.ORIG_SYS_HEADER_REF(I)
82        ,G_MSG_REC.ORIG_SYS_LINE_REF(I)
83        ,G_MSG_REC.ORIG_SYS_QUALIFIER_REF(I)
84        ,G_MSG_REC.ORIG_SYS_PRICING_ATTR_REF(I)
85        ,G_MSG_REC.error_message(I)
86 	   ,G_MSG_REC.message_type(I) --bug no. 9652756
87        );
88 
89       G_MSG_REC.entity_type.delete;
90       G_MSG_REC.request_id.delete;
91       G_MSG_REC.table_name.delete;
92       G_MSG_REC.orig_sys_header_ref.delete;
93       G_MSG_REC.orig_sys_line_ref.delete;
94       G_MSG_REC.orig_sys_qualifier_ref.delete;
95       G_MSG_REC.orig_sys_pricing_attr_ref.delete;
96       G_MSG_REC.error_message.delete;
97 	  G_MSG_REC.message_type.delete; --bug no: 9652756
98 
99  EXCEPTION
100     WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
101        qp_bulk_loader_pub.write_log( 'UNEXCPECTED ERROR IN QP_BULK_MSG.SAVE_MESSAGE');
102        RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
103     WHEN OTHERS THEN
104        qp_bulk_loader_pub.write_log( 'UNEXCPECTED ERROR IN QP_BULK_MSG.SAVE_MESSSAGE');
105        RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
106 
107    END SAVE_MESSAGE;
108 
109 END QP_BULK_MSG;