CURSOR c_prn(
    p_request_id NUMBER) IS
  SELECT
    prn.*
  FROM
    xx_int_ant001_mok_dtl_v prn
  WHERE
    prn.request_id = p_request_id AND
    -- Proceso metu nebuvo rasta klaidų
    NOT EXISTS(
      SELECT
        NULL
      FROM
        xx_int_ant030_klaidos_temp kld
      WHERE
        kld.pranesimo_id = prn.pranesimo_id AND
        kld.klaidos_tipas = 'E');

  ROUTINE CONSTANT VARCHAR2(65) := PACKAGE_NAME||'.REGISTER_DATA';
BEGIN
  xx_cdf_output_utl$.LOG('  - Registruojame MAIS operacijas');
  FOR l_prn_rec IN c_prn(g_who.request_id)
  LOOP

    DECLARE
      CURSOR c_rcp(
        p_pranesimo_id NUMBER) IS
      SELECT
        rec.*
      FROM
        xx_int_ant030_receipts_tmp rec
      WHERE
        rec.pranesimo_id = p_pranesimo_id
      ORDER BY
        -- Jei parinkta ne viena kriterijus atitinkanti įplauka, imsime anksčiausią
        rec.cash_receipt_id;

      /* Įplaukos nesugretinta suma */
      l_amount_unapplied_rcp NUMBER;
      l_rcp_rec c_rcp%ROWTYPE;
      l_error_found BOOLEAN := FALSE;
      l_busenos_kodas_new xx_int_prn010_busenos_hist.busenos_kodas%TYPE := xx_int_prn010$.busena_completed;
    BEGIN
      OPEN c_rcp(l_prn_rec.pranesimo_id);
      FETCH c_rcp INTO l_rcp_rec;
      CLOSE c_rcp;
      IF l_rcp_rec.cash_receipt_id IS NOT NULL THEN
        xx_cdf_output_utl$.LOG(
          p_msg => '       Įplauka rasta, ID: '||l_rcp_rec.cash_receipt_id||', numeris '||l_rcp_rec.receipt_number||';',
          p_detail_level => xx_cdf_output_utl$.LEVEL_HIGH,
          p_max_line_length => xx_cdf_output_utl$.NO_LENGTH_RESTRICTIONS);
        IF l_prn_rec.busenos_kodas != xx_int_prn010$.busena_retry AND
           l_rcp_rec.applied_amount > l_rcp_rec.write_off_amount THEN
/*
  Kontrolinis tikrinimas, ar nėra įplauka sugretinta su ne P/S
  Įplaukos neturi būti sugretintos, turi būti priskirtos sisteminės
  neįskaitymo taisyklės. Išimtis: įplauka buvo detalizuota ir dabar
  turime sukelti skirtumus.
*/
          l_error_found := TRUE;
          l_busenos_kodas_new := xx_int_prn010$.busena_error_destination;
          insert_error(
            p_pranesimo_id => l_prn_rec.pranesimo_id,
            p_klaidos_kodas => '902',
            p_klaidos_aprasas => 'Įplauka '||l_rcp_rec.receipt_number||' sugretinta ne su permoka / skirtumu. Tokia situacija negalima.');
        ELSIF l_rcp_rec.unapplied_amount > 0 THEN