N3BG_DIA_F1000 SAP ABAP INCLUDE - N3BGDIAF1000
N3BG_DIA_F1000 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 N3BG_DIA_F1000 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 N3BG_DIA_F1000. "Basic submit
SUBMIT N3BG_DIA_F1000 AND RETURN. "Return to original report after report execution complete
SUBMIT N3BG_DIA_F1000 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 N3BG_DIA_F1000
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_SHOW_GPART CALL FUNCTION 'ISH_SHOW_GPART' EXPORTING aufruf = 'Y' rolle = '1' row = 8 col = 13 vcode = 'UPD' arzt = on IMPORTING select_ngpa = va_ngpa e_ngpa = wa_ngpa.
ISH_READ_NGPA CALL FUNCTION 'ISH_READ_NGPA' EXPORTING gpart =
-n3bg_gpart ss_buffer = 'X' IMPORTING ngpa_e = wa_ngpa EXCEPTIONS not_found = 1 no_authority = 2 OTHERS = 3.
ISH_READ_NGPA CALL FUNCTION 'ISH_READ_NGPA' EXPORTING gpart =
-n3bg_gpart ss_buffer = 'X' IMPORTING ngpa_e = wa_ngpa EXCEPTIONS not_found = 1 no_authority = 2 OTHERS = 3.
ISH_SHOW_GPART CALL FUNCTION 'ISH_SHOW_GPART' EXPORTING aufruf = 'Y' rolle = '2' row = 8 col = 13 vcode = 'UPD' arzt = on IMPORTING select_ngpa = va_ngpa e_ngpa = wa_ngpa.
FB_DISPLAY_FORM CALL FUNCTION 'FB_DISPLAY_FORM' EXPORTING i_formname =
-n3bg_formn i_formtype = 'T' i_with_dialog = ' ' * IMPORTING * O_FORMNAME = EXCEPTIONS no_name = 1 no_form = 2 no_access_permission = 3 illegal_language = 4 illegal_formtype = 5 OTHERS = 6 .
ISH_SHOW_GPART CALL FUNCTION 'ISH_SHOW_GPART' EXPORTING aufruf = 'Y' rolle = '2' row = 8 col = 13 vcode = 'UPD' arzt = on IMPORTING select_ngpa = va_ngpa e_ngpa = wa_ngpa.
ISH_SHOW_GPART CALL FUNCTION 'ISH_SHOW_GPART' EXPORTING aufruf = 'Y' rolle = '1' row = 8 col = 13 vcode = 'UPD' arzt = on IMPORTING select_ngpa = va_ngpa e_ngpa = wa_ngpa.
ISH_READ_NGPA CALL FUNCTION 'ISH_READ_NGPA' EXPORTING gpart =
-x00g_gpart ss_buffer = 'X' IMPORTING ngpa_e = wa_ngpa EXCEPTIONS not_found = 1 no_authority = 2 OTHERS = 3.
ISH_SHOW_GPART CALL FUNCTION 'ISH_SHOW_GPART' EXPORTING aufruf = 'Y' * rolle = '1' row = 8 col = 13 vcode = 'UPD' arzt = on IMPORTING select_ngpa = va_ngpa e_ngpa = wa_ngpa.
ISH_READ_NGPA CALL FUNCTION 'ISH_READ_NGPA' EXPORTING gpart =
-x01g_gpart ss_buffer = 'X' IMPORTING ngpa_e = wa_ngpa EXCEPTIONS not_found = 1 no_authority = 2 OTHERS = 3.
ISH_READ_NDIA CALL FUNCTION 'ISH_READ_NDIA' EXPORTING einri = in_ndoc-einri falnr = in_ndoc-falnr afdia = 'X' bhdia = 'X' endia = 'X' ewdia = 'X' fhdia = 'X' khdia = 'X' opdia = 'X' * LFDNR = '000' * SPERR = ' ' * STORN = ' ' * DATA_FROM_MEMORY = ' ' * IMPORTING * RC = TABLES ss_ndia = it_rndi1 .
ISH_FIND_DIAGNOSE_TEXT CALL FUNCTION 'ISH_FIND_DIAGNOSE_TEXT' EXPORTING dkat = wa_rndi1-dkat1 dkey = wa_rndi1-dkey1 spras = sy-langu IMPORTING dtext1 = dtext1 dtext2 = dtext2 dtext3 = dtext3 EXCEPTIONS no_text_found = 1 OTHERS = 2.
ISH_FILL_RNF62 * CALL FUNCTION 'ISH_FILL_RNF62' * EXPORTING * I_EINRI = IN_NDOC-EINRI * I_FALNR = IN_NDOC-FALNR * I_NICP_READ = ' ' * IMPORTING * E_RNF62 = IT_RNF62.
ISHMED_F4_ALLG CALL FUNCTION 'ISHMED_F4_ALLG' EXPORTING i_headline = wa_dia i_len_key = 10 i_len_code = 10 i_len_text = 55 *{ DELETE PL5K001185 1 *\ i_title = 'Diagnosen zum Fall' *} DELETE *{ INSERT PL5K001185 2 i_title = 'Diagnosen zum Fall' "#EC NOTEXT *} INSERT i_enter_key = 'X' i_refresh = ' ' i_disp_code = 'X' IMPORTING e_key = f4_key TABLES t_f4tab = it_dia * T_FUNCTION = .
ISHMED_F4_ALLG CALL FUNCTION 'ISHMED_F4_ALLG' EXPORTING * I_DISP_KEY = ' ' * I_DISP_OTHER = ' ' i_headline = wa_pro * I_HEIGHT = 10 i_len_key = 10 i_len_code = 10 * I_LEN_OTHER = 10 i_len_text = 55 * I_SORT = 'C' *{ DELETE PL5K001185 1 *\ i_title = 'Prozeduren zum Fall' *} DELETE *{ INSERT PL5K001185 2 i_title = 'Prozeduren zum Fall' "#EC NOTEXT *} INSERT * I_VCODE = 'UPD' * I_MFSEL = ' ' i_enter_key = 'X' i_refresh = ' ' * I_ACTIVEX = 'X' i_disp_code = 'X' IMPORTING e_key =
-n3bg_icpm TABLES t_f4tab = it_pro * T_FUNCTION = .
ISH_N2_DYNP_VALUES_UPDATE CALL FUNCTION 'ISH_N2_DYNP_VALUES_UPDATE' EXPORTING dyname = 'SAPLN3B1' dynumb = '0001' translate_to_upper = ' ' TABLES dynpfields = it_dynpf EXCEPTIONS invalid_abapworkarea = 1 invalid_dynprofield = 2 invalid_dynpronummer = 4 invalid_request = 5 no_fielddescription = 6 undefind_error = 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 N3BG_DIA_F1000 or its description.