SimulationCore2/CSharp/OperationScenarios/Notifications/CFillMouseHoleLedNotification.f90

module CFillMouseHoleLedNotification
    use COperationScenariosVariables
    implicit none
    contains
    
    subroutine Evaluate_FillMouseHoleLed()
        implicit none
        
        
!        if (DriveType == TopDrive_DriveType) then
!#ifdef OST
!            print*, 'Evaluate_FillMouseHoleLed=TopDrive'
!#endif
!        endif
!        
!        
!        
!        
!        
!        
!        
!        
!        if (DriveType == Kelly_DriveType) then
!#ifdef OST
!            print*, 'Evaluate_FillMouseHoleLed=Kelly'
!#endif
!        endif
        
        
        
    end subroutine
    
    ! subroutine Subscribe_FillMouseHoleLed()
    !     use CDrillingConsoleVariables
    !     implicit none
    !     call OnFillMouseHolePress%Add(ButtonPress_FillMouseHole)
    ! end subroutine
    
    subroutine ButtonPress_FillMouseHole()
        implicit none
        
        
        
        if (Hoisting%DriveType == TopDrive_DriveType) then
#ifdef OST
            print*, 'Evaluate_FillMouseHoleLed=TopDrive'
#endif




            !TOPDRIVE-CODE=71
            if (Get_FillMouseHoleLed()) then
                
                call Set_FillMouseHoleLed(.false.)
                call Set_MouseHole(MOUSE_HOLE_NEUTRAL)
                return
            end if
            
            
            !TOPDRIVE-CODE=72
            if (Get_TdsElevatorModes() /= TDS_ELEVATOR_CONNECTION_STRING .and.&
                Get_FillMouseHoleLed() == .false.) then
                
                call Set_FillMouseHoleLed(.true.)
                return
            end if





        endif
        
        
        
        
        
        
        
        
        if (Hoisting%DriveType == Kelly_DriveType) then
#ifdef OST
            print*, 'Evaluate_FillMouseHoleLed=Kelly'
#endif


            !OPERATION-CODE=81
            if (Get_FillMouseHoleLed()) then
                call Set_FillMouseHoleLed(.false.)
                call Set_MouseHole(MOUSE_HOLE_EMPTY)
                return
            end if
        
            !OPERATION-CODE=82
            if (Get_KellyConnection() /= KELLY_CONNECTION_SINGLE .and.&
                Get_ElevatorConnection() /= ELEVATOR_CONNECTION_SINGLE .and.&
                Get_FillMouseHoleLed() == .false.) then
                call Set_FillMouseHoleLed(.true.)
                call Set_MouseHole(MOUSE_HOLE_FILL)
                return
            end if
                
                
        endif
        
        
        
        
        
        
    end subroutine
    
end module CFillMouseHoleLedNotification