SAP Reports / Programs
RN2PAT_MERGE_CORRECTION SAP ABAP Report - Program RN2PAT_MERGE_CORRECTION
RN2PAT_MERGE_CORRECTION 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 RN2PAT_MERGE_CORRECTION 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 RN2PAT_MERGE_CORRECTION. "Basic submit
SUBMIT RN2PAT_MERGE_CORRECTION AND RETURN. "Return to original report after report execution complete
SUBMIT RN2PAT_MERGE_CORRECTION VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
Text pool values
Selection Text: R_STDAT = D .
Selection Text: P_TEST = D .
Selection Text: P_PROD = D .
Selection Text: R_RFPAT = Active Patient Number
Title: Program RN2PAT_MERGE_CORRECTION
Text Symbol: S03 = Active Patient Number
Text Symbol: S02 = Cancellation Date
Text Symbol: S01 = Institution
Text Symbol: B02 = Processing Mode
Text Symbol: B01 = Selection Criteria:
Text Symbol: 051 = Call the program again to reassign all data.
Text Symbol: 050 = Locked data cannot be reassigned.
Text Symbol: 042 = Name of Inactive Patient
Text Symbol: 041 = Inactive PATNO
Text Symbol: 040 = Active PATNO
Text Symbol: 035 = For the following patients, the data must still be reasssigned:
Text Symbol: 033 = For the following patients, the data could not be fully reassigned:
Text Symbol: 032 = Number of patients whose data could NOT be changed:
Text Symbol: 031 = Number of patients whose data was changed:
Text Symbol: 030 = Number of patients whose data must be merged:
Text Symbol: 021 = No merged patients found.
Text Symbol: 020 = Number of selected patients:
Text Symbol: 011 = PRODUCTION MODE: The table entries were changed.
Text Symbol: 010 = TEST MODE: No table entries changed.
INCLUDES used within this REPORT RN2PAT_MERGE_CORRECTION
INCLUDE RNDATA00.
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:
ISH_NPAT_CONCATENATE CALL FUNCTION 'ISH_NPAT_CONCATENATE' EXPORTING ss_patnr =
-patnr ss_npat = IMPORTING ss_pname = l_name.
ISH_NPAT_CONCATENATE CALL FUNCTION 'ISH_NPAT_CONCATENATE' EXPORTING ss_patnr =
-patnr ss_npat = IMPORTING ss_pname = l_name.
DEQUEUE_EN2CLIM_OBSVS CALL FUNCTION 'DEQUEUE_EN2CLIM_OBSVS' EXPORTING obsid =
-obsid obsid_vers = 0 _scope = '1'.
DEQUEUE_EN2CLIM_PLDVS CALL FUNCTION 'DEQUEUE_EN2CLIM_PLDVS' EXPORTING pldid =
-pldid _scope = '1'.
DEQUEUE_EN1VP_PAT CALL FUNCTION 'DEQUEUE_EN1VP_PAT' EXPORTING patnr = ps_npat-patnr _scope = '1'.
DEQUEUE_EN1NRS_PLAN CALL FUNCTION 'DEQUEUE_EN1NRS_PLAN' EXPORTING einri = ps_npat-einri patnr = ps_npat-patnr _scope = '1'.
ENQUEUE_ENDOC CALL FUNCTION 'ENQUEUE_ENDOC' EXPORTING dokar =
-dokar doknr = -doknr doktl = -doktl dokvr = -dokvr lfddok = 0 _scope = '2' " an Verbucher vererben * _WAIT = ' ' " Default SPACE EXCEPTIONS foreign_lock = 1 system_failure = 2 OTHERS = 3.
ISH_VERBUCHER_NDOC CALL FUNCTION 'ISH_VERBUCHER_NDOC' IN UPDATE TASK TABLES t_ndoc = lt_rndoc.
ENQUEUE_EN2CLIM_OBSVS CALL FUNCTION 'ENQUEUE_EN2CLIM_OBSVS' EXPORTING obsid =
-obsid obsid_vers = 0 _scope = '1' " nur Dialogeigentümer EXCEPTIONS OTHERS = 3.
ENQUEUE_EN2CLIM_PLDVS CALL FUNCTION 'ENQUEUE_EN2CLIM_PLDVS' EXPORTING pldid =
-pldid _scope = '1' EXCEPTIONS OTHERS = 3.
ENQUEUE_EN2CLIM_SDLVS CALL FUNCTION 'ENQUEUE_EN2CLIM_SDLVS' EXPORTING sdlid =
-sdlid _scope = '1' EXCEPTIONS OTHERS = 3.
ENQUEUE_EN1VP_PAT CALL FUNCTION 'ENQUEUE_EN1VP_PAT' EXPORTING patnr = ps_npat-patnr _scope = 1 EXCEPTIONS OTHERS = 3.
ISHMED_UPDATE_N1VP CALL FUNCTION 'ISHMED_UPDATE_N1VP' IN UPDATE TASK EXPORTING tcode = g_tcode TABLES nn1vp = lt_vn1vp_new on1vp = lt_vn1vp_old.
ENQUEUE_EN1FAT CALL FUNCTION 'ENQUEUE_EN1FAT' EXPORTING fatid =
-fatid _scope = 2 EXCEPTIONS OTHERS = 3.
ISHMED_VERBUCHER_N1FAT CALL FUNCTION 'ISHMED_VERBUCHER_N1FAT' IN UPDATE TASK EXPORTING i_tcode = g_tcode TABLES t_n_n1fat = lt_vn1fat_new t_o_n1fat = lt_vn1fat_old.
ISHMED_UPDATE_N1ANF CALL FUNCTION 'ISHMED_UPDATE_N1ANF' IN UPDATE TASK EXPORTING tcode = g_tcode TABLES nn1anf = lt_vn1anf_new on1anf = lt_vn1anf_old.
ISHMED_UPDATE_NLEM CALL FUNCTION 'ISHMED_UPDATE_NLEM' IN UPDATE TASK EXPORTING tcode = g_tcode TABLES nnlem = lt_vnlem_new onlem = lt_vnlem_old.
ISHMED_UPDATE_N1STRUCMEDREC CALL FUNCTION 'ISHMED_UPDATE_N1STRUCMEDREC' IN UPDATE TASK EXPORTING i_tcode = g_tcode TABLES nn1strucmedrec = lt_vn1strucmedrec_new on1strucmedrec = lt_vn1strucmedrec_old.
CALL FUNCTION 'ENQUEUE_EN1ME_MEORDER' EXPORTING patnr =-patnr meordid = -meordid _scope = 2 EXCEPTIONS OTHERS = 3.
ENQUEUE_EN1ME_THS CALL FUNCTION 'ENQUEUE_EN1ME_THS' EXPORTING patnr =
-patnr mpresnr = -mpresnr _scope = 2 EXCEPTIONS OTHERS = 3.
ISHMED_UPDATE_N1MEORDER CALL FUNCTION 'ISHMED_UPDATE_N1MEORDER' IN UPDATE TASK EXPORTING tcode = g_tcode TABLES t_nn1meorder = lt_vn1meorder_new t_on1meorder = lt_vn1meorder_old.
ISHMED_UPDATE_N1THS CALL FUNCTION 'ISHMED_UPDATE_N1THS' IN UPDATE TASK EXPORTING tcode = g_tcode TABLES t_nn1ths = lt_vn1ths_new t_on1ths = lt_vn1ths_old.
ENQUEUE_EN1NRS_PLAN CALL FUNCTION 'ENQUEUE_EN1NRS_PLAN' EXPORTING einri = ps_npat-einri patnr = ps_npat-patnr _scope = '1' EXCEPTIONS OTHERS = 3.
ISHMED_UPDATE_N1NRSPH CALL FUNCTION 'ISHMED_UPDATE_N1NRSPH' IN UPDATE TASK EXPORTING i_tcode = g_tcode TABLES ndata = lt_vn1nrsph_new odata = lt_vn1nrsph_old.
ISHMED_UPDATE_N1SRV CALL FUNCTION 'ISHMED_UPDATE_N1SRV' IN UPDATE TASK EXPORTING i_tcode = g_tcode TABLES ndata = lt_vn1srv_new odata = lt_vn1srv_old.
ISH_UPDATE_N1CORDER CALL FUNCTION 'ISH_UPDATE_N1CORDER' IN UPDATE TASK EXPORTING i_tcode = g_tcode TABLES nn1corder = lt_vn1corder_new on1corder = lt_vn1corder_old.
ISHMED_UPDATE_N1VKG CALL FUNCTION 'ISHMED_UPDATE_N1VKG' IN UPDATE TASK EXPORTING tcode = g_tcode TABLES nn1vkg = lt_vn1vkg_new on1vkg = lt_vn1vkg_old.
ENQUEUE_EN2GL_TM_SCHED CALL FUNCTION 'ENQUEUE_EN2GL_TM_SCHED' EXPORTING schedule_id =
-schedule_id _scope = 2 EXCEPTIONS OTHERS = 3.
ISH_N2_UPDATE_TM_SCHEDULE CALL FUNCTION 'ISH_N2_UPDATE_TM_SCHEDULE' IN UPDATE TASK EXPORTING it_tm_schedule = lt_tm_schedule.
ISH_N2_UPDATE_N2GL_TR_DIA CALL FUNCTION 'ISH_N2_UPDATE_N2GL_TR_DIA' IN UPDATE TASK EXPORTING it_rn2gl_tr_dia = lt_tr_dia.
ISHMED_UPDATE_N1PATEX CALL FUNCTION 'ISHMED_UPDATE_N1PATEX' IN UPDATE TASK EXPORTING i_tcode = g_tcode TABLES nn1patex = lt_vn1patex_new on1patex = lt_vn1patex_old.
ENQUEUE_ENTMN CALL FUNCTION 'ENQUEUE_ENTMN' EXPORTING tmnid =
-tmnid _scope = '2' EXCEPTIONS OTHERS = 3.
ISH_VERBUCHER_NTMN CALL FUNCTION 'ISH_VERBUCHER_NTMN' IN UPDATE TASK EXPORTING ss_datum = sy-datum ss_uname = sy-uname ss_spras = sy-langu TABLES ss_ntmn_mod = lt_vntmn ss_napp_mod = lt_vnapp.
ISH_SAP_BP_CHECK_ACTIVE CALL FUNCTION 'ISH_SAP_BP_CHECK_ACTIVE' IMPORTING e_status = l_bp_active EXCEPTIONS not_active = 0.
ISH_READ_NPAT_MULTI CALL FUNCTION 'ISH_READ_NPAT_MULTI' EXPORTING it_npat_pk = lt_patnr * I_READ_DB = ' ' * I_ADDRESS_REQ = ' ' * I_TELNR_REQ = ' ' * I_BUFFER_REQ = ' ' * I_WITH_NPAE = ' ' * I_PSEUDO_OVERRIDE = ' ' * I_EINRI = '*' IMPORTING * ET_NPNT = * ET_NPNT_HCRELSHIPS = * ET_NPNT_BUPA_HCRELSHIPS = et_npat = gt_npat * ET_NADR = * ET_NADR2 = * ET_NADR_ABG = * ET_NADR_AN1 = * ET_NADR_AN2 = * ETT_TELNR = * ETT_TELNR2 = * ETT_TELNR_ABG = * ETT_TELNR_AN1 = * ETT_TELNR_AN2 = * E_STATUS = * ET_RC = .
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 RN2PAT_MERGE_CORRECTION or its description.