23: l_loop_index_1 NUMBER ;
24: BEGIN
25: x_error_code := 0 ;
26: x_error_message := NULL ;
27: XNP_XML_UTILS.initialize_doc ( ) ;
28: /* construct the message body */
29: l_loop_index_1 := 0 ;
30: FOR XNP$SYNC_TIMER IN (SELECT '0' delay, '100' interval FROM DUAL) LOOP
31: l_loop_index_1 := l_loop_index_1 + 1 ;
28: /* construct the message body */
29: l_loop_index_1 := 0 ;
30: FOR XNP$SYNC_TIMER IN (SELECT '0' delay, '100' interval FROM DUAL) LOOP
31: l_loop_index_1 := l_loop_index_1 + 1 ;
32: XNP_XML_UTILS.begin_segment ( 'SYNC_TIMER' ) ;
33: IF (p_DELAY IS NULL) THEN
34: NULL;
35: IF ( XNP$SYNC_TIMER.DELAY IS NULL) THEN
36: x_error_message :='Missing Mandatory Attribute - DELAY' ;
35: IF ( XNP$SYNC_TIMER.DELAY IS NULL) THEN
36: x_error_message :='Missing Mandatory Attribute - DELAY' ;
37: RAISE e_MISSING_MANDATORY_DATA ;
38: END IF ;
39: XNP_XML_UTILS.write_element ( 'DELAY', XNP$SYNC_TIMER.DELAY ) ;
40: ELSE
41: xnp_xml_utils.write_element('DELAY', p_DELAY);
42: END IF;
43: IF (p_INTERVAL IS NULL) THEN
37: RAISE e_MISSING_MANDATORY_DATA ;
38: END IF ;
39: XNP_XML_UTILS.write_element ( 'DELAY', XNP$SYNC_TIMER.DELAY ) ;
40: ELSE
41: xnp_xml_utils.write_element('DELAY', p_DELAY);
42: END IF;
43: IF (p_INTERVAL IS NULL) THEN
44: NULL;
45: IF ( XNP$SYNC_TIMER.INTERVAL IS NULL) THEN
45: IF ( XNP$SYNC_TIMER.INTERVAL IS NULL) THEN
46: x_error_message :='Missing Mandatory Attribute - INTERVAL' ;
47: RAISE e_MISSING_MANDATORY_DATA ;
48: END IF ;
49: XNP_XML_UTILS.write_element ( 'INTERVAL', XNP$SYNC_TIMER.INTERVAL ) ;
50: ELSE
51: xnp_xml_utils.write_element('INTERVAL', p_INTERVAL);
52: END IF;
53: XNP_XML_UTILS.end_segment ( 'SYNC_TIMER' ) ;
47: RAISE e_MISSING_MANDATORY_DATA ;
48: END IF ;
49: XNP_XML_UTILS.write_element ( 'INTERVAL', XNP$SYNC_TIMER.INTERVAL ) ;
50: ELSE
51: xnp_xml_utils.write_element('INTERVAL', p_INTERVAL);
52: END IF;
53: XNP_XML_UTILS.end_segment ( 'SYNC_TIMER' ) ;
54: EXIT ;
55: END LOOP ;
49: XNP_XML_UTILS.write_element ( 'INTERVAL', XNP$SYNC_TIMER.INTERVAL ) ;
50: ELSE
51: xnp_xml_utils.write_element('INTERVAL', p_INTERVAL);
52: END IF;
53: XNP_XML_UTILS.end_segment ( 'SYNC_TIMER' ) ;
54: EXIT ;
55: END LOOP ;
56: IF ( l_loop_index_1 = 0 ) THEN
57: x_error_message := 'Missing Mandatory Data-, DELAY, INTERVAL';
57: x_error_message := 'Missing Mandatory Data-, DELAY, INTERVAL';
58: RAISE e_MISSING_MANDATORY_DATA ;
59: END IF ;
60: /* get the message body */
61: XNP_XML_UTILS.get_document ( l_xml_body ) ;
62: IF (l_xml_body IS NULL) THEN
63: XNP_XML_UTILS.write_element('SYNC_TIMER',l_xml_body );
64: XNP_XML_UTILS.get_document( l_xml_body ) ;
65: END IF;
59: END IF ;
60: /* get the message body */
61: XNP_XML_UTILS.get_document ( l_xml_body ) ;
62: IF (l_xml_body IS NULL) THEN
63: XNP_XML_UTILS.write_element('SYNC_TIMER',l_xml_body );
64: XNP_XML_UTILS.get_document( l_xml_body ) ;
65: END IF;
66: /* initialize the XML header variable */
67: XNP_XML_UTILS.initialize_doc ( ) ;
60: /* get the message body */
61: XNP_XML_UTILS.get_document ( l_xml_body ) ;
62: IF (l_xml_body IS NULL) THEN
63: XNP_XML_UTILS.write_element('SYNC_TIMER',l_xml_body );
64: XNP_XML_UTILS.get_document( l_xml_body ) ;
65: END IF;
66: /* initialize the XML header variable */
67: XNP_XML_UTILS.initialize_doc ( ) ;
68: /*construct the XML header */
63: XNP_XML_UTILS.write_element('SYNC_TIMER',l_xml_body );
64: XNP_XML_UTILS.get_document( l_xml_body ) ;
65: END IF;
66: /* initialize the XML header variable */
67: XNP_XML_UTILS.initialize_doc ( ) ;
68: /*construct the XML header */
69: /* retreive the next message ID */
70: XNP_MESSAGE.get_sequence ( l_msg_header.message_id ) ;
71: IF (p_reference_id IS NULL) THEN
73: ELSE
74: l_msg_header.reference_id := p_reference_id ;
75: END IF ;
76: /* append header parameters to make header */
77: XNP_XML_UTILS.write_element ( 'MESSAGE_ID',l_msg_header.message_id ) ;
78: XNP_XML_UTILS.write_element ( 'REFERENCE_ID',l_msg_header.reference_id ) ;
79: l_msg_header.opp_reference_id := p_opp_reference_id ;
80: XNP_XML_UTILS.write_element ( 'OPP_REFERENCE_ID',l_msg_header.opp_reference_id ) ;
81: l_msg_header.message_code := 'SYNC_TIMER' ;
74: l_msg_header.reference_id := p_reference_id ;
75: END IF ;
76: /* append header parameters to make header */
77: XNP_XML_UTILS.write_element ( 'MESSAGE_ID',l_msg_header.message_id ) ;
78: XNP_XML_UTILS.write_element ( 'REFERENCE_ID',l_msg_header.reference_id ) ;
79: l_msg_header.opp_reference_id := p_opp_reference_id ;
80: XNP_XML_UTILS.write_element ( 'OPP_REFERENCE_ID',l_msg_header.opp_reference_id ) ;
81: l_msg_header.message_code := 'SYNC_TIMER' ;
82: XNP_XML_UTILS.write_element ( 'MESSAGE_CODE',l_msg_header.message_code ) ;
76: /* append header parameters to make header */
77: XNP_XML_UTILS.write_element ( 'MESSAGE_ID',l_msg_header.message_id ) ;
78: XNP_XML_UTILS.write_element ( 'REFERENCE_ID',l_msg_header.reference_id ) ;
79: l_msg_header.opp_reference_id := p_opp_reference_id ;
80: XNP_XML_UTILS.write_element ( 'OPP_REFERENCE_ID',l_msg_header.opp_reference_id ) ;
81: l_msg_header.message_code := 'SYNC_TIMER' ;
82: XNP_XML_UTILS.write_element ( 'MESSAGE_CODE',l_msg_header.message_code ) ;
83: l_msg_header.version := p_version ;
84: XNP_XML_UTILS.write_element ( 'VERSION',l_msg_header.version ) ;
78: XNP_XML_UTILS.write_element ( 'REFERENCE_ID',l_msg_header.reference_id ) ;
79: l_msg_header.opp_reference_id := p_opp_reference_id ;
80: XNP_XML_UTILS.write_element ( 'OPP_REFERENCE_ID',l_msg_header.opp_reference_id ) ;
81: l_msg_header.message_code := 'SYNC_TIMER' ;
82: XNP_XML_UTILS.write_element ( 'MESSAGE_CODE',l_msg_header.message_code ) ;
83: l_msg_header.version := p_version ;
84: XNP_XML_UTILS.write_element ( 'VERSION',l_msg_header.version ) ;
85: l_msg_header.creation_date := SYSDATE ;
86: l_msg_header.recipient_name := p_recipient_list ;
80: XNP_XML_UTILS.write_element ( 'OPP_REFERENCE_ID',l_msg_header.opp_reference_id ) ;
81: l_msg_header.message_code := 'SYNC_TIMER' ;
82: XNP_XML_UTILS.write_element ( 'MESSAGE_CODE',l_msg_header.message_code ) ;
83: l_msg_header.version := p_version ;
84: XNP_XML_UTILS.write_element ( 'VERSION',l_msg_header.version ) ;
85: l_msg_header.creation_date := SYSDATE ;
86: l_msg_header.recipient_name := p_recipient_list ;
87: XNP_XML_UTILS.write_element ( 'CREATION_DATE',l_msg_header.creation_date ) ;
88: l_msg_header.sender_name := p_sender_name ;
83: l_msg_header.version := p_version ;
84: XNP_XML_UTILS.write_element ( 'VERSION',l_msg_header.version ) ;
85: l_msg_header.creation_date := SYSDATE ;
86: l_msg_header.recipient_name := p_recipient_list ;
87: XNP_XML_UTILS.write_element ( 'CREATION_DATE',l_msg_header.creation_date ) ;
88: l_msg_header.sender_name := p_sender_name ;
89: XNP_XML_UTILS.write_element ( 'SENDER_NAME',l_msg_header.sender_name ) ;
90: XNP_XML_UTILS.write_element ( 'RECIPIENT_NAME',l_msg_header.recipient_name ) ;
91: l_msg_header.direction_indr := 'E' ;
85: l_msg_header.creation_date := SYSDATE ;
86: l_msg_header.recipient_name := p_recipient_list ;
87: XNP_XML_UTILS.write_element ( 'CREATION_DATE',l_msg_header.creation_date ) ;
88: l_msg_header.sender_name := p_sender_name ;
89: XNP_XML_UTILS.write_element ( 'SENDER_NAME',l_msg_header.sender_name ) ;
90: XNP_XML_UTILS.write_element ( 'RECIPIENT_NAME',l_msg_header.recipient_name ) ;
91: l_msg_header.direction_indr := 'E' ;
92: l_msg_header.order_id := p_order_id ;
93: l_msg_header.wi_instance_id := p_wi_instance_id ;
86: l_msg_header.recipient_name := p_recipient_list ;
87: XNP_XML_UTILS.write_element ( 'CREATION_DATE',l_msg_header.creation_date ) ;
88: l_msg_header.sender_name := p_sender_name ;
89: XNP_XML_UTILS.write_element ( 'SENDER_NAME',l_msg_header.sender_name ) ;
90: XNP_XML_UTILS.write_element ( 'RECIPIENT_NAME',l_msg_header.recipient_name ) ;
91: l_msg_header.direction_indr := 'E' ;
92: l_msg_header.order_id := p_order_id ;
93: l_msg_header.wi_instance_id := p_wi_instance_id ;
94: l_msg_header.fa_instance_id := p_fa_instance_id ;
92: l_msg_header.order_id := p_order_id ;
93: l_msg_header.wi_instance_id := p_wi_instance_id ;
94: l_msg_header.fa_instance_id := p_fa_instance_id ;
95: /* retreieve the XML header */
96: XNP_XML_UTILS.get_document ( l_xml_header ) ;
97: /* append the XML headerto message */
98: XNP_XML_UTILS.initialize_doc ( ) ;
99: XNP_XML_UTILS.xml_decl ;
100: XNP_XML_UTILS.begin_segment ( 'MESSAGE') ;
94: l_msg_header.fa_instance_id := p_fa_instance_id ;
95: /* retreieve the XML header */
96: XNP_XML_UTILS.get_document ( l_xml_header ) ;
97: /* append the XML headerto message */
98: XNP_XML_UTILS.initialize_doc ( ) ;
99: XNP_XML_UTILS.xml_decl ;
100: XNP_XML_UTILS.begin_segment ( 'MESSAGE') ;
101: XNP_XML_UTILS.write_element( 'HEADER', l_xml_header );
102: XNP_XML_UTILS.append ( l_xml_body ) ;
95: /* retreieve the XML header */
96: XNP_XML_UTILS.get_document ( l_xml_header ) ;
97: /* append the XML headerto message */
98: XNP_XML_UTILS.initialize_doc ( ) ;
99: XNP_XML_UTILS.xml_decl ;
100: XNP_XML_UTILS.begin_segment ( 'MESSAGE') ;
101: XNP_XML_UTILS.write_element( 'HEADER', l_xml_header );
102: XNP_XML_UTILS.append ( l_xml_body ) ;
103: XNP_XML_UTILS.end_segment ( 'MESSAGE') ;
96: XNP_XML_UTILS.get_document ( l_xml_header ) ;
97: /* append the XML headerto message */
98: XNP_XML_UTILS.initialize_doc ( ) ;
99: XNP_XML_UTILS.xml_decl ;
100: XNP_XML_UTILS.begin_segment ( 'MESSAGE') ;
101: XNP_XML_UTILS.write_element( 'HEADER', l_xml_header );
102: XNP_XML_UTILS.append ( l_xml_body ) ;
103: XNP_XML_UTILS.end_segment ( 'MESSAGE') ;
104: XNP_XML_UTILS.get_document( l_xml_doc ) ;
97: /* append the XML headerto message */
98: XNP_XML_UTILS.initialize_doc ( ) ;
99: XNP_XML_UTILS.xml_decl ;
100: XNP_XML_UTILS.begin_segment ( 'MESSAGE') ;
101: XNP_XML_UTILS.write_element( 'HEADER', l_xml_header );
102: XNP_XML_UTILS.append ( l_xml_body ) ;
103: XNP_XML_UTILS.end_segment ( 'MESSAGE') ;
104: XNP_XML_UTILS.get_document( l_xml_doc ) ;
105: /* assign the header and msg text to output parameters */
98: XNP_XML_UTILS.initialize_doc ( ) ;
99: XNP_XML_UTILS.xml_decl ;
100: XNP_XML_UTILS.begin_segment ( 'MESSAGE') ;
101: XNP_XML_UTILS.write_element( 'HEADER', l_xml_header );
102: XNP_XML_UTILS.append ( l_xml_body ) ;
103: XNP_XML_UTILS.end_segment ( 'MESSAGE') ;
104: XNP_XML_UTILS.get_document( l_xml_doc ) ;
105: /* assign the header and msg text to output parameters */
106: x_msg_header := l_msg_header ;
99: XNP_XML_UTILS.xml_decl ;
100: XNP_XML_UTILS.begin_segment ( 'MESSAGE') ;
101: XNP_XML_UTILS.write_element( 'HEADER', l_xml_header );
102: XNP_XML_UTILS.append ( l_xml_body ) ;
103: XNP_XML_UTILS.end_segment ( 'MESSAGE') ;
104: XNP_XML_UTILS.get_document( l_xml_doc ) ;
105: /* assign the header and msg text to output parameters */
106: x_msg_header := l_msg_header ;
107: x_msg_text := l_xml_doc ;
100: XNP_XML_UTILS.begin_segment ( 'MESSAGE') ;
101: XNP_XML_UTILS.write_element( 'HEADER', l_xml_header );
102: XNP_XML_UTILS.append ( l_xml_body ) ;
103: XNP_XML_UTILS.end_segment ( 'MESSAGE') ;
104: XNP_XML_UTILS.get_document( l_xml_doc ) ;
105: /* assign the header and msg text to output parameters */
106: x_msg_header := l_msg_header ;
107: x_msg_text := l_xml_doc ;
108: /* handle exceptions */