RNLDIA01 SAP ABAP Report - IS-H: Evaluate Diagnoses

SAP T-Codes / Example ABAP code
ABAP OO / SAP Function Modules
ABAP reports / SAP Error Messages
SAP Tables / SAP Video Training

RNLDIA01 is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). It is used for This program allows you to evaluate diagnoses and the total number of occurring cases...see full standard documentation available for this report. Also check out the submitted Comments related to this SAP report and the details below to see which OBJECTS it interacts with such as TABLES, FUNCTION MODULES, INCLUDES ETC.

If you would like to execute this report or see the full code listing simply enter RNLDIA01 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 RNLDIA01. "Basic submit
SUBMIT RNLDIA01 AND RETURN. "Return to original report after report execution complete
SUBMIT RNLDIA01 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: AUSBEGDT = Evaluation Period
Selection Text: AUSENDDT = Evaluation Period
Selection Text: ONLY_REF = Referral Diagnoses only
Selection Text: ONLY_TR = Treatment Diagnoses only
Selection Text: P_SELKZ = D .
Selection Text: SE_AFDIA = Admission Diagnoses
Selection Text: SE_ANZOP = Number of Surgeries
Selection Text: SE_BEWTY = Movement Category
Selection Text: SE_BWART = Movement Type
Selection Text: SE_DKAT1 = Catalog
Selection Text: SE_DKEY1 = Diagnosis Code
Selection Text: SE_DRG = DRG Diagnoses
Selection Text: SE_EINRI = Institution
Selection Text: SE_ENDIA = Discharge Diagnoses
Selection Text: SE_EXPAN = Expand Cases
Selection Text: SE_FHDIA = Dept. Main Diagnoses
Selection Text: SE_GBDAT = Birthdate
Selection Text: SE_KHDIA = Hospital Main Diagnoses
Selection Text: SE_M = Male
Selection Text: SE_OPDIA = Surgery Diagnoses
Selection Text: SE_ORGFA = Departmental Org. Unit
Selection Text: SE_ORGPF = Nursing Org. Unit
Selection Text: SE_TAGE = Length of Stay
Selection Text: SE_U = Unknown
Selection Text: SE_W = Female
Selection Text: ALVDVAR = D .
Selection Text: P_EX1 = D .
Selection Text: P_EX2 = D .
Selection Text: P_EXLOAD = D .
Selection Text: P_EXSAVE = D .
Selection Text: P_EXT1 = D .
Selection Text: P_NOEX = D .
Selection Text: SE_FALNR = D .
Selection Text: ALL_DIAS = All Diagn.Categories
Title: IS-H: Evaluate Diagnoses
Text Symbol: 001 = To
Text Symbol: 002 = Evaluation Period
Text Symbol: 003 = Female

Text Symbol: 004 = Male
Text Symbol: 005 = Sex
Text Symbol: 008 = Unknown
Text Symbol: 009 = Catalog
Text Symbol: 026 = Further Classification for Treatment Diagnoses:
Text Symbol: 027 = All Diagn.Categories
Text Symbol: 028 = Referral Diagnoses only
Text Symbol: 029 = Treatment Diagnoses only
Text Symbol: 030 = Medical Data
Text Symbol: 031 = Administrative Data
Text Symbol: 032 = Patient Data
Text Symbol: 033 = Diagnosis Types
Text Symbol: 034 = DRG Diagnoses
Text Symbol: 035 = Admission Diagnoses
Text Symbol: 036 = Discharge Diagnoses
Text Symbol: 037 = Surgery Diagnoses
Text Symbol: 038 = Department Main Diagn.
Text Symbol: 039 = Hospital Main Diagn.
Text Symbol: 040 = Layout
Text Symbol: 041 = Diagnoses Evaluation with Patient List
Text Symbol: 042 = Expand Cases
Text Symbol: 043 = Number
Text Symbol: 044 = Number of Entries
Text Symbol: 045 = List Layout
Text Symbol: G01 = Diagnosis Data
Text Symbol: G02 = Other Diagnosis Data
Text Symbol: G03 = Patient Data
Text Symbol: G04 = Other Patient Data
Text Symbol: S01 = Institution

INCLUDES used within this REPORT RNLDIA01

INCLUDE RNDATA00.
INCLUDE RNEXTRACT_DATA.
INCLUDE RNSSEXTR.
INCLUDE RNSSEINR.
INCLUDE RNSSINIT.
INCLUDE RNSSIEXT.
INCLUDE RNSSSPBO.
INCLUDE RNSSSEXT_PBO.
INCLUDE RNSSSEIN.
INCLUDE RNSSSAUS.

INCLUDE RNSSSVER.
INCLUDE RNSSSEXT.

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_MODIFY_SCREEN CALL FUNCTION 'ISH_MODIFY_SCREEN' EXPORTING dynnr = sy-dynnr pname = repid EXCEPTIONS OTHERS = 1.

REUSE_ALV_EXTRACT_SAVE CALL FUNCTION 'REUSE_ALV_EXTRACT_SAVE' EXPORTING is_extract = gs_extract1 i_get_selinfos = on i_exp01 = rnstat i_exp02 = output_header_tab i_exp03 = output_list_tab i_exp04 = gs_variant.

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 = output_header_tab c_exp03 = output_list_tab c_exp04 = gs_variant EXCEPTIONS not_found = 1 wrong_relid = 2 no_report = 3 no_exname = 4 no_import_possible = 5 OTHERS = 6.

MESSAGES_ACTIVE
*    call function 'MESSAGES_ACTIVE'
*         exceptions
*              not_active = 01.

MESSAGES_INITIALIZE
*      call function 'MESSAGES_INITIALIZE'.

MESSAGE_STORE
*  call function 'MESSAGE_STORE'
*       exporting
*            arbgb = $arbgb
*            msgty = $mtyp  "I, W, E, A
*            txtnr = $mnr  "Message-Nummer
*            msgv1 = $mv1
*            msgv2 = $mv2
*            msgv3 = $mv3
*            msgv4 = $mv4.

ISH_READ_NFAL CALL FUNCTION 'ISH_READ_NFAL' EXPORTING ss_einri = se_einri ss_falnr = t_ndia-falnr ss_read_db = ' ' ss_check_auth = ' ' IMPORTING ss_nfal = ls_nfal EXCEPTIONS not_found = 1 not_found_archived = 2 no_authority = 3 OTHERS = 4.

ISH_DIA_CATALOGUE_INSTANTIATE CALL FUNCTION 'ISH_DIA_CATALOGUE_INSTANTIATE' IMPORTING e_catalogue = dia_cat.

ISH_NPAT_CONCATENATE CALL FUNCTION 'ISH_NPAT_CONCATENATE' EXPORTING ss_einri = patient_record-einri ss_patnr = patient_record-patnr ss_npat_complete = off ss_npat = patient_record ss_list = on IMPORTING ss_pname = name_vorname EXCEPTIONS OTHERS = 0.

ISH_READ_NGPA CALL FUNCTION 'ISH_READ_NGPA' EXPORTING gpart = wa_case_dia-extkh ss_with_nadr = off IMPORTING ngpa_e = ngpa_record EXCEPTIONS not_found = 1 no_authority = 2 OTHERS = 3.

REUSE_ALV_HIERSEQ_LIST_DISPLAY CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY' EXPORTING * I_INTERFACE_CHECK = ' ' i_callback_program = rnstat-repid i_callback_pf_status_set = 'SET_ALV_STATUS' * i_callback_user_command = 'ALV_USER_COMMAND' is_layout = gs_layout it_fieldcat = xfield * IT_EXCLUDING = it_special_groups = gt_sp_groups[] it_sort = gs_sort * IT_FILTER = * IS_SEL_HIDE = * I_DEFAULT = 'X' i_save = 'A' is_variant = gs_variant it_events = gt_events[] * it_event_exit = i_tabname_header = 'OUTPUT_HEADER_TAB' i_tabname_item = 'OUTPUT_LIST_TAB' * I_STRUCTURE_NAME_HEADER = * I_STRUCTURE_NAME_ITEM = is_keyinfo = gs_keyinfo is_print = gs_print is_sel_hide = gs_sel_hide * IMPORTING * E_EXIT_CAUSED_BY_CALLER = * ES_EXIT_CAUSED_BY_USER = TABLES * Header table with output data t_outtab_header = output_header_tab * Position table with output data t_outtab_item = output_list_tab EXCEPTIONS OTHERS = 0.

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.

REUSE_ALV_VARIANT_DEFAULT_GET CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET' EXPORTING i_save = 'A' CHANGING cs_variant = gs_variant EXCEPTIONS wrong_input = 1 not_found = 2 program_error = 3 OTHERS = 4.

ISH_CALL_LIST_HEAD CALL FUNCTION 'ISH_CALL_LIST_HEAD' EXPORTING einri = rnstat-einri ausbegdt = rnstat-ausbegdt ausenddt = rnstat-ausenddt line_size = rnstat-line_size repid = rnstat-repid title_lin1 = rnstat-title_lin1 uline = off EXCEPTIONS OTHERS = 0.

ISH_SHOW_DIAGNOSEN

CALL FUNCTION 'ISH_SHOW_DIAGNOSEN' EXPORTING ss_dkat = p_dkat ss_einri = p_einri ss_selmod = 'UPD' IMPORTING ss_sel_dkat = chosen_kat ss_sel_dkey = chosen_key ss_sel_nkdi = find_nkdi.

ISH_GRAPHIC_ORGID_SELECT CALL FUNCTION 'ISH_GRAPHIC_ORGID_SELECT' EXPORTING einri = se_einri no_bauid = '*' "keine Baueinheiten IMPORTING placed_above_orgfa = orgfa placed_above_orgpf = orgpf selected_orgid = p_orgid EXCEPTIONS OTHERS = 0.

ISH_GET_MOVEMENTS
    CALL FUNCTION 'ISH_GET_MOVEMENTS'
      EXPORTING
        ss_beginn   = ausbegdt
        ss_einri    = se_einri
        ss_ende     = ausenddt
      TABLES
        ss_falnr    = se_falnr[] "dummy_falnr
        ss_vnbew    = nbewtab
        ss_fieldcat = fieldcat
      EXCEPTIONS
        OTHERS      = 0.

ISH_GET_MOVEMENTS CALL FUNCTION 'ISH_GET_MOVEMENTS' EXPORTING ss_beginn = ausbegdt ss_einri = se_einri ss_ende = ausenddt ss_refresh = on TABLES ss_falnr = r_falnr ss_vnbew = tmp_nbew ss_fieldcat = fieldcat EXCEPTIONS not_found = 1 OTHERS = 2.

ISH_GET_MOVES_FOR_DIAS CALL FUNCTION 'ISH_GET_MOVES_FOR_DIAS' EXPORTING ss_institution = p_nfal-einri ss_casenumber = p_nfal-falnr ss_casedata = p_nfal ss_drg_category = space TABLES ss_case_movements = case_movements ss_moves_to_choose = start_moves EXCEPTIONS no_moves = 1 case_problem = 2 move_problem = 3 customizing_problem = 4 OTHERS = 5.

ISH_CASE_SELECTION_READ CALL FUNCTION 'ISH_CASE_SELECTION_READ' EXPORTING ss_einri = p_einri ss_selkz = p_selkz * IMPORTING * ss_nfak = TABLES * ss_nfap = * ss_nfam = * ss_faelle = ss_falnr = lr_cases * ss_hlfd = EXCEPTIONS not_found = 1 OTHERS = 2.

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 RNLDIA01 or its description.

RNLDIA01 - IS-H: Evaluate Diagnoses
RNLDIA01 - IS-H: Evaluate Diagnoses
RNLCOT00_GET_PNT_MULTIF01 - Include RNLCOT00_GET_PNT_MULTIF01
RNLCOT00 - IS-H: Evaluate Treatment Certificates
RNLCOT00 - IS-H: Evaluate Treatment Certificates
RNLCASREV - Case Revision Evaluation Report

RMXMP_TRANSFORM_STARTCL01