USE [Radiology]
GO
/****** Object:  StoredProcedure [dbo].[spRadio_InCancellation3]    Script Date: 6/26/2024 5:23:29 PM ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[spRadio_InCancellation3]
@Type AS varChar(5),
@RequestNum AS varChar(8),
@IDNum AS varChar(10),
@ItemID AS varChar(8), 
@Amount AS Float,
@RefNum As varChar(20),
@UserID as varchar(10),
@RevenueID AS varChar(2) 

AS

--DECLARE @RevenueID AS varChar(2) 
DECLARE @Quantity as float
DECLARE @RoomID as varchar(10)
DECLARE @RequestDocID as varchar(10)

DECLARE @ifCancelled as Integer

	SET @ifCancelled = (SELECT TOP 1 SUM(Amount)[Amount] 
						FROM billing..tbBillDailyBill 
						WHERE refnum = @RefNum and RevenueID = @RevenueID and ItemID = @ItemID
						GROUP BY RefNum,IdNum,ItemID,RevenueID)

	IF RIGHT(@Refnum,2) in ('RO','PC')
		Begin
			SELECT Top 1 @Type = GType
			FROM Radiology..tbRadiologyRevenues 
			WHERE RefNumSuffix LIKE RIGHT(@Refnum,2)
		End
	ELSE
		Begin
			SELECT Top 1 @Type = GType 
			FROM Radiology..tbRadiologyRevenues 
			WHERE RefNumSuffix LIKE RIGHT(@Refnum,1)
		End

     IF @Type = '1'
         BEGIN

		SELECT @Quantity = Quantity * (-1),
		       @RoomID = RoomID,
		       @RequestDocID = RequestDoctorCode
		FROM tbCTRequest
		WHERE RequestNum = @RequestNum

              /* Update the Record Status */
              UPDATE tbCTRequest SET SwFin = 'C' 
              WHERE RequestNum = @RequestNum

              /*Append cancelled RefNum */
			IF @ifCancelled <> 0
				BEGIN
					INSERT INTO billing..tbBillDailyBill (Refnum, IDNum, Transdate, ItemID, Amount, 
						DrCr, RevenueID, UserID, RequestNum, Quantity, RoomID, RequestDocID)
					VALUES (@Refnum, @IDNum, GetDate(), @ItemID, (@Amount * -1), 'D',
						@RevenueID, @UserID, @RequestNum, @Quantity, @RoomID, @RequestDocID)
				END
		 END

    ELSE IF @Type = '2'
         BEGIN


		SELECT @Quantity = Quantity * (-1),
		       @RoomID = RoomID,
		       @RequestDocID = RequestDoctorCode
		FROM tbXRRequest
		WHERE RequestNum = @RequestNum

	 /* Update the Record Status  */
              UPDATE tbXRRequest SET SwFin = 'C' 
              WHERE RequestNum = @RequestNum

              /* Append cancelled RefNum */
			IF @ifCancelled <> 0
				BEGIN
					INSERT INTO billing..tbBillDailyBill (Refnum, IDNum, Transdate, ItemID, Amount, 
						DrCr, RevenueID, UserID, RequestNum, Quantity, RoomID, RequestDocID)
					VALUES (@Refnum, @IDNum, GetDate(), @ItemID, (@Amount * -1), 'D',
						@RevenueID, @UserID, @RequestNum, @Quantity, @RoomID, @RequestDocID)
				END
         END

     ELSE IF  @Type = '3'
         BEGIN


		SELECT @Quantity = Quantity * (-1),
		       @RoomID = RoomID,
		       @RequestDocID = RequestDoctorCode
		FROM tbULRequest
		WHERE RequestNum = @RequestNum

             /* Update Record Status */
              UPDATE tbULRequest SET SwFin = 'C' 
              WHERE RequestNum = @RequestNum

              /* Append cancelled RefNum */
			IF @ifCancelled <> 0
				BEGIN
					INSERT INTO billing..tbBillDailyBill (Refnum, IDNum, Transdate, ItemID, Amount, 
						DrCr, RevenueID, UserID, RequestNum, Quantity, RoomID, RequestDocID)
					VALUES (@Refnum, @IDNum, GetDate(), @ItemID, (@Amount * -1), 'D',
						@RevenueID, @UserID, @RequestNum, @Quantity, @RoomID, @RequestDocID)
				END
         END

     ELSE IF  @Type = '4'
         BEGIN


		SELECT @Quantity = Quantity * (-1),
		       @RoomID = RoomID,
		       @RequestDocID = RequestDoctorCode
		FROM tbMRIRequest
		WHERE RequestNum = @RequestNum

             /* Update Record Status */
              UPDATE tbMRIRequest SET SwFin = 'C' 
              WHERE RequestNum = @RequestNum

              /* Append cancelled RefNum */
			IF @ifCancelled <> 0
				BEGIN
					INSERT INTO billing..tbBillDailyBill (Refnum, IDNum, Transdate, ItemID, Amount, 
						DrCr, RevenueID, UserID, RequestNum, Quantity, RoomID, RequestDocID)
					VALUES (@Refnum, @IDNum, GetDate(), @ItemID, (@Amount * -1), 'D',
						@RevenueID, @UserID, @RequestNum, @Quantity, @RoomID, @RequestDocID)
				END
         END
         

     ELSE IF  @Type = '5'
         BEGIN


		SELECT @Quantity = Quantity * (-1),
		       @RoomID = RoomID,
		       @RequestDocID = RequestDoctorCode
		FROM tbMammoMaster
		WHERE RequestNum = @RequestNum

             /* Update Record Status */
              UPDATE tbMammoMaster SET SWMRK = 'C' 
              WHERE RequestNum = @RequestNum

              /* Append cancelled RefNum */
			IF @ifCancelled <> 0
				BEGIN
					INSERT INTO billing..tbBillDailyBill (Refnum, IDNum, Transdate, ItemID, Amount, 
						DrCr, RevenueID, UserID, RequestNum, Quantity, RoomID, RequestDocID)
					VALUES (@Refnum, @IDNum, GetDate(), @ItemID, (@Amount * -1), 'D',
						@RevenueID, @UserID, @RequestNum, @Quantity, @RoomID, @RequestDocID)
				END
         END
         


     ELSE IF  @Type = '6'
         BEGIN


		SELECT @Quantity = Quantity * (-1),
		       @RoomID = RoomID,
		       @RequestDocID = RequestDoctorCode
		FROM tbOBULRequest
		WHERE RequestNum = @RequestNum

             /* Update Record Status */
              UPDATE tbOBULRequest SET SwFin = 'C' 
              WHERE RequestNum = @RequestNum

              /* Append cancelled RefNum */
			IF @ifCancelled <> 0
				BEGIN
					INSERT INTO billing..tbBillDailyBill (Refnum, IDNum, Transdate, ItemID, Amount, 
						DrCr, RevenueID, UserID, RequestNum, Quantity, RoomID, RequestDocID)
					VALUES (@Refnum, @IDNum, GetDate(), @ItemID, (@Amount * -1), 'D',
						@RevenueID, @UserID, @RequestNum, @Quantity, @RoomID, @RequestDocID)
				END
         END


     ELSE IF  @Type = '7'
         BEGIN

		SELECT 
				--@Quantity = Quantity * (-1),
		       @RoomID = RoomID,
		       @RequestDocID = RequestDoctorCode
		FROM tbNucMaster
		WHERE RequestNum = @RequestNum

             /* Update Record Status */
              UPDATE tbNucMaster SET RequestStatus = 'C' 
              WHERE RequestNum = @RequestNum

              /* Append cancelled RefNum */
			IF @ifCancelled <> 0
				BEGIN
					INSERT INTO billing..tbBillDailyBill (Refnum, IDNum, Transdate, ItemID, Amount, 
						DrCr, RevenueID, UserID, RequestNum, Quantity, RoomID, RequestDocID)
					VALUES (@Refnum, @IDNum, GetDate(), @ItemID, (@Amount * -1), 'D',
						@RevenueID, @UserID, @RequestNum, @Quantity, @RoomID, @RequestDocID)
				END
         END
         
     ELSE
         BEGIN

		SELECT 
				--@Quantity = Quantity * (-1),
		       @RoomID = RoomID,
		       @RequestDocID = RequestDoctorCode
		FROM tbrequestmaster
		WHERE RequestNum = @RequestNum and revenueid = @revenueid

             /* Update Record Status */
              UPDATE tbrequestmaster SET SwFin = 'C' 
              WHERE RequestNum = @RequestNum  and revenueid = @revenueid

              /* Append cancelled RefNum */
			IF @ifCancelled <> 0
				BEGIN
					INSERT INTO billing..tbBillDailyBill (Refnum, IDNum, Transdate, ItemID, Amount, 
						DrCr, RevenueID, UserID, RequestNum, Quantity, RoomID, RequestDocID)
					VALUES (@Refnum, @IDNum, GetDate(), @ItemID, (@Amount * -1), 'D',
						@RevenueID, @UserID, @RequestNum, @Quantity, @RoomID, @RequestDocID)
				END
         END 
         
         --Added (June 2, 2015)
			If exists(Select idnum from station..tbNurseLogbook where idNum = @idnum)
			Begin
				UPDATE Station..tbNurseLogBook
				Set RecordStatus = 'R', ChangeBy = @UserID, ChangeDate = GETDATE()
				WHERE IDnum = @IDNum and RevenueID = @RevenueID and ItemID = @ItemID
			End
			
			If exists(Select idnum From Station..tbNurseCommunicationFile)
			Begin
				UPDATE Station..tbNurseCommunicationFile
				Set RecordStatus = 'R' 
				WHERE IDnum = @IDNum and RevenueID = @RevenueID and ItemID = @ItemID
			End