SAP Reports / Programs
RNAP21F01 SAP ABAP Report - IS-H: DRG Data P21 Medical Case Data
RNAP21F01 is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). It is used for Relevant for country version DE only...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 RNAP21F01 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 RNAP21F01. "Basic submit
SUBMIT RNAP21F01 AND RETURN. "Return to original report after report execution complete
SUBMIT RNAP21F01 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 From
Selection Text: AUSENDDT = Evaluation Period To
Selection Text: EOPS = With Pct for Unofficial SPC
Selection Text: EX_STASP = Cases w/o Statistics Block
Selection Text: F_PATH = Data Output Path
Selection Text: F_PREFIX = File Name Prefix
Selection Text: IKNR = Institute Indicator
Selection Text: IN_STASP = Incl. Cases with Stats Block
Selection Text: NO_EOPS = W/o Pct for Unofficial SPC
Selection Text: PC = Output to PC
Selection Text: R3 = Output on SAP Server
Selection Text: RB_EINZ = Individual Cases
Selection Text: RB_GES = Complete Readmission Case
Selection Text: R_DIA = Imm. Service for Int. Dialyses
Selection Text: R_DKAT = ICD Catalog
Selection Text: R_PKAT = OPS Catalog
Selection Text: SE_EINRI = Institution
Selection Text: STANDORT = Discharging Location
Selection Text: R_FALNR = D .
Title: IS-H: DRG Data P21 Medical Case Data
Text Symbol: L16 = Patient Number
Text Symbol: L17 = Intercurrent Dialyses
Text Symbol: L18 = Mech.Vent.Hours
Text Symbol: L19 = Treatment Start-Preadmission
Text Symbol: L20 = Treatment Days-Preadmission
Text Symbol: L21 = Treatment End-Postdischarge
Text Symbol: L22 = Treatment Days-Postdischarge
Text Symbol: L23 = II Transfer Hosp
Text Symbol: L24 = Flat Rate Days in Different Charge Area
Text Symbol: L25 = II Hlth Insurer
Text Symbol: L26 = Discharging Location
Text Symbol: L27 = Length of Stay
Text Symbol: L28 = Charge Area
Text Symbol: L14 = Age-in-Years on Admit Day
Text Symbol: L13 = Age-in-Days on Admit Day
Text Symbol: L12 = Discharge Reason
Text Symbol: L11 = Discharge Date
Text Symbol: L10 = Admiss. Weight
Text Symbol: L09 = Admit Reason
Text Symbol: L08 = Admiss. Cause
Text Symbol: L07 = Admit Date
Text Symbol: L06 = PCode
Text Symbol: L05 = Sex
Text Symbol: L04 = Birth Month
Text Symbol: L03 = Birth Year
Text Symbol: L02 = II Health Insurer
Text Symbol: T16 = More than 999 PIA service codes
Text Symbol: T15 = PIA Service Date
Text Symbol: T14 = PIA Service Code
Text Symbol: T13 = Treatment Day
Text Symbol: T12 = Billing To
Text Symbol: T11 = Billing From
Text Symbol: T10 = Days w/o Treatment Billing
Text Symbol: T09 = Reason for Case Merge
Text Symbol: T08 = Case Merge
Text Symbol: T07 = Case does not have 2 charges
Text Symbol: T06 = Amount diff. to total (charge amount X no.of charges)
Text Symbol: T05 = '00000000' charge amount
Text Symbol: T04 = No charge type '00000000'
Text Symbol: T03 = No.of Charges
Text Symbol: T02 = Charge Amount
Text Symbol: T01 = Chrg. Type
Text Symbol: S01 = Institution
Text Symbol: O07 = Ext. Midwife
Text Symbol: O06 = External Anesth.
Text Symbol: O05 = Ext.Op.Surgeon
Text Symbol: O03 = OPS Date
Text Symbol: O02 = OPS Code
Text Symbol: O01 = OPS Version
Text Symbol: L31 = Ins. Person ID
Text Symbol: L30 = Days w/o Billing/Treatment
Text Symbol: L29 = PSY Leave of Ab.Days
Text Symbol: 150 = No. of Cases with Errors:
Text Symbol: 101 = Test1
Text Symbol: 100 = Program Start
Text Symbol: 068 = Discharging Location
Text Symbol: 067 = Individual Cases
Text Symbol: 066 = Complete Readmission Case
Text Symbol: 065 = Transmission of Readmission Cases
Text Symbol: 064 = OPS Catalog
Text Symbol: 063 = Without Procedures of Unofficial Surgical Procedure Code
Text Symbol: 062 = With Procedures of Unofficial Surgical Procedure Code
Text Symbol: 061 = Transmission of Procedures
Text Symbol: 060 = Incl. Cases with Statisics Block
Text Symbol: 059 = Cases w/o Statistics Block
Text Symbol: 057 = Immediate Services for Intercurrent Dialyses
Text Symbol: 056 = Further Specs.
Text Symbol: 055 = Institute Indicator
Text Symbol: 054 = Restrictions
Text Symbol: 053 = Output to PC
Text Symbol: 052 = Output on SAP Server
Text Symbol: 050 = File Creation
Text Symbol: 024 = P21 File Creation
Text Symbol: 020 = )
Text Symbol: 019 = (No. of Charges:
Text Symbol: 018 = Evaluation Period
Text Symbol: 016 = Error Text
Text Symbol: 015 = Fld
Text Symbol: 014 = ICD Catalog
Text Symbol: 009 = FALL, FAB, ICD, OPS
Text Symbol: 008 = Case Number
Text Symbol: 007 = File
Text Symbol: 006 = Data Output Path
Text Symbol: 005 = File Name Prefix
Text Symbol: 004 = Evaluation Period From
Text Symbol: 003 = To
Text Symbol: 002 = FALL, FAB, ICD, OPS, ENTGELTE
Text Symbol: 001 = Number of Cases Read:
Text Symbol: L01 = Hosp-Internal Indicator
Text Symbol: L00 = II
Text Symbol: I06 = Diagn. Certainty
Text Symbol: I05 = 2ndary Code
Text Symbol: I04 = Localization
Text Symbol: I03 = ICD Code
Text Symbol: I02 = ICD Version
Text Symbol: I01 = Diagn. Type
Text Symbol: E36 = Days without calculation/treatment incorrect for totals charge type
Text Symbol: E35 = Diagnostic certainty missing
Text Symbol: E34 = Entry of diagnostic certainty not allowed in this charge area
Text Symbol: E33 = Charge area DRG without specialty other than Psychiatry/Psychosomatics
Text Symbol: E32 = Charge area PSY without psychiatric/psychosomatic specialty
Text Symbol: E31 = Pseudo dept 0001/0002 without case merging in FALL
Text Symbol: E29 = Number of departmental per diems does not match length of stay
Text Symbol: E28 = Discharge date - admission date - total days without calc. <= 0
Text Symbol: E27 = At Least One OPS Must Be Specified per OPS File
Text Symbol: E23 = OPS Code 8-718.* w/o Mech. Vent. Hours
Text Symbol: E21 = Mech. Vent. Hours Exceed Length of Stay
Text Symbol: E16 = Procedure not transferred
Text Symbol: E15 = More than 999 procedures
Text Symbol: E14 = More than 50 diagnoses
Text Symbol: E12 = OPS date after case discharge
Text Symbol: E11 = OPS date before case admit
Text Symbol: E10 = Only principal diagn.permitted
Text Symbol: E09 = Prin. diagn. missing
Text Symbol: E07 = Admit date is after discharge date
Text Symbol: E06 = Admission weight must be stated for births
Text Symbol: E05 = Age-in-days > 0, but admission weight not filled
Text Symbol: E04 = Age-in-years > 0, but birth year not filled
Text Symbol: E03 = Birth year must be before/same as admission year
Text Symbol: E02 = Only age specification in years or days is permitted.
Text Symbol: E01 = Req'd field cannot be found.
Text Symbol: B03 = FAB Discharge Date
Text Symbol: B02 = FAB Admit Date
Text Symbol: B01 = FAB
INCLUDES used within this REPORT RNAP21F01
INCLUDE RNCOLOUR.
INCLUDE MNDATA_BILLING_MODE.
INCLUDE MNDATA_BILLING_TYPES.
INCLUDE MNCEDIEV.
INCLUDE RNSSEINR.
INCLUDE RNSSIEIN.
INCLUDE RNSSSEIN.
INCLUDE RNSSSAUS.
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_FILE_VALIDATE_NAME CALL FUNCTION 'ISH_FILE_VALIDATE_NAME' CHANGING c_filename = dfall.
ISH_TN00Q_READ CALL FUNCTION 'ISH_TN00Q_READ' EXPORTING ss_einri = se_einri ss_param = 'OP_TARIF' ss_date = l_ops_kat_date IMPORTING ss_value = tnk01-katid EXCEPTIONS OTHERS = 1.
ISH_CASE_VALUE_REQUEST CALL FUNCTION 'ISH_CASE_VALUE_REQUEST' EXPORTING ss_einri = se_einri ss_vcode = 'UPD' IMPORTING ss_falnr = r_falnr-low.
ISH_CASE_VALUE_REQUEST CALL FUNCTION 'ISH_CASE_VALUE_REQUEST' EXPORTING ss_einri = se_einri ss_vcode = 'UPD' IMPORTING ss_falnr = r_falnr-high.
ISH_SHOW_SERVICES_NEW CALL FUNCTION 'ISH_SHOW_SERVICES_NEW' EXPORTING einrichtung = se_einri zeitraum = ' ' multi_select = ' ' use_groups = ' ' change_tarif = ' ' vcode = 'INS' read_vle = ' ' IMPORTING e_ntpk = i_ntpk EXCEPTIONS wrong_einri = 1 nothing_found = 2 nothing_selected = 3 missing_zotyp = 4 OTHERS = 5.
ISH_TN00Q_READ CALL FUNCTION 'ISH_TN00Q_READ' EXPORTING ss_einri = se_einri ss_param = 'OP_TARIF' ss_date = l_ops_kat_date IMPORTING ss_value = tnk01-katid EXCEPTIONS OTHERS = 1.
ISH_UNIRETCASE_ATTRIB_GET CALL FUNCTION 'ISH_UNIRETCASE_ATTRIB_GET' EXPORTING i_einri = wa_case-einri i_falnr = wa_case-falnr IMPORTING e_apxnr = apxnr EXCEPTIONS no_uniretcase = 1 OTHERS = 2.
ISH_UNIRETCASE_READ CALL FUNCTION 'ISH_UNIRETCASE_READ' EXPORTING i_apxnr = apxnr IMPORTING e_nfal = uni_nfal e_nbew_tab = uni_tnbew[].
ISH_UNIRETCASE_MULTILEVEL_MDFY CALL FUNCTION 'ISH_UNIRETCASE_MULTILEVEL_MDFY' EXPORTING i_einri = wa_case-einri i_falnr = wa_case-falnr i_apxnr = apxnr i_read_db = ' ' "Juli 2013 LK note 1875815 IMPORTING e_uni_nbew_tab = uni_tnbew.
ISH_READ_NORG CALL FUNCTION 'ISH_READ_NORG' EXPORTING einri = se_einri orgid =
-orgfa IMPORTING norg_e = i_norg EXCEPTIONS missing_orgid = 1 OTHERS = 2.
ISH_READ_NORG CALL FUNCTION 'ISH_READ_NORG' EXPORTING einri = se_einri orgid =
-orgfa IMPORTING norg_e = i_norg EXCEPTIONS missing_orgid = 1 OTHERS = 2.
ISH_301_LEI_FILL CALL FUNCTION 'ISH_301_LEI_FILL' EXPORTING i_nc301 = wa_nc301 IMPORTING lei_tab = l_lei_tab EXCEPTIONS no_mail = 1 no_segment = 2.
ISH_READ_NPAT CALL FUNCTION 'ISH_READ_NPAT' EXPORTING ss_einri = se_einri ss_patnr = p_fallstruct-patnr ss_with_nadr = on ss_no_messages = 'X' IMPORTING ss_npat = i_npat ss_nadr = i_nadr EXCEPTIONS not_found = 1 no_authority = 2 no_einri = 3 OTHERS = 4.
ISH_ADMISSION_OCCASION CALL FUNCTION 'ISH_ADMISSION_OCCASION' EXPORTING i_einri = se_einri i_falnr = p_fallstruct-falnr i_admission = aufn_nbew IMPORTING e_adm_occasion = p_fallstruct-aufn_a.
ISH_READ_NGPA CALL FUNCTION 'ISH_READ_NGPA' EXPORTING gpart = aufn_nbew-extkh IMPORTING ngpa_e = i_ngpa EXCEPTIONS OTHERS = 4.
ISH_EDI_INSREL_CASE_POOL_GET CALL FUNCTION 'ISH_EDI_INSREL_CASE_POOL_GET' EXPORTING ss_einri = se_einri ss_falnr = p_fallstruct-falnr TABLES ss_vncir_curr = it_ncir EXCEPTIONS not_found = 1 OTHERS = 2.
ISH_READ_NGPA CALL FUNCTION 'ISH_READ_NGPA' EXPORTING gpart =
-kostr IMPORTING ngpa_e = i_ngpa EXCEPTIONS OTHERS = 4.
ISH_READ_NKTR CALL FUNCTION 'ISH_READ_NKTR' EXPORTING kostr =
-kostr with_ngpa = ' ' einri = se_einri ss_search_use = 'HEQ' IMPORTING nktr_e = i_nktr EXCEPTIONS ngpa_not_found = 1 ngpa_no_authority = 2 not_found = 3 no_authority = 4 missing_institution = 5 OTHERS = 6.
ISH_READ_NGPA CALL FUNCTION 'ISH_READ_NGPA' EXPORTING gpart = i_nktr-zentr IMPORTING ngpa_e = i_ngpa EXCEPTIONS OTHERS = 4.
UNIT_OF_MEASURE_SAP_TO_ISO CALL FUNCTION 'UNIT_OF_MEASURE_SAP_TO_ISO' EXPORTING sap_code = p_unit IMPORTING iso_code = iso_code EXCEPTIONS OTHERS = 4.
UNIT_OF_MEASURE_ISO_TO_SAP CALL FUNCTION 'UNIT_OF_MEASURE_ISO_TO_SAP' EXPORTING iso_code = 'GRM' IMPORTING sap_code = gramm_code EXCEPTIONS OTHERS = 4.
UNIT_CONVERSION_SIMPLE CALL FUNCTION 'UNIT_CONVERSION_SIMPLE' EXPORTING input = p_weight unit_in = p_unit unit_out = gramm_code round_sign = 'X' IMPORTING output = p_out EXCEPTIONS OTHERS = 10.
ISH_READ_TN21B CALL FUNCTION 'ISH_READ_TN21B' EXPORTING einrichtung = se_einri fallart = p_fallstruct-falar IMPORTING e_tn21b = i_tn21b EXCEPTIONS OTHERS = 0.
ISH_CASESERVICE_POOL_GET CALL FUNCTION 'ISH_CASESERVICE_POOL_GET' EXPORTING ss_einri = se_einri ss_falnr = p_fallstruct-falnr TABLES ss_nlei_daba = lt_nlei.
DURATION_DETERMINE CALL FUNCTION 'DURATION_DETERMINE' IMPORTING duration = i_duration_days CHANGING start_date =
-aufnahme start_time = -aufn_z end_date = -entl end_time = -entl_z EXCEPTIONS factory_calendar_not_found = 1 date_out_of_calendar_range = 2 date_not_valid = 3 unit_conversion_error = 4 si_unit_missing = 5 parameters_not_valid = 6 OTHERS = 7.
DURATION_DETERMINE CALL FUNCTION 'DURATION_DETERMINE' IMPORTING duration = i_absence_days CHANGING start_date = i_absence_begin_date start_time = i_absence_begin_time end_date = i_absence_end_date end_time = i_absence_end_time EXCEPTIONS factory_calendar_not_found = 1 date_out_of_calendar_range = 2 date_not_valid = 3 unit_conversion_error = 4 si_unit_missing = 5 parameters_not_valid = 6 OTHERS = 7.
ISH_QUARTER_GET CALL FUNCTION 'ISH_QUARTER_GET' EXPORTING ss_date = wa_fallstruct-aufnahme IMPORTING * SS_BEGIN = ss_end = l_quarter_end EXCEPTIONS error = 1 wrong_date = 2 OTHERS = 3.
ISH_CASESERVICE_POOL_GET CALL FUNCTION 'ISH_CASESERVICE_POOL_GET' EXPORTING ss_einri = se_einri ss_falnr = p_fabstruct-falnr TABLES ss_nlei_daba = lt_nlei.
ISH_READ_NORG CALL FUNCTION 'ISH_READ_NORG' EXPORTING einri = se_einri orgid = p_fabstruct-orgfa IMPORTING norg_e = i_norg EXCEPTIONS missing_orgid = 1 OTHERS = 2.
ISH_NBEWTAB_GET_LFDNR CALL FUNCTION 'ISH_NBEWTAB_GET_LFDNR' EXPORTING ss_einri = se_einri ss_falnr = p_nicp-falnr ss_lfdnr = p_nicp-lfdbew IMPORTING ss_nbew = i_nbew EXCEPTIONS not_found = 1 OTHERS = 2.
ISH_CASESERVICE_POOL_GET CALL FUNCTION 'ISH_CASESERVICE_POOL_GET' EXPORTING ss_einri = se_einri ss_falnr = p_nicp-falnr TABLES ss_nlei_daba = lt_nlei.
ISH_NBEWTAB_GET_LFDNR CALL FUNCTION 'ISH_NBEWTAB_GET_LFDNR' EXPORTING ss_einri = se_einri ss_falnr = p_nicp-falnr ss_lfdnr = p_nicp-lfdbew IMPORTING ss_nbew = i_nbew EXCEPTIONS not_found = 1 OTHERS = 2.
ISH_CASESERVICE_POOL_GET CALL FUNCTION 'ISH_CASESERVICE_POOL_GET' EXPORTING ss_einri = se_einri ss_falnr = p_nicp-falnr TABLES ss_nlei_daba = lt_nlei.
ISH_READ_TN21S CALL FUNCTION 'ISH_READ_TN21S' EXPORTING einri = se_einri IMPORTING tn21s_e = wa_tn21s EXCEPTIONS einri_not_found = 1 OTHERS = 2.
ISH_301_ENT_FILL CALL FUNCTION 'ISH_301_ENT_FILL' IMPORTING e_enttab = lt_enttab[] TABLES ss_vbrp = lt_vbrp_inv CHANGING inc301 = wa_nc301 EXCEPTIONS no_invoice = 1 no_positions = 2 OTHERS = 3.
ISH_CASE_INVOICES_VALID_GET CALL FUNCTION 'ISH_CASE_INVOICES_VALID_GET' EXPORTING i_einri = se_einri i_falnr = p_falnr i_read_db = off IMPORTING et_vbrk = pt_vbrk[] et_vbrp = pt_vbrp[] EXCEPTIONS OTHERS = 0.
ISH_READ_NGPA CALL FUNCTION 'ISH_READ_NGPA' EXPORTING gpart = p_kostr IMPORTING ngpa_e = wa_ngpa EXCEPTIONS OTHERS = 3.
ISH_READ_NKTR CALL FUNCTION 'ISH_READ_NKTR' EXPORTING kostr = p_kostr with_ngpa = ' ' einri = se_einri ss_search_use = 'HEQ' IMPORTING nktr_e = wa_nktr EXCEPTIONS ngpa_not_found = 1 ngpa_no_authority = 2 not_found = 3 no_authority = 4 missing_institution = 5 OTHERS = 6.
ISH_READ_NGPA CALL FUNCTION 'ISH_READ_NGPA' EXPORTING gpart = wa_nktr-zentr IMPORTING ngpa_e = wa_ngpa EXCEPTIONS OTHERS = 4.
ISH_CASESERVICE_POOL_GET CALL FUNCTION 'ISH_CASESERVICE_POOL_GET' EXPORTING ss_einri = se_einri ss_falnr = p_falnr TABLES ss_nlei_daba = lt_nlei.
ISH_READ_NTPK_NTPT_NEW CALL FUNCTION 'ISH_READ_NTPK_NTPT_NEW' EXPORTING begdt = p_aufnahme einri = se_einri enddt = p_aufnahme talst =
-leist tarif = -haust read_ntpt = off IMPORTING e_ntpk = wa_ntpk EXCEPTIONS missing_data = 1 no_ntpk_ntpt_found = 2 not_valid = 3 OTHERS = 4.
ISH_READ_NDIA CALL FUNCTION 'ISH_READ_NDIA' EXPORTING einri = se_einri falnr = p_falnr afdia = on bhdia = on endia = on ewdia = on fhdia = on khdia = on opdia = on IMPORTING rc = p_rc TABLES ss_ndia = pt_ndia.
ISH_READ_NDIA CALL FUNCTION 'ISH_READ_NDIA' EXPORTING einri = se_einri falnr = p_falnr afdia = on bhdia = on endia = on ewdia = on fhdia = on khdia = on opdia = on IMPORTING rc = p_rc TABLES ss_ndia = pt_ndia.
ISH_UNIRETCASE_READ CALL FUNCTION 'ISH_UNIRETCASE_READ' EXPORTING i_apxnr = wa_napx_fal-apxnr IMPORTING e_ndia_tab = it_ndia[].
ISH_PROCEDURE_READ_MULT CALL FUNCTION 'ISH_PROCEDURE_READ_MULT' EXPORTING ss_einri = se_einri ss_only_official = no_eops "with extended OPS? TABLES ss_falnr = it_falnr[] e_nicp = pt_nicp[] e_nlicz = pt_nlicz[] EXCEPTIONS case_table_empty = 1 no_institution = 2 OTHERS = 3.
ISH_UNIRETCASE_READ CALL FUNCTION 'ISH_UNIRETCASE_READ' EXPORTING i_apxnr = wa_napx_fal-apxnr IMPORTING e_nicp_tab = tmp_nicp_tab[] e_nlicz_tab = tmp_nlicz_tab[] e_nbew_tab = tmp_nbew_tab[].
ISH_CASEPROCEDURE_GET_OFFICIAL CALL FUNCTION 'ISH_CASEPROCEDURE_GET_OFFICIAL' EXPORTING i_einri = se_einri i_falnr =
-falnr CHANGING c_nicp_tab = tmp_nicp_tab[] c_nlicz_tab = tmp_nlicz_tab[].
ISH_PROCEDURE_READ_MULT CALL FUNCTION 'ISH_PROCEDURE_READ_MULT' EXPORTING ss_einri = se_einri ss_only_official = no_eops "with extended OPS? TABLES ss_falnr = it_falnr[] e_nicp = pt_nicp[] e_nlicz = pt_nlicz[] EXCEPTIONS OTHERS = 0.
ISH_301_ENT_FILL CALL FUNCTION 'ISH_301_ENT_FILL' IMPORTING e_enttab = lt_enttab[] CHANGING inc301 = wa_nc301 EXCEPTIONS no_invoice = 1 no_positions = 2 OTHERS = 3.
ISH_EDI_INSREL_CASE_POOL_GET CALL FUNCTION 'ISH_EDI_INSREL_CASE_POOL_GET' EXPORTING ss_einri = p_einri ss_falnr = p_falnr TABLES ss_vncir_curr = t_vncir EXCEPTIONS not_found = 1 OTHERS = 2.
ISH_BILL_DOWN_EXTRA_PAYMNT_GET CALL FUNCTION 'ISH_BILL_DOWN_EXTRA_PAYMNT_GET' EXPORTING i_vbeln =
-vbeln is_vbrk = i_patnr = p_patnr i_admission_date = p_admission_date IMPORTING e_copay_sum = copay_sum e_bill_cancelled = bill_cancelled TABLES xt_nbrkaz = t_nbrkaz EXCEPTIONS missing_parameters = 1 no_vbrk_found = 2 no_ncir_found = 3 no_nktr_found = 4 no_local_currency = 5 no_self_payer_debitor = 6 error_currency_conversion = 7 OTHERS = 8.
ISH_BILL_DOWN_EXTRA_PAYMNT_GET CALL FUNCTION 'ISH_BILL_DOWN_EXTRA_PAYMNT_GET' EXPORTING initialize_nbrkaz = on i_vbeln =
-vbeln i_patnr = p_patnr i_admission_date = p_admission_date TABLES xt_nbrkaz = t_nbrkaz EXCEPTIONS missing_parameters = 1 no_vbrk_found = 2 no_ncir_found = 3 no_nktr_found = 4 no_local_currency = 5 no_self_payer_debitor = 6 error_currency_conversion = 7 OTHERS = 8.
ISH_UNIRETCASE_MULTILEVEL_MDFY CALL FUNCTION 'ISH_UNIRETCASE_MULTILEVEL_MDFY' EXPORTING i_einri = i_einri i_falnr = i_falnr i_apxnr = i_apxnr i_read_db = ' ' "Juli 2013 LK note 1875815 IMPORTING e_found_og = i_found_og e_found_md = i_found_md e_found_ko = i_found_ko e_found_rv = i_found_rv e_found_wp = i_found_wp "HW 1794522 e_found_rp = i_found_rp "HW 1794522 e_found_err = i_found_err.
ISH_UNIRETCASE_ATTRIB_GET CALL FUNCTION 'ISH_UNIRETCASE_ATTRIB_GET' EXPORTING i_einri = einri i_falnr = falnr IMPORTING e_apxnr = apxnr EXCEPTIONS no_uniretcase = 1.
ISH_UNIRETCASE_POOL_REFRESH CALL FUNCTION 'ISH_UNIRETCASE_POOL_REFRESH' EXPORTING i_apxnr = apxnr.
ISH_POOL_REFRESH_FALNR CALL FUNCTION 'ISH_POOL_REFRESH_FALNR' EXPORTING ss_falnr = falnr ss_einri = einri.
ISH_NBEWTAB_REFRESH CALL FUNCTION 'ISH_NBEWTAB_REFRESH'.
ISH_UNIRETCASE_ATTRIB_GET CALL FUNCTION 'ISH_UNIRETCASE_ATTRIB_GET' EXPORTING i_einri = i_einri i_falnr = i_falnr IMPORTING e_apxnr = apxnr EXCEPTIONS no_uniretcase = 1.
ISH_READ_NKTR CALL FUNCTION 'ISH_READ_NKTR' EXPORTING copy_parms_of_ktart = on kostr = i_kostr with_ngpa = off IMPORTING nktr_e = nktr EXCEPTIONS OTHERS = 6.
ISH_DRG_CASE_CHECK CALL FUNCTION 'ISH_DRG_CASE_CHECK' EXPORTING ss_einri = se_einri ss_falnr = p_fallstruct-falnr ss_nfal = wa_nfal IMPORTING e_billmode = p_fallstruct-billmode TABLES ss_nbewtab = lt_nbew EXCEPTIONS einri_not_found = 1 admission_not_found = 2 case_not_found = 3 OTHERS = 4.
ISH_READ_NORG CALL FUNCTION 'ISH_READ_NORG' EXPORTING einri = se_einri orgid = adm_nbew-orgfa IMPORTING norg_e = i_norg EXCEPTIONS missing_orgid = 1 OTHERS = 2.
ISH_READ_NORG CALL FUNCTION 'ISH_READ_NORG' EXPORTING einri = se_einri orgid = adm_nbew-orgfa IMPORTING norg_e = i_norg EXCEPTIONS missing_orgid = 1 OTHERS = 2.
ISH_301_ENA_FILL CALL FUNCTION 'ISH_301_ENA_FILL' EXPORTING rechnr = p_vbrk-vbeln IMPORTING ss_enatab = lt_enatab[] CHANGING inc301 = wa_nc301 EXCEPTIONS no_invoice = 1 no_positions = 2 OTHERS = 3.
ISH_301_EZV_FILL CALL FUNCTION 'ISH_301_EZV_FILL' EXPORTING einrichtung = p_vbrk-isheinri fallnummer = p_vbrk-ishfalnr rechnr = p_vbrk-vbeln key5 = p_abart IMPORTING ss_ezvtab = lt_ezvtab[] EXCEPTIONS no_invoice = 1 no_positions = 2 OTHERS = 3.
ISH_DRG_CASE_VWD CALL FUNCTION 'ISH_DRG_CASE_VWD' EXPORTING ss_einri = se_einri ss_falnr = p_fallstruct-falnr united_return_case_view = uniretcase_view IMPORTING case_bill_vwd = fall_vwd case_tob = anz_tage_urlaub EXCEPTIONS OTHERS = 9.
ISH_PEPP_CASE_VWD CALL FUNCTION 'ISH_PEPP_CASE_VWD' EXPORTING i_einri = se_einri i_falnr = p_fallstruct-falnr i_united_return_case_view = uniretcase_view IMPORTING e_case_bill_vwd = fall_vwd e_case_tob = anz_tage_urlaub EXCEPTIONS OTHERS = 9.
ISH_EDI_INSREL_CASE_POOL_GET CALL FUNCTION 'ISH_EDI_INSREL_CASE_POOL_GET' EXPORTING ss_einri = se_einri ss_falnr = p_fallstruct-falnr TABLES ss_vncir_curr = it_ncir EXCEPTIONS not_found = 1 OTHERS = 2.
CONVERSION_EXIT_ALPHA_INPUT CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = p_fallstruct-insid IMPORTING output = p_fallstruct-insid.
ISH_DRG_CASE_CHECK CALL FUNCTION 'ISH_DRG_CASE_CHECK' EXPORTING ss_einri = se_einri ss_falnr = p_fallstruct-falnr ss_nfal = wa_nfal check_outpatient_cases = on IMPORTING e_drgcase = i_drgcase e_billmode = i_drgbillmode TABLES ss_nbewtab = lt_nbew EXCEPTIONS einri_not_found = 1 admission_not_found = 2 case_not_found = 3 OTHERS = 4.
ISH_PSYDRG_CASE_CHECK CALL FUNCTION 'ISH_PSYDRG_CASE_CHECK' EXPORTING i_einri = se_einri i_falnr = p_fallstruct-falnr i_nfal = wa_nfal i_check_outpatient_cases = on IMPORTING e_psydrgcase = i_psydrgcase e_billmode = i_peppbillmode CHANGING c_nbewtab = lt_nbew EXCEPTIONS case_not_found = 1 OTHERS = 2.
ISH_READ_NORG CALL FUNCTION 'ISH_READ_NORG' EXPORTING einri = se_einri orgid = adm_nbew-orgfa IMPORTING norg_e = i_norg EXCEPTIONS missing_orgid = 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 RNAP21F01 or its description.