SAP Reports / Programs
RNCEDIU1 SAP ABAP Report - IS-H: Release EDI Messages Manually
RNCEDIU1 is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). It is used for The report
If you would like to execute this report or see the full code listing simply enter RNCEDIU1 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 RNCEDIU1. "Basic submit
SUBMIT RNCEDIU1 AND RETURN. "Return to original report after report execution complete
SUBMIT RNCEDIU1 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
Text pool values
Selection Text: PDISPVAR = D Layout
Selection Text: P_01 = Incomplete
Selection Text: P_02 = Ready to Send
Selection Text: P_BLOCKD = Still to Be Released
Selection Text: P_EINRI = D Institution
Selection Text: P_EPROC = D EDI Procedure
Selection Text: P_NOBLO = Already Released
Selection Text: SEDAS301 = D Data Collection Point
Selection Text: SEEXTKEY = D External Message ID
Selection Text: SE_DCST = D Communication Status
Selection Text: SE_DS301 = D Message Type Code
Selection Text: SE_ERDAT = Created On
Selection Text: SE_ERUSR = User
Selection Text: SE_EVENT = D Event
Selection Text: SE_EXTNR = Ext. Pat. ID (only if Relev.)
Selection Text: SE_FALNR = D Case
Selection Text: SE_LF301 = D IS-H Message Number
Selection Text: SE_PATNR = Patient (only if Relevant)
Selection Text: SE_UNTIL = D Send Until
Title: IS-H: Release EDI Messages Manually
Text Symbol: X14 = Msg. Type
Text Symbol: X13 = Locked
Text Symbol: G01 = Error Info
Text Symbol: G02 = Message Info.
Text Symbol: S00 = Release Status
Text Symbol: S01 = Still to Be Released
Text Symbol: S02 = Already Released
Text Symbol: S03 = Send Status
Text Symbol: S04 = Ready to Send
Text Symbol: S05 = Incomplete
Text Symbol: T01 = Change Release Status
Text Symbol: T10 = Do you want to save your changes?
Text Symbol: T20 = Change Release Status
Text Symbol: U00 = EDI Procedure
Text Symbol: U01 = Institution
Text Symbol: U02 = Layout
Text Symbol: X02 = Message status
Text Symbol: X03 = Direct.
Text Symbol: X04 = Direction (Txt)
Text Symbol: X05 = Msg. No.
Text Symbol: X07 = Crtd On
Text Symbol: X08 = Created By
Text Symbol: X10 = C
Text Symbol: X12 = Case Check Dgt
INCLUDES used within this REPORT RNCEDIU1
INCLUDE MNCDATA0.
INCLUDE RNCIEDIP.
INCLUDE RNCIEDII.
INCLUDE RNSSSPBO.
INCLUDE RNCIEDIU.
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_F4_HELP_MSGTYPE CALL FUNCTION 'ISH_F4_HELP_MSGTYPE' EXPORTING get_dynp_ediproc = on dyname = rnstat-repid dynumb = sy-dynnr fieldname = 'P_EPROC' IMPORTING ntkrz = se_ds301-low EXCEPTIONS OTHERS = 0.
ISH_F4_HELP_MSGTYPE CALL FUNCTION 'ISH_F4_HELP_MSGTYPE' EXPORTING get_dynp_ediproc = on dyname = rnstat-repid dynumb = sy-dynnr fieldname = 'P_EPROC' IMPORTING ntkrz = se_ds301-high EXCEPTIONS OTHERS = 0.
REUSE_ALV_VARIANT_F4 CALL FUNCTION 'REUSE_ALV_VARIANT_F4' EXPORTING is_variant = hlpvar i_save = 'A' IMPORTING e_exit = gs_exit es_variant = gs_variant EXCEPTIONS not_found = 1 program_error = 2 OTHERS = 3.
ISH_AUTH_CHECK_REPORT_EINRI CALL FUNCTION 'ISH_AUTH_CHECK_REPORT_EINRI' EXPORTING repid = rnstat-repid einri = p_einri * NO_MESSAGE = ' ' IMPORTING rc = auth_rc EXCEPTIONS OTHERS = 1.
REUSE_ALV_VARIANT_DEFAULT_GET CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET' EXPORTING i_save = 'A' CHANGING cs_variant = gs_variant EXCEPTIONS wrong_input = 1 not_found = 2 program_error = 3 OTHERS = 4.
ISH_EDI_READ_TNC301GI CALL FUNCTION 'ISH_EDI_READ_TNC301GI' EXPORTING institution = p_einri ediproc = p_eproc * READ_DB = ' ' IMPORTING * ACTIVE = e_tnc301gi = itnc301gi EXCEPTIONS OTHERS = 1.
ISH_CALL_LIST_HEAD CALL FUNCTION 'ISH_CALL_LIST_HEAD' EXPORTING * ausbegdt = rnstat-ausbegdt * ausenddt = rnstat-ausenddt einri = rnstat-einri line_size = rnstat-line_size repid = rnstat-repid title_lin1 = text-t20 title_lin2 = ' ' uline = off * verbegdt = init_date * verenddt = init_date EXCEPTIONS invalid_einri = 01.
REUSE_ALV_HIERSEQ_LIST_DISPLAY CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY' EXPORTING i_callback_program = rnstat-repid i_callback_pf_status_set = 'SET_PF_STATUS' i_callback_user_command = 'USER_COMMAND' is_layout = gs_layout it_fieldcat = xfieldcat it_excluding = gt_extab[] it_special_groups = gt_sp_groups[] it_sort = gt_sort[] it_events = gt_events[] i_tabname_header = 'INC301S' i_tabname_item = 'IRNC301ERR' is_keyinfo = gs_keyinfo TABLES t_outtab_header = inc301s t_outtab_item = irnc301err EXCEPTIONS OTHERS = 0.
REUSE_ALV_LIST_DISPLAY CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY' EXPORTING i_callback_program = rnstat-repid i_callback_pf_status_set = 'SET_PF_STATUS' i_callback_user_command = 'USER_COMMAND' is_layout = gs_layout it_fieldcat = xfieldcat it_excluding = gt_extab[] it_special_groups = gt_sp_groups[] it_sort = gt_sort[] i_default = 'X' i_save = 'A' is_variant = gs_variant it_events = gt_events[] TABLES t_outtab = inc301s EXCEPTIONS OTHERS = 0.
POPUP_TO_CONFIRM_STEP CALL FUNCTION 'POPUP_TO_CONFIRM_STEP' EXPORTING defaultoption = 'N' textline1 = text-t10 * TEXTLINE2 = titel = text-t01 IMPORTING answer = answer EXCEPTIONS OTHERS = 1.
ISH_EDI_UPDATE_NC301S CALL FUNCTION 'ISH_EDI_UPDATE_NC301S' EXPORTING is_nc301s = tmp_nc301s i_fieldname = 'MRELCTRL' * I_FIELDNAME2 = ' ' IMPORTING rc = rc.
REUSE_ALV_LIST_LAYOUT_INFO_GET CALL FUNCTION 'REUSE_ALV_LIST_LAYOUT_INFO_GET' IMPORTING es_layout = gs_layout et_fieldcat = xfieldcat et_sort = gt_sort[] es_variant = gs_variant EXCEPTIONS OTHERS = 0.
ISH_MESSAGE_LONGTEXT_DISPLAY CALL FUNCTION 'ISH_MESSAGE_LONGTEXT_DISPLAY' EXPORTING msgid = msgid msgno = msgno msgv1 = msgv1 msgv2 = msgv2 msgv3 = msgv3 msgv4 = msgv4.
ISH_EDI_CASE_OVERVIEW CALL FUNCTION 'ISH_EDI_CASE_OVERVIEW' EXPORTING einri = inc301s-einri ediproc = inc301s-ediproc falnr = inc301s-falnr read_unbuffered = on popup = on.
ISH_TEST_DIGIT CALL FUNCTION 'ISH_TEST_DIGIT' EXPORTING number = inc301s-falnr IMPORTING digite = fziff.
ISH_NV2000_CALL CALL FUNCTION 'ISH_NV2000_CALL' EXPORTING i_einri = inc301s-einri * i_patnr = patnr i_falnr = inc301s-falnr * I_LFDNR = 0 i_fcode = gcn_edi_fcode_dtm * I_VCODE = 'UPD' * I_FALAR_INSERT = '1' * I_ENQUEUE_PATNR = 'X' * I_ENQUEUE_FALNR = 'X' * I_ENQUEUE_PAPID = 'X' i_skip_entry = on * i_skip_caselist = on * I_WPLACEID = ' ' * I_POP_WPLACEID = ' ' * is_proposal = is_proposal i_tcode_old = gcn_tcode_caselist * I_LEAVE = ' ' * IMPORTING * E_OKCODE = * E_PATNR = * E_FALNR = * E_LFDNR = EXCEPTIONS no_authority = 1 enqueue_missing = 2 admission_not_saved = 3 OTHERS = 4.
ISH_TEST_DIGIT CALL FUNCTION 'ISH_TEST_DIGIT' EXPORTING number = inc301s-patnr IMPORTING digite = pziff.
ISH_NV2000_CALL CALL FUNCTION 'ISH_NV2000_CALL' EXPORTING i_einri = inc301s-einri i_patnr = inc301s-patnr * i_falnr = inc301s-falnr * I_LFDNR = 0 i_fcode = gcn_edi_fcode_dtm * I_VCODE = 'UPD' * I_FALAR_INSERT = '1' * I_ENQUEUE_PATNR = 'X' * I_ENQUEUE_FALNR = 'X' * I_ENQUEUE_PAPID = 'X' i_skip_entry = on * i_skip_caselist = on * I_WPLACEID = ' ' * I_POP_WPLACEID = ' ' * is_proposal = is_proposal i_tcode_old = 'NP03' * I_LEAVE = ' ' * IMPORTING * E_OKCODE = * E_PATNR = * E_FALNR = * E_LFDNR = EXCEPTIONS no_authority = 1 enqueue_missing = 2 admission_not_saved = 3 OTHERS = 4.
REUSE_ALV_EVENTS_GET CALL FUNCTION 'REUSE_ALV_EVENTS_GET' EXPORTING i_list_type = 0 IMPORTING et_events = e03_lt_events.
ISH_TEST_DIGIT CALL FUNCTION 'ISH_TEST_DIGIT' EXPORTING number = inc301s-falnr IMPORTING digite = inc301s-fziff.
ISH_NPAT_CONCATENATE CALL FUNCTION 'ISH_NPAT_CONCATENATE' EXPORTING * SS_EINRI = '*' ss_patnr = inpat-patnr ss_read_npat = off ss_npat = inpat * SS_NPAT_COMPLETE = 'X' ss_list = on IMPORTING ss_pname = inc301s-patname.
ISH_TEST_DIGIT CALL FUNCTION 'ISH_TEST_DIGIT' EXPORTING number = inc301s-patnr IMPORTING digite = inc301s-pziff.
ISH_NPAT_CONCATENATE CALL FUNCTION 'ISH_NPAT_CONCATENATE' EXPORTING * SS_EINRI = '*' ss_patnr = inpat-patnr ss_read_npat = off ss_npat = inpat * SS_NPAT_COMPLETE = 'X' ss_list = on IMPORTING ss_pname = inc301s-patname.
ISH_TEST_DIGIT CALL FUNCTION 'ISH_TEST_DIGIT' EXPORTING number = inc301s-patnr IMPORTING digite = inc301s-pziff.
ISH_NPAT_CONCATENATE CALL FUNCTION 'ISH_NPAT_CONCATENATE' EXPORTING * SS_EINRI = '*' ss_patnr = inpat-patnr ss_read_npat = off ss_npat = inpat * SS_NPAT_COMPLETE = 'X' ss_list = on IMPORTING ss_pname = inc301s-patname.
ISH_TEST_DIGIT CALL FUNCTION 'ISH_TEST_DIGIT' EXPORTING number = inc301s-patnr IMPORTING digite = inc301s-pziff.
ISH_F4_HELP_CASENO CALL FUNCTION 'ISH_F4_HELP_CASENO' EXPORTING dyname = dyname dynumb = dynumb institution_fname = dynp_key IMPORTING institution = einri caseno = falnr EXCEPTIONS OTHERS = 0.
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 RNCEDIU1 or its description.
RNCEDIU1 - IS-H: Release EDI Messages Manually RNCEDIU1 - IS-H: Release EDI Messages Manually RNCEDIU0 - IS-H EDI: Create Message Orders Manually RNCEDIU0 - IS-H EDI: Create Message Orders Manually RNCEDIRECREATEFILE - IS-H: Recreate all Messages of an EDI File RNCEDIRECREATEFILE - IS-H: Recreate all Messages of an EDI File