SAP Reports / Programs
RNWCHHONERM SAP ABAP Report - Determine Fee-Based Services
RNWCHHONERM is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). It is used for IS-H CH: Determine Fee-Based Services This report is used to transfer billed services to the fee database if they qualify for fee billing...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 RNWCHHONERM into the relevant SAP transactions such as SE38 or SE80
Transaction Code(s):
Below is a list of transaction codes which are relevant to this SAP report
NWCH94 - Transfer Fee-Based Services
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 RNWCHHONERM. "Basic submit
SUBMIT RNWCHHONERM AND RETURN. "Return to original report after report execution complete
SUBMIT RNWCHHONERM 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_FALNR = Case Number From
Selection Text: SO_FALAR = Case Type From
Selection Text: PA_UBLPR = Transfer Log
Selection Text: PA_TEST = Test Run
Selection Text: PA_CSEL = Inc. Changed Fee Services
Title: Determine Fee-Based Services
Text Symbol: S13 = Status
Text Symbol: S12 = Inv.No.
Text Symbol: S11 = BrkdwnCde
Text Symbol: S10 = Curr.
Text Symbol: S09 = Amount
Text Symbol: S08 = Fee Subg
Text Symbol: S07 = Fee Type
Text Symbol: S06 = Fu
Text Symbol: S05 = Fee Physic.
Text Symbol: S04 = ShrtText
Text Symbol: S03 = Svce Code
Text Symbol: S02 = Patient name
Text Symbol: S01 = CaseNo.
Text Symbol: M23 = Service price is 0, distribution not possible
Text Symbol: M22 = physician
Text Symbol: M21 = No portion available for
Text Symbol: M20 = Difference serv. amt -> breakdown amt
Text Symbol: M19 = Functions are mixed
Text Symbol: S14 = Total Price of Service
Text Symbol: S15 = Amount
Text Symbol: S16 = Percent
Text Symbol: S17 = Equi.
Text Symbol: S18 = IS-H: Fee Determination
Text Symbol: S19 = External Request
Text Symbol: T01 = Error: Service master for service
Text Symbol: T02 = Unable to read
Text Symbol: T03 = service catalog
Text Symbol: T04 = Total Service Amount
Text Symbol: T05 = Test Run
Text Symbol: T06 = Production Run
Text Symbol: Z01 = Function for a "fee physician" not
Text Symbol: Z02 = defined
Text Symbol: Z03 = No data records were found for the specified
Text Symbol: Z04 = No data records found
Text Symbol: Z06 = No data records were found for the specified
Text Symbol: Z07 = No data records found
Text Symbol: M18 = Error in conditions
Text Symbol: E01 = Selection Criteria
Text Symbol: E02 = Institution
Text Symbol: E03 = Service Performance Date From
Text Symbol: E04 = To
Text Symbol: E05 = Billing Date Frm
Text Symbol: E06 = Data for Batch Run
Text Symbol: F01 = Billing date inappropr.
Text Symbol: F02 = Fee physician missing for svce
Text Symbol: F03 = Breakdown code cannot be found
Text Symbol: F04 = Error when updating fee service
Text Symbol: F05 = Error when inserting fee service
Text Symbol: F06 = Error when inserting transfer info
Text Symbol: F07 = Error when updating transfer info
Text Symbol: F08 = Extended service -> not transferred
Text Symbol: F09 = Assigned fee physician w/o private practice priv.
Text Symbol: F10 = Error determining qties
Text Symbol: F11 = Error in pricing
Text Symbol: F12 = Error in status conversion
Text Symbol: F13 = Error in distribution among fee physicians
Text Symbol: L01 = TRANSFER FEE SERVICES
Text Symbol: L02 = Log of Errored Fee Services
Text Symbol: L03 = Case No.
Text Symbol: L04 = Service No.
Text Symbol: L05 = Error Message
Text Symbol: L06 = Svce Code
Text Symbol: L07 = No errored fee-based services found
Text Symbol: M01 = No service master data found
Text Symbol: M02 = No fee physicians found
Text Symbol: M03 = Physician not found
Text Symbol: M04 = Extended Service
Text Symbol: M05 = Error in currency conv.
Text Symbol: M06 = Error determining fee relev.
Text Symbol: M07 = Equiv. nums and percentages mixed
Text Symbol: M08 = Pct <> 100
Text Symbol: M10 = Breakdown code not found
Text Symbol: M11 = Error in pricing
Text Symbol: M12 = Fixed amount > service amount
Text Symbol: M13 = Error during check billed
Text Symbol: M14 = Fixed amounts <> service amt
Text Symbol: M15 = Fee recip. master data missing for phy.
Text Symbol: M16 = Unable to read case
Text Symbol: M17 = Unable to read total amount for service
INCLUDES used within this REPORT RNWCHHONERM
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_VALUE_REQUEST call function 'ISH_VALUE_REQUEST' exporting ss_select = pa_einri ss_field = 'FALAR' ss_table = 'TN15A' importing ss_value = so_falar-low exceptions not_found = 01.
ISH_VALUE_REQUEST call function 'ISH_VALUE_REQUEST' exporting ss_select = pa_einri ss_field = 'FALAR' ss_table = 'TN15A' importing ss_value = so_falar-high exceptions not_found = 01.
ISH_COUNTRY_VERSION_GET call function 'ISH_COUNTRY_VERSION_GET' importing ss_cvers = l_version exceptions others = 1.
ISH_CALL_LIST_HEAD call function 'ISH_CALL_LIST_HEAD' exporting * ausbegdt = ausbegdt * ausenddt = ausenddt einri = pa_einri * repid = rnstat-repid line_size = rnstat-line_size title_lin1 = rnstat-title_lin1 title_lin2 = rnstat-title_lin2 * VERBEGDT = VERBEGDT * VERENDDT = VERENDDT uline = off exceptions invalid_einri = 01.
ISH_CALL_LIST_HEAD call function 'ISH_CALL_LIST_HEAD' exporting * ausbegdt = ausbegdt * ausenddt = ausenddt einri = pa_einri * repid = rnstat-repid line_size = rnstat-line_size title_lin1 = rnstat-title_lin1 title_lin2 = rnstat-title_lin2 * VERBEGDT = VERBEGDT * VERENDDT = VERENDDT uline = off exceptions invalid_einri = 01.
ISH_SHOW_LIST_PATIENT call function 'ISH_SHOW_LIST_PATIENT' exporting anfo = 'X' " Auswahlpopup npat_einri = pa_einri fcode = 'PS' " Nur Patienten vcode = 'DIS' " Nur Anzeige und Auswahl importing npat_patnr = npat-patnr npat_pziff = npat-pziff exceptions geschlecht_falsch = 01 no_authority = 02 npat_not_found = 03 selection_false = 04.
ISH_SHOW_LIST_FALL call function 'ISH_SHOW_LIST_FALL' exporting call_from_dark = ' ' col = 5 exit_on_weiter = ' ' fcode = 'SO' list_layout = '0' nfal_einri = pa_einri nfal_falnr = e_falnr nfal_fziff = ' ' nfal_patnr = npat-patnr * npatstring = ' ' only_falnr = ' ' popup = 'X' repid = ' ' row = 6 tcode = ' ' vcode = 'DIS' zuordnung = 'A' importing * LIST_OKCODE = * NBEW_BEWTY = * NBEW_LFDNR = nfal_falnr = e_falnr nfal_fziff = nfal-fziff * NO_LIST = * SELECT_NFAL = * STORNO_SELECTED = * VCODE_NEU = * WEITER = exceptions pat_not_found = 01 repid_missing = 02.
ISH_READ_TN18R call function 'ISH_READ_TN18R' exporting i_einri = pa_einri tables e_tn18r = lt_tn18r exceptions others = 3.
ISH_CH_READ_TNWCH90R call function 'ISH_CH_READ_TNWCH90R' " BS28 exporting " BS28 i_einri = pa_einri " BS28 * i_roltpe = " BS28 * i_datum = " BS28 tables " BS28 et_tnwch90r = gt_tnwch90r " BS28 exceptions " BS28 not_found = 1 " BS28 others = 2. " BS28
ISH_CH_WRITE_STATUS_NWCH90 call function 'ISH_CH_WRITE_STATUS_NWCH90' " BS18 exporting " BS18 ss_event = co_nwch93_storn " BS18 * ss_user = sy-uname " BS18 * ss_date = sy-datum " BS18 tables " BS18 * ss_nwch90s = " BS18 ss_nwch90 = gt_cancelled_nwch90 " BS18 exceptions " BS18 insert_error = 1 " BS18 no_data = 2 " BS18 others = 3. " BS18
ISH_READ_NFAL * call function 'ISH_READ_NFAL' " BS14 * * exporting " BS14 * * ss_einri = i_einri " BS14 * * ss_falnr = i_falnr " BS14 * ** SS_READ_DB = ' ' " BS14 * ** SS_CHECK_AUTH = 'X' " BS14 * ** SS_MESSAGE_NO_AUTH = 'X' " BS14 * ** SS_NO_BUFFERING = ' ' " BS14 * ** SS_CHECK_ARCHIVE = ' ' " BS14 * * importing " BS14 * * ss_nfal = i_nfal " BS14 * ** SS_PATNR_ARCHIVE = " BS14 * * exceptions " BS14 * * not_found = 1 " BS14 * * not_found_archived = 2 " BS14 * * no_authority = 3 " BS14 * * others = 4. " BS14 *
ISH_NPAT_CONCATENATE call function 'ISH_NPAT_CONCATENATE' exporting ss_einri = i_einri ss_patnr = i_nfal-patnr ss_read_npat = 'X' importing ss_pname = e_text exceptions others = 1.
ISH_READ_NTPT call function 'ISH_READ_NTPT' exporting einri = pa_einri * SPRAS = SY-LANGU talst = gt_others-tarls tarif = gt_others-tarid importing e_ntpt = gs_leitxt * KTXTCONC = exceptions not_found = 1 others = 2.
ISH_READ_NFAL * call function 'ISH_READ_NFAL' " BS14 * * exporting " BS14 * * ss_einri = gt_nlei-einri " BS14 * * ss_falnr = gt_nlei-falnr " BS14 * ** SS_READ_DB = ' ' " BS14 * ** SS_CHECK_AUTH = 'X' " BS14 * ** SS_MESSAGE_NO_AUTH = 'X' " BS14 * * importing " BS14 * * ss_nfal = ls_nfal " BS14 * * exceptions " BS14 * * others = 3. " BS14 *
ISH_READ_NTPK call function 'ISH_READ_NTPK' exporting einri = gt_nlei-einri talst = gt_nlei-leist tarif = gt_nlei-haust importing e_ntpk = ls_ntpk exceptions not_found = 1 others = 2.
ISH_READ_NTPK call function 'ISH_READ_NTPK' exporting einri = gt_nlei_x-einri talst = gt_nlei_x-leist tarif = gt_nlei_x-haust importing e_ntpk = ls_ntpk exceptions not_found = 1 others = 2.
ISH_READ_NNLZ call function 'ISH_READ_NNLZ' exporting einri = i_nlei-einri falnr = i_nlei-falnr lnrls = i_nlei-lnrls read_db = on " ISHCH-5911 tables i_nnlz = lt_nnlz exceptions no_institution = 1 others = 2.
ISH_CH_CHECK_HONARZT call function 'ISH_CH_CHECK_HONARZT' exporting ss_einri = lt_nnlz-einri ss_arzt = lt_nnlz-gpart ss_tarif = i_nlei-haust ss_talst = i_nlei-leist ss_datum = i_nlei-iendt exceptions error_einri = 1 error_arzt = 2 error_leist = 3 error_datum = 4 error_zeitrl = 5 no_authority = 6 others = 7.
ISH_CH_CHECK_SERV_BILLED call function 'ISH_CH_CHECK_SERV_BILLED' exporting ss_nlei = i_nlei * SS_BILLDATE = ' ' * SS_BILL_START = SY-DATUM * SS_BILL_END = SY-DATUM importing ss_billed = i_billed tables ss_vbrk = lt_vbrk ss_vbrp = lt_vbrp exceptions error = 1 others = 2.
ISH_CH_CHECK_SERV_BILLED call function 'ISH_CH_CHECK_SERV_BILLED' exporting ss_nlei = i_nlei ss_billdate = l_billdate ss_bill_start = pa_rechv ss_bill_end = pa_rechb importing ss_billed = i_billed tables ss_vbrk = lt_vbrk ss_vbrp = lt_vbrp exceptions error = 1 others = 2.
CONVERT_TO_FOREIGN_CURRENCY call function 'CONVERT_TO_FOREIGN_CURRENCY' exporting * CLIENT = SY-MANDT date = lt_vbrk-fkdat foreign_currency = hauswaer local_amount = lt_vbrp-netwr local_currency = lt_vbrk-waerk * READ_TCURR = 'X' importing foreign_amount = l_new_netwr exceptions others = 6.
ISH_CH_CHECK_HONREL_NEW call function 'ISH_CH_CHECK_HONREL_NEW' exporting ss_ktart = gt_inv_infos-ktart ss_kostr = gt_inv_infos-kostr ss_selbkz = gt_inv_infos-selkz ss_kschl = gt_kond_infos-kschl " BS08 ss_nfal = ps_nfal " BS14 tables ss_nlei = lt_nlei ss_honrel = lt_honrel ss_nnlz = lt_nnlz exceptions error_nlei = 1 others = 2.
ISH_CH_CHECK_HONREL_NEW call function 'ISH_CH_CHECK_HONREL_NEW' " BS08 exporting " BS08 ss_ktart = gt_inv_infos-ktart " BS08 ss_kostr = gt_inv_infos-kostr " BS08 ss_selbkz = gt_inv_infos-selkz " BS08 ss_kschl = ' ' " BS08 ss_nfal = ps_nfal " BS14 tables " BS08 ss_nlei = lt_nlei " BS08 ss_honrel = lt_honrel " BS08 ss_nnlz = lt_nnlz " BS08 exceptions " BS08 error_nlei = 1 " BS08 others = 2. " BS08
ISH_CH_SEARCH_AUFTCDE_EA call function 'ISH_CH_SEARCH_AUFTCDE_EA' " BS37 exporting " BS37 ss_nlei = i_nlei " BS37 ss_honart = gt_others-honart " BS37 ss_honugr = gt_others-honugr " BS37 ss_rolle = gt_new_nwch90-rolle " BS37 ss_arzt = gt_new_nwch90-arzt " BS37 ss_afart = ls_neo_nfal-afart " BS37 ss_kschl = gt_kond_infos-kschl " BS37 ss_nfal = ps_nfal " BS37 importing " BS37 ss_auftcde = l_auftcde " BS37 ss_falai = l_falai " BS37 ss_class = l_class " BS37 exceptions " BS37 no_auftcde = 1 " BS37 error = 2 " BS37 others = 3. " BS37
ISH_CH_SEARCH_AUFTCDE call function 'ISH_CH_SEARCH_AUFTCDE' " BS08 exporting " BS08 ss_nlei = i_nlei " BS08 ss_honart = gt_others-honart " BS08 ss_honugr = gt_others-honugr " BS08 ss_rolle = gt_new_nwch90-rolle " BS08 ss_arzt = gt_new_nwch90-arzt " BS08 ss_kschl = gt_kond_infos-kschl " BS08 ss_nfal = ps_nfal " BS14 importing " BS08 ss_auftcde = l_auftcde " BS08 ss_falai = l_falai " BS08 ss_class = l_class " BS08 exceptions " BS08 no_auftcde = 1 " BS08 error = 2 " BS08 others = 3. " BS08
ISH_CH_SEARCH_AUFTCDE_EA call function 'ISH_CH_SEARCH_AUFTCDE_EA' " BS37 exporting " BS37 ss_nlei = i_nlei " BS37 ss_honart = gt_others-honart " BS37 ss_honugr = gt_others-honugr " BS37 ss_rolle = gt_new_nwch90-rolle " BS37 ss_arzt = gt_new_nwch90-arzt " BS37 ss_afart = ls_neo_nfal-afart " BS37 ss_kschl = gt_kond_infos-kschl " BS37 ss_nfal = ps_nfal " BS37 importing " BS37 ss_auftcde = l_auftcde " BS37 ss_falai = l_falai " BS37 ss_class = l_class " BS37 exceptions " BS37 no_auftcde = 1 " BS37 error = 2 " BS37 others = 3. " BS37
ISH_CH_SEARCH_AUFTCDE call function 'ISH_CH_SEARCH_AUFTCDE' exporting ss_nlei = i_nlei ss_honart = gt_others-honart ss_honugr = gt_others-honugr ss_rolle = gt_new_nwch90-rolle ss_arzt = gt_new_nwch90-arzt ss_kschl = ' ' " BS08 ss_nfal = ps_nfal " BS14 importing ss_auftcde = l_auftcde ss_falai = l_falai ss_class = l_class exceptions no_auftcde = 1 error = 2 others = 3.
ISH_READ_NFAL * call function 'ISH_READ_NFAL' " BS14 * * exporting " BS14 * * ss_einri = $i_nlei-einri " BS14 * * ss_falnr = $i_nlei-falnr " BS14 * ** SS_READ_DB = ' ' " BS14 * ** SS_CHECK_AUTH = 'X' " BS14 * ** SS_MESSAGE_NO_AUTH = 'X' " BS14 * ** SS_NO_BUFFERING = ' ' " BS14 * * importing " BS14 * * ss_nfal = l_nfal " BS14 * * exceptions " BS14 * * not_found = 1 " BS14 * * no_authority = 2 " BS14 * * others = 3. " BS14 *
ISH_CASESERVICE_POOL_GET call function 'ISH_CASESERVICE_POOL_GET' " BS23 exporting " BS23 ss_einri = $i_nlei-einri " BS23 ss_falnr = $i_nlei-falnr " BS23 tables " BS23 * SS_VNLEI_CURR = * SS_NLEI_DABA = * SS_VNNLZ_CURR = * SS_NNLZ_DABA = * SS_VNLLZ_CURR = ss_nllz_daba = lt_nllz. " BS23
ISH_READ_NLEI call function 'ISH_READ_NLEI' exporting ss_einri = $i_nlei-einri " BS23 ss_falnr = $i_nlei-falnr " BS23 * SS_ORGID = ' ' * SS_AUTH_CHECK = ' ' * SS_DB_READ = ' ' ss_sort_field1 = 'LNRLS' " BS23 * SS_SORT_FIELD2 = 'LEIST' * SS_WITH_STORN = ' ' * IMPORTING * E_MAX_SEQUE = tables " BS23 ss_nlei = lt_nlei. " BS23
MESSAGES_INITIALIZE call function 'MESSAGES_INITIALIZE'. " BS03
ISH_SERVICES_PRICE_DETERMINE call function 'ISH_SERVICES_PRICE_DETERMINE' exporting i_einri = $i_nlei-einri i_falnr = $i_nlei-falnr i_modus = '2' i_rnab2 = l_rnab2 * I_PROGRESS = ' ' * I_SUBMIT = ' ' importing break_invoice = l_break_inv " BS03 e_fkomk = ifkomk_i * SET_FINAL_BILL = tables * I_ABRGP = * I_ANFOE = * I_BESDT = * I_BESNR = * I_BILLP = * I_ERBOE = * I_NNRL = * I_KOSTR = * I_KTART = * I_LEIST = e_rnfp1 = ifkomp e_xnkomv = ixkomv * E_XRNF31 = i_nlei = preis_nlei exceptions others = 1.
MESSAGES_GIVE call function 'MESSAGES_GIVE' " BS17 tables " BS17 t_mesg = lt_mesg. " BS17
MESSAGES_GIVE * call function 'MESSAGES_GIVE' " BS04 " BS17* ** EXPORTING " BS04 " BS17* ** I_ZEILE = ' ' " BS04 " BS17* ** I_INCL_TITLE = 'X' " BS04 " BS17* * tables " BS04 " BS17* * t_mesg = lt_mesg. " BS04 " BS17*
MESSAGES_SHOW * call function 'MESSAGES_SHOW' " BS03 " BS17* * exceptions " BS03 " BS17* * inconsistent_range = 1 " BS03 " BS17* * no_messages = 2 " BS03 " BS17* * others = 3. " BS03 " BS17*
MESSAGES_SHOW * call function 'MESSAGES_SHOW' " BS17* * exceptions " BS17* * inconsistent_range = 1 " BS17* * no_messages = 2 " BS17* * others = 3. " BS17*
CONVERT_TO_FOREIGN_CURRENCY call function 'CONVERT_TO_FOREIGN_CURRENCY' exporting * CLIENT = SY-MANDT date = sy-datum foreign_currency = hauswaer local_amount = ixkomv-kwert local_currency = ixkomv-waers * READ_TCURR = 'X' importing foreign_amount = l_new_netwr exceptions others = 6.
CONVERT_TO_FOREIGN_CURRENCY call function 'CONVERT_TO_FOREIGN_CURRENCY' exporting * CLIENT = SY-MANDT date = p_fkdat foreign_currency = hauswaer local_amount = lt_konv-kwert local_currency = p_waers * READ_TCURR = 'X' importing foreign_amount = l_new_kwert exceptions others = 6.
VIEW_ENQUEUE call function 'VIEW_ENQUEUE' exporting view_name = 'V_NWCH90' action = p_action enqueue_mode = 'E' " Exklusiv sperren enqueue_range = on " nur die akt. Einrichtung sperren
ISH_READ_NTPK call function 'ISH_READ_NTPK' exporting einri = pa_einri " DU01 talst =
-leist tarif = -haust importing e_ntpk = ls_ntpk exceptions not_found = 1 others = 2.
ISH_UNIRETCASE_ATTRIB_GET call function 'ISH_UNIRETCASE_ATTRIB_GET' exporting i_einri = pa_einri i_falnr = p_falnr importing e_apxnr = l_apxnr e_lead = l_lead e_reason = l_reason e_outod = l_outod e_falnr_lead = l_falnr_lead exceptions no_uniretcase = 1 others = 2.
ISH_APPENDIX_GETDETAIL call function 'ISH_APPENDIX_GETDETAIL' exporting i_apxnr = l_apxnr importing e_napx_fal_tab = lt_napx_fal e_napx_bew_tab = lt_napx_bew.
ISH_READ_NFAL call function 'ISH_READ_NFAL' exporting ss_einri = pa_einri ss_falnr = wa_napx_fal-falnr ss_check_auth = off " BS02 importing ss_nfal = ls_nfal exceptions not_found = 1 not_found_archived = 2 no_authority = 3 others = 4.
ISH_CASE_INVOICES_GET call function 'ISH_CASE_INVOICES_GET' exporting i_einri = pa_einri i_falnr = wa_napx_fal-falnr i_all_kostr = on i_read_db = on importing et_vbrk = lt_vbrk et_vbrp = lt_vbrp.
ISH_VALID_INVOICES_GET call function 'ISH_VALID_INVOICES_GET' exporting it_vbrk = lt_vbrk it_vbrp = lt_vbrp importing et_inv_vbrk = lt_rel_vbrk et_inv_vbrp = lt_rel_vbrp exceptions import_params_wrong = 1 no_invoices_found = 2 others = 3.
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 RNWCHHONERM or its description.