USE [RADIOLOGY]
GO
/****** Object:  StoredProcedure [dbo].[spRadio_SaveInCharge]    Script Date: 7/17/2023 1:29:19 PM ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO

ALTER PROCEDURE [dbo].[spRadio_SaveInCharge]
@Type AS varChar(1), 
@IDNum AS varChar(10), 
	@ItemID AS varChar(8),
	@TypeDescription as varchar(30), 
	@Quantity as float,
	@Amount AS Float, 
	@HospNum AS varChar(8),
	@DoctorID AS varChar(4),
	@RoomID AS varChar(8),
	@UserID AS varChar(10),
	@RefNum 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,
	@ChargeRevenueID as varchar(2) = '',
	@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) = '',
	@StatDesc varchar(30) = '',
	@StatDesc2 varchar(30) = '',
	@Remarks varchar(255) = ''
AS

DECLARE @RequestNum AS varChar(8), 
        @DrCr AS varChar(1),
		@UltrarevenueID as Varchar(2)


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

IF @Type = '1'            /* CT-Scan */
     BEGIN
	 
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 @RevenueID = 'CT'
        SET @DrCr = 'D'       

        INSERT INTO tbCTRequest 
            (RequestNum, TransDate, HospNum, IDNum,
                Code, RequestDoctorCode, Amount,
                RoomID, RefNum, Quantity, SWFIN, [By], NurseRemarks, 
				DoctorName, revenueID, Portable, NurseRequest,
				Media,Creatinine, EKG, Oximeter,Particular,
				Relevant,Precaution,ImagingReason,SurgicalReason,Remarks)
         VALUES 
            (@RequestNum, GetDate(), @Hospnum, @IDNum, 
                @ItemID, @DoctorID, @Amount, 
                @RoomID, @RefNum, @Quantity, 'X', @UserID, @NurseRemarks, 
				@DoctorName, @RevenueID, @Portable, @NurseRequestNum,
				@Media,@Creatinine, @EKG, @Oximeter, @Particular,
				@Relevant,@Precaution,@ImagingReason,@SurgicalReason,@Remarks)
     END
     
IF @Type = '2'            /* XRay */
     BEGIN
	 
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 @RevenueID = 'XR'
        SET @DrCr = 'D'

        INSERT INTO tbXRRequest 
            (RequestNum, Transdate, HospNum, IDNum,
                Code, RequestDoctorCode, Amount,
                RoomID, RefNum, Quantity, SWFIN, [By],
                Film1, Film2, Film3, Film4, Film5, Film6, Film7, 
				NurseRemarks, DoctorName, RevenueID, Portable, 
				NurseRequest,ImagingReason,SurgicalReason,Remarks)
         VALUES 
            (@RequestNum, GetDate(), @Hospnum, @IDNum, 
                @ItemID, @DoctorID, @Amount, 
                @RoomID, @RefNum, @Quantity, 'X', @UserID,
                @Film1, @Film2, @Film3, @Film4, @Film5, @Film6, @Film7, 
				@NurseRemarks, @DoctorName, @RevenueID, @Portable, 
				@NurseRequestNum,@ImagingReason,@SurgicalReason,@Remarks)
     END

IF @Type = '3'            /* Ultrasound */
     BEGIN
	 
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 @RevenueID = 'US'
        SET @DrCr = 'D'

        INSERT INTO tbULRequest 
            (RequestNum, Transdate, HospNum, IDNum,
                Code, RequestDoctorCode, Amount,
                RoomID, RefNum, Quantity, SWFIN, [By], 
				NurseRemarks, DoctorName, RevenueID, portable, 
				NurseRequest,ImagingReason,SurgicalReason,Remarks)
         VALUES (@RequestNum, GetDate(), @Hospnum, @IDNum, 
                @ItemID, @DoctorID, @Amount, 
                @RoomID, @RefNum, @Quantity, 'X', @UserID, 
				@NurseRemarks, @DoctorName, @RevenueID, @Portable, 
				@NurseRequestNum,@ImagingReason,@SurgicalReason,@Remarks) 
     END

IF @Type = '4'            /* MRI */
     BEGIN
	 
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 @RevenueID = 'US'
        SET @DrCr = 'D'

        INSERT INTO tbMRIRequest 
            (RequestNum, Transdate, HospNum, IDNum,
                Code, RequestDoctorCode, Amount,
                RoomID, RefNum, Quantity, SWFIN, [By], 
				NurseRemarks, DoctorName, RevenueID, portable, 
				NurseRequest,ImagingReason,SurgicalReason,Remarks)
         VALUES (@RequestNum, GetDate(), @Hospnum, @IDNum, 
                @ItemID, @DoctorID, @Amount, 
                @RoomID, @RefNum, @Quantity, 'X', @UserID, 
				@NurseRemarks, @DoctorName, @RevenueID, @Portable, 
				@NurseRequestNum,@ImagingReason,@SurgicalReason,@Remarks) 
     END

IF @Type = '5'            /* Mammogram */
     BEGIN
	 
REGENERATE_5:
        SELECT @RequestNum = RTRIM(Convert(varChar(8),RequestNum)) FROM tbMammoSlip
        UPDATE tbMammoSlip SET RequestNum = RequestNum + 1

		if exists(select requestnum from tbMammoMaster where requestnum = @Requestnum)
			begin
				GOTO REGENERATE_5
			end
			
--      SET @RevenueID = 'US'
        SET @DrCr = 'D'

        INSERT INTO tbMammoMaster 
            (RequestNum, Transdate, HospNum, IDNum,
                ItemID, RequestDoctorCode, Amount,
                RoomID, RefNum, Quantity, SWMRK, UserID, 
				NurseRemarks, DoctorName, RevenueID, portable, 
				NurseRequest,ImagingReason,SurgicalReason,Remarks)
         VALUES (@RequestNum, GetDate(), @Hospnum, @IDNum, 
                @ItemID, @DoctorID, @Amount, 
                @RoomID, @RefNum, @Quantity, 'X', @UserID, 
				@NurseRemarks, @DoctorName, @RevenueID, @Portable, 
				@NurseRequestNum,@ImagingReason,@SurgicalReason,@Remarks) 
     END

IF @Type = '6'            /* OB Ultrasound */
     BEGIN

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

		if exists(select requestnum from tbOBULRequest where requestnum = @Requestnum)
			begin
				GOTO REGENERATE_6
			end
			
--      SET @RevenueID = 'US'
        SET @DrCr = 'D'

        INSERT INTO tbOBULRequest 
            (RequestNum, Transdate, HospNum, IDNum,
                Code, RequestDoctorCode, Amount,
                RoomID, RefNum, Quantity, SWFIN, [By], 
				NurseRemarks, DoctorName, RevenueID, portable, 
				NurseRequest,ImagingReason,SurgicalReason,Remarks)
         VALUES (@RequestNum, GetDate(), @Hospnum, @IDNum, 
                @ItemID, @DoctorID, @Amount, 
                @RoomID, @RefNum, @Quantity, 'X', @UserID, 
				@NurseRemarks, @DoctorName, @RevenueID, @Portable, 
				@NurseRequestNum,@ImagingReason,@SurgicalReason,@Remarks) 
     END

IF @Type = '7'            /* Nuclear */
     BEGIN
	 
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 @RevenueID = 'US'
        SET @DrCr = 'D'

        INSERT INTO Nuclear..tbNucMaster 
            (RequestNum, Transdate, HospNum, IDNum,
                ItemID, DoctorId, Amount,
                RoomID, RefNum, Quantity, RequestStatus, UserId, 
				NurseRemarks, DoctorName, RevenueID, portable, 
				NurseRequest,ImagingReason,SurgicalReason,Remarks)
         VALUES (@RequestNum, GetDate(), @Hospnum, @IDNum, 
                @ItemID, @DoctorID, @Amount, 
                @RoomID, @RefNum, @Quantity, 'X', @UserID, 
				@NurseRemarks, @DoctorName, @RevenueID, @Portable, 
				@NurseRequestNum,@ImagingReason,@SurgicalReason,@Remarks) 
     END

INSERT INTO billing..tbBillDailyBill 
    (Refnum, IDNum, Transdate, ItemID, Quantity, Amount, 
        DrCr, RevenueID, RoomID, UserID, RequestDocID, RequestNum, DoctorName)
VALUES 
    (@Refnum, @IDNum, GetDate(), @ItemID, @Quantity, @Amount, 
        @DrCr, @RevenueID, @RoomID,@UserID, @DoctorID, @RequestNum, @DoctorName )

IF EXISTS(SELECT * FROM station..tbNurseLogBook WHERE 
                  IDNum = @IDNum --HospNum = @HospNum AND 
                  AND RevenueID = @RevenueID AND ItemID = @ItemID and isnull(RecordStatus,'') = '') -- 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  isnull(RecordStatus,'') = '' --RequestNum = @NurseRequestNum
     END
ELSE
     BEGIN
             INSERT INTO station..tbNurseLogBook 
                (HospNum, IDNum, PatientType, 
                    RevenueID, RequestDate, 
                    ItemID, Description, Quantity, 
                    Amount, RecordStatus, 
                    ReferenceNum, ProcessBy, ProcessDate,Remarks)
             VALUES 
                (@HospNum, @IDNum, 'I', 
                    @RevenueID, GETDATE(),
                    @ItemID, @TypeDescription, @Quantity, 
                    @Amount, 'X', @RefNum, @UserID, GETDATE(),'Manualy Posted')
     END



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 = @IDNum  --HospNum = @HospNum AND 
            AND RevenueID = @RevenueID AND ItemID = @ItemID and  isnull(RecordStatus,'') = '' --RequestNum = @NurseRequestNum
     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