我正在从主存储过程执行另一个存储过程。主要存储过程如下
ALTER Procedure [dbo].[SaveLabTestEntry]
(
@LE_No nvarchar(100)=null,
@hcp_id varchar(25)=null,
@Pat_prof_Id nvarchar(100)=null,
@Usr_Id nvarchar(100)=null,
@LE_Date nvarchar(100)=null,
@LE_Time nvarchar(100)=null,
@HospitalName nvarchar(100)=null,
@Mode nvarchar(10)=null,
@dt LabEntryD_TVP READONLY
)
AS
Declare @ResultMsg as nvarchar(50)
Declare @MaxID as Int
Declare @Status as Int
Begin
BEGIN TRY
BEGIN TRANSACTION SaveData
IF @Mode='ADD'
BEGIN
IF @HospitalName IS NOT NULL AND @HospitalName<>''
BEGIN
EXEC @hcp_id= InsertPatAddedHosp @HospitalName, @Usr_Id
END
SET @MaxID = (SELECT [Vr_No] + 1 FROM [VrLastNo] WHERE [Vr_Code]='LAB-H' AND [Loc_Id]=1 AND [Co_Cd]='HO')
SET @LE_No = 'P'+CAST(@MaxID AS NVARCHAR(100))
INSERT INTO HCPLabEntryH(LE_No, hcp_id, Pat_prof_Id, Usr_Id, LE_Date, LE_Time, Entry_Type)
VALUES (@LE_No, @hcp_id, @Pat_prof_Id, @Usr_Id, @LE_Date, @LE_Time, 'P')
INSERT INTO HCPLabEntryD(
hcp_id, Pat_prof_Id, LE_No, LED_Ctr, Test_Cd, Test_Desc,
LED_Result, LED_Normal_Value)
SELECT
@hcp_id, @Pat_prof_Id, @LE_No, tvp.LabTestCtr, tvp.TestCd, tvp.TestName,
tvp.TestResult, tvp.NormalValue
FROM @dt tvp
SET @ResultMsg='Saved Successfully..'
Set @Status=1
UPDATE [VrLastNo] SET [Vr_No]= @MaxID WHERE [Vr_Code]='LAB-H' AND [Loc_Id]=1 AND [Co_Cd]='HO'
END
IF @Mode='EDIT'
BEGIN
IF @HospitalName IS NOT NULL AND @HospitalName<>''
BEGIN
EXEC @hcp_id= InsertPatAddedHosp @HospitalName, @Usr_Id
END
UPDATE HCPLabEntryH SET
hcp_id=@hcp_id, Pat_prof_Id=@Pat_prof_Id, Usr_Id=@Usr_Id, LE_Date=@LE_Date, LE_Time=@LE_Time
WHERE LE_No=@LE_No
DELETE FROM HCPLabEntryD WHERE LE_No=@LE_No
INSERT INTO HCPLabEntryD(
hcp_id, Pat_prof_Id, LE_No, LED_Ctr, Test_Cd, Test_Desc,
LED_Result, LED_Normal_Value)
SELECT
@hcp_id, @Pat_prof_Id, @LE_No, tvp.LabTestCtr, tvp.TestCd, tvp.TestName,
tvp.TestResult, tvp.NormalValue
FROM @dt tvp
Set @Status=1
SET @ResultMsg='Updated Successfully..'
END
IF @Mode='DELETE'
BEGIN
DELETE FROM HCPLabEntryH WHERE LE_No=@LE_No
DELETE FROM HCPLabEntryD WHERE LE_No=@LE_No
Set @Status=1
SET @ResultMsg='Deleted Successfully..'
END
SELECT @ResultMsg as ResultMsg,@Status as [Status],0 as Id
COMMIT TRANSACTION SaveData
END TRY
BEGIN CATCH
rollback transaction SaveData;
Set @Status=0
select Error_Message() as ResultMsg,@Status as [Status],0 as Id
END CATCH
End
Run Code Online (Sandbox Code Playgroud)
下面给出了第二个存储过程;它返回从主 sp@HcpId获取它@HcpId并尝试从主 sp 保存。但它没有得到@HcpId. 如何实现这一目标?有没有其他解决方案?
ALTER PROCEDURE [dbo].[InsertPatAddedHosp]
(
@HospitalName nvarchar(100),
@UserId nvarchar(100)
)
As
Begin
DECLARE @MaxHcpId int
DECLARE @HcpId nvarchar(25)
IF NOT EXISTS (SELECT Hcp_Name FROM HCPPatAdded WHERE [User_Id]=@UserId AND Hcp_Name=@HospitalName)
BEGIN
SET @MaxHcpId= (SELECT ISNULL((SELECT ISNULL([VALUE],0) FROM [Param] WHERE [KEY]='PatAddedHosId'),0))
SET @HcpId='H'+CAST((@MaxHcpId+1) AS NVARCHAR(100))
IF @MaxHcpId = 0
BEGIN
INSERT INTO [Param]([KEY], [YEAR], [VALUE]) VALUES ('PatAddedHosId', -1, 1)
END
ELSE
BEGIN
UPDATE [Param] SET [VALUE]=@MaxHcpId+1 WHERE [KEY]='PatAddedHosId'
END
INSERT INTO HCPPatAdded(Hcp_Id, Hcp_Name, [User_Id]) VALUES(@HcpId, @HospitalName, @UserId)
SELECT @HcpId
END
ELSE
BEGIN
SELECT Hcp_Id FROM HCPPatAdded WHERE [User_Id]=@UserId AND Hcp_Name=@HospitalName
END
End
Run Code Online (Sandbox Code Playgroud)
我的问题来自 Main sp 的下面一行
IF @HospitalName IS NOT NULL AND @HospitalName<>''
BEGIN
EXEC @hcp_id= InsertPatAddedHosp @HospitalName, @Usr_Id
END
Run Code Online (Sandbox Code Playgroud)
您应该为此使用 OUTPUT 参数。这是一个非常简单的示例,说明如何将可变参数从一个过程传递到另一个过程:
CREATE PROCEDURE innerProcedure
@user_id INT,
@hcp_id INT OUTPUT
AS
BEGIN
IF @user_id = 1
SET @hcp_id = 100
ELSE
SET @hcp_id = 200
END
GO
CREATE PROCEDURE outerProcedure
@user_id INT
AS
BEGIN
DECLARE @hcp_id INT
EXEC innerProcedure @user_id, @hcp_id OUTPUT
SELECT @hcp_id
END
GO
Run Code Online (Sandbox Code Playgroud)
尝试使用参数 1 和 1 以外的任何参数:
EXEC outerProcedure 1
Run Code Online (Sandbox Code Playgroud)
返回 100
EXEC outerProcedure 2
Run Code Online (Sandbox Code Playgroud)
返回 200
注意outerProcedure 将@hcp_id 传递给innerProcedure,innerProcedure 使用SET 操作修改其值,然后将该值传递回outerProcedure。请注意,在编写接受参数的过程以及任何时候调用它时,都需要包含 OUTPUT。
我认为您需要进行以下更改:
ALTER PROCEDURE [dbo].[InsertPatAddedHosp]
(
@HospitalName nvarchar(100),
@UserId nvarchar(100),
@HcpId nvarchar(25) OUTPUT
)
As
Begin
DECLARE @MaxHcpId int
IF NOT EXISTS (SELECT Hcp_Name FROM HCPPatAdded WHERE [User_Id]=@UserId AND Hcp_Name=@HospitalName)
BEGIN
SET @MaxHcpId= (SELECT ISNULL((SELECT ISNULL([VALUE],0) FROM [Param] WHERE [KEY]='PatAddedHosId'),0))
SET @HcpId='H'+CAST((@MaxHcpId+1) AS NVARCHAR(100))
IF @MaxHcpId = 0
BEGIN
INSERT INTO [Param]([KEY], [YEAR], [VALUE]) VALUES ('PatAddedHosId', -1, 1)
END
ELSE
BEGIN
UPDATE [Param] SET [VALUE]=@MaxHcpId+1 WHERE [KEY]='PatAddedHosId'
END
INSERT INTO HCPPatAdded(Hcp_Id, Hcp_Name, [User_Id]) VALUES(@HcpId, @HospitalName, @UserId)
END
ELSE
BEGIN
SELECT @HcpId = Hcp_Id FROM HCPPatAdded WHERE [User_Id]=@UserId AND Hcp_Name=@HospitalName
END
End
Run Code Online (Sandbox Code Playgroud)
然后,而不是这个:
EXEC @hcp_id= InsertPatAddedHosp @HospitalName, @Usr_Id
Run Code Online (Sandbox Code Playgroud)
调用这个:
EXEC InsertPatAddedHosp @HospitalName, @Usr_Id, @hcp_id OUTPUT
Run Code Online (Sandbox Code Playgroud)
此外,将@hcp_id 的数据类型更改为 nvarchar(25) 而不是 varchar(25) 以匹配 InsertPatAddedHosp 中的数据类型。