SAP Reports / Programs | Basic Data | SAP Healthcare - Industry-Specific Components for Hospitals | Basic Data(IS-H-BD) SAP IS
RNUDRG01 SAP ABAP Report - IS-H: Copy DRG Catalog into In-House Service Catalog
RNUDRG01 is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). It is used for This report lets you copy DRG codes from the DRG catalog into the in-house service catalog...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 RNUDRG01 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 RNUDRG01. "Basic submit
SUBMIT RNUDRG01 AND RETURN. "Return to original report after report execution complete
SUBMIT RNUDRG01 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: SO_TALST = DRG Code
Selection Text: SE_EINRI = Institution
Selection Text: P_TYP301 = Charge Type §301
Selection Text: P_TESTM = Test Mode
Selection Text: P_SVCPRE = Service Prefix
Selection Text: P_SMPRC = Column in In-House Svce Cat.
Selection Text: P_SMID = Target Catalog (In-House Cat.)
Selection Text: P_NTPZ = Create NTPZ Entry
Selection Text: P_DRPRC = Column in DRG Catalog
Selection Text: P_DRID = Source Catalog (DRG Catalog)
Selection Text: P_COREL = CO-Relevant
Selection Text: P_CHRGKY = Charge Key
Selection Text: P_BILLIN = Billable f. Inpat.
Selection Text: P_ADMPRC = Admission Date Price
Selection Text: P_ADDKEY = Additional Code
Title: IS-H: Copy DRG Catalog into In-House Service Catalog
Text Symbol: S17 = Billable f. Inpat.
Text Symbol: S16 = CO-Relevant
Text Symbol: S15 = Create Missing Assignments
Text Symbol: S14 = Charge Type §301
Text Symbol: S13 = Additional Key
Text Symbol: S12 = Charge Key
Text Symbol: S11 = Service Prefix
Text Symbol: S10 = Column in Source Catalog
Text Symbol: S09 = Column in Target Catalog
Text Symbol: S08 = DRG Codes
Text Symbol: S07 = Source Catalog (DRG Catalog)
Text Symbol: S06 = Target Catalog (In-House Catalog)
Text Symbol: S05 = Test Mode
Text Symbol: S01 = Institution
Text Symbol: 006 = Service Attributes
Text Symbol: 005 = Settings
Text Symbol: 004 = Additional Selection Criteria
Text Symbol: 003 = Source and Target Catalog
Text Symbol: S18 = Billable f. Outpat.
Text Symbol: S19 = Admission Date Price
INCLUDES used within this REPORT RNUDRG01
INCLUDE RNSSTABL.
INCLUDE RNLALV01.
INCLUDE RNSSEINR.
INCLUDE RNSSIEIN.
INCLUDE RNSSSPBO.
INCLUDE RNSSSEIN.
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_GET_GTARIF CALL FUNCTION 'ISH_GET_GTARIF' EXPORTING einrichtung = se_einri stichtag = sy-datum IMPORTING gtarif = p_smid EXCEPTIONS OTHERS = 2.
ISH_FIND_DRG_MDC_CATALOGS CALL FUNCTION 'ISH_FIND_DRG_MDC_CATALOGS' EXPORTING i_institution = se_einri i_date = sy-datum IMPORTING e_drg_catalog = p_drid EXCEPTIONS no_drg_cat_found = 1 no_mdc_cat_found = 2 OTHERS = 3.
ISH_READ_TNGRP0 CALL FUNCTION 'ISH_READ_TNGRP0' EXPORTING i_institution = se_einri i_date = sy-datum IMPORTING e_tngrp0 = wa_tngrp0 EXCEPTIONS not_found = 1 OTHERS = 2.
ISH_NTSI_CHECK CALL FUNCTION 'ISH_NTSI_CHECK' EXPORTING ss_einri = se_einri ss_tarid = p_smid ss_tarsp = p_smprc IMPORTING ss_ntsi = wa_insmcol EXCEPTIONS not_found = 1 OTHERS = 2.
ISH_NTSI_CHECK CALL FUNCTION 'ISH_NTSI_CHECK' EXPORTING ss_einri = se_einri ss_tarid = p_drid ss_tarsp = p_drprc IMPORTING ss_ntsi = wa_indrcol EXCEPTIONS not_found = 1 OTHERS = 2.
ISH_SHOW_SERVICES_NEW CALL FUNCTION 'ISH_SHOW_SERVICES_NEW' EXPORTING einrichtung = se_einri tarif = p_drid sel_group = ' ' multi_select = ' ' use_groups = ' ' zotyp = ' ' change_tarif = ' ' read_vle = ' ' select_all = ' ' IMPORTING e_ntpk = ntpk EXCEPTIONS wrong_einri = 1 nothing_found = 2 nothing_selected = 3 missing_zotyp = 4 OTHERS = 5.
ISH_SHOW_SERVICES_NEW CALL FUNCTION 'ISH_SHOW_SERVICES_NEW' EXPORTING einrichtung = se_einri tarif = p_drid sel_group = ' ' multi_select = ' ' use_groups = ' ' zotyp = ' ' change_tarif = ' ' read_vle = ' ' select_all = ' ' IMPORTING e_ntpk = ntpk EXCEPTIONS wrong_einri = 1 nothing_found = 2 nothing_selected = 3 missing_zotyp = 4 OTHERS = 5.
BAPI_HCSRVCAT_GETITEMLIST CALL FUNCTION 'BAPI_HCSRVCAT_GETITEMLIST' EXPORTING institution = se_einri srvcatid = p_drid * MAXCNT = 10000 * IMPORTING * WORST_RETURNED_MSGTY = TABLES srvcat_srvdata = indrgdat srvcat_txtdata = indrgtdat * SRVCAT_POSDATA = * return = filter_serviceid = so_talst * FILTER_STANDARDTXT = * FILTER_EXTDSERVICE = * FILTER_CHARGE_TYPE = * FILTER_IMMSERVICE = * FILTER_SRV_CATEG = * FILTER_OBJECT_TYPE = * FILTER_BEGDATE = * FILTER_ENDDATE = * FILTER_ASSIGN_TYPE = * FILTER_OPTABLE = * FILTER_EXT_CHRGTYPE = * FILTER_DELETION_IND = * FILTER_SRV_GRP_IND = .
ISH_CALL_LIST_HEAD CALL FUNCTION 'ISH_CALL_LIST_HEAD' EXPORTING einri = se_einri title_lin2 = rnstat-title_lin2 line_size = rnstat-line_size repid = rnstat-repid uline = off EXCEPTIONS OTHERS = 1.
SAPGUI_PROGRESS_INDICATOR CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR' EXPORTING percentage = percentage * TEXT = ' ' .
CONVERSION_EXIT_ALPHA_OUTPUT CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = current_drg_id IMPORTING output = current_drg_id.
ISH_HLTHSRVCAT_EXISTENCECHECK CALL FUNCTION 'ISH_HLTHSRVCAT_EXISTENCECHECK' EXPORTING ss_einri = se_einri ss_tarif = p_smid ss_talst = new_svc_id IMPORTING ss_return = return.
BAPI_HCSRVCAT_GETITEMDETAIL CALL FUNCTION 'BAPI_HCSRVCAT_GETITEMDETAIL' EXPORTING institution = se_einri srvcatid = p_drid serviceid = current_drg_id IMPORTING worst_returned_msgty = worstretmsg TABLES srvcat_coldata = in_bapintsp return = in_rtn.
BAPI_HCSRVCAT_ADDITEM CALL FUNCTION 'BAPI_HCSRVCAT_ADDITEM' EXPORTING client = sy-mandt institution = se_einri srvcatid = p_smid testrun = p_testm IMPORTING worst_returned_msgty = worstretmsg TABLES srvcat_srvdata = in_new_ntpk srvcat_txtdata = in_new_ntpt srvcat_coldata = in_new_ntsp return = in_rtn.
ISH_UPDATE_NTPZ CALL FUNCTION 'ISH_UPDATE_NTPZ' IN UPDATE TASK EXPORTING nntpz = wa_new_ntpz ontpz = wa_new_ntpz tcode = sy-tcode vcode = 'INS'.
MESSAGES_SHOW CALL FUNCTION 'MESSAGES_SHOW' EXPORTING show_linno = ' ' EXCEPTIONS inconsistent_range = 0 no_messages = 0 OTHERS = 0.
CALL FUNCTION 'ISH_UPDATE_NTPZ' IN UPDATE TASK EXPORTING nntpz = wa_es_new_ntpz ontpz = wa_es_new_ntpz tcode = sy-tcode vcode = 'INS'.
BAPI_HCSRVCAT_GETLIST CALL FUNCTION 'BAPI_HCSRVCAT_GETLIST' EXPORTING institution = se_einri IMPORTING worst_returned_msgty = wmsgty TABLES srvcat_catdata = catdata srvcat_infdata = infdata return = bapiret2.
REUSE_ALV_LIST_DISPLAY CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY' EXPORTING * I_INTERFACE_CHECK = ' ' i_callback_program = repid * i_callback_pf_status_set = 'SET_PFSTATUS' * i_callback_user_command = 'USER_COMMAND' * i_structure_name = is_layout = gs_layout it_fieldcat = xfield * IT_EXCLUDING = * IT_SPECIAL_GROUPS = * IT_SORT = * IT_FILTER = * IS_SEL_HIDE = * I_DEFAULT = 'X' * i_save = 'A' * IS_VARIANT = ' ' it_events = gt_events[] * it_event_exit = gt_event_exits[] * IS_PRINT = * I_SCREEN_START_COLUMN = 0 * I_SCREEN_START_LINE = 0 * I_SCREEN_END_COLUMN = 0 * I_SCREEN_END_LINE = 0 * IMPORTING * E_EXIT_CAUSED_BY_CALLER = * ES_EXIT_CAUSED_BY_USER = TABLES t_outtab = incopiedsvc EXCEPTIONS program_error = 1 OTHERS = 2.
ISH_MESSAGE_HANDLER CALL FUNCTION 'ISH_MESSAGE_HANDLER' EXPORTING * EINRI = '*' function = space mess_arbgb = arbgb mess_coll = 'X' mess_coll_active = active mess_nr = msgno * MESS_SHOW = ' ' mess_typ = msgty mess_var1 = msgv1 mess_var2 = msgv2 mess_var3 = msgv3 mess_var4 = msgv4 mess_line = zeile * MESS_ERROR = ' ' no_tn21m = 'X' IMPORTING mess_coll_active = active * MESS_TYP = EXCEPTIONS mess_typ_not_valid = 1 OTHERS = 2 .
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 RNUDRG01 or its description.
RNUDRG01 - IS-H: Copy DRG Catalog into In-House Service Catalog RNUDRG01 - IS-H: Copy DRG Catalog into In-House Service Catalog RNUDNKIP - IS-H: Delete Duplicate Entries in Table NKIP for Unique Index RNUDNKIP - IS-H: Delete Duplicate Entries in Table NKIP for Unique Index RNUDLS00 - IS-H: Auxil. Program (Test): Delete Services from Service Catalog RNUDLS00 - IS-H: Auxil. Program (Test): Delete Services from Service Catalog