addDateElement(doc, nd, 'NextPaymentDateInfo',   null, true);


 procedure addDateElement(in_doc in out dbms_xmldom.DOMDocument, in_node in out dbms_xmldom.DOMNode, in_name varchar2,  in_value varchar2, in_required boolean default false) 
  is
  el dbms_xmldom.DOMElement;
  nd dbms_xmldom.DOMNode;
  nd1 dbms_xmldom.DOMNode;
  dnd dbms_xmldom.DOMText; 
                                            
  Begin
                      
      if in_value is null and not in_required then
        return ;
      End If;    
                    
      el    := dbms_xmldom.createElement(in_doc, in_name) ;     
      nd    := dbms_xmldom.makeNode(el);            
      nd    := dbms_xmldom.appendChild(in_node, nd);        

     dnd   := dbms_xmldom.createTextNode(in_doc, in_value);    

      nd1    := dbms_xmldom.makeNode(dnd);    
      nd1    := dbms_xmldom.appendChild(nd, nd1);            
                                                
  End;  

<NextPaymentDateInfo></NextPaymentDateInfo>

<NextPaymentDateInfo/>