RN2OPBU2 is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). It is used for You can use this program to create a list of the surgeries performed...see full standard documentation available for this report. Also check out the submitted Comments related to this SAP report and the details below to see which OBJECTS it interacts with such as TABLES, FUNCTION MODULES, INCLUDES ETC.
If you would like to execute this report or see the full code listing simply enter RN2OPBU2 into the relevant SAP transactions such as SE38 or SE80
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.
Selection Text: PR_BWIDT = Department, Surgery Date
Selection Text: PR_DIPR = Hierarchic DiaProcOutpt
Selection Text: PR_DIZU = With Diagnosis Cat/Lo/Ce/Ad
Selection Text: PR_DKEY1 = Diagnosis Code
Selection Text: PR_DOKU = With Documents
Selection Text: PR_FADI = Department Catalog (Diagn.)
Selection Text: PR_FPSE = With Flat Rate / Proc. Surchrg
Selection Text: PR_ICPML = Procedure Code
Selection Text: PR_NEBOP = With Secondary Surgeries
Selection Text: PR_NURIS = Only Performed Surgeries
Selection Text: PR_ORGFA = Department, Performing OU
Selection Text: PR_PROLN = Department, Surgery Number
Selection Text: PR_VERW = With Reference to Main Surgery
Selection Text: PR_ZEIT = With Times
Selection Text: SE_EINRI = Institution
Selection Text: S_BWIDT = Surgery Date
Selection Text: S_DKEY1 = Diagnosis Code
Selection Text: S_ICPML = Service Code (ICPM)
Selection Text: S_ORGFA = Departmental OU
Selection Text: S_ORGPF = Operating OU
Selection Text: S_PROLN = Surgery Number
Title: OR Register
Text Symbol: S05 = Total Surgeries
Text Symbol: S04 = Total Diagnoses (ICD) :
Text Symbol: S03 = Total Services (ICPM) :
Text Symbol: S02 = Overall Total Surgeries:
Text Symbol: S01 = Institution
Text Symbol: H10 = Day Patient Cases
Text Symbol: H09 = Outpat. Cases
Text Symbol: H08 = Inpatient Cases
Text Symbol: H07 = Dept. OU:
Text Symbol: 001 = FR:
Text Symbol: 002 = Additional Criteria
Text Symbol: 003 = Sort by
Text Symbol: 004 = Output
Text Symbol: 005 = MISSING
Text Symbol: 006 = FR:
Text Symbol: 007 = PS:
INCLUDE RNCOLOUR.
INCLUDE RNDATA00.
No SAP DATABASE tables are accessed within this REPORT code!
ISH_N2_AUTHORITY * CALL FUNCTION 'ISH_N2_AUTHORITY' * EXPORTING "Ba OP215 4.63B
RS_VARIANT_SELECTIONS_DESCR CALL FUNCTION 'RS_VARIANT_SELECTIONS_DESCR' EXPORTING program = sy-repid variant = sy-slset TABLES selvarinfo = gt_selvarinfo EXCEPTIONS REPORT_NOT_EXISTENT = 1 SUBROUTINE_POOL = 2 VARIANT_NOT_EXISTENT = 3 VARIANT_NOT_SPECIFIED = 4 OTHERS = 5.
ISHMED_SELECT_OE_WITH_PARAM CALL FUNCTION 'ISHMED_SELECT_OE_WITH_PARAM' EXPORTING i_einri = se_einri i_msg = '' "RDuerr, MED-40019 i_datum = s_bwidt-low "Ba OP383 6.03/2
ISHMED_CHECK_NORG CALL FUNCTION 'ISHMED_CHECK_NORG' EXPORTING ss_einri = se_einri ss_orgid = gs_s_orgfa-low ss_gdatum = s_bwidt-low "Ba OP383 6.03/2
ISHMED_CHECK_NORG CALL FUNCTION 'ISHMED_CHECK_NORG' EXPORTING ss_einri = se_einri ss_orgid = gs_s_orgfa-high ss_gdatum = s_bwidt-low "Ba OP383 6.03/1
CALL FUNCTION 'ISH_READ_NORG' "Ba OP348 7.00
ISH_N2_READ_NBEW CALL FUNCTION 'ISH_N2_READ_NBEW' EXPORTING ss_einri = inlei-einri ss_falnr = inlei-falnr ss_lfdnr = inlei-lfdbew IMPORTING ss_nbew = s_nbew EXCEPTIONS not_found = 1.
ISHMED_OP_MONITOR * CALL FUNCTION 'ISHMED_OP_MONITOR' * EXPORTING * i_nbew = s_nbew.
CONVERSION_EXIT_ALPHA_INPUT * CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' * EXPORTING * input = se_einri * IMPORTING * output = se_einri.
ISH_GRAPHIC_ORGID_SELECT CALL FUNCTION 'ISH_GRAPHIC_ORGID_SELECT' EXPORTING einri = se_einri fazuw = on freig = on no_bauid = on IMPORTING nothing_selected = h_nosel selected_orgid = p_orgid EXCEPTIONS bauid_not_in_nbau = 1 einri_not_in_tn01 = 2 no_hierarchy = 3 orgid_not_in_norg = 4 OTHERS = 5.
ISHMED_SELECT_OE_WITH_PARAM CALL FUNCTION 'ISHMED_SELECT_OE_WITH_PARAM' EXPORTING i_einri = se_einri i_msg = '' "RDuerr, MED-40019 i_sperr_check = ' ' TABLES e_norg = lt_norg i_n1orgpar = lt_n1orgpar EXCEPTIONS cancel = 01 not_found = 02.
ISH_DYNP_VALUES_READ CALL FUNCTION 'ISH_DYNP_VALUES_READ' EXPORTING dyname = l_repid dynumb = l_dynnr TABLES dynpfields = gt_dynpfields.
CONVERSION_EXIT_ALPHA_INPUT CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = se_einri IMPORTING output = se_einri.
ISH_DYNP_VALUES_READ * CALL FUNCTION 'ISH_DYNP_VALUES_READ' * EXPORTING * dyname = repid * dynumb = dynnr * TABLES * dynpfields = dynpr.
DYNP_VALUES_UPDATE * CALL FUNCTION 'DYNP_VALUES_UPDATE' * EXPORTING * dyname = repid * dynumb = dynnr * TABLES * dynpfields = dynpr.
ISH_READ_NPAT CALL FUNCTION 'ISH_READ_NPAT' "Ba OP348 7.00
ISH_READ_NGPA CALL FUNCTION 'ISH_READ_NGPA' "Ba OP348 7.00
ISH_NGPA_CONCATENATE CALL FUNCTION 'ISH_NGPA_CONCATENATE' EXPORTING ss_gpart = in1lsteam-gpart ss_read_ngpa = off ss_ngpa = ngpa * SS_ROLLE = '1' * SS_LIST = ' ' IMPORTING ss_pname = otab1-pname EXCEPTIONS wrong_gpart = 1 OTHERS = 2.
ISHMED_READ_ORGFA CALL FUNCTION 'ISHMED_READ_ORGFA' EXPORTING i_datum = nlei-ibgdt i_einri = nlei-einri * I_MSG = ON i_orgid = nlei-erboe * I_FACHBER = ON IMPORTING e_orgfa = h_orgfa EXCEPTIONS not_found = 1 OTHERS = 2.
ISHMED_GET_NICP_FOR_ANKER CALL FUNCTION 'ISHMED_GET_NICP_FOR_ANKER' EXPORTING anker = h_nlei TABLES t_nicp = h_nicp t_nlicz = h_nlicz t_ndicz = h_ndicz EXCEPTIONS anker_not_fnd = 1 OTHERS = 2.
ISH_N2_OP_DOKTYPES_2 CALL FUNCTION 'ISH_N2_OP_DOKTYPES_2' " Tabelle mit Dokumenttypen EXPORTING ll_einri = inlem-einri ll_orgid = inlem-erboe ll_dozuo = h_dozuo ll_datum = inlem-ibgdt ll_hierch = h_hierch TABLES doctypes = h_n2do EXCEPTIONS profile_not_found = 1 OTHERS = 2.
ISH_READ_NGPA CALL FUNCTION 'ISH_READ_NGPA' "Ba OP348 7.00
ISH_NGPA_CONCATENATE CALL FUNCTION 'ISH_NGPA_CONCATENATE' " statt perform EXPORTING " CONCAT_NAME(SAPMNPA0) ss_gpart = xgpart * SS_READ_NGPA = ' ' ss_ngpa = ngpa * SS_ROLLE = '1' IMPORTING ss_pname = xpname EXCEPTIONS wrong_gpart = 1 OTHERS = 2.
DDIF_TABL_GET CALL FUNCTION 'DDIF_TABL_GET' EXPORTING name = pfleg_ddtab state = 'A' langu = sy-langu IMPORTING gotstate = ll_gotstate EXCEPTIONS illegal_input = 1 OTHERS = 2.
DDIF_TABL_GET CALL FUNCTION 'DDIF_TABL_GET' EXPORTING name = pfleg_ddtab state = 'A' langu = sy-langu IMPORTING gotstate = ll_gotstate EXCEPTIONS illegal_input = 1 OTHERS = 2.
ISH_N2_READ_OPZEITEN CALL FUNCTION 'ISH_N2_READ_OPZEITEN' EXPORTING ss_ankerleistung = extr-lnrls ss_defdatum = extr-bwidt ss_zpber_ausw = 'X' "ab 4.62 "Ba OP157 4.62C
ISH_GET_PARAMETER_ID * CALL FUNCTION 'ISH_GET_PARAMETER_ID' * EXPORTING * i_parameter_id = 'N1OPDWS' * IMPORTING * e_parameter_value = l_opdws.
ISHMED_OP_MONITOR * CALL FUNCTION 'ISHMED_OP_MONITOR' * EXPORTING * i_nbew = p_nbew * EXCEPTIONS * OTHERS = 1.
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 RN2OPBU2 or its description.