22: l_loop_index_1 NUMBER ;
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 := 'XDP_ORDER_DONE' ;
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 := 'XDP_ORDER_DONE' ;
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 := 'XDP_ORDER_DONE' ;
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 := 'XDP_ORDER_DONE' ;
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 := 'XDP_ORDER_DONE' ;
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 ;
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: /* retreieve the XML header */
55: XNP_XML_UTILS.get_document ( l_xml_header ) ;
56: /* append the XML headerto message */
57: XNP_XML_UTILS.initialize_doc ( ) ;
58: XNP_XML_UTILS.xml_decl ;
59: XNP_XML_UTILS.begin_segment ( 'MESSAGE') ;
53: l_msg_header.fa_instance_id := p_fa_instance_id ;
54: /* retreieve the XML header */
55: XNP_XML_UTILS.get_document ( l_xml_header ) ;
56: /* append the XML headerto message */
57: XNP_XML_UTILS.initialize_doc ( ) ;
58: XNP_XML_UTILS.xml_decl ;
59: XNP_XML_UTILS.begin_segment ( 'MESSAGE') ;
60: XNP_XML_UTILS.write_element( 'HEADER', l_xml_header );
61: /* construct the message body */
54: /* retreieve the XML header */
55: XNP_XML_UTILS.get_document ( l_xml_header ) ;
56: /* append the XML headerto message */
57: XNP_XML_UTILS.initialize_doc ( ) ;
58: XNP_XML_UTILS.xml_decl ;
59: XNP_XML_UTILS.begin_segment ( 'MESSAGE') ;
60: XNP_XML_UTILS.write_element( 'HEADER', l_xml_header );
61: /* construct the message body */
62: XNP_XML_UTILS.begin_segment ( 'XDP_ORDER_DONE' ) ;
55: XNP_XML_UTILS.get_document ( l_xml_header ) ;
56: /* append the XML headerto message */
57: XNP_XML_UTILS.initialize_doc ( ) ;
58: XNP_XML_UTILS.xml_decl ;
59: XNP_XML_UTILS.begin_segment ( 'MESSAGE') ;
60: XNP_XML_UTILS.write_element( 'HEADER', l_xml_header );
61: /* construct the message body */
62: XNP_XML_UTILS.begin_segment ( 'XDP_ORDER_DONE' ) ;
63: l_loop_index_1 := 0 ;
56: /* append the XML headerto message */
57: XNP_XML_UTILS.initialize_doc ( ) ;
58: XNP_XML_UTILS.xml_decl ;
59: XNP_XML_UTILS.begin_segment ( 'MESSAGE') ;
60: XNP_XML_UTILS.write_element( 'HEADER', l_xml_header );
61: /* construct the message body */
62: XNP_XML_UTILS.begin_segment ( 'XDP_ORDER_DONE' ) ;
63: l_loop_index_1 := 0 ;
64: FOR XNP$XDP_ORDER_DONE IN (SELECT STATUS_CODE FROM
58: XNP_XML_UTILS.xml_decl ;
59: XNP_XML_UTILS.begin_segment ( 'MESSAGE') ;
60: XNP_XML_UTILS.write_element( 'HEADER', l_xml_header );
61: /* construct the message body */
62: XNP_XML_UTILS.begin_segment ( 'XDP_ORDER_DONE' ) ;
63: l_loop_index_1 := 0 ;
64: FOR XNP$XDP_ORDER_DONE IN (SELECT STATUS_CODE FROM
65: XDP_ORDER_HEADERS WHERE
66: ORDER_ID=P_ORDER_ID)
71: fnd_message.set_token( 'ATTRIBUTE','ORDER_ID' ) ;
72: x_error_message := fnd_message.get ;
73: RAISE e_MISSING_MANDATORY_DATA ;
74: END IF ;
75: XNP_XML_UTILS.write_leaf_element ( 'ORDER_ID', p_order_id ) ;
76: XNP_XML_UTILS.write_leaf_element ( 'ORDER_STATUS', XNP$XDP_ORDER_DONE.STATUS_CODE ) ;
77: XNP_XML_UTILS.write_leaf_element ( 'SDP_RESULT_CODE', XNP$XDP_ORDER_DONE.STATUS_CODE ) ;
78: EXIT ;
79: END LOOP ;
72: x_error_message := fnd_message.get ;
73: RAISE e_MISSING_MANDATORY_DATA ;
74: END IF ;
75: XNP_XML_UTILS.write_leaf_element ( 'ORDER_ID', p_order_id ) ;
76: XNP_XML_UTILS.write_leaf_element ( 'ORDER_STATUS', XNP$XDP_ORDER_DONE.STATUS_CODE ) ;
77: XNP_XML_UTILS.write_leaf_element ( 'SDP_RESULT_CODE', XNP$XDP_ORDER_DONE.STATUS_CODE ) ;
78: EXIT ;
79: END LOOP ;
80: IF ( l_loop_index_1 = 0 ) THEN
73: RAISE e_MISSING_MANDATORY_DATA ;
74: END IF ;
75: XNP_XML_UTILS.write_leaf_element ( 'ORDER_ID', p_order_id ) ;
76: XNP_XML_UTILS.write_leaf_element ( 'ORDER_STATUS', XNP$XDP_ORDER_DONE.STATUS_CODE ) ;
77: XNP_XML_UTILS.write_leaf_element ( 'SDP_RESULT_CODE', XNP$XDP_ORDER_DONE.STATUS_CODE ) ;
78: EXIT ;
79: END LOOP ;
80: IF ( l_loop_index_1 = 0 ) THEN
81: fnd_message.set_name('XNP', 'XNP_MISSING_MANDATORY_DATA' );
82: fnd_message.set_token( 'ELEMENT',', ORDER_ID' ) ;
83: x_error_message := fnd_message.get ;
84: RAISE e_MISSING_MANDATORY_DATA ;
85: END IF ;
86: XNP_XML_UTILS.end_segment ( 'XDP_ORDER_DONE' ) ;
87: XNP_XML_UTILS.end_segment ( 'MESSAGE') ;
88: XNP_XML_UTILS.get_document( l_xml_doc ) ;
89: /* assign the header and msg text to output parameters */
90: x_msg_header := l_msg_header ;
83: x_error_message := fnd_message.get ;
84: RAISE e_MISSING_MANDATORY_DATA ;
85: END IF ;
86: XNP_XML_UTILS.end_segment ( 'XDP_ORDER_DONE' ) ;
87: XNP_XML_UTILS.end_segment ( 'MESSAGE') ;
88: XNP_XML_UTILS.get_document( l_xml_doc ) ;
89: /* assign the header and msg text to output parameters */
90: x_msg_header := l_msg_header ;
91: x_msg_text := l_xml_doc ;
84: RAISE e_MISSING_MANDATORY_DATA ;
85: END IF ;
86: XNP_XML_UTILS.end_segment ( 'XDP_ORDER_DONE' ) ;
87: XNP_XML_UTILS.end_segment ( 'MESSAGE') ;
88: XNP_XML_UTILS.get_document( l_xml_doc ) ;
89: /* assign the header and msg text to output parameters */
90: x_msg_header := l_msg_header ;
91: x_msg_text := l_xml_doc ;
92: /* handle exceptions */