METHOD ZIF_HRST_EFD_SST~PROCESS.

    DATA: lt_2210  TYPE TABLE OF zhrst_efd_e2210,
          lw_2210  LIKE LINE OF  lt_2210,
          lt_2210a TYPE TABLE OF zhrst_efd_e2210a,
          lw_2210a LIKE LINE OF  lt_2210a,
          lt_2210p TYPE TABLE OF zhrst_efd_e2210p,
          lw_2210p LIKE LINE OF  lt_2210p,
          lw_pernr LIKE LINE OF  mt_pernr.

    DATA: lw_ial  LIKE LINE OF mt_ial,
          lw_fal  LIKE LINE OF mt_fal,
          lw_ip   LIKE LINE OF mt_ip,
          lw_ihva LIKE LINE OF mt_ihva.

    DATA: lv_recn_key_1 TYPE char50,
          lv_recn_key_3 TYPE char50,
          lv_recn_key_4 TYPE char50.

    DATA: lo_sst_util TYPE REF TO zcl_hrst_sst_utilitarios.
    CREATE OBJECT lo_sst_util.

    LOOP AT mt_ial INTO lw_ial.

      LOOP AT mt_fal INTO lw_fal WHERE recntia = lw_ial-recnroot.

        LOOP AT mt_pernr INTO lw_pernr.

          " PERNR
          READ TABLE mt_ip INTO lw_ip WITH KEY recnroot = lw_fal-recnroot.
          IF sy-subrc <> 0.
            CONTINUE.
          ELSE.
            lw_2210-pernr = lw_ip-ippers+2.
          ENDIF.

          " Fill RECN_KEY_1, RECN_KEY_3 e RECN_KEY_4
          READ TABLE mt_ihva INTO lw_ihva WITH KEY recntobj = lw_ial-recn
                                                   ihvalcat = 'SAP_EHS_1101_001'.
          IF sy-subrc IS INITIAL.
            lv_recn_key_1 = |{ lw_ihva-recn }{ lw_ihva-actn }|.
          ENDIF.

          READ TABLE mt_ihva INTO lw_ihva WITH KEY recntobj = lw_ial-recnroot
                                                   ihvalcat = 'SAP_EHS_1103_001'.
          IF sy-subrc IS INITIAL.
            lv_recn_key_3 = |{ lw_ihva-recn }{ lw_ihva-actn }|.
          ENDIF.

          READ TABLE mt_ihva INTO lw_ihva WITH KEY recntobj = lw_ial-recnroot
                                                   ihvalcat = 'SAP_EHS_1104_001'.
          IF sy-subrc IS INITIAL.
            lv_recn_key_4 = |{ lw_ihva-recn }{ lw_ihva-actn }|.
          ENDIF.

          " GET EMPLOYEE INFO



          " ACCID_DATE
          lw_2210-accid_date = lw_fal-evdat.

          "ACCID_HOUR
          lw_2210-accid_hour = lw_fal-evtime.

          "CODAMB_
*          lw_2210-codamb = "WAID"

          "CAT_RECORDER (Não encontrado no mapeamento)
          lw_2210-cat_recorder = lo_sst_util->get_charac_data( i_recn_key = lv_recn_key_4
                                                               i_attin = 'ZSAP_EHS_1104_001_106' ).

          "INSC_NUM
          lw_2210-insc_num = lo_sst_util->get_charac_data( i_recn_key = lv_recn_key_1
                                                           i_attin = 'ZSAP_EHS_1101_001_004' ).

          "INSC_TYPE
          lw_2210-insc_type = lo_sst_util->get_charac_data( i_recn_key = lv_recn_key_1
                                                            i_attin = 'ZSAP_EHS_1101_001_003' ).

          "ACCID_WORKEDH (Mapeamento incorreto)
*          lw_2210-accid_workedh = lo_sst_util->get_charac_data( i_recn_key = lv_recn_key_3
*                                                                i_attin = 'ZSAP_EHS_1103_001_HRSTRABANTES' ).

          "CAT_TYPE
          lw_2210-cat_type = lo_sst_util->get_charac_data( i_recn_key = lv_recn_key_4
                                                           i_attin = 'ZSAP_EHS_1104_001_002' ).

          "IND_DEATH_CAT
          lw_2210-ind_death_cat = lw_fal-fatalflg.

          "IND_POLICE
          lw_2210-ind_police = lo_sst_util->get_charac_data( i_recn_key = lv_recn_key_3
                                                             i_attin = 'ZSAP_EHS_1103_001_043' ).

          "ACCIDENT_CAUSE
          lw_2210-accident_cause = lo_sst_util->get_charac_data( i_recn_key = lv_recn_key_3
                                                                 i_attin = 'ZSAP_EHS_1103_001_051' ).

          "CAT_INIT
          lw_2210-cat_init = lo_sst_util->get_charac_data( i_recn_key = lv_recn_key_4
                                                           i_attin = 'ZSAP_EHS_1104_001_100' ).

          "OBSERVATION (não será enviado)

          "CAT_DATE (Não encontrado no mapeamento)
*          lw_2210-cat_date =

          "CAT_NR
          lw_2210-cat_nr = lo_sst_util->get_charac_data( i_recn_key = lv_recn_key_4
                                                         i_attin = 'ZSAP_EHS_1104_001_065' ).

          "ACCIDENT_TYPE (Mapeamento Incorreto)
*          lw_2210-ACCIDENT_TYPE = lo_sst_util->get_charac_data( i_recn_key = lv_recn_key_3
*                                                                i_attin = 'ZSAP_EHS_1103_002_TPACID' ).

          "DEATH_DATE
          lw_2210-death_date = lw_fal-ipdeathdate.

         "PLACE_TYPE
         lw_2210-PLACE_TYPE = lo_sst_util->get_charac_data( i_recn_key = lv_recn_key_4
                                                            i_attin = 'ZSAP_EHS_1104_001_035' ).




*STREET
*DESC_ADDRS
*HS_NUMBER
*CITY_CODE
*STATE
*DISTRICT
*CNPJ
*COUNTRY
*ZIP_CODE
*CNES
*APPOINT_DATE
*APPOINT_TIME
*IND_HOSP
*APPOINT_DURATION
*ABSENCE_IND
*INJURY_DESC
*INJURY_COMP_DESC
*LIKELI_DIAGN
*COD_CID
*OBSERVATION2
*DOCTOR_NAME
*OC
*NR_OC
*UF_OC
*COMPL_ADDRS
*TP_LOGRAD
*EXTERNAL_ID


        ENDLOOP.

      ENDLOOP.

    ENDLOOP.

  ENDMETHOD.