MN1L0F00 SAP ABAP INCLUDE - IS-H*MED: F4-Eingabehilfe für org. Einheiten nach verschiedenen Kriter
MN1L0F00 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 MN1L0F00 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 MN1L0F00. "Basic submit
SUBMIT MN1L0F00 AND RETURN. "Return to original report after report execution complete
SUBMIT MN1L0F00 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 MN1L0F00
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:
ISHMED_UPDATE_N1LSTEAM CALL FUNCTION 'ISHMED_UPDATE_N1LSTEAM' * IN UPDATE TASK EXPORTING tcode = sy-tcode TABLES nn1lsteam = nn1lsteam on1lsteam = on1lsteam.
ISHMED_UPDATE_N1LSSTZ CALL FUNCTION 'ISHMED_UPDATE_N1LSSTZ' * IN UPDATE TASK EXPORTING tcode = sy-tcode TABLES nn1lsstz = nn1lsstz on1lsstz = on1lsstz.
ISHMED_UPDATE_NLLZ CALL FUNCTION 'ISHMED_UPDATE_NLLZ' * IN UPDATE TASK EXPORTING tcode = sy-tcode TABLES nnllz = nnllz.
ISHMED_SLEI_SETFLAG CALL FUNCTION 'ISHMED_SLEI_SETFLAG' EXPORTING i_prgname = 'SAPMN1L0' TABLES t_nlei = nnlei t_nlem = nnlem t_nllz = nnllz EXCEPTIONS OTHERS = 1.
ISH_VERBUCHER_NLEI CALL FUNCTION 'ISH_VERBUCHER_NLEI' * IN UPDATE TASK EXPORTING tcode = sy-tcode TABLES xnlei = nnlei ynlei = onlei.
ISHMED_UPDATE_NLEM CALL FUNCTION 'ISHMED_UPDATE_NLEM' * IN UPDATE TASK EXPORTING tcode = sy-tcode TABLES nnlem = nnlem onlem = onlem.
CONVERSION_EXIT_ALPHA_INPUT CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = gt_itable_new-leist IMPORTING output = gt_itable_new-leist.
ISHMED_FILL_NLEI CALL FUNCTION 'ISHMED_FILL_NLEI' EXPORTING ss_bew_bezug = bew_bezug ss_lsstae = itable-lsstae ss_gpart = itable-gpart ss_gtarif = gtarif ss_nbew = nbew ss_nfal = nfal ss_nlei = nnlei ss_nlem = nnlem ss_n1lsstz = nn1lsstz ss_umfeld = 'LNERF' IMPORTING ss_e_nbew = nbew " !!!!!!!!!!! ss_e_nlei = nnlei ss_e_nlem = nnlem ss_e_n1lsstz = nn1lsstz TABLES ss_nbewtab = nbewtab EXCEPTIONS ss_nbew_connection_not_found = 01 ss_parameter_missing = 02 ss_parameter_not_valid = 03.
ISHMED_FILL_NLEI CALL FUNCTION 'ISHMED_FILL_NLEI' EXPORTING ss_bew_bezug = bew_bezug ss_lsstae = itable-lsstae ss_gpart = itable-gpart ss_gtarif = gtarif ss_nbew = nbew ss_nfal = nfal ss_nlei = nnlei ss_nlem = nnlem ss_n1lsstz = nn1lsstz ss_umfeld = 'LNERF' IMPORTING ss_e_nlei = nnlei ss_e_nlem = nnlem ss_e_n1lsstz = nn1lsstz TABLES ss_nbewtab = nbewtab EXCEPTIONS ss_nbew_connection_not_found = 01 ss_parameter_missing = 02 ss_parameter_not_valid = 03.
ISH_COUNTRY_VERSION_GET CALL FUNCTION 'ISH_COUNTRY_VERSION_GET' IMPORTING ss_cvers = l_version EXCEPTIONS OTHERS = 1.
ISHMED_SEARCH_ORGFA CALL FUNCTION 'ISHMED_SEARCH_ORGFA' EXPORTING i_falnr = itable-falnr i_einri = itable-einri IMPORTING e_nbew = akt_nbew EXCEPTIONS no_valid_nfal = 1 no_valid_nbew = 2 OTHERS = 3.
ISHMED_RESOLVE_SERVICES CALL FUNCTION 'ISHMED_RESOLVE_SERVICES' EXPORTING i_gdatum = sy-datum i_zotyp = n1zotyp TABLES t_nlei = group_nlei t_nlei_res = group_nlei_res t_nllz = group_nllz t_nlicz = save_nlicz " Fichte, Nr 4064 EXCEPTIONS read_error = 01.
ISHMED_SLEI_SETFLAG CALL FUNCTION 'ISHMED_SLEI_SETFLAG' EXPORTING i_prgname = 'SAPMN1L0' TABLES t_nlei = nnlei t_nlem = nnlem t_nllz = nnllz EXCEPTIONS OTHERS = 1.
ISH_VERBUCHER_NLEI CALL FUNCTION 'ISH_VERBUCHER_NLEI' * in update task EXPORTING tcode = sy-tcode TABLES xnlei = nnlei ynlei = onlei.
ISHMED_UPDATE_NLEM CALL FUNCTION 'ISHMED_UPDATE_NLEM' * in update task EXPORTING tcode = sy-tcode TABLES nnlem = nnlem onlem = onlem.
ISHMED_UPDATE_N1LSSTZ CALL FUNCTION 'ISHMED_UPDATE_N1LSSTZ' * in update task EXPORTING tcode = sy-tcode TABLES nn1lsstz = nn1lsstz on1lsstz = on1lsstz.
ISHMED_UPDATE_NLLZ CALL FUNCTION 'ISHMED_UPDATE_NLLZ' * in update task EXPORTING tcode = sy-tcode TABLES nnllz = nnllz.
ISH_VERBUCHER_NLICZ CALL FUNCTION 'ISH_VERBUCHER_NLICZ' EXPORTING tcode = sy-tcode TABLES xnlicz = save_nlicz ynlicz = onlicz.
CALL FUNCTION 'ISHMED_UPDATE_N1LSTEAM' * in update task EXPORTING tcode = sy-tcode TABLES nn1lsteam = nn1lsteam on1lsteam = on1lsteam.
ISHMED_CHECK_SRV_CASE_STATE CALL FUNCTION 'ISHMED_CHECK_SRV_CASE_STATE' EXPORTING * I_ACTIVITY = i_caller = 'SAPMN1L0' i_einri = l_nfal-einri i_falnr = l_nfal-falnr it_vnlei = lt_vnlei IMPORTING e_rc = l_rc * ET_WRONG_SRV = CHANGING c_errorhandler = l_errorhandler.
DEQUEUE_ENLEI CALL FUNCTION 'DEQUEUE_ENLEI' EXPORTING * einri = itable-einri "REM ID 18774 * falnr = itable-falnr "REM ID 18774 * orgid = itable-orgid "REM ID 18774 * leist = itable-leist "REM ID 18774 * lnrls = itable-lnrls "REM ID 18774 einri =
-einri "ID 18774 falnr = -falnr "ID 18774 orgid = -orgid "ID 18774 leist = -leist "ID 18774 lnrls = -lnrls "ID 18774 _scope = '3'.
DEQUEUE_ENLEM CALL FUNCTION 'DEQUEUE_ENLEM' EXPORTING * lnrls = itable-lnrls "REM ID 18774 lnrls =
-lnrls "ID 18774 mandt = sy-mandt _scope = '3'.
DEQUEUE_EN1LSSTZ CALL FUNCTION 'DEQUEUE_EN1LSSTZ' EXPORTING * einri = itable-einri "REM ID 18774 * lnrls = itable-lnrls "REM ID 18774 einri =
-einri "ID 18774 lnrls = -lnrls "ID 18774 mandt = sy-mandt _scope = '3'.
ENQUEUE_ENLEI * CALL FUNCTION 'ENQUEUE_ENLEI' * EXPORTING ** einri = itable-einri "REM ID 18774 ** falnr = itable-falnr "REM ID 18774 ** orgid = itable-orgid "REM ID 18774 ** leist = itable-leist "REM ID 18774 ** lnrls = itable-lnrls "REM ID 18774 * einri =
-einri "ID 18774 * falnr = -falnr "ID 18774 * orgid = -orgid "ID 18774 * leist = -leist "ID 18774 * lnrls = -lnrls "ID 18774 * _scope = '3' * EXCEPTIONS * foreign_lock = 01 * system_failure = 02.
ENQUEUE_ENLEM * CALL FUNCTION 'ENQUEUE_ENLEM' * EXPORTING ** lnrls = itable-lnrls "REM ID 18774 * lnrls =
-lnrls "ID 18774 * mandt = sy-mandt * _scope = '3' * EXCEPTIONS * foreign_lock = 01 * system_failure = 02.
ENQUEUE_EN1LSSTZ * CALL FUNCTION 'ENQUEUE_EN1LSSTZ' * EXPORTING ** einri = itable-einri "REM ID 18774 ** lnrls = itable-lnrls "REM ID 18774 * einri =
-einri "ID 18774 * lnrls = -lnrls "ID 18774 * mandt = sy-mandt * _scope = '3' * EXCEPTIONS * foreign_lock = 01 * system_failure = 02.
ISH_COUNTRY_VERSION_GET CALL FUNCTION 'ISH_COUNTRY_VERSION_GET' IMPORTING ss_cvers = l_cvers.
ISHMED_CHECK_N_NLEI_ERB CALL FUNCTION 'ISHMED_CHECK_N_NLEI_ERB' EXPORTING * ss_erboe = itable-erboe" Erbringende Org. Einheit "CDuerr, MED-41885
ISHMED_CHECK_N_NLEI_ERB * CALL FUNCTION 'ISHMED_CHECK_N_NLEI_ERB' "REM ID 18774 * EXPORTING * ss_erboe = itable-erboe" Erbringende Org. Einheit
ISH_COUNTRY_VERSION_GET CALL FUNCTION 'ISH_COUNTRY_VERSION_GET' IMPORTING ss_cvers = l_cvers.
ISH_MODIFY_SCREEN CALL FUNCTION 'ISH_MODIFY_SCREEN' EXPORTING dynnr = dynnr einri = nfal-einri fcode = 'AS ' pname = repid * Nr 4183: Cursorpositionierung auch durchführen lassen * VCODE = VCODE.
CONVERSION_EXIT_ALPHA_INPUT CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = gt_itable_new-leist IMPORTING output = gt_itable_new-leist.
ISH_COUNTRY_VERSION_GET CALL FUNCTION 'ISH_COUNTRY_VERSION_GET' IMPORTING ss_cvers = l_version EXCEPTIONS OTHERS = 1.
SXC_EXIT_CHECK_ACTIVE CALL FUNCTION 'SXC_EXIT_CHECK_ACTIVE' EXPORTING exit_name = 'N1_PERFORM_SRV_CHECK' EXCEPTIONS not_active = 1 OTHERS = 2.
ISHMED_SHOW_XLEI CALL FUNCTION 'ISHMED_SHOW_XLEI' EXPORTING ss_einri = itable-einri ss_gdatum = itable-ibgdt ss_knotenkz = 'O' " für Vorauflösung notwendig * SS_N1ERBRI = ON * SS_N1MEDLEI = ON * SS_N1PFLLEI = ON ss_orgid = itable-erboe ss_otypl = off ss_talst = itable-leist ss_tarif = gtarif ss_titel = text-h01 ss_vcode = 'DIS' * SS_ZEITR = OFF ss_zotyp = n1zotyp * IMPORTING * E_NTPK = *NTPK * E_NTPT = *NTPT TABLES t_ntpk = i_ntpk * 16.06.1997 Pigall Andreas - Anforderungs-DB 01551
R3MED_VALUE_REQUEST CALL FUNCTION 'R3MED_VALUE_REQUEST' EXPORTING ss_length = 55 ss_heigth = 9 ss_select = 'ERBR' ss_field = field_name ss_table = 'NORG' ss_vcode = vcode ss_einri = einri ss_loekz = on "ALLE AKTIVEN DATENSÄTZE IMPORTING ss_value = return_value EXCEPTIONS not_found = 01.
ISH_FIND_NBEW_NUMBER2 CALL FUNCTION 'ISH_FIND_NBEW_NUMBER2' EXPORTING bwedt = itable-ibgdt bwezt = itable-ibzt bwidt = itable-ibgdt bwizt = itable-ibzt falar = nfal-falar IMPORTING anfoe = nlei-anfoe anpoe = nlei-anpoe erboe = nlei-erboe lfdnr = nlei-lfdbew TABLES nbew_tabp = nbewtab EXCEPTIONS missing_data = 01 no_nbew_found = 02 wrong_intervall = 03.
ISHMED_VORLAGE_ORGIDS CALL FUNCTION 'ISHMED_VORLAGE_ORGIDS' EXPORTING ss_einri = nfal-einri " Einrichtung aus dem EB ss_gdatum = systemdatum " Systemdatum ss_gpart = v_gpart " SET/GET-Parameter VMA ss_gzeit = systemzeit " Systemzeit ss_nbew = nbew " NBEW-LFDNR aus Falliste ss_nfal = nfal " Fall aus dem Einstiegsbild * ss_nlei => Wird nicht benötigt !!! ss_umfeld = 'SAPMN1L0' " Steuerung für Leist.nacherf.
ISHMED_FIND_NBEW_CONNECTION CALL FUNCTION 'ISHMED_FIND_NBEW_CONNECTION' EXPORTING * 22.05.1997 Pigall Andreas - Anforderungs-ID 01499
ISHMED_CREATE_PFLEGEPROFIL CALL FUNCTION 'ISHMED_CREATE_PFLEGEPROFIL' EXPORTING i_einri = nfal-einri i_gpart = v_gpart * I_TITLE = ' ' * I_LOCK_TAB = 'X' i_nbew = nbew EXCEPTIONS read_error = 1 cancel = 2 end = 3 fall_locked = 4 sys_error = 5 no_auth = 6 OTHERS = 7.
ISHMED_CHANGE_CARE_SERVICES CALL FUNCTION 'ISHMED_CHANGE_CARE_SERVICES' EXPORTING i_einri = p_einri i_falnr = p_falnr * Sperren, weil hier noch nicht gesperrt ist i_lock_tab = 'X' * I_TITLE = ' ' * I_GPART = ' ' * i_chg_iple = off "REM MED-33469 i_chg_iple = on "MED-33469 i_aufrufer = 'SAPMN1L0' EXCEPTIONS read_error = 1 fall_locked = 2 sys_error = 3 cancel = 4 OTHERS = 5.
ISH_DYNP_VALUES_READ CALL FUNCTION 'ISH_DYNP_VALUES_READ' EXPORTING dyname = a_repid dynumb = a_dynnr TABLES dynpfields = a_dynpfields.
ISHMED_IS_CASE_ACCOUNTED CALL FUNCTION 'ISHMED_IS_CASE_ACCOUNTED' EXPORTING i_einri = p_einri i_falnr = p_falnr * I_ABR_STRING = '2' i_show_msg = on i_vcode = vcode " Nr 3220 i_prgname = 'SAPMN1L0' " Nr 3220 IMPORTING * E_CASE_LOCKED = e_err_level = p_err_flag EXCEPTIONS not_found = 1 OTHERS = 2.
ENQUEUE_ENFAL * call function 'ENQUEUE_ENFAL' * exporting * einri = p_einri * falnr = p_falnr ** _SCOPE = 2 * exceptions * foreign_lock = 4 * system_failure = 12.
ISHMED_ENQUEUE_ENFAL CALL FUNCTION 'ISHMED_ENQUEUE_ENFAL' EXPORTING einri = p_einri falnr = p_falnr i_caller = 'MN1L0F00' EXCEPTIONS foreign_lock = 4 system_failure = 12.
ISHMED_CREATE_RAD_OBJECTS CALL FUNCTION 'ISHMED_CREATE_RAD_OBJECTS' EXPORTING i_gpart = l_gpart i_create_material = on TABLES t_nlei = lt_nlei t_nlem = lt_nlem t_nllz = lt_nllz.
ISHMED_PROCEDURE_GENERATE CALL FUNCTION 'ISHMED_PROCEDURE_GENERATE' EXPORTING p_date = sy-datum i_check_only = g_check_save "ID 16803 IMPORTING "CDuerr, MED-33920 e_retmaxtype = l_retmaxtype "CDuerr, MED-33920 TABLES t_nlei = lt_nlei t_nlem = lt_nlem t_nicp = lt_nicp t_nlicz = pt_nlicz "ID 19674 CHANGING "CDuerr, MED-33920 cr_errorhandler = lr_err "CDuerr, MED-33920 EXCEPTIONS no_lok = 1.
ISH_VERBUCHER_NICP CALL FUNCTION 'ISH_VERBUCHER_NICP' EXPORTING * DATUM = SY-DATUM tcode = sy-tcode * UNAME = SY-UNAME * UZEIT = SY-UZEIT upd_icdtxt = space TABLES xnicp = lt_nicp ynicp = lt_old_nicp.
ISH_EDI_CM_EVENTS CALL FUNCTION 'ISH_EDI_CM_EVENTS' EXPORTING institution = ls_nicp-einri patnumber = ls_nlem_event-patnr casenumber = ls_nicp-falnr * movenumber = $nbew_act-lfdnr * KOSTR_PASSED = ' ' * INSURANCESEQNO = '000' TABLES events = lt_events EXCEPTIONS missing_parameters = 0 OTHERS = 0.
ISHMED_SAVE_NBEW CALL FUNCTION 'ISHMED_SAVE_NBEW' TABLES e_nbew = save_nbew EXCEPTIONS not_found = 01 save_error = 02 no_auth = 03.
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 MN1L0F00 or its description.
MN1L0F00 - IS-H*MED: F4-Eingabehilfe für org. Einheiten nach verschiedenen Kriter MN1DEFINE - IS-H*MED: Basic key definitions MN1C1TOP - IS-H*MED: F4-Eingabehilfe für org. Einheiten nach verschiedenen Kriter MN1C1O20 - R/3MED: PBO Modules Screen 200 MN1C1O10 - R/3MED: PBO Modules Screen 100 MN1C1O00 - R/3MED: PBO Modules