--------批量处理大病无信息
DECLARE
P_PERSONID NUMBER;
P_SEQNO VARCHAR2 (36);
P_REGISTERNO VARCHAR2 (18);
BEGIN
FOR p
IN ( select substr(d1.medical_record_no,
instr(d1.medical_record_no, '_') + 1,
length(medical_record_no) ) persionid
from db_upload d1
)
LOOP
P_PERSONID := p.persionid;
P_SEQNO := NULL;
P_REGISTERNO := NULL;
NHHIS.PRO_COMPUTE_DBSB_FEE_QW(P_PERSONID, P_SEQNO, P_REGISTERNO);
commit;
END LOOP;

DBMS_OUTPUT.Put_Line ('');
END;