Hierarchy Framework: Creating main node transaction

I have done new scenario in transaction OOFRAMEWORKCUST to maintain customer business structure with objects 1S-1R.

But new transaction acted as PPOCE. It created only O objects.

Hierarchy framework has great customizing capability for maintaining structure but has no one to alter Creating transaction behaviour.

It is hard coded in FM nf_get_init_event_workplace. If somebody know way to do it without coding please comment!

I have to make an enhancement to create my type of object.

Original source code:

CALL FUNCTION ‘OM_DISPLAY_DRAGDROP_POPUP’
             EXPORTING
*         INITIAL_DATE_LOW    = SY-DATUM
*         INITIAL_DATE_HIGH   = ‘99991231’
*         CHECK_LOW_DATE      = ‘19000101’
*         CHECK_HIGH_DATE     = ‘99991231’
*         USE_MASSN_MASSG     =
                  popup_title
                    = ‘Anlegen einer Wurzelorganisationseinheit’(038) “Create root organizational object
                  date_high_inactive  = c_blank
                  move_flag_invisible = c_cross
          row                 = 1
          column              = 1
             IMPORTING
                  begin_date          = begin_date2
                  end_date            = end_date2
*         MASSN               =
*         MASSG               =
*    CHANGING
*         COPY_FLAG           =
             EXCEPTIONS
                  exit_command        = 1
                  OTHERS              = 2.
         IF sy–subrc <> 0.
           frequest          = ‘SHOW INITIAL SCREEN’.
           add_to_navigation_stack = c_cross.
           data_valid              = c_cross.
           EXIT.
         ENDIF.

*      Special “creation” Transaction (i.e., PPOCE):
*       create new ROOT orgunit:

*       get short-text of new orgunit
*       get stext      of new orgunit

         CALL FUNCTION ‘OM_GET_DEFAULT_SHORT_STEXT’
              EXPORTING
                   objecttyp = ‘O’
              IMPORTING
                   short     = short2
                   stext     = stext2.

         CALL FUNCTION ‘RHOM_CREATE_RELATED_OBJECT’
              EXPORTING
*               FATHER                  =
                   plvar                   = planversion
                   otype                   = ‘O ‘
*               OSTAT                   = ‘1’
                   begda                   = begin_date2
                   endda                   = end_date2
*               RELAT                   =
                   short                   = short2
                   stext                   = stext2
                   is_root_object          = c_cross
              IMPORTING
                   new_object              = fmain_object
              EXCEPTIONS
                   error_during_insert     = 1
                   corr_exit               = 2
                   no_active_plvar         = 3
                   plvar_not_valid         = 4
                   otype_not_found         = 5
                   otype_not_allowed       = 6
                   no_base_authority       = 7
                   no_stru_authority_objid = 8
                   no_authority            = 9
                   no_authorization        = 10
                   forbidden_relation      = 11
                   OTHERS                  = 12.