USE [Radiology] GO SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO ALTER VIEW [dbo].[tbRadiologyRequests] AS SELECT CASE WHEN A.swfin = 'X' THEN 'X' WHEN A.swfin = 'Y' THEN CASE WHEN Res.verifydate IS NULL THEN 'Y' ELSE 'V' END WHEN A.swfin IS NULL THEN 'S' WHEN A.swfin = 'C' THEN 'R' END AS [Status], A.RevenueID RevenueID, A.TransDate, IsNull(A.IdNum, 'CASH') AS IDNum, A.Hospnum, CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.LastName, C.LastName) + ', ' + IsNull(Cash.FirstName, C.FirstName) + ' ' + IsNull(Cash.MiddleName, C.MiddleName) ELSE C.LastName + ', ' + C.FirstName + ' ' + C.MiddleName END AS [Patient Name], A.Code ItemID, B.Description, CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN 'Walk-in' ELSE A.RoomID END AS RoomID, A.RequestDoctorCode, CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.BirthDate, C.BirthDate) ELSE C.Birthdate END AS BirthDate, Age = Laboratory.dbo.fn_LabComputeAge(CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.BirthDate, C.BirthDate) ELSE C.BirthDate END, A.transdate), CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.Sex, C.Sex) ELSE C.Sex END AS Sex, A.refnum, A.RequestNum, isnull(EditedByID,'') EditedByID, isnull(TranscribedByID, '') TranscribedByID, isnull(VerifyByID, '') AS VerifyByID, isnull(radiology.dbo.fn_getemployeename(editedbyid),'') [Editedby], isnull(radiology.dbo.fn_getemployeename(transcribedbyid), '') [Transcribedby], isnull(radiology.dbo.fn_getemployeename(verifybyid), '') [Verifiedby], CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.LastName, C.LastName) ELSE C.LastName END AS LastName, CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.FirstName, C.FirstName) ELSE C.FirstName END AS FirstName, VerifyDate, Res.XrayNum, Res.RadCode, P.DcrDate, Res.ResultDate, swfin, CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.MiddleName, C.MiddleName) ELSE C.MiddleName END AS MiddleName, A.FormType, IsNull(A.Amount, '0.00') AS Amount, Radiology.dbo.fn_GetDoctorsName(A.RequestDoctorCode) AS DoctorName, A.Quantity, isnull(radiology.dbo.fn_getemployeename(isnull(Res.RadTech,Res.TranscribedById)), '') as [RadTech], A.[By] AS Receptionist, CancelReason, A.RevenueID DepartmentID, Res.isReleased ,Res.RadCode2 as resident, ISNULL(stat,'0') as isStat, ProfID, --SEARCH FIELD FOR DEFAULT READER, -- ,Case when isnull(C.MSSDiscountExpiry,'') = '' OR C.MSSDiscountExpiry < GETDATE() then --'PAY' -- else --'SERVICE' -- end '' as MSSCLassification, /*--GOVERNMENT HOSPITAL CLASSIFICATION*/ --isnull(isImageAvailable,0) '0' as isImageAvailable, A.StudyUID, '0' as EmailResult, A.SlipNum ,A.ImagingReason, A.SurgicalReason FROM RADIOLOGY..tbXRRequest A LEFT OUTER JOIN RADIOLOGY..tbXRResult Res ON A.RequestNum = Res.RequestNum LEFT OUTER JOIN Billing..tbBillExamListing B ON A.Code = B.ItemID AND B.RevenueID = 'XR' LEFT OUTER JOIN PATIENT_DATA..tbmaster C ON A.HospNum = C.HospNum LEFT OUTER JOIN (SELECT IDNum, AdmDate, DcrDate,age FROM Patient_Data..tbPatient where ISNUMERIC(IdNum) = 1 UNION ALL SELECT IDNum, AdmDate, DcrDate,age FROM Patient_Data..tbOutPatient where ISNUMERIC(IdNum) = 0) P ON A.IDNum = P.IDNum LEFT OUTER JOIN Patient_Data..tbCashPatient Cash ON Cash.HospNum = A.HospNum WHERE IsNull(A.RevenueID, 'XR') = 'XR' UNION ALL SELECT CASE WHEN A.swfin = 'X' THEN 'X' WHEN A.swfin = 'Y' THEN CASE WHEN verifydate IS NULL THEN 'Y' ELSE 'V' END WHEN A.swfin IS NULL THEN 'S' WHEN A.swfin = 'C' THEN 'R' END AS [Status], A.RevenueID RevenueID, A.TransDate, IsNull(A.IdNum, 'CASH') AS IDNum, A.Hospnum, CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.LastName, C.LastName) + ', ' + IsNull(Cash.FirstName, C.FirstName) + ' ' + IsNull(Cash.MiddleName, C.MiddleName) ELSE C.LastName + ', ' + C.FirstName + ' ' + C.MiddleName END AS [Patient Name], A.Code ItemID, B.Description, CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN 'Walk-in' ELSE A.RoomID END AS RoomID, A.RequestDoctorCode, CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN Cash.BirthDate ELSE C.Birthdate END AS BirthDate, Age = Laboratory.dbo.fn_LabComputeAge(CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.BirthDate, C.BirthDate) ELSE C.BirthDate END, A.transdate), CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN Cash.Sex ELSE C.Sex END AS Sex, A.refnum, A.RequestNum, isnull(EditedByID, '') EditedByID, isnull(TranscribedByID, '') TranscribedByID, isnull(VerifyByID, '') AS VerifyByID, isnull(radiology.dbo.fn_getemployeename(editedbyid), '') [Editedby], isnull(radiology.dbo.fn_getemployeename(transcribedbyid), '') [Transcribedby], isnull(radiology.dbo.fn_getemployeename(verifybyid), '') [Verifiedby], CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.LastName, C.LastName) ELSE C.LastName END AS LastName, CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.FirstName, C.FirstName) ELSE C.FirstName END AS FirstName, VerifyDate, Res.XrayNum, Res.RadCode, P.DcrDate, Res.ResultDate, swfin, CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.MiddleName, C.MiddleName) ELSE C.MiddleName END AS MiddleName, A.FormType, IsNull(A.Amount, '0.00') AS Amount, Radiology.dbo.fn_GetDoctorsName(A.RequestDoctorCode) AS DoctorName, A.Quantity, isnull(radiology.dbo.fn_getemployeename(isnull(Res.RadTech,Res.TranscribedById)), '') as [RadTech], A.[By] AS Receptionist, CancelReason, A.RevenueID DepartmentID, Res.isReleased ,Res.RadCode2 as resident, ISNULL(stat,'0') as isStat, ProfID, --SEARCH FIELD FOR DEFAULT READER -- ,Case when isnull(C.MSSDiscountExpiry,'') = '' OR C.MSSDiscountExpiry < GETDATE() then --'PAY' -- else --'SERVICE' -- end '' as MSSCLassification, /*--GOVERNMENT HOSPITAL CLASSIFICATION*/ --isnull(isImageAvailable,0) '0' as isImageAvailable, A.StudyUID, '0' as EmailResult, A.SlipNum ,A.ImagingReason, A.SurgicalReason FROM RADIOLOGY..tbCTRequest A LEFT OUTER JOIN RADIOLOGY..tbCTResult Res ON A.RequestNum = Res.RequestNum LEFT OUTER JOIN Billing..tbBillExamListing B ON A.Code = B.ItemID AND B.RevenueID = 'CT' LEFT OUTER JOIN PATIENT_DATA..tbmaster C ON A.HospNum = C.HospNum LEFT OUTER JOIN (SELECT IDNum, AdmDate, DcrDate,age FROM Patient_Data..tbPatient where ISNUMERIC(IdNum) = 1 UNION ALL SELECT IDNum, AdmDate, DcrDate,age FROM Patient_Data..tbOutPatient where ISNUMERIC(IdNum) = 0) P ON A.IDNum = P.IDNum LEFT OUTER JOIN Patient_Data..tbCashPatient Cash ON Cash.HospNum = A.HospNum WHERE IsNull(A.RevenueID, 'CT') = 'CT' UNION ALL SELECT CASE WHEN A.swfin = 'X' THEN 'X' WHEN A.swfin = 'Y' THEN CASE WHEN verifydate IS NULL THEN 'Y' ELSE 'V' END WHEN A.swfin IS NULL THEN 'S' WHEN A.swfin = 'C' THEN 'R' END AS [Status], A.RevenueID RevenueID, A.TransDate, IsNull(A.IdNum, 'CASH') AS IDNum, A.Hospnum, CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.LastName, C.LastName) + ', ' + IsNull(Cash.FirstName, C.FirstName) + ' ' + IsNull(Cash.MiddleName, C.MiddleName) ELSE C.LastName + ', ' + C.FirstName + ' ' + C.MiddleName END AS [Patient Name], A.Code ItemID, B.Description, CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN 'Walk-in' ELSE A.RoomID END AS RoomID, A.RequestDoctorCode, CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN Cash.BirthDate ELSE C.Birthdate END AS BirthDate, Age = Laboratory.dbo.fn_LabComputeAge(CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.BirthDate, C.BirthDate) ELSE C.BirthDate END, A.transdate), CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN Cash.Sex ELSE C.Sex END AS Sex, A.refnum, A.RequestNum, isnull(A.EditedByID, '') EditedByID, isnull(TranscribedByID, '') TranscribedByID, isnull(VerifyByID, '') AS VerifyByID, isnull(radiology.dbo.fn_getemployeename(A.EditedByID), '') [Editedby], isnull(radiology.dbo.fn_getemployeename(transcribedbyid), '') [Transcribedby], isnull(radiology.dbo.fn_getemployeename(verifybyid), '') [Verifiedby], CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.LastName, C.LastName) ELSE C.LastName END AS LastName, CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.FirstName, C.FirstName) ELSE C.FirstName END AS FirstName, VerifyDate, Res.XrayNum, Res.RadCode, P.DcrDate, Res.ResultDate, swfin, CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.MiddleName, C.MiddleName) ELSE C.MiddleName END AS MiddleName, A.FormType, IsNull(A.Amount, '0.00') AS Amount, Radiology.dbo.fn_GetDoctorsName(A.RequestDoctorCode) AS DoctorName, A.Quantity, isnull(radiology.dbo.fn_getemployeename(isnull(Res.RadTech,Res.TranscribedById)), '') as [RadTech], A.[By] AS Receptionist, CancelReason, A.RevenueID DepartmentID, Res.isReleased ,Res.RadCode2 as resident, ISNULL(stat,'0') as isStat, ProfID, --SEARCH FIELD FOR DEFAULT READER -- ,Case when isnull(C.MSSDiscountExpiry,'') = '' OR C.MSSDiscountExpiry < GETDATE() then --'PAY' -- else --'SERVICE' -- end '' as MSSCLassification, /*--GOVERNMENT HOSPITAL CLASSIFICATION*/ --isnull(isImageAvailable,0) '0' as isImageAvailable, A.StudyUID, '0' as EmailResult, A.SlipNum ,A.ImagingReason, A.SurgicalReason FROM RADIOLOGY..tbULRequest A LEFT OUTER JOIN RADIOLOGY..tbULResult Res ON A.RequestNum = Res.RequestNum LEFT OUTER JOIN Radiology..tbBillExamListing B ON A.Code = B.ItemID AND B.RevenueID = 'US' LEFT OUTER JOIN PATIENT_DATA..tbmaster C ON A.HospNum = C.HospNum LEFT OUTER JOIN (SELECT IDNum, AdmDate, DcrDate,age FROM Patient_Data..tbPatient where ISNUMERIC(IdNum) = 1 UNION ALL SELECT IDNum, AdmDate, DcrDate,age FROM Patient_Data..tbOutPatient where ISNUMERIC(IdNum) = 0) P ON A.IDNum = P.IDNum LEFT OUTER JOIN Patient_Data..tbCashPatient Cash ON Cash.HospNum = A.HospNum WHERE IsNull(A.RevenueID, 'US') = 'US' UNION ALL SELECT CASE WHEN A.swfin = 'X' THEN 'X' WHEN A.swfin = 'Y' THEN CASE WHEN verifydate IS NULL THEN 'Y' ELSE 'V' END WHEN A.swfin IS NULL THEN 'S' WHEN A.swfin = 'C' THEN 'R' END AS [Status], A.RevenueID, A.TransDate, IsNull(A.IdNum, 'CASH') AS IDNum, A.Hospnum, CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.LastName, C.LastName) + ', ' + IsNull(Cash.FirstName, C.FirstName) + ' ' + IsNull(Cash.MiddleName, C.MiddleName) ELSE C.LastName + ', ' + C.FirstName + ' ' + C.MiddleName END AS [Patient Name], A.Code ItemID, B.Description, CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN 'Walk-in' ELSE A.RoomID END AS RoomID, A.RequestDoctorCode, CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN Cash.BirthDate ELSE C.Birthdate END AS BirthDate, Age = Laboratory.dbo.fn_LabComputeAge(CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.BirthDate, C.BirthDate) ELSE C.BirthDate END, A.transdate), CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN Cash.Sex ELSE C.Sex END AS Sex, A.refnum, A.RequestNum, isnull(EditedByID, '') EditedByID, isnull(TranscribedByID, '') TranscribedByID, isnull(VerifyByID, '') AS VerifyByID, isnull(radiology.dbo.fn_getemployeename(editedbyid), '') [Editedby], isnull(radiology.dbo.fn_getemployeename(transcribedbyid), '') [Transcribedby], isnull(radiology.dbo.fn_getemployeename(verifybyid), '') [Verifiedby], CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.LastName, C.LastName) ELSE C.LastName END AS LastName, CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.FirstName, C.FirstName) ELSE C.FirstName END AS FirstName, VerifyDate, Res.XrayNum, Res.RadCode, P.DcrDate, Res.ResultDate, swfin, CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.MiddleName, C.MiddleName) ELSE C.MiddleName END AS MiddleName, '4', IsNull(A.Amount, '0.00') AS Amount, Radiology.dbo.fn_GetDoctorsName(A.RequestDoctorCode) AS DoctorName, A.Quantity, isnull(radiology.dbo.fn_getemployeename(isnull(Res.RadTech,Res.TranscribedById)), '') as [RadTech], A.[By] AS Receptionist, '', A.RevenueID DepartmentID, Res.isReleased ,Res.RadCode2 as resident, ISNULL(stat,'0') as isStat, ProfID, --SEARCH FIELD FOR DEFAULT READER -- ,Case when isnull(C.MSSDiscountExpiry,'') = '' OR C.MSSDiscountExpiry < GETDATE() then --'PAY' -- else --'SERVICE' -- end '' as MSSCLassification, /*--GOVERNMENT HOSPITAL CLASSIFICATION*/ --isnull(isImageAvailable,0) '0' as isImageAvailable, A.StudyUID, '0' as EmailResult, A.SlipNum ,A.ImagingReason, A.SurgicalReason FROM RADIOLOGY..tbMRIRequest A LEFT OUTER JOIN RADIOLOGY..tbMRIResult Res ON A.RequestNum = Res.RequestNum LEFT OUTER JOIN Radiology..tbBillExamListing B ON A.Code = B.ItemID AND B.RevenueID in ('MI','MS','RI') LEFT OUTER JOIN PATIENT_DATA..tbmaster C ON A.HospNum = C.HospNum LEFT OUTER JOIN (SELECT IDNum, AdmDate, DcrDate,age FROM Patient_Data..tbPatient where ISNUMERIC(IdNum) = 1 UNION ALL SELECT IDNum, AdmDate, DcrDate,age FROM Patient_Data..tbOutPatient where ISNUMERIC(IdNum) = 0) P ON A.IDNum = P.IDNum LEFT OUTER JOIN Patient_Data..tbCashPatient Cash ON Cash.HospNum = A.HospNum WHERE IsNull(A.RevenueID, 'RI') = 'RI' UNION ALL SELECT CASE WHEN A.swmrk IN ('X', 'S') THEN 'X' WHEN A.swmrk = 'Y' THEN CASE WHEN verifydate IS NULL THEN 'Y' ELSE 'V' END WHEN A.swmrk IS NULL THEN 'X' WHEN A.swmrk = 'C' THEN 'R' END AS [Status], A.RevenueID, A.TransDate, IsNull(A.IdNum, 'CASH') AS IDNum, A.Hospnum, CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.LastName, C.LastName) + ', ' + IsNull(Cash.FirstName, C.FirstName) + ' ' + IsNull(Cash.MiddleName, C.MiddleName) ELSE C.LastName + ', ' + C.FirstName + ' ' + C.MiddleName END AS [Patient Name], A.ItemID ItemID, B.Description, CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN 'Walk-in' ELSE A.RoomID END AS RoomID, A.RequestDoctorCode, CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN Cash.BirthDate ELSE C.Birthdate END AS BirthDate, Age = Laboratory.dbo.fn_LabComputeAge(CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.BirthDate, C.BirthDate) ELSE C.BirthDate END, A.transdate), CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN Cash.Sex ELSE C.Sex END AS Sex, A.refnum, A.RequestNum, isnull(EditedByID, '') EditedByID, isnull(TranscribedByID, '') TranscribedByID, isnull(VerifyByID, '') AS VerifyByID, isnull(radiology.dbo.fn_getemployeename(editedbyid), '') [Editedby], isnull(radiology.dbo.fn_getemployeename(transcribedbyid), '') [Transcribedby], isnull(radiology.dbo.fn_getemployeename(verifybyid), '') [Verifiedby], CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.LastName, C.LastName) ELSE C.LastName END AS LastName, CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.FirstName, C.FirstName) ELSE C.FirstName END AS FirstName, VerifyDate, Res.XrayNum, Res.RadCode, P.DcrDate, Res.ResultDate, A.swmrk swfin, CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.MiddleName, C.MiddleName) ELSE C.MiddleName END AS MiddleName, A.FormType, IsNull(A.Amount, '0.00') AS Amount, Radiology.dbo.fn_GetDoctorsName(A.RequestDoctorCode) AS DoctorName, A.Quantity, isnull(radiology.dbo.fn_getemployeename(isnull(Res.RadTech,Res.TranscribedByID)), '') as [RadTech], A.UserID AS Receptionist, CancelReason, A.RevenueID DepartmentID, Res.isReleased ,Res.RadCode2 as resident, ISNULL(stat,'0') as isStat, ProfID, --SEARCH FIELD FOR DEFAULT READER -- ,Case when isnull(C.MSSDiscountExpiry,'') = '' OR C.MSSDiscountExpiry < GETDATE() then --'PAY' -- else --'SERVICE' -- end '' as MSSCLassification, /*--GOVERNMENT HOSPITAL CLASSIFICATION*/ --isnull(isImageAvailable,0) '0' as isImageAvailable, '' StudyUID, '0' as EmailResult, A.SlipNum ,A.ImagingReason, A.SurgicalReason FROM RADIOLOGY..tbMammoMaster A LEFT OUTER JOIN RADIOLOGY..tbMammoResult Res ON A.RequestNum = Res.RequestNum LEFT OUTER JOIN Radiology..tbBillExamListing B ON A.ItemID = B.ItemID AND B.RevenueID IN ('MM', 'MG') /* = 'MM'*/ LEFT OUTER JOIN PATIENT_DATA..tbmaster C ON A.HospNum = C.HospNum LEFT OUTER JOIN (SELECT IDNum, AdmDate, DcrDate,age FROM Patient_Data..tbPatient where ISNUMERIC(IdNum) = 1 UNION ALL SELECT IDNum, AdmDate, DcrDate,age FROM Patient_Data..tbOutPatient where ISNUMERIC(IdNum) = 0) P ON A.IDNum = P.IDNum LEFT OUTER JOIN Patient_Data..tbCashPatient Cash ON Cash.HospNum = A.HospNum WHERE IsNull(A.RevenueID, '') <> 'MD' UNION ALL SELECT CASE WHEN A.swfin = 'X' THEN 'X' WHEN A.swfin = 'Y' THEN CASE WHEN verifydate IS NULL THEN 'Y' ELSE 'V' END WHEN A.swfin IS NULL THEN 'S' WHEN A.swfin = 'C' THEN 'R' END AS [Status], A.RevenueID, A.TransDate, IsNull(A.IdNum, 'CASH') AS IDNum, A.Hospnum, CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.LastName, C.LastName) + ', ' + IsNull(Cash.FirstName, C.FirstName) + ' ' + IsNull(Cash.MiddleName, C.MiddleName) ELSE C.LastName + ', ' + C.FirstName + ' ' + C.MiddleName END AS [Patient Name], A.Code ItemID, B.Description, CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN 'Walk-in' ELSE A.RoomID END AS RoomID, A.RequestDoctorCode, CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN Cash.BirthDate ELSE C.Birthdate END AS BirthDate, Age = Laboratory.dbo.fn_LabComputeAge(CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.BirthDate, C.BirthDate) ELSE C.BirthDate END, A.transdate), CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN Cash.Sex ELSE C.Sex END AS Sex, A.refnum, A.RequestNum, isnull(EditedByID, '') EditedByID, isnull(TranscribedByID, '') TranscribedByID, isnull(VerifyByID, '') AS VerifyByID, isnull(radiology.dbo.fn_getemployeename(editedbyid), '') [Editedby], isnull(radiology.dbo.fn_getemployeename(transcribedbyid), '') [Transcribedby], isnull(radiology.dbo.fn_getemployeename(verifybyid), '') [Verifiedby], CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.LastName, C.LastName) ELSE C.LastName END AS LastName, CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.FirstName, C.FirstName) ELSE C.FirstName END AS FirstName, VerifyDate, Res.XrayNum, Res.RadCode, P.DcrDate, Res.ResultDate, swfin, CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.MiddleName, C.MiddleName) ELSE C.MiddleName END AS MiddleName, A.FormType, IsNull(A.Amount, '0.00') AS Amount, Radiology.dbo.fn_GetDoctorsName(A.RequestDoctorCode) AS DoctorName, A.Quantity, isnull(radiology.dbo.fn_getemployeename(isnull(Res.RadTech,Res.TranscribedByID)), '') as [RadTech], A.[By] AS Receptionist, CancelReason, A.RevenueID DepartmentID, Res.isReleased ,Res.RadCode2 as resident, ISNULL(stat,'0') as isStat, '' AS ProfID, --SEARCH FIELD FOR DEFAULT READER -- ,Case when isnull(C.MSSDiscountExpiry,'') = '' OR C.MSSDiscountExpiry < GETDATE() then --'PAY' -- else --'SERVICE' -- end '' as MSSCLassification, /*--GOVERNMENT HOSPITAL CLASSIFICATION*/ '0' as isImageAvailable, A.StudyUID, '0' as EmailResult, A.SlipNum ,A.ImagingReason, A.SurgicalReason FROM RADIOLOGY..tbOBULRequest A LEFT OUTER JOIN RADIOLOGY..tbULWomensResultOB Res ON A.RequestNum = Res.RequestNum LEFT OUTER JOIN Radiology..tbBillExamListing B ON A.Code = B.ItemID AND B.RevenueID IN ('WH', 'PG', 'O1') LEFT OUTER JOIN PATIENT_DATA..tbmaster C ON A.HospNum = C.HospNum LEFT OUTER JOIN (SELECT IDNum, AdmDate, DcrDate, RoomID,age FROM Patient_Data..tbPatient where ISNUMERIC(IdNum) = 1 UNION ALL SELECT IDNum, AdmDate, DcrDate, 'OPD',age FROM Patient_Data..tbOutPatient where ISNUMERIC(IdNum) = 0) P ON A.IDNum = P.IDNum LEFT OUTER JOIN Patient_Data..tbCashPatient Cash ON Cash.HospNum = A.HospNum WHERE IsNull(A.RevenueID, 'WH') = 'WH' UNION ALL SELECT CASE WHEN A.RequestStatus IN ('X', 'S') THEN 'X' WHEN A.RequestStatus = 'Y' THEN CASE WHEN verifydate IS NULL THEN 'Y' ELSE 'V' END WHEN A.RequestStatus IS NULL THEN 'X' WHEN A.RequestStatus = 'C' THEN 'R' END AS [Status], A.RevenueID RevenueID, A.TransDate, IsNull(A.IdNum, 'CASH') AS IDNum, A.Hospnum, CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.LastName, C.LastName) + ', ' + IsNull(Cash.FirstName, C.FirstName) + ' ' + IsNull(Cash.MiddleName, C.MiddleName) ELSE C.LastName + ', ' + C.FirstName + ' ' + C.MiddleName END AS [Patient Name], A.ItemID ItemID, B.Description, CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN 'Walk-in' ELSE A.RoomID END AS RoomID, A.RequestDoctorCode, CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN Cash.BirthDate ELSE C.Birthdate END AS BirthDate, Age = Laboratory.dbo.fn_LabComputeAge(CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.BirthDate, C.BirthDate) ELSE C.BirthDate END, A.transdate), CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN Cash.Sex ELSE C.Sex END AS Sex, A.refnum, A.RequestNum, isnull(EditedByID, '') EditedByID, isnull(TranscribedByID, '') TranscribedByID, isnull(VerifyByID, '') AS VerifyByID, isnull(radiology.dbo.fn_getemployeename(editedbyid), '') [Editedby], isnull(radiology.dbo.fn_getemployeename(transcribedbyid), '') [Transcribedby], isnull(radiology.dbo.fn_getemployeename(verifybyid), '') [Verifiedby], CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.LastName, C.LastName) ELSE C.LastName END AS LastName, CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.FirstName, C.FirstName) ELSE C.FirstName END AS FirstName, VerifyDate, Res.XrayNum, Res.RadCode, P.DcrDate, Res.ResultDate, A.RequestStatus swfin, CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.MiddleName, C.MiddleName) ELSE C.MiddleName END AS MiddleName, A.FormType, IsNull(A.Amount, '0.00') AS Amount, Radiology.dbo.fn_GetDoctorsName(A.RequestDoctorCode) AS DoctorName, A.Quantity, isnull(radiology.dbo.fn_getemployeename(isnull(Res.RadTech,Res.TranscribedByID)), '') as [RadTech], A.[By] AS Receptionist, CancelReason, A.RevenueID DepartmentID, Res.isReleased ,Res.RadCode2 as resident, ISNULL(stat,'0') as isStat, '' AS ProfID, --SEARCH FIELD FOR DEFAULT READER -- ,Case when isnull(C.MSSDiscountExpiry,'') = '' OR C.MSSDiscountExpiry < GETDATE() then --'PAY' -- else --'SERVICE' -- end '' as MSSCLassification /*--GOVERNMENT HOSPITAL CLASSIFICATION*/, '0' as isImageAvailable, A.StudyUID, '0' as EmailResult, '' as SlipNum ,A.ImagingReason, A.SurgicalReason FROM RADIOLOGY..tbNucMaster A LEFT OUTER JOIN RADIOLOGY..tbNucLogBook Res ON A.RequestNum = Res.RequestNum LEFT OUTER JOIN Radiology..tbBillExamListing B ON A.ItemID = B.ItemID AND B.RevenueID = 'NU' LEFT OUTER JOIN PATIENT_DATA..tbmaster C ON A.HospNum = C.HospNum LEFT OUTER JOIN (SELECT IDNum, AdmDate, DcrDate,age FROM Patient_Data..tbPatient where ISNUMERIC(IdNum) = 1 UNION ALL SELECT IDNum, AdmDate, DcrDate,age FROM Patient_Data..tbOutPatient where ISNUMERIC(IdNum) = 0) P ON A.IDNum = P.IDNum LEFT OUTER JOIN Patient_Data..tbCashPatient Cash ON Cash.HospNum = A.HospNum WHERE IsNull(A.RevenueID, 'NU') = 'NU' UNION ALL SELECT CASE WHEN A.swfin = 'X' THEN 'X' WHEN A.swfin = 'Y' THEN CASE WHEN verifydate IS NULL THEN 'Y' ELSE 'V' END WHEN A.swfin IS NULL THEN 'S' WHEN A.swfin = 'C' THEN 'R' END AS [Status], A.RevenueID, A.TransDate, IsNull(A.IdNum, 'CASH') AS IDNum, A.Hospnum, CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.LastName, C.LastName) + ', ' + IsNull(Cash.FirstName, C.FirstName) + ' ' + IsNull(Cash.MiddleName, C.MiddleName) ELSE C.LastName + ', ' + C.FirstName + ' ' + C.MiddleName END AS [Patient Name], A.Code ItemID, B.Description, CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN 'Walk-in' ELSE A.RoomID END AS RoomID, A.RequestDoctorCode, CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN Cash.BirthDate ELSE C.Birthdate END AS BirthDate, Age = Laboratory.dbo.fn_LabComputeAge(CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.BirthDate, C.BirthDate) ELSE C.BirthDate END, A.transdate), CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN Cash.Sex ELSE C.Sex END AS Sex, A.refnum, A.RequestNum, isnull(EditedByID, '') EditedByID, isnull(TranscribedByID, '') TranscribedByID, isnull(VerifyByID, '') AS VerifyByID, isnull(radiology.dbo.fn_getemployeename(editedbyid), '') [Editedby], isnull(radiology.dbo.fn_getemployeename(transcribedbyid), '') [Transcribedby], isnull(radiology.dbo.fn_getemployeename(verifybyid), '') [Verifiedby], CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.LastName, C.LastName) ELSE C.LastName END AS LastName, CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.FirstName, C.FirstName) ELSE C.FirstName END AS FirstName, VerifyDate, Res.XrayNum, Res.RadCode, P.DcrDate, Res.ResultDate, swfin, CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.MiddleName, C.MiddleName) ELSE C.MiddleName END AS MiddleName, '4', IsNull(A.Amount, '0.00') AS Amount, Radiology.dbo.fn_GetDoctorsName(A.RequestDoctorCode) AS DoctorName, A.Quantity, isnull(radiology.dbo.fn_getemployeename(isnull(Res.RadTech,Res.TranscribedById)), '') as [RadTech], A.[By] AS Receptionist, '', A.RevenueID DepartmentID, Res.isReleased ,Res.RadCode2 as resident, ISNULL(stat,'0') as isStat, ProfID, --SEARCH FIELD FOR DEFAULT READER -- ,Case when isnull(C.MSSDiscountExpiry,'') = '' OR C.MSSDiscountExpiry < GETDATE() then --'PAY' -- else --'SERVICE' -- end '' as MSSCLassification, /*--GOVERNMENT HOSPITAL CLASSIFICATION*/ '0' as isImageAvailable, '0' AS StudyUID, '0' as EmailResult, A.SlipNum ,A.ImagingReason, A.SurgicalReason FROM RADIOLOGY..tbMRIRequest1 A LEFT OUTER JOIN RADIOLOGY..tbMRIResult Res ON A.RequestNum = Res.RequestNum LEFT OUTER JOIN Radiology..tbBillExamListing B ON A.Code = B.ItemID AND B.RevenueID in ('MI','MS','RI') LEFT OUTER JOIN PATIENT_DATA..tbmaster C ON A.HospNum = C.HospNum LEFT OUTER JOIN (SELECT IDNum, AdmDate, DcrDate,age FROM Patient_Data..tbPatient where ISNUMERIC(IdNum) = 1 UNION ALL SELECT IDNum, AdmDate, DcrDate,age FROM Patient_Data..tbOutPatient where ISNUMERIC(IdNum) = 0) P ON A.IDNum = P.IDNum LEFT OUTER JOIN Patient_Data..tbCashPatient Cash ON Cash.HospNum = A.HospNum WHERE IsNull(A.RevenueID, 'RI') = 'RI' UNION ALL SELECT CASE WHEN A.swfin = 'X' THEN 'X' WHEN A.swfin = 'Y' THEN CASE WHEN Res.verifydate IS NULL THEN 'Y' ELSE 'V' END WHEN A.swfin IS NULL THEN 'S' WHEN A.swfin = 'C' THEN 'R' END AS [Status], A.RevenueID RevenueID, A.TransDate, IsNull(A.IdNum, 'CASH') AS IDNum, A.Hospnum, CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.LastName, C.LastName) + ', ' + IsNull(Cash.FirstName, C.FirstName) + ' ' + IsNull(Cash.MiddleName, C.MiddleName) ELSE C.LastName + ', ' + C.FirstName + ' ' + C.MiddleName END AS [Patient Name], A.Code ItemID, B.Description, CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN 'Walk-in' ELSE A.RoomID END AS RoomID, A.RequestDoctorCode, CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.BirthDate, C.BirthDate) ELSE C.Birthdate END AS BirthDate, Age = Laboratory.dbo.fn_LabComputeAge(CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.BirthDate, C.BirthDate) ELSE C.BirthDate END, A.transdate), CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.Sex, C.Sex) ELSE C.Sex END AS Sex, A.refnum, A.RequestNum, isnull(EditedByID, '') EditedByID, isnull(TranscribedByID, '') TranscribedByID, isnull(VerifyByID, '') AS VerifyByID, isnull(radiology.dbo.fn_getemployeename(editedbyid), '') [Editedby], isnull(radiology.dbo.fn_getemployeename(transcribedbyid), '') [Transcribedby], isnull(radiology.dbo.fn_getemployeename(verifybyid), '') [Verifiedby], CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.LastName, C.LastName) ELSE C.LastName END AS LastName, CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.FirstName, C.FirstName) ELSE C.FirstName END AS FirstName, VerifyDate, Res.RequestNum, Res.RadCode, P.DcrDate, Res.ResultDate, swfin, CASE WHEN LEFT(A.HospNum, 1) = 'T' THEN IsNull(Cash.MiddleName, C.MiddleName) ELSE C.MiddleName END AS MiddleName, A.FormType, IsNull(A.Amount, '0.00') AS Amount, Radiology.dbo.fn_GetDoctorsName(A.RequestDoctorCode) AS DoctorName, A.Quantity, isnull(radiology.dbo.fn_getemployeename(isnull(Res.RadTech,Res.TranscribedById)), '') as [RadTech], A.[By] AS Receptionist, CancelReason, A.RevenueID DepartmentID, Res.isReleased ,Res.RadCode2 as resident, ISNULL(stat,'0') as isStat, ProfID, --SEARCH FIELD FOR DEFAULT READER -- ,Case when isnull(C.MSSDiscountExpiry,'') = '' OR C.MSSDiscountExpiry < GETDATE() then --'PAY' -- else --'SERVICE' -- end ''as MSSCLassification, /*--GOVERNMENT HOSPITAL CLASSIFICATION*/ --isnull(isImageAvailable,0) '0' as isImageAvailable, A.StudyUID, '0' as EmailResult, A.SlipNum ,A.ImagingReason, A.SurgicalReason FROM RADIOLOGY..tbRequestMaster A LEFT OUTER JOIN RADIOLOGY..tbResultMaster Res ON A.RequestNum = Res.RequestNum LEFT OUTER JOIN Billing..tbBillExamListing B ON A.Code = B.ItemID AND B.RevenueID IN (SELECT RevenueID FROM tbRadiologyRevenues where Active = '1') LEFT OUTER JOIN PATIENT_DATA..tbmaster C ON A.HospNum = C.HospNum LEFT OUTER JOIN (SELECT IDNum, AdmDate, DcrDate,age FROM Patient_Data..tbPatient where ISNUMERIC(IdNum) = 1 UNION ALL SELECT IDNum, AdmDate, DcrDate,age FROM Patient_Data..tbOutPatient where ISNUMERIC(IdNum) = 0) P ON A.IDNum = P.IDNum LEFT OUTER JOIN Patient_Data..tbCashPatient Cash ON Cash.HospNum = A.HospNum WHERE A.RevenueID IN (SELECT RevenueID FROM RADIOLOGY..tbRadiologyRevenues) GO USE [Radiology] GO SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO ALTER PROCEDURE [dbo].[spRadio_SaveQueue] @HospNum as varchar(15), @Idnum as varchar(15), @Requestnum as varchar(15), @UserCode as varchar(15), @Revenueid as varchar(2), @Refnum as varchar(15) = '' as declare @NewPatientNum as int, @ExistingPatientNum as varchar(10), @PatientNum as varchar(10) set @NewPatientNum = (select MAX(PatientNum + 1) from tbRISPatientQueueNo where RequestDate between convert(varchar(10), getdate(), 101) and convert(varchar(10), getdate(), 101) ) set @ExistingPatientNum = (select isnull(PatientNum,'') from tbRISPatientQueueNo where refnum = @Refnum and RequestDate between convert(varchar(10), getdate(), 101) and convert(varchar(10), getdate(), 101) ) set @PatientNum = isnull(@ExistingPatientNum,@NewPatientNum) if ISNUMERIC(@idnum) = 0 begin If exists(select revenueid from Radiology..tbRadiologyRevenues where RevenueID = @Revenueid) if not exists(select * from Radiology..tbRISPatientQueueNo where --hospnum = @HospNum and Requestnum = @Requestnum and revenueid = @Revenueid) begin insert into tbRISPatientQueueNo(Hospnum,IDNum,PatientNum,Status,UserCode,Revenueid, requestnum,refnum,RequestDate) VALUES(@hospnum,@idnum,isnull(@PatientNum,1),'',@usercode,@revenueid, @Requestnum,@Refnum,CONVERT(varchar(10),getdate(),101)) end end GO GO SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO ALTER PROCEDURE [dbo].[spRadio_SaveOutCharge] @Type AS varChar(1), @IDNum AS varChar(10), @ItemID AS varChar(8), @Quantity as float, @Amount AS Float, @HospNum AS varChar(8), @DoctorID AS varChar(4), @UserID AS varChar(8), @RefNum AS varChar(10), @RoomID as varchar(10), @Film1 AS Int, @Film2 AS Int, @Film3 AS Int, @Film4 AS Int, @Film5 AS Int, @Film6 as int, @Film7 as int, @NurseRemarks as varchar(50), @DoctorName as varchar(50) = null, @Portable as varchar(1), @RevenueID AS varChar(2) = '', @NurseRequestNum as varchar(10) = null, @Media varchar(150) = '', @Creatinine varchar(100) = '', @EKG varchar(50) = '', @Oximeter varchar(50) = '', @Particular varchar(200) = '', @Relevant varchar (200) = '', @Precaution varchar(200) = '', @ImagingReason varchar(500) = '', @SurgicalReason varchar(500) = '', @Stat as varchar(1) = '0', @StatVal as varchar(20) = '0', @ReaderID as varchar(10) = '', @Transplant as varchar(5) = '', @isEmailResult as varchar(5) = '', @queuenum as varchar(5) = '' as DECLARE @RequestNum AS varChar(8), @DrCr AS varChar(1), @ItemDesc as varchar(50), @strPatientType as varchar(1), @AccountNum as varchar(10) set @AccountNum = isnull(dbo.fn_GetAccountNum(@IDNum),'') set @strPatientType = isnull(dbo.fn_PatientType(@IDNum),'P') If @DoctorID <> '0' Begin set @DoctorName = null; End set @ImagingReason = replace(cast(@ImagingReason as varchar(max)),'`','''') set @SurgicalReason = replace(cast(@SurgicalReason as varchar(max)),'`','''') IF @Type = '1' /* CT-Scan */ BEGIN Set @ItemDesc = (Select CTExam from Build_File..tbCoCTExam where CtExamID = @ItemID) SELECT @RequestNum = RTRIM(Convert(varChar(8), RequestNum)) FROM tbCTOpd UPDATE tbCTOpd SET RequestNum = RequestNum + 1 SET @DrCr = 'D' INSERT INTO tbCTRequest (RequestNum, Transdate, HospNum, IDNum, Code, RequestDoctorCode, SWFIN, [By], Amount, RoomID, RefNum, Quantity, NurseRemarks, DoctorName, RevenueID, Portable, NurseRequest, Media,Creatinine, EKG, Oximeter,Particular, Relevant,ImagingReason,SurgicalReason, Stat, StatVal,ProfID) VALUES (@RequestNum, GetDate(), @Hospnum, @IDNum, @ItemID, @DoctorID, 'X', @UserID, @Amount, @RoomID, @RefNum, @Quantity, @NurseRemarks, @DoctorName, @RevenueID, @Portable, @NurseRequestNum, @Media,@Creatinine, @EKG, @Oximeter, @Particular, @Relevant,@ImagingReason,@SurgicalReason, @Stat, @StatVal,@ReaderID) END ELSE IF @Type = '2' /* XRay */ BEGIN if @RevenueID = 'XR' Begin Set @ItemDesc = (Select XrayExam from Build_File..tbCoXrayExam where XrayExamID = @ItemID) End; else Begin Set @ItemDesc = (Select OtherRevenue from Build_File..tbCoOtherRevenue where OtherRevenueID = @ItemID) End; SELECT @RequestNum = RTRIM(Convert(varChar(8), RequestNum)) FROM tbXROpd UPDATE tbXROpd SET RequestNum = RequestNum + 1 -- SET @RevenueID = 'XR' SET @DrCr = 'D' INSERT INTO tbXRRequest (RequestNum, Transdate, HospNum, IDNum, Code, RequestDoctorCode, Amount, SWFIN, [By], Film1, Film2, Film3, Film4, Film5, Film6, Film7, RoomID, Refnum, Quantity, NurseRemarks, DoctorName, RevenueID, Portable, NurseRequest,ImagingReason,SurgicalReason, Stat, StatVal,ProfID) VALUES (@RequestNum, GetDate(), @Hospnum, @IDNum, @ItemID, @DoctorID, @Amount, 'X', @UserID, @Film1, @Film2, @Film3, @Film4, @Film5, @Film6, @Film7, @RoomID, @RefNum, @Quantity, @NurseRemarks,@DoctorName, @RevenueID,@Portable,@NurseRequestNum,@ImagingReason,@SurgicalReason, @Stat, @StatVal,@ReaderID) END ELSE IF @Type = '3' /* Ultrasound */ BEGIN Set @ItemDesc = (Select UltraExam from Build_File..tbCoUltraExam where UltraExamID = @ItemID) SELECT @RequestNum = RTRIM(Convert(varChar(8), RequestNum)) FROM tbULOpd UPDATE tbULOpd SET RequestNum = RequestNum + 1 SET @DrCr = 'D' INSERT INTO tbULRequest (RequestNum, Transdate, HospNum, IDNum, Code, RequestDoctorCode, SWFIN, [By], Amount, RoomID, RefNum, Quantity, NurseRemarks, DoctorName, RevenueID, Portable, NurseRequest, ImagingReason, SurgicalReason, Stat, StatVal,ProfID) VALUES (@RequestNum, GetDate(), @Hospnum, @IDNum, @ItemID, @DoctorID, 'X', @UserID, @Amount, @RoomID, @Refnum, @Quantity, @NurseRemarks, @DoctorName, @RevenueID, @Portable, @NurseRequestNum, @ImagingReason, @SurgicalReason, @Stat, @StatVal,@ReaderID) END ELSE IF @Type = '4' /* MRI */ BEGIN Set @ItemDesc = (Select OtherRevenue from Build_File..tbCoOtherRevenue where OtherRevenueID = @ItemID and OtherRevenueID in ('MI','MS','RI')) --SELECT @RequestNum = RTRIM(Convert(varChar(8),RequestNum)) FROM tbMRIRequestNum --UPDATE tbMRIRequestNum SET RequestNum = RequestNum + 1 SELECT @RequestNum = RTRIM(Convert(varChar(8),RequestNum)) FROM tbMRIOpd UPDATE tbMRIOpd SET RequestNum = RequestNum + 1 SET @DrCr = 'D' INSERT INTO tbMRIRequest (RequestNum, Transdate, HospNum, IDNum, Code, RequestDoctorCode, SWFIN, [By], Amount, RoomID, RefNum, Quantity, NurseRemarks, DoctorName, RevenueID, Portable, NurseRequest, ImagingReason, SurgicalReason, Stat, StatVal,ProfID) VALUES (@RequestNum, GetDate(), @Hospnum, @IDNum, @ItemID, @DoctorID, 'X', @UserID, @Amount, @RoomID, @Refnum, @Quantity, @NurseRemarks, @DoctorName, @RevenueID, @Portable, @NurseRequestNum, @ImagingReason, @SurgicalReason, @Stat, @StatVal,@ReaderID) END ELSE IF @Type = '5' /* Mammogram */ BEGIN Set @ItemDesc = (Select OtherRevenue from Build_File..tbCoOtherRevenue where OtherRevenueID = @ItemID and OtherRevenueID in ('MM','MG')) SELECT @RequestNum = RTRIM(Convert(varChar(8),RequestNum)) FROM tbMammoSlip UPDATE tbMammoSlip SET RequestNum = RequestNum + 1 SET @DrCr = 'D' INSERT INTO tbMammoMaster (RequestNum, Transdate, HospNum, IDNum, ItemID, RequestDoctorCode, SWMRK, UserID, Amount, RoomID, RefNum, Quantity, NurseRemarks, DoctorName, RevenueID, Portable, NurseRequest, ImagingReason, SurgicalReason, Stat, StatVal,profID) VALUES (@RequestNum, GetDate(), @Hospnum, @IDNum, @ItemID, @DoctorID, 'X', @UserID, @Amount, @RoomID, @Refnum, @Quantity, @NurseRemarks, @DoctorName, @RevenueID, @Portable, @NurseRequestNum, @ImagingReason, @SurgicalReason, @Stat, @StatVal,@ReaderID) END ELSE IF @Type = '6' /* OB Ultrasound */ BEGIN Set @ItemDesc = (Select OtherRevenue from Build_File..tbCoOtherRevenue where OtherRevenueID = @ItemID and OtherRevenueID in ('WH','PG','O1')) SELECT @RequestNum = RTRIM(Convert(varChar(8),RequestNum)) FROM tbOBULOpd UPDATE tbOBULOpd SET RequestNum = RequestNum + 1 SET @DrCr = 'D' INSERT INTO tbOBULRequest (RequestNum, Transdate, HospNum, IDNum, Code, RequestDoctorCode, SWFIN, [By], Amount, RoomID, RefNum, Quantity, NurseRemarks, DoctorName, RevenueID, Portable, NurseRequest, ImagingReason, SurgicalReason, Stat, StatVal,profID) VALUES (@RequestNum, GetDate(), @Hospnum, @IDNum, @ItemID, @DoctorID, 'X', @UserID, @Amount, @RoomID, @Refnum, @Quantity, @NurseRemarks, @DoctorName, @RevenueID, @Portable, @NurseRequestNum, @ImagingReason, @SurgicalReason, @Stat, @StatVal,@ReaderID) END ELSE IF @Type = '7' /* Nuclear */ BEGIN Set @ItemDesc = (Select Description from Radiology..tbBillExamListing where ItemID = @ItemID and RevenueID = 'NU') SELECT @RequestNum = RTRIM(Convert(varChar(8),RequestNum)) FROM tbNucSlip UPDATE tbNucSlip SET RequestNum = RequestNum + 1 SET @DrCr = 'D' INSERT INTO tbNucMaster (RequestNum, Transdate, HospNum, IDNum, ItemID, RequestDoctorCode, RequestStatus, UserID, Amount, RoomID, RefNum, Quantity, NurseRemarks, DoctorName, RevenueID, Portable, NurseRequest, ImagingReason, SurgicalReason, Stat, StatVal) VALUES (@RequestNum, GetDate(), @Hospnum, @IDNum, @ItemID, @DoctorID, 'X', @UserID, @Amount, @RoomID, @Refnum, @Quantity, @NurseRemarks, @DoctorName, @RevenueID, @Portable, @NurseRequestNum, @ImagingReason, @SurgicalReason, @Stat, @StatVal) END ELSE --IF @Type = '8' /* OTHER REVENUE */ BEGIN Set @ItemDesc = (Select Description from Radiology..tbBillExamListing where ItemID = @ItemID and RevenueID = @RevenueID) SELECT @RequestNum = RTRIM(Convert(varChar(8), RequestNum)) FROM tbradiologyrevenues where RevenueId = (select RevenueID from Radiology..tbRadiologyRevenues where GType = @Type) UPDATE tbradiologyrevenues SET RequestNum = RequestNum + 1 where RevenueId = (select RevenueID from Radiology..tbRadiologyRevenues where GType = @Type) SET @DrCr = 'D' INSERT INTO TbRequestMaster (RequestNum, Transdate, HospNum, IDNum, Code, RequestDoctorCode, Amount, SWFIN, [By], RoomID, Refnum, Quantity, NurseRemarks, DoctorName, RevenueID, NurseRequest,ImagingReason,SurgicalReason, Stat, StatVal,profid) VALUES (@RequestNum, GetDate(), @Hospnum, @IDNum, @ItemID, @DoctorID, @Amount, 'X', @UserID, @RoomID, @RefNum, @Quantity, @NurseRemarks,@DoctorName, @RevenueID,@NurseRequestNum,@ImagingReason,@SurgicalReason, @Stat, @StatVal,@ReaderID) END IF LEFT(@RefNum,2) <> 'OR' begin INSERT INTO billing..tbBillOPDailyOut (HospNum, Refnum, IDNum, Transdate, ItemID, Amount, DrCr, RevenueID, RoomID, UserID, RequestDocID, Quantity, RequestNum, DoctorName) --PatientType, CDFAccountNum) --added 11.11.2003 11:34 VALUES (@Hospnum, @Refnum, @IDNum, Getdate(), @ItemID, @Amount, @DrCr, @RevenueID, @RoomID, @UserID, @DoctorID, @Quantity, @RequestNum, @DoctorName) --@strPatientType, @AccountNum) --added 11.11.2003 11:34) end -- * Insert only if post charges from Nursing Station IF EXISTS(SELECT * FROM station..tbNurseLogBook WHERE IDNum = @IDNum --HospNum = @HospNum AND AND RevenueID = @RevenueID AND ItemID = @ItemID and RequestNum = @NurseRequestNum) BEGIN UPDATE station..tbNurseLogBook SET RecordStatus = 'X', ProcessBy = @UserID, ProcessDate = GETDATE(), ReferenceNum = @RefNum WHERE IDNum = @IDNum --HospNum = @HospNum AND AND RevenueID = @RevenueID AND ItemID = @ItemID and RequestNum= @NurseRequestNum END ELSE BEGIN INSERT INTO station..tbNurseLogBook (HospNum, IDNum, PatientType, RevenueID, RequestDate, ItemID, Description, Quantity, Amount, RecordStatus, ReferenceNum, ProcessBy, ProcessDate, RequestNum, Remarks) VALUES (@HospNum, @IDNum, 'I', @RevenueID, GETDATE(), @ItemID, @ItemDesc, @Quantity, @Amount, 'X', @RefNum, @UserID, GETDATE(), @NurseRequestNum, 'Manually Posted') END --===ADDED BY JPB 06/26/2013 (FOR PROCESSED ER REQUESTS NOT REMOVED IN THE PENDING LIST) IF EXISTS(SELECT * FROM station..tbNurseCommunicationFile WHERE IDNum = @IDNum --HospNum = @HospNum AND AND RevenueID = @RevenueID AND ItemID = @ItemID) --and isnull(RecordStatus,'') = '') -- RequestNum = @NurseRequestNum) BEGIN UPDATE station..tbNurseCommunicationFile SET RecordStatus = 'X', ReferenceNum = @RefNum WHERE IDNum = @IDN um --HospNum = @HospNum AND AND RevenueID = @RevenueID AND ItemID = @ItemID and isnull(RecordStatus,'') in ('','P')-- RequestNum = @NurseRequestNum END --============================================================================================ if (select Settingvalue from tbRISSettings where SettingID = '10') = '1' begin --if @@ERROR <> 0 then goto exec spRadio_SAveQueue @HospNum,@IDNum,@RequestNum,@UserID,@RevenueID,@RefNum end GO ALTER PROCEDURE [dbo].[spRadio_SaveRetrieve] @Type AS varChar(1), @RequestNum AS varChar(10), @RadCode AS varChar(4), @DoctorID as varchar(5), @Interpretation AS Text, @Remarks as Text, @RadCode2 as varchar(4), @ResultDate as varchar(10), @ExamDate as DateTime = null, @EditedByID as varchar(20) = null, @VerifyByID as varchar(20) = null, @VerifyDate as DateTime = null, @RadCode3 as varchar(4), @RadCode4 as varchar(4), @PreviousInterpretation as text = null, @Resultcode as varchar(5) = null, @RadTech as varchar(10) = '', @InterpretationPureText as text = '' AS Declare @EditedDate as DateTime, @revenueid as varchar(2); set @EditedDate = getdate() set @revenueid = (select revenueid from Radiology..tbRadiologyRevenues where GType = @Type) If isnull(@VerifyByID,'') = '' Begin set @VerifyByID = null; set @VerifyDate = null; End; else Begin set @VerifyDate = getdate(); end; IF @Type = '1' /* CT-Scan Department */ BEGIN UPDATE tbCTResult SET RadCode = @RadCode, RequestDoctorCode = @DoctorID, Interpretation = @Interpretation, Remarks = @Remarks, RadCode2 = @RadCode2, ResultDate = @ResultDate, ExamDate = @ExamDate, EditedByID = @EditedByID, EditedDate = @EditedDate, VerifyByID = @VerifyByID, VerifyDate = @VerifyDate, RadCode3 = @RadCode3, RadCode4 = @RadCode4, Resultcode = @Resultcode, RadTech = @RadTech, InterpretationPureText = @InterpretationPureText WHERE RequestNum = @RequestNum; UPDATE tbCTRequest SET RequestDoctorCode = @DoctorID WHERE RequestNum = @RequestNum; if (select isnull(convert(varchar(10),Interpretation1),'') from RADIOLOGY..tbCTResult where RequestNum = @RequestNum) = '' BEGIN UPDATE RADIOLOGY..tbCTResult set Interpretation1 = @PreviousInterpretation where RequestNum = @RequestNum; END; else if (select isnull(convert(varchar(10),Interpretation2),'') from RADIOLOGY..tbCTResult where RequestNum = @RequestNum) = '' BEGIN UPDATE RADIOLOGY..tbCTResult set Interpretation2 = @PreviousInterpretation where RequestNum = @RequestNum; END; else if (select isnull(convert(varchar(10),Interpretation3),'') from RADIOLOGY..tbCTResult where RequestNum = @RequestNum) = '' BEGIN UPDATE RADIOLOGY..tbCTResult set Interpretation3 = @PreviousInterpretation where RequestNum = @RequestNum; END; END ELSE IF @Type = '2' /* XRay Department */ BEGIN UPDATE tbXRResult SET RadCode = @RadCode, RequestDoctorCode = @DoctorID, Interpretation = @Interpretation, Remarks = @Remarks, RadCode2 = @RadCode2, ResultDate = @ResultDate, ExamDate = @ExamDate, EditedByID = @EditedByID, EditedDate = @EditedDate, VerifyByID = @VerifyByID, VerifyDate = @VerifyDate, RadCode3 = @RadCode3, RadCode4 = @RadCode4, Resultcode = @Resultcode, RadTech = @RadTech, InterpretationPureText = @InterpretationPureText WHERE RequestNum = @RequestNum; UPDATE tbXRRequest SET RequestDoctorCode = @DoctorID WHERE RequestNum = @RequestNum; if (select isnull(convert(varchar(10),Interpretation1),'') from RADIOLOGY..tbXRResult where RequestNum = @RequestNum) = '' BEGIN UPDATE RADIOLOGY..tbXRResult set Interpretation1 = @PreviousInterpretation where RequestNum = @RequestNum; END; else if (select isnull(convert(varchar(10),Interpretation2),'') from RADIOLOGY..tbXRResult where RequestNum = @RequestNum) = '' BEGIN UPDATE RADIOLOGY..tbXRResult set Interpretation2 = @PreviousInterpretation where RequestNum = @RequestNum; END; else if (select isnull(convert(varchar(10),Interpretation3),'') from RADIOLOGY..tbXRResult where RequestNum = @RequestNum) = '' BEGIN UPDATE RADIOLOGY..tbXRResult set Interpretation3 = @PreviousInterpretation where RequestNum = @RequestNum; END; END ELSE IF @Type = '3' /* Ultrasound Department */ BEGIN UPDATE tbULResult SET RadCode = @RadCode, RequestDoctorCode = @DoctorID, Interpretation = @Interpretation, Remarks = @Remarks, RadCode2 = @RadCode2, ResultDate = @ResultDate, ExamDate = @ExamDate, EditedByID = @EditedByID, EditedDate = @EditedDate, VerifyByID = @VerifyByID, VerifyDate = @VerifyDate, RadCode3 = @RadCode3, RadCode4 = @RadCode4, Resultcode = @Resultcode, RadTech = @RadTech, InterpretationPureText = @InterpretationPureText WHERE RequestNum = @RequestNum; UPDATE tbULRequest SET RequestDoctorCode = @DoctorID WHERE RequestNum = @RequestNum; if (select isnull(convert(varchar(10),Interpretation1),'') from RADIOLOGY..tbULResult where RequestNum = @RequestNum) = '' BEGIN UPDATE RADIOLOGY..tbULResult set Interpretation1 = @PreviousInterpretation where RequestNum = @RequestNum; END; else if (select isnull(convert(varchar(10),Interpretation2),'') from RADIOLOGY..tbULResult where RequestNum = @RequestNum) = '' BEGIN UPDATE RADIOLOGY..tbULResult set Interpretation2 = @PreviousInterpretation where RequestNum = @RequestNum; END; else if (select isnull(convert(varchar(10),Interpretation3),'') from RADIOLOGY..tbULResult where RequestNum = @RequestNum) = '' BEGIN UPDATE RADIOLOGY..tbULResult set Interpretation3 = @PreviousInterpretation where RequestNum = @RequestNum; END; END ELSE IF @Type = '4' /* MRI Department */ BEGIN UPDATE tbMRIResult SET RadCode = @RadCode, RequestDoctorCode = @DoctorID, Interpretation = @Interpretation, Remarks = @Remarks, RadCode2 = @RadCode2, ResultDate = @ResultDate, ExamDate = @ExamDate, EditedByID = @EditedByID, EditedDate = @EditedDate, VerifyByID = @VerifyByID, VerifyDate = @VerifyDate, RadCode3 = @RadCode3, RadCode4 = @RadCode4, Resultcode = @Resultcode, RadTech = @RadTech, InterpretationPureText = @InterpretationPureText WHERE RequestNum = @RequestNum; UPDATE tbMRIRequest SET RequestDoctorCode = @DoctorID WHERE RequestNum = @RequestNum; UPDATE tbMRIRequest1 SET RequestDoctorCode = @DoctorID WHERE RequestNum = @RequestNum; if (select isnull(convert(varchar(10),Interpretation1),'') from RADIOLOGY..tbMRIResult where RequestNum = @RequestNum) = '' BEGIN UPDATE RADIOLOGY..tbMRIResult set Interpretation1 = @PreviousInterpretation where RequestNum = @RequestNum; END; else if (select isnull(convert(varchar(10),Interpretation2),'') from RADIOLOGY..tbMRIResult where RequestNum = @RequestNum) = '' BEGIN UPDATE RADIOLOGY..tbMRIResult set Interpretation2 = @PreviousInterpretation where RequestNum = @RequestNum; END; else if (select isnull(convert(varchar(10),Interpretation3),'') from RADIOLOGY..tbMRIResult where RequestNum = @RequestNum) = '' BEGIN UPDATE RADIOLOGY..tbMRIResult set Interpretation3 = @PreviousInterpretation where RequestNum = @RequestNum; END; END ELSE IF @Type = '5' /* Mammography Department */ BEGIN UPDATE tbMammoResult SET RadCode = @RadCode, RequestDoctorCode = @DoctorID, Interpretation = @Interpretation, Remarks = @Remarks, RadCode2 = @RadCode2, ResultDate = @ResultDate, ExamDate = @ExamDate, EditedByID = @EditedByID, EditedDate = @EditedDate, VerifyByID = @VerifyByID, VerifyDate = @VerifyDate, RadCode3 = @RadCode3, RadCode4 = @RadCode4, Resultcode = @Resultcode, RadTech = @RadTech, InterpretationPureText = @InterpretationPureText WHERE RequestNum = @RequestNum; UPDATE tbMammoMaster SET RequestDoctorCode = @DoctorID WHERE RequestNum = @RequestNum; if (select isnull(convert(varchar(10),Interpretation1),'') from RADIOLOGY..tbMammoResult where RequestNum = @RequestNum) = '' BEGIN UPDATE RADIOLOGY..tbMammoResult set Interpretation1 = @PreviousInterpretation where RequestNum = @RequestNum; END; else if (select isnull(convert(varchar(10),Interpretation2),'') from RADIOLOGY..tbMammoResult where RequestNum = @RequestNum) = '' BEGIN UPDATE RADIOLOGY..tbMammoResult set Interpretation2 = @PreviousInterpretation where RequestNum = @RequestNum; END; else if (select isnull(convert(varchar(10),Interpretation3),'') from RADIOLOGY..tbMammoResult where RequestNum = @RequestNum) = '' BEGIN UPDATE RADIOLOGY..tbMammoResult set Interpretation3 = @PreviousInterpretation where RequestNum = @RequestNum; END; END ELSE IF @Type = '6' /* OB Ultrasound */ BEGIN UPDATE tbOBULResult SET RadCode = @RadCode, RequestDoctorCode = @DoctorID, Interpretation = @Interpretation, Remarks = @Remarks, RadCode2 = @RadCode2, ResultDate = @ResultDate, ExamDate = @ExamDate, EditedByID = @EditedByID, EditedDate = @EditedDate, VerifyByID = @VerifyByID, VerifyDate = @VerifyDate, RadCode3 = @RadCode3, RadCode4 = @RadCode4, Resultcode = @Resultcode, RadTech = @RadTech, InterpretationPureText = @InterpretationPureText WHERE RequestNum = @RequestNum; UPDATE tbOBULRequest SET RequestDoctorCode = @DoctorID WHERE RequestNum = @RequestNum; if (select isnull(convert(varchar(10),Interpretation1),'') from RADIOLOGY..tbOBULResult where RequestNum = @RequestNum) = '' BEGIN UPDATE RADIOLOGY..tbOBULResult set Interpretation1 = @PreviousInterpretation where RequestNum = @RequestNum; END; else if (select isnull(convert(varchar(10),Interpretation2),'') from RADIOLOGY..tbOBULResult where RequestNum = @RequestNum) = '' BEGIN UPDATE RADIOLOGY..tbOBULResult set Interpretation2 = @PreviousInterpretation where RequestNum = @RequestNum; END; else if (select isnull(convert(varchar(10),Interpretation3),'') from RADIOLOGY..tbOBULResult where RequestNum = @RequestNum) = '' BEGIN UPDATE RADIOLOGY..tbOBULResult set Interpretation3 = @PreviousInterpretation where RequestNum = @RequestNum; END; END ELSE IF @Type = '7' /* Nuclear Department */ BEGIN UPDATE tbNucLogBook SET RadCode = @RadCode, RequestDoctorCode = @DoctorID, Interpretation = @Interpretation, Remarks = @Remarks, RadCode2 = @RadCode2, ResultDate = @ResultDate, ExamDate = @ExamDate, EditedByID = @EditedByID, EditedDate = @EditedDate, VerifyByID = @VerifyByID, VerifyDate = @VerifyDate, RadCode3 = @RadCode3, RadCode4 = @RadCode4, Resultcode = @Resultcode, RadTech = @RadTech, InterpretationPureText = @InterpretationPureText WHERE RequestNum = @RequestNum; UPDATE tbNucMaster SET RequestDoctorCode = @DoctorID WHERE RequestNum = @RequestNum; if (select isnull(convert(varchar(10),Interpretation1),'') from RADIOLOGY..tbNucLogBook where RequestNum = @RequestNum) = '' BEGIN UPDATE RADIOLOGY..tbNucLogBook set Interpretation1 = @PreviousInterpretation where RequestNum = @RequestNum; END; else if (select isnull(convert(varchar(10),Interpretation2),'') from RADIOLOGY..tbNucLogBook where RequestNum = @RequestNum) = '' BEGIN UPDATE RADIOLOGY..tbNucLogBook set Interpretation2 = @PreviousInterpretation where RequestNum = @RequestNum; END; else if (select isnull(convert(varchar(10),Interpretation3),'') from RADIOLOGY..tbNucLogBook where RequestNum = @RequestNum) = '' BEGIN UPDATE RADIOLOGY..tbNucLogBook set Interpretation3 = @PreviousInterpretation where RequestNum = @RequestNum; END; END ELSE BEGIN UPDATE tbResultMaster SET RadCode = @RadCode, RequestDoctorCode = @DoctorID, Interpretation = @Interpretation, Remarks = @Remarks, RadCode2 = @RadCode2, ResultDate = @ResultDate, ExamDate = @ExamDate, EditedByID = @EditedByID, EditedDate = @EditedDate, VerifyByID = @VerifyByID, VerifyDate = @VerifyDate, RadCode3 = @RadCode3, RadCode4 = @RadCode4, Resultcode = @Resultcode, RadTech = @RadTech, InterpretationPureText = @InterpretationPureText, revenueid = @revenueID WHERE RequestNum = @RequestNum and revenueid = @revenueid; UPDATE tbRequestMaster SET RequestDoctorCode = @DoctorID WHERE RevenueID = @revenueid and RequestNum = @RequestNum; if (select isnull(convert(varchar(10),Interpretation1),'') from RADIOLOGY..tbResultMaster where revenueid = @revenueid and RequestNum = @RequestNum) = '' BEGIN UPDATE RADIOLOGY..tbResultMaster set Interpretation1 = @PreviousInterpretation where revenueid = @revenueid and RequestNum = @RequestNum; END; else if (select isnull(convert(varchar(10),Interpretation2),'') from RADIOLOGY..tbNucLogBook where RequestNum = @RequestNum) = '' BEGIN UPDATE RADIOLOGY..tbResultMaster set Interpretation2 = @PreviousInterpretation where revenueid = @revenueid and RequestNum = @RequestNum; END; else if (select isnull(convert(varchar(10),Interpretation3),'') from RADIOLOGY..tbNucLogBook where RequestNum = @RequestNum) = '' BEGIN UPDATE RADIOLOGY..tbResultMaster set Interpretation3 = @PreviousInterpretation where revenueid = @revenueid and RequestNum = @RequestNum; END; END BEGIN if (select Settingvalue from Radiology..tbRISSettings where SettingID = '9') = '1' EXEC spRadio_SaveDraftVersion @Type,@RequestNum,@RadCode,@DoctorID,@Interpretation,@RadCode2, @ResultDate,@ExamDate,@VerifyByID,@VerifyDate END; if (select Settingvalue from Radiology..tbRISSettings where SettingID = '10') = '1' --RESULT PRINTING QUEUE KIOSK begin If isnull(@VerifyByID,'') <> '' begin UPDATE Radiology..tbRISPatientQueueNo SET Status = 'W' WHERE requestnum = @RequestNum and Revenueid = @revenueid end; end; GO USE [Billing] GO SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO ALTER PROCEDURE [dbo].[spCash_SaveMRI] @AssessID int AS declare @IDNum AS varChar(10), @ItemID AS varChar(8), @Quantity as float, @Amount AS Float, @HospNum AS varChar(8), @DoctorID AS varChar(4), @UserID AS varChar(8), @RefNum AS varChar(10), @RoomID as varchar(10), @DepartmentID as varchar(2), @DoctorName as varchar(50) DECLARE @RequestNum AS varChar(8), @RevenueID AS varChar(2), @DrCr AS varChar(1), @SlipNum as varchar(10), @DiscountType as varchar(2), @NetAmount as money DECLARE @ErrorCode int SET @ErrorCode = 0 SELECT @RefNum = RefNum FROM BILLING..tbCashCommunication WHERE AssessID = @AssessID; SELECT @DepartmentID = DepartmentID, @RevenueID = RevenueID, @ItemID = ItemID, @Quantity = Quantity, @Amount = Amount, @HospNum = HospNum, @DoctorID = RequestDocID, @UserID = UserID, @RefNum = ISNULL(@RefNum, ORNumber), @RoomID = 'OPD', @DiscountType = DiscountType, @NetAmount = NetAmount, @IDNum = IDNum, @DoctorName = DoctorName, @SlipNum = RefNum FROM BILLING..tbCashAssessment WHERE AssessID = @AssessID; IF @DepartmentID= 'MI' BEGIN SELECT @RequestNum = RTRIM(Convert(varChar(8), RequestNum)) FROM RADIOLOGY..tbMRIOpd UPDATE RADIOLOGY..tbMRIOpd SET RequestNum = RequestNum + 1 SET @ErrorCode = @@ERROR IF @ErrorCode <> 0 RETURN @ErrorCode SET @DrCr = 'D' INSERT INTO RADIOLOGY..tbMRIRequest (RequestNum, Transdate, HospNum, IDNum, Code, RequestDoctorCode, SWFIN, [By], Amount, RoomID, RefNum, Quantity, RevenueID, DoctorName, SlipNum, DiscountType, NetAmount) VALUES (@RequestNum, GetDate(), @Hospnum, @IDNum, @ItemID, @DoctorID, 'X', @UserID, @Amount, @RoomID, @Refnum, @Quantity, @RevenueID, @DoctorName, @SlipNum, @DiscountType, @NetAmount) SET @ErrorCode = @@ERROR IF @ErrorCode <> 0 RETURN @ErrorCode END UPDATE TBCASHCOMMUNICATION SET RECORDSTATUS = 'Y' WHERE ASSESSID = @AssessID AND ISNULL(RECORDSTATUS, '') = ''; SET @ErrorCode = @@ERROR IF @ErrorCode <> 0 RETURN @ErrorCode if (select Settingvalue from Radiology..tbRISSettings where SettingID = '10') = '1' begin --if @@ERROR <> 0 then goto exec Radiology..spRadio_SaveQueue @HospNum,@IDNum,@RequestNum,@UserID,@RevenueID,@RefNum end --SET @ErrorCode = @@ERROR --IF @ErrorCode <> 0 -- RETURN @ErrorCode RETURN @ErrorCode GO USE [Billing] GO /****** Object: StoredProcedure [dbo].[spCash_SaveCenterForWomenMaster] Script Date: 01/20/2014 16:55:27 ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO ALTER PROCEDURE [dbo].[spCash_SaveCenterForWomenMaster] @AssessID int AS declare @IDNum AS varChar(10), @ItemID AS varChar(8), @Quantity as float, @Amount AS Float, @HospNum AS varChar(8), @DoctorID AS varChar(4), @UserID AS varChar(8), @RefNum AS varChar(10), @RoomID as varchar(10), @DepartmentID as varchar(2), @DoctorName as varchar(50) DECLARE @RequestNum AS varChar(8), @RevenueID AS varChar(2), @DrCr AS varChar(1), @SlipNum as varchar(10), @DiscountType as varchar(2), @NetAmount as money DECLARE @ErrorCode int SET @ErrorCode = 0 SELECT @RefNum = RefNum FROM BILLING..tbCashCommunication WHERE AssessID = @AssessID; SELECT @DepartmentID = DepartmentID, @RevenueID = RevenueID, @ItemID = ItemID, @Quantity = Quantity, @Amount = Amount, @HospNum = HospNum, @DoctorID = RequestDocID, @UserID = UserID, @RefNum = ISNULL(@RefNum, ORNumber), @RoomID = 'OPD', @DiscountType = DiscountType, @NetAmount = NetAmount, @IDNum = IDNum, @DoctorName = DoctorName, @SlipNum = RefNum FROM BILLING..tbCashAssessment WHERE AssessID = @AssessID; SELECT @RequestNum = RTRIM(Convert(varChar(8), RequestNum)) FROM RADIOLOGY..tbOBULOpd UPDATE RADIOLOGY..tbOBULOpd SET RequestNum = RequestNum + 1 SET @ErrorCode = @@ERROR IF @ErrorCode <> 0 RETURN @ErrorCode SET @DrCr = 'D' INSERT INTO RADIOLOGY..tbOBULRequest (RequestNum, Transdate, HospNum, IDNum, Code, RequestDoctorCode, SWFIN, [By], Amount, RoomID, RefNum, Quantity, RevenueID, DoctorName, SlipNum, DiscountType, NetAmount) VALUES (@RequestNum, GetDate(), @Hospnum, @IDNum, @ItemID, @DoctorID, 'X', @UserID, @Amount, @RoomID, @Refnum, @Quantity, @RevenueID, @DoctorName, @SlipNum, @DiscountType, @NetAmount) SET @ErrorCode = @@ERROR IF @ErrorCode <> 0 RETURN @ErrorCode UPDATE TBCASHCOMMUNICATION SET RECORDSTATUS = 'Y' WHERE ASSESSID = @AssessID AND ISNULL(RECORDSTATUS, '') = ''; SET @ErrorCode = @@ERROR IF @ErrorCode <> 0 RETURN @ErrorCode if (select Settingvalue from Radiology..tbRISSettings where SettingID = '10') = '1' begin --if @@ERROR <> 0 then goto exec Radiology..spRadio_SaveQueue @HospNum,@IDNum,@RequestNum,@UserID,@RevenueID end --SET @ErrorCode = @@ERROR --IF @ErrorCode <> 0 -- RETURN @ErrorCode RETURN @ErrorCode GO