ISHMED_PATREG_SEARCH SAP Function module

DATA:
ld_e_okcode  
 
 TYPE SY-UCOMM
,
ld_e_n1prpat  
 
 TYPE N1PRPAT
,
ld_e_patnr  
 
 TYPE RNPA1-PATNR
,
ld_e_pziff  
 
 TYPE RNPA1-PZIFF
,
ld_e_vcode_new  
 
 TYPE STRING
,
ld_e_pat_selected  
 
 TYPE STRING
,
ld_e_next_screen  
 
 TYPE STRING
,
ld_e_search_pat  
 
 TYPE STRING
,
ld_e_sto_selected  
 
 TYPE STRING
,
ld_e_papid  
 
 TYPE NPAP-PAPID
.


DATA(ld_i_mandt) = 'Check type of data required'.


DATA(ld_i_einri) = some text here
 

SELECT single PATNR 
  FROM N1PRPATZUO 
  INTO @DATA(ld_i_patnr).

 

SELECT single FALNR 
  FROM N1PRFAL 
  INTO @DATA(ld_i_falnr).

 

SELECT single NNAME 
  FROM N1PRPAT 
  INTO @DATA(ld_i_nname).

 

SELECT single VNAME 
  FROM N1PRPAT 
  INTO @DATA(ld_i_vname).

 

SELECT single GBNAM 
  FROM N1PRPAT 
  INTO @DATA(ld_i_gbnam).

 

SELECT single GBDAT 
  FROM N1PRPAT 
  INTO @DATA(ld_i_gbdav).

 

SELECT single GBDAT 
  FROM N1PRPAT 
  INTO @DATA(ld_i_gbdab).

 

SELECT single GSCHLE 
  FROM N1PRPAT 
  INTO @DATA(ld_i_gschl).

 

SELECT single RVNUM 
  FROM N1PRPAT 
  INTO @DATA(ld_i_rvnum).

 

SELECT single EXTNR 
  FROM N1PRPAT 
  INTO @DATA(ld_i_extnr).

 

SELECT single PASSNR 
  FROM N1PRPAT 
  INTO @DATA(ld_i_pasnr).



DATA(ld_i_sphon) = some text here

DATA(ld_i_flg_infobox) = 'some text here'.

DATA(ld_i_flg_alvinit) = 'some text here'.

DATA(ld_i_vcode) = 'some text here'.

DATA(ld_t_function_texts) = 'Check type of data required'.

DATA(ld_i_read_npap) = 'Check type of data required'.
.

CALL FUNCTION 'ISHMED_PATREG_SEARCH'
* EXPORTING
*   i_mandt =                    ld_i_mandt
*   i_einri =                    ld_i_einri
*   i_patnr =                    ld_i_patnr
*   i_falnr =                    ld_i_falnr
*   i_nname =                    ld_i_nname
*   i_vname =                    ld_i_vname
*   i_gbnam =                    ld_i_gbnam
*   i_gbdav =                    ld_i_gbdav
*   i_gbdab =                    ld_i_gbdab
*   i_gschl =                    ld_i_gschl
*   i_rvnum =                    ld_i_rvnum
*   i_extnr =                    ld_i_extnr
*   i_pasnr =                    ld_i_pasnr
*   i_sphon =                    ld_i_sphon
*   i_flg_infobox =              ld_i_flg_infobox
*   i_flg_alvinit =              ld_i_flg_alvinit
*   i_vcode =                    ld_i_vcode
*   t_function_texts =           ld_t_function_texts
*   i_read_npap =                ld_i_read_npap
  IMPORTING
    e_okcode =                   ld_e_okcode
    e_n1prpat =                  ld_e_n1prpat
    e_patnr =                    ld_e_patnr
    e_pziff =                    ld_e_pziff
    e_vcode_new =                ld_e_vcode_new
    e_pat_selected =             ld_e_pat_selected
    e_next_screen =              ld_e_next_screen
    e_search_pat =               ld_e_search_pat
    e_sto_selected =             ld_e_sto_selected
    e_papid =                    ld_e_papid
  EXCEPTIONS
    SEARCH_ABORTED =             1
    NO_PATIENTS_FOUND =          2
    ALV_ERROR =                  3
    MAX_CNT_EXCEED =             4
    NO_RFCDEST_FOUND =           5
    RFC_FAILURE =                6
    PATIENT_NOT_FOUND =          7
    LOCAL_SEARCH_ERROR =         8
    RFC_COMMUNICATION_ERROR =    9
    OTHERS =                     10
    .  "  ISHMED_PATREG_SEARCH

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
ELSEIF SY-SUBRC EQ 3. "Exception
  "Add code for exception here
ELSEIF SY-SUBRC EQ 4. "Exception
  "Add code for exception here
ELSEIF SY-SUBRC EQ 5. "Exception
  "Add code for exception here
ELSEIF SY-SUBRC EQ 6. "Exception
  "Add code for exception here
ELSEIF SY-SUBRC EQ 7. "Exception
  "Add code for exception here
ELSEIF SY-SUBRC EQ 8. "Exception
  "Add code for exception here
ELSEIF SY-SUBRC EQ 9. "Exception
  "Add code for exception here
ELSEIF SY-SUBRC EQ 10. "Exception
  "Add code for exception here
ENDIF.