USE [RADIOLOGY]
GO
/****** Object:  StoredProcedure [dbo].[spRadio_ResultPrint]    Script Date: 9/13/2024 10:37:49 AM ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[spRadio_ResultPrint]
@Patient 	AS varChar(90),
@HospNum 	AS varChar(15),
@Doctor 	AS varChar(60),
@Examination 	AS varChar(60),
@CivilStatus 	AS varChar(15),
@Age 		AS varChar(3),
@Sex 		AS varChar(6),
@AdmNum 	AS varChar(15),
@CTNum 		AS varChar(15),
@RoomNo 	AS varChar(25),
@ExamDate 	AS DateTime,
@Interpretation AS Text,
@Radiologist 	AS varChar(60),
@Address 	AS varChar(60),
@TelNo		AS varChar(15),
@FileNum	AS varChar(10),
@ControlNum	AS varChar(10),
@UserID		AS varchar(10),
@Radiologist2 	AS varchar(60),
@Remarks 	AS text ,
@Tracing 	as varchar(1) = '',
@RadiologyID as varchar(10) = '',
@Radiologist3 as varchar(60) = null,
@Radiologist4 as varchar(60) = null,
@RevenueID as Varchar(3) = '',
@ExamDate1 as datetime = null,
@Equipment as varchar(100) = '',
@ResultFindings As varchar(50) = '0|0|0|0|0|0|0',
@Numcase As varchar(50)= null

AS

DECLARE @cHospNum as varchar(10)
DECLARE @PatientClass as varchar(1)
DECLARE @Classification as varchar(50)
Declare @StudyDate as varchar(50)

Declare @Verifydate as datetime
Set @Verifydate = (select Top 1 cast(VerifyDate as datetime) From tbRadiologyRequests where RequestNum = @CTNum and RevenueID = @RevenueID)

DECLARE @ChiefComplaint as varchar(200), @AdmDiagnosis  as varchar(200), @Verifier as varchar(100), @Company as varchar(250),
@Birthdate as varchar(20),
@Refnum as varchar(20)


set @Doctor = Replace(@Doctor,', M.D.','')

DECLARE @PRCLIC as varchar(50)

set @PRCLIC = (SELECT License FROM BUILD_FILE..tbcodoctor where DoctorID = @RadiologyID)


if @Hospnum = 'CASH'
 begin
  SET @cHospNum = 'OPD'
 end
else
 begin
  SET @cHospNum = @HospNum
 end

set @PatientClass = ''
if Isnumeric(right(@AdmNum,1)) = 1
  begin
    select @PatientClass = ''
  end

if @PatientClass = 'S' 
  set @Classification = 'SERVICE'
else
if @PatientClass = 'P' 
  set @Classification = 'PAY'
else
  set @Classification = ''

select @chiefcomplaint = ISNULL(chiefcomplaint,'') from patient_data..tbpatienthistory where idnum = @AdMnum
select @AdmDiagnosis = ISNULL(AdmDiagnosis,'') from patient_data..tbpatienthistory where idnum = @AdMnum
select @Verifier = ISNULL(LastName,'') + ', ' + ISNULL(FirstName,'') + ' ' + ISNULL(MiddleName,'') from password..tbpasswordmain where employeeid = @UserID--@VerifyByID

If Exists(select 1 from RADIOLOGY..tbRadiologyResults where RevenueID = @RevenueID and RequestNum = @CTNum)
	Begin
		set @ExamDate = (select ExamDate from RADIOLOGY..tbRadiologyResults where RevenueID = @RevenueID and RequestNum = @CTNum)--jecs
	End
Else
	Begin
		set @ExamDate = (Select top 1 TransDate from RADIOLOGY..tbRadiologyRequests where RevenueID = @RevenueID and RequestNum = @CTNum)	
	End

DELETE tbRadioResult 
WHERE UserID = @UserID;

if Isnumeric(right(@AdmNum,1)) = 1
	Begin
		select @Company = IsNull(Company,'') 
		from Patient_data..tbPatient P 
		Left outer join Build_file..tbCoCompany C  on P.AccountNum = C.AccountNum 
		
		where P.IDNum = @AdmNum
	End
else
	Begin
		select @Company = IsNull(Company,'') 
		from Patient_data..tbOutPatient P 
		Left outer join Build_file..tbCoCompany C  on P.AccountNum = C.AccountNum 
		
		where P.IDNum = @AdmNum	End
	
SELECT @BirthDate = bIRTHDATE FROM Patient_Data..tbmaster WHERE HospNum = @HospNum;
Set @Refnum = (select Top 1 refnum From tbRadiologyRequests where RequestNum = @CTNum and RevenueID = @RevenueID);

Set @StudyDate = (select Top 1 VerifyDate From tbRadiologyRequests where RequestNum = @CTNum and RevenueID = @RevenueID);

INSERT INTO tbRadioResult 
	(PatientName, HospNum, Doctor, Examination, CivilStatus, 
	Age, Sex, AdmNum, CTNum, RoomNo, 
	ExamDate, Interpretation, Radiologist, Address, TelNo, 
	FileNum, ControlNum, UserID, Radiologist2, Remarks, 
	Tracing, RadiologyID, Radiologist3, Radiologist4, CHIEFCOMPLAINT, 
	ADMDIAGNOSIS, REVENUEID, VERIFIER, Equipment,TransDate,ResultFindings,BirthDate,RefNum,AccountNum,Studydate,PRCLIC,ResultDate)
VALUES(
	@Patient, @cHospNum, Replace(@Doctor,'',', M.D.'), @Examination, @CivilStatus, 
	@Age, @Sex, @AdmNum, @CTNum, ltrim(rtrim(@RoomNo)), 
	@ExamDate,replace(cast(@Interpretation as varchar(5000)),'`',''''), @Radiologist, @Address, @TelNo, 
	@FileNum, @ControlNum, @UserID, @Radiologist2, @Remarks, 
	@Tracing, @RadiologyID, @Radiologist3, @Radiologist4, @ChiefComplaint,
	@AdmDiagnosis, @RevenueID, @Verifier, @Equipment, @ExamDate1,@ResultFindings,@Birthdate,@Refnum,@Company,@StudyDate,@PRCLIC,@Verifydate)