SAP Reports / Programs | Clinical System | Clinical System(IS-HMED) SAP IS

comments icon Comments

RN2N2CAD SAP ABAP INCLUDE - IS-H*MED: User exits for nursing report







RN2N2CAD 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 RN2N2CAD 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 RN2N2CAD. "Basic submit
SUBMIT RN2N2CAD AND RETURN. "Return to original report after report execution complete
SUBMIT RN2N2CAD 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: User exits for nursing report


INCLUDES used within this REPORT RN2N2CAD

INCLUDE RN2DESK.


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_N2_SET_STATUS_CARE
* CALL FUNCTION 'ISH_N2_SET_STATUS_CARE'
*      EXPORTING
**          STATUS     = 'PVB'
*           STATUS     = 'PVB_OCX_NEW'
*      TABLES
*           S_EXCL_TAB = EXCLUDED_FUNCTIONS
*      EXCEPTIONS
*           OTHERS     = 1.

ISH_GOS_CASE_ATTA_EXIST
      CALL FUNCTION 'ISH_GOS_CASE_ATTA_EXIST'
        EXPORTING
          i_institution       = in_ndoc-einri
          i_casenumber        = in_ndoc-falnr
        IMPORTING
          E_ATTA_EXISTS       = l_atta_exists.

ISH_MODIFY_SCREEN
  CALL FUNCTION 'ISH_MODIFY_SCREEN'
       EXPORTING
            dynnr      = dynnr
            einri      = in_ndoc-einri
*           FCODE      = '*'
            pname      = repid
            vcode      = xvcode
            set_cursor = on.

CONTROL_GET_PROPERTY
    CALL FUNCTION 'CONTROL_GET_PROPERTY'
      EXPORTING
        h_control         = h_ocx_ishmxed
        property          = 'IsChanged'
        no_flush          = off
      CHANGING
        return            = change
      EXCEPTIONS
        cntl_system_error = 1
        cntl_error        = 2
        OTHERS            = 3.

CONTROL_DISPATCH
    CALL FUNCTION 'CONTROL_DISPATCH'
      EXPORTING
        fcode = ok-code.

ISH_N2_EDITOCX_OKCODE
      CALL FUNCTION 'ISH_N2_EDITOCX_OKCODE'
        EXPORTING
          handle    = h_ocx_ishmxed
          ss_okcode = ok-code
        EXCEPTIONS
          set_error = 1
          OTHERS    = 2.

ISH_GOS_CASE_ATTA_LIST
      CALL FUNCTION 'ISH_GOS_CASE_ATTA_LIST'
        EXPORTING
          i_institution       = in_ndoc-einri
          i_casenumber        = in_ndoc-falnr.

CONTROL_SET_PROPERTY
        CALL FUNCTION 'CONTROL_SET_PROPERTY'
          EXPORTING
            h_control         = h_ocx_ishmxed
            property          = 'Vcode'
            value             = 2  " Ändernd
            no_flush          = on
          EXCEPTIONS
            cntl_system_error = 1
            cntl_error        = 2
            OTHERS            = 3.

CONTROL_CALL_METHOD
        CALL FUNCTION 'CONTROL_CALL_METHOD'
          EXPORTING
            h_control         = h_ocx_ishmxed
            method            = 'AddVBLine'
            p_count           = 2
            no_flush          = off
            p1                = an4pb00001m-r-museq
            p2                = edittext-text
          EXCEPTIONS
            cntl_system_error = 1
            cntl_error        = 2
            OTHERS            = 3.

ISH_SHOW_LIST_FALL
  CALL FUNCTION 'ISH_SHOW_LIST_FALL'
    EXPORTING
      exit_on_weiter = on
      nfal_einri     = in_ndoc-einri
      nfal_falnr     = in_ndoc-falnr
      nfal_patnr     = in_ndoc-patnr
      npatstring     = in_npat
      only_falnr     = on
      popup          = on
    IMPORTING
      no_list        = no_list_fal.

ISH_READ_NFAL
  CALL FUNCTION 'ISH_READ_NFAL'
    EXPORTING
      ss_einri                 = in_ndoc-einri
      ss_falnr                 = in_ndoc-falnr
*      ss_read_db               = on
   IMPORTING
     ss_nfal                  = l_nfal
   EXCEPTIONS
     not_found                = 1
     not_found_archived       = 2
     no_authority             = 3
     OTHERS                   = 4.

ISHMED_PFLEGEPLAN
    CALL FUNCTION 'ISHMED_PFLEGEPLAN'
      EXPORTING
        i_erboe          = actbew-orgpf
*       i_dat_von        = actbew-bwidt                    "note 0741287
*       i_dat_bis        = actbew-bwidt
        i_aufrufer       = 'SAPLN2CA'
      TABLES
        t_nfal           = lt_nfal
      EXCEPTIONS
        no_ankerleistung = 1
        OTHERS           = 2.

ISH_REC_INFO
  CALL FUNCTION 'ISH_REC_INFO'
    EXPORTING
      i_start_x     = 21
      i_start_y     = 5
      i_institution = in_ndoc-einri
    TABLES
      t_rec_info    = rec_info
    EXCEPTIONS
      OTHERS        = 1.

ISH_N2_EDITOCX_CREATE
*       CALL FUNCTION 'ISH_N2_EDITOCX_CREATE'.

ISH_SET_CURSOR
    CALL FUNCTION 'ISH_SET_CURSOR'
      EXPORTING
        ss_repid  = gen_sy_repid  "note 0535485
        ss_dynnr  = sy-dynnr
        ss_cursor = space
        ss_line   = $line.

CONTROL_DESTROY
    CALL FUNCTION 'CONTROL_DESTROY'
*        EXPORTING
*             NO_FLUSH          =
         CHANGING
              h_control         = h_ocx_ishmxed
        EXCEPTIONS
             cntl_system_error = 0
             cntl_error        = 0
             OTHERS            = 0.

CONTROL_FLUSH
    CALL FUNCTION 'CONTROL_FLUSH'.

ISHMED_SHOW_NGPA
  CALL FUNCTION 'ISHMED_SHOW_NGPA'
       EXPORTING
            ss_check   = 'O'
            ss_einri   = in_ndoc-einri
*           SS_GDATUM  = NLEI-IBGDT    ???????
            ss_orgid   = h_orgdo       "= SPACE, d.h über alle OEs

ISHMED_CHECK_NGPA
















  CALL FUNCTION 'ISHMED_CHECK_NGPA'
    EXPORTING
      ss_einri  = in_ndoc-einri
      ss_orgid  = h_orgdo
      ss_pernr  = n2pb00-n4pbvma  "ZW_PERNR
    IMPORTING
      e_ngpa    = ngpa
    EXCEPTIONS
      not_found = 01
      not_valid = 02
      not_auth  = 03.

ISH_NGPA_CONCATENATE
*     CALL FUNCTION 'ISH_NGPA_CONCATENATE'
*         EXPORTING
*               SS_GPART     = NGPA-GPART
*               SS_NGPA      = NGPA
*          IMPORTING
*              SS_PNAME     = RNDIA-DIAGNAME
*          EXCEPTIONS
*               OTHERS       = 1.

ISH_N2_TEXT_LONG_TO_BUFFER
*       CALL FUNCTION 'ISH_N2_TEXT_LONG_TO_BUFFER'
*            EXPORTING
*                 SS_TLONG            = TEXT_WORK
*            TABLES
*                 SS_TTAB             = EDITTEXT
*            EXCEPTIONS
*                 LONG_EMPTY          = 1
*                 OFFSET_OUT_OF_RANGE = 2
*                 OTHERS              = 3.

ISH_N2_EDITOCX_SETTEXT
*       CALL FUNCTION 'ISH_N2_EDITOCX_SETTEXT'
*            EXPORTING
*                 HANDLE    = H_OCX_ISHMXED
*            TABLES
*                 TEXTTAB   = EDITTEXT
*            EXCEPTIONS
*                 SET_ERROR = 1
*                OTHERS    = 2.

ISH_N2_EDITOCX_GETTEXT
*  CALL FUNCTION 'ISH_N2_EDITOCX_GETTEXT'
*       EXPORTING
*            HANDLE    = H_OCX_ISHMXED
*       TABLES
*            TEXTTAB   = EDITTEXT.

ISH_N2_EDITOCX_GETTEXT
  CALL FUNCTION 'ISH_N2_EDITOCX_GETTEXT'
    EXPORTING
      handle      = h_ocx_ishmxed
    IMPORTING
      ss_lines_ok = l_lines_ok
    TABLES
      texttab     = edittext.

ISH_N2_BUFFER_TO_STRING
    CALL FUNCTION 'ISH_N2_BUFFER_TO_STRING'
        EXPORTING
              ss_offset          = 1
        IMPORTING
              ss_string          = text_work-txt
              ss_string_length   = text_work-tlng
*             SS_CHAR_OVERFLOW   =
*             SS_LINE_OVERFLOW   =
*             SS_STRING_OVERFLOW =
         TABLES
              ss_buffer          = edittext
         EXCEPTIONS
              buffer_empty       = 1
              OTHERS             = 2.

ISH_DYNP_VALUES_READ
  CALL FUNCTION 'ISH_DYNP_VALUES_READ'
    EXPORTING
      dyname     = a_repid
      dynumb     = a_dynnr
    TABLES
      dynpfields = a_dynpfields.

POPUP_TO_CONFIRM_STEP
  CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'       "#EC FB_OLDED
    EXPORTING
      defaultoption = 'Y'
      textline1     = help_textline1
      textline2     = help_textline2
      titel         = help_titel
    IMPORTING
      answer        = reply.

ISH_USR05_GET
  CALL FUNCTION 'ISH_USR05_GET'
    EXPORTING
      ss_bname         = l_user
      ss_parid         = 'VMA'
    IMPORTING
      ss_value         = l_usr_param_value
    EXCEPTIONS
      parid_not_found  = 1
      bname_is_initial = 2
      parid_is_initial = 3
      OTHERS           = 4.

CONTROL_CALL_METHOD
  CALL FUNCTION 'CONTROL_CALL_METHOD'
    EXPORTING
      h_control         = h_ocx_ishmxed
      method            = 'GetMuSeqOfSelEntry'
      p_count           = 0
      no_flush          = off
    IMPORTING
      return            = cursor_line
    EXCEPTIONS
      cntl_system_error = 1
      cntl_error        = 2
      OTHERS            = 3.

CONTROL_CALL_METHOD
  CALL FUNCTION 'CONTROL_CALL_METHOD'
       EXPORTING
            h_control = h_ocx_ishmxed
            method    = 'AddVBKopf'
            p_count   = 11
            no_flush  = off
*            P1        = AN4PB00001M-R-DOKAR            4.61

ISH_N2_TEXT_LONG_TO_BUFFER
  CALL FUNCTION 'ISH_N2_TEXT_LONG_TO_BUFFER'
    EXPORTING
      ss_tlong            = text_work
    TABLES
      ss_ttab             = edittext
    EXCEPTIONS
      long_empty          = 1
      offset_out_of_range = 2
      OTHERS              = 3.

CONTROL_CALL_METHOD
    CALL FUNCTION 'CONTROL_CALL_METHOD'
      EXPORTING
        h_control         = h_ocx_ishmxed
        method            = 'AddVBLine'
        p_count           = 2
        no_flush          = off
        p1                = an4pb00001m-r-museq
        p2                = edittext-text
      EXCEPTIONS
        cntl_system_error = 1
        cntl_error        = 2
        OTHERS            = 3.

DDUT_DOMVALUE_TEXT_GET
    CALL FUNCTION 'DDUT_DOMVALUE_TEXT_GET'
      EXPORTING
        name     = name
        value    = value
        langu    = langu
      IMPORTING
        dd07v_wa = ldd07v
      EXCEPTIONS
        OTHERS   = 1.

ISH_N2_INSTALL_FRONTEND_PROG
  CALL FUNCTION 'ISH_N2_INSTALL_FRONTEND_PROG'
       EXPORTING
            ss_program            = 'ISHMXED.OCX'

CONTROL_INIT
  CALL FUNCTION 'CONTROL_INIT'.

CONTROL_REGISTER_CLASS_HANDLER
  CALL FUNCTION 'CONTROL_REGISTER_CLASS_HANDLER'
    EXPORTING
      cntl_type = l_cntl_type_ocx
      program   = this_repid.

CONTROL_CREATE
  CALL FUNCTION 'CONTROL_CREATE'
    EXPORTING
      clsid                       = 'ishmxed.ishmxedc'

CONTROL_SET_PROPERTY
    CALL FUNCTION 'CONTROL_SET_PROPERTY'
      EXPORTING
        h_control         = h_ocx_ishmxed
        property          = 'AllowGlobalEdit'  "c_allowglobaledit
        value             = cntl_true
      EXCEPTIONS
        cntl_system_error = 1
        cntl_error        = 2
        OTHERS            = 3.




ISH_N2_SET_PROPERTIES
  CALL FUNCTION 'ISH_N2_SET_PROPERTIES'
    EXPORTING
      ss_handle = h_ocx_ishmxed
      ss_left   = 16  " PIX_LEFT = 2 * 8.

CONTROL_LINK
  CALL FUNCTION 'CONTROL_LINK'
    EXPORTING
      h_control = h_ocx_ishmxed
      repid     = this_repid
      dynnr     = '0099'.

CONTROL_FLUSH
  CALL FUNCTION 'CONTROL_FLUSH'.

CONTROL_CALL_METHOD
  CALL FUNCTION 'CONTROL_CALL_METHOD'
    EXPORTING
      h_control         = h_ocx_ishmxed
      method            = 'ClearEdit'
      p_count           = 0
    EXCEPTIONS
      cntl_system_error = 1
      cntl_error        = 2
      OTHERS            = 3.

CONTROL_CALL_METHOD
  CALL FUNCTION 'CONTROL_CALL_METHOD'
    EXPORTING
      h_control         = h_ocx_ishmxed
      method            = 'Optimize_Layout'
      p_count           = 0
    EXCEPTIONS
      cntl_system_error = 1
      cntl_error        = 2
      OTHERS            = 3.

CONTROL_FLUSH
  CALL FUNCTION 'CONTROL_FLUSH'.

CONTROL_SET_PROPERTY
  CALL FUNCTION 'CONTROL_SET_PROPERTY'
    EXPORTING
      h_control         = h_ocx_ishmxed
      property          = p_property
      value             = p_value
      no_flush          = p_no_flush
    EXCEPTIONS
      cntl_system_error = 1
      cntl_error        = 2
      OTHERS            = 3.

CONTROL_CALL_METHOD
  CALL FUNCTION 'CONTROL_CALL_METHOD'
    EXPORTING
      h_control = h_ocx_ishmxed
      method    = p_method
      p_count   = 0
      no_flush  = off.


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


   
 

RN2N2CAD - IS-H*MED: User exits for nursing report
RN2N0M_PROBSC_TOP - Include LNCDCTOP
RN2N0M_PROBSC - Include LNCDCTOP
RN2N0M_OPZUSA_TOP - Include LNCDCTOP
RN2N0M_OPZUSA - Include LNCDCTOP
RN2N0M_OPPROT_TOP - Include LNCDCTOP