22: l_msg_header XNP_MESSAGE.MSG_HEADER_REC_TYPE ;
23: BEGIN
24: x_error_code := 0 ;
25: x_error_message := NULL ;
26: XNP_XML_UTILS.initialize_doc ( ) ;
27: /*construct the XML header */
28: /* retreive the next message ID */
29: XNP_MESSAGE.get_sequence ( l_msg_header.message_id ) ;
30: IF (p_reference_id IS NULL) THEN
32: ELSE
33: l_msg_header.reference_id := p_reference_id ;
34: END IF ;
35: /* append header parameters to make header */
36: XNP_XML_UTILS.write_element ( 'MESSAGE_ID',l_msg_header.message_id ) ;
37: XNP_XML_UTILS.write_leaf_element ( 'REFERENCE_ID',l_msg_header.reference_id ) ;
38: l_msg_header.opp_reference_id := p_opp_reference_id ;
39: XNP_XML_UTILS.write_leaf_element ( 'OPP_REFERENCE_ID',l_msg_header.opp_reference_id ) ;
40: l_msg_header.message_code := 'CSIRMAFL' ;
33: l_msg_header.reference_id := p_reference_id ;
34: END IF ;
35: /* append header parameters to make header */
36: XNP_XML_UTILS.write_element ( 'MESSAGE_ID',l_msg_header.message_id ) ;
37: XNP_XML_UTILS.write_leaf_element ( 'REFERENCE_ID',l_msg_header.reference_id ) ;
38: l_msg_header.opp_reference_id := p_opp_reference_id ;
39: XNP_XML_UTILS.write_leaf_element ( 'OPP_REFERENCE_ID',l_msg_header.opp_reference_id ) ;
40: l_msg_header.message_code := 'CSIRMAFL' ;
41: XNP_XML_UTILS.write_leaf_element ( 'MESSAGE_CODE',l_msg_header.message_code ) ;
35: /* append header parameters to make header */
36: XNP_XML_UTILS.write_element ( 'MESSAGE_ID',l_msg_header.message_id ) ;
37: XNP_XML_UTILS.write_leaf_element ( 'REFERENCE_ID',l_msg_header.reference_id ) ;
38: l_msg_header.opp_reference_id := p_opp_reference_id ;
39: XNP_XML_UTILS.write_leaf_element ( 'OPP_REFERENCE_ID',l_msg_header.opp_reference_id ) ;
40: l_msg_header.message_code := 'CSIRMAFL' ;
41: XNP_XML_UTILS.write_leaf_element ( 'MESSAGE_CODE',l_msg_header.message_code ) ;
42: l_msg_header.version := p_version ;
43: XNP_XML_UTILS.write_leaf_element ( 'VERSION',l_msg_header.version ) ;
37: XNP_XML_UTILS.write_leaf_element ( 'REFERENCE_ID',l_msg_header.reference_id ) ;
38: l_msg_header.opp_reference_id := p_opp_reference_id ;
39: XNP_XML_UTILS.write_leaf_element ( 'OPP_REFERENCE_ID',l_msg_header.opp_reference_id ) ;
40: l_msg_header.message_code := 'CSIRMAFL' ;
41: XNP_XML_UTILS.write_leaf_element ( 'MESSAGE_CODE',l_msg_header.message_code ) ;
42: l_msg_header.version := p_version ;
43: XNP_XML_UTILS.write_leaf_element ( 'VERSION',l_msg_header.version ) ;
44: l_msg_header.creation_date := SYSDATE ;
45: l_msg_header.recipient_name := p_recipient_list ;
39: XNP_XML_UTILS.write_leaf_element ( 'OPP_REFERENCE_ID',l_msg_header.opp_reference_id ) ;
40: l_msg_header.message_code := 'CSIRMAFL' ;
41: XNP_XML_UTILS.write_leaf_element ( 'MESSAGE_CODE',l_msg_header.message_code ) ;
42: l_msg_header.version := p_version ;
43: XNP_XML_UTILS.write_leaf_element ( 'VERSION',l_msg_header.version ) ;
44: l_msg_header.creation_date := SYSDATE ;
45: l_msg_header.recipient_name := p_recipient_list ;
46: XNP_XML_UTILS.write_element ( 'CREATION_DATE',l_msg_header.creation_date ) ;
47: l_msg_header.sender_name := p_sender_name ;
42: l_msg_header.version := p_version ;
43: XNP_XML_UTILS.write_leaf_element ( 'VERSION',l_msg_header.version ) ;
44: l_msg_header.creation_date := SYSDATE ;
45: l_msg_header.recipient_name := p_recipient_list ;
46: XNP_XML_UTILS.write_element ( 'CREATION_DATE',l_msg_header.creation_date ) ;
47: l_msg_header.sender_name := p_sender_name ;
48: XNP_XML_UTILS.write_leaf_element ( 'SENDER_NAME',l_msg_header.sender_name ) ;
49: XNP_XML_UTILS.write_leaf_element ( 'RECIPIENT_NAME',l_msg_header.recipient_name ) ;
50: l_msg_header.direction_indr := 'E' ;
44: l_msg_header.creation_date := SYSDATE ;
45: l_msg_header.recipient_name := p_recipient_list ;
46: XNP_XML_UTILS.write_element ( 'CREATION_DATE',l_msg_header.creation_date ) ;
47: l_msg_header.sender_name := p_sender_name ;
48: XNP_XML_UTILS.write_leaf_element ( 'SENDER_NAME',l_msg_header.sender_name ) ;
49: XNP_XML_UTILS.write_leaf_element ( 'RECIPIENT_NAME',l_msg_header.recipient_name ) ;
50: l_msg_header.direction_indr := 'E' ;
51: l_msg_header.order_id := p_order_id ;
52: l_msg_header.wi_instance_id := p_wi_instance_id ;
45: l_msg_header.recipient_name := p_recipient_list ;
46: XNP_XML_UTILS.write_element ( 'CREATION_DATE',l_msg_header.creation_date ) ;
47: l_msg_header.sender_name := p_sender_name ;
48: XNP_XML_UTILS.write_leaf_element ( 'SENDER_NAME',l_msg_header.sender_name ) ;
49: XNP_XML_UTILS.write_leaf_element ( 'RECIPIENT_NAME',l_msg_header.recipient_name ) ;
50: l_msg_header.direction_indr := 'E' ;
51: l_msg_header.order_id := p_order_id ;
52: l_msg_header.wi_instance_id := p_wi_instance_id ;
53: l_msg_header.fa_instance_id := p_fa_instance_id ;
50: l_msg_header.direction_indr := 'E' ;
51: l_msg_header.order_id := p_order_id ;
52: l_msg_header.wi_instance_id := p_wi_instance_id ;
53: l_msg_header.fa_instance_id := p_fa_instance_id ;
54: XNP_XML_UTILS.write_leaf_element ( 'RMA_LINE_ID', XNP$RMA_LINE_ID );
55: /* retreieve the XML header */
56: XNP_XML_UTILS.get_document ( l_xml_header ) ;
57: /* append the XML headerto message */
58: XNP_XML_UTILS.initialize_doc ( ) ;
52: l_msg_header.wi_instance_id := p_wi_instance_id ;
53: l_msg_header.fa_instance_id := p_fa_instance_id ;
54: XNP_XML_UTILS.write_leaf_element ( 'RMA_LINE_ID', XNP$RMA_LINE_ID );
55: /* retreieve the XML header */
56: XNP_XML_UTILS.get_document ( l_xml_header ) ;
57: /* append the XML headerto message */
58: XNP_XML_UTILS.initialize_doc ( ) ;
59: XNP_XML_UTILS.xml_decl ;
60: XNP_XML_UTILS.begin_segment ( 'MESSAGE') ;
54: XNP_XML_UTILS.write_leaf_element ( 'RMA_LINE_ID', XNP$RMA_LINE_ID );
55: /* retreieve the XML header */
56: XNP_XML_UTILS.get_document ( l_xml_header ) ;
57: /* append the XML headerto message */
58: XNP_XML_UTILS.initialize_doc ( ) ;
59: XNP_XML_UTILS.xml_decl ;
60: XNP_XML_UTILS.begin_segment ( 'MESSAGE') ;
61: XNP_XML_UTILS.write_element( 'HEADER', l_xml_header );
62: /* construct the message body */
55: /* retreieve the XML header */
56: XNP_XML_UTILS.get_document ( l_xml_header ) ;
57: /* append the XML headerto message */
58: XNP_XML_UTILS.initialize_doc ( ) ;
59: XNP_XML_UTILS.xml_decl ;
60: XNP_XML_UTILS.begin_segment ( 'MESSAGE') ;
61: XNP_XML_UTILS.write_element( 'HEADER', l_xml_header );
62: /* construct the message body */
63: XNP_XML_UTILS.begin_segment ( 'CSIRMAFL' ) ;
56: XNP_XML_UTILS.get_document ( l_xml_header ) ;
57: /* append the XML headerto message */
58: XNP_XML_UTILS.initialize_doc ( ) ;
59: XNP_XML_UTILS.xml_decl ;
60: XNP_XML_UTILS.begin_segment ( 'MESSAGE') ;
61: XNP_XML_UTILS.write_element( 'HEADER', l_xml_header );
62: /* construct the message body */
63: XNP_XML_UTILS.begin_segment ( 'CSIRMAFL' ) ;
64: IF ( XNP$RMA_LINE_ID IS NULL) THEN
57: /* append the XML headerto message */
58: XNP_XML_UTILS.initialize_doc ( ) ;
59: XNP_XML_UTILS.xml_decl ;
60: XNP_XML_UTILS.begin_segment ( 'MESSAGE') ;
61: XNP_XML_UTILS.write_element( 'HEADER', l_xml_header );
62: /* construct the message body */
63: XNP_XML_UTILS.begin_segment ( 'CSIRMAFL' ) ;
64: IF ( XNP$RMA_LINE_ID IS NULL) THEN
65: x_error_message :='Missing Mandatory Attribute - RMA_LINE_ID' ;
59: XNP_XML_UTILS.xml_decl ;
60: XNP_XML_UTILS.begin_segment ( 'MESSAGE') ;
61: XNP_XML_UTILS.write_element( 'HEADER', l_xml_header );
62: /* construct the message body */
63: XNP_XML_UTILS.begin_segment ( 'CSIRMAFL' ) ;
64: IF ( XNP$RMA_LINE_ID IS NULL) THEN
65: x_error_message :='Missing Mandatory Attribute - RMA_LINE_ID' ;
66: fnd_message.set_name('XNP','XNP_MISSING_MANDATORY_ATTR');
67: fnd_message.set_token('ATTRIBUTE','RMA_LINE_ID' ) ;
67: fnd_message.set_token('ATTRIBUTE','RMA_LINE_ID' ) ;
68: x_error_message := fnd_message.get ;
69: RAISE e_MISSING_MANDATORY_DATA ;
70: END IF ;
71: XNP_XML_UTILS.write_leaf_element ( 'RMA_LINE_ID', XNP$RMA_LINE_ID ) ;
72: XNP_XML_UTILS.end_segment ( 'CSIRMAFL' ) ;
73: XNP_XML_UTILS.end_segment ( 'MESSAGE') ;
74: XNP_XML_UTILS.get_document( l_xml_doc ) ;
75: /* assign the header and msg text to output parameters */
68: x_error_message := fnd_message.get ;
69: RAISE e_MISSING_MANDATORY_DATA ;
70: END IF ;
71: XNP_XML_UTILS.write_leaf_element ( 'RMA_LINE_ID', XNP$RMA_LINE_ID ) ;
72: XNP_XML_UTILS.end_segment ( 'CSIRMAFL' ) ;
73: XNP_XML_UTILS.end_segment ( 'MESSAGE') ;
74: XNP_XML_UTILS.get_document( l_xml_doc ) ;
75: /* assign the header and msg text to output parameters */
76: x_msg_header := l_msg_header ;
69: RAISE e_MISSING_MANDATORY_DATA ;
70: END IF ;
71: XNP_XML_UTILS.write_leaf_element ( 'RMA_LINE_ID', XNP$RMA_LINE_ID ) ;
72: XNP_XML_UTILS.end_segment ( 'CSIRMAFL' ) ;
73: XNP_XML_UTILS.end_segment ( 'MESSAGE') ;
74: XNP_XML_UTILS.get_document( l_xml_doc ) ;
75: /* assign the header and msg text to output parameters */
76: x_msg_header := l_msg_header ;
77: x_msg_text := l_xml_doc ;
70: END IF ;
71: XNP_XML_UTILS.write_leaf_element ( 'RMA_LINE_ID', XNP$RMA_LINE_ID ) ;
72: XNP_XML_UTILS.end_segment ( 'CSIRMAFL' ) ;
73: XNP_XML_UTILS.end_segment ( 'MESSAGE') ;
74: XNP_XML_UTILS.get_document( l_xml_doc ) ;
75: /* assign the header and msg text to output parameters */
76: x_msg_header := l_msg_header ;
77: x_msg_text := l_xml_doc ;
78: /* handle exceptions */
226: l_error_rec.source_type := l_txn_type;
227: l_error_rec.transaction_type_id := l_txn_type_id;
228: l_error_rec.message_id := p_msg_header.message_id;
229: l_error_rec.message_string := p_msg_text;
230: xnp_xml_utils.decode(
231: p_msg_text => p_msg_text, p_tag => 'RMA_LINE_ID', x_value => l_txn_id);
232: IF l_txn_id is null THEN
233: l_error_rec.error_text := 'xnp_xml_utils.decode failed. Could not decode the txn id.';
234: RAISE dpl_error;
229: l_error_rec.message_string := p_msg_text;
230: xnp_xml_utils.decode(
231: p_msg_text => p_msg_text, p_tag => 'RMA_LINE_ID', x_value => l_txn_id);
232: IF l_txn_id is null THEN
233: l_error_rec.error_text := 'xnp_xml_utils.decode failed. Could not decode the txn id.';
234: RAISE dpl_error;
235: END IF;
236: --l_error_rec.inv_material_transaction_id := l_txn_id; commented for bug 2865384
237: l_error_rec.source_id := l_txn_id;