nextidfunc(integer, character varying)

DECLARE

          o_NextIDFunc INTEGER;

      dummy INTEGER;

BEGIN

    o_NextIDFunc := nextid(p_AD_Sequence_ID, p_System);

    RETURN o_NextIDFunc;

END;