MN1PAF01 SAP ABAP INCLUDE - IS-H*MED: F4-Eingabehilfe für org. Einheiten nach verschiedenen Kriter
MN1PAF01 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 MN1PAF01 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 MN1PAF01. "Basic submit
SUBMIT MN1PAF01 AND RETURN. "Return to original report after report execution complete
SUBMIT MN1PAF01 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 MN1PAF01
INCLUDE MNDATA00.
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:
MESSAGES_ACTIVE CALL FUNCTION 'MESSAGES_ACTIVE' EXCEPTIONS not_active = 01.
MESSAGES_INITIALIZE CALL FUNCTION 'MESSAGES_INITIALIZE'.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING arbgb = arbgb msgty = type txtnr = nr msgv1 = v1 msgv2 = v2 msgv3 = v3 msgv4 = v4 EXCEPTIONS message_type_not_valid = 01 not_active = 02.
MESSAGES_SHOW CALL FUNCTION 'MESSAGES_SHOW' EXPORTING object = p_title corrections_option = p_correction send_if_one = p_send_if_one show_linno = ' '.
MESSAGES_SHOW CALL FUNCTION 'MESSAGES_SHOW' EXPORTING object = titel show_linno = space corrections_option = corr IMPORTING corrections_wanted = flag EXCEPTIONS inconsistent_range = 01 no_messages = 02.
SAPGUI_PROGRESS_INDICATOR CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR' EXPORTING percentage = r_percentage text = r_text.
ISHMED_CALL_ANFO_UEBERSICHT CALL FUNCTION 'ISHMED_CALL_ANFO_UEBERSICHT' EXPORTING i_sel_scr = 'X' i_aufruf = space " d.h. GET/SET-Param DAL auslesen!
ISHMED_ZYKLUS_PFLEGE * CALL FUNCTION 'ISHMED_ZYKLUS_PFLEGE' * EXPORTING * i_zyklus = 'S' * i_vcode = vcode.
ISH_USR05_GET CALL FUNCTION 'ISH_USR05_GET' EXPORTING ss_bname = sy-uname ss_parid = 'EIN' IMPORTING ss_value = l_val EXCEPTIONS parid_not_found = 1 bname_is_initial = 2 parid_is_initial = 3 OTHERS = 4.
ISHMED_ZYKLEN_DIALOG CALL FUNCTION 'ISHMED_ZYKLEN_DIALOG' EXPORTING i_einri = l_einri i_caller = 'S' i_mode = '' i_vcode = vcode * I_PROGNAME = * I_DYNPNR_CYCLE = * I_DYNPNR_CYCLE_DEF = i_container_cycle = 'CUSTOMN_CONTAINER' i_container_controlarea = 'CUSTOM_CONTAINER' * IMPORTING * E_OKCODE = TABLES ct_outtab_cycle = gt_cycle_outtab ct_outtab_cycle_def = gt_cycle_outtab_def.
ISHMED_C_WORKLIST_MANAGEMENT CALL FUNCTION 'ISHMED_C_WORKLIST_MANAGEMENT' EXPORTING tcode = tcode EXCEPTIONS OTHERS = 1.
ISHMED_CALL_ANFO_NEU CALL FUNCTION 'ISHMED_CALL_ANFO_NEU' EXPORTING i_n1anf = a_n1anf * I_AUFRF = ' ' * I_ROLLE = 'A' * I_SPERREN = 'X' i_tcode = p_tcode * I_GPART = ' ' i_skip_first = space * I_ZOTYP = ' ' * I_ANKERLEI = ' ' * I_CUSTOMER = 'X' * I_SET_CURSOR = ' ' * I_COMMIT = 'X' * I_UPDATE_TASK = ' ' * I_PATNR = ' ' * IMPORTING * E_FCODE = * E_N1ANF = * TABLES * T_NLEI = * T_NLEM = * T_FRAGE = * T_KANAM = EXCEPTIONS parm_invalid = 1 not_found = 2 OTHERS = 3.
ISHMED_UPDATE_NLEM_NEW_FIELDS CALL FUNCTION 'ISHMED_UPDATE_NLEM_NEW_FIELDS' IN UPDATE TASK EXPORTING * DATUM = SY-DATUM tcode = a_tcode upd_docxs = space upd_teamxs = space upd_matxs = upd_matxs upd_nlei = upd_nlei TABLES nnlem = nnlem EXCEPTIONS OTHERS = 1.
ISHMED_UPDATE_NLEM_NEW_FIELDS CALL FUNCTION 'ISHMED_UPDATE_NLEM_NEW_FIELDS' IN UPDATE TASK EXPORTING * DATUM = SY-DATUM tcode = a_tcode upd_docxs = 'X' upd_teamxs = space upd_matxs = space upd_nlei = space TABLES nnlem = nnlem EXCEPTIONS OTHERS = 1.
ISHMED_UPDATE_NLEM_NEW_FIELDS CALL FUNCTION 'ISHMED_UPDATE_NLEM_NEW_FIELDS' IN UPDATE TASK EXPORTING * DATUM = SY-DATUM tcode = sy-tcode upd_docxs = space upd_teamxs = 'X' upd_matxs = space upd_nlei = space TABLES nnlem = nnlem EXCEPTIONS OTHERS = 1.
ISHMED_UPDATE_NLEM_NEW_FIELDS CALL FUNCTION 'ISHMED_UPDATE_NLEM_NEW_FIELDS' IN UPDATE TASK EXPORTING * DATUM = SY-DATUM tcode = sy-tcode upd_docxs = space upd_teamxs = space upd_matxs = 'X' upd_nlei = space TABLES nnlem = nnlem EXCEPTIONS OTHERS = 1.
SUSR_USER_ADDRESS_READ CALL FUNCTION 'SUSR_USER_ADDRESS_READ' EXPORTING user_name = a_uname IMPORTING user_address = user_address * USER_USR03 = EXCEPTIONS user_address_not_found = 1 OTHERS = 2.
DDIF_FIELDINFO_GET CALL FUNCTION 'DDIF_FIELDINFO_GET' EXPORTING tabname = 'USR01' fieldname = 'DATFM' TABLES dfies_tab = xdfies EXCEPTIONS not_found = 1 internal_error = 2 OTHERS = 3.
CALL FUNCTION 'DOMAIN_VALUE_GET' EXPORTING i_domname = xdfies-domname i_domvalue = xdmval IMPORTING e_ddtext = xdmtxt EXCEPTIONS not_exist = 1 OTHERS = 2.
ISHMED_PFLEGEPLAN CALL FUNCTION 'ISHMED_PFLEGEPLAN' * EXPORTING * I_ERBOE = ' ' * I_GPART = * I_DAT_VON = SY-DATUM * I_DAT_BIS = SY-DATUM * I_ZEIT_VON = '000000' * I_ZEIT_BIS = '240000' * with_einstieg = 'X' * TABLES * T_LSSTA = * t_nfal = EXCEPTIONS OTHERS = 1.
ISHMED_CALL_ANFO_NEU CALL FUNCTION 'ISHMED_CALL_ANFO_NEU' EXPORTING i_n1anf = n1anf i_aufrf = 'ELAF' i_tcode = 'N1BA' i_skip_first = ' ' IMPORTING e_fcode = e_ok-code e_n1anf = n1anf TABLES t_nlei = anlei t_nlem = anlem EXCEPTIONS parm_invalid = 1 not_found = 2 OTHERS = 3.
ISHMED_CALL_ANFO * CALL FUNCTION 'ISHMED_CALL_ANFO' * EXPORTING ** i_anfid = ** i_anfoe = ** i_anfty = ** i_anpoe = * i_aufrf = 'ELAF' ** i_einri = ** i_erboe = ** i_falnr = ** i_rolle = 'A' ** i_sperren = 'X' * i_tcode = 'N1BA' ** i_gpart = ' ' * i_skip_first = ' ' * importing * e_fcode = e_ok-code * e_n1anf = n1anf * tables * t_nlei = anlei * t_nlem = anlem * exceptions * parm_invalid = 1 * others = 2.
ISHMED_LSSTAE_RANGES CALL FUNCTION 'ISHMED_LSSTAE_RANGES' EXPORTING i_einri = p_einri TABLES * r_lsstae = xrng r_lsstae = lt_rn1lstrng "ED, ID 10730 t_lssta = xn1lssta EXCEPTIONS not_valid = 1 OTHERS = 2.
DDIF_FIELDINFO_GET CALL FUNCTION 'DDIF_FIELDINFO_GET' EXPORTING tabname = 'USR01' fieldname = 'DATFM' TABLES dfies_tab = xdfies EXCEPTIONS not_found = 1 internal_error = 2 OTHERS = 3.
DD_DOMVALUE_TEXT_GET CALL FUNCTION 'DD_DOMVALUE_TEXT_GET' EXPORTING domname = xdfies-domname value = xdomval langu = 'D' "! Wichtig für J, kein Y IMPORTING dd07v_wa = xdd07v EXCEPTIONS OTHERS = 1.
DEQUEUE_ENFAL * CALL FUNCTION 'DEQUEUE_ENFAL' * EXPORTING * einri = einri * falnr = falnr * _scope = 1.
ISHMED_DEQUEUE_ENFAL CALL FUNCTION 'ISHMED_DEQUEUE_ENFAL' EXPORTING einri = einri falnr = falnr i_caller = 'MN1PAF01' _scope = '1'.
ENQUEUE_ENFAL * CALL FUNCTION 'ENQUEUE_ENFAL' * EXPORTING * einri = einri * falnr = falnr * _scope = 1 * EXCEPTIONS * foreign_lock = 4 * system_failure = 12.
ISHMED_ENQUEUE_ENFAL CALL FUNCTION 'ISHMED_ENQUEUE_ENFAL' EXPORTING einri = einri falnr = falnr i_caller = 'MN1PAF01' _scope = '1' EXCEPTIONS foreign_lock = 4 system_failure = 12.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING arbgb = 'NF' msgty = 'E' txtnr = '657' msgv1 = falnr.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING arbgb = 'NF' msgty = 'E' txtnr = '658' msgv1 = falnr msgv2 = space msgv3 = enq_uname.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING arbgb = 'NF' msgty = 'E' txtnr = '081' msgv1 = falnr.
ISHMED_READ_NTPT CALL FUNCTION 'ISHMED_READ_NTPT' EXPORTING i_einri = pv_nlem-einri i_talst = pv_nlem-leist i_tarif = pv_nlem-haust IMPORTING e_ktxt1 = l_ktxt1.
ISHMED_F4_ALLG CALL FUNCTION 'ISHMED_F4_ALLG' EXPORTING i_headline = l_rn1f4 i_disp_other = ' ' i_len_code = 12 i_len_text = l_len_text i_height = 15 i_sort = space i_vcode = 'UPD' i_title = 'Benutzer'(006) IMPORTING e_key = a_key TABLES t_f4tab = lt_user.
MESSAGES_INITIALIZE CALL FUNCTION 'MESSAGES_INITIALIZE'.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING arbgb = l_wa_msg-arbgb msgty = l_wa_msg-msgty msgv1 = l_wa_msg-msgv1 msgv2 = l_wa_msg-msgv2 msgv3 = l_wa_msg-msgv3 msgv4 = l_wa_msg-msgv4 txtnr = l_wa_msg-txtnr EXCEPTIONS OTHERS = 3.
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 MN1PAF01 or its description.