!       IMPORTS:
        !         Group View (400) group_in
        !           Entity View in_g deliverable (Transient, Import
 only)
        !             code
        !       EXPORTS:
        !         Group View (400) group_out
        !           Entity View out_g deliverable (Transient, Export
 only)
        !             code
        !       LOCALS:
        !         Entity View temp_sort_2 deliverable
        !           code
        !         Entity View temp_sort_1 deliverable
        !           code
        !         Work View temp ief_supplied
        !           subscript
        !         Work View temp_process_again ief_supplied
        !           flag

        !
        !     PROCEDURE STATEMENTS
        !   +=>FOR SUBSCRIPT OF group_in FROM 1 TO LAST OF group_in BY 1
        !   !  SET SUBSCRIPT OF group_out TO SUBSCRIPT OF group_in        
        !   !  MOVE in_g deliverable TO out_g deliverable
        !   +--
        !   SET temp ief_supplied subscript TO LAST OF group_out - 1
        !   +=>WHILE temp ief_supplied subscript > 1
        !   !  SET temp_process_again ief_supplied flag TO SPACES
        !   !  +=>FOR SUBSCRIPT OF group_out FROM 1 TO temp ief_supplied
 subscript BY 1
        !   !  !  MOVE out_g deliverable TO temp_sort_1 deliverable
        !   !  !  SET SUBSCRIPT OF group_out TO SUBSCRIPT OF group_out +
 1
        !   !  !  +->IF temp_sort_1 deliverable code > out_g deliverable
 code
        !   !  !  !  SET temp_process_again ief_supplied flag TO "Y"
        !   !  !  !  MOVE out_g deliverable TO temp_sort_2 deliverable
        !   !  !  !  MOVE temp_sort_1 deliverable TO out_g deliverable
        !   !  !  !  SET SUBSCRIPT OF group_out TO SUBSCRIPT OF
 group_out - 1
        !   !  !  !  MOVE temp_sort_2 deliverable TO out_g deliverable
        !   !  !  +> ELSE
        !   !  !  !  SET SUBSCRIPT OF group_out TO SUBSCRIPT OF
 group_out - 1
        !   !  !  +--
        !   !  +--
        !   !  +->IF temp_process_again ief_supplied flag = SPACES
        ! <-------ESCAPE
        !   !  +--
        !   !  SET temp ief_supplied subscript TO temp ief_supplied
 subscript - 1
        !   +--
       +---