SAP Reports / Programs | Patient Management | SAP Healthcare - Industry-Specific Components for Hospitals | Patient Management(IS-H-PM) SAP IS
MNPB1F40 SAP ABAP INCLUDE - IS-H:
MNPB1F40 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 MNPB1F40 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 MNPB1F40. "Basic submit
SUBMIT MNPB1F40 AND RETURN. "Return to original report after report execution complete
SUBMIT MNPB1F40 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
Text pool values
Title: IS-H:
INCLUDES used within this REPORT MNPB1F40
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_WP_VIEW_FOR_USER_CALL CALL FUNCTION 'ISH_WP_VIEW_FOR_USER_CALL' EXPORTING i_institution_id = rnpb1-einri i_user_id = sy-uname i_view_type = l_view_type * i_show_popup_list = 'X' * i_rcl_parent = '' * i_caller = sy-repid IMPORTING e_rc = l_rc TABLES it_selvar_mod = lt_selvar EXCEPTIONS no_view_program_exist = 1 OTHERS = 2.
GRAPH_SET_CUA_STATUS * CALL FUNCTION 'GRAPH_SET_CUA_STATUS' * EXPORTING * program = 'SAPMNPB1' * status = 'STATGRAF' * TABLES * excluding = excl_tab * EXCEPTIONS * inv_cua_info = 1 * OTHERS = 2.
ISH_NURSE_STATION_GRAPHIC * CALL FUNCTION 'ISH_NURSE_STATION_GRAPHIC' * EXPORTING * stat = status_grafik "wg. Grafikabbau *TW
GRAPH_DIALOG * CALL FUNCTION 'GRAPH_DIALOG' * EXPORTING * kwdid = winid_g.
GRAPH_DIALOG * CALL FUNCTION 'GRAPH_DIALOG' * EXPORTING * kwdid = winid_g.
GRAPH_DIALOG * CALL FUNCTION 'GRAPH_DIALOG' * EXPORTING * kwdid = winid_g.
GRAPH_DIALOG * CALL FUNCTION 'GRAPH_DIALOG' * EXPORTING * kwdid = winid_g.
GRAPH_DIALOG * CALL FUNCTION 'GRAPH_DIALOG' * EXPORTING * kwdid = winid_g.
DOCU_WINHELP_SHOW * CALL FUNCTION 'DOCU_WINHELP_SHOW' * EXPORTING * tcode = 'NR12'.
CONVERSION_EXIT_ALPHA_INPUT * CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' * EXPORTING * input = falnr_1 * IMPORTING * output = falnr_1 * EXCEPTIONS * OTHERS = 1.
ISH_NPAT_CONCATENATE * CALL FUNCTION 'ISH_NPAT_CONCATENATE' * EXPORTING * ss_einri = rnpb1-einri * ss_patnr = t_patst-patnr * ss_npat_complete = off * ss_npat = npat * ss_list = off * IMPORTING * ss_pname = sel-name_vorname * EXCEPTIONS * OTHERS = 1.
CONVERSION_EXIT_ALPHA_INPUT * CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' * EXPORTING * input = falnr_2 * IMPORTING * output = falnr_2 * EXCEPTIONS * OTHERS = 1.
ISH_NPAT_CONCATENATE * CALL FUNCTION 'ISH_NPAT_CONCATENATE' * EXPORTING * ss_einri = rnpb1-einri * ss_patnr = t_patst-patnr * ss_npat_complete = off * ss_npat = npat * ss_list = off * IMPORTING * ss_pname = sel_2-name_vorname * EXCEPTIONS * OTHERS = 1.
ISH_MEDICAL_RECORD CALL FUNCTION 'ISH_MEDICAL_RECORD' EXPORTING ss_einri = rnpb1-einri ss_fallart = '1' ss_patnr = sel-patnr tcode = 'ND02'.
ISH_MEDICAL_RECORD CALL FUNCTION 'ISH_MEDICAL_RECORD' EXPORTING ss_einri = rnpb1-einri ss_fallart = '1' ss_patnr = sel-patnr tcode = 'ND03'.
ISH_FORM_TH_USER_INFO CALL FUNCTION 'ISH_FORM_TH_USER_INFO' IMPORTING terminal = terminal EXCEPTIONS OTHERS = 0.
ISH_FORM_SELECT CALL FUNCTION 'ISH_FORM_SELECT' STARTING NEW TASK 'PRINT' PERFORMING end_form_select ON END OF TASK EXPORTING ss_applk = 'N' ss_einri = rnpb1-einri ss_event = print_event ss_st_print = std_print ss_terminal = terminal TABLES ss_nbew = t_bew "#EC ENHOK ss_nfal = t_fal "#EC ENHOK EXCEPTIONS error_occured = 1 communication_failure = 8 MESSAGE msg_print_task system_failure = 12 MESSAGE msg_print_task.
ISH_FORM_TH_USER_INFO CALL FUNCTION 'ISH_FORM_TH_USER_INFO' IMPORTING terminal = terminal EXCEPTIONS OTHERS = 0.
CALL FUNCTION 'ISH_FORM_SELECT' STARTING NEW TASK 'PRINT' PERFORMING end_form_select ON END OF TASK EXPORTING ss_applk = 'N' ss_einri = rnpb1-einri ss_event = print_event ss_st_print = on ss_terminal = terminal TABLES ss_nbew = t_bew "#EC ENHOK ss_nfal = t_fal "#EC ENHOK EXCEPTIONS error_occured = 1 communication_failure = 8 MESSAGE msg_print_task system_failure = 12 MESSAGE msg_print_task.
ISH_FORM_TH_USER_INFO CALL FUNCTION 'ISH_FORM_TH_USER_INFO' IMPORTING terminal = terminal EXCEPTIONS OTHERS = 0.
ISH_FORM_SELECT CALL FUNCTION 'ISH_FORM_SELECT' STARTING NEW TASK 'PRINT' PERFORMING end_form_select ON END OF TASK EXPORTING ss_applk = 'N' ss_einri = rnpb1-einri ss_event = print_event ss_st_print = off ss_terminal = terminal TABLES ss_nbew = t_bew "#EC ENHOK ss_nfal = t_fal "#EC ENHOK EXCEPTIONS error_occured = 1 communication_failure = 8 MESSAGE msg_print_task system_failure = 12 MESSAGE msg_print_task.
ISH_FORM_PROTOCOL_LIST CALL FUNCTION 'ISH_FORM_PROTOCOL_LIST' EXPORTING einri = rnpb1-einri falnr = sel-falnr patnr = sel-patnr.
ISH_COUNTRY_VERSION_GET * CALL FUNCTION 'ISH_COUNTRY_VERSION_GET' * IMPORTING * ss_cvers = cvers * EXCEPTIONS * OTHERS = 1.
ISH_NL_DBC2002_PARALLEL * CALL FUNCTION 'ISH_NL_DBC2002_PARALLEL' * EXPORTING * i_einri = rnpb1-einri * i_falnr = sel-falnr * i_dbcnr = lc_dbcnr * i_orgfa = sel-orgfa * i_patnr = sel-patnr * i_lfdnr = sel-lfdnr.
ISH_COUNTRY_VERSION_GET CALL FUNCTION 'ISH_COUNTRY_VERSION_GET' IMPORTING ss_cvers = cvers EXCEPTIONS OTHERS = 1.
ISH_COUNTRY_VERSION_GET CALL FUNCTION 'ISH_COUNTRY_VERSION_GET' IMPORTING ss_cvers = cvers EXCEPTIONS OTHERS = 1.
ISH_NL_DBC_PARAMETERS CALL FUNCTION 'ISH_NL_DBC_PARAMETERS' EXPORTING im_einri = rnpb1-einri IMPORTING ex_dbc_e = discharge EXCEPTIONS OTHERS = 1.
ISH_NL_DBC_TRANSFER CALL FUNCTION 'ISH_NL_DBC_TRANSFER' EXPORTING ss_einri = rnpb1-einri ss_patnr = sel-patnr ss_falnr = sel-falnr ss_lfdnr = sel-lfdnr ss_orgfa = nbew-orgfa ss_bekat = sel-bekat EXCEPTIONS OTHERS = 1.
ISH_NL_DBC_PARAMETERS CALL FUNCTION 'ISH_NL_DBC_PARAMETERS' EXPORTING im_einri = field-einri IMPORTING ex_dbc_e = discharge EXCEPTIONS OTHERS = 1.
ISH_CHECK_NUMBER_RANGE CALL FUNCTION 'ISH_CHECK_NUMBER_RANGE' EXPORTING einri = ' ' modus = 'N' number = $number object = object subobject = '*' IMPORTING nr_range_nr = $nr_range_nr EXCEPTIONS interval_not_found = 1 invalid_object = 2 no_alpha = 3 no_external = 4 no_internal = 5 number_range_not_extern = 6 number_range_not_intern = 7 range_error_extern = 8 range_error_alpha = 9 OTHERS = 10.
NUMBER_GET_NEXT CALL FUNCTION 'NUMBER_GET_NEXT' EXPORTING nr_range_nr = $nr_range_nr object = object quantity = '1' IMPORTING number = wa_nnau-autnr EXCEPTIONS interval_not_found = 1 number_range_not_intern = 2 object_not_found = 3 quantity_is_0 = 4 quantity_is_not_1 = 5 interval_overflow = 6.
ISH_NL_DBC_PARAMETERS CALL FUNCTION 'ISH_NL_DBC_PARAMETERS' EXPORTING im_einri = rnpb1-einri IMPORTING ex_dbc_e = lf_discharge ex_dbc_a = lf_admission EXCEPTIONS OTHERS = 1.
ISH_PATIENT_RECORD_REQUEST CALL FUNCTION 'ISH_PATIENT_RECORD_REQUEST' EXPORTING ss_*nbew = nbew ss_einri = rnpb1-einri ss_falnr = sel-falnr ss_lfdnr = ls_nbewtab-lfdnr ss_patnr = sel-patnr ss_vcode = 'INS' TABLES ss_nbewtab = it_nbewtab EXCEPTIONS OTHERS = 1.
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 MNPB1F40 or its description.