SAP Reports / Programs | Clinical System | Clinical System(IS-HMED) SAP IS

MN225F90 SAP ABAP INCLUDE - IS-H: General FORM Routines, SAPMNT31







MN225F90 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 MN225F90 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 MN225F90. "Basic submit
SUBMIT MN225F90 AND RETURN. "Return to original report after report execution complete
SUBMIT MN225F90 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: General FORM Routines, SAPMNT31


INCLUDES used within this REPORT MN225F90

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_FIND_EXCL_SCREENS CALL FUNCTION 'ISH_FIND_EXCL_SCREENS' EXPORTING act_tcode = tcode einri = n2lkgz-einri extp_nam = repid all_screens = all_screens TABLES excl_screens = excl_screens.

SCROLLING_IN_TABLE CALL FUNCTION 'SCROLLING_IN_TABLE' EXPORTING entry_to = entry_to loops = lines_per_page ok_code = save-ok-code entry_act = head_line last_page_full = ' ' overlapping = ' ' IMPORTING entry_new = head_line.

ISH_MODIFY_SCREEN CALL FUNCTION 'ISH_MODIFY_SCREEN' EXPORTING dynnr = dynnr einri = rn225-einri * FCODE = '*' pname = repid vcode = vcode set_cursor = on CHANGING tc_control = tc_in2lkgz.

ISH_MODIFY_SCREEN CALL FUNCTION 'ISH_MODIFY_SCREEN' EXPORTING dynnr = dynnr einri = rn225-einri * FCODE = 'AS ' pname = repid vcode = vcode set_cursor = on.

ISH_SET_NEXT_SCREEN CALL FUNCTION 'ISH_SET_NEXT_SCREEN' EXPORTING act_tcode = tcode leave_tcode = tcode einri = einri fcode = fcode goto_dynnr = goto_dynnr screen_called = screen_called IMPORTING fcode = fcode_2 next_dynnr = next_dynnr.

DEQUEUE_EN2LKGZ CALL FUNCTION 'DEQUEUE_EN2LKGZ' EXPORTING einri = n2lkgz-einri tarid = rn225-tarid tarls = rn225-tarls.

ENQUEUE_EN2LKGZ CALL FUNCTION 'ENQUEUE_EN2LKGZ' EXPORTING einri = n2lkgz-einri * ZUPTYP = N2LKGZ-ZUPTYP tarid = rn225-tarid tarls = rn225-tarls * ZUGKAT = ZUGKAT * ZUGKEY = ZUGKEY * ENDDT = ENDDT EXCEPTIONS foreign_lock = 1 system_failure = 2.

R3MED_UPDATE_NTPZ

ISH_N2_UPDATE_N2LKGZ * CALL FUNCTION 'R3MED_UPDATE_NTPZ' CALL FUNCTION 'ISH_N2_UPDATE_N2LKGZ' " IN UPDATE TASK EXPORTING tcode = sy-tcode TABLES nn2lkgz = nn2lkgz on2lkgz = on2lkgz.

ISH_UPDATE_NTPZ * CALL FUNCTION 'ISH_UPDATE_NTPZ' " Noch nicht angepaßt * IN UPDATE TASK * EXPORTING * TCODE = SY-TCODE * VCODE = MODE * NN2LKGZ = N2LKGZ * ON2LKGZ = OLD_N2LKGZ.

ISH_N2_SHOW_N2LKGZ CALL FUNCTION 'ISH_N2_SHOW_N2LKGZ' EXPORTING tarid = tarid einri = einri ** ORGID = ' ' extp_nam = 'SAPMN225' input_tarid = inp_tarid ** OPEN_LEVEL = 0 ** SELECT_GROUPS = 'X' * SET_ZUPTYP = N2LKGZ-ZUPTYP set_katart = set_katart vcode = vcode withmark = 'N' withhelp = no IMPORTING e_n2gt = *n2gt e_ntpk = *ntpk * TABLES * T_N2GT = I_N2GT "Dummy EXCEPTIONS missing_einri = 1 not_found = 2.

ISH_N2_SHOW_N2GT CALL FUNCTION 'ISH_N2_SHOW_N2GT' EXPORTING * SS_COL = '10' ss_gkat = tn2k2-katid ss_einri = rn225-einri * SS_ORGID = ' ' * SS_ROW = '5' ss_vcode = vcode ss_withmark = ja * SS_WITHHELP = NEIN IMPORTING e_n2gt = *n2gt TABLES t_n2gt = n2gtneu EXCEPTIONS not_found = 1.

ISH_N2_VALUE_REQUEST CALL FUNCTION 'ISH_N2_VALUE_REQUEST' EXPORTING ss_length = 34 ss_heigth = 9 ss_field = feldname ss_table = 'TN26A' ss_vcode = vcode ss_einri = rn225-einri ss_select = sel_krit IMPORTING ss_value = wert EXCEPTIONS not_found = 01.

ISH_N2_SHOW_N2GT CALL FUNCTION 'ISH_N2_SHOW_N2GT' EXPORTING ss_gkat = tn2k2-katid ss_einri = rn225-einri ss_vcode = vcode ss_withhelp = no IMPORTING e_n2gt = *n2gt TABLES t_n2gt = i_n2gt " Wird hier nicht genutzt EXCEPTIONS not_found = 1.

ISH_N2_SHOW_N2GT CALL FUNCTION 'ISH_N2_SHOW_N2GT' EXPORTING ss_gkat = tn2k3-gkat ss_einri = rn225-einri ss_vcode = vcode ss_withhelp = no IMPORTING e_n2gt = *n2gt TABLES t_n2gt = i_n2gt " Wird hier nicht genutzt EXCEPTIONS not_found = 1.

ISH_DYNP_VALUES_READ CALL FUNCTION 'ISH_DYNP_VALUES_READ' EXPORTING dyname = repid dynumb = dynnr TABLES dynpfields = dynpfields.

DYNP_VALUES_UPDATE CALL FUNCTION 'DYNP_VALUES_UPDATE' EXPORTING dyname = repid dynumb = dynnr TABLES dynpfields = dynpfields.

ISH_N2_READ_NTPK * CALL FUNCTION 'ISH_N2_READ_NTPK' * EXPORTING ** TARID = TARID * TARLS = TARLS * SPRAS = SY-LANGU * IMPORTING * E_NTPK = $NTPK * EXCEPTIONS * NOT_FOUND = 01.

ISH_READ_NTPK_NTPT_NEW CALL FUNCTION 'ISH_READ_NTPK_NTPT_NEW' EXPORTING begdt = sy-datum einri = rn225-einri enddt = sy-datum spras = sy-langu talst = temp_tarls tarif = tarid read_ntpt = 'X' IMPORTING e_ntpk = $ntpk e_ntpt = *ntpt * KTXTCONC = KTXTCONC EXCEPTIONS missing_data = 1 no_ntpk_ntpt_found = 2 OTHERS = 3.






ISH_N2_READ_N2GT CALL FUNCTION 'ISH_N2_READ_N2GT' EXPORTING gkat = gkat gkey = gkey spras = sy-langu IMPORTING e_n2gt = $n2gt EXCEPTIONS not_found = 01.

ISH_N2_READ_TN2K2 CALL FUNCTION 'ISH_N2_READ_TN2K2' EXPORTING katid = katid IMPORTING e_tn2k2 = $tn2k2 EXCEPTIONS not_found = 01.

ISH_N2_READ_TN2K3 CALL FUNCTION 'ISH_N2_READ_TN2K3' EXPORTING einri = einri "RN225-EINRI katid = katid IMPORTING e_tn2k3 = $tn2k3 EXCEPTIONS not_found = 01.

ISH_READ_TNK01 CALL FUNCTION 'ISH_READ_TNK01' EXPORTING einri = rn225-einri katid = katid IMPORTING e_tnk01 = $tnk01 EXCEPTIONS not_found = 01.

ISH_DOMAIN_VALUE_TEXTS CALL FUNCTION 'ISH_DOMAIN_VALUE_TEXTS' EXPORTING domname = domname domvalue = domvalue IMPORTING ddtext = ddtext.

VIEW_MAINTENANCE_CALL CALL FUNCTION 'VIEW_MAINTENANCE_CALL' EXPORTING action = action * CORR_NUMBER = ' ' * GENERATE_MAINT_TOOL_IF_MISSING = ' ' * SHOW_SELECTION_POPUP = ' ' view_name = 'V_N2GT' * NO_WARNING_FOR_CLIENTINDEP = ' ' * RFC_DESTINATION_FOR_UPGRADE = ' ' * CLIENT_FOR_UPGRADE = ' ' * VARIANT_FOR_SELECTION = ' ' TABLES dba_sellist = sellist * EXCL_CUA_FUNCT = EXCEPTIONS client_reference = 1 foreign_lock = 2 invalid_action = 3 no_clientindependent_auth = 4 no_database_function = 5 no_editor_function = 6 no_show_auth = 7 no_tvdir_entry = 8 no_upd_auth = 9 only_show_allowed = 10 system_failure = 11 unknown_field_in_dba_sellist = 12 view_not_found = 13 OTHERS = 14.

VIEW_MAINTENANCE_CALL CALL FUNCTION 'VIEW_MAINTENANCE_CALL' EXPORTING action = 'S' * CORR_NUMBER = ' ' * GENERATE_MAINT_TOOL_IF_MISSING = ' ' * SHOW_SELECTION_POPUP = ' ' view_name = 'V_N2GT' * NO_WARNING_FOR_CLIENTINDEP = ' ' * RFC_DESTINATION_FOR_UPGRADE = ' ' * CLIENT_FOR_UPGRADE = ' ' * VARIANT_FOR_SELECTION = ' ' TABLES dba_sellist = sellist * EXCL_CUA_FUNCT = EXCEPTIONS client_reference = 1 foreign_lock = 2 invalid_action = 3 no_clientindependent_auth = 4 no_database_function = 5 no_editor_function = 6 no_show_auth = 7 no_tvdir_entry = 8 no_upd_auth = 9 only_show_allowed = 10 system_failure = 11 unknown_field_in_dba_sellist = 12 view_not_found = 13 OTHERS = 14.



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