第一次接触pg库，请教各位大佬oracle库中的函数写到pg库下需要怎么修改

CREATE OR REPLACE FUNCTION FN_IDCARDCHECK_REGEXP(IN_IDCARD IN VARCHAR)

RETURN NUMBER IS

V_REGSTR VARCHAR2(2000);

V_SUM NUMBER;

V_MOD NUMBER;

V_CHECKBIT VARCHAR2(1);

V_CHECKCODE VARCHAR2(11) := '10X98765432';

V_AREACODE VARCHAR2(2000) := '11,12,13,14,15,21,22,23,31,32,33,34,35,36,37,41,42,43,44,45,46,50,51,52,53,54,61,62,63,64,65,71,81,82,91,';

BEGIN

/*返回值说明:

0 身份证号码校验通过

1 身份证号码位数错误

2 身份证号码地区编码错误

3 身份证号码含有非法字符或出生日期错误

4 身份证号码校验码错误

5 其他异常未知错误*/

CASE LENGTHB(IN_IDCARD)

WHEN 15 THEN

IF INSTRB(V_AREACODE, SUBSTR(IN_IDCARD, 1, 2) || ',') = 0 THEN

RETURN 2; --2 身份证号码地区编码错误

END IF;

IF MOD(TO_NUMBER('19' || SUBSTRB(IN_IDCARD, 7, 2)), 400) = 0 OR

(MOD(TO_NUMBER('19' || SUBSTRB(IN_IDCARD, 7, 2)), 100) <> 0 AND

MOD(TO_NUMBER('19' || SUBSTRB(IN_IDCARD, 7, 2)), 4) = 0) THEN

V_REGSTR := '^[1-9][0-9]{5}[0-9]{2}((01|03|05|07|08|10|12)(0[1-9]|[1-2][0-9]|3[0-1])|(04|06|09|11)(0[1-9]|[1-2][0-9]|30)|02(0[1-9]|[1-2][0-9]))[0-9]{3}$';

ELSE

V_REGSTR := '^[1-9][0-9]{5}[0-9]{2}((01|03|05|07|08|10|12)(0[1-9]|[1-2][0-9]|3[0-1])|(04|06|09|11)(0[1-9]|[1-2][0-9]|30)|02(0[1-9]|1[0-9]|2[0-8]))[0-9]{3}$';

END IF;

IF REGEXP_LIKE(IN_IDCARD, V_REGSTR) THEN

RETURN 0; --0 身份证号码校验通过

ELSE

RETURN 3; --3 身份证号码含有非法字符或出生日期错误

END IF;

WHEN 18 THEN

IF INSTRB(V_AREACODE, SUBSTRB(IN_IDCARD, 1, 2) || ',') = 0 THEN

RETURN 2; --2 身份证号码地区编码错误

END IF;

IF MOD(TO_NUMBER(SUBSTRB(IN_IDCARD, 7, 4)), 400) = 0 OR

(MOD(TO_NUMBER(SUBSTRB(IN_IDCARD, 7, 4)), 100) <> 0 AND

MOD(TO_NUMBER(SUBSTRB(IN_IDCARD, 7, 4)), 4) = 0) THEN

V_REGSTR := '^[1-9][0-9]{5}(19|20)[0-9]{2}((01|03|05|07|08|10|12)(0[1-9]|[1-2][0-9]|3[0-1])|(04|06|09|11)(0[1-9]|[1-2][0-9]|30)|02(0[1-9]|[1-2][0-9]))[0-9]{3}[0-9Xx]$';

ELSE

V_REGSTR := '^[1-9][0-9]{5}(19|20)[0-9]{2}((01|03|05|07|08|10|12)(0[1-9]|[1-2][0-9]|3[0-1])|(04|06|09|11)(0[1-9]|[1-2][0-9]|30)|02(0[1-9]|1[0-9]|2[0-8]))[0-9]{3}[0-9Xx]$';

END IF;

IF REGEXP_LIKE(IN_IDCARD, V_REGSTR) THEN

V_SUM := (TO_NUMBER(SUBSTRB(IN_IDCARD, 1, 1)) +

TO_NUMBER(SUBSTRB(IN_IDCARD, 11, 1))) * 7 +

(TO_NUMBER(SUBSTRB(IN_IDCARD, 2, 1)) +

TO_NUMBER(SUBSTRB(IN_IDCARD, 12, 1))) * 9 +

(TO_NUMBER(SUBSTRB(IN_IDCARD, 3, 1)) +

TO_NUMBER(SUBSTRB(IN_IDCARD, 13, 1))) * 10 +

(TO_NUMBER(SUBSTRB(IN_IDCARD, 4, 1)) +

TO_NUMBER(SUBSTRB(IN_IDCARD, 14, 1))) * 5 +

(TO_NUMBER(SUBSTRB(IN_IDCARD, 5, 1)) +

TO_NUMBER(SUBSTRB(IN_IDCARD, 15, 1))) * 8 +

(TO_NUMBER(SUBSTRB(IN_IDCARD, 6, 1)) +

TO_NUMBER(SUBSTRB(IN_IDCARD, 16, 1))) * 4 +

(TO_NUMBER(SUBSTRB(IN_IDCARD, 7, 1)) +

TO_NUMBER(SUBSTRB(IN_IDCARD, 17, 1))) * 2 +

TO_NUMBER(SUBSTRB(IN_IDCARD, 8, 1)) * 1 +

TO_NUMBER(SUBSTRB(IN_IDCARD, 9, 1)) * 6 +

TO_NUMBER(SUBSTRB(IN_IDCARD, 10, 1)) * 3;

V_MOD := MOD(V_SUM, 11);

V_CHECKBIT := SUBSTRB(V_CHECKCODE, V_MOD + 1, 1);

IF V_CHECKBIT = UPPER(SUBSTRB(IN_IDCARD, 18, 1)) THEN

RETURN 0; --0 身份证号码校验通过

ELSE

RETURN 4; --4 身份证号码校验码错误

END IF;

ELSE

RETURN 3; --3 身份证号码含有非法字符或出生日期错误

END IF;

ELSE

RETURN 1; --1 身份证号码位数错误

END CASE;

EXCEPTION

WHEN OTHERS THEN

RETURN 5; --5 其他异常未知错误

END FN_IDCARDCHECK_REGEXP;