SAP Reports / Programs | Basic Data | SAP Healthcare - Industry-Specific Components for Hospitals | Basic Data(IS-H-BD) SAP IS
RNUDRG0A SAP ABAP Report - IS-H: Data Exchange with DRG Grouper for Multiple Cases
RNUDRG0A is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). It is used for Mass Grouping with DRG Coding and Grouping System The report
If you would like to execute this report or see the full code listing simply enter RNUDRG0A into the relevant SAP transactions such as SE38 or SE80
Transaction Code(s):
Below is a list of transaction codes which are relevant to this SAP report
NPDRG3 - IS-H: DRG Grouping of Multiple Cases
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 RNUDRG0A. "Basic submit
SUBMIT RNUDRG0A AND RETURN. "Return to original report after report execution complete
SUBMIT RNUDRG0A 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: SE_EINRI = D Institution
Selection Text: SE_EXP = Start Grouping Directly
Selection Text: SE_ICASE = Dsp. Files From Imp.Files Only
Selection Text: SE_IMP = Start Import Directly
Selection Text: SE_TESTM = Test Mode: Do Not Save DRG
Selection Text: SO_ADATV = Admission Date
Selection Text: SO_EDATV = Discharge Date
Selection Text: SO_FABRK = D Billing Status
Selection Text: SO_FALNR = D Case
Selection Text: SO_MDSTA = D Med. Doc. Status Key
Selection Text: SO_MDSTS = D Med.Doc. Status Profile
Selection Text: SO_ORGFA = Departmental Org. Unit
Selection Text: SO_ORGPF = Nursing Organizational Unit
Selection Text: SO_PATNR = D Patient
Selection Text: SO_PNAME = Last Name
Selection Text: P_TEIL = Day Patient
Selection Text: ALVDVAR1 = Layout Before Grouping
Selection Text: ALVDVAR2 = Layout After Grouping
Selection Text: P_AMBU = Outpatient
Selection Text: P_ENABEX = Repeat Export Without Import
Selection Text: P_EX1 = D Extract Name (Generate)
Selection Text: P_EX2 = D Extract Name (Display)
Selection Text: P_EXLOAD = D Display Extract
Selection Text: P_EXSAVE = D Generate Extract
Selection Text: P_EXT1 = D Extract Name
Selection Text: P_ISODRG = All Despite DRG
Selection Text: P_NODRG = w/o DRG
Selection Text: P_NOEX = D New Selection
Selection Text: P_REGROU = with Regroup.Advised
Selection Text: P_SELKZ = D Case Selection
Selection Text: P_STAT = Inpatient
Title: IS-H: Data Exchange with DRG Grouper for Multiple Cases
Text Symbol: 022 = Type
Text Symbol: 023 = Test Mode: Do Not Save DRG
Text Symbol: 024 = List Layout
Text Symbol: BL1 = Group Cases
Text Symbol: G01 = Case and Patient Information
Text Symbol: G02 = Additional Patient Information
Text Symbol: G03 = Additional Case Information
Text Symbol: G04 = Error Specifications
Text Symbol: G05 = Patient Information
Text Symbol: G06 = Case Information
Text Symbol: S01 = Institution
Text Symbol: T03 = Number of Cases:
Text Symbol: T04 = Number of Cases Selected:
Text Symbol: T05 = Including Successfully Proc.:
Text Symbol: X01 = Case List for Data Exchange with DRG Grouper
Text Symbol: 021 = Msg. Type
Text Symbol: 001 = Select Case
Text Symbol: 005 = Runtime Options
Text Symbol: 007 = Start Grouping Directly
Text Symbol: 008 = Allow Repeat Export Without Import
Text Symbol: 009 = Start Import Directly
Text Symbol: 010 = No Import Checks
Text Symbol: 011 = Group Cases Despite DRG
Text Symbol: 012 = Display Cases From Import Files Only
Text Symbol: 013 = Inpatient
Text Symbol: 014 = Outpatient
Text Symbol: 015 = Day Patient
Text Symbol: 017 = w/o DRG
Text Symbol: 018 = with Regroup.Advised
Text Symbol: 019 = All Despite DRG
Text Symbol: 020 = Message Type Icon
INCLUDES used within this REPORT RNUDRG0A
MNCEDIG0,
RNLALV00, " IMPORTANT DECLARATIONS FOR ALV (INCLUDES
RNCOLOUR,
MNCDATA0,
MNCDRGCDF_GENERAL,
MNDATA_MOVEMENT_CATEGORIES,
MNDATA_BILLING_TYPES,
RNSSTABL.
INCLUDE RNMDSTATUS_DATA.
INCLUDE RNEXTRACT_DATA.
INCLUDE RNSSEXTR.
INCLUDE RNSSEINR.
INCLUDE RNMDSTATUS_SSR.
INCLUDE RNSSIEXT.
INCLUDE RNMDSTATUS_INIT.
INCLUDE RNSSSEIN.
INCLUDE RNSSSEXT.
INCLUDE RNSSSPBO.
INCLUDE RNSSSEXT_PBO.
INCLUDE RNSSSEXT_VALUE_REQUEST.
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_EINRI_CHECK call function 'ISH_EINRI_CHECK' exporting ss_einri = se_einri importing ss_tn01 = tn01 exceptions others = 1.
ISH_CASE_VALUE_REQUEST call function 'ISH_CASE_VALUE_REQUEST' exporting ss_einri = se_einri ss_vcode = gc_update importing ss_falnr = so_falnr-low.
ISH_CASE_VALUE_REQUEST call function 'ISH_CASE_VALUE_REQUEST' exporting ss_einri = se_einri ss_vcode = gc_update importing ss_falnr = so_falnr-high.
ISH_SHOW_LIST_PATIENT call function 'ISH_SHOW_LIST_PATIENT' exporting anfo = on vcode = 'DIS' npat_einri = se_einri importing npat_patnr = help_patnr * NPAT_PZIFF = HELP_PZIFF * STORNO_SELECTED = STORNO_SELECTED * WEITER = WEITER exceptions geschlecht_falsch = 01 no_authority = 02 npat_not_found = 03 selection_false = 04.
ISH_SHOW_LIST_PATIENT call function 'ISH_SHOW_LIST_PATIENT' exporting anfo = on vcode = 'DIS' npat_einri = se_einri importing npat_patnr = help_patnr * NPAT_PZIFF = HELP_PZIFF * STORNO_SELECTED = STORNO_SELECTED * WEITER = WEITER exceptions geschlecht_falsch = 01 no_authority = 02 npat_not_found = 03 selection_false = 04.
REUSE_ALV_EXTRACT_SAVE call function 'REUSE_ALV_EXTRACT_SAVE' exporting is_extract = gs_extract1 i_get_selinfos = on i_exp01 = rnstat i_exp02 = itab_outlist i_exp03 = gs_variant1.
REUSE_ALV_EXTRACT_LOAD call function 'REUSE_ALV_EXTRACT_LOAD' exporting is_extract = gs_extract2 importing * ES_ADMIN = es_sel_hide = gs_sel_hide changing c_exp01 = rnstat c_exp02 = itab_outlist c_exp03 = gs_variant1 exceptions not_found = 1 wrong_relid = 2 no_report = 3 no_exname = 4 no_import_possible = 5 others = 6.
ISH_CALL_LIST_HEAD call function 'ISH_CALL_LIST_HEAD' exporting einri = rnstat-einri line_size = rnstat-line_size repid = rnstat-repid title_lin1 = rnstat-title_lin1 title_lin2 = rnstat-title_lin2 uline = off exceptions invalid_einri = 0 others = 0.
ISH_READ_NPAT_MULTI call function 'ISH_READ_NPAT_MULTI' exporting it_npat_pk = lt_patnr_ps i_read_db = on i_einri = se_einri importing et_npat = lt_npat_ps.
ISH_CASE_SELECTION_READ call function 'ISH_CASE_SELECTION_READ' exporting ss_einri = se_einri ss_selkz = p_selkz * IMPORTING * SS_NFAK = tables ss_faelle = so_falnr " limited to selected cases ss_falnr = case_selection_tab "result exceptions not_found = 1 others = 2.
ISH_READ_NCDF_MULTIPLE * CALL FUNCTION 'ISH_READ_NCDF_MULTIPLE' select distinct falnr from ncdf into table it_falnr where einri = se_einri and ( ninoutsign = gcn_301dir_out or ( ninoutsign = gcn_301dir_in and errindic = on ) ).
ISH_UNIRETCASE_ATTRIB_GET call function 'ISH_UNIRETCASE_ATTRIB_GET' exporting i_einri =
-einri i_falnr = -falnr importing e_apxnr = l_apxnr e_lead = l_lead * e_reason = e_outod = l_outod * e_falnr_lead = exceptions no_uniretcase = 1 others = 2.
ISH_MD_STATUS_SELECT_OBJNR call function 'ISH_MD_STATUS_SELECT_OBJNR' exporting i_mdsta = so_mdsta[] i_mdsts = so_mdsts[] i_objnr_tab = it_objnr importing e_excl_objnr_tab = it_excl_objnr.
ISH_SYMBOL_BILLED call function 'ISH_SYMBOL_BILLED' exporting ss_abrkz =
-abrkz importing ss_symbol = -abrkzs.
ISH_GET_MD_STATUS call function 'ISH_GET_MD_STATUS' exporting i_einri =
-einri i_falnr = -falnr i_objnr = -objnr importing e_md_status = l_md_status exceptions not_active = 1 not_found = 2 others = 3.
call function 'REUSE_ALV_LIST_DISPLAY' exporting * I_INTERFACE_CHECK = ' ' i_callback_program = rnstat-repid i_callback_pf_status_set = 'SET_PF_STATUS_BEFORE' i_callback_user_command = 'USER_COMMAND_BEFORE' * I_STRUCTURE_NAME = is_layout = gs_layout it_fieldcat = xfield * IT_EXCLUDING = it_special_groups = gt_sp_groups[] * IT_SORT = * IT_FILTER = * IS_SEL_HIDE = * i_default = 'X' i_save = 'A' is_variant = gs_variant1 it_events = gt_events[] * it_event_exit = gt_exits[] * 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 = itab_outlist exceptions program_error = 0 others = 0.
ISH_UNIRETCASE_ATTRIB_GET call function 'ISH_UNIRETCASE_ATTRIB_GET' exporting i_einri = wa_outlist-einri i_falnr = wa_outlist-falnr importing e_apxnr = l_apxnr e_lead = l_lead * e_reason = e_outod = l_outod * e_falnr_lead = exceptions no_uniretcase = 1 others = 2.
ISH_BAPI_ADD_RETURN_PARAM call function 'ISH_BAPI_ADD_RETURN_PARAM' changing c_return_tab = return_tab.
ISH_BAPI_ADD_RETURN_PARAM call function 'ISH_BAPI_ADD_RETURN_PARAM' changing c_return_tab = return_tab.
ISH_UNIRETCASE_DRG_GROUP call function 'ISH_UNIRETCASE_DRG_GROUP' exporting i_apxnr = l_apxnr i_callp = callp_rnudrg0a i_collect_and_wait = collect_flag importing e_retmaxtype = l_retmaxtype e_return_tab = l_gr_return_tab.
ISH_ENQUEUE_UNIRETCASE call function 'ISH_ENQUEUE_UNIRETCASE' exporting ss_apxnr = l_apxnr importing ss_retmaxtype = l_retmaxtype tables ss_return = l_gr_return_tab.
ISH_UNIRETCASE_SAVE call function 'ISH_UNIRETCASE_SAVE' importing e_retmaxtype = l_retmaxtype e_return_tab = l_gr_return_tab.
ISH_UNIRETCASE_POOL_REFRESH call function 'ISH_UNIRETCASE_POOL_REFRESH' exporting i_apxnr = l_apxnr.
ISH_BAPI_ADD_RETURN_PARAM call function 'ISH_BAPI_ADD_RETURN_PARAM' changing c_return_tab = return_tab.
ISH_DRG_GROUP call function 'ISH_DRG_GROUP' exporting i_institution = wa_outlist-einri i_casenumber = wa_outlist-falnr i_callp = callp_rnudrg0a * I_PATIENT_DATA = * I_CASE_DATA = * I_BIRTH_DATA = * I_MOVEMENT_TAB = * I_DIA_TAB = * I_ICP_TAB = i_collect_and_wait = collect_flag i_allow_async_anyway = export_always i_apxnr = l_apxnr importing e_drg_tab = l_drg_tab e_dia_tab = l_dia_tab e_icp_tab = l_icp_tab e_synchron = l_synchron changing c_return_tab = return_tab exceptions error_occured = 1 others = 2.
ISH_DRG_GROUP_SAVE call function 'ISH_DRG_GROUP_SAVE' exporting i_institution = wa_outlist-einri i_casenumber = wa_outlist-falnr i_callp = callp_rnudrg0a * I_CASE_DATA = i_drg_tab = l_drg_tab i_dia_tab = l_dia_tab i_icp_tab = l_icp_tab changing c_return_tab = return_tab_save exceptions error_occured = 1 others = 2.
DEQUEUE_ENFAL call function 'DEQUEUE_ENFAL' exporting einri = rnstat-einri falnr = wa_outlist-falnr.
ISH_DRG_GROUP_IMPORT_ASYNCHRON call function 'ISH_DRG_GROUP_IMPORT_ASYNCHRON' exporting i_institution = wa_outlist-einri i_casenumber = wa_outlist-falnr i_callp = callp_rnudrg0a importing e_drg_tab = l_drg_tab e_dia_tab = l_dia_tab e_icp_tab = l_icp_tab e_case_changes = l_case_changes "XTS1579350 e_no_import_case = l_no_import_case changing c_return_tab = return_tab exceptions error_occured = 1 others = 2.
ISH_DRG_GROUP_SAVE call function 'ISH_DRG_GROUP_SAVE' exporting i_institution = wa_outlist-einri i_casenumber = wa_outlist-falnr i_callp = callp_rnudrg0a * i_case_data = i_case_changes = l_case_changes "XTS1579350 i_drg_tab = l_drg_tab i_dia_tab = l_dia_tab i_icp_tab = l_icp_tab changing c_return_tab = return_tab exceptions error_occured = 1 others = 2.
DEQUEUE_ENFAL call function 'DEQUEUE_ENFAL' exporting einri = rnstat-einri falnr = wa_outlist-falnr.
REUSE_ALV_HIERSEQ_LIST_DISPLAY call function 'REUSE_ALV_HIERSEQ_LIST_DISPLAY' exporting i_callback_program = rnstat-repid i_callback_user_command = 'USER_COMMAND_POST' i_callback_pf_status_set = 'SET_PF_STATUS_POST' i_tabname_header = 'ITAB_OUTLIST' i_tabname_item = 'ITAB_ERROR' i_default = on i_save = 'A' is_keyinfo = gs_keyinfo is_layout = gs_layout is_variant = gs_variant2 * is_print = gs_print * IT_SORT = GT_ZSUM[] it_events = gt_events[] it_fieldcat = xfield "CAT[] it_special_groups = gt_sp_groups[] tables t_outtab_header = itab_outlist t_outtab_item = itab_error.
ISH_ALV_FOOTER call function 'ISH_ALV_FOOTER' exporting i_width = width it_lines = it_lines.
ISH_TEST_DIGIT call function 'ISH_TEST_DIGIT' exporting number = p_nfal-falnr importing digite = fziff.
ISH_MESSAGE_LONGTEXT_DISPLAY call function 'ISH_MESSAGE_LONGTEXT_DISPLAY' exporting msgid = msgid msgno = msgno msgv1 = msgv1 msgv2 = msgv2 msgv3 = msgv3 msgv4 = msgv4.
ENQUEUE_ENFAL call function 'ENQUEUE_ENFAL' exporting einri = einri falnr = falnr _scope = 3 exceptions foreign_lock = 4 system_failure = 12.
ISH_ALV_FOOTER call function 'ISH_ALV_FOOTER' exporting i_width = width it_lines = it_lines.
ISH_COUNTRY_VERSION_GET call function 'ISH_COUNTRY_VERSION_GET' importing ss_cvers = l_cvers.
ISH_TNCATD_ACTIVE call function 'ISH_TNCATD_ACTIVE' exceptions not_active = 1 others = 2.
ISH_TNCATD_READ call function 'ISH_TNCATD_READ' exporting i_einri = rnstat-einri i_discharge_date = l_dis_date importing e_found = l_dt_found exceptions usage_error = 1 others = 2.
ISH_FIND_DRG_GRPSY call function 'ISH_FIND_DRG_GRPSY' exporting i_institution = rnstat-einri i_date = l_drg_date importing e_grpsy = l_grpsy exceptions not_found = 1 others = 2.
ISH_FIND_DRG_GRPID call function 'ISH_FIND_DRG_GRPID' exporting i_institution = rnstat-einri i_grpsy = l_grpsy i_uname = sy-uname i_callp = callp_rnudrg0a importing e_grpid = l_grpid exceptions not_found = 1 others = 2.
ISH_READ_DRG_GRPID call function 'ISH_READ_DRG_GRPID' exporting i_institution = rnstat-einri i_grpid = l_grpid importing e_tngrp2 = wa_tngrp2 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_variant1 exceptions wrong_input = 1 not_found = 2 program_error = 3 others = 4.
REUSE_ALV_VARIANT_DEFAULT_GET call function 'REUSE_ALV_VARIANT_DEFAULT_GET' exporting i_save = 'A' changing cs_variant = gs_variant2 exceptions wrong_input = 1 not_found = 2 program_error = 3 others = 4.
REUSE_ALV_VARIANT_F4 call function 'REUSE_ALV_VARIANT_F4' exporting is_variant = hlpvar i_save = 'A' importing e_exit = gs_exit es_variant = gs_variant exceptions not_found = 1 program_error = 2 others = 3.
ISH_DYNP_VALUES_READ call function 'ISH_DYNP_VALUES_READ' exporting dyname = sy-repid dynumb = '1000' * TRANSLATE_TO_UPPER = ' ' * CONVERSION = 'X' tables dynpfields = tab_dynpread exceptions invalid_abapworkarea = 1 invalid_dynprofield = 2 invalid_dynproname = 3 invalid_dynpronummer = 4 invalid_request = 5 no_fielddescription = 6 undefind_error = 7 others = 8.
ISH_GRAPHIC_ORGID_SELECT call function 'ISH_GRAPHIC_ORGID_SELECT' exporting einri = l_einri no_bauid = on freig = on fazuw = l_fazuw pfzuw = l_pfzuw importing selected_orgid = p_orgid exceptions others = 0.
ISH_READ_NFAL call function 'ISH_READ_NFAL' exporting ss_einri = wa_outlist-einri ss_falnr = wa_outlist-falnr importing ss_nfal = p_nfal exceptions not_found = 1 no_authority = 2 others = 3.
ISH_POOL_REFRESH_FALNR call function 'ISH_POOL_REFRESH_FALNR' exporting ss_falnr =
-falnr ss_einri = -einri.
ISH_POOL_REFRESH_PATNR call function 'ISH_POOL_REFRESH_PATNR' exporting ss_patnr =
-patnr.
ISH_REFRESH_NFAL call function 'ISH_REFRESH_NFAL'.
ISH_NBEWTAB_REFRESH call function 'ISH_NBEWTAB_REFRESH'.
STATUS_BUFFER_REFRESH call function 'STATUS_BUFFER_REFRESH'.
ISH_READ_NTPK_REFRESH call function 'ISH_READ_NTPK_REFRESH'.
ENQUEUE_ENFAK call function 'ENQUEUE_ENFAK' exporting * MODE_NFAK = 'E' * MANDT = SY-MANDT einri = einri selkz = selkz * X_EINRI = ' ' * X_SELKZ = ' ' * _SCOPE = '2' * _WAIT = ' ' * _COLLECT = ' ' exceptions foreign_lock = 1 system_failure = 2 others = 3.
DEQUEUE_ENFAK call function 'DEQUEUE_ENFAK' exporting * MODE_NFAK = 'E' * MANDT = SY-MANDT einri = einri selkz = selkz.
ISH_POOL_SNAPSHOT call function 'ISH_POOL_SNAPSHOT' importing ss_stack = l_stack.
ISH_POOL_UNDO call function 'ISH_POOL_UNDO' exporting ss_stack = l_stack.
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 RNUDRG0A or its description.
RNUDRG0A - IS-H: Data Exchange with DRG Grouper for Multiple Cases RNUDRG0A - IS-H: Data Exchange with DRG Grouper for Multiple Cases RNUDRG01 - IS-H: Copy DRG Catalog into In-House Service Catalog RNUDRG01 - IS-H: Copy DRG Catalog into In-House Service Catalog RNUDNKIP - IS-H: Delete Duplicate Entries in Table NKIP for Unique Index RNUDNKIP - IS-H: Delete Duplicate Entries in Table NKIP for Unique Index