1  FUNCTION same_program_types (
 2    program_in IN VARCHAR2
 3   ,overload1_in IN PLS_INTEGER

 4   ,overload2_in IN PLS_INTEGER
 5  )
 6    RETURN BOOLEAN
 7  IS

 8    l_arg1_is_function BOOLEAN
 9             := cc_smartargs.is_function (program_in, overload1_in);
10    l_arg2_is_function BOOLEAN
11             := cc_smartargs.is_function (program_in, overload2_in);
12  BEGIN

13    RETURN (   (    l_arg1_is_function
14                AND l_arg2_is_function)
15            OR (    NOT l_arg1_is_function
16                AND NOT l_arg2_is_function)
17           );
18  END same_program_types;