USE [Billing]
GO
SET ANSI_NULLS OFF
GO
SET QUOTED_IDENTIFIER ON
GO


ALTER  PROCEDURE [dbo].[spCash_SaveRadioMaster]
@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(15),
	@RoomID as varchar(10),
	@DepartmentID as varchar(2),
	@DoctorName as varchar(50),
	@ReaderID as varchar(50),
	@ReaderFee as float

DECLARE @RequestNum AS varChar(8), 
	@RevenueID AS varChar(2), 
	@DrCr AS varChar(1),
	@SlipNum as varchar(10),
	@DiscountType as varchar(2),
	@NetAmount as money,
	@EmailResult as varchar(1)

DECLARE @ErrorCode int

SET @ErrorCode = 0
/*
SELECT 	@DepartmentID = DepartmentID,
	@RevenueID = RevenueID,
	@ItemID = ItemID,
	@Quantity = Quantity,
	@Amount = Amount,
	@HospNum = HospNum,
	@DoctorID = RequestDocID,
	@UserID = UserID,
	@RefNum = RefNum,
	@RoomID = RoomID,
	@DiscountType = DiscountType,
	@NetAmount = NetAmount
FROM BILLING..tbCashCommunication
WHERE AssessID = @AssessID;
*/

SELECT 	@IDNum = IDNum,
	@DepartmentID = DepartmentID,
	@RevenueID = RevenueID,
	@ItemID = ItemID,
	@Quantity = Quantity,
	@Amount = Amount,
	@HospNum = HospNum,
	@DoctorID = RequestDocID,
	@UserID = UserID,
	@ReaderID = ProfID1,
	@ReaderFee = ProfFee1,
	@DiscountType = DiscountType,
	@NetAmount = NetAmount,
	@EmailResult = EmailResult
FROM BILLING..tbCashAssessment
WHERE AssessID = @AssessID;

select @RefNum = Refnum
From Billing..tbCashCommunication
Where AssessID = @AssessID

SELECT	@DoctorName = DoctorName,
	@SlipNum = RefNum
FROM BILLING..tbCashAssessment
WHERE AssessID = @AssessID

IF LEN(isnull(@DepartmentID, '')) = 0
BEGIN
  SET @DepartmentID = @RevenueID
END

IF @DepartmentID = 'CT'            /* CT-Scan */
     BEGIN
        SELECT @RequestNum = RTRIM(Convert(varChar(8), RequestNum)) 
	FROM RADIOLOGY..tbCTOpd
        
	UPDATE RADIOLOGY..tbCTOpd SET RequestNum = RequestNum + 1

        SET @ErrorCode = @@ERROR

        IF @ErrorCode <> 0
          RETURN @ErrorCode

        SET @DrCr = 'D'       

        INSERT INTO RADIOLOGY..tbCTRequest 
	   (RequestNum, Transdate, HospNum, IDNum,
               	Code, RequestDoctorCode, SWFIN, [By],
		Amount, RoomID, RefNum, Quantity, RevenueID, DoctorName,
		SlipNum, DiscountType, NetAmount,EmailResult)
        VALUES 
           (@RequestNum, GetDate(), @Hospnum, @IDNum, 
		@ItemID, @DoctorID, 'X', @UserID,
		@Amount, @RoomID, @RefNum, @Quantity, @RevenueID, @DoctorName,
		@SlipNum, @DiscountType, @NetAmount,@EmailResult);
        SET @ErrorCode = @@ERROR

        IF @ErrorCode <> 0
          RETURN @ErrorCode
     END
     
ELSE  IF @DepartmentID = 'XR'            /* XRay */
     BEGIN
        SELECT @RequestNum = RTRIM(Convert(varChar(8), RequestNum)) 
	FROM RADIOLOGY..tbXROpd
        
	UPDATE RADIOLOGY..tbXROpd SET RequestNum = RequestNum + 1
        SET @DrCr = 'D'

        SET @ErrorCode = @@ERROR

        IF @ErrorCode <> 0
          RETURN @ErrorCode

        INSERT INTO RADIOLOGY..tbXRRequest 
           (RequestNum, Transdate, HospNum, IDNum,
               	Code, RequestDoctorCode, Amount, SWFIN, [By],
               	RoomID, Refnum, Quantity, RevenueID, DoctorName,
		SlipNum, DiscountType, NetAmount,emailresult)
        VALUES 
           (@RequestNum, GetDate(), @Hospnum, @IDNum, 
               	@ItemID, @DoctorID, @Amount, 'X', @UserID, 
               	@RoomID, @RefNum, @Quantity, @RevenueID, @DoctorName,
		@SlipNum, @DiscountType, @NetAmount,@EmailResult)

        SET @ErrorCode = @@ERROR

        IF @ErrorCode <> 0
          RETURN @ErrorCode
     END

ELSE IF @DepartmentID = 'US'            /* Ultrasound */
     BEGIN
        SELECT @RequestNum = RTRIM(Convert(varChar(8), RequestNum))
	FROM RADIOLOGY..tbULOpd

        UPDATE RADIOLOGY..tbULOpd SET RequestNum = RequestNum + 1

        SET @ErrorCode = @@ERROR

        IF @ErrorCode <> 0
          RETURN @ErrorCode

        SET @DrCr = 'D'

        INSERT INTO RADIOLOGY..tbULRequest 
            (RequestNum, Transdate, HospNum, IDNum,
               	Code, RequestDoctorCode, SWFIN, [By],
               	Amount, RoomID, RefNum, Quantity, RevenueID, DoctorName,
		SlipNum, DiscountType, NetAmount,EmailResult)
        VALUES 
            (@RequestNum, GetDate(), @Hospnum, @IDNum, 
               @ItemID, @DoctorID, 'X', @UserID,
               @Amount, @RoomID, @Refnum, @Quantity, @RevenueID, @DoctorName,
		@SlipNum, @DiscountType, @NetAmount,@EmailResult)

        SET @ErrorCode = @@ERROR

        IF @ErrorCode <> 0
          RETURN @ErrorCode
     END
     

ELSE IF @DepartmentID = 'WH'            /*WOMENS HEALTH IMAGING CENTER*/
     BEGIN
        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,EmailResult)
        VALUES 
            (@RequestNum, GetDate(), @Hospnum, @IDNum, 
               @ItemID, @DoctorID, 'X', @UserID,
               @Amount, @RoomID, @Refnum, @Quantity, @RevenueID, @DoctorName,
		@SlipNum, @DiscountType, @NetAmount,@EmailResult)

        SET @ErrorCode = @@ERROR

        IF @ErrorCode <> 0
          RETURN @ErrorCode
     END
          
ELSE
/*GLOBAL REQUESTMASTER TABLE FOR R.I.S*/
     BEGIN
        SELECT @RequestNum = RTRIM(Convert(varChar(8), RequestNum))  FROM RADIOLOGY..tbradiologyrevenues where RevenueId = @RevenueID
        UPDATE RADIOLOGY..tbradiologyrevenues SET RequestNum = RequestNum + 1 where RevenueId = @RevenueID

        SET @ErrorCode = @@ERROR

        IF @ErrorCode <> 0
          RETURN @ErrorCode

        SET @DrCr = 'D'       

        INSERT INTO RADIOLOGY..TbRequestMaster 
	   (RequestNum, Transdate, HospNum, IDNum,
               	Code, RequestDoctorCode, SWFIN, [By],
		Amount, RoomID, RefNum, Quantity, RevenueID, DoctorName,
		SlipNum, DiscountType, NetAmount,EmailResult)
        VALUES 
           (@RequestNum, GetDate(), @Hospnum, @IDNum, 
		@ItemID, @DoctorID, 'X', @UserID,
		@Amount, @RoomID, @RefNum, @Quantity, @RevenueID, @DoctorName,
		@SlipNum, @DiscountType, @NetAmount,@EmailResult);
        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

GO