24: l_msg_header XNP_MESSAGE.MSG_HEADER_REC_TYPE ;
25: BEGIN
26: x_error_code := 0 ;
27: x_error_message := NULL ;
28: XNP_XML_UTILS.initialize_doc ( ) ;
29: /* construct the message body */
30: /* get the message body */
31: XNP_XML_UTILS.get_document ( l_xml_body ) ;
32: IF (l_xml_body IS NULL) THEN
27: x_error_message := NULL ;
28: XNP_XML_UTILS.initialize_doc ( ) ;
29: /* construct the message body */
30: /* get the message body */
31: XNP_XML_UTILS.get_document ( l_xml_body ) ;
32: IF (l_xml_body IS NULL) THEN
33: XNP_XML_UTILS.write_element('ERROR_RESP',l_xml_body );
34: XNP_XML_UTILS.get_document( l_xml_body ) ;
35: END IF;
29: /* construct the message body */
30: /* get the message body */
31: XNP_XML_UTILS.get_document ( l_xml_body ) ;
32: IF (l_xml_body IS NULL) THEN
33: XNP_XML_UTILS.write_element('ERROR_RESP',l_xml_body );
34: XNP_XML_UTILS.get_document( l_xml_body ) ;
35: END IF;
36: /* initialize the XML header variable */
37: XNP_XML_UTILS.initialize_doc ( ) ;
30: /* get the message body */
31: XNP_XML_UTILS.get_document ( l_xml_body ) ;
32: IF (l_xml_body IS NULL) THEN
33: XNP_XML_UTILS.write_element('ERROR_RESP',l_xml_body );
34: XNP_XML_UTILS.get_document( l_xml_body ) ;
35: END IF;
36: /* initialize the XML header variable */
37: XNP_XML_UTILS.initialize_doc ( ) ;
38: /*construct the XML header */
33: XNP_XML_UTILS.write_element('ERROR_RESP',l_xml_body );
34: XNP_XML_UTILS.get_document( l_xml_body ) ;
35: END IF;
36: /* initialize the XML header variable */
37: XNP_XML_UTILS.initialize_doc ( ) ;
38: /*construct the XML header */
39: /* retreive the next message ID */
40: XNP_MESSAGE.get_sequence ( l_msg_header.message_id ) ;
41: IF (p_reference_id IS NULL) THEN
43: ELSE
44: l_msg_header.reference_id := p_reference_id ;
45: END IF ;
46: /* append header parameters to make header */
47: XNP_XML_UTILS.write_element ( 'MESSAGE_ID',l_msg_header.message_id ) ;
48: XNP_XML_UTILS.write_element ( 'REFERENCE_ID',l_msg_header.reference_id ) ;
49: l_msg_header.opp_reference_id := p_opp_reference_id ;
50: XNP_XML_UTILS.write_element ( 'OPP_REFERENCE_ID',l_msg_header.opp_reference_id ) ;
51: l_msg_header.message_code := 'ERROR_RESP' ;
44: l_msg_header.reference_id := p_reference_id ;
45: END IF ;
46: /* append header parameters to make header */
47: XNP_XML_UTILS.write_element ( 'MESSAGE_ID',l_msg_header.message_id ) ;
48: XNP_XML_UTILS.write_element ( 'REFERENCE_ID',l_msg_header.reference_id ) ;
49: l_msg_header.opp_reference_id := p_opp_reference_id ;
50: XNP_XML_UTILS.write_element ( 'OPP_REFERENCE_ID',l_msg_header.opp_reference_id ) ;
51: l_msg_header.message_code := 'ERROR_RESP' ;
52: XNP_XML_UTILS.write_element ( 'MESSAGE_CODE',l_msg_header.message_code ) ;
46: /* append header parameters to make header */
47: XNP_XML_UTILS.write_element ( 'MESSAGE_ID',l_msg_header.message_id ) ;
48: XNP_XML_UTILS.write_element ( 'REFERENCE_ID',l_msg_header.reference_id ) ;
49: l_msg_header.opp_reference_id := p_opp_reference_id ;
50: XNP_XML_UTILS.write_element ( 'OPP_REFERENCE_ID',l_msg_header.opp_reference_id ) ;
51: l_msg_header.message_code := 'ERROR_RESP' ;
52: XNP_XML_UTILS.write_element ( 'MESSAGE_CODE',l_msg_header.message_code ) ;
53: l_msg_header.version := p_version ;
54: XNP_XML_UTILS.write_element ( 'VERSION',l_msg_header.version ) ;
48: XNP_XML_UTILS.write_element ( 'REFERENCE_ID',l_msg_header.reference_id ) ;
49: l_msg_header.opp_reference_id := p_opp_reference_id ;
50: XNP_XML_UTILS.write_element ( 'OPP_REFERENCE_ID',l_msg_header.opp_reference_id ) ;
51: l_msg_header.message_code := 'ERROR_RESP' ;
52: XNP_XML_UTILS.write_element ( 'MESSAGE_CODE',l_msg_header.message_code ) ;
53: l_msg_header.version := p_version ;
54: XNP_XML_UTILS.write_element ( 'VERSION',l_msg_header.version ) ;
55: l_msg_header.creation_date := SYSDATE ;
56: l_msg_header.recipient_name := p_recipient_list ;
50: XNP_XML_UTILS.write_element ( 'OPP_REFERENCE_ID',l_msg_header.opp_reference_id ) ;
51: l_msg_header.message_code := 'ERROR_RESP' ;
52: XNP_XML_UTILS.write_element ( 'MESSAGE_CODE',l_msg_header.message_code ) ;
53: l_msg_header.version := p_version ;
54: XNP_XML_UTILS.write_element ( 'VERSION',l_msg_header.version ) ;
55: l_msg_header.creation_date := SYSDATE ;
56: l_msg_header.recipient_name := p_recipient_list ;
57: XNP_XML_UTILS.write_element ( 'CREATION_DATE',l_msg_header.creation_date ) ;
58: l_msg_header.sender_name := p_sender_name ;
53: l_msg_header.version := p_version ;
54: XNP_XML_UTILS.write_element ( 'VERSION',l_msg_header.version ) ;
55: l_msg_header.creation_date := SYSDATE ;
56: l_msg_header.recipient_name := p_recipient_list ;
57: XNP_XML_UTILS.write_element ( 'CREATION_DATE',l_msg_header.creation_date ) ;
58: l_msg_header.sender_name := p_sender_name ;
59: XNP_XML_UTILS.write_element ( 'SENDER_NAME',l_msg_header.sender_name ) ;
60: XNP_XML_UTILS.write_element ( 'RECIPIENT_NAME',l_msg_header.recipient_name ) ;
61: l_msg_header.direction_indr := 'I' ;
55: l_msg_header.creation_date := SYSDATE ;
56: l_msg_header.recipient_name := p_recipient_list ;
57: XNP_XML_UTILS.write_element ( 'CREATION_DATE',l_msg_header.creation_date ) ;
58: l_msg_header.sender_name := p_sender_name ;
59: XNP_XML_UTILS.write_element ( 'SENDER_NAME',l_msg_header.sender_name ) ;
60: XNP_XML_UTILS.write_element ( 'RECIPIENT_NAME',l_msg_header.recipient_name ) ;
61: l_msg_header.direction_indr := 'I' ;
62: l_msg_header.order_id := p_order_id ;
63: l_msg_header.wi_instance_id := p_wi_instance_id ;
56: l_msg_header.recipient_name := p_recipient_list ;
57: XNP_XML_UTILS.write_element ( 'CREATION_DATE',l_msg_header.creation_date ) ;
58: l_msg_header.sender_name := p_sender_name ;
59: XNP_XML_UTILS.write_element ( 'SENDER_NAME',l_msg_header.sender_name ) ;
60: XNP_XML_UTILS.write_element ( 'RECIPIENT_NAME',l_msg_header.recipient_name ) ;
61: l_msg_header.direction_indr := 'I' ;
62: l_msg_header.order_id := p_order_id ;
63: l_msg_header.wi_instance_id := p_wi_instance_id ;
64: l_msg_header.fa_instance_id := p_fa_instance_id ;
61: l_msg_header.direction_indr := 'I' ;
62: l_msg_header.order_id := p_order_id ;
63: l_msg_header.wi_instance_id := p_wi_instance_id ;
64: l_msg_header.fa_instance_id := p_fa_instance_id ;
65: XNP_XML_UTILS.write_element ( 'SDP_RESULT_CODE', XNP$SDP_RESULT_CODE );
66: /* retreieve the XML header */
67: XNP_XML_UTILS.get_document ( l_xml_header ) ;
68: /* append the XML headerto message */
69: XNP_XML_UTILS.initialize_doc ( ) ;
63: l_msg_header.wi_instance_id := p_wi_instance_id ;
64: l_msg_header.fa_instance_id := p_fa_instance_id ;
65: XNP_XML_UTILS.write_element ( 'SDP_RESULT_CODE', XNP$SDP_RESULT_CODE );
66: /* retreieve the XML header */
67: XNP_XML_UTILS.get_document ( l_xml_header ) ;
68: /* append the XML headerto message */
69: XNP_XML_UTILS.initialize_doc ( ) ;
70: XNP_XML_UTILS.xml_decl ;
71: XNP_XML_UTILS.begin_segment ( 'MESSAGE') ;
65: XNP_XML_UTILS.write_element ( 'SDP_RESULT_CODE', XNP$SDP_RESULT_CODE );
66: /* retreieve the XML header */
67: XNP_XML_UTILS.get_document ( l_xml_header ) ;
68: /* append the XML headerto message */
69: XNP_XML_UTILS.initialize_doc ( ) ;
70: XNP_XML_UTILS.xml_decl ;
71: XNP_XML_UTILS.begin_segment ( 'MESSAGE') ;
72: XNP_XML_UTILS.write_element( 'HEADER', l_xml_header );
73: XNP_XML_UTILS.append ( l_xml_body ) ;
66: /* retreieve the XML header */
67: XNP_XML_UTILS.get_document ( l_xml_header ) ;
68: /* append the XML headerto message */
69: XNP_XML_UTILS.initialize_doc ( ) ;
70: XNP_XML_UTILS.xml_decl ;
71: XNP_XML_UTILS.begin_segment ( 'MESSAGE') ;
72: XNP_XML_UTILS.write_element( 'HEADER', l_xml_header );
73: XNP_XML_UTILS.append ( l_xml_body ) ;
74: XNP_XML_UTILS.end_segment ( 'MESSAGE') ;
67: XNP_XML_UTILS.get_document ( l_xml_header ) ;
68: /* append the XML headerto message */
69: XNP_XML_UTILS.initialize_doc ( ) ;
70: XNP_XML_UTILS.xml_decl ;
71: XNP_XML_UTILS.begin_segment ( 'MESSAGE') ;
72: XNP_XML_UTILS.write_element( 'HEADER', l_xml_header );
73: XNP_XML_UTILS.append ( l_xml_body ) ;
74: XNP_XML_UTILS.end_segment ( 'MESSAGE') ;
75: XNP_XML_UTILS.get_document( l_xml_doc ) ;
68: /* append the XML headerto message */
69: XNP_XML_UTILS.initialize_doc ( ) ;
70: XNP_XML_UTILS.xml_decl ;
71: XNP_XML_UTILS.begin_segment ( 'MESSAGE') ;
72: XNP_XML_UTILS.write_element( 'HEADER', l_xml_header );
73: XNP_XML_UTILS.append ( l_xml_body ) ;
74: XNP_XML_UTILS.end_segment ( 'MESSAGE') ;
75: XNP_XML_UTILS.get_document( l_xml_doc ) ;
76: /* assign the header and msg text to output parameters */
69: XNP_XML_UTILS.initialize_doc ( ) ;
70: XNP_XML_UTILS.xml_decl ;
71: XNP_XML_UTILS.begin_segment ( 'MESSAGE') ;
72: XNP_XML_UTILS.write_element( 'HEADER', l_xml_header );
73: XNP_XML_UTILS.append ( l_xml_body ) ;
74: XNP_XML_UTILS.end_segment ( 'MESSAGE') ;
75: XNP_XML_UTILS.get_document( l_xml_doc ) ;
76: /* assign the header and msg text to output parameters */
77: x_msg_header := l_msg_header ;
70: XNP_XML_UTILS.xml_decl ;
71: XNP_XML_UTILS.begin_segment ( 'MESSAGE') ;
72: XNP_XML_UTILS.write_element( 'HEADER', l_xml_header );
73: XNP_XML_UTILS.append ( l_xml_body ) ;
74: XNP_XML_UTILS.end_segment ( 'MESSAGE') ;
75: XNP_XML_UTILS.get_document( l_xml_doc ) ;
76: /* assign the header and msg text to output parameters */
77: x_msg_header := l_msg_header ;
78: x_msg_text := l_xml_doc ;
71: XNP_XML_UTILS.begin_segment ( 'MESSAGE') ;
72: XNP_XML_UTILS.write_element( 'HEADER', l_xml_header );
73: XNP_XML_UTILS.append ( l_xml_body ) ;
74: XNP_XML_UTILS.end_segment ( 'MESSAGE') ;
75: XNP_XML_UTILS.get_document( l_xml_doc ) ;
76: /* assign the header and msg text to output parameters */
77: x_msg_header := l_msg_header ;
78: x_msg_text := l_xml_doc ;
79: /* handle exceptions */