SAP Reports / Programs | Patient Accounting | SAP Healthcare - Industry-Specific Components for Hospitals | Patient Accounting(IS-H-PA) SAP IS
RNUCURR1 SAP ABAP Report - IS-H: Translate Column Values of Catalogs at Currency Changeover
RNUCURR1 is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). It is used for This program enables you to change the currency of a service catalog and to translate the values of the currency columns of the corresponding service master records into the new currency of the 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 RNUCURR1 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 RNUCURR1. "Basic submit
SUBMIT RNUCURR1 AND RETURN. "Return to original report after report execution complete
SUBMIT RNUCURR1 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: S_CHDAT = Change To
Selection Text: SE_EINRI = Institution
Selection Text: TEST = Test Mode
Selection Text: S_WAERSN = New Catalog Currency
Selection Text: S_WAERSA = Old Catalog Currency
Selection Text: S_TARIF = Service Catalog
Selection Text: S_KURST = Rate Type
Selection Text: S_GDATU = Rate Date
Title: IS-H: Translate Column Values of Catalogs at Currency Changeover
Text Symbol: 018 = Column
Text Symbol: 019 = End Date
Text Symbol: 020 = RuleType
Text Symbol: 021 = Translation not made for following columns (no currency):
Text Symbol: BL1 = Translation Data
Text Symbol: BL2 = Other Data
Text Symbol: 001 = Catalog
Text Symbol: 002 = Following columns were identified as currency clmns:
Text Symbol: 008 = There are no columns to be changed!
Text Symbol: 015 = columns show errors during translation.
Text Symbol: 016 = Errors occurred for following services.
Text Symbol: 017 = Service
Text Symbol: S01 = Institution
Text Symbol: S02 = Service Catalog
Text Symbol: S09 = Test Mode
Text Symbol: UEB = Information on Catalog Conversion
INCLUDES used within this REPORT RNUCURR1
INCLUDE RNUCURRD.
INCLUDE RNSSEINR.
INCLUDE RNSSIEIN.
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:
ENQUEUE_ENNTPK CALL FUNCTION 'ENQUEUE_ENNTPK' EXPORTING MODE_NTPK = 'E' MANDT = SY-MANDT EINRI = SE_EINRI TARIF = S_TARIF _SCOPE = '3' EXCEPTIONS FOREIGN_LOCK = 1 SYSTEM_FAILURE = 2 OTHERS = 3.
CONVERT_TO_FOREIGN_CURRENCY CALL FUNCTION 'CONVERT_TO_FOREIGN_CURRENCY' EXPORTING DATE = S_GDATU FOREIGN_CURRENCY = S_WAERSN LOCAL_AMOUNT = HILFSWERT LOCAL_CURRENCY = S_WAERSA TYPE_OF_RATE = S_KURST IMPORTING EXCHANGE_RATE = EXCH_RATE FOREIGN_AMOUNT = NEW_AMOUNT EXCEPTIONS NO_RATE_FOUND = 1 OVERFLOW = 2 NO_FACTORS_FOUND = 3 NO_SPREAD_FOUND = 4 DERIVED_2_TIMES = 5 OTHERS = 6.
DEQUEUE_ENNTPK CALL FUNCTION 'DEQUEUE_ENNTPK' EXPORTING MODE_NTPK = 'E' MANDT = SY-MANDT EINRI = SE_EINRI TARIF = S_TARIF _SCOPE = '3' EXCEPTIONS OTHERS = 1.
ISH_PRINT_PROTOCOL CALL FUNCTION 'ISH_PRINT_PROTOCOL' EXPORTING LINE_SIZE = SCREEN_WIDTH MINUTES_TITLE = TEXT-UEB.
ISH_PRINT_PROTOCOL * CALL FUNCTION 'ISH_PRINT_PROTOCOL' * EXPORTING * LINE_SIZE = SCREEN_WIDTH * MINUTES_TITLE = TEXT-UEB.
ISH_MESSAGE_HANDLER CALL FUNCTION 'ISH_MESSAGE_HANDLER' EXPORTING EINRI = $EINRI FUNCTION = MESS_FUNKT "global constant MESS_ARBGB = MESS_ARB "global constant MESS_COLL = ON MESS_COLL_ACTIVE = ON MESS_NR = $MNR MESS_SHOW = ' ' "never show message MESS_TYP = $MTYP MESS_VAR1 = $MV1 MESS_VAR2 = $MV2 MESS_VAR3 = $MV3 MESS_VAR4 = $MV4 * mess_error = $merror * no_tn21m = $tn21m IMPORTING * mess_coll_active = mess_active "globally defined MESS_TYP = $MTYP_E EXCEPTIONS MESS_TYP_NOT_VALID = 01.
CONVERT_TO_FOREIGN_CURRENCY CALL FUNCTION 'CONVERT_TO_FOREIGN_CURRENCY' "at the end of the amount EXPORTING DATE = S_GDATU FOREIGN_CURRENCY = S_WAERSN LOCAL_AMOUNT = HILFSWERT LOCAL_CURRENCY = S_WAERSA TYPE_OF_RATE = S_KURST " 'M' IMPORTING EXCHANGE_RATE = EXCH_RATE FOREIGN_AMOUNT = NEW_AMOUNT EXCEPTIONS NO_RATE_FOUND = 1 OVERFLOW = 2 NO_FACTORS_FOUND = 3 NO_SPREAD_FOUND = 4 DERIVED_2_TIMES = 5 OTHERS = 6.
CONVERT_TO_FOREIGN_CURRENCY CALL FUNCTION 'CONVERT_TO_FOREIGN_CURRENCY' EXPORTING DATE = S_GDATU FOREIGN_CURRENCY = S_WAERSN LOCAL_AMOUNT = HELPPRICE LOCAL_CURRENCY = S_WAERSA TYPE_OF_RATE = S_KURST " 'M' IMPORTING EXCHANGE_RATE = EXCH_RATE FOREIGN_AMOUNT = NEW_MAXAMOUNT EXCEPTIONS NO_RATE_FOUND = 1 OVERFLOW = 2 NO_FACTORS_FOUND = 3 NO_SPREAD_FOUND = 4 DERIVED_2_TIMES = 5 OTHERS = 6.
CONVERT_TO_FOREIGN_CURRENCY CALL FUNCTION 'CONVERT_TO_FOREIGN_CURRENCY' EXPORTING DATE = S_GDATU FOREIGN_CURRENCY = S_WAERSN LOCAL_AMOUNT = HILFSWERT LOCAL_CURRENCY = S_WAERSA TYPE_OF_RATE = S_KURST IMPORTING EXCHANGE_RATE = EXCH_RATE FOREIGN_AMOUNT = NEW_MAXAMOUNT EXCEPTIONS NO_RATE_FOUND = 1 OVERFLOW = 2 NO_FACTORS_FOUND = 3 NO_SPREAD_FOUND = 4 DERIVED_2_TIMES = 5 OTHERS = 6.
REUSE_ALV_HIERSEQ_LIST_DISPLAY CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY' EXPORTING I_CALLBACK_PROGRAM = REPID IS_LAYOUT = LS_LAYOUT IT_FIELDCAT = LT_FIELDCAT IT_EVENTS = LT_EVENTTAB IS_KEYINFO = LS_KEY I_TABNAME_HEADER = IC_STRNAMEH I_TABNAME_ITEM = IC_STRNAMEI TABLES T_OUTTAB_HEADER = IT_TABLEHEADER T_OUTTAB_ITEM = IT_TABLEITEM EXCEPTIONS PROGRAM_ERROR = 1 OTHERS = 2.
REUSE_ALV_FIELDCATALOG_MERGE CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE' EXPORTING I_PROGRAM_NAME = REPID I_INTERNAL_TABNAME = IV_STRNAMEHEAD I_INCLNAME = REPID CHANGING CT_FIELDCAT = XT_FCAT_MASTER EXCEPTIONS INCONSISTENT_INTERFACE = 1 PROGRAM_ERROR = 2 OTHERS = 3.
REUSE_ALV_FIELDCATALOG_MERGE CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE' EXPORTING I_PROGRAM_NAME = REPID I_INTERNAL_TABNAME = IV_STRNAMEITEM I_INCLNAME = REPID CHANGING CT_FIELDCAT = XT_FCAT_SLAVE EXCEPTIONS INCONSISTENT_INTERFACE = 1 PROGRAM_ERROR = 2 OTHERS = 3.
REUSE_ALV_EVENTS_GET CALL FUNCTION 'REUSE_ALV_EVENTS_GET' EXPORTING I_LIST_TYPE = 0 IMPORTING ET_EVENTS = XT_EVENTTAB EXCEPTIONS LIST_TYPE_WRONG = 1 OTHERS = 2.
ISH_PRINT_PROTOCOL CALL FUNCTION 'ISH_PRINT_PROTOCOL' EXPORTING LINE_SIZE = SCREEN_WIDTH MINUTES_TITLE = TEXT-UEB.
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 RNUCURR1 or its description.
RNUCURR1 - IS-H: Translate Column Values of Catalogs at Currency Changeover RNUCURR1 - IS-H: Translate Column Values of Catalogs at Currency Changeover RNUCSTAT - IS-H: Update Statistics for IS-H Tables RNUCSTAT - IS-H: Update Statistics for IS-H Tables RNUCOPPROCCHANGE_TALV - RNUCOPPROCCHANGETALV RNUCOPPROCCHANGE_T03 - RNUCOPPROCCHANGET03