不懂ORACLE，求各位高手将下面的这段存储过程改为ORACLE的。在线求……各种求


create PROCEDURE ST_SLwrite   
@slID int --仓库ID
with ENCRYPTION
AS
BEGIN
SET NOCOUNT ON;
SET DATEFIRST 1 --设置周一=1，周日=7
------------------------------------------------------------------------------------------------
--0-参数设置
declare 
@rootID int,@plantid int,@managID int,@lockty int,
@partID int,@partID1 int
------------------------------------------------------------------------------------------------
DECLARE @CurrentError int
    BEGIN TRANSACTION
    
    
    ------------------------------------------------------------------------------------------------
    --1-初始化
    set @partID=(select ParentID from CP_WAREHOUSE where ID=@slID)
    
    
    
    ------------------------------------------------------------------------------------------------
    --2-过程程序体 (select DATEPART(weekday,@iDate))
    -----step1:删除本期间原有周序设置
    if @partID>0
    begin
while @partID>0 
begin
set @partID1=(select isnull(ParentID,0) from CP_WAREHOUSE where ID=@partID)
if @partID1=0
begin
set @rootID=@partID1
set @plantid=( --更节点的 营运部门
select btPlantID from CP_WAREHOUSE
where ID=@partID
)
set @managID=( --更节点的 id
select id from CP_WAREHOUSE
where ID=@partID
)
set @lockty=( --更节点的 锁定状态
select locktype from CP_WAREHOUSE
where ID=@partID
)
if @managID is not null and @managID>0
begin
if @lockty=1 or @lockty=2 --根节点锁定 和 封闭

update CP_WAREHOUSE 
set btPlantID=@plantid,
SL_maID=@managID,
locktype=@lockty
where ID =@slID
else
update CP_WAREHOUSE 
set btPlantID=@plantid,
SL_maID=@managID
where ID =@slID
end
end
set @partID=@partID1
end
end--if true
else
begin
if @slID is not null and @slID>0
update CP_WAREHOUSE 
set SL_maID=@slID
where ID =@slID

end

    

------------------------------------------------
-- 错误处理
------------------------------------------------
select @CurrentError = @@Error
    IF @CurrentError != 0
        BEGIN
            GOTO ERROR_HANDLER
        END  --end of transaction
    COMMIT TRANSACTION
    -- Reset SET NOCOUNT to OFF
    SET NOCOUNT OFF
    -- return 0 to indicate success, otherwise the raised error will be returned
    RETURN 
  ERROR_HANDLER:
        ROLLBACK TRANSACTION
SET NOCOUNT OFF
        RETURN @CurrentError
END