ISH_PROCESS_MOVEMENTS SAP Function module

DATA:
it_falar  
 
 TYPE STANDARD TABLE OF RNSFALAR,"TABLES PARAM
wa_falar
 
 LIKE LINE OF it_falar
,
it_gschl  
 
 TYPE STANDARD TABLE OF RNSGSCHL,"TABLES PARAM
wa_gschl
 
 LIKE LINE OF it_gschl
,
it_moves  
 
 TYPE STANDARD TABLE OF RNSBEW,"TABLES PARAM
wa_moves
 
 LIKE LINE OF it_moves
,
it_orgfa  
 
 TYPE STANDARD TABLE OF RNSORGID,"TABLES PARAM
wa_orgfa
 
 LIKE LINE OF it_orgfa
,
it_orgpf  
 
 TYPE STANDARD TABLE OF RNSORGID,"TABLES PARAM
wa_orgpf
 
 LIKE LINE OF it_orgpf
,
it_patients  
 
 TYPE STANDARD TABLE OF RNSPAT,"TABLES PARAM
wa_patients
 
 LIKE LINE OF it_patients
,
it_napx_fal  
 
 TYPE STANDARD TABLE OF NAPX_FAL,"TABLES PARAM
wa_napx_fal
 
 LIKE LINE OF it_napx_fal
.


DATA(ld_ausbegdt) = '20210129'.

DATA(ld_ausenddt) = '20210129'.

DATA(ld_calc_orgfa) = 'some text here'.

DATA(ld_calc_orgpf) = 'some text here'.

DATA(ld_cases_24h) = 'some text here'.

DATA(ld_complete_orgfa) = 'some text here'.

DATA(ld_complete_orgpf) = 'some text here'.

DATA(ld_complete_sections) = 'some text here'.
 

SELECT single EINRI 
  FROM TN01 
  INTO @DATA(ld_einri).


DATA(ld_escorts) = 'some text here'.
 

SELECT single FATYP 
  FROM TNKFA 
  INTO @DATA(ld_fatyp).


DATA(ld_number_of_cases) = 'some text here'.

DATA(ld_repl_int_sections) = 'some text here'.
 

SELECT single STASP 
  FROM NFAL 
  INTO @DATA(ld_stasp).


DATA(ld_verbegdt) = '20210129'.

DATA(ld_verenddt) = '20210129'.

DATA(ld_visits) = 'some text here'.

DATA(ld_all_moves) = 'some text here'.

DATA(ld_inp_without_adm) = 'some text here'.

DATA(ld_lastv) = 'some text here'.

DATA(ld_foreigner) = 'some text here'.

DATA(ld_address) = 'some text here'.

DATA(ld_multiple_sick_newborns) = 'some text here'.

DATA(ld_united_return_cases) = 'some text here'.

DATA(ld_i_ignore_eo) = '20210129'.

DATA(ld_i_plan_end) = 'some text here'.

DATA(ld_i_surgery_moves) = '20210129'.
 

"populate fields of struture and append to itab
append wa_falar to it_falar.
 

"populate fields of struture and append to itab
append wa_gschl to it_gschl.
 

"populate fields of struture and append to itab
append wa_moves to it_moves.
 

"populate fields of struture and append to itab
append wa_orgfa to it_orgfa.
 

"populate fields of struture and append to itab
append wa_orgpf to it_orgpf.
 

"populate fields of struture and append to itab
append wa_patients to it_patients.
 

"populate fields of struture and append to itab
append wa_napx_fal to it_napx_fal.
.

CALL FUNCTION 'ISH_PROCESS_MOVEMENTS'
  EXPORTING
    ausbegdt =                   ld_ausbegdt
    ausenddt =                   ld_ausenddt
*   calc_orgfa =                 ld_calc_orgfa
*   calc_orgpf =                 ld_calc_orgpf
*   cases_24h =                  ld_cases_24h
*   complete_orgfa =             ld_complete_orgfa
*   complete_orgpf =             ld_complete_orgpf
*   complete_sections =          ld_complete_sections
    einri =                      ld_einri
*   escorts =                    ld_escorts
*   fatyp =                      ld_fatyp
    number_of_cases =            ld_number_of_cases
*   repl_int_sections =          ld_repl_int_sections
*   stasp =                      ld_stasp
    verbegdt =                   ld_verbegdt
    verenddt =                   ld_verenddt
*   visits =                     ld_visits
*   all_moves =                  ld_all_moves
*   inp_without_adm =            ld_inp_without_adm
*   lastv =                      ld_lastv
*   foreigner =                  ld_foreigner
*   address =                    ld_address
*   multiple_sick_newborns =     ld_multiple_sick_newborns
*   united_return_cases =        ld_united_return_cases
*   i_ignore_eo =                ld_i_ignore_eo
*   i_plan_end =                 ld_i_plan_end
*   i_surgery_moves =            ld_i_surgery_moves
  TABLES
    falar =                      it_falar
    gschl =                      it_gschl
    moves =                      it_moves
    orgfa =                      it_orgfa
    orgpf =                      it_orgpf
    patients =                   it_patients
*   napx_fal =                   it_napx_fal
  EXCEPTIONS
    BEGDT_GT_ENDDT =             1
    INVALID_EINRI =              2
    INVALID_FATYP =              3
    INVALID_PERIOD =             4
    NO_FALNR_LEFT =              5
    .  "  ISH_PROCESS_MOVEMENTS

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