SAP Reports / Programs | Patient Accounting | SAP Healthcare - Industry-Specific Components for Hospitals | Patient Accounting(IS-H-PA) SAP IS
RNLEXT00 SAP ABAP Report - IS-H: Discharges to External Hospital for Revenue Distribution
RNLEXT00 is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). It is used for This program creates an overview of all of the cases transferred to an external hospital...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 RNLEXT00 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 RNLEXT00. "Basic submit
SUBMIT RNLEXT00 AND RETURN. "Return to original report after report execution complete
SUBMIT RNLEXT00 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: S_ZEITR = Discharge Period
Selection Text: S_LEIZIF = Service
Selection Text: S_GELART = Charge Type
Selection Text: S_FALNR = Case
Selection Text: S_EXTKH = Postdischarge Hospital
Selection Text: S_ENTART = Discharge Type
Selection Text: SE_EINRI = Institution
Selection Text: ALVDVAR = Layout
Title: IS-H: Discharges to External Hospital for Revenue Distribution
Text Symbol: S05 = Select Cases Using Discharge Period and Other Criteria
Text Symbol: S06 = Select Cases Using Case Selection
Text Symbol: T01 = FR per Case
Text Symbol: T02 = Name
Text Symbol: T03 = MLS
Text Symbol: T04 = Absolute Date for MLS
Text Symbol: T05 = Abs. Date MLS
Text Symbol: T06 = MLS Date
Text Symbol: T07 = Disch. Disposition Text
Text Symbol: T08 = Mvmt Type Text
Text Symbol: T09 = Info on Discharge
Text Symbol: T10 = Mvmt Reason Info
Text Symbol: T11 = HspName
Text Symbol: T12 = Max. Lgth of Stay
Text Symbol: T13 = Further Data
Text Symbol: 001 = Discharges to Ext.Hosp. for Revenue Distrib.
Text Symbol: 002 = Restrictions
Text Symbol: 003 = Select Case
Text Symbol: 004 = Select Cases
Text Symbol: 052 = Case Select.
Text Symbol: 060 = Discharge Period
Text Symbol: 061 = Postdischarge Hsp.
Text Symbol: 062 = Discharge Type
Text Symbol: 063 = Chrg. Type
Text Symbol: 064 = Service
Text Symbol: 065 = Case
Text Symbol: 100 = Unknown
Text Symbol: 101 = No hospital specified
Text Symbol: A01 = Cases Found:
Text Symbol: A02 = Number of Hospitals:
Text Symbol: G01 = Basic List
Text Symbol: G02 = Additional Info
Text Symbol: K01 = Flat Rate
Text Symbol: K02 = FR
Text Symbol: R03 = Adm. Date
Text Symbol: R04 = Dsch.Date
Text Symbol: S01 = Institution
Text Symbol: S03 = Admiss. Date
Text Symbol: S04 = Discharge Date
INCLUDES used within this REPORT RNLEXT00
INCLUDE RNLALV00.
INCLUDE RNLEXTD0.
INCLUDE RNEXTRACT_DATA.
INCLUDE RNSSEXTR.
INCLUDE RNSSIEIN.
INCLUDE RNSSIEXT.
INCLUDE RNSSSEXT_PBO.
INCLUDE RNSSSEIN.
INCLUDE RNSSSEXT.
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_CASE_VALUE_REQUEST CALL FUNCTION 'ISH_CASE_VALUE_REQUEST' EXPORTING ss_einri = se_einri ss_vcode = update IMPORTING ss_falnr = s_falnr-low.
ISH_CASE_VALUE_REQUEST CALL FUNCTION 'ISH_CASE_VALUE_REQUEST' EXPORTING ss_einri = se_einri ss_vcode = update IMPORTING ss_falnr = s_falnr-high.
ISH_SHOW_SERVICES_NEW CALL FUNCTION 'ISH_SHOW_SERVICES_NEW' EXPORTING einrichtung = se_einri sel_group = 'X' multi_select = ' ' use_groups = ' ' zotyp = ' ' change_tarif = ' ' change_zotyp = ' ' change_usegr = 'X' read_vle = 'X' select_all = ' ' IMPORTING e_ntpk = ntpk EXCEPTIONS wrong_einri = 1 nothing_found = 2 nothing_selected = 3 missing_zotyp = 4 OTHERS = 5.
ISH_SHOW_SERVICES_NEW CALL FUNCTION 'ISH_SHOW_SERVICES_NEW' EXPORTING einrichtung = se_einri sel_group = 'X' multi_select = ' ' use_groups = ' ' zotyp = ' ' change_tarif = ' ' change_zotyp = ' ' change_usegr = 'X' read_vle = 'X' select_all = ' ' IMPORTING e_ntpk = ntpk EXCEPTIONS wrong_einri = 1 nothing_found = 2 nothing_selected = 3 missing_zotyp = 4 OTHERS = 5.
ISH_HELP_REQUEST CALL FUNCTION 'ISH_HELP_REQUEST' EXPORTING ss_object = 'ISH_RNLEXT00_ZEITRLOW' ss_popup = on EXCEPTIONS OTHERS = 1.
ISH_HELP_REQUEST CALL FUNCTION 'ISH_HELP_REQUEST' EXPORTING ss_object = 'ISH_RNLEXT00_ZEITRHIGH' ss_popup = on EXCEPTIONS OTHERS = 1.
ISH_SHOW_GPART CALL FUNCTION 'ISH_SHOW_GPART' EXPORTING aufruf = yes rolle = '5' " 5 ... Krankenhaus
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.
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 = s_zeitr-low ausenddt = s_zeitr-high einri = se_einri line_size = breite repid = progname title_lin1 = 'Entlassungen in ext. KH für Kostenaufteilung'(001)
ISH_SAPGUI_PROGRESS_INDICATOR CALL FUNCTION 'ISH_SAPGUI_PROGRESS_INDICATOR' EXPORTING percentage = 10 text = 'Fälle selektieren'(004) * SHARE = SY-TABIX * STEP = 10 EXCEPTIONS OTHERS = 1.
ISH_SAPGUI_PROGRESS_INDICATOR CALL FUNCTION 'ISH_SAPGUI_PROGRESS_INDICATOR' EXPORTING percentage = 60 text = 'Fälle selektieren'(004) EXCEPTIONS OTHERS = 1.
ISH_READ_NTPKD CALL FUNCTION 'ISH_READ_NTPKD' "FktBaustein zum Lesen der GVD EXPORTING begdt = in_lei-ibgdt "'19000101' "S_ZEITR-LOW einri = se_einri enddt = in_lei-iendt "S_ZEITR-HIGH talst = in_lei-leist tarif = in_lei-haust enzky = in_lei-enzky IMPORTING * E_NTPKD = gvd = in_lei-gvd gvdi = in_lei-gvdi * NVD = * NVDI = EXCEPTIONS missing_data = 1 no_ntpkd_found = 2 OTHERS = 3.
ISH_GET_AUFDT_ENTDT CALL FUNCTION 'ISH_GET_AUFDT_ENTDT' EXPORTING ss_einri = se_einri ss_falnr = pos_list-falnr * SS_STORNO = ' ' IMPORTING * SS_AUFART = * SS_AUFATX = ss_aufdt = pos_list-aufdt * SS_AUFZT = * SS_ENTART = * SS_ENTATX = ss_entdt = pos_list-entdt ss_rnf08 = local_rnf08 EXCEPTIONS not_found = 1 no_authority = 2 OTHERS = 3.
ISH_D_GVD_CHECK CALL FUNCTION 'ISH_D_GVD_CHECK' EXPORTING einri = se_einri falnr = pos_list-falnr gvd = pos_list-gvd gvdi = pos_list-gvdi * STICHTAG = SY-DATUM fp_typ = pos_list-fptyp fallpauschale = pos_list-leist * READ_NFAL = 'X' * READ_GVD = 'X' * FPPOP_EXIST = ' ' * WNDDAT = '00000000' * INFAL = ' ' IMPORTING * TAGE_ABW = * APS_INTEN = * GVD_BEG = * GVDI_DAT = * GVDI_TAGE = * GVD_DAT = * GVD_TAGE = * HERZCHIR_AUFN = * INTEN_BEGDT = * INTEN_ENDDT = * INTEN_PAT = * INTEN_TAGE = * NS_DAYS = * PRAEOP_TAGE = * PRAE_PARTAL = ps_dat = a_dat * TAGE = * VS_DAYS = * ANZ_GEB = edat_gvd = b_dat "POS_LIST-EDAT_GVD * FPPOP_DAT = * GVD_SUM = * TABLES * NBEWTAB = * NLEITAB = EXCEPTIONS day_count_error = 1 nbewtab_no_entry = 2 OTHERS = 3.
ISH_READ_NFAL CALL FUNCTION 'ISH_READ_NFAL' EXPORTING ss_einri = se_einri ss_falnr = pos_list-falnr * SS_READ_DB = ' ' IMPORTING ss_nfal = hilfs_nfal EXCEPTIONS not_found = 1 no_authority = 2 OTHERS = 3.
ISH_READ_NPAT CALL FUNCTION 'ISH_READ_NPAT' EXPORTING * SS_EINRI = '*' ss_patnr = pos_list-patnr IMPORTING * SS_NOT_FOUND_IN_EINRI = * SS_NPAE = ss_npat = hilfs_npat * SS_NADR = EXCEPTIONS not_found = 1 no_authority = 2 no_einri = 3 OTHERS = 4.
ISH_NPAT_CONCATENATE CALL FUNCTION 'ISH_NPAT_CONCATENATE' EXPORTING * SS_EINRI = SE_EINRI ss_patnr = pos_list-patnr * SS_READ_NPAT = 'X' ss_npat = hilfs_npat * SS_NPAT_COMPLETE = 'X' * SS_LIST = ' ' IMPORTING ss_pname = pos_list-namekomplett EXCEPTIONS OTHERS = 1.
ISH_ADDRESS_CONCATENATE CALL FUNCTION 'ISH_ADDRESS_CONCATENATE' EXPORTING ** SS_ADRNR = ' ' ss_adrob = 'NGPA' "POS_LIST-ADROB ss_nadr = ngpa_adr IMPORTING ss_address = pos_list-adrtotal EXCEPTIONS OTHERS = 1.
ISH_ADDRESS_READ CALL FUNCTION 'ISH_ADDRESS_READ' EXPORTING ss_adrnr = hilfs_npat-adrnr ss_adrob = hilfs_npat-adrob * SS_READ_DB = ' ' IMPORTING ss_nadr = local_nadr * TABLES * SS_NADR2 = EXCEPTIONS not_found = 1 OTHERS = 2.
REUSE_ALV_EXTRACT_SAVE CALL FUNCTION 'REUSE_ALV_EXTRACT_SAVE' EXPORTING is_extract = gs_extract1 i_get_selinfos = on i_exp01 = gs_variant TABLES it_exp01 = pos_head it_exp02 = pos_list. "Optional
REUSE_ALV_EXTRACT_LOAD CALL FUNCTION 'REUSE_ALV_EXTRACT_LOAD' EXPORTING is_extract = gs_extract2 IMPORTING es_sel_hide = gs_sel_hide TABLES et_exp01 = pos_head et_exp02 = pos_list CHANGING c_exp01 = gs_variant EXCEPTIONS not_found = 1 wrong_relid = 2 no_report = 3 no_exname = 4 no_import_possible = 5 OTHERS = 6.
REUSE_ALV_HIERSEQ_LIST_DISPLAY CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY' EXPORTING * I_INTERFACE_CHECK = ' ' i_callback_program = 'RNLEXT00' "rnstat-repid i_callback_pf_status_set = 'LISTE' "Form für Liste 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 = gs_sel_hide * I_SCREEN_START_COLUMN = 0 * I_SCREEN_START_LINE = 0 * I_SCREEN_END_COLUMN = 0 * I_SCREEN_END_LINE = 0 * I_DEFAULT = 'X' i_save = 'A' is_variant = gs_variant it_events = gt_events[] * IT_EVENT_EXIT = i_tabname_header = 'POS_HEAD' i_tabname_item = 'POS_LIST' * I_STRUCTURE_NAME_HEADER = * I_STRUCTURE_NAME_ITEM = is_keyinfo = gs_keyinfo * IS_PRINT = * IMPORTING * E_EXIT_CAUSED_BY_CALLER = * ES_EXIT_CAUSED_BY_USER = TABLES t_outtab_header = pos_head t_outtab_item = pos_list EXCEPTIONS program_error = 1 OTHERS = 2.
REUSE_ALV_LIST_LAYOUT_INFO_GET CALL FUNCTION 'REUSE_ALV_LIST_LAYOUT_INFO_GET' IMPORTING es_layout = gs_layout et_fieldcat = xfield[] "wird für nächsten Baustein * ET_SORT = " gebraucht * ET_FILTER = * ES_LIST_SCROLL = * ES_VARIANT = EXCEPTIONS no_infos = 1 program_error = 2 OTHERS = 3.
REUSE_ALV_HS_LIST_WIDTH_GET CALL FUNCTION 'REUSE_ALV_HS_LIST_WIDTH_GET' EXPORTING i_tabname_header = 'POS_HEAD' i_tabname_item = 'POS_LIST' it_fieldcat = xfield[] is_layout = gs_layout IMPORTING e_width = width EXCEPTIONS OTHERS = 1.
ISH_SAP_BP_CHECK_ACTIVE CALL FUNCTION 'ISH_SAP_BP_CHECK_ACTIVE' IMPORTING e_status = p_lv_status_28 EXCEPTIONS not_active = 1 OTHERS = 2.
ISH_READ_NPAT CALL FUNCTION 'ISH_READ_NPAT' EXPORTING ss_patnr = p_hilfs_npat-patnr ss_check_auth = off ss_with_nadr = on IMPORTING ss_nadr = p_local_nadr et_rc = p_lt_rc_28 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 RNLEXT00 or its description.
RNLEXT00 - IS-H: Discharges to External Hospital for Revenue Distribution RNLEXT00 - IS-H: Discharges to External Hospital for Revenue Distribution RNLDIAAKR_F01 - RNLDIAAKRF01 RNLDIAAKR - documentation and ABAP source code RNLDIAAKR - documentation and ABAP source code RNLDIA03 - IS-H: Check Report for Diagnoses