get UI URL

DATA:LV_APPL_MODEL TYPE REF TO IF_BSP_WD_APPL_MODEL.
   DATA:RV_URL TYPE STRING.
    cl_bsp_wd_appl_model=>get_appl_model(
     EXPORTING
       iv_bsp_appl   = 'CRM_UI_START '
       iv_model_type = 'CL_BSP_WD_APPL_MODEL_RTTI'
     RECEIVING
       rv_model      = lv_appl_model
     EXCEPTIONS
       OTHERS          = 1 ).

   IF sy-subrc <> 0.
     MESSAGE ID sy-msgid TYPE 'E' NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
     EXIT.
   ENDIF.

   rv_url = lv_appl_model->get_start_url( ).