USE [Laboratory]
GO
/****** Object:  StoredProcedure [dbo].[Patient_Save_Queue]    Script Date: 05/21/2020 17:31:11 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO






/*
Values for @TransType
'' = Requests on queue.
'W' = With Results.
'C' = Cancelled requests.
*/



ALTER PROCEDURE [dbo].[Patient_Save_Queue]
	@TransType varchar(1), 
	@IDNum varchar(20),
	@HospNum varchar(10) = '',
	@UserCode varchar(20) = ''

 AS
		


Declare @PatientNum int;
if IsNumeric(@IDNum) = 0 
Begin

	if @HospNum = ''
		Begin
			Set @HospNum = (Select Top 1 HospNum From Laboratory..tblabmaster Where IDNum = @IDNum)
		End;

	If not exists(Select IDNum From tbLabPatientQueueNo Where IDNum = @IDNum)
		Begin
			Set @PatientNum = (Select Max(Cast(PatientNum as int)) + 1 From tbLabPatientQueueNo)
			Set @PatientNum = (Select Case When @PatientNum is Null Then 1 Else @PatientNum End)


			Insert Into tbLabPatientQueueNo
				(HospNum, IDNum, PatientNum)
			Values 
				(@HospNum, @IDNum, @PatientNum)
		End;

	--Update tbLabPatientQueueNo
	--Set Status = @TransType,
	--	UserCode = @UserCode
	--Where IDNum = @IDNum; 

	if @TransType = 'W'
		Begin
			Update tbLabPatientQueueNo
			Set [Status] = @TransType,
				UserCode = @UserCode
			Where IDNum = @IDNum and not [Status] = 'P'; 
		End
	else 	
		Begin
			Update tbLabPatientQueueNo
			Set [Status] = @TransType,
				UserCode = @UserCode
			Where IDNum = @IDNum; 
		End
End