MN1PWTLF03 SAP ABAP INCLUDE - Include MN1PWTLF03
MN1PWTLF03 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 MN1PWTLF03 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 MN1PWTLF03. "Basic submit
SUBMIT MN1PWTLF03 AND RETURN. "Return to original report after report execution complete
SUBMIT MN1PWTLF03 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
Text pool values
Title: Include MN1PWTLF03
INCLUDES used within this REPORT MN1PWTLF03
INCLUDE MN1PWTL01.
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_GET_PRIVATPATIENT_DATA * CALL FUNCTION 'ISHMED_GET_PRIVATPATIENT_DATA' * EXPORTING * i_tnkla = $tnkla ** i_bgdat = l_datvon " Koppensteiner, ID 5067 * IMPORTING * e_tnkla = tnkla * TABLES * t_nfal = infal * t_nfkl = infkl * EXCEPTIONS * OTHERS = 1.
ISH_USER_EXIT_GET * CALL FUNCTION 'ISH_USER_EXIT_GET' * EXPORTING * ss_event = ue_event * IMPORTING * ss_fbname = user_exit * EXCEPTIONS * no_user_exit = 01.
ISH_FORM_TH_USER_INFO * CALL FUNCTION 'ISH_FORM_TH_USER_INFO' * IMPORTING * terminal = g_terminal.
ISH_FORM_SELECT * CALL FUNCTION 'ISH_FORM_SELECT' ** Langsteiner, ID 6964 - Beginn * STARTING NEW TASK 'PRINT' * PERFORMING end_form_select ON END OF TASK ** Langsteiner, ID 6964 - Ende * EXPORTING * ss_applk = 'N' * ss_einri = marked_nbew-einri * ss_event = std_event * ss_st_print = std_print * ss_terminal = g_terminal "LE, ID 6964 14.11.01
ISH_FORM_TH_USER_INFO * CALL FUNCTION 'ISH_FORM_TH_USER_INFO' * IMPORTING * terminal = g_terminal.
ISH_FORM_SELECT * CALL FUNCTION 'ISH_FORM_SELECT' ** Langsteiner, ID 6964 - Beginn * STARTING NEW TASK 'PRINT' * PERFORMING end_form_select ON END OF TASK ** Langsteiner, ID 6964 - Ende * EXPORTING * ss_applk = 'N' * ss_einri = marked_nbew-einri * ss_event = std_event * ss_st_print = on * ss_terminal = g_terminal "LE, ID 6964 14.11.01
ISH_FORM_TH_USER_INFO * CALL FUNCTION 'ISH_FORM_TH_USER_INFO' * IMPORTING * terminal = g_terminal.
ISH_FORM_SELECT * CALL FUNCTION 'ISH_FORM_SELECT' ** Langsteiner, ID 6964 - Beginn * STARTING NEW TASK 'PRINT' * PERFORMING end_form_select ON END OF TASK ** Langsteiner, ID 6964 - Ende * EXPORTING * ss_applk = 'N' * ss_einri = marked_nbew-einri * ss_event = std_event * ss_st_print = off * ss_terminal = g_terminal "LE, ID 6964 14.11.01
ISH_FORM_PROTOCOL_LIST * CALL FUNCTION 'ISH_FORM_PROTOCOL_LIST' * EXPORTING * einri = marked_nbew-einri * falnr = marked_nbew-falnr * patnr = inpat-patnr.
ISHMED_CHECK_N_PLS_FCT * CALL FUNCTION 'ISHMED_CHECK_N_PLS_FCT' * EXPORTING * ss_calld = sy-calld * ss_einri = a_einri * ss_erboe = a_orgpf * ss_function = function * ss_msgtype = 'E' * ss_screen = '0000'.
ISHMED_N1LAPP_INPUT * CALL FUNCTION 'ISHMED_N1LAPP_INPUT' * EXPORTING * i_einri = einri ** I_NAPP = XNAPP "ID 3321 * i_ntmn = xntmn "ID 3321 * EXCEPTIONS * cancel = 1 * read_error = 2 * save_error = 3 * OTHERS = 4.
ISH_AT_ABB_ACTIVE * CALL FUNCTION 'ISH_AT_ABB_ACTIVE' * EXPORTING * i_date = sy-datum * i_einri = einri * i_falar = '2' " Hier ist noch keine Fallart bekannt * i_ishmed = on * IMPORTING * e_active = l_active * EXCEPTIONS * OTHERS = 1.
ISHMED_SET_CUA CALL FUNCTION 'ISHMED_SET_CUA' EXPORTING ss_repid = sy-cprog ss_info1 = sy-uname ss_info2 = p_orgpf ss_info3 = title_info3 TABLES ss_excl_tab = cua_excl_rep.
ISH_N2_LIST_VARIANT_READ CALL FUNCTION 'ISH_N2_LIST_VARIANT_READ' EXPORTING ss_list_head = n2lh ss_anzvar3 = hanzvar3 " ID 2948 IMPORTING ss_list_linsz = ll_line_size ss_n2lh = ll_imp_n2lh ss_no_n2lh = ll_no_n2lh TABLES ss_field_out = t_outfield ss_sortinfo = h_sortinfo CHANGING ss_fieldcat = t_fieldcat EXCEPTIONS not_found = 1 OTHERS = 2.
DDIF_FIELDINFO_GET CALL FUNCTION 'DDIF_FIELDINFO_GET' EXPORTING tabname = 'RN1PWTL' IMPORTING x030l_wa = ll_tab_header TABLES dfies_tab = ll_dfies_tab EXCEPTIONS not_found = 1 internal_error = 2 OTHERS = 3.
ISH_N2_LIST_VARIANT_SORT CALL FUNCTION 'ISH_N2_LIST_VARIANT_SORT' EXPORTING i_dialog = ll_dialog i_showone = ll_showone TABLES t_outtab = outtab t_sortinfo = t_sortinfo EXCEPTIONS cancel = 1 wrong_sortinfo = 2 OTHERS = 3.
ISHMED_GENERIERE_OP * CALL FUNCTION 'ISHMED_GENERIERE_OP' * EXPORTING * ss_fcode = 'N1WR' " ID 9617 * CHANGING * c_nbew = xnbew * EXCEPTIONS * parm_bwart_2_not_fnd = 1 * parm_folge_fkt_not_fnd = 2 * bewty_false = 3 * read_error = 4 * bew_ready = 5 * OTHERS = 6.
ISHMED_SEARCH_ORGFA * CALL FUNCTION 'ISHMED_SEARCH_ORGFA' * EXPORTING * i_falnr = p_infal_falnr * i_einri = einri * i_orgpf = help_oe "dummy * IMPORTING * e_nbew = akt_bew * e_orgfa = a_orgfa "ID 3212 * EXCEPTIONS * no_valid_nfal = 1 * no_valid_nbew = 2 * OTHERS = 3.
* CALL FUNCTION 'ISHMED_POPUP_PCODE' * TABLES * i_tn2flag = h_tn2flag * EXCEPTIONS * flagid_not_found = 1 * OTHERS = 2.
ISHMED_READ_NBEW_SEQ * CALL FUNCTION 'ISHMED_READ_NBEW_SEQ' * EXPORTING * aktbew = xnbew * opcode = '2' * TABLES * ergbew = mnbew * EXCEPTIONS * akt_erste = 01 * akt_letzte = 02 * akt_not = 03 * kett_not = 06 * nach_not = 07 * unb_opc = 08 * vorg_not = 09.
ISHMED_SAPSCRIPT * CALL FUNCTION 'ISHMED_SAPSCRIPT' * EXPORTING * ss_ktext_i = tnbew-medtx * ss_ltext_i = tnbew-meltx * ss_textid = textid * ss_textid_copy = textid * ss_textname = textname * ss_textname_copy = textname * ss_textobject = textobj * ss_textobject_copy = textobj * ss_vcode = 'DIS' * IMPORTING * ss_ktext_e = tnbew-medtx * ss_ltext_e = tnbew-meltx * TABLES * ss_icdtxt = icdtxt * EXCEPTIONS * OTHERS = 1.
ISHMED_VKG_LIST * CALL FUNCTION 'ISHMED_VKG_LIST' * EXPORTING * i_einri = xvkg-einri * i_orgid = xvkg-orgid * i_etroe = xvkg-etroe * i_modus = 'P' * i_sorkz = 'W' * i_msg = 'X' * i_slscr = slscr * i_pmsrc = 'S' * IMPORTING * e_ucomm = p_ucomm * TABLES * t_npat = inpat * t_npap = inpap "ED, ID 7290 * EXCEPTIONS * wrong_par = 1 * no_oe_found = 2 * no_vkg_found = 3 * OTHERS = 4.
ISHMED_CALL_VKG_LIST * CALL FUNCTION 'ISHMED_CALL_VKG_LIST' * EXPORTING * i_einri = xparval-einri * i_orgid = xn1parwert * i_hirkz = ' ' * i_etroe = p_orgpf * i_modus = 'O' * i_msg = 'X' * i_aufrufer = p_aufrufer * i_aufruf = aufruf * i_varnr = varnr * IMPORTING * e_ucomm = sy-ucomm * TABLES * t_npat = xnpat ** t_npap = xnpap "ED, ID 7290 * EXCEPTIONS * wrong_par = 1 * no_oe_found = 2 * no_vkg_found = 3 * OTHERS = 4.
ISHMED_TERMIN_LIST * CALL FUNCTION 'ISHMED_TERMIN_LIST' * EXPORTING * i_title = 'Terminübersicht'(010) * i_vcode = 'UPD' ** I_DATUM = SY-DATUM ** I_ZEIT = SY-UZEIT * i_nbew = xnbew * i_ntmn = xntmn * EXCEPTIONS * read_error = 1 * no_selection = 2 * OTHERS = 3.
POPUP_TO_CONFIRM CALL FUNCTION 'POPUP_TO_CONFIRM' EXPORTING text_question = question text_button_1 = 'Ambulant'(015) text_button_2 = 'Stationär'(016) display_cancel_button = 'X' IMPORTING answer = answer EXCEPTIONS text_not_found = 1 OTHERS = 2.
ISHMED_GENERATE_BEW_TO_DATE * CALL FUNCTION 'ISHMED_GENERATE_BEW_TO_DATE' * EXPORTING * i_statu = p_status * i_caller = 'RN1PWTL' * i_save_tab = on * i_change_date = on " um auch den Termin zu ändern * i_lock_tab = on * i_srch_movement = on " Nr 5688 * IMPORTING * e_nbew = a_nbew * e_rc = p_rc * TABLES * t_napp = a_napp * CHANGING * c_ntmn = a_ntmn * EXCEPTIONS * OTHERS = 1.
ISHMED_MAKE_FALLBEZUG * CALL FUNCTION 'ISHMED_MAKE_FALLBEZUG' * EXPORTING * i_npat = i_npat * i_einri = einri * i_popup = popup * TABLES * t_n1anf = t_n1anf * t_n1vkg = t_n1vkg * t_ntmn = t_ntmn * to_nlei = to_nlei * to_nlem = to_nlem * to_ntmn = to_ntmn "ID 3321 * EXCEPTIONS * fal_not_fnd = 1 * no_anf_vkg = 2 * fal_not_valid = 3 * cancel = 4 * OTHERS = 5.
DEQUEUE_ENPAT ** call function 'DEQUEUE_ENPAT' ** exporting ** patnr = patnr.
ISHMED_DEQUEUE_ENPAT * CALL FUNCTION 'ISHMED_DEQUEUE_ENPAT' * EXPORTING * patnr = patnr * i_caller = 'MN1PWTLF03'.
ENQUEUE_ENPAT ** call function 'ENQUEUE_ENPAT' ** exporting ** patnr = patnr ** _scope = 3 ** exceptions ** foreign_lock = 4 ** system_failure = 12.
ISHMED_ENQUEUE_ENPAT * CALL FUNCTION 'ISHMED_ENQUEUE_ENPAT' * EXPORTING * patnr = patnr * i_caller = 'MN1PWTLF03' * _scope = '3' * EXCEPTIONS * foreign_lock = 4 * system_failure = 12.
ISHMED_PAT_IDENTIFICATION * CALL FUNCTION 'ISHMED_PAT_IDENTIFICATION' * EXPORTING * i_einri = einri "ED, ID 8597 Pkt. 73
ISH_SHOW_LIST_PATIENT * CALL FUNCTION 'ISH_SHOW_LIST_PATIENT' * EXPORTING * npat_einri = einri * npat_nnams = marked_ntmn-nname * npat_vnams = marked_ntmn-vname * npat_gbdav = marked_ntmn-gbdat * npat_gschl = gschl * anfo = 'X' * vcode = 'UPD' * vcode_npat = 'UPD' * fcode = 'PS' * IMPORTING * vcode_neu = p_vcode * npat_patnr = p_patnr * npat_pziff = p_pziff * EXCEPTIONS * geschlecht_falsch = 1 * no_authority = 2 * npat_not_found = 3 * selection_false = 4 ** MESSAGE = 5 * OTHERS = 6.
ISHMED_GET_OWN_ORGID * CALL FUNCTION 'ISHMED_GET_OWN_ORGID' * EXPORTING * i_einri = marked_nfal-einri * i_datum = sy-datum * i_titel = 'Suche der Pfleg.OE'(025)
ISH_N2_DISPLAY_LAB_DATA * CALL FUNCTION 'ISH_N2_DISPLAY_LAB_DATA' * EXPORTING * ss_einri = marked_nfal-einri * ss_patnr = marked_nfal-patnr * ss_falnr = marked_nfal-falnr * ss_oe = own_orgid * EXCEPTIONS * err_nodata = 1 * err_system_failed = 2 * OTHERS = 3.
ISH_N2_DISPLAY_LAB_DATA * CALL FUNCTION 'ISH_N2_DISPLAY_LAB_DATA' * EXPORTING * ss_einri = einri * ss_oe = own_orgid * EXCEPTIONS * err_nodata = 1 * err_system_failed = 2 * OTHERS = 3.
ISH_READ_NPAT * CALL FUNCTION 'ISH_READ_NPAT' * EXPORTING * ss_einri = einri * ss_patnr = napp_tab-patnr * ss_with_npae = on * ss_read_db = on * IMPORTING * ss_npae = npae * ss_npat = npat * EXCEPTIONS * not_found = 01 * no_authority = 02.
ISH_FILL_INFPZ * CALL FUNCTION 'ISH_FILL_INFPZ' * EXPORTING * ss_einri = einri * ss_export = on * ss_falnr = napp_tab-falnr * TABLES * ss_infpz = infpz.
ISH_EXPORT_DIAGNOSEN_FALL * CALL FUNCTION 'ISH_EXPORT_DIAGNOSEN_FALL' * EXPORTING * ss_einri = einri * ss_falnr = napp_tab-falnr.
ISH_EXPORT_KLASSIFIKATION_FALL * CALL FUNCTION 'ISH_EXPORT_KLASSIFIKATION_FALL' * EXPORTING * ss_einri = einri * ss_falnr = napp_tab-falnr.
ISH_EXPORT_ENTBINDUNGSDATEN * CALL FUNCTION 'ISH_EXPORT_ENTBINDUNGSDATEN' * EXPORTING * ss_einri = einri * ss_falnr = napp_tab-falnr.
ISH_INSURANCE_EXPORT_TO_MEMORY ** CALL FUNCTION 'ISH_INSURANCE_EXPORT_TO_MEMORY' ** EXPORTING ** vv_einri = einri ** vv_falnr = napp_tab-falnr ** vv_patnr = napp_tab-patnr ** vv_vv = vv ** EXCEPTIONS ** no_authority = 1 ** not_found = 2 ** OTHERS = 3.
ISH_EXPORT_INSURANCE_DATA * CALL FUNCTION 'ISH_EXPORT_INSURANCE_DATA' * EXPORTING * i_einri = einri * i_falnr = napp_tab-falnr * i_patnr = napp_tab-patnr * EXCEPTIONS * missing_patnr = 1 * OTHERS = 2.
ISH_EXPORT_RISKINFO_PATIENT * CALL FUNCTION 'ISH_EXPORT_RISKINFO_PATIENT' * EXPORTING * ss_einri = einri * ss_patnr = napp_tab-patnr * EXCEPTIONS * OTHERS = 1.
ISH_EXPORT_NAPP ** CALL FUNCTION 'ISH_EXPORT_NAPP' ** EXPORTING ** SS_EINRI = EINRI ** SS_PATNR = napp_tab-PATNR ** SS_FALNR = napp_tab-FALNR ** EXCEPTIONS ** OTHERS = 1.
ISH_FILL_CONDITIONS_FOR_FORMS * CALL FUNCTION 'ISH_FILL_CONDITIONS_FOR_FORMS' * EXPORTING * vv_einri = einri * vv_falnr = napp_tab-falnr * vv_patnr = napp_tab-patnr * TABLES * vv_cond = condition_tab.
ISH_FIND_FORMS * CALL FUNCTION 'ISH_FIND_FORMS' * EXPORTING * einri = einri * st_print = std_print * IMPORTING * abnormal_end = abbruch * TABLES * conditions = condition_tab * events = event_tab * forms = print_tab.
ISH_FORM_PROTOCOL_SAVE * CALL FUNCTION 'ISH_FORM_PROTOCOL_SAVE' * EXPORTING * einri = einri * patnr = napp_tab-patnr * falnr = napp_tab-falnr * lnrtmn = napp_tab-tmnid * TABLES * forms = print_tab.
READ_TEXT_INLINE * CALL FUNCTION 'READ_TEXT_INLINE' * EXPORTING * object = text_textobject * id = text_textid * name = text_textname * language = sy-langu * inline_count = 1 * IMPORTING * header = text_header * TABLES * lines = text_lines * inlines = text_inlines * EXCEPTIONS * object = 1 * id = 2 * name = 3 * language = 4 ** SAVEMODE = 6 * not_found = 8.
ISH_VERBUCHER_NLEI * CALL FUNCTION 'ISH_VERBUCHER_NLEI' * EXPORTING * datum = sy-datum * tcode = sy-tcode * uname = sy-uname * uzeit = sy-uzeit * TABLES * xnlei = nnlei * ynlei = onlei.
ISHMED_UPDATE_NLEM * CALL FUNCTION 'ISHMED_UPDATE_NLEM' * EXPORTING * datum = sy-datum * tcode = sy-tcode * uname = sy-uname * uzeit = sy-uzeit * TABLES * nnlem = nnlem * onlem = onlem.
ISHMED_SEARCH_ORGFA * CALL FUNCTION 'ISHMED_SEARCH_ORGFA' * EXPORTING * i_falnr = p_infal_falnr * i_einri = einri * i_orgpf = help_oe "dummy * IMPORTING * e_nbew = akt_bew * e_orgfa = a_orgfa * EXCEPTIONS * no_valid_nfal = 1 * no_valid_nbew = 2 * OTHERS = 3.
ISHMED_PTS_ORDER_UPDATE * CALL FUNCTION 'ISHMED_PTS_ORDER_UPDATE' * EXPORTING * i_n1fat = n1fat * i_vcode = 'INS' * i_dialog = 'X' * i_event = 'FATINS' * i_orgid = l_norg-orgid ** I_VORB_UPD = ' ' ** I_NTMN = ** I_NTMN_OLD = * i_save = 'X' * i_commit = 'X' ** I_UPDATE_TASK = ' ' * i_messages = 'X'.
ISHMED_WP_START_PTS * CALL FUNCTION 'ISHMED_WP_START_PTS' ** IMPORTING ** E_RC = sy-subrc * TABLES * t_ish_objects = lt_ish_objects.
ISHMED_READ_NBEW_SEQ * CALL FUNCTION 'ISHMED_READ_NBEW_SEQ' * EXPORTING * aktbew = l_nbew * opcode = '5' * TABLES * ergbew = lt_nbew * EXCEPTIONS * akt_erste = 1 * akt_letzte = 2 * akt_not = 3 * kett_not = 4 * nach_not = 5 * unb_opc = 6 * vorg_not = 7 * OTHERS = 8.
ISHMED_CALL_AT_ABB * CALL FUNCTION 'ISHMED_CALL_AT_ABB' * IMPORTING * e_rc = l_rc * CHANGING * c_nbew = l_vnbew.
ISHMED_SAVE_NBEW * CALL FUNCTION 'ISHMED_SAVE_NBEW' ** EXPORTING ** SS_SAVE_LTEXT = ON ** SS_BARZT = ' ' ** SS_VERBKZ = 'E' * TABLES * e_nbew = lt_vnbew ** T_NTMN = * EXCEPTIONS * not_found = 1 * save_error = 2 * no_auth = 3 * OTHERS = 4.
SXC_EXIT_CHECK_ACTIVE * CALL FUNCTION 'SXC_EXIT_CHECK_ACTIVE' * EXPORTING * exit_name = 'ISHMED_VISITSEQ_CHEC' * EXCEPTIONS * not_active = 1 * OTHERS = 2.
ISHMED_READ_NBEW_SEQ * CALL FUNCTION 'ISHMED_READ_NBEW_SEQ' * EXPORTING * aktbew = akt_nbew * opcode = '3' * TABLES * ergbew = lt_nbew_seq ** ALLBEW = * EXCEPTIONS * akt_erste = 1 * akt_letzte = 2 * akt_not = 3 * kett_not = 4 * nach_not = 5 * unb_opc = 6 * vorg_not = 7 * OTHERS = 8.
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 MN1PWTLF03 or its description.