2055: If l_header_rec.order_source_id = 0 And
2056: l_xml_message_id Is Null Then
2057: Select Oe_Xml_Message_Seq_S.nextval
2058: Into l_xml_message_id 2059: From dual; 2060: l_header_rec.xml_message_id := l_xml_message_id;
2061: End IF;
2062: Exception
2063: When Others Then