SAP Reports / Programs | Patient Management | SAP Healthcare - Industry-Specific Components for Hospitals | Patient Management(IS-H-PM) SAP IS
RNLICICP SAP ABAP Report - IS-H: ICPM/ICD Combination Evaluation
RNLICICP is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). It is used for *********************************************************************** * This report will no longer be developed and will be removed from * * software maintenance with IS-H Release 6...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 RNLICICP 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 RNLICICP. "Basic submit
SUBMIT RNLICICP AND RETURN. "Return to original report after report execution complete
SUBMIT RNLICICP 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: AUSBEGDT = Evaluation Period Start
Selection Text: AUSENDDT = Evaluation Period End
Selection Text: P_CDIS = Discharged Cases only
Selection Text: P_EX1 = D Extract Name (Generate)
Selection Text: P_EX2 = D Extract Name (Display)
Selection Text: P_EXLOAD = D Display Extract
Selection Text: P_EXSAVE = D Generate Extract
Selection Text: P_EXT1 = D Extract Name
Selection Text: P_FALAE = Case Type
Selection Text: P_GVWON = Output Length of Stay
Selection Text: P_ICPHC = Surg. Proc. Main Codes Only
Selection Text: P_NOEX = D New Selection
Selection Text: P_STASP = Statistics Block
Selection Text: SE_ORGFA = Departmental Org. Unit
Selection Text: SE_ICPML = Code
Selection Text: SE_ICPMK = Catalog
Selection Text: SE_FALNR = Case
Selection Text: SE_EINRI = Institution
Selection Text: SE_DKEY = Code
Selection Text: SE_DKAT = Catalog
Selection Text: P_ZUOPAR = Dept Stay Asgmt by Time
Selection Text: P_ZUODIA = Dept Stay Asgmt by Diagnosis
Selection Text: P_VWICP = Output by Surgeries
Selection Text: P_VWICD = Output by Diagnoses
Selection Text: P_VAR = Layout
Title: IS-H: ICPM/ICD Combination Evaluation
Text Symbol: S13 = Diagnosis
Text Symbol: S12 = Time
Text Symbol: S11 = Dept. Stay Assignment via
Text Symbol: S10 = Output By
Text Symbol: S09 = Diagnoses
Text Symbol: S08 = Surgeries
Text Symbol: S07 = Settings
Text Symbol: S06 = Surgeries
Text Symbol: S04 = To
Text Symbol: S02 = Evaluation Period
Text Symbol: S01 = Institution
Text Symbol: S00 = Diagnoses
Text Symbol: 001 = Take Stats Block into Account
Text Symbol: 002 = Discharged Cases Only
Text Symbol: 003 = Surg. Proc. Main Codes Only
Text Symbol: 004 = Take Planned Surgeries into Account
Text Symbol: 005 = Ttl l.o.s
Text Symbol: 006 = Comb.
Text Symbol: 007 = View: Surgeries
Text Symbol: 008 = View: Diagnoses
Text Symbol: 009 = ********w/o ICPM**********
Text Symbol: 010 = M
Text Symbol: 011 = F
Text Symbol: 012 = U
Text Symbol: 013 = Catalog
Text Symbol: 014 = ICPM Code
Text Symbol: 015 = Surgical Proc. Code
Text Symbol: 016 = Surg. Proc. Code (2)
Text Symbol: 017 = Catalog
Text Symbol: 018 = ICD Code
Text Symbol: 019 = Diagnosis
Text Symbol: 020 = Diagnosis(2)
Text Symbol: 021 = Diagnosis(3)
Text Symbol: 022 = Lg.of Stay
Text Symbol: 023 = No.Cases
Text Symbol: 026 = Case
Text Symbol: 027 = Patient
Text Symbol: 029 = Asgmt by Diag.
Text Symbol: 030 = Asgmt by Time
Text Symbol: 031 = Dept. OU
Text Symbol: 032 = DS Frm
Text Symbol: 033 = DS To
Text Symbol: 034 = Number
Text Symbol: 200 = Input Help: OU
Text Symbol: E00 = No data records found
Text Symbol: F01 = Error Log
Text Symbol: G01 = Case
Text Symbol: G02 = Surgical Proc. Code
Text Symbol: G03 = Diagnoses
INCLUDES used within this REPORT RNLICICP
INCLUDE RNSSTABL.
INCLUDE RNEXTRACT_DATA.
INCLUDE RNSSEXTR.
INCLUDE RNSSEINR.
INCLUDE RNSSIEIN.
INCLUDE RNSSIAUS.
INCLUDE RNSSIEXT.
INCLUDE RNSSSPBO.
INCLUDE RNSSSEXT_PBO.
INCLUDE RNSSSEIN.
INCLUDE RNSSSAUS.
INCLUDE RNSSSEXT.
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_COUNTRY_VERSION_GET CALL FUNCTION 'ISH_COUNTRY_VERSION_GET' IMPORTING ss_cvers = country_version.
ISH_CASE_VALUE_REQUEST CALL FUNCTION 'ISH_CASE_VALUE_REQUEST' EXPORTING ss_einri = se_einri ss_vcode = update IMPORTING ss_falnr = se_falnr-low.
ISH_CASE_VALUE_REQUEST CALL FUNCTION 'ISH_CASE_VALUE_REQUEST' EXPORTING ss_einri = se_einri ss_vcode = update IMPORTING ss_falnr = se_falnr-high.
ISH_HELP_REQUEST CALL FUNCTION 'ISH_HELP_REQUEST' EXPORTING ss_object = 'ISH_RNLICICP_VWICP' ss_popup = on EXCEPTIONS OTHERS = 1.
ISH_HELP_REQUEST CALL FUNCTION 'ISH_HELP_REQUEST' EXPORTING ss_object = 'ISH_RNLICICP_VWICD' ss_popup = on EXCEPTIONS OTHERS = 1.
ISH_HELP_REQUEST CALL FUNCTION 'ISH_HELP_REQUEST' EXPORTING ss_object = 'ISH_RNLICICP_GVWON' ss_popup = on EXCEPTIONS OTHERS = 1.
ISH_HELP_REQUEST CALL FUNCTION 'ISH_HELP_REQUEST' EXPORTING ss_object = 'ISH_RNLICICP_ORGFA' ss_popup = on EXCEPTIONS OTHERS = 1.
ISH_HELP_REQUEST CALL FUNCTION 'ISH_HELP_REQUEST' EXPORTING ss_object = 'ISH_RNLICICP_ORGFA' ss_popup = on EXCEPTIONS OTHERS = 1.
ISH_HELP_REQUEST CALL FUNCTION 'ISH_HELP_REQUEST' EXPORTING ss_object = 'ISH_RNLICICP_ZUODIA' ss_popup = on EXCEPTIONS OTHERS = 1.
ISH_HELP_REQUEST CALL FUNCTION 'ISH_HELP_REQUEST' EXPORTING ss_object = 'ISH_RNLICICP_ZUODIA' ss_popup = on EXCEPTIONS OTHERS = 1.
ISH_PROCEDURE_ACTIVE CALL FUNCTION 'ISH_PROCEDURE_ACTIVE' IMPORTING new_op_active = new_op_active.
ISH_NPAT_CONCATENATE * CALL FUNCTION 'ISH_NPAT_CONCATENATE' * EXPORTING * SS_PATNR = SEL_NFAL-PATNR * SS_NPAT = NPAT ** SS_NPAT_COMPLETE = 'X' * SS_LIST = ON * IMPORTING * SS_PNAME = SEL_NFAL-PNAME * EXCEPTIONS * OTHERS = 1.
DDIF_NAMETAB_GET CALL FUNCTION 'DDIF_NAMETAB_GET' EXPORTING tabname = 'V_NBEW' * IMPORTING * X030L_WA = TABLES x031l_tab = ix031l EXCEPTIONS not_found = 1 OTHERS = 2.
CALL FUNCTION 'ISH_GET_MOVEMENTS' EXPORTING ss_beginn = lo_date ss_einri = se_einri ss_ende = hi_date ss_plan = ' ' ss_refresh = on TABLES ss_falnr = r_falnr ss_vnbew = tmp_nbew ss_fieldcat = fieldcat EXCEPTIONS not_found = 1 OTHERS = 2.
ISH_CALL_LIST_HEAD CALL FUNCTION 'ISH_CALL_LIST_HEAD' EXPORTING einri = se_einri ausbegdt = rnstat-ausbegdt ausenddt = rnstat-ausenddt verbegdt = rnstat-verbegdt verenddt = rnstat-verenddt * title_lin1 = rnstat-title_lin1 * title_lin2 = rnstat-title_lin2 line_size = rnstat-line_size repid = rnstat-repid uline = off EXCEPTIONS OTHERS = 1.
ISH_READ_NPAT CALL FUNCTION 'ISH_READ_NPAT' EXPORTING ss_patnr = wa_nfal-patnr SS_READ_DB = on SS_CHECK_AUTH = off SS_WITH_NADR = off IMPORTING SS_NPAT = npat EXCEPTIONS NOT_FOUND = 1 OTHERS = 4.
ISH_NPAT_CONCATENATE CALL FUNCTION 'ISH_NPAT_CONCATENATE' EXPORTING ss_patnr = npat-patnr ss_npat = npat * SS_NPAT_COMPLETE = 'X' ss_list = on IMPORTING ss_pname = kkb_cp-pname EXCEPTIONS OTHERS = 1.
ISH_GET_AUFDT_ENTDT CALL FUNCTION 'ISH_GET_AUFDT_ENTDT' EXPORTING ss_einri = se_einri ss_falnr = cp_nfal-falnr IMPORTING ss_aufdt = aufdt ss_entdt = entdt EXCEPTIONS not_found = 1 no_authority = 2 OTHERS = 3.
ISH_READ_NORG CALL FUNCTION 'ISH_READ_NORG' EXPORTING einri = se_einri orgid = cp_nfal-orgfa IMPORTING norg_e = norg EXCEPTIONS missing_orgid = 1 OTHERS = 2.
REUSE_ALV_LIST_DISPLAY CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY' EXPORTING * I_INTERFACE_CHECK = ' ' i_callback_program = repid i_callback_pf_status_set = 'KKB_CP_PF_STATUS_SET' i_callback_user_command = 'KKB_CP_USER_COMMAND' * I_STRUCTURE_NAME = is_layout = kkb_layout_cp * it_fieldcat = kkb_fc_cp it_fieldcat = alv_fieldcat_cp * IT_EXCLUDING = * it_special_groups = sp_groups_kkb[] * IT_SORT = * IT_FILTER = * IS_SEL_HIDE = * I_DEFAULT = 'X' * i_save = variant_save * is_variant = variant * IT_EVENTS = * IT_EVENT_EXIT = * IS_PRINT = i_screen_start_column = col_beg i_screen_start_line = row_beg i_screen_end_column = col_end i_screen_end_line = row_end * IMPORTING * E_EXIT_CAUSED_BY_CALLER = * ES_EXIT_CAUSED_BY_USER = TABLES t_outtab = kkb_cp EXCEPTIONS program_error = 1 OTHERS = 2.
ISH_DIA_CATALOGUE_INSTANTIATE CALL FUNCTION 'ISH_DIA_CATALOGUE_INSTANTIATE' IMPORTING e_catalogue = dia_cat.
REUSE_ALV_EVENTS_GET CALL FUNCTION 'REUSE_ALV_EVENTS_GET' EXPORTING i_list_type = 1 "hier.-sequ.
REUSE_ALV_HIERSEQ_LIST_DISPLAY CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY' EXPORTING i_callback_program = repid i_callback_pf_status_set = 'KKB_MAIN_PF_STATUS_SET' i_callback_user_command = 'KKB_MAIN_USER_COMMAND' is_layout = kkb_layout_main it_fieldcat = alv_fieldcat_main it_excluding = slis_excltab[] i_save = variant_save is_variant = se_variant it_events = slis_events_main[] i_tabname_header = 'KKB_MAIN_ICPM' i_tabname_item = 'KKB_MAIN_ICD' is_keyinfo = is_keyinfo is_sel_hide = gs_sel_hide TABLES t_outtab_header = kkb_main_icpm t_outtab_item = kkb_main_icd.
REUSE_ALV_HIERSEQ_LIST_DISPLAY CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY' EXPORTING i_callback_program = repid i_callback_pf_status_set = 'KKB_MAIN_PF_STATUS_SET' i_callback_user_command = 'KKB_MAIN_USER_COMMAND' is_layout = kkb_layout_main it_fieldcat = alv_fieldcat_main it_excluding = slis_excltab[] i_save = variant_save is_variant = se_variant it_events = slis_events_main[] i_tabname_header = 'KKB_MAIN_ICD' i_tabname_item = 'KKB_MAIN_ICPM' is_keyinfo = is_keyinfo is_sel_hide = gs_sel_hide TABLES t_outtab_header = kkb_main_icd t_outtab_item = kkb_main_icpm.
ISH_PRINT_PROTOCOL_BATCH CALL FUNCTION 'ISH_PRINT_PROTOCOL_BATCH' EXPORTING line_size = ls minutes_title = 'Fehlerprotokoll'(f01) repid = repid new_section = on EXCEPTIONS no_messages = 01.
MESSAGES_SHOW CALL FUNCTION 'MESSAGES_SHOW' EXPORTING object = 'Fehlerprotokoll'(f01) show_linno = ' ' EXCEPTIONS inconsistent_range = 01 no_messages = 02.
ISH_READ_NTPT CALL FUNCTION 'ISH_READ_NTPT' EXPORTING einri = einri spras = sy-langu talst = ntpt-talst tarif = ntpt-tarif IMPORTING e_ntpt = ntpt EXCEPTIONS not_found = 1 OTHERS = 2.
ISH_READ_NKDI * CALL FUNCTION 'ISH_READ_NKDI' * EXPORTING * dkat = icdkt * dkey = icdky * IMPORTING * nkdi_e = nkdi * EXCEPTIONS * OTHERS = 1.
ISH_GRAPHIC_ORGID_SELECT CALL FUNCTION 'ISH_GRAPHIC_ORGID_SELECT' EXPORTING date = sy-datum einri = einri freig = on graph_title = 'Eingabehilfe: OE'(200) no_bauid = off pfzuw = pfleg sperr = off IMPORTING selected_orgid = $oe.
ISH_GET_AUFDT_ENTDT CALL FUNCTION 'ISH_GET_AUFDT_ENTDT' EXPORTING ss_einri = se_einri ss_falnr = stays-falnr IMPORTING ss_aufdt = aufdt ss_entdt = entdt EXCEPTIONS not_found = 1 no_authority = 2 OTHERS = 3.
ISH_D_GVD_BILLING_DAYS_NEW CALL FUNCTION 'ISH_D_GVD_BILLING_DAYS_NEW' EXPORTING einrichtung = se_einri fallnummer = stays-falnr ausw_bis = entdt ausw_bis_zt = '240000' ausw_von = aufdt ausw_von_zt = '000000' stichtag = rnstat-ausenddt IMPORTING bel_tage = bel_tage ber_tage = ber_tage verweildauer = gsvwd TABLES inleitab = dummy_nlei inbewtab = vnbewtab ss_tagtab = tagtab EXCEPTIONS no_aufn_found = 1 no_inbewtab_found = 2 no_inleitab_found = 3 OTHERS = 4.
ISH_SAP_OM_CHECK_ACTIVE CALL FUNCTION 'ISH_SAP_OM_CHECK_ACTIVE' EXCEPTIONS not_active = 1.
ISH_OM_OU_GET CALL FUNCTION 'ISH_OM_OU_GET' IMPORTING et_norg = lt_norg EXCEPTIONS nothing_found = 0 internal_error = 0 OTHERS = 0.
ISH_FIND_ORG_HIERARCHY CALL FUNCTION 'ISH_FIND_ORG_HIERARCHY' EXPORTING ending_date = rnstat-ausenddt entry_org_unit = inorg-orgid starting_date = rnstat-ausbegdt TABLES back_tab = irnorghi1 EXCEPTIONS wrong_entry_org_unit = 1 OTHERS = 2.
REUSE_ALV_VARIANT_F4 CALL FUNCTION 'REUSE_ALV_VARIANT_F4' EXPORTING is_variant = is_variant i_save = variant_save IMPORTING e_exit = e_exit es_variant = se_variant EXCEPTIONS not_found = 1 program_error = 2 OTHERS = 3.
REUSE_ALV_VARIANT_DEFAULT_GET CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET' EXPORTING i_save = variant_save CHANGING cs_variant = se_variant EXCEPTIONS wrong_input = 1 not_found = 2 program_error = 3 OTHERS = 4.
DYNP_VALUES_READ CALL FUNCTION 'DYNP_VALUES_READ' EXPORTING dyname = repid dynumb = sy-dynnr TABLES dynpfields = dynpfields EXCEPTIONS invalid_abapworkarea = 1 invalid_dynprofield = 2 invalid_dynproname = 3 invalid_dynpronummer = 4 invalid_request = 5 no_fielddescription = 6 invalid_parameter = 7 undefind_error = 8 OTHERS = 9.
MESSAGES_GIVE CALL FUNCTION 'MESSAGES_GIVE' TABLES t_mesg = imesg EXCEPTIONS OTHERS = 1.
MESSAGES_INITIALIZE CALL FUNCTION 'MESSAGES_INITIALIZE'.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING arbgb = imesg-arbgb msgty = imesg-msgty msgv1 = imesg-msgv1 msgv2 = imesg-msgv2 msgv3 = imesg-msgv3 msgv4 = imesg-msgv4 txtnr = imesg-txtnr * ZEILE = '000' EXCEPTIONS message_type_not_valid = 1 not_active = 2 OTHERS = 3.
MESSAGES_COUNT CALL FUNCTION 'MESSAGES_COUNT' IMPORTING count = count.
MESSAGES_GIVE CALL FUNCTION 'MESSAGES_GIVE' TABLES t_mesg = p_mesg EXCEPTIONS OTHERS = 0.
MESSAGE_STORE CALL FUNCTION 'MESSAGE_STORE' EXPORTING arbgb = wa_mesg-arbgb msgty = wa_mesg-msgty msgv1 = wa_mesg-msgv1 msgv2 = wa_mesg-msgv2 msgv3 = wa_mesg-msgv3 msgv4 = wa_mesg-msgv4 txtnr = wa_mesg-txtnr EXCEPTIONS OTHERS = 0.
REUSE_ALV_EXTRACT_SAVE CALL FUNCTION 'REUSE_ALV_EXTRACT_SAVE' EXPORTING is_extract = gs_extract1 i_get_selinfos = on " Nur ALV 1) is_sel_hide = gs_sel_hide " Nur ALV 1) i_exp01 = se_variant " Anzeigevariante speichern TABLES " falls gewünscht it_exp01 = matrix it_exp02 = sel_nlop it_exp03 = depstay it_exp04 = messages.
REUSE_ALV_EXTRACT_LOAD CALL FUNCTION 'REUSE_ALV_EXTRACT_LOAD' EXPORTING is_extract = gs_extract2 "definiert in Include IMPORTING es_sel_hide = gs_sel_hide " Nur ALV 1) TABLES et_exp01 = matrix et_exp02 = sel_nlop et_exp03 = depstay et_exp04 = messages CHANGING c_exp01 = se_variant " Nur ALV 2) EXCEPTIONS not_found = 1 wrong_relid = 2 no_report = 3 no_exname = 4 no_import_possible = 5 OTHERS = 6.
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 RNLICICP or its description.
RNLICICP - IS-H: ICPM/ICD Combination Evaluation RNLICICP - IS-H: ICPM/ICD Combination Evaluation RNLGGZ_DBC_OVERVIEWTOP - RNLGGZDBCOVERVIEWTOP RNLGEB01_GET_DETAILS_WITH_RF01 - Include RNLGEB01_GET_DETAILS_WITH_RF01 RNLGEB01 - IS-H: List of Newborn Deliveries RNLGEB01 - IS-H: List of Newborn Deliveries