N1MLZUOSUB SAP ABAP INCLUDE - IS-H*MED: Subprograms for N1MV - maintain material proposal

N1MLZUOSUB 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 N1MLZUOSUB 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.

Text pool values

INCLUDES used within this REPORT N1MLZUOSUB

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_DYNP_VALUES_READ
  CALL FUNCTION 'ISH_DYNP_VALUES_READ'
    EXPORTING
      dyname     = h_repid
      dynumb     = h_dynnr
    TABLES
      dynpfields = $dynpr.

DYNP_VALUES_UPDATE
  CALL FUNCTION 'DYNP_VALUES_UPDATE'
    EXPORTING
      dyname     = h_repid
      dynumb     = h_dynnr
    TABLES
      dynpfields = $dynpr.

ISH_GRAPHIC_ORGID_SELECT
  CALL FUNCTION 'ISH_GRAPHIC_ORGID_SELECT'
       EXPORTING
            einri             = d100-einri
            erbkz             = i_n1erbrkz
            fazuw             = i_fazuw
            pfzuw             = i_pfzuw
            anfkz             = i_n1anfkz
            no_bauid          = k_puton
       IMPORTING
            nothing_selected  = h_nosel
            selected_orgid    = i_orgid
*=Mail Frank Grothus 23.05.2002   Änderer Anderl N.

ISHMED_CHECK_NORG
  CALL FUNCTION 'ISHMED_CHECK_NORG'
    EXPORTING
      ss_einri     = d100-einri
      ss_einri_chk = 'J'
      ss_fazuw     = i_fazuw
      ss_pfzuw     = i_pfzuw
      ss_n1anfkz   = i_n1anfkz
      ss_n1erbrkz  = i_n1erbrkz
      ss_orgid     = i_orgid
    IMPORTING
      e_norg       = norg
    EXCEPTIONS
      not_found    = 1
      not_valid    = 2.

POPUP_TO_CONFIRM_DATA_LOSS
  CALL FUNCTION 'POPUP_TO_CONFIRM_DATA_LOSS'
    EXPORTING
      titel  = space
    IMPORTING
      answer = $answer.

NUMBER_GET_NEXT
  CALL FUNCTION 'NUMBER_GET_NEXT'
    EXPORTING
      nr_range_nr             = '01'
      object                  = object
*     quantity                = quantity_in
*     toyear                  = toyear_0000
    IMPORTING
      number                  = number
      quantity                = quantity
      returncode              = rcode_nr
    EXCEPTIONS
      interval_not_found      = 1
      number_range_not_intern = 2
      object_not_found        = 3.

RS_TREE_CONSTRUCT
  CALL FUNCTION 'RS_TREE_CONSTRUCT'
    TABLES
      nodetab      = outtab
    EXCEPTIONS
      tree_failure = 1.

RS_TREE_EXPAND
  CALL FUNCTION 'RS_TREE_EXPAND'
    EXPORTING
      all       = 'X'
      node_id   = '000001'
    EXCEPTIONS
      not_found = 1
      OTHERS    = 2.

RS_TREE_LIST_DISPLAY
  CALL FUNCTION 'RS_TREE_LIST_DISPLAY'
    EXPORTING
      callback_program      = 'SAPMN1MLZUO'
      callback_user_command = 'NODE_SELECT'
      callback_top_of_page  = 'TOP_OF_PAGE'
      status                = 'OWN'
      screen_start_column   = 5
      screen_start_line     = 1
      screen_end_column     = f_ausgabe
      screen_end_line       = 15
    IMPORTING
      f15                   = f15.

RS_TREE_GET_INPUT
      CALL FUNCTION 'RS_TREE_GET_INPUT'
           TABLES
                inputinfo      = inputinfo
           EXCEPTIONS
* Mail Frank Grothus 23.05.2002   Änderer Anderl N.

DYNP_VALUES_READ
          CALL FUNCTION 'DYNP_VALUES_READ'
            EXPORTING
              dyname     = 'SAPMN1MLZUO'
              dynumb     = '0200'
            TABLES
              dynpfields = dynpfields.

DYNP_VALUES_UPDATE
      CALL FUNCTION 'DYNP_VALUES_UPDATE'
        EXPORTING
          dyname     = 'SAPMN1MLZUO'
          dynumb     = '0200'
        TABLES
          dynpfields = dynpfields.

DYNP_VALUES_UPDATE
      CALL FUNCTION 'DYNP_VALUES_UPDATE'
        EXPORTING
          dyname     = sy-repid
          dynumb     = sy-dynnr
        TABLES
          dynpfields = dynpfields.

ISHMED_CHECK_XLEI
        CALL FUNCTION 'ISHMED_CHECK_XLEI'
             EXPORTING
                ss_einri    = i_mlzuo-einri
*               SS_GDATUM   = SY-DATUM
*               SS_N1ANFOR  = '*'
*               SS_N1ERBRI  = '*'
*               SS_N1MEDLEI = '*'
*               SS_N1PFLLEI = '*'
                ss_orgid    = i_mlzuo-orgid
*               SS_OTYPL    = ' '
                ss_talst    = i_mlzuo-tarls
                ss_tarif    = i_mlzuo-tarif
*               SS_VERKN    = 'OR'
*               SS_ZEITR    = '*'
                ss_zotyp    = it00q-zotyp
*               SS_GDAT_BIS = '99991231'
*          IMPORTING
*               E_NTPK      =
*               E_NTPT      =
*          TABLES
*               SS_RN1OTYPL =
           EXCEPTIONS
                not_found   = 1
                OTHERS      = 2.