create or replace procedure proc_alarmlog(in_id in number, --采集器编码
ip_code in number, --采集器ip
in_time varchar2, --采集时间
t_arr num_array, --温度数据
h_arr num_array, --湿度数据
c_arr num_array) --二氧化碳数据
is
min_table num_type := num_type(0); --仓库监控阈值范围最小值
max_table num_type := num_type(0); --仓库监控阈值范围最大值
state_table num_type := num_type(0); --阈值范围对应的仓库状态
v_value number; --采集数据的临时变量
v_wid number; --仓库编码
v_count number; --临时变量，用于判断仓库某个采集区域是否存在警告或异常
v_state number; --临时变量，用于判断仓库某个采集区域的状态
v_reason varchar2(100):='';--临时变量，用于存储异常信息
v_err varchar2(200);--临时变量，用于存储异常信息
begin
--根据采集器编码获取仓库编码
begin
select wid into v_wid from warehouse_new t where t.client_id = in_id;
exception
when no_data_found then
return; --无法找到对应的仓库，返回
end;
--根据仓库编码获得仓库温度配置
--按告警状态倒序查询
--便于判断温度值状态
select min_value, max_value, state bulk collect
into min_table, max_table, state_table
from temperature t
where t.wid = v_wid
and t.state != 1
order by t.state desc;
--循环校验温度十个字段值，如果为255跳出循环
for i in 1 .. 10 loop
if t_arr(i) = 255 then
exit;
else
v_state := 1;
for j in 1 .. state_table.count loop
if t_arr(i) >= min_table(j) and t_arr(i) <= max_table(j) then
v_state := state_table(j);
if v_state = 3 then
v_reason:='异常，范围：'||min_table(j)||'到'||max_table(j);
elsif v_state = 2 then
v_reason:='告警，范围：'||min_table(j)||'到'||max_table(j);
else
v_reason:='';
end if;
exit; --退出内层循环
end if;
end loop;
select count(1)--判断该区域是否已存在未解决的告警信息
into v_count
from alarmlog t
where t.solvestate = 0
and t.jurisdictionid = i
and t.warehouseid = v_wid;
if v_count > 0 then
update alarmlog t
set t.state = decode(v_state,1,t.state,v_state),--如果状态是正常，则不改变告警信息记录的状态
t.solvetime = decode(v_state,1,to_char(sysdate, 'yyyy-mm-dd hh24:mi:ss'),''),
t.solvestate = decode(v_state,1,1,0)--如果状态是正常则改变告警信息的解决状态为1：已解决
where t.solvestate = 0
and t.jurisdictionid = i
and t.indicator = 1--温度
and t.warehouseid = v_wid;
elsif v_state!= 1 then
insert into alarmlog
(id,--主键
time,--采集时间
reason,--告警原因
warehouseid,--所属仓库编码
jurisdictionid,--异常区域（1-10）
solvestate,--异常解决状态
state,--发生异常时仓库状态
value,--发生异常的值
ipcode,--采集器编码
indicator)--异常种类(温度、适度、二氧化碳)
values
(alarmlog_id_seq.nextval, in_time, v_reason,v_wid,i,0,v_state,t_arr(i),in_id,1);
end if;
end if;
end loop;
--根据仓库编码获得仓库湿度配置
--按告警状态倒序查询
--便于判断温度值状态
select min_value, max_value, state bulk collect
into min_table, max_table, state_table
from humidity t
where t.wid = v_wid
and t.state != 1
order by t.state desc;
--循环校验湿度十个字段值，如果为255跳出循环
for i in 1 .. 10 loop
if h_arr(i) = 255 then
exit;
else
v_state := 1;
for j in 1 .. state_table.count loop
if h_arr(i) >= min_table(j) and h_arr(i) <= max_table(j) then
v_state := state_table(j);
if v_state = 3 then
v_reason:='异常，范围：'||min_table(j)||'到'||max_table(j);
elsif v_state = 2 then
v_reason:='告警，范围：'||min_table(j)||'到'||max_table(j);
else
v_reason:='';
end if;
exit; --退出内层循环
end if;
end loop;
select count(1)--判断该区域是否已存在未解决的告警信息
into v_count
from alarmlog t
where t.solvestate = 0
and t.jurisdictionid = i
and t.warehouseid = v_wid;
if v_count > 0 then
update alarmlog t
set t.state = decode(v_state,1,t.state,v_state),--如果状态是正常，则不改变告警信息记录的状态
t.solvetime = decode(v_state,1,to_char(sysdate, 'yyyy-mm-dd hh24:mi:ss'),''),
t.solvestate = decode(v_state,1,1,0)--如果状态是正常则改变告警信息的解决状态为1：已解决
where t.solvestate = 0
and t.indicator = 2--湿度
and t.jurisdictionid = i
and t.warehouseid = v_wid;
elsif v_state!= 1 then
insert into alarmlog
(id,--主键
time,--采集时间
reason,--告警原因
warehouseid,--所属仓库编码
jurisdictionid,--异常区域（1-10）
solvestate,--异常解决状态
state,--发生异常时仓库状态
value,--发生异常的值
ipcode,--采集器编码
indicator)--异常种类(温度、适度、二氧化碳)
values
(alarmlog_id_seq.nextval, in_time, v_reason,v_wid,i,0,v_state,h_arr(i),in_id,2);
end if;
end if;
end loop;
-- commit;
exception when others then
v_err:=sqlerrm;
insert into operationlog
(id, time, behavior, state, reason)
values
(operationlog_id_seq.nextval,
to_char(sysdate, 'yyyy-mm-dd hh24:mi:ss'),
'生成告警信息发生数据库异常',
1,
v_err);
-- commit;
end proc_alarmlog;