USE [RADIOLOGY]
GO
/****** Object:  StoredProcedure [dbo].[spRadio_SaveOutCharge]    Script Date: 7/17/2023 4:21:10 PM ******/
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 varchar(50) = '',
	@StatDesc varchar(100) = '',
	@Remarks varchar(255) = ''
AS


DECLARE @RequestNum AS varChar(8), 
		@DrCr AS varChar(1), 
		@ItemDesc as varchar(50)


If @DoctorID <> '0'
  Begin
	set @DoctorName = null;
  End

IF @Type = '1'            /* CT-Scan */
     BEGIN
		Set @ItemDesc = (Select CTExam from Build_File..tbCoCTExam where CtExamID = @ItemID)
		
REGENERATE_1:        
		SELECT @RequestNum = RTRIM(Convert(varChar(8), RequestNum)) FROM tbCTOpd
        UPDATE tbCTOpd SET RequestNum = RequestNum + 1
        
		if exists(select requestnum from tbCTRequest where requestnum = @Requestnum)
			begin
				GOTO REGENERATE_1
			end
		
		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,Precaution,ImagingReason,SurgicalReason,Remarks)
        VALUES 
           (@RequestNum, GetDate(), @Hospnum, @IDNum, 
               @ItemID, @DoctorID, 'X', @UserID,
               @Amount, @RoomID, @RefNum, @Quantity, @NurseRemarks, 
				@DoctorName, @RevenueID, @Portable, @NurseRequestNum,
				@Media,@Creatinine, @EKG, @Oximeter, @Particular,
				@Relevant,@Precaution,@ImagingReason,@SurgicalReason,@Remarks) 
     END
     
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;

REGENERATE_2:			
        SELECT @RequestNum = RTRIM(Convert(varChar(8), RequestNum)) FROM tbXROpd
        UPDATE tbXROpd SET RequestNum = RequestNum + 1

		if exists(select requestnum from tbXRRequest where requestnum = @Requestnum)
			begin
				GOTO REGENERATE_2
			end
		
        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,Remarks)
        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,@Remarks) 
     END

IF @Type = '3'            /* Ultrasound */
     BEGIN
		Set @ItemDesc = (Select UltraExam from Build_File..tbCoUltraExam where UltraExamID = @ItemID)

REGENERATE_3:        
		SELECT @RequestNum = RTRIM(Convert(varChar(8), RequestNum)) FROM tbULOpd
        UPDATE tbULOpd SET RequestNum = RequestNum + 1
        
		if exists(select requestnum from tbULRequest where requestnum = @Requestnum)
			begin
				GOTO REGENERATE_3
			end		
		
		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,Remarks)
        VALUES 
			(@RequestNum, GetDate(), @Hospnum, @IDNum, 
			@ItemID, @DoctorID, 'X', @UserID,
			@Amount, @RoomID, @Refnum, @Quantity,
			@NurseRemarks, @DoctorName, @RevenueID, @Portable,
			@NurseRequestNum, @ImagingReason, @SurgicalReason,@Remarks) 
	END

IF @Type = '4'            /* MRI */
     BEGIN
		Set @ItemDesc = (Select OtherRevenue from Build_File..tbCoOtherRevenue where OtherRevenueID = @ItemID and OtherRevenueID in ('MI','MS','MR'))
        
REGENERATE_4:
		SELECT @RequestNum = RTRIM(Convert(varChar(8),RequestNum)) FROM tbMRIRequestNum
        UPDATE tbMRIRequestNum SET RequestNum = RequestNum + 1

		if exists(select requestnum from tbMRIRequest where requestnum = @Requestnum)
			begin
				GOTO REGENERATE_4
			end			
				
		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,Remarks)
        VALUES 
			(@RequestNum, GetDate(), @Hospnum, @IDNum, 
			@ItemID, @DoctorID, 'X', @UserID,
			@Amount, @RoomID, @Refnum, @Quantity,
			@NurseRemarks, @DoctorName, @RevenueID, @Portable,
			@NurseRequestNum, @ImagingReason, @SurgicalReason,@Remarks) 
	END

IF @Type = '5'            /* Mammogram */
     BEGIN
		Set @ItemDesc = (Select OtherRevenue from Build_File..tbCoOtherRevenue where OtherRevenueID = @ItemID and OtherRevenueID in ('MM','MG'))
        
REGENERATE_5:
		UPDATE tbMammoSlip SET RequestNum = RequestNum + 1
		SELECT @RequestNum = RTRIM(Convert(varChar(8),RequestNum)) FROM tbMammoSlip

		if exists(select requestnum from tbMammoMaster where requestnum = @Requestnum)
			begin
				GOTO REGENERATE_5
			end
		
        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,Remarks)
        VALUES 
			(@RequestNum, GetDate(), @Hospnum, @IDNum, 
			@ItemID, @DoctorID, 'X', @UserID,
			@Amount, @RoomID, @Refnum, @Quantity,
			@NurseRemarks, @DoctorName, @RevenueID, @Portable,
			@NurseRequestNum, @ImagingReason, @SurgicalReason,@Remarks) 
	END

IF @Type = '6'            /* OB Ultrasound */
     BEGIN
		Set @ItemDesc = (Select OtherRevenue from Build_File..tbCoOtherRevenue where OtherRevenueID = @ItemID and OtherRevenueID  in ('WC','PG','O1'))
        
REGENERATE_6:
		SELECT @RequestNum = RTRIM(Convert(varChar(12),RequestNum)) FROM tbOBULOpd
        UPDATE tbOBULOpd SET RequestNum = RequestNum + 1
		
		if exists(select requestnum from tbOBULRequest where requestnum = @Requestnum)
			begin
				GOTO REGENERATE_6
			end
			
		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,Remarks)
        VALUES 
			(@RequestNum, GetDate(), @Hospnum, @IDNum, 
			@ItemID, @DoctorID, 'X', @UserID,
			@Amount, @RoomID, @Refnum, @Quantity,
			@NurseRemarks, @DoctorName, @RevenueID, @Portable,
			@NurseRequestNum, @ImagingReason, @SurgicalReason,@Remarks) 
	END

IF @Type = '7'            /* Nuclear */
     BEGIN
		Set @ItemDesc = (Select Description from Radiology..tbBillExamListing where ItemID = @ItemID and RevenueID = 'NU')
        
REGENERATE_7:
		SELECT @RequestNum = RTRIM(Convert(varChar(8),RequestNum)) FROM Nuclear..tbNucSlip
        UPDATE Nuclear..tbNucSlip SET RequestNum = RequestNum + 1
		
		if exists(select requestnum from Nuclear..tbNucMaster where requestnum = @Requestnum)
			begin
				GOTO REGENERATE_7
			end
		
		SET @DrCr = 'D'

        INSERT INTO Nuclear..tbNucMaster 
			(RequestNum, Transdate, HospNum, IDNum,
			ItemID, DoctorId, RequestStatus, UserID,
			Amount, RoomID, RefNum, Quantity, 
			NurseRemarks, DoctorName, RevenueID, Portable, 
			NurseRequest, ImagingReason, SurgicalReason,Remarks)
        VALUES 
			(@RequestNum, GetDate(), @Hospnum, @IDNum, 
			@ItemID, @DoctorID, 'X', @UserID,
			@Amount, @RoomID, @Refnum, @Quantity,
			@NurseRemarks, @DoctorName, @RevenueID, @Portable,
			@NurseRequestNum, @ImagingReason, @SurgicalReason,@Remarks) 
	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)
      VALUES 
         (@Hospnum, @Refnum, @IDNum, Getdate(), @ItemID, @Amount, 
             @DrCr, @RevenueID, @RoomID, @UserID, @DoctorID, @Quantity, @RequestNum, @DoctorName)
end

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