createorreplacefunctiondmpp(dminvarchar2(20),dmnrinvarchar2(50))returnvarchar2(20)is
exchange_dmvarchar2(20);
begin
ifdm='职业代码'then
begin
selectcodeintoexchange_dmfromN041-Dictionary
wherecategory='职业代码'andname=dmnr;
exchange_dm:=decode(exchange_dm,null,'90',@exchange_d);
end
elseifdm='入院病情代码'then
exchange_dm:=(casewhensubstr(@dmnr,1,1)='1'then'1'
whensubstr(@dmnr,1,1)='2'then'2'
whensubstr(@dmnr,1,1)='3'then'3'
else'4'
end);
else
exchange_dm:='';
endif;
RETURNexchange_dm;
enddmpp;
函数创建好后提示pls-00103
分 -->
|