RNC301VB SAP ABAP Report - IS-H DE: P301 - Trigger Special Events for Preadmission Visits

RNC301VB is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). It is used for You can use this program to create the EDI orders for preadmission visits without admissions...see full standard documentation available for this report. Also check out the submitted Comments related to this SAP report and the details below to see which OBJECTS it interacts with such as TABLES, FUNCTION MODULES, INCLUDES ETC.

If you would like to execute this report or see the full code listing simply enter RNC301VB into the relevant SAP transactions such as SE38 or SE80

ABAP code to call this SAP report using the submit statement

This report can be called from another progam/report simply by using the ABAP SUBMIT statement, see below for example ABAP code snipts of how to do this.

Text pool values

INCLUDES used within this REPORT RNC301VB

INCLUDE MNC301_VERSION_INDEPENDENT.

TABLES used within REPORT and the associated SELECT statement:

No SAP DATABASE tables are accessed within this REPORT code!

Function Modules used within report and the associated call statement:

REUSE_ALV_VARIANT_F4
  call function 'REUSE_ALV_VARIANT_F4'
       exporting
            is_variant          = hlpvar
*           I_TABNAME_HEADER    =
*           I_TABNAME_ITEM      =
*           IT_DEFAULT_FIELDCAT =
            i_save              = 'A'
       importing
            e_exit              = gs_exit
            es_variant          = gs_variant
       exceptions
            not_found           = 1
            program_error       = 2
            others              = 3.

ISH_AUTH_CHECK_REPORT_EINRI
  call function 'ISH_AUTH_CHECK_REPORT_EINRI'
       exporting
            repid      = rnstat-repid
            einri      = p_einri
*           NO_MESSAGE = ' '
       importing
            rc         = auth_rc
       exceptions
            others     = 1.

ISH_EDI_READ_TNC301GI_ALLACTV
  call function 'ISH_EDI_READ_TNC301GI_ALLACTV'
    exporting
      institution = p_einri
    tables
      e_tnc301gi  = itnc301gi
    exceptions
      not_found   = 1
      others      = 2.

REUSE_ALV_VARIANT_DEFAULT_GET
    call function 'REUSE_ALV_VARIANT_DEFAULT_GET'
      exporting
        i_save        = 'A'
      changing
        cs_variant    = gs_variant
      exceptions
        wrong_input   = 1
        not_found     = 2
        program_error = 3
        others        = 4.

ISH_CALL_LIST_HEAD
  call function 'ISH_CALL_LIST_HEAD'
       exporting
            ausbegdt      = rnstat-ausbegdt
            ausenddt      = rnstat-ausenddt
            einri         = rnstat-einri
            line_size     = linesize   "rnstat-line_size
            repid         = rnstat-repid
            title_lin1    = rnstat-title_lin1
            title_lin2    = ' '
            uline         = 'X'
*            verbegdt      = init_date
*            verenddt      = init_date
       exceptions
            invalid_einri = 01.

ISH_DATE_RANGETAB_FILL
  call function 'ISH_DATE_RANGETAB_FILL'
    exporting
      begindate    = p_begdt
      enddate      = p_enddt
      rsize_max    = gc_rsize_max
    tables
      x_daterange  = r_bwidt
    exceptions
      empty_date   = 1
      invalid_date = 2
      others       = 3.

ISH_EDI_CM_EVENTS
    call function 'ISH_EDI_CM_EVENTS'
      exporting
        institution               = show_bew-einri
        patnumber                 = show_bew-patnr
        casenumber                = show_bew-falnr
        movenumber                = show_bew-lfdnr
        do_activation_independent = off  "message at beginning
      tables
        events                    = event_tab
      exceptions
        missing_parameters        = 1
        others                    = 2.

ISH_READ_NPAT
    call function 'ISH_READ_NPAT'
      exporting
        ss_einri     = p_einri
        ss_patnr     = show_bew-patnr
      importing
        ss_npat      = s_npat
      exceptions
        not_found    = 1
        no_authority = 2
        others       = 3.

REUSE_ALV_LIST_DISPLAY
  call function 'REUSE_ALV_LIST_DISPLAY'
     exporting
           i_callback_program       = rnstat-repid
           i_callback_pf_status_set = 'SET_PF_STATUS'
           i_callback_user_command  = 'USER_COMMAND'
           is_layout                = gs_layout
           it_fieldcat             = xfield
*            IT_EXCLUDING            =
*             it_special_groups      = gt_sp_groups[]
            it_sort                = gt_zsum[]
*            IT_FILTER               =
*            IS_SEL_HIDE             =
           i_default               = 'X'
            i_save                 = 'A'
            is_variant             = gs_variant
            it_events               = gt_events[]
*             IT_EVENT_EXIT           =
*             IS_PRINT                =
*             I_SCREEN_START_COLUMN   = 0
*             I_SCREEN_START_LINE     = 0
*             I_SCREEN_END_COLUMN     = 0
*            I_SCREEN_END_LINE        = 0
*    IMPORTING
*         E_EXIT_CAUSED_BY_CALLER     =
*         ES_EXIT_CAUSED_BY_USER      =
       tables
            t_outtab                 = show_bew
       exceptions
            program_error            = 1
            others                   = 2.

POPUP_TO_CONFIRM_STEP
        call function 'POPUP_TO_CONFIRM_STEP'
             exporting
                  defaultoption = 'N'
                  textline1   = 'Möchten Sie die markierten Sätze'(p01)
                  textline2   = 'als §301-Aufträge abspeichern?'(p02)
                  titel       = 'Sicherheitsabfrage'(p00)
             importing
                  answer        = answer
             exceptions
                  others        = 1.

REUSE_ALV_EVENTS_GET
  call function 'REUSE_ALV_EVENTS_GET'
    exporting
      i_list_type = 0
    importing
      et_events   = e03_lt_events.