1  PROCEDURE load_permutations (
 2     val1_in   IN   PLS_INTEGER
 3    ,val2_in   IN   PLS_INTEGER
 4  )
 5  IS
 6  BEGIN
 7     type_families (val1_in) (val1_in) := TRUE;
 8     type_families (val2_in) (val2_in) := TRUE;
 9     type_families (val1_in) (val2_in) := TRUE;
10     type_families (val2_in) (val1_in) := TRUE;
11  END;