SAP Reports / Programs | Patient Management | SAP Healthcare - Industry-Specific Components for Hospitals | Patient Management(IS-H-PM) SAP IS

RNLNRSF0 SAP ABAP Report - IS-H: Display Risk Factors and Drug Allergies







RNLNRSF0 is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). It is used for This program displays the risk information on patients...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 RNLNRSF0 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 RNLNRSF0. "Basic submit
SUBMIT RNLNRSF0 AND RETURN. "Return to original report after report execution complete
SUBMIT RNLNRSF0 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: TXTEINRI = Institution Text
Selection Text: SE_RSFNR = Risk Factors
Selection Text: SE_PATNR = Patient
Selection Text: SE_ORGID = Org. Unit
Selection Text: P_TODT = To-Date
Selection Text: P_FRMDT = From-Date
Selection Text: P_EINRI = Institution
Selection Text: PDISPVAR = Layout
Title: IS-H: Display Risk Factors and Drug Allergies
Text Symbol: U13 = Output
Text Symbol: U12 = Risk Factor Types
Text Symbol: U11 = Patient Name
Text Symbol: U10 = Drug Allergy
Text Symbol: U09 = Risk Factor
Text Symbol: U08 = Data Selection
Text Symbol: U07 = Patient
Text Symbol: U06 = Org. Unit
Text Symbol: U05 = Selection Option
Text Symbol: U04 = Layout
Text Symbol: U03 = To
Text Symbol: U02 = Date
Text Symbol: U01 = Institution
Text Symbol: T04 = Status
Text Symbol: T02 = Risk Information
Text Symbol: T01 = Patient Information
Text Symbol: S01 = Institution


INCLUDES used within this REPORT RNLNRSF0

INCLUDE RNSSEINR.
INCLUDE RNSSIEIN.
INCLUDE RNSSSPBO.


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_RISIKOINFO_VERSION CALL FUNCTION 'ISH_RISIKOINFO_VERSION' EXCEPTIONS new_active = 1 OTHERS = 2.

ISH_SHOW_LIST_PATIENT CALL FUNCTION 'ISH_SHOW_LIST_PATIENT' EXPORTING anfo = on vcode = 'DIS' vcode_npat = 'DIS' npat_einri = se_einri IMPORTING npat_patnr = se_patnr-low select_npat = select weiter = weiter EXCEPTIONS OTHERS = 04.

ISH_SHOW_LIST_PATIENT CALL FUNCTION 'ISH_SHOW_LIST_PATIENT' EXPORTING anfo = on vcode = 'DIS' vcode_npat = 'DIS' npat_einri = se_einri IMPORTING npat_patnr = se_patnr-high select_npat = select weiter = weiter EXCEPTIONS OTHERS = 04.

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_AUTH_CHECK_REPORT_EINRI CALL FUNCTION 'ISH_AUTH_CHECK_REPORT_EINRI' EXPORTING repid = report_id einri = se_einri * NO_MESSAGE = ' ' IMPORTING rc = auth_rc EXCEPTIONS OTHERS = 0.

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 ausbegdt = p_frmdt ausenddt = p_todt einri = se_einri line_size = rnstat-line_size repid = repid * title_lin1 = rnstat-title_lin1 title_lin2 = ' ' uline = space * verbegdt = init_date * verenddt = init_date EXCEPTIONS invalid_einri = 0.

ISH_GET_MOVEMENTS CALL FUNCTION 'ISH_GET_MOVEMENTS' EXPORTING ss_abwes = 'X' ss_ambu = 'X' ss_ambu_bes = 'X' ss_aufn = 'X' ss_beginn = p_frmdt ss_einri = se_einri ss_ende = p_todt ss_entl = 'X' ss_plan = 'X' ss_stat = 'X' ss_storn = 'X' ss_tstat = 'X' ss_verl = 'X' * SS_BUFFER = 'X' TABLES ss_falnr = r_falnr ss_vnbew = lt_v_nbew * SS_FIELDCAT = EXCEPTIONS OTHERS = 0.

ISH_READ_NPAT CALL FUNCTION 'ISH_READ_NPAT' EXPORTING ss_einri = se_einri ss_patnr = -patnr ss_read_db = on IMPORTING ss_npat = ls_npat EXCEPTIONS not_found = 1 no_authority = 2 no_einri = 3.

ISH_READ_NPAT_ADDRESSES * CALL FUNCTION 'ISH_READ_NPAT_ADDRESSES' * TABLES * I_NPAT = INPAT_TAB * E_NPATA = INPATADR * EXCEPTIONS * OTHERS = 0.

ISH_CMSTATUS_GET CALL FUNCTION 'ISH_CMSTATUS_GET' EXPORTING ediproc = gcn_edi_npmi institution = se_einri * CASENUMBER = patnumber = p_npat_tab-patnr extpatid = p_npat_tab-extnr IMPORTING e_cmstatus = cm_status EXCEPTIONS OTHERS = 0.

ISH_NPAT_CONCATENATE CALL FUNCTION 'ISH_NPAT_CONCATENATE' EXPORTING ss_einri = se_einri ss_patnr = p_npat_tab-patnr ss_npat = p_npat_tab IMPORTING ss_pname = patname EXCEPTIONS OTHERS = 0.

REUSE_ALV_EVENTS_GET CALL FUNCTION 'REUSE_ALV_EVENTS_GET' EXPORTING i_list_type = 0 IMPORTING et_events = e03_lt_events.

REUSE_ALV_HIERSEQ_LIST_DISPLAY CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY' EXPORTING i_callback_program = report_id * i_callback_user_command = 'USER_COMMAND' i_callback_pf_status_set = 'SET_PF_STATUS' i_tabname_header = 'ILIST_HEAD' i_tabname_item = 'ILIST_ITEM' i_default = ' ' i_save = 'A' is_keyinfo = gs_keyinfo is_layout = gs_layout is_variant = gs_variant * is_print = gs_print * it_sort = gs_sortinfo it_events = gt_events[] it_fieldcat = xfield[] it_special_groups = gt_sp_groups[] TABLES t_outtab_header = ilist_head t_outtab_item = ilist_item.

ISH_READ_NPAT CALL FUNCTION 'ISH_READ_NPAT' EXPORTING ss_einri = se_einri ss_patnr = -patnr ss_read_db = on IMPORTING ss_npat = ls_npat EXCEPTIONS not_found = 1 no_authority = 2 no_einri = 3.

ISH_DOMAIN_VALUE_TEXTS CALL FUNCTION 'ISH_DOMAIN_VALUE_TEXTS' EXPORTING domname = cdomain_rstyp domvalue = l_doma_value IMPORTING ddtext = l_risk_text EXCEPTIONS OTHERS = 0.

ISH_DYNP_VALUES_READ CALL FUNCTION 'ISH_DYNP_VALUES_READ' EXPORTING dyname = p_report_id dynumb = p_dynnr TABLES dynpfields = lt_dynpread EXCEPTIONS OTHERS = 1.

CONVERSION_EXIT_ALPHA_INPUT CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = se_einri IMPORTING output = se_einri EXCEPTIONS OTHERS = 1.

ISH_GRAPHIC_ORGID_SELECT





CALL FUNCTION 'ISH_GRAPHIC_ORGID_SELECT' EXPORTING einri = se_einri * freig = on * ambes = on * fazuw = on * pfzuw = on no_bauid = on IMPORTING selected_orgid = p_org EXCEPTIONS bauid_not_in_nbau = 1 einri_not_in_tn01 = 2 no_hierarchy = 3 orgid_not_in_norg = 4 OTHERS = 5.



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