USE [LABORATORY]
GO
/****** Object:  StoredProcedure [dbo].[Lab_FormMaker_FillReagentValues]    Script Date: 10/29/2020 4:51:36 PM ******/
SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER OFF
GO
ALTER PROCEDURE [dbo].[Lab_FormMaker_FillReagentValues] 
	@RequestNum varchar(10),
	@EntryMode varchar(1) = '1'

AS

Declare @ItemId varchar(4),
	@Sex varchar(1),
	@SpecimenId varchar(3),
	@FormType varchar(1),
	@ValueType varchar(1),
	@RefNum varchar(10),
	@SectionID varchar(3)

select distinct @itemId= L.ItemID, @FormType = V.FormType, @Sex = b.Sex,
		@SpecimenId = L.SpecimenId, @ValueType  = V.ValueType,
		@RefNum = RefNum, @SectionId = SectionId
	from tbLabMaster L left outer join Build_File..tbCoLabValues V on V.Code = L.ItemID 
		left outer join laboratory..vwPatientResultEntry b on L.hospnum = b.hospnum
	where L.RequestNum = @RequestNum;

--Set @ReagentCode = 'C'
If @Formtype = 'P'
   Begin
	select 	 A.ExamId as Code,
		isnull(B.ResultName, '') as Exam,
		laboratory.dbo.fn_LabNValues (A.ExamID, @SpecimenId, @Sex, 'SNVAL') as [SNValue],
		laboratory.dbo.fn_LabNValues (A.ExamID, @SpecimenId, @Sex, 'SMINVal') as [SMin],
		laboratory.dbo.fn_LabNValues (A.ExamID, @SpecimenId, @Sex, 'SMAXVal')as [SMax],
		laboratory.dbo.fn_LabNValues (A.ExamID, @SpecimenId, @Sex, 'SUNIT') as SUnit,
		'' as SResult,
		
		laboratory.dbo.fn_LabNValues (A.ExamID, @SpecimenId, @Sex, 'CNVAL') as [CNValue],
		laboratory.dbo.fn_LabNValues (A.ExamID, @SpecimenId, @Sex, 'CMINVal') as [CMin],
		laboratory.dbo.fn_LabNValues (A.ExamID, @SpecimenId, @Sex, 'CMAXVal')as [CMax],
		laboratory.dbo.fn_LabNValues (A.ExamID, @SpecimenId, @Sex, 'CUNIT') as CUnit,
		
		laboratory.dbo.fn_LabNValues (A.ExamID, @SpecimenId, @Sex, 'FTYPE') as Formtype,
		laboratory.dbo.fn_LabNValues (A.ExamID, @SpecimenId, @Sex, 'FACTOR') as Factor,
		IsNull(B.FormType,'') as FormType,
		@RequestNum as RequestNum	
		
	
	From Build_File..tbCoLabProfileExams A
		left outer join Build_File..tbCoLabValues B on B.Code = A.ExamId
	Where A.ProfileID = @ItemID;
   End
Else
   Begin
	If @EntryMode = '1' ---Per Exam Result Entry
	   Begin
		select  	Code,
			isnull(ResultName, '') as Exam,
			laboratory.dbo.fn_LabNValues (@ItemID , @SpecimenId, @Sex, 'SNVAL') as [SNValue],
			laboratory.dbo.fn_LabNValues (@ItemID , @SpecimenId, @Sex, 'SMINVal') as [SMin],
			laboratory.dbo.fn_LabNValues (@ItemID , @SpecimenId, @Sex, 'SMAXVal')as [SMax],
			laboratory.dbo.fn_LabNValues (@ItemID , @SpecimenId, @Sex, 'SUNIT') as SUnit,
			'' as SResult,
			
			laboratory.dbo.fn_LabNValues (@ItemID , @SpecimenId, @Sex, 'CNVAL') as [CNValue],
			laboratory.dbo.fn_LabNValues (@ItemID , @SpecimenId, @Sex, 'CMINVal') as [CMin],
			laboratory.dbo.fn_LabNValues (@ItemID , @SpecimenId, @Sex, 'CMAXVal')as [CMax],
			laboratory.dbo.fn_LabNValues (@ItemID , @SpecimenId, @Sex, 'CUNIT') as CUnit,
			
			laboratory.dbo.fn_LabNValues (@ItemID , @SpecimenId, @Sex, 'FTYPE') as Formtype,
			laboratory.dbo.fn_LabNValues (@ItemID , @SpecimenId, @Sex, 'FACTOR') as Factor,
			IsNull(FormType,'') as FormType,
			@RequestNum as RequestNum	
			
		
		From Build_File..tbCoLabValues
		Where code = @ItemID
	   End
	Else
	   Begin
		select 	 A.ItemId as Code,
			isnull(B.ResultName, '') as Exam,
			laboratory.dbo.fn_LabNValues (A.ItemID , @SpecimenId, @Sex, 'SNVAL') as [SNValue],
			laboratory.dbo.fn_LabNValues (A.ItemID , @SpecimenId, @Sex, 'SMINVal') as [SMin],
			laboratory.dbo.fn_LabNValues (A.ItemID , @SpecimenId, @Sex, 'SMAXVal')as [SMax],
			laboratory.dbo.fn_LabNValues (A.ItemID , @SpecimenId, @Sex, 'SUNIT') as SUnit,
			'' as SResult,
			
			laboratory.dbo.fn_LabNValues (A.ItemID , @SpecimenId, @Sex, 'CNVAL') as [CNValue],
			laboratory.dbo.fn_LabNValues (A.ItemID , @SpecimenId, @Sex, 'CMINVal') as [CMin],
			laboratory.dbo.fn_LabNValues (A.ItemID , @SpecimenId, @Sex, 'CMAXVal')as [CMax],
			laboratory.dbo.fn_LabNValues (A.ItemID , @SpecimenId, @Sex, 'CUNIT') as CUnit,
			
			laboratory.dbo.fn_LabNValues (A.ItemID , @SpecimenId, @Sex, 'FTYPE') as Formtype,
			laboratory.dbo.fn_LabNValues (A.ItemID , @SpecimenId, @Sex, 'FACTOR') as Factor,
			IsNull(B.FormType,'') as FormType,
			A.RequestNum as RequestNum	
			

		
		From tbLabMaster A
			left outer join Build_File..tbCoLabValues B on B.Code = A.ItemID
		Where B.FormType in ('1', '7', '8', 'B') and A.RefNum = @RefNum
			and A.SectionId = ltrim(rtrim(@SectionId))
		Order by B.FormType, B.ResultName;
	   End
   End;