create or replace procedure proc_update_jxhealth_visit2 is
v_sqlerrm varchar2(500);
type jt_record_type is record(
name zsbook1.name%type,
pid zsbook2.pid%type,
visitdocname zsbook2.visitdocname%type,
followupdate zsbook2 .followupdate%type,
nextfollowdate zsbook2.nextfollowdate%type,
height zsbook2.height%type,
bwi zsbook2.bwi%type,
up zsbook2.up%type,
down zsbook2.down%type,
cid zsbook2.cid%type,
visitsum zsbook2.visitsum%type);
jt_record jt_record_type;
cursor cur_jt is
select distinct j.name,
j.pid,
j.visitdocname,
j.followupdate,
j.nextfollowdate,
j.height,
j.bwi,
j.visitsum,
j.up,
j.down,
t2.cid
from (select t.*
from zsbook2 t
where not exists (select *
from zsbook2
where t.followupdate < followupdate
and t.name = name
and t.pid = pid)
order by pid) t2
left join zsbook2 j on j.pid = t2.pid
and j.name = t2.name;
begin
open cur_jt;
loop
fetch cur_jt
into jt_record.name, jt_record.pid, jt_record.visitdocname, jt_record.followupdate, jt_record.nextfollowdate, jt_record.height, jt_record.bwi, jt_record.visitsum, jt_record.up, jt_record.down, jt_record.cid;
exit when cur_jt%notfound;
insert into hypertensionvisit h
(h.pid,
h.name,
h.rflag,
h.visitdocname,
h.followupdate,
h.nextfollowdate,
h.height,
h.bwi,
h.visitsum,
h.bmi,
h.createuid,
h.creattime,
h.updateuid,
h.updatetime,
h.bldpressureh,
h.bldpressurevaluel,
h.hypertensioncid,
h.followstate)
values
(jt_record.pid,
jt_record.name,
'0',
jt_record.visitdocname,
jt_record.followupdate,
jt_record.nextfollowdate,
jt_record.height,
jt_record.bwi,
jt_record.visitsum,
'50.00',
'001',
sysdate,
'001',
sysdate,
jt_record.up,
jt_record.down,
jt_record.cid,
'05');
if (mod(cur_jt%rowcount, 100) = 0) then
commit;
end if;
end loop;
close cur_jt;
commit;
exception
when others then
v_sqlerrm := substr(sqlerrm, 1, 300);
dbms_output.put_line('err=' || v_sqlerrm);
rollback;
end proc_update_jxhealth_visit2;
3月30日 4月3日課程表
請各位家長注意翻看課程表下方學習指導 時間周一 周二週三 周四周五 9 00 9 25 語文數學 數學語文 英語9 30 9 40 眼操眼操 眼操眼操 眼操9 40 10 00 運動運動 運動運動 運動10 00 10 25 數學語文 語文數學 數學午休 3 00 3 25 生命 美術 體育體育 3...
4月3號阿里實習筆試第一題題解
第一題，題意 給定個長度為n的陣列a n 要求出有多少個有價值的數，乙個數a x 是有價值的當且僅當在x前面存在大於a x 的最小數f,在x後面存在乙個小於a x 的最大數，且f是g的倍數。思路 先求出每個數的f,與g 判斷f g是否等於0，是的話ans 求f的話使用set容器將前面的數依次放入se...
電信3G將於4月3日在北京放號 提速不提價
北京電信同時公布了3g放號的資費 相比之下，在網速較2g時代提高了20的的同時，使用者的支出較基本上沒有增加。如使用者預充上網費960元，即可在北京地區連續7個月享用3g帶來的高速服務。北京地區將正式享用3g高速上網 中國電信北京公司宣布，經過精心準備，自4月3日起，將在北京地區正式商用3g放號，使...