
  PROCEDURE [XREF]  rap$process_psrs_entered
    (    psrs_answered: clt$data_value;
     VAR new_subproduct_info_pointers: rat$subproduct_info_pointers;
     VAR previous_correction_sif: rat$correction_process_sif_info;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc clt$data_value
*copyc ost$status
*copyc rat$subproduct_info_types
*copyc rat$correction_process_record
?? POP ??

