DEFINE fk_merge_global
  LOCAL Part_name
  LOCAL i
  RESET_PART_NUMBER
  INQ_ENV 8
  LET i (INQ 5)
  WHILE (i>0)
    TRAP_ERROR
    EDIT_PART ('~'+(STR i))
     IF (NOT CHECK_ERROR)
	   INQ_SELECTED_ELEM SELECT LINES ALL OR ARCS ALL CONFIRM
	   IF ((INQ 14) > 0)
         MERGE ALL
       END_IF
	ELSE
      DISPLAY (ERROR_STR)
    END_IF
  LET i (i - 1)
  END_WHILE
  EDIT_PART TOP
END_DEFINE