SAP Reports / Programs | Patient Accounting | SAP Healthcare - Industry-Specific Components for Hospitals | Patient Accounting(IS-H-PA) SAP IS

MNSERV01F01 SAP ABAP INCLUDE - documentation and ABAP source code







MNSERV01F01 is a standard ABAP INCLUDE 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 MNSERV01F01 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 MNSERV01F01. "Basic submit
SUBMIT MNSERV01F01 AND RETURN. "Return to original report after report execution complete
SUBMIT MNSERV01F01 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
    See more syntax options for the ABAP SUBMIT statement


INCLUDES used within this REPORT MNSERV01F01

INCLUDE MNSERV01FFX.
INCLUDE MNSERV01FQX.


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_SET_NEXT_SCREEN CALL FUNCTION 'ISH_SET_NEXT_SCREEN' EXPORTING act_tcode = act_tcode einri = einri * EXTP_NAM = SY-CPROG fcode = p_fcode * GOTO_DYNNR = SY-DYNNR leave_tcode = p_leave_tcode save_to_menu = on screen_called = p_screen_called IMPORTING * FCODE = next_dynnr = next_dynnr.

ISH_SET_NEXT_SCREEN CALL FUNCTION 'ISH_SET_NEXT_SCREEN' EXPORTING act_tcode = tcode einri = einri extp_nam = extp_nam fcode = fcode * GOTO_DYNNR = SY-DYNNR * LEAVE_TCODE = ' ' save_to_menu = 'X' screen_called = 'X' * importing * fcode = * next_dynnr = EXCEPTIONS dtab_read_error = 1 init_error = 2 OTHERS = 3.

ISH_READ_SERVICES_DIALOG CALL FUNCTION 'ISH_READ_SERVICES_DIALOG' EXPORTING ss_einri = einri ss_case_related = p_case_related * SS_LOCK = 'X' TABLES ss_db_services = local_nlei ss_excl_services = excl_nlei ss_db_physicians = local_nnlz ss_db_sv_ass = local_nllz ss_db_op_ass = local_nlicz * ss_db_iv_ass = ss_complete = complete ss_return = local_error EXCEPTIONS cancel = 1 nothing_found = 2 OTHERS = 3.

ISH_CASESERVICE_ADJUSTMENTS CALL FUNCTION 'ISH_CASESERVICE_ADJUSTMENTS' EXPORTING ss_einri = einri ss_falnr = -case * SS_ADJ_RULES = 'X' ss_dialog = on ss_check_rules = p_check_rules * SS_RLSHOW = 'X' ss_event = 'NLRG07' * SS_CMVMT = * SS_ACTNPAT = * SS_TESTRUN = 'X' * IMPORTING * SS_RETMAXTYPE = TABLES ss_actnlei = -actnlei ss_actnnlz = -actnnlz ss_actnllz = -actnllz ss_actnlicz = -actnlicz ss_actnbew = -actnbew ss_onlei = -onlei ss_onnlz = -onnlz ss_return = return CHANGING ss_act_complete = -act_complete ss_actnfal = -actnfal .

ISH_POPUP_EINRI CALL FUNCTION 'ISH_POPUP_EINRI' IMPORTING einri = einri EXCEPTIONS cancelled = 1 OTHERS = 2.

ISH_SHOW_NLCO CALL FUNCTION 'ISH_SHOW_NLCO' EXPORTING einri = einri falnr = -falnr TABLES i_nlei = fnlei EXCEPTIONS no_nlco_found = 1 OTHERS = 2.

ISH_REC_INFO CALL FUNCTION 'ISH_REC_INFO' EXPORTING * I_START_X = 21 * I_START_Y = 9 i_institution = einri TABLES t_rec_info = rec_info EXCEPTIONS excess_rows = 1 OTHERS = 2.

ISH_CASESERVICE_SAVE CALL FUNCTION 'ISH_CASESERVICE_SAVE' EXPORTING ss_einri = einri ss_falnr = -case ss_actnfal = -actnfal * IMPORTING * SS_RETMAXTYPE = TABLES ss_actnlei = -actnlei ss_actnnlz = -actnnlz ss_actnllz = -actnllz ss_actnlicz = -actnlicz ss_onlei = -onlei ss_onnlz = -onnlz * SS_RETURN = .

ISH_VERBUCHER_NFAL CALL FUNCTION 'ISH_VERBUCHER_NFAL' IN UPDATE TASK EXPORTING o_tnfal = -onfal tcode = sy-tcode tnfal = -actnfal upd_icdtxt_nfal = space up_date = sy-datum up_time = sy-uzeit vcode_nfal = 'UPD' * TABLES * ICDTXT_NFAL = * NBEWTAB = * XNBEW = * YNBEW = .

ISH_OUSERVICE_SAVE CALL FUNCTION 'ISH_OUSERVICE_SAVE' * EXPORTING * SS_NUMBERS = 'X' * IMPORTING * SS_RETURN = TABLES ss_actnlei = -actnlei ss_onlei = -onlei .

ISH_BAPI_FILL_RETURN_PARAM CALL FUNCTION 'ISH_BAPI_FILL_RETURN_PARAM' EXPORTING msgty = p_typ msgid = p_abg msgno = p_num msgv1 = p_mv1 msgv2 = p_mv2 msgv3 = p_mv3 msgv4 = p_mv4 parameter = p_par row = row field = p_fld appllog_no = p_lno * APPLLOG_MSG_NO = IMPORTING return = p_rt2 EXCEPTIONS OTHERS = 0.

ISH_BAPIRET2_DISPLAY CALL FUNCTION 'ISH_BAPIRET2_DISPLAY' * EXPORTING * SEND_IF_ONE = ' ' * OBJECT = ' ' * SHOW_LINNO = 'X' * AMODAL_WINDOW = ' ' TABLES ss_bapiret2 = lt_error_tab.

ISH_MOVEMENTTAB_POOL_GET CALL FUNCTION 'ISH_MOVEMENTTAB_POOL_GET' EXPORTING ss_falnr = -case ss_einri = einri TABLES * SS_NBEWTAB_DABA = * SS_NBEWTAB_LAST = ss_nbewtab_curr = lt_nbew.

ISH_SRVC_CONVERSION CALL FUNCTION 'ISH_SRVC_CONVERSION' EXPORTING i_einri = einri i_patnr = -actnfal-patnr i_falnr = -case TABLES it_actnlei = -actnlei it_actnbew = actnbew "-actnbew not filled it_filtnlei = filtnlei it_actnnlz = -actnnlz et_rnlsr = lt_rnlsr et_rnlrz = lt_rnlrz et_rnlrg = lt_rnlrg.

ISH_CASESERVICE_MODIFYMULTIPLE CALL FUNCTION 'ISH_CASESERVICE_MODIFYMULTIPLE' EXPORTING ss_einri = einri ss_falnr = -case * SS_AUTHCHECK = 'X' * SS_TESTRUN = 'X' ss_act_complete = 'X' ss_dialog = on ss_changenfal = off IMPORTING ss_retmaxtype = l_msgty TABLES ss_rnlsr = lt_rnlsr ss_rnlrg = lt_rnlrg ss_rnlrz = lt_rnlrz ss_actnlei = -actnlei ss_actnnlz = -actnnlz ss_actnllz = -actnllz ss_actnlicz = -actnlicz ss_onlei = -onlei ss_onnlz = -onnlz ss_actnbew = -actnbew ss_return = lt_error_tab * changing * ss_actnfal = actnfal.

ISH_BAPIRET2_DISPLAY CALL FUNCTION 'ISH_BAPIRET2_DISPLAY' TABLES ss_bapiret2 = lt_error_tab.

ISH_MOVEMENTTAB_POOL_GET CALL FUNCTION 'ISH_MOVEMENTTAB_POOL_GET' EXPORTING ss_falnr = -case ss_einri = einri TABLES * SS_NBEWTAB_DABA = * SS_NBEWTAB_LAST = ss_nbewtab_curr = lt_nbew.

ISH_SRVC_CONVERSION_UNDO CALL FUNCTION 'ISH_SRVC_CONVERSION_UNDO' EXPORTING i_einri = einri TABLES it_filtnlei = filtnlei it_actnlei = -actnlei it_actnllz = -actnllz it_actnnlz = -actnnlz et_rnlsr = lt_rnlsr et_rnlrz = lt_rnlrz et_rnlrg = lt_rnlrg.

ISH_CASESERVICE_MODIFYMULTIPLE





CALL FUNCTION 'ISH_CASESERVICE_MODIFYMULTIPLE' EXPORTING ss_einri = einri ss_falnr = -case * SS_AUTHCHECK = 'X' * SS_TESTRUN = 'X' ss_act_complete = 'X' ss_dialog = on ss_changenfal = off IMPORTING ss_retmaxtype = l_msgty TABLES ss_rnlsr = lt_rnlsr ss_rnlrg = lt_rnlrg ss_rnlrz = lt_rnlrz ss_actnlei = -actnlei ss_actnnlz = -actnnlz ss_actnllz = -actnllz ss_actnlicz = -actnlicz ss_onlei = -onlei ss_onnlz = -onnlz ss_actnbew = -actnbew ss_return = lt_error_tab * changing * ss_actnfal = actnfal.

ISH_BAPIRET2_DISPLAY CALL FUNCTION 'ISH_BAPIRET2_DISPLAY' TABLES ss_bapiret2 = lt_error_tab.

ISH_CASEPROCEDURE_POOL_GET CALL FUNCTION 'ISH_CASEPROCEDURE_POOL_GET' EXPORTING ss_einri = einri ss_falnr = -case TABLES ss_vnicp_curr = lt_vnicp ss_nicp_db = lt_onicp ss_vnlicz_curr = lt_vnlicz ss_nlicz_db = lt_onlicz ss_vndicz_curr = lt_vndicz ss_ndicz_db = lt_ondicz.

ISH_CASEDIAGNOSIS_POOL_GET CALL FUNCTION 'ISH_CASEDIAGNOSIS_POOL_GET' EXPORTING ss_institution = einri ss_casenumber = -case TABLES ss_ndia_curr = lt_ndia.

ISH_READ_NPAT CALL FUNCTION 'ISH_READ_NPAT' EXPORTING ss_einri = einri ss_patnr = -actnfal-patnr ss_check_auth = ' ' IMPORTING ss_npat = l_npat EXCEPTIONS not_found = 1 no_authority = 2 no_einri = 3 OTHERS = 4.

ISH_CASEPROCEDURE_RULES CALL FUNCTION 'ISH_CASEPROCEDURE_RULES' EXPORTING ss_einri = einri ss_falnr = -case * SS_ADJ_RULES = ON ss_dialog = on ss_check_rules = on * SS_MSG_SHOW = ON ss_event = 'NPR010' * SS_LFDBEW = ss_actnpat = l_npat SS_TESTRUN = off * IMPORTING * SS_RETMAXTYPE = TABLES ss_actnicp = lt_vnicp ss_actnlicz = -actnlicz ss_actndicz = lt_vndicz ss_actnbew = -actnbew ss_actnlei = -actnlei ss_actndia = lt_vndia ss_onicp = lt_onicp ss_onlicz = lt_onlicz ss_ondicz = lt_ondicz ss_return = lt_return CHANGING ss_actnfal = -actnfal ss_act_complete = -act_complete.



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 MNSERV01F01 or its description.