-- 判断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;
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;