SAP Reports / Programs

RN2_RAD_DWS_SELECTION SAP ABAP Report - Selection Screen Radiology Work Station







RN2_RAD_DWS_SELECTION is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). It is used for The Radiology work station provides tasks for radiological examinations in individually configurable task selections...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 RN2_RAD_DWS_SELECTION 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 RN2_RAD_DWS_SELECTION. "Basic submit
SUBMIT RN2_RAD_DWS_SELECTION AND RETURN. "Return to original report after report execution complete
SUBMIT RN2_RAD_DWS_SELECTION 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: P_MITARB = Documenting Employee
Selection Text: P_ORGDO = Documenting OU
Selection Text: P_PRIV = Only Private Patients
Selection Text: P_ROWS = Maximum Number of Hits
Selection Text: P_TITLE = Task Selection
Selection Text: P_VAR = Task Selection
Selection Text: S_ANFOE = Initiating Dept.
Selection Text: S_ANPOE = Initiating OU
Selection Text: S_CAT = D .
Selection Text: S_DELETE = Indicators
Selection Text: S_ERBBE = Performing BU
Selection Text: S_ERBOE = Performing Organizational Unit
Selection Text: S_IBGDT = Service Performed on
Selection Text: S_SETBY = Last Processed By
Selection Text: S_TYP = Task
Selection Text: P_EINRI = D .
Selection Text: P_PACSID = D .
Selection Text: S_DATE = D .
Selection Text: S_LEIST = D .
Selection Text: S_PATNR = D .
Selection Text: S_PRIOR = D .
Selection Text: S_RESP = D .
Selection Text: S_SCHED = D .
Selection Text: S_STATE = D .
Title: Selection Screen Radiology Work Station
Text Symbol: 028 = Reset Values
Text Symbol: 001 = Documentation Presettings
Text Symbol: 002 = Restrict Task Selection
Text Symbol: 003 = (Only Valid for Performing Person)
Text Symbol: 004 = Documenting Organizational Unit
Text Symbol: 005 = Display Fields
Text Symbol: 006 = Hide Fields
Text Symbol: 007 = Standard Selection
Text Symbol: 008 = Delete Fields
Text Symbol: 009 = Task Selection
Text Symbol: 010 = Variant Attributes
Text Symbol: 011 = Change Variant Attributes
Text Symbol: 012 = Unknown





Text Symbol: 014 = Service Criteria
Text Symbol: 015 = Open
Text Symbol: 016 = In Processing
Text Symbol: 017 = Completed
Text Symbol: 018 = Canceled
Text Symbol: 019 = Performing Organizational Unit
Text Symbol: 020 = Initiating Nursing Organizational Unit
Text Symbol: 021 = Initiating Departmental Organizational Unit
Text Symbol: 022 = Not
Text Symbol: 023 = Performing Building Unit
Text Symbol: 024 = Variant has not yet been saved
Text Symbol: 025 = Variant saved
Text Symbol: 026 = You are not authorized to change this variant
Text Symbol: 027 = Variant is locked


INCLUDES used within this REPORT RN2_RAD_DWS_SELECTION

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:

ISH_POPUP_EINRI CALL FUNCTION 'ISH_POPUP_EINRI' IMPORTING einri = p_einri EXCEPTIONS cancelled = 1 OTHERS = 2.

SELECT_OPTIONS_RESTRICT CALL FUNCTION 'SELECT_OPTIONS_RESTRICT' EXPORTING restriction = restriction EXCEPTIONS too_late = 0 repeated = 0 selopt_without_options = 0 selopt_without_signs = 0 invalid_sign = 0 empty_option_list = 0 invalid_kind = 0 repeated_kind_a = 0 OTHERS = 0.

RS_SET_SELSCREEN_STATUS CALL FUNCTION 'RS_SET_SELSCREEN_STATUS' EXPORTING p_status = sy-pfkey TABLES p_exclude = gt_funcs.

RS_SUPPORT_SELECTIONS CALL FUNCTION 'RS_SUPPORT_SELECTIONS' EXPORTING report = called_program variant = p_var EXCEPTIONS variant_not_existent = 0 variant_obsolete = 0 OTHERS = 0.

RS_VARIANT_TEXT CALL FUNCTION 'RS_VARIANT_TEXT' EXPORTING curr_report = sy-repid langu = sy-langu variant = p_var IMPORTING v_text = p_title EXCEPTIONS no_text = 0 OTHERS = 0.

ISH_EINRI_CHECK CALL FUNCTION 'ISH_EINRI_CHECK' EXPORTING ss_einri = p_einri IMPORTING ss_einkb = l_einkb EXCEPTIONS not_found = 1 OTHERS = 2.

RS_SUPPORT_SELECTIONS CALL FUNCTION 'RS_SUPPORT_SELECTIONS' EXPORTING report = 'RN2_RAD_DWS_SELECTION' variant = p_var EXCEPTIONS variant_not_existent = 1 variant_obsolete = 2 OTHERS = 3.

RS_SUPPORT_SELECTIONS CALL FUNCTION 'RS_SUPPORT_SELECTIONS' EXPORTING report = called_program variant = p_var EXCEPTIONS variant_not_existent = 0 variant_obsolete = 0 OTHERS = 0.

RS_VARIANT_CHANGE CALL FUNCTION 'RS_VARIANT_CHANGE' EXPORTING report = sy-repid variant = p_var value_or_attr = 'A' EXCEPTIONS not_authorized = 1 not_executed = 2 no_report = 3 report_not_existent = 4 report_not_supplied = 5 variant_locked = 6 variant_not_existent = 7 variant_protected = 8 OTHERS = 9.

RS_SUPPORT_SELECTIONS * CALL FUNCTION 'RS_SUPPORT_SELECTIONS' * EXPORTING * report = 'RN2_RAD_DWS_SELECTION' * variant = p_var * EXCEPTIONS * variant_not_existent = 0 * variant_obsolete = 0 * OTHERS = 0.

RS_VARIANT_CHANGE CALL FUNCTION 'RS_VARIANT_CHANGE' EXPORTING report = called_program variant = p_var value_or_attr = 'A' EXCEPTIONS not_authorized = 0 not_executed = 0 no_report = 0 report_not_existent = 0 report_not_supplied = 0 variant_locked = 0 variant_not_existent = 0 variant_protected = 0 OTHERS = 0.






ISHMED_RAD_REMOVE_VARIANTS CALL FUNCTION 'ISHMED_RAD_REMOVE_VARIANTS' EXPORTING ir_fwl = lr_fwl.

ISH_EINRI_CHECK CALL FUNCTION 'ISH_EINRI_CHECK' EXPORTING ss_einri = p_einri EXCEPTIONS not_found = 1 OTHERS = 2.

ISHMED_CHECK_NORG CALL FUNCTION 'ISHMED_CHECK_NORG' EXPORTING ss_einri = p_einri ss_einri_chk = 'J' ss_orgid = p_orgdo EXCEPTIONS not_found = 1 not_valid = 2 OTHERS = 3.

ISHMED_CHECK_NGPA CALL FUNCTION 'ISHMED_CHECK_NGPA' EXPORTING ss_check = 'O' ss_einri = p_einri ss_gdatum = sy-datum ss_orgid = p_orgdo ss_pernr = p_mitarb ss_vorgang = ' ' EXCEPTIONS not_found = 1 not_valid = 2 OTHERS = 3.

RS_VARIANT_EXISTS CALL FUNCTION 'RS_VARIANT_EXISTS' EXPORTING report = 'RN2_RAD_DWS_SELECTION' variant = p_var IMPORTING r_c = rc EXCEPTIONS not_authorized = 1 no_report = 2 report_not_existent = 3 report_not_supplied = 4 OTHERS = 5.

ISHMED_RAD_F4_STATUS CALL FUNCTION 'ISHMED_RAD_F4_STATUS' IMPORTING es_itemstatus = ls_itemstatus.

ISH_SHOW_LIST_PATIENT CALL FUNCTION 'ISH_SHOW_LIST_PATIENT' EXPORTING npat_einri = p_einri sear_patnr = c_patnr anfo = abap_true vcode = 'DIS' read_db = abap_false IMPORTING npat_patnr = c_patnr EXCEPTIONS geschlecht_falsch = 1 no_authority = 2 npat_not_found = 3 selection_false = 4 message = 5 OTHERS = 6.

ISH_GRAPHIC_ORGID_SELECT CALL FUNCTION 'ISH_GRAPHIC_ORGID_SELECT' EXPORTING ambes = abap_on fazuw = i_fazuw pfzuw = i_pfzuw graph_title = i_title einri = p_einri freig = abap_on start_orgfa = i_start_orgfa start_orgpf = i_start_orgpf loekz = space no_bauid = i_no_bauid sperr = abap_off IMPORTING selected_orgid = r_ou EXCEPTIONS bauid_not_in_nbau = 1 einri_not_in_tn01 = 2 no_hierarchy = 3 orgid_not_in_norg = 4 OTHERS = 5.

ISH_GRAPHIC_ORGID_SELECT CALL FUNCTION 'ISH_GRAPHIC_ORGID_SELECT' EXPORTING ambes = abap_on fazuw = abap_on pfzuw = abap_on graph_title = 'Erbringende bauliche Einheit'(023) einri = p_einri freig = abap_on start_orgfa = s_erboe-low loekz = space zimkz = abap_on no_bauid = abap_off sperr = abap_off IMPORTING selected_bauid = s_erbbe-low EXCEPTIONS bauid_not_in_nbau = 1 einri_not_in_tn01 = 2 no_hierarchy = 3 orgid_not_in_norg = 4 OTHERS = 5.

ISH_SHOW_SERVICES_NEW CALL FUNCTION 'ISH_SHOW_SERVICES_NEW' EXPORTING einrichtung = p_einri * TARIF = ' ' * TALST = ' ' * ZEITRAUM = 'X' * ZEITPUNKT = 'X' * ENTGA = ' ' * TAGRU = ' ' * BEGDT = '00000000' * ENDDT = '00000000' * SEL_LEIST = 'X' * SEL_GROUP = 'X' * SEL_ERFSP = ' ' * MDC_CAT = '' multi_select = abap_false "'X' * USE_GROUPS = 'X' * ZOTYP = ' ' * DEPTH = '1' * CHANGE_TARIF = 'X' * CHANGE_ZEITR = 'X' * CHANGE_ZEITP = 'X' * CHANGE_ENTGA = 'X' * CHANGE_TAGRU = 'X' * CHANGE_ZOTYP = 'X' * CHANGE_USEGR = 'X' * WIN_TITLE = 'Eingabehilfe' * VCODE = 'UPD' * SKIP_FIRST_SCREEN = ' ' * READ_VLE = 'X' * SELECT_ALL = 'X' * SEARCH_FOR = 'NTPK_S' IMPORTING e_ntpk = ls_ntpk * E_NTPT = * E_ZOTYP = * TABLES * T_NTPK = * T_NTPT = EXCEPTIONS wrong_einri = 1 nothing_found = 2 nothing_selected = 3 missing_zotyp = 4 OTHERS = 5.

ISHMED_SHOW_NGPA CALL FUNCTION 'ISHMED_SHOW_NGPA' EXPORTING ss_check = 'A' ss_einri = p_einri ss_orgid = p_orgdo ss_activex = abap_on IMPORTING e_ngpa = ls_ngpa EXCEPTIONS not_found = 1 OTHERS = 2.

ISHMED_RAD_CREATE_TASKLIST CALL FUNCTION 'ISHMED_RAD_CREATE_TASKLIST' EXPORTING i_selreport = 'RN2_RAD_DWS_SELECTION' IMPORTING et_worklists = lt_worklists.

ISHMED_RAD_F4_CAT CALL FUNCTION 'ISHMED_RAD_F4_CAT' EXPORTING ir_cat_data = cat_data IMPORTING es_cat = ls_cat.

RS_REFRESH_FROM_SELECTOPTIONS CALL FUNCTION 'RS_REFRESH_FROM_SELECTOPTIONS' EXPORTING curr_report = i_repid TABLES selection_table = parms EXCEPTIONS not_found = 1 no_report = 2 OTHERS = 3.

RS_CREATE_VARIANT CALL FUNCTION 'RS_CREATE_VARIANT' EXPORTING curr_report = gs_vari_desc-report curr_variant = i_variant vari_desc = gs_vari_desc TABLES vari_contents = parms vari_text = gt_vari_text vscreens = gt_screens EXCEPTIONS illegal_report_or_variant = 1 illegal_variantname = 2 not_authorized = 3 not_executed = 4 report_not_existent = 5 report_not_supplied = 6 variant_exists = 7 variant_locked = 8 OTHERS = 9.

RS_CHANGE_CREATED_VARIANT CALL FUNCTION 'RS_CHANGE_CREATED_VARIANT' EXPORTING curr_report = sy-repid curr_variant = i_variant vari_desc = gs_vari_desc only_contents = abap_true TABLES vari_contents = parms EXCEPTIONS illegal_report_or_variant = 1 illegal_variantname = 2 not_authorized = 3 not_executed = 4 report_not_existent = 5 report_not_supplied = 6 variant_doesnt_exist = 7 variant_locked = 8 selections_no_match = 9 OTHERS = 10.

RS_VARIANT_EXISTS CALL FUNCTION 'RS_VARIANT_EXISTS' EXPORTING report = called_program variant = p_var IMPORTING r_c = l_rc EXCEPTIONS not_authorized = 1 no_report = 2 report_not_existent = 3 report_not_supplied = 4 OTHERS = 5.

RS_REFRESH_FROM_SELECTOPTIONS CALL FUNCTION 'RS_REFRESH_FROM_SELECTOPTIONS' EXPORTING curr_report = called_program TABLES selection_table = parms EXCEPTIONS not_found = 1 no_report = 2 OTHERS = 3.

RS_CHANGE_CREATED_VARIANT CALL FUNCTION 'RS_CHANGE_CREATED_VARIANT' EXPORTING curr_report = called_program curr_variant = i_variant vari_desc = gs_vari_desc only_contents = abap_true TABLES vari_contents = parms EXCEPTIONS illegal_report_or_variant = 1 illegal_variantname = 2 not_authorized = 3 not_executed = 4 report_not_existent = 5 report_not_supplied = 6 variant_doesnt_exist = 7 variant_locked = 8 selections_no_match = 9 OTHERS = 10.

RS_REFRESH_FROM_SELECTOPTIONS



CALL FUNCTION 'RS_REFRESH_FROM_SELECTOPTIONS' EXPORTING curr_report = sy-repid TABLES selection_table = rt_parms EXCEPTIONS not_found = 1 no_report = 2 OTHERS = 3.

RS_REFRESH_FROM_SELECTOPTIONS CALL FUNCTION 'RS_REFRESH_FROM_SELECTOPTIONS' EXPORTING curr_report = called_program TABLES selection_table = lt_parms_subscreen EXCEPTIONS not_found = 1 no_report = 2 OTHERS = 3.

DYNP_VALUES_READ CALL FUNCTION 'DYNP_VALUES_READ' EXPORTING dyname = 'RN2_RAD_DWS_SELECTION' dynumb = i_dynumb TABLES dynpfields = lt_dynp EXCEPTIONS OTHERS = 1.

DYNP_VALUES_UPDATE CALL FUNCTION 'DYNP_VALUES_UPDATE' EXPORTING dyname = sy-repid dynumb = sy-dynnr TABLES dynpfields = lt_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.

RS_SET_SELSCREEN_STATUS CALL FUNCTION 'RS_SET_SELSCREEN_STATUS' EXPORTING p_status = sy-pfkey TABLES p_exclude = gt_funcs.



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