V_DATE := TO_DATE(V_ALERTI, 'yyyymmdd hh24:mi:ss');
IF I_ALERTP IS NULL THEN
V_ALERTI := NULL;
ELSIF I_ALERTP = '01' THEN
V_ALERTI := TO_CHAR(V_DATE, 'yyyyMMdd hh24:mi');
ELSIF I_ALERTP = '02' THEN
V_ALERTI := TO_CHAR(V_DATE - 5 / (24 * 60), 'yyyyMMdd hh24:mi');
ELSIF I_ALERTP = '03' THEN
V_ALERTI := TO_CHAR(V_DATE - 15 / (24 * 60), 'yyyyMMdd hh24:mi');
ELSIF I_ALERTP = '04' THEN
V_ALERTI := TO_CHAR(V_DATE - 30 / (24 * 60), 'yyyyMMdd hh24:mi');
ELSIF I_ALERTP = '05' THEN
V_ALERTI := TO_CHAR(V_DATE - 1 / 24, 'yyyyMMdd hh24:mi');
ELSIF I_ALERTP = '06' THEN
V_ALERTI := TO_CHAR(V_DATE - 1, 'yyyyMMdd hh24:mi');
ELSIF I_ALERTP = '07' THEN
V_ALERTI := TO_CHAR(V_DATE - 2, 'yyyyMMdd hh24:mi');
ELSIF I_ALERTP = '08' THEN
V_ALERTI := TO_CHAR(V_DATE - 3, 'yyyyMMdd hh24:mi');
ELSIF I_ALERTP = '20' THEN
--自定义提醒时间
V_ALERTI := I_ALERTI;
END IF;
IF V_ALERTI <= V_CURTI THEN
O_RETCODE := '1004';
O_RETMSG := '提醒时间有误,须大于当前时间哦';
RETURN;
END IF;
