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

MNT60F01 SAP ABAP INCLUDE - IS-H*MED: F4-Eingabehilfe für org. Einheiten nach verschiedenen Kriter







MNT60F01 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 MNT60F01 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 MNT60F01. "Basic submit
SUBMIT MNT60F01 AND RETURN. "Return to original report after report execution complete
SUBMIT MNT60F01 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 MNT60F01

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_SET_NEXT_SCREEN CALL FUNCTION 'ISH_SET_NEXT_SCREEN' EXPORTING act_tcode = tcode leave_tcode = tcode fcode = fcode goto_dynnr = goto_dynnr screen_called = screen_called IMPORTING fcode = fcode_2 next_dynnr = next_dynnr.

ISH_MODIFY_SCREEN CALL FUNCTION 'ISH_MODIFY_SCREEN' EXPORTING dynnr = dynnr einri = rnt60-einri fcode = 'AS ' pname = repid * 27.8.93 USRGR = 'ALL ' "vorlaeufig fuer Benutzergruppe

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

ISH_READ_NTPK CALL FUNCTION 'ISH_READ_NTPK' EXPORTING einri = einri talst = talst tarif = tarif IMPORTING e_ntpk = $ntpk EXCEPTIONS not_found = 01.

ISH_READ_NTPT CALL FUNCTION 'ISH_READ_NTPT' EXPORTING einri = einri talst = talst tarif = tarif IMPORTING e_ntpt = $ntpt EXCEPTIONS not_found = 01.

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.

ISHMED_CHECK_N_NLEI_ERB CALL FUNCTION 'ISHMED_CHECK_N_NLEI_ERB' EXPORTING ss_calld = sy-calld ss_einri = rnt60-einri ss_erboe = rnt60-orgid_vorl ss_leave = false ss_msgtype = 'E' ss_screen = '0000' ss_tcode = tcode ss_vcode = vcode IMPORTING ss_auth = tc_auth.

R3MED_CHECK_VONBIS CALL FUNCTION 'R3MED_CHECK_VONBIS' EXPORTING data_begdt = data_begdt " Benutzerinput Gültig-Von data_enddt = data_enddt " Benutzerinput Gültig-Bis lowest_begdt = max_begdt " z.B. OE Gültig-Von

ISHMED_SAPSCRIPT CALL FUNCTION 'ISHMED_SAPSCRIPT' EXPORTING ss_ktext_i = ntpt-bemkz ss_ltext_i = ntpt-ktext ss_textid = ntpt_textid ss_textname = ntpt_textname ss_textobject = ntpt_textobject ss_vcode = 'DIS' TABLES ss_icdtxt = ntpt_icdtxt.

ISH_READ_NTPT CALL FUNCTION 'ISH_READ_NTPT' EXPORTING einri = einri talst = talst tarif = tarif IMPORTING e_ntpt = $ntpt EXCEPTIONS not_found = 01.

R3MED_UPDATE_N1XLEI CALL FUNCTION 'R3MED_UPDATE_N1XLEI' IN UPDATE TASK EXPORTING tcode = sy-tcode TABLES nn1xlei = nn1xlei on1xlei = on1xlei.

ISH_VALUE_REQUEST * CALL FUNCTION 'ISH_VALUE_REQUEST' * EXPORTING * SS_FIELD = FELDNAME * SS_SELECT = EINRI * SS_TABLE = 'NFAL' * IMPORTING * SS_VALUE = *NTPK * EXCEPTIONS * NOT_FOUND = 01.

ISH_SHOW_SERVICES * CALL FUNCTION 'ISH_SHOW_SERVICES' * EXPORTING * EXTP_NAM = 'SAPMNT60' * INPUT_TARID = ' ' "Katalog darf nicht überschr. werden

ENQUEUE_EN1XLEI CALL FUNCTION 'ENQUEUE_EN1XLEI' EXPORTING einri = rnt60-einri tarif = rnt60-katid * TALST = space orgid = rnt60-orgid * BEGDT = space * _SCOPE = 3 EXCEPTIONS foreign_lock = 04 system_failure = 12.

DEQUEUE_EN1XLEI CALL FUNCTION 'DEQUEUE_EN1XLEI' EXPORTING einri = rnt60-einri tarif = rnt60-katid * TALST = SPACE orgid = rnt60-orgid.

R3MED_SEEK_FOR_POSITION CALL FUNCTION 'R3MED_SEEK_FOR_POSITION' EXPORTING table = 'N1XLEI' ttable = 'NTPT' TABLES sellist = db_sellist showlist = db_showlist EXCEPTIONS no_input_by_user = 0004 table_not_found = 0008 cancelled_by_user = 0012.

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.

ISHMED_POPUP_ENTDT





CALL FUNCTION 'ISHMED_POPUP_ENTDT' EXPORTING titel = 'Test Hitliste'(012) fieldtext = 'Gültigkeitsdatum:'(005) IMPORTING e_entdt = show_date EXCEPTIONS cancel = 1 OTHERS = 2.

ISHMED_SHOW_XLEI CALL FUNCTION 'ISHMED_SHOW_XLEI' EXPORTING ss_einri = rnt60-einri ss_gdatum = show_date " ID 2995 ss_knotenkz = 'C' ss_n1erbri = on ss_orgid = rnt60-orgid * SS_TALST = ' ' ss_tarif = a_gtarif ss_titel = 'Test Hitliste'(012) * SS_VCODE = 'UPD' ss_withmark = ja ss_zeitr = ' ' ss_zotyp = a_zotyp ss_must_sel = off ss_hitlist = on ss_aktvt = 'ERB' ss_menge_input = off ss_gdat_bis = show_date " ID 2995 EXCEPTIONS not_found = 1 OTHERS = 2.

ISHMED_SET_SERVICE_MARK CALL FUNCTION 'ISHMED_SET_SERVICE_MARK' EXPORTING i_einri = rnt60-einri i_orgid = rnt60-orgid i_tarif = itable-tarif i_talst = itable-talst * I_DATUM = SY-DATUM i_aktvt = a_aktvt i_zotyp = a_zotyp i_titel = a_titel EXCEPTIONS cancel = 1 tab_locked = 2 sys_error = 3 not_found = 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 MNT60F01 or its description.