
  PROCEDURE [XREF] rap$add_correction_format
    (    correction_format: rat$correction_format;
         element_count: rat$element_count;
     VAR element_p: ^rat$element;
     VAR subproduct_info_seq_p: ^rat$subproduct_info_sequence);


?? PUSH (LISTEXT := ON) ??
*copyc rat$subproduct_info_types
?? POP ??


