RN1PRRESTDATASAVE SAP ABAP Report - documentation and ABAP source code

RN1PRRESTDATASAVE 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 RN1PRRESTDATASAVE 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 RN1PRRESTDATASAVE

No INCLUDES are used within this REPORT code!

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_REST_DATA_GET
    CALL FUNCTION 'ISHMED_PATREG_REST_DATA_GET'
      DESTINATION pa_tlnr-eigene_rfc
      EXPORTING
        i_fal                 = pa_fal
        i_bew                 = pa_bew
        i_dia                 = pa_dia
        i_rsf                 = pa_rsf
        i_doc                 = pa_doc
        i_tlnrid              = pa_tlnr-tlnrid
        i_einri               = pa_tlnr-einri
      IMPORTING
        e_retmaxtype          = tmp_mestype_worst
      TABLES
        t_fal                 = gt_fal
        t_bew                 = gt_bew
        t_dia                 = gt_dia
        t_rsf                 = gt_rsf
        t_doc                 = gt_doc
        t_patnr               = gt_patnr
        t_return              = gt_return
      EXCEPTIONS
        system_failure        = 1  MESSAGE g_msgtext
        communication_failure = 2  MESSAGE g_msgtext.

ISHMED_PATREG_INIT_DEQUEUE
  CALL FUNCTION 'ISHMED_PATREG_INIT_DEQUEUE'
*   FUB läuft am PATREG-System
    EXPORTING
*        i_tlnrid     = pa_tlnr-tlnrid
        i_eigene_rfc = pa_tlnr-eigene_rfc
        i_synchron   = 'X'
    EXCEPTIONS
        no_dequeue  = 1
        no_tlnr     = 2
        OTHERS      = 3.

ISHMED_PATREG_INIT_ENQUEUE
  CALL FUNCTION 'ISHMED_PATREG_INIT_ENQUEUE'
* FUB läuft am Patreg - System!
       EXPORTING
*            i_tlnrid     = pa_tlnr-tlnrid nicht nötig
            i_eigene_rfc = pa_tlnr-eigene_rfc "für TLNR System
       EXCEPTIONS
         no_enqueue = 1
         no_tlnr    = 2
         OTHERS     = 3.

ISHMED_VERBUCHER_N1PRFAL
      CALL FUNCTION 'ISHMED_VERBUCHER_N1PRFAL'
*       User, Datum von der NFAL des TLNR übernehmen (Verbuchung)
        TABLES
*         ID 4885 SCHWM Ins 291200 vorhandene überschreiben        Start
          t_yn1prfal      = lt_fal_old_pat[]
*         ID 4885 SCHWM Ins 291200 vorhandene überschreiben          End
          t_xn1prfal      = lt_fal_patient
        EXCEPTIONS
          no_insert = 1
          no_update = 2
          no_delete = 3
          OTHERS    = 4.

ISHMED_VERBUCHER_N1PRBEW
      CALL FUNCTION 'ISHMED_VERBUCHER_N1PRBEW'
*       User, Datum von der NBEW des TLNR übernehmen (Verbuchung)
      TABLES
*       ID 4885 SCHWM Ins 291200 vorhandene überschreiben          Start
        t_yn1prbew      = lt_bew_old_pat[]
*       ID 4885 SCHWM Ins 291200 vorhandene überschreiben            End
        t_xn1prbew      = lt_bew_patient
      EXCEPTIONS
          no_insert = 1
          no_update = 2
          no_delete = 3
          OTHERS    = 4.

ISHMED_VERBUCHER_N1PRDIA
        CALL FUNCTION 'ISHMED_VERBUCHER_N1PRDIA'
*         User, Datum von der NDIA des TLNR übernehmen (Verbuchung)
          TABLES
*          ID 4885 SCHWM Ins 291200 vorhandene überschreiben       Start
           t_yn1prdia      = lt_dia_old_pat[]
*          ID 4885 SCHWM Ins 291200 vorhandene überschreiben         End
            t_xn1prdia      = lt_dia_patient
          EXCEPTIONS
            no_insert = 1
            no_update = 2
            no_delete = 3
            OTHERS    = 4.

ISHMED_VERBUCHER_N1PRRSF
        CALL FUNCTION 'ISHMED_VERBUCHER_N1PRRSF'
*         User, Datum von der NRSF des TLNR übernehmen (Verbuchung)
          TABLES
*           ID 4885 SCHWM Ins 291200 vorhandene überschreiben      Start
            t_yn1prrsf      = lt_rsf_old_pat[]
*           ID 4885 SCHWM Ins 291200 vorhandene überschreiben        End
            t_xn1prrsf      = lt_rsf_patient
          EXCEPTIONS
          no_insert = 1
          no_update = 2
          no_delete = 3
          OTHERS    = 4.

ISHMED_VERBUCHER_N1PRDOC
        CALL FUNCTION 'ISHMED_VERBUCHER_N1PRDOC'
*         User, Datum von der NFAL des TLNR übernehmen (Verbuchung)
          TABLES
*           ID 4885 SCHWM Ins 291200 vorhandene überschreiben      Start
            t_yn1prdoc      = lt_doc_old_pat[]
*           ID 4885 SCHWM Ins 291200 vorhandene überschreiben        End
            t_xn1prdoc      = lt_doc_patient
        EXCEPTIONS
          no_insert = 1
          no_update = 2
          no_delete = 3
          OTHERS    = 4.

ID_OF_BACKGROUNDTASK
*    CALL FUNCTION 'ID_OF_BACKGROUNDTASK'
*         IMPORTING
*              TID     = l_trfc_id.

ISHMED_PATREG_TRFC_ID_CREATE
*      CALL FUNCTION 'ISHMED_PATREG_TRFC_ID_CREATE'
*           IN BACKGROUND TASK.

ID_OF_BACKGROUNDTASK
*      CALL FUNCTION 'ID_OF_BACKGROUNDTASK'
*           IMPORTING
*                TID     = l_trfc_id.

ISHMED_PATREG_ERRORTAB_APPEND
*      CALL FUNCTION 'ISHMED_PATREG_ERRORTAB_APPEND'
*           IN BACKGROUND TASK
*           TABLES
*                t_n1prerror = lt_error.

ISHMED_PATREG_TABLE_EMPTY
  CALL FUNCTION 'ISHMED_PATREG_TABLE_EMPTY'
    EXPORTING
      i_table_name = 'N1PRTMPCPYPAT'
      i_tlnrid     = pa_tlnr-tlnrid.