RN1PERDT SAP ABAP Report - IS-H*MED: Data Carrier Creation for the Perinatal Monitor
RN1PERDT is a standard Executable ABAP Report available within your SAP system (depending on your version and release level). Below is the basic information available for this SAP report including which OBJECTS it interacts with such as TABLES, FUNCTION MODULES, INCLUDES ETC. Also check out the submitted Comments related to this SAP report or see any standard documentation available.
If you would like to execute this report or see the full code listing simply enter RN1PERDT 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 RN1PERDT. "Basic submit
SUBMIT RN1PERDT AND RETURN. "Return to original report after report execution complete
SUBMIT RN1PERDT VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
Text pool values
Title: IS-H*MED: Data Carrier Creation for the Perinatal Monitor
Text Symbol: H17 = Error log is active ;;
Text Symbol: H16 = E;; Error log
Text Symbol: H15 = Long text for message
Text Symbol: H14 = Time ;; Time (belongs to birth date)
Text Symbol: H13 = DoB ;; Birth date
Text Symbol: H12 = First name of child ;;
Text Symbol: H11 = Case no. ;;
Text Symbol: H10 = Birth No;; Birth number
Text Symbol: H09 = St;; Status
Text Symbol: H08 = Ag;; Age
Text Symbol: H07 = Name of mother ;;
Text Symbol: H06 = Repeat run ;;
Text Symbol: H05 = Unreleased births ;; Unreleased births
Text Symbol: H04 = to ;;
Text Symbol: H03 = Test run ;;
Text Symbol: H02 = ;;
Text Symbol: H01 = Data carrier creation ;; H01 and H02 belong together
Text Symbol: 008 = Storage file ;;
Text Symbol: 007 = Data carrier file ;;
Text Symbol: 006 = Repeat run ;;
Text Symbol: 005 = Test run ;;
Text Symbol: 004 = Unreleased births ;;
Text Symbol: 003 = to ;;
Text Symbol: 002 = Date from ;;
Text Symbol: 001 = Institution ;;
INCLUDES used within this REPORT RN1PERDT
INCLUDE MNCOLOUR.
INCLUDE IN2_LICENCE.
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_QUARTER_GET CALL FUNCTION 'ISH_QUARTER_GET' EXPORTING ss_date = sy-datum IMPORTING ss_begin = rnt40-begdt ss_end = rnt40-enddt EXCEPTIONS error = 1 wrong_date = 2 OTHERS = 3.
ISHMED_CHECK_N_EINR_REP CALL FUNCTION 'ISHMED_CHECK_N_EINR_REP' EXPORTING repid = repid einri = einri no_message = ' ' messagetype = 'S' auto_leave = 'X' IMPORTING rc = rc EXCEPTIONS OTHERS = 1.
ISH_CALL_LIST_HEAD CALL FUNCTION 'ISH_CALL_LIST_HEAD' EXPORTING einri = rnstat-einri line_size = rnstat-line_size repid = rnstat-repid title_lin1 = rnstat-title_lin1 title_lin2 = rnstat-title_lin2 uline = off ausbegdt = begdt ausenddt = enddt.
HELPSCREEN_NA_CREATE CALL FUNCTION 'HELPSCREEN_NA_CREATE' "#EC FB_OLDED EXPORTING meldung = a_text meld_id = outtab_mesg-arbgb meld_nr = a_nr msgv1 = outtab_mesg-msgv1 msgv2 = outtab_mesg-msgv2 msgv3 = outtab_mesg-msgv3 msgv4 = outtab_mesg-msgv4 titel = 'Langtext zur Nachricht'(h15).
ISHMED_PERINATMONITOR CALL FUNCTION 'ISHMED_PERINATMONITOR' EXPORTING i_einri = p_outtab-einri i_falnr = p_outtab-faln1 * I_ROLLE = '4' * I_LOCK_CASE = 'X' TABLES t_message = a_msgtab EXCEPTIONS read_error = 1 cancel = 2.
MESSAGES_INITIALIZE CALL FUNCTION 'MESSAGES_INITIALIZE' EXPORTING reset = 'X' EXCEPTIONS OTHERS = 1.
ISHMED_CHECK_PERINATMONITOR CALL FUNCTION 'ISHMED_CHECK_PERINATMONITOR' EXPORTING i_einri = outtab-einri i_falnr = outtab-faln1 i_create_file = file_flag i_kliniknr = kliniknr "Gz 03042001 R.403C/01
MESSAGES_GIVE CALL FUNCTION 'MESSAGES_GIVE' TABLES t_mesg = a_msgtab EXCEPTIONS OTHERS = 1.
NUMBER_GET_INFO CALL FUNCTION 'NUMBER_GET_INFO' EXPORTING nr_range_nr = '01' object = 'ISH_N1PDTN' * SUBOBJECT = ' ' * TOYEAR = '0000' IMPORTING interval = tnnr_info EXCEPTIONS interval_not_found = 1 object_not_found = 2 OTHERS = 3.
ISH_N2_FILENAME_GET CALL FUNCTION 'ISH_N2_FILENAME_GET' "Gz 29102002 R.471
ISH_N2_GUI_DOWNLOAD CALL FUNCTION 'ISH_N2_GUI_DOWNLOAD' EXPORTING ss_filename = data_file * SS_FILESIZE = * SS_POPUP = ' ' ss_filetype = 'ASC' * SS_NOFILECHECK = ' ' IMPORTING ss_new_filename = a_filename TABLES ss_data_tab = a_motab EXCEPTIONS cancel = 1 OTHERS = 2.
ISH_N2_GUI_DOWNLOAD CALL FUNCTION 'ISH_N2_GUI_DOWNLOAD' "Gz 29102002 R.471
ISH_N2_GUI_DOWNLOAD CALL FUNCTION 'ISH_N2_GUI_DOWNLOAD' EXPORTING ss_filename = a_filename ss_filetype = 'ASC' TABLES ss_data_tab = xml_tab EXCEPTIONS cancel = 1 OTHERS = 2.
ISH_N2_GUI_DOWNLOAD CALL FUNCTION 'ISH_N2_GUI_DOWNLOAD' "Gz 29102002 R.471
NUMBER_GET_NEXT CALL FUNCTION 'NUMBER_GET_NEXT' EXPORTING nr_range_nr = '01' object = 'ISH_N1PDTN' * QUANTITY = '1' * SUBOBJECT = ' ' * TOYEAR = '0000' * IGNORE_BUFFER = ' ' IMPORTING number = transaktionsnr * QUANTITY = returncode = a_flag EXCEPTIONS interval_not_found = 1 number_range_not_intern = 2 object_not_found = 3 quantity_is_0 = 4 quantity_is_not_1 = 5 interval_overflow = 6 buffer_overflow = 7 OTHERS = 8.
ENQUEUE_ENTS00 CALL FUNCTION 'ENQUEUE_ENTS00' EXPORTING progname = a_progname EXCEPTIONS foreign_lock = 1 system_failure = 2.
ISH_N2_FILENAME_GET CALL FUNCTION 'ISH_N2_FILENAME_GET' "Gz 29102002 R.471
ISH_N2_GUI_UPLOAD CALL FUNCTION 'ISH_N2_GUI_UPLOAD' "Gz 29102002 R.471
CALL FUNCTION 'MESSAGES_INITIALIZE' EXPORTING reset = 'X' EXCEPTIONS OTHERS = 1.
MESSAGES_ACTIVE CALL FUNCTION 'MESSAGES_ACTIVE' EXCEPTIONS not_active = 1 OTHERS = 2.
MESSAGES_INITIALIZE CALL FUNCTION 'MESSAGES_INITIALIZE' EXPORTING reset = 'X' EXCEPTIONS OTHERS = 1.
ISH_QUARTER_GET CALL FUNCTION 'ISH_QUARTER_GET' EXPORTING ss_date = a_date IMPORTING ss_begin = p_begdt ss_end = p_enddt EXCEPTIONS error = 1 wrong_date = 2 OTHERS = 3.
ISHMED_GET_GEBNR CALL FUNCTION 'ISHMED_GET_GEBNR' EXPORTING i_einri = p_einri "Führer, Anf-Id. 2917
ISH_HELP_REQUEST CALL FUNCTION 'ISH_HELP_REQUEST' EXPORTING * SS_HEADER = ' ' ss_object = a_object * SS_TITLE = ' ' ss_popup = on EXCEPTIONS OTHERS = 1.
ISH_N2_FILENAME_GET CALL FUNCTION 'ISH_N2_FILENAME_GET' EXPORTING ss_file_extension = ' ' CHANGING ss_filename = proto_file EXCEPTIONS selection_cancel = 1 OTHERS = 2.
ISH_N2_GUI_UPLOAD CALL FUNCTION 'ISH_N2_GUI_UPLOAD' EXPORTING ss_filename = proto_file ss_filetype = 'ASC' * IMPORTING * SS_FILELENGTH = * SS_NEW_FILENAME = TABLES ss_data_tab = file_tab EXCEPTIONS cancel = 1 OTHERS = 2.
MESSAGES_INITIALIZE CALL FUNCTION 'MESSAGES_INITIALIZE' EXPORTING reset = 'X' EXCEPTIONS OTHERS = 1.
ISH_N2_GUI_FILE_EXIST CALL FUNCTION 'ISH_N2_GUI_FILE_EXIST' EXPORTING ss_filename = p_file EXCEPTIONS not_exist = 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 RN1PERDT or its description.