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

RNWCHSELF0 SAP ABAP INCLUDE - documentation and ABAP source code







RNWCHSELF0 is a standard ABAP INCLUDE available within your SAP system (depending on your version and release level). Below is the basic information available for this SAP report including which OBJECTS it interacts with such as TABLES, FUNCTION MODULES, INCLUDES ETC. Also check out the submitted Comments related to this SAP report or see any standard documentation available.

If you would like to execute this report or see the full code listing simply enter RNWCHSELF0 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 RNWCHSELF0. "Basic submit
SUBMIT RNWCHSELF0 AND RETURN. "Return to original report after report execution complete
SUBMIT RNWCHSELF0 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
    See more syntax options for the ABAP SUBMIT statement


INCLUDES used within this REPORT RNWCHSELF0

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_DIAGNOSIS_BILLING_CHECK CALL FUNCTION 'ISH_DIAGNOSIS_BILLING_CHECK' EXPORTING i_einri = akt_vfallsel-einri i_falnr = akt_vfallsel-falnr * I_ADMISSION_DATE = * i_with_ref = EXCEPTIONS incomplete = 1 OTHERS = 2.

ISH_READ_NDIA * call function 'ISH_READ_NDIA' * exporting ** AFDIA = ' ' ** BHDIA = ' ' * einri = akt_vfallsel-einri * endia = 'X' ** EWDIA = ' ' * falnr = akt_vfallsel-falnr ** FHDIA = ' ' ** KHDIA = ' ' * lfdnr = dummy_lfdnr ** SPERR = ' ' ** STORN = ' ' * importing * rc = endia_rc * tables * ss_ndia = india.

ISH_CH_KOUB_DECKUNG CALL FUNCTION 'ISH_CH_KOUB_DECKUNG' " MK 990311 EXPORTING " MK 990311 ss_einri = $einri " MK 990311 ss_falnr = $falnr " MK 990311 ss_patnr = $patnr " MK 990311 ss_begd = aufn-dat " MK 990311 ss_endd = entl-dat " MK 990311 IMPORTING " MK 990311 ss_gesstat = coverage_ok " MK 990311 EXCEPTIONS " MK 990311 param_error = 1 " MK 990311 OTHERS = 2. " MK 990311

ISH_READ_NPAT CALL FUNCTION 'ISH_READ_NPAT' EXPORTING ss_patnr = $patnr ss_read_db = on ss_with_nadr = off IMPORTING ss_npat = ls_npat EXCEPTIONS not_found = 1 no_authority = 2 no_einri = 3 OTHERS = 4.

ISH_TRANS_STAND CALL FUNCTION 'ISH_TRANS_STAND' EXPORTING string_norm = name IMPORTING string_stand = name.

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 = rnstat-uline ausbegdt = rnstat-ausbegdt ausenddt = rnstat-ausenddt EXCEPTIONS invalid_einri = 01.

ISH_GET_MD_STATUS CALL FUNCTION 'ISH_GET_MD_STATUS' EXPORTING i_einri = akt_vfallsel-einri i_falnr = akt_vfallsel-falnr i_objnr = akt_vfallsel-objnr IMPORTING e_md_status = l_md_status EXCEPTIONS not_active = 1 not_found = 2 OTHERS = 3.

ISH_NPAT_CONCATENATE CALL FUNCTION 'ISH_NPAT_CONCATENATE' EXPORTING ss_einri = akt_vfallsel-einri ss_patnr = akt_vfallsel-patnr ss_read_npat = off ss_npat = npat ss_npat_complete = off ss_list = on IMPORTING ss_pname = pat_name EXCEPTIONS OTHERS = 1.

ISH_GET_MD_STATUS CALL FUNCTION 'ISH_GET_MD_STATUS' EXPORTING i_einri = akt_vfallsel-einri i_falnr = akt_vfallsel-falnr i_objnr = akt_vfallsel-objnr IMPORTING e_md_status = l_md_status EXCEPTIONS not_active = 1 not_found = 2 OTHERS = 3.

ISH_NPAT_CONCATENATE CALL FUNCTION 'ISH_NPAT_CONCATENATE' EXPORTING ss_einri = akt_vfallsel-einri ss_patnr = akt_vfallsel-patnr ss_read_npat = off ss_npat = npat ss_npat_complete = off ss_list = on IMPORTING ss_pname = pat_name EXCEPTIONS OTHERS = 1.

ISH_READ_NORG CALL FUNCTION 'ISH_READ_NORG' EXPORTING einri = einris orgid = inbew-orgfa IMPORTING norg_e = norg EXCEPTIONS missing_orgid = 01.

ISH_READ_NORG CALL FUNCTION 'ISH_READ_NORG' EXPORTING einri = einris orgid = inbew-orgpf IMPORTING norg_e = norg EXCEPTIONS missing_orgid = 01.

ISH_MOVEMENT_POOL_GET CALL FUNCTION 'ISH_MOVEMENT_POOL_GET' EXPORTING ss_falnr = ls_vfallsel-falnr ss_einri = einris ss_lfdnr = ls_vfallsel-lfdnrbew IMPORTING ss_nbew_curr = ls_nbew_curr.

ISH_READ_NFAL * call function 'ISH_READ_NFAL' * exporting * ss_einri = einris * ss_falnr = in_vfallsel-falnr * ss_check_auth = on * importing * ss_nfal = xnfal * exceptions * not_found = 1 * no_authority = 2 * others = 3.

STATUS_CHANGE_FOR_ACTIVITY CALL FUNCTION 'STATUS_CHANGE_FOR_ACTIVITY' EXPORTING check_only = on objnr = in_vfallsel-objnr vrgng = 'NABR' IMPORTING activity_not_allowed = not_allowed EXCEPTIONS activity_not_allowed = 1 warning_occured = 6 OTHERS = 7.

ISH_MOVEMENTTAB_POOL_GET CALL FUNCTION 'ISH_MOVEMENTTAB_POOL_GET' EXPORTING ss_falnr = in_vfallsel-falnr ss_einri = in_vfallsel-einri TABLES ss_nbewtab_curr = lt_nbew.

GET_PRINT_PARAMETERS CALL FUNCTION 'GET_PRINT_PARAMETERS' EXPORTING copies = count cover_page = on sap_cover_page = on immediately = on release = on * layout = 'X_PAPER' * list_name = 'RNAB0000' list_text = 'SUBMIT RNAB0000 TO SAP-SPOOL' * MODE = ' ' new_list_id = on expiration = days no_dialog = off IMPORTING out_archive_parameters = arc_par out_parameters = pri_par valid = valid EXCEPTIONS archive_info_not_found = 1 invalid_print_params = 2 invalid_archive_params = 3 OTHERS = 4.

ISH_AUTH_CHECK_REPORT_EINRI CALL FUNCTION 'ISH_AUTH_CHECK_REPORT_EINRI' EXPORTING repid = repid einri = einris * NO_MESSAGE = ' ' IMPORTING rc = rc EXCEPTIONS OTHERS = 1.

ISH_MODIFY_SCREEN





CALL FUNCTION 'ISH_MODIFY_SCREEN' EXPORTING dynnr = $dynnr * EINRI = '*' * FCODE = '*' pname = $repid * VCODE = 'DIS' * EXPORTING * SET_CURSOR = * CHANGING * TC_CONTROL = EXCEPTIONS OTHERS = 1.

ISH_CH_NWCH70_READ CALL FUNCTION 'ISH_CH_NWCH70_READ' EXPORTING ss_einri = $einri ss_falnr = $falnr TABLES ss_nwch70 = inwch70 EXCEPTIONS not_found = 1 param_error = 2 OTHERS = 3.

ISH_READ_NKTR CALL FUNCTION 'ISH_READ_NKTR' EXPORTING kostr = inwch70-kostr IMPORTING nktr_e = nktr EXCEPTIONS ngpa_not_found = 1 ngpa_no_authority = 2 not_found = 3 no_authority = 4 OTHERS = 5.

ISH_INSREL_CASE_POOL_GET CALL FUNCTION 'ISH_INSREL_CASE_POOL_GET' EXPORTING ss_einri = p_einri ss_falnr = p_falnr ss_sel_storn = p_storn TABLES ss_ncir_daba = pt_ncir.

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_DRG_READ_ACTUAL call function 'ISH_DRG_READ_ACTUAL' exporting ss_institution = p_einri ss_casenumber = p_falnr tables ss_ndrg = lt_ndrg.

ISH_UNIRETCASE_POOL_GET call function 'ISH_UNIRETCASE_POOL_GET' exporting i_apxnr = l_apxnr importing e_napx_drg_tab_curr = lt_napx_drg.



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