
  CONST
    rac$min_assignment_priority = 0,
    rac$max_assignment_priority = 10;

  CONST
    rac$packing_list_entry = 1;

  CONST
    rac$first_subproduct_entry = rac$packing_list_entry + 1;

  TYPE
    rat$assignment_priority = rac$min_assignment_priority ..
          rac$max_assignment_priority;

  TYPE
    rat$order_contents = record
      assignment_priority: rat$assignment_priority,
      size: rat$subproduct_size,
      position_assigned: rat$position_assigned,
      name: rat$subproduct_name,
      case contents_type: rat$order_contents_type of
      = subproduct =
        subproduct_type: rat$subproduct_type,
        level: rat$subproduct_level,
        licensed_product: rat$licensed_product,
        pacs_catalog: rat$path,
        subproduct_seq_length: amt$file_length,
        subproduct_seq_p: rat$subproduct_info_p,
        auto_install: boolean,
        sif_identifier: ost$name,
      = packing_list =
      casend,
    recend,

    rat$order_contents_list = array [ * ] of rat$order_contents;

  TYPE
    rat$order_contents_type = (packing_list, subproduct);

  TYPE
    rat$position_assigned = integer;

*copyc ost$name
*copyc rat$path
*copyc rat$subproduct_info_p
*copyc rat$subproduct_info_types
