ISH_PAT_OTHER_SUBSCREEN SAP Function module

ISH_PAT_OTHER_SUBSCREEN is a standard SAP function module available within R/3 SAP systems depending on your version and release level. Below is the pattern details for this FM showing its interface including any import and export parameters, exceptions etc as well as any documentation contributions (Comments) specific to the object.

See here to view full function module documentation and code listing, simply by entering the name ISH_PAT_OTHER_SUBSCREEN into the relevant SAP transaction such as SE37 or SE80.

Associated Function Group: NPA2
Released Date: Not Released
Processing type: Normal fucntion module

Pattern for FM ISH_PAT_OTHER_SUBSCREEN - ISH PAT OTHER SUBSCREEN

CALL FUNCTION 'ISH_PAT_OTHER_SUBSCREEN' "
  EXPORTING
*   ss_einri = '*'              " rnpa1-einri   IS-H: Institution
    ss_patnr =                  " npat-patnr    IS-H: Patient Number
*   ss_vcode = 'DIS'            " tndym-vcode   IS-H: Processing Mode
*   ss_info = ' '               " npdok-xfeld   Fill SS_INFO_TAB (on/off)
  IMPORTING
    ss_repid =                  " sy-repid      ABAP Program: Current Main Program
    ss_dynnr =                  " sy-dynnr      ABAP Program: Number of Current Dynpro
    ss_cursor =                 " tndym-cursr   IS-H: Cursor Position on Screen
* TABLES
*   ss_info_tab =               " nish_short_info_tab  Quick Info Patient Data
  EXCEPTIONS
    NO_AUTHORITY = 1            "               No Authorization
    NOT_FOUND = 2               "               Patient not Found
    .  "  ISH_PAT_OTHER_SUBSCREEN

ABAP code example for Function Module ISH_PAT_OTHER_SUBSCREEN

The ABAP code below is a full code listing to execute function module ISH_PAT_OTHER_SUBSCREEN including all data declarations. The code uses the latest in-line data DECLARATION SYNTAX but I have included an ABAP code snippet at the end to show how declarations would look using the original method of declaring data variables up front. This will allow you to compare and fully understand the new inline method. Please note some of the newer syntax such as the @DATA is not available until a later 4.70 service pack (SP8).

DATA:
ld_ss_repid  
 
 TYPE SY-REPID
,
ld_ss_dynnr  
 
 TYPE SY-DYNNR
,
ld_ss_cursor  
 
 TYPE TNDYM-CURSR
,
it_ss_info_tab  
 
 TYPE STANDARD TABLE OF NISH_SHORT_INFO_TAB,"TABLES PARAM
wa_ss_info_tab
 
 LIKE LINE OF it_ss_info_tab
.



DATA(ld_ss_einri) = some text here
 

SELECT single PATNR 
  FROM NPAT 
  INTO @DATA(ld_ss_patnr).

 

SELECT single VCODE 
  FROM TNDYM 
  INTO @DATA(ld_ss_vcode).



DATA(ld_ss_info) = some text here
 

"populate fields of struture and append to itab
append wa_ss_info_tab to it_ss_info_tab.
.

CALL FUNCTION 'ISH_PAT_OTHER_SUBSCREEN'
  EXPORTING
*   ss_einri =                   ld_ss_einri
    ss_patnr =                   ld_ss_patnr
*   ss_vcode =                   ld_ss_vcode
*   ss_info =                    ld_ss_info
  IMPORTING
    ss_repid =                   ld_ss_repid
    ss_dynnr =                   ld_ss_dynnr
    ss_cursor =                  ld_ss_cursor
* TABLES
*   ss_info_tab =                it_ss_info_tab
  EXCEPTIONS
    NO_AUTHORITY =               1
    NOT_FOUND =                  2
    .  "  ISH_PAT_OTHER_SUBSCREEN

IF SY-SUBRC EQ 0.
  "All OK
ELSEIF SY-SUBRC EQ 1. "Exception
  "Add code for exception here
ELSEIF SY-SUBRC EQ 2. "Exception
  "Add code for exception here
ENDIF.

ABAP code to compare 7.40 inline data declaration with original syntax

The below ABAP code uses the older none in-line data declarations. This allows you to see the coding differences/benefits of the later inline syntax. It may also be useful if you are using an older version of SAP as some of the newer syntax above, such as the @DATA is not available until 4.70 EHP 8.

DATA:

ld_ss_repid
 
 TYPE SY-REPID ,
ld_ss_einri
 
 TYPE RNPA1-EINRI ,
it_ss_info_tab
 
 TYPE STANDARD TABLE OF NISH_SHORT_INFO_TAB ,
wa_ss_info_tab
 
 LIKE LINE OF it_ss_info_tab,
ld_ss_dynnr
 
 TYPE SY-DYNNR ,
ld_ss_patnr
 
 TYPE NPAT-PATNR ,
ld_ss_cursor
 
 TYPE TNDYM-CURSR ,
ld_ss_vcode
 
 TYPE TNDYM-VCODE ,
ld_ss_info
 
 TYPE NPDOK-XFELD .



ld_ss_einri = some text here 

"populate fields of struture and append to itab
append wa_ss_info_tab to it_ss_info_tab.

SELECT single PATNR 
  FROM NPAT 
  INTO ld_ss_patnr.


SELECT single VCODE 
  FROM TNDYM 
  INTO ld_ss_vcode.


ld_ss_info = some text here