DB2创建不了存储过程能帮忙看看吗??

0 0

DB2创建不了存储过程能帮忙看看吗??30

IMPORT FROM 'C:\data\BASE_TABLE_CONFIG.del' OF DEL
INSERT INTO BASE_TABLE_CONFIG;

update BASE_ORDER_ITEMS set medical_class=0 where medical_class is null;

CREATE PROCEDURE DB2INST2.SP_HS_APPLYOUT
(IN VPATLISTID INTEGER,
IN VOPERATORID INTEGER
)

LANGUAGE SQL
NOT DETERMINISTIC
CALLED ON NULL INPUT
MODIFIES SQL DATA
INHERIT SPECIAL REGISTERS
---------------------------------------------------------------------------------------------
----------------------------------定义出院-------------------------------------------
---------------------------------------------------------------------------------------------
begin
-----------------预留，检查各表更新是否成功-----------------------
                ---------------------修改住院患者列表----------------------------
UPDATE zy_patlist SET pattype='3'
WHERE patlistid=vpatlistid ;

---------------------修改床位分配表---------------------
UPDATE zy_nurse_bed_assign
SET   stop_date=CURRENT TIMESTAMP,stop_user=voperatorid,stop_flag=1
WHERE inpatient_id=vpatlistid AND stop_flag IS NULL;

--------------------修改床位表------------------------------
UPDATE zy_nurse_bed
SET patlist_id=0,baby_id=0,inpatient_dept=0,bed_sex='',zz_doc=0,zy_doc=0
WHERE patlist_id=vpatlistid;
end;

CREATE PROCEDURE DB2INST2.SP_HS_TRANDEPT
(IN VCURRDEPTCODE CHARACTER(20),
IN VPATLISTID INTEGER,
IN VOPERATORID INTEGER,
IN VTRANSDEPTID INTEGER
)

LANGUAGE SQL
NOT DETERMINISTIC
CALLED ON NULL INPUT
MODIFIES SQL DATA
INHERIT SPECIAL REGISTERS
----------------------------------------------------------------------
----------------------------转科----------------------------------
----------------------------------------------------------------------
begin
---------------------修改住院患者列表----------------------------
update ZY_PATLIST set CURRDEPTCODE=vcurrdeptcode,PATTYPE='1',BEDCODE=null
where PATLISTID=vpatlistid;

---------------------修改转科表----------------------------
update ZY_DOC_TRANSDEPT set FINISH_FLAG=1,OPERATOR=voperatorid,OPERATE_DATE=CURRENT TIMESTAMP
where TRANSDEPT_ID=vtransdeptid;

---------------------修改床位分配表---------------------
update ZY_NURSE_BED_ASSIGN set STOP_DATE=CURRENT TIMESTAMP,STOP_USER=voperatorid,STOP_FLAG=1
where INPATIENT_ID=vpatlistid;

--------------------修改床位表------------------------------
update ZY_NURSE_BED set PATLIST_ID=0, BABY_ID=0, INPATIENT_DEPT=0, BED_SEX='', ZZ_DOC=0, ZY_DOC=0
where PATLIST_ID=vpatlistid;
end;