RN1ICREP SAP ABAP Report - Correction for Creating Missing ICPM for House Cat.-Services

RN1ICREP is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). Below is the basic information available for this SAP report including which OBJECTS it interacts with such as TABLES, FUNCTION MODULES, INCLUDES ETC. Also check out the submitted Comments related to this SAP report or see any standard documentation available.

If you would like to execute this report or see the full code listing simply enter RN1ICREP 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 RN1ICREP

INCLUDE MNDATA00.

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:

ISHMED_SELECT_SURGERIES
* call function 'ISHMED_SELECT_SURGERIES'
*      exporting
*           einri        = einri
*      tables
*           is_zeitr     = datum
*           etv_nlem_ank = iv_nlem_ank
*           etv_nlem     = iv_nlem
*           et_ntpz      = intpz.

ISHMED_GET_ICPM_FOR_ANKER
    CALL FUNCTION 'ISHMED_GET_ICPM_FOR_ANKER'
      EXPORTING
        anker         = inlei_ank
      TABLES
        t_icpm_lei    = icpm_lei
      EXCEPTIONS
        anker_not_fnd = 1
        OTHERS        = 2.

ISHMED_SLEI_SETFLAG
  CALL FUNCTION 'ISHMED_SLEI_SETFLAG'
       EXPORTING
            i_prgname = 'RN1ICREP'
       TABLES
            t_nlei    = xnlei
*         t_nlem    = nnlem
            t_nllz    = xnllz
       EXCEPTIONS
            OTHERS    = 1.

ISH_VERBUCHER_NLEI
  CALL FUNCTION 'ISH_VERBUCHER_NLEI'
    EXPORTING
      datum  = sy-datum
      tcode  = sy-tcode
      uname  = sy-uname
      uzeit  = sy-uzeit
    TABLES
      xnlei  = xnlei
      ynlei  = ynlei
    EXCEPTIONS
      OTHERS = 1.

ISHMED_UPDATE_NLLZ
    CALL FUNCTION 'ISHMED_UPDATE_NLLZ'
         EXPORTING
              datum  = sy-datum
              tcode  = sy-tcode
              uname  = sy-uname
              uzeit  = sy-uzeit
         TABLES
              nnllz  = xnllz
*             ONLLZ  = YNLLZ           "Kiedl Georg, 09.04.2001, 7095

ISHMED_RESOLVE_SERVICES
  CALL FUNCTION 'ISHMED_RESOLVE_SERVICES'
    EXPORTING
      i_zotyp    = 'A'
    TABLES
      t_nlei     = ivnlei_res
      t_nllz     = xnllz
      t_nlei_res = xnlei
    EXCEPTIONS
      read_error = 1
      OTHERS     = 2.

ENQUEUE_ENFAL
*  call function 'ENQUEUE_ENFAL'
*       exporting
*            einri          = einri
*            falnr          = p_falnr
*       exceptions
*            foreign_lock   = 01
*            system_failure = 02.

ISHMED_ENQUEUE_ENFAL
  CALL FUNCTION 'ISHMED_ENQUEUE_ENFAL'
    EXPORTING
      einri          = einri
      falnr          = p_falnr
      i_caller       = 'RN1ICREP'
    EXCEPTIONS
      foreign_lock   = 01
      system_failure = 02.

DEQUEUE_ENFAL
*  call function 'DEQUEUE_ENFAL'
*       exporting
*            einri = einri
*            falnr = p_falnr.

ISHMED_DEQUEUE_ENFAL
  CALL FUNCTION 'ISHMED_DEQUEUE_ENFAL'
    EXPORTING
      einri    = einri
      falnr    = p_falnr
      i_caller = 'RN1ICREP'.