USE [LABORATORY]
GO
/****** Object:  StoredProcedure [dbo].[Lab_Save_Crossmatching]    Script Date: 12/9/2019 10:28:27 AM ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO

ALTER PROCEDURE [dbo].[Lab_Save_Crossmatching]
	@intMode INTEGER, --Mode
	@RequestNum VARCHAR(10), -- Request Number
	@SampleSubmitted VARCHAR(30), -- Sample Submitted
	@LRARecordedTime VARCHAR(30), -- Date Recorded
	@AccessionNum VARCHAR(15), -- Accession Number
	@Result1 VARCHAR(256), -- CROSS RESULT''
	@Result2 VARCHAR(256), -- Serial Number
	@Result3 VARCHAR(256),-- Volume
	@Result4 VARCHAR(256),-- Component
	@Result5 VARCHAR(256), -- Donors Blood Type
	@Result6 VARCHAR(256), -- Source
	@Result7 VARCHAR(256), -- HBSAG
	@Result8 VARCHAR(256), -- RPR
	@Result9 VARCHAR(256), -- MALARIA
	@Result10 VARCHAR(256), -- HIV
	@Result11 VARCHAR(256), -- HCV
	@Result12 VARCHAR(256), -- HAV
	@Result13 VARCHAR(256)= '',
	@Result24 VARCHAR(256)= '',
	@Result25 VARCHAR(256)= '',
	@Result26 VARCHAR(256)= '',
	@Result27 VARCHAR(256)= '',
	@Result28 VARCHAR(256)= '',
	@Result30 VARCHAR(256)= '', --AC1
	@Result31 VARCHAR(256)= '', -- AC2
	@Result32 VARCHAR(256)= '', -- AC3
	@Result33 VARCHAR(256)= '', --INT M
	@Result29 VARCHAR(256)= '',
	@Result20 TEXT, -- remarks
	@Method VARCHAR(50) = '', --method
	@BloodType VARCHAR(20) = '',  --Patients Blood Type
	@FinishedDate VARCHAR(30) = '', --finished date
	@ExtractionDate VARCHAR(256), --ExtractionDate (result 14)
	@ExpirationDate VARCHAR(256), --ExpirationDate (result 15)
	@Result16 VARCHAR(10) = '', -- salin 
	@Result17 VARCHAR(10) = '', --albumin
	@Result18 VARCHAR(10)= '' --globulin

AS
DECLARE @HospNum VARCHAR(10)
BEGIN TRAN;

   SET @HospNum = (SELECT TOP 1 HospNum FROM tbLabMaster WHERE RequestNum = @RequestNum);
  
	IF EXISTS(SELECT 1 FROM tblabresulthcodes WHERE RequestNum = @RequestNum)
		BEGIN
			DELETE tbLabResultHcodes WHERE RequestNum = @RequestNum
		END
   
		INSERT tbLabResultHcodes(requestnum,result1,result2,result3,result4,result5, result6,result7,
					 result8,result9,result10,result11,result12,result13, Result20,result14,
					 result15,Result16,Result17,result18, Result21, result22, result23, result24,result25, result26,result27,result28,
					 result30,result31,result32,result33,Result19)
		VALUES(@RequestNum,@Result1,@Result2,@Result3,@Result4,@Result5,@Result6,@Result7,
				 @result8, @result9,@result10,@result11,@result12,@result13,@Result20,@Result24,
				 @Result25,@Result26,@Result27,@Result28,
				 @FinishedDate,@ExtractionDate,@Result16,@Result17,@result18,
				 @ExpirationDate, @Method,@BloodType,
				 @result30,@result31,@result32,@result33,'');
		
	--> tbLabLogbook Result34 --- Accession Number
	UPDATE tbLabLogbook 
	SET AccessionNum = @AccessionNum,
	       SampleSubmitted = CAST(@SampleSubmitted AS DATETIME),
	       LRARecordedTime = CAST(@LRARecordedTime AS DATETIME),
	       Method = @Method,
	       DateFinished = @FinishedDate
	WHERE RequestNum = @RequestNum;
	
	UPDATE tbLabLogbook2
	SET SampleSubmitted = CAST(@SampleSubmitted AS DATETIME),
	    LRARecordedTime = CAST(@LRARecordedTime AS DATETIME)
	WHERE RequestNum = @RequestNum;
	
	IF ISNUMERIC(@HospNum) = 1 
		UPDATE Patient_Data..tbMaster SET BloodType = @BloodType WHERE HospNum = @HospNum;
	ELSE 
		UPDATE Patient_Data..tbCashPatient SET BloodType = @BloodType WHERE HospNum = @HospNum;

IF @@ERROR <> 0
   BEGIN
     GOTO SaveError;
   END

COMMIT TRAN;
RETURN 0;

SaveError:
   ROLLBACK TRAN;
   RETURN @@ERROR;