   G_REGEX_END_CASE_EXPR CONSTANT VARCHAR2(50) := '\sEND\W'; 
   G_REGEX_END_IF        CONSTANT VARCHAR2(50) := '\sEND\s+?IF\s*?;';
    
-  G_ANNOTATION          CONSTANT VARCHAR2(50) := '--';
+  --G_REGEX_ANNOTATION          CONSTANT VARCHAR2(50) := '--';
  
   G_REGEX_OPEN         CONSTANT VARCHAR2(200) :=   G_REGEX_DECLARE      
                                             ||'|'||G_REGEX_BEGIN        

        inject( i_new_code => 'ms_logger.note(l_node,'''||l_bind_var||''','||l_bind_var||');'
        	   ,i_indent   => i_indent
        	   ,i_colour   => G_COLOUR_NOTE);
 
      ELSE
	    ms_logger.info(l_node,'No more blocks.');


  ms_logger.note(l_node, 'i_indent    '     ,i_indent     );
  ms_logger.note(l_node, 'i_regex_end '     ,i_regex_end  );
 
 
  loop
 
	l_keyword := get_next_upper( i_search      => G_REGEX_OPEN
                                           ||'|'||G_REGEX_NEUTRAL
                                           ||'|'||G_REGEX_CLOSE
                                           ||'|'||G_REGEX_WHEN_OTHERS_THEN
                                ,i_stop        => G_REGEX_START_ANNOTATION --don't colour it
                                           ||'|'||G_REGEX_ASSIGN_TO_BIND_VAR
                                ,i_colour      => G_COLOUR_BLOCK);
