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,
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:
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;
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;
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
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;
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:
105: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
106:
107: END SAVE_MESSAGE;
108:
109: END QP_BULK_MSG;