oracle 函数

-- 判断V网类型
  SELECT LENGTH(P_TYPE) INTO V_LEN FROM DUAL;
  IF V_LEN != 1 THEN
    P_RETVAL := 1002; -- V网类型不合法
    RETURN;
  END IF;
  select NVL(REGEXP_SUBSTR(P_TYPE, '[0|1]'), '-1')
    into V_ISCORPIDEXISTS
    from dual;
  IF V_ISCORPIDEXISTS = -1 THEN
    P_RETVAL := 1002; -- V网类型不合法
    return;
  END IF;