CREATE OR REPLACE FUNCTION sfBool_adoEllenoriz_EPX5K3
(
    p_ado IN CHAR,
    p_szul IN DATE
)
RETURN BOOLEAN
DETERMINISTIC
AUTHID CURRENT_USER
AS
    v_i INT := 1;
    v_sum INT := 0;
    v_temp INT := 0;
BEGIN
    IF LENGTH(p_ado) <> 10 THEN
        RETURN FALSE;
    ELSE
        IF TO_NUMBER(SUBSTR(p_ado,1,1)) <> 8 THEN RETURN FALSE; END IF;
        IF p_szul - TO_DATE('1867/01/01', 'yyyy/mm/dd') <> TO_NUMBER(SUBSTR(p_ado,2,5)) THEN RETURN FALSE; END IF;
            WHILE v_i <= 9 LOOP
                v_temp := TO_NUMBER(SUBSTR(p_ado,v_i,1));
                v_temp := v_temp * v_i;
                v_sum := v_sum + v_temp;
                v_i := v_i +1;
            END LOOP;
            RETURN TO_NUMBER(SUBSTR(p_ado, 10, 1)) = (v_sum MOD 11);
    END IF;
END;