
  PROCEDURE [XREF] rap$verify_subproduct
        (pacs_ref_p: ^fst$file_reference;
         validation_selections: rat$validation_selections;
         sif_present: boolean;
     VAR verify_options: rat$subproduct_verify_options;
     VAR verify_errors: {input/output} rat$subproduct_verify_errors;
     VAR subproduct_info_pointers: {input, output} rat$subproduct_info_pointers;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc fst$file_reference
*copyc ost$status
*copyc rat$scratch_segment
*copyc rat$subproduct_info_pointers
*copyc rat$subproduct_info_types
*copyc rat$subproduct_verify_errors
*copyc rat$subproduct_verify_options
*copyc rat$validation_selections
?? POP ??

