PACKAGE BODY: APPS.QP_BULK_MSG

Source

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