EOFFICE - GD4

SET QUOTED_IDENTIFIER ON

SET ANSI_NULLS ON

GO

ALTER PROCEDURE dbo.ASS_PLAN_REQUEST_LIQUID_MASTER_SendApprove

@p_REQ_ID	VARCHAR(15)  = NULL,

@p_USER_LOGIN   VARCHAR(150) = NULL

AS

BEGIN TRANSACTION

	DECLARE @NOTIFATION NVARCHAR(200) = N'Hồ sơ số: '+ (SELECT REQ_CODE FROM ASS_PLAN_REQUEST_LIQUID_MASTER WHERE REQ_ID = @p_REQ_ID) + N' đã được gửi phê duyệt thành công'

    DECLARE @PARENT_ID VARCHAR(20) = '', @IS_MED_APP VARCHAR(20) = '', @BRANCH_ID VARCHAR(20) = '', @DEP_ID VARCHAR(20) = '',

	@PROCESS_CHILD_CUR VARCHAR(10) --Process id trả về để store gửi mail biết đây là bước xử lý của ai khi điều phối

    DECLARE @ROLE_USER VARCHAR(20)

    SELECT @BRANCH_ID = BRANCH_ID, @DEP_ID = DEP_ID FROM ASS_PLAN_REQUEST_LIQUID_MASTER WHERE REQ_ID = @p_REQ_ID

    SET @PARENT_ID = (SELECT TOP 1 PROCESS_ID FROM PL_REQUEST_PROCESS WHERE STATUS = 'C' AND REQ_ID = @p_REQ_ID)

    IF @PARENT_ID = 'APPROVE'

  	BEGIN

  		ROLLBACK TRANSACTION

  		SELECT '-1' Result, N'Gửi duyệt thất bại! Thông tin tờ trình thanh lý phiếu số: '+@p_REQ_ID+

  							N' đã được phê duyệt' ErrorDesc

  		RETURN '-1'

  	END

-- XỬ LÝ CHO BƯỚC GỬI DUYỆT CẤP ĐƠN VỊ

IF NOT EXISTS(SELECT TOP 1 PROCESS_ID FROM PL_REQUEST_PROCESS WHERE STATUS = 'C' AND REQ_ID = @p_REQ_ID AND PROCESS_ID = 'DVCM_DP')

BEGIN

	IF(EXISTS(SELECT 1 FROM dbo.ASS_PLAN_REQUEST_LIQUID_MASTER WHERE REQ_ID=@p_REQ_ID AND AUTH_STATUS='R'))

  	BEGIN

  		ROLLBACK TRANSACTION

  		SELECT '-1' Result, N'Gửi duyệt thất bại! Thông tin tờ trình thanh lý phiếu số: '+@p_REQ_ID+

  							N' đang bị từ chối. Vui lòng xử lý phiếu' ErrorDesc

  		RETURN '-1'

  	END

	IF(EXISTS(SELECT 1 FROM dbo.ASS_PLAN_REQUEST_LIQUID_MASTER WHERE REQ_ID=@p_REQ_ID AND AUTH_STATUS='A'))

  	BEGIN

  		ROLLBACK TRANSACTION

  		SELECT '-1' Result, N'Gửi duyệt thất bại! Thông tin tờ trình thanh lý phiếu số: '+@p_REQ_ID+

  							N' đã được duyệt' ErrorDesc

  		RETURN '-1'

  	END

	IF(EXISTS(SELECT 1 FROM dbo.ASS_PLAN_REQUEST_LIQUID_MASTER WHERE REQ_ID=@p_REQ_ID AND AUTH_STATUS='U'))

  	BEGIN

  		ROLLBACK TRANSACTION

  		SELECT '-1' Result, N'Gửi duyệt thất bại! Thông tin tờ trình thanh lý phiếu số: '+@p_REQ_ID+

  							N' đã được gửi duyệt' ErrorDesc

  		RETURN '-1'

  	END

-- START: QUY TRINH XU LY TO TRINH

	INSERT INTO dbo.PL_PROCESS(REQ_ID, PROCESS_ID, CHECKER_ID, APPROVE_DT, PROCESS_DESC, NOTES)

	VALUES(@p_REQ_ID, 'SEND', @p_USER_LOGIN, GETDATE(), N'Người tạo gửi phê duyệt thành công', N'Nhân viên gửi phê duyệt')

    DELETE PL_REQUEST_PROCESS WHERE REQ_ID = @p_REQ_ID AND PROCESS_ID = 'MED_APP'

    UPDATE PL_REQUEST_PROCESS SET STATUS = 'P', CHECKER_ID = @p_USER_LOGIN, APPROVE_DT = GETDATE() WHERE STATUS = 'C' AND REQ_ID = @p_REQ_ID

    IF EXISTS(SELECT 1 FROM ASS_PLAN_REQUEST_LIQUID_MASTER WHERE REQ_ID = @p_REQ_ID AND ISNULL(USER_APPROVAL,'')<>'')

    BEGIN

          SELECT @ROLE_USER = RoleName FROM TL_USER WHERE TLNANME =(SELECT USER_APPROVAL FROM ASS_PLAN_REQUEST_LIQUID_MASTER WHERE REQ_ID = @p_REQ_ID)

        	INSERT INTO PL_REQUEST_PROCESS (REQ_ID, PROCESS_ID, STATUS, ROLE_USER, BRANCH_ID,DEP_ID, CHECKER_ID, PARENT_PROCESS_ID, IS_LEAF, COST_ID, DVDM_ID, NOTES)

        	VALUES (@p_REQ_ID, 'MED_APP', 'C', @ROLE_USER, @BRANCH_ID,@DEP_ID, '', @PARENT_ID, 'N', '', '', N'Chờ cấp phê duyệt trung gian phê duyệt')

        	UPDATE ASS_PLAN_REQUEST_LIQUID_MASTER SET AUTH_STATUS = 'W' WHERE REQ_ID = @p_REQ_ID; IF @@ERROR <> 0 GOTO ABORT

    END

    ELSE BEGIN

			SET @ROLE_USER = IIF(EXISTS(SELECT 1 FROM CM_BRANCH WHERE BRANCH_ID = @BRANCH_ID AND BRANCH_TYPE = 'PDG'),'TPGD','GDDV')

            INSERT INTO PL_REQUEST_PROCESS (REQ_ID, PROCESS_ID, STATUS, ROLE_USER, BRANCH_ID, DEP_ID, PARENT_PROCESS_ID, IS_LEAF, COST_ID, DVDM_ID, NOTES)

        	VALUES (@p_REQ_ID, 'HC_APP', 'C', @ROLE_USER, @BRANCH_ID, @DEP_ID, @PARENT_ID, 'N', '', '', N'Chờ trưởng đơn vị phê duyệt')

        	UPDATE ASS_PLAN_REQUEST_LIQUID_MASTER SET AUTH_STATUS = 'U' WHERE REQ_ID = @p_REQ_ID; IF @@ERROR <> 0 GOTO ABORT

         END

-- END: QUY TRINH XU LY TO TRINH

END

ELSE -- XỬ LÝ CHO BƯỚC GỬI DUYỆT CẤP ĐIỀU PHỐI

BEGIN

    IF NOT EXISTS(SELECT TOP 1 PROCESS_ID FROM PL_REQUEST_PROCESS_CHILD WHERE STATUS_JOB = 'C' AND REQ_ID = @p_REQ_ID AND TLNAME = @p_USER_LOGIN)

  	BEGIN

  		ROLLBACK TRANSACTION

  		SELECT '-1' Result, N'Thao tác thất bại! Bạn không có quyền thao tác phiếu ở bước này' ErrorDesc

  		RETURN '-1'

  	END

    DECLARE @PROCESS_CHILD_CUR_LEVEL INT

    SELECT TOP 1 @PROCESS_CHILD_CUR = PROCESS_ID, @PROCESS_CHILD_CUR_LEVEL = LEVEL_JOB FROM PL_REQUEST_PROCESS_CHILD WHERE REQ_ID = @p_REQ_ID AND TLNAME = @p_USER_LOGIN AND STATUS_JOB = 'C'

    DECLARE @PROCESS_CHILD_PAR INT, @PROCESS_CHILD_PAR_LEVEL INT

    SELECT TOP 1 @PROCESS_CHILD_PAR = ID, @PROCESS_CHILD_PAR_LEVEL = LEVEL_JOB FROM PL_REQUEST_PROCESS_CHILD WHERE REQ_ID = @p_REQ_ID AND PROCESS_ID = @PROCESS_CHILD_CUR AND LEVEL_JOB = @PROCESS_CHILD_CUR_LEVEL-1

    -- KIỂM TRA ĐÚNG PHẦN XỬ LÝ THÌ CHO PHÉP GỬI DUYỆT

    DECLARE @PROCESS_DVDM VARCHAR(20) SELECT TOP 1 @PROCESS_DVDM = DVDM_ID FROM PL_REQUEST_PROCESS WHERE REQ_ID = @p_REQ_ID AND ID = @PROCESS_CHILD_CUR

    IF NOT EXISTS(SELECT 1 FROM ASS_PLAN_REQUEST_LIQUID_DVCM WHERE REQ_ID = @p_REQ_ID AND DVCM_ID = @PROCESS_DVDM AND ISNULL(CONTENT, '') <> '')

  	BEGIN

  		ROLLBACK TRANSACTION

  		SELECT '-1' Result, N'Gửi duyệt thất bại! Thông tin tờ trình thanh lý phiếu số: '+@p_REQ_ID+

  							N' chưa nhập nội dung tham vấn đơn vị chuyên môn' ErrorDesc

  		RETURN '-1'

  	END

    IF ISNULL(@PROCESS_CHILD_CUR,'') = '' OR @PROCESS_CHILD_CUR = 'APPROVE'

  	BEGIN

  		ROLLBACK TRANSACTION

  		SELECT '-1' Result, N'Gửi duyệt thất bại! Thông tin tờ trình thanh lý phiếu số: '+@p_REQ_ID+

  							N' chưa đến bước xử lý hoặc đã được gửi duyệt' ErrorDesc

  		RETURN '-1'

  	END

	INSERT INTO dbo.PL_PROCESS(REQ_ID, PROCESS_ID, CHECKER_ID, APPROVE_DT, PROCESS_DESC, NOTES)

	VALUES(@p_REQ_ID, 'DVCM_SEND', @p_USER_LOGIN, GETDATE(), N'Nhân viên DVCM gửi phê duyệt thành công', N'Nhân viên gửi phê duyệt')

    UPDATE PL_REQUEST_PROCESS_CHILD SET STATUS_JOB = 'P' WHERE STATUS_JOB = 'C' AND REQ_ID = @p_REQ_ID AND PROCESS_ID = @PROCESS_CHILD_CUR AND LEVEL_JOB = @PROCESS_CHILD_CUR_LEVEL

    UPDATE PL_REQUEST_PROCESS_CHILD SET STATUS_JOB = 'C' WHERE STATUS_JOB = 'U' AND REQ_ID = @p_REQ_ID AND PROCESS_ID = @PROCESS_CHILD_CUR AND LEVEL_JOB = @PROCESS_CHILD_PAR_LEVEL AND ID = @PROCESS_CHILD_PAR

END

	IF @@ERROR <> 0 GOTO ABORT

COMMIT TRANSACTION   

SELECT '0' as Result, ISNULL(@PROCESS_CHILD_CUR, '0') ProcessId, @NOTIFATION  ErrorDesc

RETURN '0'

ABORT:

BEGIN

	ROLLBACK TRANSACTION

	SELECT '-1' as Result, '' REQ_ID, '' ErrorDesc

	RETURN '-1'

END

--17062025_SECRETKEY