USE [LABORATORY] GO /****** Object: StoredProcedure [dbo].[sp_InstrumentSaveDLHemaResult] Script Date: 12/18/2017 10:28:48 AM ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO ALTER PROCEDURE [dbo].[sp_InstrumentSaveDLHemaResult] @InstrumentID VARCHAR(12), @NameID VARCHAR(200), @SampleNum VARCHAR(200), @ResultDate DATETIME, @ExamName VARCHAR(15), @Result VARCHAR(1000), @Unit VARCHAR(500), @ErrorCode VARCHAR(4), @Remarks VARCHAR(50), @Status VARCHAR(1), @TubePosition VARCHAR(10), @RackNum VARCHAR(4), @IDinformation VARCHAR(1), @RefNum VARCHAR(20), @UserID VARCHAR(1000), @Reserve1 VARCHAR(1000), @Reserve2 VARCHAR(1000), @Reserve3 VARCHAR(1000), @Reserve4 VARCHAR(1000), @Reserve5 VARCHAR(1000), @Reserve6 VARCHAR(500), @Reserve7 VARCHAR(1000), @Reserve8 VARCHAR(1000), @Reserve9 VARCHAR(1000), @Reserve10 VARCHAR(1000), @SortOrder INT, @Reserve11 VARCHAR(500) = '', @OBRTestId VARCHAR(500) = '', @OBXObserver VARCHAR(20) = '', @OBRRemarks TEXT = NULL, @OBXRemarks TEXT = NULL, @ORCRemarks TEXT = NULL, @ResultDate2 VARCHAR(100) = NULL, @MSHSendingApp VARCHAR(100) = 'PACMAN' AS DECLARE @RequestNum VARCHAR(15), @SectionID VARCHAR(3), @FormType VARCHAR(5), @ValueType VARCHAR(5), @Rechecked VARCHAR(5), @AccessionNum VARCHAR(20), @VerifyResult VARCHAR(1), @ProfileId VARCHAR(50), @SER_Result VARCHAR(50), @IsAutoValidate VARCHAR(1), @PatientType VARCHAR(10), @VerifyDate DATETIME, @ReleaseDate DATETIME, @ProfileId2 VARCHAR(5), @SpecimenId2 VARCHAR(5), @OBXObserverOrig VARCHAR(20), @CountUser INT, @LastUser VARCHAR(20), @Sex VARCHAR(2), @HospNum VARCHAR(20), @txtNValues VARCHAR(MAX), @Type VARCHAR(4), @NurseRequestNum VARCHAR(15), @ReaderId VARCHAR(10), @IdNum VARCHAR(15), @CNValue VARCHAR(20), @CMinValue VARCHAR(10), @CMaxValue VARCHAR(10), @CUnit VARCHAR(10), @CResult FLOAT, @Factor FLOAT, @Operator VARCHAR(2), @fltResult FLOAT SET @RequestNum = '' SET @ExamName = REPLACE(@ExamName, '''', '`'); SET @VerifyResult = 'N' SET @IsAutoValidate = 'Y' SET @ResultDate = (CASE WHEN ISDATE(@ResultDate) = 1 THEN @ResultDate ELSE GETDATE() END) SET @Reserve4 = (CASE WHEN ISDATE(@Reserve4 ) = 1 THEN @Reserve4 ELSE GETDATE() END) SET @Reserve5 = (CASE WHEN ISDATE(@Reserve5 ) = 1 THEN @Reserve5 ELSE GETDATE() END) SET @ReleaseDate = GETDATE() -- SET @OBXObserverOrig = @OBXObserver /* UNcomment this line if the User Ids in LIS are the same with the User Ids in MedSys */ SET @OBXObserverOrig = (SELECT TOP 1 MedTechID FROM BUILD_FILE..tbCoMedTech WHERE Initial = @OBXObserver); /* Comment this line if the User Ids in LIS are the same with the User Ids in MedSys */ SET @OBXRemarks = (CAST((REPLACE(CAST(@OBXRemarks AS VARCHAR(MAX)), '\.br\', CHAR(13))) AS TEXT)); if @Reserve10 = '328' Begin Set @Remarks = @Result End; IF ISNULL(@RequestNum,'') = '' BEGIN IF NOT EXISTS(SELECT RequestNum FROM tbLABMaster WHERE Barcode = @SampleNum AND ItemId = @OBRTestId) BEGIN SELECT @RequestNum = ISNULL(Requestnum,''), @SectionID = ISNULL(SectionID,''), @PatientType = (CASE WHEN ISNUMERIC(IdNum) = 0 THEN 'OPD' ELSE 'IPD' END), @Refnum = ISNULL(RefNum,'') FROM tbLabMaster LM_BC LEFT OUTER JOIN tbLabInstrumentExams LI_BC ON LI_BC.InstrumentExamName = CAST(LM_BC.ItemID AS VARCHAR) WHERE LM_BC.Barcode = @SampleNum AND LI_BC.InstrumentID = @InstrumentID AND LI_BC.InstrumentExamName = @ExamName AND LM_BC.RequestStatus NOT IN ('R'); END ELSE BEGIN SELECT @RequestNum = ISNULL(Requestnum,''), @SectionID = ISNULL(SectionID,''), @PatientType = (CASE WHEN ISNUMERIC(IdNum) = 0 THEN 'OPD' ELSE 'IPD' END) FROM tbLabMaster LM_BC LEFT OUTER JOIN tbLabInstrumentExams LI_BC ON LI_BC.ItemID = LM_BC.ItemID WHERE LM_BC.Barcode = @SampleNum AND LM_BC.ItemId = @OBRTestId AND LM_BC.RequestStatus NOT IN ('R'); END END SELECT @SpecimenId2 = ISNULL(SpecimenId,''), @HospNum = HospNum FROM tbLABMaster WHERE RequestNum = @RequestNum SELECT TOP 1 @Sex = Sex FROM vwPatientResultEntry WHERE HospNum = @HospNum /* SET VALUES IF RESULT IS FROM SIEMENS CENTRALINK */ IF UPPER(@MSHSendingApp) = 'CENTRALINK' BEGIN /* MINIMUM VALUE OF THE REFERENCE RANGE */ SET @Reserve7 = (SELECT dbo.fn_Lab_GetInstrumentReferenceRange('CENTRALINK',@Reserve10, @SpecimenId2, @Sex,'MINVAL')); /* MAXIMUM VALUE OF THE REFERENCE RANGE */ SET @Reserve8 = (SELECT dbo.fn_Lab_GetInstrumentReferenceRange('CENTRALINK', @Reserve10, @SpecimenId2, @Sex,'MAXVAL')); /* THE REFERENCE RANGE */ SET @Reserve9 = (SELECT dbo.fn_Lab_GetInstrumentReferenceRange('CENTRALINK', @Reserve10, @SpecimenId2, @Sex,'NVAL')); /* UNIT */ SET @Unit = (SELECT dbo.fn_Lab_GetInstrumentReferenceRange('CENTRALINK', @Reserve10, @SpecimenId2, @Sex,'UNIT')); /* PARAGRAPH FORM REFERENCE RANGE */ SET @txtNValues = (SELECT dbo.fn_Lab_GetInstrumentReferenceRange('CENTRALINK', @Reserve10, @SpecimenId2, @Sex,'TXTNVAL')); END SELECT TOP 1 @FormType = FormType, @ValueType = ValueType, @Operator = ISNULL(Operator, '') FROM Build_File..tbcoLabValues WHERE Code = @OBRTestId; SET @ProfileId2 = ISNULL((SELECT ProfileId FROM tbLABMaster WHERE RequestNum = @RequestNum),''); IF EXISTS(SELECT * FROM Laboratory..TbLabInstrumentDLHemaResult WHERE NameID = @NameID AND SampleNum = @SampleNum AND ExamName = @ExamName AND InstrumentID = @InstrumentID) BEGIN UPDATE Laboratory..TbLabInstrumentDLHemaResult SET RESULT = @Result, Unit = @Unit, ErrorCode = @ErrorCode , Remarks = @Remarks, status = @Status, TubePosition = @TubePosition, RackNum = @RackNum, IDinformation = @IDinformation, ResultDate = @Resultdate, RefNum = @RefNum,UserID = @OBXObserver,Reserve1 = @Reserve1,Reserve2 = @Reserve2, Reserve3 = @Reserve3,Reserve4 = @Reserve4,Reserve5 = @Reserve5,Reserve6 = @Reserve6,Reserve7 = @Reserve7,Reserve8 = @Reserve8, Reserve9 = @Reserve9,Reserve10 = @Reserve10,SortOrder = @SortOrder, Reserve11 = @Reserve11, RequestNum = @RequestNum WHERE NameID = @NameID AND SampleNum = @SampleNum AND CONVERT(VARCHAR(16),ResultDate,111) = CONVERT(VARCHAR(16),@ResultDate,111) AND ExamName = @ExamName AND InstrumentID = @InstrumentID IF EXISTS(SELECT 1 FROM Laboratory..tbLabBarcodingMaster WHERE RequestNum = @RequestNum) BEGIN UPDATE Laboratory..tbLabBarcodingMaster SET ResultStatus = 'W' WHERE RequestNum = @RequestNum END ELSE IF EXISTS(SELECT 1 FROM Laboratory..tbLabBarcodingMaster WHERE Barcode = @SampleNum AND ItemID = '180') BEGIN UPDATE Laboratory..tbLabBarcodingMaster SET ResultStatus = 'W' WHERE Barcode = @SampleNum AND ItemID = '180' END END ELSE BEGIN INSERT INTO Laboratory..TbLabInstrumentDLHemaResult (InstrumentID, NameID, SampleNum, ResultDate, ExamName, RESULT, Unit, ErrorCode, Remarks, status, TubePosition, RackNum, IDinformation, RefNum, UserID, Reserve1, Reserve2, Reserve3, Reserve4, Reserve5, Reserve6, Reserve7, Reserve8, Reserve9, Reserve10, SortOrder, Reserve11, RequestNum) VALUES (@InstrumentID, @NameID, @SampleNum, @ResultDate, @ExamName, @Result, @Unit, @ErrorCode, @Remarks, @Status, @TubePosition, @RackNum, @IDinformation, @RefNum, @OBXObserver, @Reserve1, @Reserve2, @Reserve3, @Reserve4, @Reserve5, @Reserve6, @Reserve7, @Reserve8, @Reserve9, @Reserve10, @SortOrder, @Reserve11, @RequestNum) if not exists (select * from tbLABLogBook2 where RequestNum = @RequestNum ) BEGIN INSERT INTO tbLabLogbook2 (RequestNum, SampleSubmitted, LRARecordedTime, LabSectionID,ItemId) SELECT @RequestNum, @ResultDate,@ResultDate, SectionID,@OBRTestId FROM tbLabMaster WHERE RequestNum = @RequestNum; END IF EXISTS(SELECT 1 FROM Laboratory..tbLabBarcodingMaster WHERE RequestNum = @RequestNum) BEGIN UPDATE Laboratory..tbLabBarcodingMaster SET ResultStatus = 'W' WHERE RequestNum = @RequestNum END ELSE IF EXISTS(SELECT 1 FROM Laboratory..tbLabBarcodingMaster WHERE Barcode = @SampleNum AND ItemID = '180') BEGIN UPDATE Laboratory..tbLabBarcodingMaster SET ResultStatus = 'W' WHERE Barcode = @SampleNum AND ItemID = '180' END END /* ASSOCIATE USER */ SET @OBXObserver = (SELECT TOP 1 UserID FROM tbLabInstrumentDLHemaResult WHERE SampleNum = @SampleNum AND UserID not in ('AUTOVERIFY','')) IF ISNULL(@OBXObserver, '') = '' BEGIN SET @OBXObserver = 'AUTO' SET @OBXObserverOrig = 'AUTO' END ELSE BEGIN SET @OBXObserverOrig = @OBXObserver END /* FILTER INVALID RESULT */ if @Reserve10 = '341' BEGIN Set @Result = '***' END; IF @Result IN ('""','!','*','') BEGIN RETURN; END; if @Reserve9 = 'MRR' BEGIN Set @Reserve9 = REPLACE(@Reserve6, '\.br\', CHAR(13)) Set @OBXRemarks = '' END; IF @FormType IN ('1','2','3','5','7','8','H','I','D','X','W','B','P') BEGIN IF @FormType = '1' BEGIN -- Without Conversion Factor IF EXISTS (SELECT 1 FROM tbLabResultNValues WHERE RequestNum = @RequestNum AND ItemID = @Reserve10) BEGIN UPDATE tbLabResultNValues SET FormType = @FormType, Unit = @Unit, StrNValues = @Reserve9, StrResult = @Result, SortOrder = @SortOrder, AccessionNum = @SampleNum, Remarks = @Remarks WHERE RequestNum = @RequestNum AND ItemID = @Reserve10 END ELSE BEGIN INSERT INTO tbLabResultNValues (RequestNum, ItemID, FormType, Unit, StrNValues, StrResult, SortOrder, AccessionNum, Remarks, RemarksTag) VALUES (@RequestNum, @Reserve10, @FormType, @Unit, @Reserve9, @Result, @SortOrder, @SampleNum, @Remarks, NULL); END END ELSE IF @FormType IN ('2','3') BEGIN -- Paragraph Format IF @Reserve10 = '8726' BEGIN SET @Result = @Result +' '+ @Unit + CHAR(13) + CHAR(13) + CAST(@OBXRemarks AS VARCHAR(MAX)) END IF EXISTS(SELECT 1 FROM tbLABResultShortForm WHERE RequestNum = @RequestNum AND ItemID = @Reserve10) BEGIN UPDATE tbLABResultShortForm SET FormType = @FormType, RESULT = @Result, Remarks = @OBXRemarks WHERE RequestNum = @RequestNum AND ItemId = @Reserve10; END ELSE BEGIN INSERT INTO tbLABResultShortForm (RequestNum, ItemID, FormType, RESULT, Remarks) VALUES (@RequestNum, @Reserve10, @FormType, @Result, @OBXRemarks) END END ELSE IF @FormType IN ('5','I') BEGIN -- With Cut Off Value IF EXISTS(SELECT 1 FROM tbLabResultWithCutOff WHERE RequestNum = @RequestNum AND ItemID = @Reserve10) BEGIN DELETE tbLabResultWithCutOff WHERE RequestNum = @RequestNum AND ItemID = @Reserve10 END INSERT INTO tbLabResultWithCutOff (RequestNum, ItemID, FormType, CutOffValue, Description, RESULT, PatientValue, Method, ProfNum, Remarks) VALUES (@RequestNum, @Reserve10, @FormType, '', @ExamName, '', @Result, '', @ProfileId2, @OBXRemarks) END ELSE IF @FormType IN ('7') BEGIN -- With and Without Normal Values. -- ('7','M') IF EXISTS (SELECT 1 FROM tbLabResultNValues WHERE RequestNum = @RequestNum AND ItemID = @Reserve10) BEGIN Delete from tbLabResultNValues where RequestNum = @RequestNum AND ItemID = @Reserve10 END; INSERT INTO tbLabResultNValues (RequestNum, ItemID, FormType, Unit, StrNValues, StrResult, SortOrder, AccessionNum, Remarks, RemarksTag) VALUES (@RequestNum, @Reserve10, @FormType, @Unit, @Reserve9, @Result, @SortOrder, @SampleNum, @Remarks, NULL); END ELSE IF @FormType IN ('8', 'B') BEGIN -- With Conversion Factor (S.I./Conventional) IF EXISTS (SELECT 1 FROM tbLabResultNValues WHERE RequestNum = @RequestNum AND ItemID = @Reserve10) BEGIN DELETE tblabResultNValues WHERE RequestNum = @RequestNum AND ItemID = @Reserve10 END /* Result Conversion */ SELECT @CMinValue = laboratory.dbo.fn_LabNValues (ItemId, SpecimenId, @Sex, 'CMINVal'), @CMaxValue = laboratory.dbo.fn_LabNValues (ItemId, SpecimenId, @Sex, 'CMAXVal'), @CNValue = laboratory.dbo.fn_LabNValues (ItemId, SpecimenId, @Sex, 'CNVAL'), @CUnit = laboratory.dbo.fn_LabNValues (ItemId, SpecimenId, @Sex, 'CUNIT'), @Factor = laboratory.dbo.fn_LabNValues (ItemId, SpecimenId, @Sex, 'FACTOR') FROM tbLabMaster WHERE RequestNum = @RequestNum IF ISNUMERIC(@Factor) = 1 AND ISNUMERIC(@Result) = 1 BEGIN SET @fltResult = CAST(@Result AS FLOAT) IF @Operator = '*' BEGIN SET @CResult = @fltResult * @Factor END ELSE BEGIN SET @CResult = @fltResult / @Factor END SET @CResult = CAST(@CResult AS DECIMAL(16,2)) END ELSE IF @Factor = 0 AND @Operator = '' BEGIN SET @CResult = @Result END ELSE BEGIN SET @CResult = NULL END /* End Result Conversion */ INSERT INTO tbLabResultNValues (RequestNum, ItemID, FormType, Unit, StrNValues, StrResult, SortOrder, AccessionNum, Remarks, RemarksTag, ConvMin, ConvMax, ConvStrNValues, ConvUnit, Factor, ConvResult, ConvStrResult) VALUES (@RequestNum, @Reserve10, @FormType, @Unit, @Reserve9, @Result, @SortOrder, @SampleNum, @Remarks, NULL, @CMinValue, @CMaxValue, @CNValue, @CUnit, @Factor, @CResult, @CResult); END ELSE IF @FormType IN ('H') BEGIN -- Hard Coded Format IF @ValueType = '14' BEGIN -- Semenalysis Format DAVAO DOCTORS JPO 05/17/08 IF EXISTS(SELECT 1 FROM tbLabResultHCodes WHERE RequestNum = @RequestNum) BEGIN UPDATE tbLabResultHCodes SET RequestNum = @RequestNum, Result1 = @Result WHERE RequestNum = @RequestNum END ELSE BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result1) VALUES (@RequestNum, @Result); END END /* Fecalysis / Stool Exam */ ELSE IF @ValueType = 'E' BEGIN IF NOT EXISTS (SELECT 1 FROM tblabResultHCodes WHERE Requestnum = @RequestNum) BEGIN IF @Reserve10 = 'SCOLOR' BEGIN INSERT INTO tblabResultHCodes (RequestNum, Result1) VALUES (@RequestNum, @Result) END --Color ELSE IF @Reserve10 = 'SCONS' BEGIN INSERT INTO tblabResultHCodes (RequestNum, Result2) VALUES (@RequestNum, @Result) END --Consistency ELSE IF @Reserve10 = 'SMACRO' BEGIN INSERT INTO tblabResultHCodes (RequestNum, Result3) VALUES (@RequestNum, @Result) END --Occult Blood ELSE IF @Reserve10 = 'SBLD' BEGIN INSERT INTO tblabResultHCodes (RequestNum, Result4) VALUES (@RequestNum, @Result) END --Stool pH ELSE IF @Reserve10 = 'SPAR' BEGIN INSERT INTO tblabResultHCodes (RequestNum, Result5) VALUES (@RequestNum, @Result) END --Result ELSE IF @Reserve10 = 'SWBC' BEGIN INSERT INTO tblabResultHCodes (RequestNum, Result6) VALUES (@RequestNum, @Result) END --Comment ELSE IF @Reserve10 = 'SRBC' BEGIN INSERT INTO tblabResultHCodes (RequestNum, Result7) VALUES (@RequestNum, @Result) END --Consistency ELSE IF @Reserve10 = 'SPARA' BEGIN INSERT INTO tblabResultHCodes (RequestNum, Result8) VALUES (@RequestNum, @Result) END --Occult Blood ELSE IF @Reserve10 = 'SOTHER' BEGIN INSERT INTO tblabResultHCodes (RequestNum, Result9) VALUES (@RequestNum, @Result) END --Stool pH ELSE IF @Reserve10 = 'SBAC' BEGIN INSERT INTO tblabResultHCodes (RequestNum, Result10) VALUES (@RequestNum, @Result) END --Result ELSE IF @Reserve10 = 'SFAT' BEGIN INSERT INTO tblabResultHCodes (RequestNum, Result11) VALUES (@RequestNum, @Result) END --Comment ELSE IF @Reserve10 = 'SYST' BEGIN INSERT INTO tblabResultHCodes (RequestNum, Result12) VALUES (@RequestNum, @Result) END --Consistency ELSE IF @Reserve10 = 'SREMX' BEGIN INSERT INTO tblabResultHCodes (RequestNum, Result13) VALUES (@RequestNum, @Result) END --Occult Blood END ELSE BEGIN IF @Reserve10 = 'SCOLOR' BEGIN UPDATE tblabResultHCodes SET Result1 = @Result WHERE Requestnum = @Requestnum END --Color ELSE IF @Reserve10 = 'SCONS' BEGIN UPDATE tblabResultHCodes SET Result2 = @Result WHERE Requestnum = @Requestnum END --Consistency ELSE IF @Reserve10 = 'SMACRO' BEGIN UPDATE tblabResultHCodes SET Result3 = @Result WHERE Requestnum = @Requestnum END --Occult Blood ELSE IF @Reserve10 = 'SBLD' BEGIN UPDATE tblabResultHCodes SET Result4 = @Result WHERE Requestnum = @Requestnum END --Stool pH ELSE IF @Reserve10 = 'SPAR' BEGIN UPDATE tblabResultHCodes SET Result5 = @Result WHERE Requestnum = @Requestnum END --Result ELSE IF @Reserve10 = 'SWBC' BEGIN UPDATE tblabResultHCodes SET Result6 = @Result WHERE Requestnum = @Requestnum END --Comment ELSE IF @Reserve10 = 'SRBC' BEGIN UPDATE tblabResultHCodes SET Result7 = @Result WHERE Requestnum = @Requestnum END --Consistency ELSE IF @Reserve10 = 'SPARA' BEGIN UPDATE tblabResultHCodes SET Result8 = @Result WHERE Requestnum = @Requestnum END --Occult Blood ELSE IF @Reserve10 = 'SOTHER' BEGIN UPDATE tblabResultHCodes SET Result9 = @Result WHERE Requestnum = @Requestnum END --Stool pH ELSE IF @Reserve10 = 'SBAC' BEGIN UPDATE tblabResultHCodes SET Result10 = @Result WHERE Requestnum = @Requestnum END --Result ELSE IF @Reserve10 = 'SFAT' BEGIN UPDATE tblabResultHCodes SET Result11 = @Result WHERE Requestnum = @Requestnum END --Comment ELSE IF @Reserve10 = 'SYST' BEGIN UPDATE tblabResultHCodes SET Result12 = @Result WHERE Requestnum = @Requestnum END --Result ELSE IF @Reserve10 = 'SREMX' BEGIN UPDATE tblabResultHCodes SET Result13 = @Result WHERE Requestnum = @Requestnum END --Comment END END /* Urinalysis */ ELSE IF @ValueType = 'U' BEGIN IF NOT EXISTS (SELECT 1 FROM tblabResultHCodes WHERE Requestnum = @RequestNum) BEGIN IF @Reserve10 = 'UCOLOR' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result1) VALUES (@RequestNum, @Result) END -- Color ELSE IF @Reserve10 = 'UTRANS' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result2) VALUES (@RequestNum, @Result) END -- Appearance ELSE IF @Reserve10 = 'UPCE' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result3) VALUES (@RequestNum, @Result) END -- pH ELSE IF @Reserve10 = 'UPH' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result4) VALUES (@RequestNum, @Result) END -- Specific Gravity ELSE IF @Reserve10 = 'USGRAV' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result6) VALUES (@RequestNum, @Result) END -- Sugar ELSE IF @Reserve10 = 'UPROT' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result5) VALUES (@RequestNum, @Result) END -- Albumin ELSE IF @Reserve10 = 'GLU' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result6) VALUES (@RequestNum, @Result) END -- Others ELSE IF @Reserve10 = 'UKET' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result7) VALUES (@RequestNum, @Result) END -- Pus Cells ELSE IF @Reserve10 = 'UBLD' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result8) VALUES (@RequestNum, @Result) END -- Red Cells ELSE IF @Reserve10 = 'UUROB' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result9) VALUES (@RequestNum, @Result) END -- Epithelial Cells ELSE IF @Reserve10 = 'UNITR' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result10) VALUES (@RequestNum, @Result) END -- Mucus Threads ELSE IF @Reserve10 = 'ULEU' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result11) VALUES (@RequestNum, @Result) END -- Bacteria ELSE IF @Reserve10 = 'UBIL' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result12) VALUES (@RequestNum, @Result) END -- Amorphous Urates ELSE IF @Reserve10 = 'URBC' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result13) VALUES (@RequestNum, @Result) END -- Amorphous Phospates ELSE IF @Reserve10 = 'UWBC' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result14) VALUES (@RequestNum, @Result) END -- Yeast Cells ELSE IF @Reserve10 = 'UECELL' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result16) VALUES (@RequestNum, @Result) END -- Crystals ELSE IF @Reserve10 = 'UXTALS' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result17) VALUES (@RequestNum, @Result) END -- Casts ELSE IF @Reserve10 = 'UMUC' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result18) VALUES (@RequestNum, @Result) END -- Casts ELSE IF @Reserve10 = 'UBACT' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result19) VALUES (@RequestNum, @Result) END -- Casts ELSE IF @Reserve10 = 'UCAST' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result20) VALUES (@RequestNum, @Result) END -- Crystals ELSE IF @Reserve10 = 'UAU' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result21) VALUES (@RequestNum, @Result) END -- Casts ELSE IF @Reserve10 = 'UAP' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result22) VALUES (@RequestNum, @Result) END -- Casts ELSE IF @Reserve10 = 'UOTHER' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result23) VALUES (@RequestNum, @Result) END -- Casts END ELSE BEGIN IF @Reserve10 = 'UCOLOR' BEGIN UPDATE tbLabResultHCodes SET Result1 = @Result WHERE Requestnum = @Requestnum END -- Color ELSE IF @Reserve10 = 'UTRANS' BEGIN UPDATE tbLabResultHCodes SET Result2 = @Result WHERE Requestnum = @Requestnum END -- Appearance ELSE IF @Reserve10 = 'UPCE' BEGIN UPDATE tbLabResultHCodes SET Result3 = @Result WHERE Requestnum = @Requestnum END -- pH ELSE IF @Reserve10 = 'UPH' BEGIN UPDATE tbLabResultHCodes SET Result4 = @Result WHERE Requestnum = @Requestnum END -- Specific Gravity ELSE IF @Reserve10 = 'USGRAV' BEGIN UPDATE tbLabResultHCodes SET Result5 = @Result WHERE Requestnum = @Requestnum END -- Sugar ELSE IF @Reserve10 = 'UPROT' BEGIN UPDATE tbLabResultHCodes SET Result6 = @Result WHERE Requestnum = @Requestnum END -- Albumin ELSE IF @Reserve10 = 'GLU' BEGIN UPDATE tbLabResultHCodes SET Result7 = @Result WHERE Requestnum = @Requestnum END -- Others ELSE IF @Reserve10 = 'UKET' BEGIN UPDATE tbLabResultHCodes SET Result8 = @Result WHERE Requestnum = @Requestnum END -- Pus Cells ELSE IF @Reserve10 = 'UBLD' BEGIN UPDATE tbLabResultHCodes SET Result9 = @Result WHERE Requestnum = @Requestnum END -- Red Cells ELSE IF @Reserve10 = 'UUROB' BEGIN UPDATE tbLabResultHCodes SET Result10 = @Result WHERE Requestnum = @Requestnum END -- Epithelial Cells ELSE IF @Reserve10 = 'UNITR' BEGIN UPDATE tbLabResultHCodes SET Result11 = @Result WHERE Requestnum = @Requestnum END -- Mucus Threads ELSE IF @Reserve10 = 'ULEU' BEGIN UPDATE tbLabResultHCodes SET Result12 = @Result WHERE Requestnum = @Requestnum END -- Bacteria ELSE IF @Reserve10 = 'UBIL' BEGIN UPDATE tbLabResultHCodes SET Result13 = @Result WHERE Requestnum = @Requestnum END -- Amorphous Urates ELSE IF @Reserve10 = 'URBC' BEGIN UPDATE tbLabResultHCodes SET Result14 = @Result WHERE Requestnum = @Requestnum END -- Amorphous Phospates ELSE IF @Reserve10 = 'UWBC' BEGIN UPDATE tbLabResultHCodes SET Result15 = @Result WHERE Requestnum = @Requestnum END -- Yeast Cells ELSE IF @Reserve10 = 'UECELL' BEGIN UPDATE tbLabResultHCodes SET Result16 = @Result WHERE Requestnum = @Requestnum END -- Crystals ELSE IF @Reserve10 = 'UXTALS' BEGIN UPDATE tbLabResultHCodes SET Result17 = @Result WHERE Requestnum = @Requestnum END -- Casts ELSE IF @Reserve10 = 'UMUC' BEGIN UPDATE tbLabResultHCodes SET Result18 = @Result WHERE Requestnum = @Requestnum END -- Bacteria ELSE IF @Reserve10 = 'UBACT' BEGIN UPDATE tbLabResultHCodes SET Result19 = @Result WHERE Requestnum = @Requestnum END -- Amorphous Urates ELSE IF @Reserve10 = 'UCAST' BEGIN UPDATE tbLabResultHCodes SET Result20 = @Result WHERE Requestnum = @Requestnum END -- Amorphous Phospates ELSE IF @Reserve10 = 'UAU' BEGIN UPDATE tbLabResultHCodes SET Result21 = @Result WHERE Requestnum = @Requestnum END -- Yeast Cells ELSE IF @Reserve10 = 'UAP' BEGIN UPDATE tbLabResultHCodes SET Result22 = @Result WHERE Requestnum = @Requestnum END -- Crystals ELSE IF @Reserve10 = 'UOTHER' BEGIN UPDATE tbLabResultHCodes SET Result23 = @Result WHERE Requestnum = @Requestnum END -- Casts END END /* Semen Analysis */ ELSE IF @ValueType = 'F' BEGIN IF NOT EXISTS (SELECT 1 FROM tblabResultHCodes WHERE Requestnum = @RequestNum) BEGIN IF @Reserve10 = 'SFVOL' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result1) VALUES (@RequestNum, @Result) END -- Color ELSE IF @Reserve10 = 'SFCOL' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result2) VALUES (@RequestNum, @Result) END -- Appearance ELSE IF @Reserve10 = 'SFVISC' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result3) VALUES (@RequestNum, @Result) END -- pH ELSE IF @Reserve10 = 'SQLIQ' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result4) VALUES (@RequestNum, @Result) END -- Specific Gravity ELSE IF @Reserve10 = 'SPREAC' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result5) VALUES (@RequestNum, @Result) END -- Sugar ELSE IF @Reserve10 = 'SFMOT' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result6) VALUES (@RequestNum, @Result) END -- Albumin ELSE IF @Reserve10 = 'MOT30' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result7) VALUES (@RequestNum, @Result) END -- Others ELSE IF @Reserve10 = 'MOT2HR' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result8) VALUES (@RequestNum, @Result) END -- Pus Cells ELSE IF @Reserve10 = 'MOT3HR' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result9) VALUES (@RequestNum, @Result) END -- Red Cells ELSE IF @Reserve10 = 'MOT4HR' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result10) VALUES (@RequestNum, @Result) END -- Epithelial Cells ELSE IF @Reserve10 = 'MOT5HR' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result11) VALUES (@RequestNum, @Result) END -- Mucus Threads ELSE IF @Reserve10 = 'MOT6HR' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result12) VALUES (@RequestNum, @Result) END -- Bacteria ELSE IF @Reserve10 = 'SFSPER' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result13) VALUES (@RequestNum, @Result) END -- Amorphous Urates ELSE IF @Reserve10 = 'SFSGRA' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result14) VALUES (@RequestNum, @Result) END -- Amorphous Phospates ELSE IF @Reserve10 = 'SFSLAR' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result15) VALUES (@RequestNum, @Result) END -- Yeast Cells ELSE IF @Reserve10 = 'SFSTAP' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result16) VALUES (@RequestNum, @Result) END -- Crystals ELSE IF @Reserve10 = 'SFSMID' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result17) VALUES (@RequestNum, @Result) END -- Casts ELSE IF @Reserve10 = 'SFSTIL' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result18) VALUES (@RequestNum, @Result) END -- Casts ELSE IF @Reserve10 = 'SFSDUP' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result19) VALUES (@RequestNum, @Result) END -- Casts ELSE IF @Reserve10 = 'SFSAMO' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result20) VALUES (@RequestNum, @Result) END -- Crystals ELSE IF @Reserve10 = 'SFSDOB' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result21) VALUES (@RequestNum, @Result) END -- Casts ELSE IF @Reserve10 = 'MOT1HR' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result22) VALUES (@RequestNum, @Result) END -- Casts --Remarks INSERT INTO tbLabResultHCodes (RequestNum, Result25) VALUES (@RequestNum, @OBXRemarks); END ELSE BEGIN IF @Reserve10 = 'SFVOL' BEGIN UPDATE tbLabResultHCodes SET Result1 = @Result WHERE Requestnum = @Requestnum END -- Color ELSE IF @Reserve10 = 'SFCOL' BEGIN UPDATE tbLabResultHCodes SET Result2 = @Result WHERE Requestnum = @Requestnum END -- Appearance ELSE IF @Reserve10 = 'SFVISC' BEGIN UPDATE tbLabResultHCodes SET Result3 = @Result WHERE Requestnum = @Requestnum END -- pH ELSE IF @Reserve10 = 'SQLIQ' BEGIN UPDATE tbLabResultHCodes SET Result4 = @Result WHERE Requestnum = @Requestnum END -- Specific Gravity ELSE IF @Reserve10 = 'SPREAC' BEGIN UPDATE tbLabResultHCodes SET Result5 = @Result WHERE Requestnum = @Requestnum END -- Sugar ELSE IF @Reserve10 = 'SFMOT' BEGIN UPDATE tbLabResultHCodes SET Result6 = @Result WHERE Requestnum = @Requestnum END -- Albumin ELSE IF @Reserve10 = 'MOT30' BEGIN UPDATE tbLabResultHCodes SET Result7 = @Result WHERE Requestnum = @Requestnum END -- Others ELSE IF @Reserve10 = 'MOT2HR' BEGIN UPDATE tbLabResultHCodes SET Result8 = @Result WHERE Requestnum = @Requestnum END -- Pus Cells ELSE IF @Reserve10 = 'MOT3HR' BEGIN UPDATE tbLabResultHCodes SET Result9 = @Result WHERE Requestnum = @Requestnum END -- Red Cells ELSE IF @Reserve10 = 'MOT4HR' BEGIN UPDATE tbLabResultHCodes SET Result10 = @Result WHERE Requestnum = @Requestnum END -- Epithelial Cells ELSE IF @Reserve10 = 'MOT5HR' BEGIN UPDATE tbLabResultHCodes SET Result11 = @Result WHERE Requestnum = @Requestnum END -- Mucus Threads ELSE IF @Reserve10 = 'MOT6HR' BEGIN UPDATE tbLabResultHCodes SET Result12 = @Result WHERE Requestnum = @Requestnum END -- Bacteria ELSE IF @Reserve10 = 'SFSPER' BEGIN UPDATE tbLabResultHCodes SET Result13 = @Result WHERE Requestnum = @Requestnum END -- Amorphous Urates ELSE IF @Reserve10 = 'SFSGRA' BEGIN UPDATE tbLabResultHCodes SET Result14 = @Result WHERE Requestnum = @Requestnum END -- Amorphous Phospates ELSE IF @Reserve10 = 'SFSLAR' BEGIN UPDATE tbLabResultHCodes SET Result15 = @Result WHERE Requestnum = @Requestnum END -- Yeast Cells ELSE IF @Reserve10 = 'SFSTAP' BEGIN UPDATE tbLabResultHCodes SET Result16 = @Result WHERE Requestnum = @Requestnum END -- Crystals ELSE IF @Reserve10 = 'SFSMID' BEGIN UPDATE tbLabResultHCodes SET Result17 = @Result WHERE Requestnum = @Requestnum END -- Casts ELSE IF @Reserve10 = 'SFSTIL' BEGIN UPDATE tbLabResultHCodes SET Result18 = @Result WHERE Requestnum = @Requestnum END -- Bacteria ELSE IF @Reserve10 = 'SFSDUP' BEGIN UPDATE tbLabResultHCodes SET Result19 = @Result WHERE Requestnum = @Requestnum END -- Amorphous Urates ELSE IF @Reserve10 = 'SFSAMO' BEGIN UPDATE tbLabResultHCodes SET Result20 = @Result WHERE Requestnum = @Requestnum END -- Amorphous Phospates ELSE IF @Reserve10 = 'SFSDOB' BEGIN UPDATE tbLabResultHCodes SET Result21 = @Result WHERE Requestnum = @Requestnum END -- Yeast Cells ELSE IF @Reserve10 = 'MOT1HR' BEGIN UPDATE tbLabResultHCodes SET Result22 = @Result WHERE Requestnum = @Requestnum END -- Yeast Cells --Remarks UPDATE tbLabResultHCodes SET Result25 = @OBXRemarks WHERE Requestnum = @Requestnum; END END /* Body Fluid Analysis */ ELSE IF @ValueType = 'L' BEGIN IF NOT EXISTS (SELECT 1 FROM tblabResultHCodes WHERE RequestNum = @RequestNum) BEGIN IF @Reserve10 = 'CCOL' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result1) VALUES (@RequestNum, @Result) END -- Color ELSE IF @Reserve10 = 'CVOL' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result2) VALUES (@RequestNum, @Result) END -- Transparency ELSE IF @Reserve10 = 'CTRAN' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result3) VALUES (@RequestNum, @Result) END -- Volume ELSE IF @Reserve10 = 'CVIS' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result4) VALUES (@RequestNum, @Result) END -- pH ELSE IF @Reserve10 = 'CCOAG' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result5) VALUES (@RequestNum, @Result) END -- Specific Gravity ELSE IF @Reserve10 = 'CWBC' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result6) VALUES (@RequestNum, @Result) END -- Clot Formation ELSE IF @Reserve10 = 'CSEG' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result7) VALUES (@RequestNum, @Result) END -- Fibrin Clot Formation ELSE IF @Reserve10 = 'CLYMPH' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result8) VALUES (@RequestNum, @Result) END -- Mucin Clot Test ELSE IF @Reserve10 = 'CMONO' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result9) VALUES (@RequestNum, @Result) END -- Viscosity ELSE IF @Reserve10 = 'CTDIF' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result10) VALUES (@RequestNum, @Result) END -- WBC Count ELSE IF @Reserve10 = 'CRBCCT' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result11) VALUES (@RequestNum, @Result) END -- Differential Count ELSE IF @Reserve10 = 'CSPEC' BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result12) VALUES (@RequestNum, @Result) END -- Differential Count END ELSE BEGIN IF @Reserve10 = 'CCOL' BEGIN UPDATE tbLabResultHCodes SET Result1 = @Result WHERE Requestnum = @Requestnum END -- Color ELSE IF @Reserve10 = 'CVOL' BEGIN UPDATE tbLabResultHCodes SET Result2 = @Result WHERE Requestnum = @Requestnum END -- Transparency ELSE IF @Reserve10 = 'CTRAN' BEGIN UPDATE tbLabResultHCodes SET Result3 = @Result WHERE Requestnum = @Requestnum END -- Volume ELSE IF @Reserve10 = 'CVIS' BEGIN UPDATE tbLabResultHCodes SET Result4 = @Result WHERE Requestnum = @Requestnum END -- pH ELSE IF @Reserve10 = 'CCOAG' BEGIN UPDATE tbLabResultHCodes SET Result5 = @Result WHERE Requestnum = @Requestnum END -- Specific Gravity ELSE IF @Reserve10 = 'CWBC' BEGIN UPDATE tbLabResultHCodes SET Result6 = @Result WHERE Requestnum = @Requestnum END -- Clot Formation ELSE IF @Reserve10 = 'CSEG' BEGIN UPDATE tbLabResultHCodes SET Result7 = @Result WHERE Requestnum = @Requestnum END -- Fibrin Clot Formation ELSE IF @Reserve10 = 'CLYMPH' BEGIN UPDATE tbLabResultHCodes SET Result8 = @Result WHERE Requestnum = @Requestnum END -- Mucin Clot Test ELSE IF @Reserve10 = 'CMONO' BEGIN UPDATE tbLabResultHCodes SET Result9 = @Result WHERE Requestnum = @Requestnum END -- Viscosity ELSE IF @Reserve10 = 'CTDIF' BEGIN UPDATE tbLabResultHCodes SET Result10 = @Result WHERE Requestnum = @Requestnum END -- WBC Count ELSE IF @Reserve10 = 'CRBCCT' BEGIN UPDATE tbLabResultHCodes SET Result11 = @Result WHERE Requestnum = @Requestnum END -- Differential Count ELSE IF @Reserve10 = 'CSPEC' BEGIN UPDATE tbLabResultHCodes SET Result12 = @Result WHERE Requestnum = @Requestnum END -- Differential Count END END ELSE IF @ValueType IN ('A', '0') BEGIN IF EXISTS(SELECT 1 FROM tbLabResultHCodes WHERE RequestNum = @RequestNum) BEGIN UPDATE tbLabResultHCodes SET RequestNum = @RequestNum, Result1 = @Result WHERE RequestNum = @RequestNum END ELSE BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result1) VALUES (@RequestNum, @Result); END END END ELSE IF @FormType = 'X' BEGIN IF EXISTS(SELECT 1 FROM tbLabResultHCodes WHERE RequestNum = @RequestNum) BEGIN UPDATE tbLabResultHCodes SET RequestNum = @RequestNum, Result1 = @Result WHERE RequestNum = @RequestNum END ELSE BEGIN INSERT INTO tbLabResultHCodes (RequestNum, Result1) VALUES (@RequestNum, @Result); END END ELSE IF @FormType = 'P' BEGIN IF @ValueType = '1' BEGIN -- Without Conversion Factor IF EXISTS (SELECT 1 FROM tbLabResultNValues WHERE RequestNum = @RequestNum AND ItemID = @Reserve10) BEGIN Delete from tblabresultNValues WHERE RequestNum = @RequestNum AND ItemID = @Reserve10 END; INSERT INTO tbLabResultNValues (RequestNum, ItemID, FormType, Unit, StrNValues, StrResult, SortOrder, AccessionNum, Remarks, RemarksTag) VALUES (@RequestNum, @Reserve10, '1', @Unit, @Reserve9, @Result, @SortOrder, @SampleNum, @Remarks, NULL); END END IF NOT EXISTS (SELECT RequestNum FROM Laboratory..tbLabLogbook WHERE RequestNum = @RequestNum) BEGIN SET @NurseRequestNum = (SELECT TOP 1 ISNULL(NurseRequestNum,'') FROM tbLabMaster WHERE RequestNum = @RequestNum); /* ******** Update LabMaster *********** */ UPDATE tbLabMaster SET RequestStatus='W' WHERE RequestNum=@RequestNum; /* ******** Append LabLogBook ******* */ INSERT INTO tbLabLogBook (HospNum, RequestNum, IDNum, LabExamID, LabSectionID, RoomID, TransDate, ResultDate, DoctorID, FormType, Compare, UserID, RefNum, Amount, PatientType, MedTech, SpecimenId, SampleSubmitted, LRARecordedTime, AccessionNum, DateFinished) SELECT L.HospNum, L.RequestNum, L.IdNum, L.ItemID, L.SectionID, L.RoomId, L.TransDate, GETDATE(), L.DoctorID, @FormType, '' AS Compare, @OBXObserverOrig, L.RefNum, L.Amount, L.PatientType, @OBXObserverOrig, L.SpecimenId, L.Transdate, L.Transdate, @SampleNum, GETDATE() FROM tbLabMaster L LEFT OUTER JOIN Build_File..tbCoLabValues E ON E.code = L.ItemId WHERE RequestNum = @RequestNum; SELECT @IdNum = IdNum, @HospNum = HospNum, @VerifyDate = VerifyDate, @Reserve10 = LabExamID FROM tbLabLogbook WHERE RequestNum = @RequestNum; --INSERT INTO tbLabLogbook2 (RequestNum, SampleSubmitted, LRARecordedTime, LabSectionID) --SELECT @RequestNum, Transdate, Transdate, SectionID FROM tbLabMaster WHERE RequestNum = @RequestNum; IF ISNULL(@ReaderID,'') <> '' BEGIN UPDATE tbLabMaster SET ProfId = @ReaderId WHERE RequestNum = @RequestNum; END; IF ISNULL(@NurseRequestNum,'') <> '' BEGIN UPDATE Station..tbNurseCommunicationFile SET RecordStatus = 'W' WHERE RequestNum = @NurseRequestNum AND Revenueid = 'LB'; /* ********************************** Update tbNurseLogBook ****************************** */ UPDATE Station..tbNurseLogBook SET RecordStatus = 'W' WHERE RequestNum = @NurseRequestNum AND Revenueid = 'LB'; END; /****UPDATE BARCODING MASTER STATUS****/ UPDATE laboratory..tblabbarcodingmaster SET ResultStatus = 'W', RequestStatus = 'W' WHERE Requestnum = @RequestNum AND Itemid = @Reserve10 END; --~*~*~*~* BEGIN VERIFY RESULTS ~*~*~*~*-- DECLARE @StationID VARCHAR(4), @RoomID VARCHAR(10), @ERPatient BIT, @OPService BIT SET @OPService = (SELECT TOP 1 ISNULL(OPService,0) FROM tbLabMaster WHERE RequestNum = @RequestNum); SET @RoomId = (SELECT TOP 1 RoomId FROM tbLabLogbook WHERE RequestNum = @RequestNum); SET @StationID = (SELECT TOP 1 StationId FROM Build_File..tbCoRoom WHERE RoomID = @RoomID); SET @IDNum = (SELECT TOP 1 IDNum FROM tbLabLogbook WHERE RequestNum = @RequestNum); IF EXISTS(SELECT ISNULL(ERNum,'') FROM Patient_Data..tbOutPatient WHERE IdNum = @IdNum) BEGIN SET @ERPatient = 1 SET @StationId = 'ER' END ELSE BEGIN SET @ERPatient = 0 END /***** Automatic Verification of Results *****/ UPDATE tbLabLogBook SET VerifyID = @OBXObserverOrig, VerifyDate = CONVERT(VARCHAR(120),@Reserve5,111), --@ResultDate,--GETDATE(), Resultdate = CONVERT(VARCHAR(120),@Reserve4,111), MedtechId = @OBXObserverOrig, Remarks = @OBXRemarks WHERE RequestNum = @RequestNum /****** Update Station..tbComm_AutoPrint for Automatic Printing of Results *******/ IF NOT EXISTS (SELECT RequestNum FROM Station..tbComm_AutoPrint WHERE RevenueId = 'LB' AND RequestNum = @RequestNum) AND (ISNUMERIC(@IDNum) = 1 OR @ERPatient = 1 OR @OPService = 1) BEGIN INSERT INTO Station..tbComm_AutoPrint (RequestNum, IDNum, HospNum, Room, ItemID, RevenueID, UserID, RequestStatus, StationID, AccessionNum) (SELECT DISTINCT RequestNum, IDNum, HospNum, RoomID, LabExamID, 'LB', VerifyID, 'N', @StationID, AccessionNum FROM tbLabLogbook WHERE RequestNum = @RequestNum); END; --~*~*~*~* END VERIFY RESULTS ~*~*~*~*-- END