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 := 'XDP_FULFILL_START' ;
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_FULFILL_START' ;
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_FULFILL_START' ;
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_FULFILL_START' ;
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_FULFILL_START' ;
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 ( 'LINE_ID', XNP$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 ( 'LINE_ID', XNP$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 ( 'LINE_ID', XNP$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 ( 'XDP_FULFILL_START' ) ;
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 ( 'XDP_FULFILL_START' ) ;
64: XNP_XML_UTILS.write_leaf_element ( 'LINE_ID', XNP$LINE_ID ) ;
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 ( 'XDP_FULFILL_START' ) ;
64: XNP_XML_UTILS.write_leaf_element ( 'LINE_ID', XNP$LINE_ID ) ;
65: XNP_XML_UTILS.end_segment ( 'XDP_FULFILL_START' ) ;
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 ( 'XDP_FULFILL_START' ) ;
64: XNP_XML_UTILS.write_leaf_element ( 'LINE_ID', XNP$LINE_ID ) ;
65: XNP_XML_UTILS.end_segment ( 'XDP_FULFILL_START' ) ;
66: XNP_XML_UTILS.end_segment ( 'MESSAGE') ;
67: XNP_XML_UTILS.get_document( l_xml_doc ) ;
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 ( 'XDP_FULFILL_START' ) ;
64: XNP_XML_UTILS.write_leaf_element ( 'LINE_ID', XNP$LINE_ID ) ;
65: XNP_XML_UTILS.end_segment ( 'XDP_FULFILL_START' ) ;
66: XNP_XML_UTILS.end_segment ( 'MESSAGE') ;
67: XNP_XML_UTILS.get_document( l_xml_doc ) ;
68: /* assign the header and msg text to output parameters */
61: XNP_XML_UTILS.write_element( 'HEADER', l_xml_header );
62: /* construct the message body */
63: XNP_XML_UTILS.begin_segment ( 'XDP_FULFILL_START' ) ;
64: XNP_XML_UTILS.write_leaf_element ( 'LINE_ID', XNP$LINE_ID ) ;
65: XNP_XML_UTILS.end_segment ( 'XDP_FULFILL_START' ) ;
66: XNP_XML_UTILS.end_segment ( 'MESSAGE') ;
67: XNP_XML_UTILS.get_document( l_xml_doc ) ;
68: /* assign the header and msg text to output parameters */
69: x_msg_header := l_msg_header ;
62: /* construct the message body */
63: XNP_XML_UTILS.begin_segment ( 'XDP_FULFILL_START' ) ;
64: XNP_XML_UTILS.write_leaf_element ( 'LINE_ID', XNP$LINE_ID ) ;
65: XNP_XML_UTILS.end_segment ( 'XDP_FULFILL_START' ) ;
66: XNP_XML_UTILS.end_segment ( 'MESSAGE') ;
67: XNP_XML_UTILS.get_document( l_xml_doc ) ;
68: /* assign the header and msg text to output parameters */
69: x_msg_header := l_msg_header ;
70: x_msg_text := l_xml_doc ;
63: XNP_XML_UTILS.begin_segment ( 'XDP_FULFILL_START' ) ;
64: XNP_XML_UTILS.write_leaf_element ( 'LINE_ID', XNP$LINE_ID ) ;
65: XNP_XML_UTILS.end_segment ( 'XDP_FULFILL_START' ) ;
66: XNP_XML_UTILS.end_segment ( 'MESSAGE') ;
67: XNP_XML_UTILS.get_document( l_xml_doc ) ;
68: /* assign the header and msg text to output parameters */
69: x_msg_header := l_msg_header ;
70: x_msg_text := l_xml_doc ;
71: /* handle exceptions */