Operational Remediation Reports

Incident Owner Report

Assign Visible Tickets

An incident remediation report can count visible tickets at a selected severity threshold and assign the queue to a fixed owner group.

Program

Play the program to choose minimum severity and inspect the owner report.

incident_owner_report.f90 
program incident_owner_report_demo
    implicit none
    integer :: severities(4)
    integer :: min_severity
    integer :: visible_count
    integer :: i
    character(len=8) :: owner

    severities = [1, 2, 3, 3]
    min_severity = 
    visible_count = 0
    do i = 1, 4
        if (severities(i) >= min_severity) then
            visible_count = visible_count + 1
        end if
    end do
    if (visible_count >= 3) then
        owner = 'ops'
    else
        owner = 'lead'
    end if
    print '(A, I0, 1X, A, I0, 1X, A)', 'min=', min_severity, 'visible=', visible_count, trim(owner)
end program incident_owner_report_demo

program incident_owner_report_demo
    implicit none
    integer :: severities(4)
    integer :: min_severity
    integer :: visible_count
    integer :: i
    character(len=8) :: owner

    severities = [1, 2, 3, 3]
    min_severity = 
    visible_count = 0
    do i = 1, 4
        if (severities(i) >= min_severity) then
            visible_count = visible_count + 1
        end if
    end do
    if (visible_count >= 3) then
        owner = 'ops'
    else
        owner = 'lead'
    end if
    print '(A, I0, 1X, A, I0, 1X, A)', 'min=', min_severity, 'visible=', visible_count, trim(owner)
end program incident_owner_report_demo

program incident_owner_report_demo
    implicit none
    integer :: severities(4)
    integer :: min_severity
    integer :: visible_count
    integer :: i
    character(len=8) :: owner

    severities = [1, 2, 3, 3]
    min_severity = 
    visible_count = 0
    do i = 1, 4
        if (severities(i) >= min_severity) then
            visible_count = visible_count + 1
        end if
    end do
    if (visible_count >= 3) then
        owner = 'ops'
    else
        owner = 'lead'
    end if
    print '(A, I0, 1X, A, I0, 1X, A)', 'min=', min_severity, 'visible=', visible_count, trim(owner)
end program incident_owner_report_demo
visible count The loop counts incidents at or above the selected severity threshold.
owner label The owner is derived from the visible workload rather than from host state.
remediation row The final output keeps threshold, count, and owner in one report line.