CREATE OR REPLACE FUNCTION SP_XT_CHECKPHONE(P_PHONE in varchar2)
-- MODIFICATION HISTORY
-- Person      Date        Comments
-- cyhong      2020.06.09  校验病人手机号 for MZYSSJ5-20200603-003
-- ruanbh      2021.05.14  增加190-199的手机号 MZYSSJ5-20210512-002
-----------------------------------------------------------------------
return number is
    V_MOD         number;-- 0为校验通过 -1为校验不通过
begin
  if regexp_like(P_PHONE,'^(0\d{2,3}-?\d{7,8}(-\d{3,5}){0,1})|(((13[0-9])|(15([0-3]|[5-9]))|(18[0-9])|(17[0-9])|(16[0-9])|(19[0-9])|(14[0-9]))\d{8})$') then --判断手机号码
    V_MOD := 0;
  else
    V_MOD := -1;
  end if;
  return V_MOD;
exception
 when others then
  return -1;
end;