[Oracle学习]如何避免并发操作，使某列的数字每天都不会重复。

前言：

　　最近在做一个流水线的接口，要求标本签收后从HIS中取得病人数据，写入到LIS系统的数据处理中。这里涉及到处理时应生成一个标本号，不同仪器、不同日期下这个号码可以重复，但是当天不能在同一台仪器产生相同的标本号。之前的解决方案是，取出该台仪器下当天所有已生成的标本的号码，循环判断，如果发现号码没有使用，则新的标本取此号码作为新标本的标本号进行保存。但是流水线上线以后，发现偶有重复的标本号出现，经过了解和查询一些资料，了解该问题可以通过序列来解决。

第一步：创建序列(sequence)

　　序列是保证号码不重复的一个解决方案，因为流水线中有两台仪器，所以需要创建两个序列。语句如下：

--创建序列
create sequence SEQ_L_SMPID_0000 minvalue 0 maxvalue 999999 start
with 1 increment by 1 nocache;
create sequence SEQ_L_SMPID_0001 minvalue 0 maxvalue 999999 start
with 1 increment by 1 nocache;

　　创建成功以后我们可以尝试取值，这里可以发现每次取出的结果都会＋１输出。

select SEQ_L_SMPID_0000.NEXTVAL from dual;
select SEQ_L_SMPID_0001.NEXTVAL from dual;

　　关于序列的相关知识可以自行百度。

第二步：创建存储过程(procedure)

　　存储过程的目的是，将序列的开始值回滚为1。因为每天的号码不同，所以这个存储过程要在凌晨的时候执行。

--创建存储过程
create or replace procedure seq_reset(v_seqname varchar2) as
n    number(10);
tsql varchar2(100);
begin
execute immediate 'select ' || v_seqname || '.nextval from dual'
into n;
n    := -n;
tsql := 'alter sequence ' || v_seqname || ' increment by ' || n;
execute immediate tsql;
execute immediate 'select ' || v_seqname || '.nextval from dual'
into n;
tsql := 'alter sequence ' || v_seqname || ' increment by 1';
execute immediate tsql;
end seq_reset;

　　入参是序列的名称。执行的过程就是，将序列的值(nextval)取出，然后将增量变为-nextval，执行一次取出操作，这时取出的nextval就变成了0，然后把增量再改回1。

第三步：创建任务(job)

　　任务是，每天凌晨执行上述存储过程：

declare job_resetsmpid number;
begin
dbms_job.submit(job_resetsmpid, 'seq_reset(''SEQ_L_SMPID_0000'');seq_reset(''SEQ_L_SMPID_0001'');', sysdate, 'TRUNC(SYSDATE + 1)'); commit;
end;