SAP Reports / Programs

comments icon Comments

RN1PRERRORMODIFY SAP ABAP Report - documentation and ABAP source code







RN1PRERRORMODIFY 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 RN1PRERRORMODIFY 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.






SUBMIT RN1PRERRORMODIFY. "Basic submit
SUBMIT RN1PRERRORMODIFY AND RETURN. "Return to original report after report execution complete
SUBMIT RN1PRERRORMODIFY VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
    See more syntax options for the ABAP SUBMIT statement


Text pool values


Text Symbol: 000 = Table
Text Symbol: 010 = Page:
Text Symbol: O01 = Insert
Text Symbol: O02 = Update
Text Symbol: O03 = Delete


INCLUDES used within this REPORT RN1PRERRORMODIFY

INCLUDE RN1PRERRORMODIFYL01.


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_PATREG_TLNRID_GET
CALL FUNCTION 'ISHMED_PATREG_TLNRID_GET'
      EXPORTING
*           I_DATUM             = SY-DATUM
           I_EINRI             = pa_einri
      IMPORTING
*           E_TLNRID            =
           E_TLNR_ENTRY        = g_tlnr_entry
      EXCEPTIONS
           NETUSER_NOT_FOUND   = 1
           MORE_NETUSERS_FOUND = 2
           OTHERS              = 3
            .

ISHMED_PATREG_N1PRERROR_READ
  CALL FUNCTION 'ISHMED_PATREG_N1PRERROR_READ'
    DESTINATION g_tlnr_entry-patreg_rfc
       EXPORTING
          i_tlnrid    = g_tlnr_entry-tlnrid
       tables
          t_n1prerror = gt_error
       EXCEPTIONS
          system_failure        = 1 MESSAGE g_msgtext
          communication_failure = 2 MESSAGE g_msgtext.

ISHMED_PATREG_ERRORTAB_DELETE
  CALL FUNCTION 'ISHMED_PATREG_ERRORTAB_DELETE'
    DESTINATION g_tlnr_entry-patreg_rfc
     TABLES
          t_n1prerror = lt_error
     EXCEPTIONS
          system_failure        = 1 MESSAGE g_msgtext
          communication_failure = 2 MESSAGE g_msgtext.

ISHMED_PATREG_ERRORTAB_APPEND
  CALL FUNCTION 'ISHMED_PATREG_ERRORTAB_APPEND'
    DESTINATION g_tlnr_entry-patreg_rfc
       TABLES
            t_n1prerror = lt_error
       EXCEPTIONS
          system_failure        = 1 MESSAGE g_msgtext
          communication_failure = 2 MESSAGE g_msgtext.

ISHMED_PATREG_ERRORTAB_DELETE
    CALL FUNCTION 'ISHMED_PATREG_ERRORTAB_DELETE'
      DESTINATION g_tlnr_entry-patreg_rfc
       TABLES
            t_n1prerror = tmpt_error  "noch alle Einträge drin!
       EXCEPTIONS
          system_failure        = 1 MESSAGE g_msgtext
          communication_failure = 2 MESSAGE g_msgtext.

ISHMED_PATREG_ERRORTAB_DELETE
  CALL FUNCTION 'ISHMED_PATREG_ERRORTAB_DELETE'
    DESTINATION g_tlnr_entry-patreg_rfc
       TABLES
            t_n1prerror = lt_error  "genau 1 Eintrag
       EXCEPTIONS
          system_failure        = 1 MESSAGE g_msgtext
          communication_failure = 2 MESSAGE g_msgtext.

ISHMED_PATREG_ERRORTAB_DELETE
  CALL FUNCTION 'ISHMED_PATREG_ERRORTAB_DELETE'
    DESTINATION g_tlnr_entry-patreg_rfc
       TABLES
            t_n1prerror = lt_error
       EXCEPTIONS
          system_failure        = 1 MESSAGE g_msgtext
          communication_failure = 2 MESSAGE g_msgtext.

DDIF_FIELDINFO_GET
  CALL FUNCTION 'DDIF_FIELDINFO_GET'
       EXPORTING
            tabname        = g_hide_entry-entry-tabnam
*           LANGU          = SY-LANGU
       TABLES
            DFIES_TAB      = lt_dfies
      EXCEPTIONS
           NOT_FOUND      = 1
           INTERNAL_ERROR = 2
           OTHERS         = 3
            .

ISHMED_PATREG_LLZ_BOOK_CALL
  CALL FUNCTION 'ISHMED_PATREG_LLZ_BOOK_CALL'
    DESTINATION g_tlnr_entry-patreg_rfc
      EXPORTING
*           I_O_TN1PRLLZ    =
*           I_TN1PRLLZ      = l_n1prllz
           I_UP_DATE       = l_error_entry-updat
           I_UP_NAME       = l_error_entry-upuser
*           I_VCODE_N1PRLLZ = l_error_entry-vcode
           i_flg_test_book = p_flag_test "Test: rollback am RFC-System
      IMPORTING
           E_RETMAXTYPE    = l_retmaxtype
      TABLES
           T_XN1PRLLZ      = lt_n1prllz
           T_RETURN        = lt_return
*           T_YN1PRLLZ      =
      EXCEPTIONS
           system_failure        = 1 MESSAGE g_msgtext
           communication_failure = 2 MESSAGE g_msgtext.

ISHMED_PATREG_N1PRLLZ_READ
*        CALL FUNCTION 'ISHMED_PATREG_N1PRLLZ_READ'.

ISHMED_PATREG_ANF_BOOK_CALL
  CALL FUNCTION 'ISHMED_PATREG_ANF_BOOK_CALL'
    DESTINATION g_tlnr_entry-patreg_rfc
      EXPORTING
*           I_O_TN1PRANF    =
*           I_TN1PRANF      = l_n1pranf
           I_UP_DATE       = l_error_entry-updat
           I_UP_NAME       = l_error_entry-upuser
*           I_VCODE_N1PRANF = p_error_entry-vcode
           i_flg_test_book = p_flag_test "Test: rollback am RFC-System
      IMPORTING
           E_RETMAXTYPE    = l_retmaxtype
      TABLES
           T_XN1PRANF      = lt_npr1anf
           T_RETURN        = lt_return
*           T_YN1PRANF      =
      EXCEPTIONS
           system_failure        = 1 MESSAGE g_msgtext
           communication_failure = 2 MESSAGE g_msgtext.

ISHMED_PATREG_N1PRANF_READ
*        CALL FUNCTION 'ISHMED_PATREG_N1PRANF_READ'.

ISHMED_PATREG_LEM_BOOK_CALL
  CALL FUNCTION 'ISHMED_PATREG_LEM_BOOK_CALL'
    DESTINATION g_tlnr_entry-patreg_rfc
      EXPORTING
           I_UP_DATE       = l_error_entry-updat
           I_UP_NAME       = l_error_entry-upuser
           i_flg_test_book = p_flag_test "Test: rollback am RFC-System
      IMPORTING
           E_RETMAXTYPE    = l_retmaxtype
      TABLES
           T_XN1PRLEM      = lt_n1prlem
           T_RETURN        = lt_return
      EXCEPTIONS
           system_failure        = 1 MESSAGE g_msgtext
           communication_failure = 2 MESSAGE g_msgtext.

ISHMED_PATREG_N1PRLEM_READ
*        CALL FUNCTION 'ISHMED_PATREG_N1PRLEM_READ'.

ISHMED_PATREG_VKG_BOOK_CALL
  CALL FUNCTION 'ISHMED_PATREG_VKG_BOOK_CALL'
    DESTINATION g_tlnr_entry-patreg_rfc
       EXPORTING
           I_UP_DATE       = l_error_entry-updat
           I_UP_NAME       = l_error_entry-upuser
           i_flg_test_book = p_flag_test "Test: rollback am RFC-System
      IMPORTING
           E_RETMAXTYPE    = l_retmaxtype
      TABLES
           T_XN1PRVKG      = lt_n1prvkg
           T_RETURN        = lt_return
      EXCEPTIONS
           system_failure        = 1 MESSAGE g_msgtext
           communication_failure = 2 MESSAGE g_msgtext.

ISHMED_PATREG_N1PRVKG_READ
        CALL FUNCTION 'ISHMED_PATREG_N1PRVKG_READ'
          DESTINATION g_tlnr_entry-patreg_rfc
             EXPORTING
*                 I_MANDT         = SY-MANDT
                  i_tlnrid        = l_n1prvkg-tlnrid
                  i_vkgid         = l_n1prvkg-vkgid
             IMPORTING
                  E_N1PRVKG_ENTRY = tmp_n1prvkg
             EXCEPTIONS
                  system_failure        = 1 MESSAGE g_msgtext
                 communication_failure = 2 MESSAGE g_msgtext.

ISHMED_PATREG_TMN_BOOK_CALL
  CALL FUNCTION 'ISHMED_PATREG_TMN_BOOK_CALL'
    DESTINATION g_tlnr_entry-patreg_rfc
      EXPORTING
           I_UP_DATE       = l_error_entry-updat
           I_UP_NAME       = l_error_entry-upuser
           i_flg_test_book = p_flag_test "Test: rollback am RFC-System
      IMPORTING
           E_RETMAXTYPE    = l_retmaxtype
      TABLES
           T_XN1PRTMN      = lt_n1prtmn
           T_RETURN        = lt_return
      EXCEPTIONS
           system_failure        = 1 MESSAGE g_msgtext
           communication_failure = 2 MESSAGE g_msgtext.

ISHMED_PATREG_N1PRTMN_READ
        CALL FUNCTION 'ISHMED_PATREG_N1PRTMN_READ'
          DESTINATION g_tlnr_entry-patreg_rfc
             EXPORTING
*                 I_MANDT         = SY-MANDT
                  i_tlnrid        = l_n1prtmn-tlnrid
                  i_tmnid         = l_n1prtmn-tmnid
             IMPORTING
                  E_N1PRTMN_ENTRY = tmp_n1prtmn
             EXCEPTIONS
                  system_failure        = 1 MESSAGE g_msgtext
                 communication_failure = 2 MESSAGE g_msgtext.

ISHMED_PATREG_RSF_BOOK_CALL
















  CALL FUNCTION 'ISHMED_PATREG_RSF_BOOK_CALL'
    DESTINATION g_tlnr_entry-patreg_rfc
      EXPORTING
           I_UP_DATE       = l_error_entry-updat
           I_UP_NAME       = l_error_entry-upuser
           i_flg_test_book = p_flag_test "Test: rollback am RFC-System
      IMPORTING
           E_RETMAXTYPE    = l_retmaxtype
      TABLES
           T_XN1PRRSF      = lt_n1prrsf
           T_RETURN        = lt_return
      EXCEPTIONS
           system_failure        = 1 MESSAGE g_msgtext
           communication_failure = 2 MESSAGE g_msgtext.

ISHMED_PATREG_N1PRRSF_READ
        CALL FUNCTION 'ISHMED_PATREG_N1PRRSF_READ'
          DESTINATION g_tlnr_entry-patreg_rfc
             EXPORTING
*                 I_MANDT          = ' '
                  i_tlnrid         = l_n1prrsf-tlnrid
                  i_patnr          = l_n1prrsf-patnr
                  I_RSFNR          = l_n1prrsf-rsfnr
                  I_LFDNR          = l_n1prrsf-lfdnr
                  i_storn          = '*' "auch stornierte.. 16.06.2000

ISHMED_PATREG_DOC_BOOK_CALL
  CALL FUNCTION 'ISHMED_PATREG_DOC_BOOK_CALL'
    DESTINATION g_tlnr_entry-patreg_rfc
      EXPORTING
           I_UP_DATE       = l_error_entry-updat
           I_UP_TIME       = l_error_entry-uptim
           I_UP_NAME       = l_error_entry-upuser
           i_flg_test_book = p_flag_test "Test: rollback am RFC-System
      IMPORTING
           E_RETMAXTYPE    = l_retmaxtype
      TABLES
           T_XN1PRDOC      = lt_n1prdoc
           T_RETURN        = lt_return
      EXCEPTIONS
           system_failure        = 1 MESSAGE g_msgtext
           communication_failure = 2 MESSAGE g_msgtext.

ISHMED_PATREG_N1PRDOC_READ
        CALL FUNCTION 'ISHMED_PATREG_N1PRDOC_READ'
          DESTINATION g_tlnr_entry-patreg_rfc
             EXPORTING
*                 I_MANDT         = SY-MANDT
                  i_tlnrid        = l_n1prdoc-tlnrid
                  i_dokar         = l_n1prdoc-dokar
                  i_doknr         = l_n1prdoc-doknr
                  i_dokvr         = l_n1prdoc-dokvr
                  i_doktl         = l_n1prdoc-doktl
                  I_LFDDOK        = l_n1prdoc-lfddok
             IMPORTING
                  E_N1PRDOC_ENTRY = tmp_n1prdoc
             EXCEPTIONS
                  system_failure        = 1 MESSAGE g_msgtext
                 communication_failure = 2 MESSAGE g_msgtext.

ISHMED_PATREG_DIA_BOOK_CALL
  CALL FUNCTION 'ISHMED_PATREG_DIA_BOOK_CALL'
    DESTINATION g_tlnr_entry-patreg_rfc
      EXPORTING
           I_UP_DATE       = l_error_entry-updat
           I_UP_TIME       = l_error_entry-uptim
           I_UP_NAME       = l_error_entry-upuser
           i_flg_test_book = p_flag_test "Test: rollback am RFC-System
      IMPORTING
           E_RETMAXTYPE    = l_retmaxtype
      TABLES
           T_XN1PRDIA      = lt_n1prdia
           T_RETURN        = lt_return
      EXCEPTIONS
           system_failure        = 1 MESSAGE g_msgtext
           communication_failure = 2 MESSAGE g_msgtext.

ISHMED_PATREG_N1PRDIA_READ
        CALL FUNCTION 'ISHMED_PATREG_N1PRDIA_READ'
          DESTINATION g_tlnr_entry-patreg_rfc
             EXPORTING
*                 I_MANDT         = SY-MANDT
                  i_tlnrid        = l_n1prdia-tlnrid
                  i_falnr         = l_n1prdia-falnr
                  I_LFDNR         = l_n1prdia-lfdnr
             IMPORTING
                  E_N1PRDIA_ENTRY = tmp_n1prdia
             EXCEPTIONS
                  system_failure        = 1 MESSAGE g_msgtext
                 communication_failure = 2 MESSAGE g_msgtext.

ISHMED_PATREG_FAL_BOOK_CALL
  CALL FUNCTION 'ISHMED_PATREG_FAL_BOOK_CALL'
    DESTINATION g_tlnr_entry-patreg_rfc
      EXPORTING
           I_UP_DATE       = l_error_entry-updat
           I_UP_NAME       = l_error_entry-upuser
           i_flg_test_book = p_flag_test "Test: rollback am RFC-System
      IMPORTING
           E_RETMAXTYPE    = l_retmaxtype
      TABLES
           T_XN1PRFAL      = lt_n1prfal
           T_RETURN        = lt_return
      EXCEPTIONS
           system_failure        = 1 MESSAGE g_msgtext
           communication_failure = 2 MESSAGE g_msgtext.

ISHMED_PATREG_N1PRFAL_READ
        CALL FUNCTION 'ISHMED_PATREG_N1PRFAL_READ'
          DESTINATION g_tlnr_entry-patreg_rfc
             EXPORTING
*                 I_MANDT         = SY-MANDT
                  i_falnr         = l_n1prfal-falnr
                  i_tlnrid        = l_n1prfal-tlnrid
             IMPORTING
                  E_N1PRFAL_ENTRY = tmp_n1prfal
             EXCEPTIONS
                  system_failure        = 1 MESSAGE g_msgtext
                 communication_failure = 2 MESSAGE g_msgtext.

ISHMED_PATREG_BEW_BOOK_CALL
  CALL FUNCTION 'ISHMED_PATREG_BEW_BOOK_CALL'
    DESTINATION g_tlnr_entry-patreg_rfc
      EXPORTING
           I_UP_DATE       = l_error_entry-updat
           I_UP_NAME       = l_error_entry-upuser
           i_flg_test_book = p_flag_test "Test: rollback am RFC-System
      IMPORTING
           E_RETMAXTYPE    = l_retmaxtype
      TABLES
           T_XN1PRBEW      = lt_n1prbew
           T_RETURN        = lt_return
      EXCEPTIONS
           system_failure        = 1 MESSAGE g_msgtext
           communication_failure = 2 MESSAGE g_msgtext.

ISHMED_PATREG_N1PRBEW_READ
        CALL FUNCTION 'ISHMED_PATREG_N1PRBEW_READ'
          DESTINATION g_tlnr_entry-patreg_rfc
             EXPORTING
*                 I_MANDT         = SY-MANDT
                  i_tlnrid        = l_n1prbew-tlnrid
                  I_FALNR         = l_n1prbew-falnr
                  I_LFDNR         = l_n1prbew-lfdnr
             IMPORTING
                 E_N1PRBEW_ENTRY = tmp_n1prbew
             EXCEPTIONS
                  system_failure        = 1 MESSAGE g_msgtext
                 communication_failure = 2 MESSAGE g_msgtext.

ISHMED_PATREG_PAT_BOOK_CALL
  CALL FUNCTION 'ISHMED_PATREG_PAT_BOOK_CALL'
    DESTINATION g_tlnr_entry-patreg_rfc
      EXPORTING
           I_UP_DATE       = l_error_entry-updat
           I_UP_NAME       = l_error_entry-upuser
           i_flg_test_book = p_flag_test "Test: rollback am RFC-System
      IMPORTING
           E_RETMAXTYPE    = l_retmaxtype
      TABLES
           T_XN1PRPAT      = lt_n1prpat
           T_RETURN        = lt_return
      EXCEPTIONS
           system_failure        = 1 MESSAGE g_msgtext
           communication_failure = 2 MESSAGE g_msgtext.

ISHMED_PATREG_N1PRPAT_READ
        CALL FUNCTION 'ISHMED_PATREG_N1PRPAT_READ'
          DESTINATION g_tlnr_entry-patreg_rfc
            EXPORTING
                 I_TLNRID     = '*'
                 I_PATID      = l_n1prpat-patid
                 I_STORN      = '*'       "SCHWINGENSCH Ins 20.06.2000

ISHMED_PATREG_PATZUO_BOOK_CALL
  CALL FUNCTION 'ISHMED_PATREG_PATZUO_BOOK_CALL'
    DESTINATION g_tlnr_entry-patreg_rfc
      EXPORTING
           I_UP_DATE          = l_error_entry-updat
           I_UP_NAME          = l_error_entry-upuser
           i_flg_test_book = p_flag_test "Test: rollback am RFC-System
      IMPORTING
           E_RETMAXTYPE    = l_retmaxtype
      TABLES
           T_XN1PRPATZUO      = lt_n1prpatzuo
           T_RETURN        = lt_return
      EXCEPTIONS
           system_failure        = 1 MESSAGE g_msgtext
           communication_failure = 2 MESSAGE g_msgtext.

ISHMED_PATREG_N1PRPAT_READ
        CALL FUNCTION 'ISHMED_PATREG_N1PRPAT_READ'
          DESTINATION g_tlnr_entry-patreg_rfc
            EXPORTING
                 I_TLNRID     = l_n1prpatzuo-tlnrid
                 I_PATID      = l_n1prpatzuo-patid
                 I_PATNR      = l_n1prpatzuo-patnr
                 I_STORN      = '*'       "SCHWINGENSCH Ins 20.06.2000


Contribute (Add Comments)

Although this basic information may have limited use it does provide an easy to find location to store any knowledge about this program/report.

The contribute/comments section below therefore offer's an opportunity for anyone to add additional information. This can be anything from useful hints, tips and screen shots to relevant SAP notes or anything else you feel is relevant to this report.

This will then be available for everyone to easily find by simply searching on the report name RN1PRERRORMODIFY or its description.


   
 

RN1PRERRORMODIFY - documentation and ABAP source code
RN1PRERRORMODIFY - documentation and ABAP source code
RN1PRERRORHANDLE - documentation and ABAP source code
RN1PRERRORHANDLE - documentation and ABAP source code
RN1PREC_DEL_N1PRECAPPPAR - i.s.h.med: Empty Patient Record Table N1PRECAPPPAR
RN1PREC_DEL_N1PRECAPPPAR - i.s.h.med: Empty Patient Record Table N1PRECAPPPAR