DECLARE
  V_FOUND   NUMBER;
  v_alert   NUMBER;
  V_mouno   number := NULL;
  V_cnic    number := NULL;
BEGIN
--Search through NIC-------------------------
--=============================================
  IF :CTRL_BLK.RG_SEARCH = 'N' THEN
    SELECT COUNT (*)
      INTO V_FOUND
      FROM CASES
     WHERE C_NIC = :CTRL_BLK.V_SEARCH;
    IF V_FOUND0 THEN
      select nvl (count (*), 0)
        into V_cnic
        from APLICATION_RURAL
       where C_NIC = :CTRL_BLK.V_SEARCH;
      IF V_cnic <= 0 then
        INSERT INTO APLICATION_RURAL
                    (ACC_NO, ACCT_TITLE, AMOUNT, APP_DATE, APP_ID, B_ADDRESS,
                     B_BRANCH, BANK, C_NIC, COMMENTS, DISTRICT, ENTRY_BY,
                     ENTRY_DATE, FATHER_NAME, PROVINCE, TEHSIL, UC, UPDATE_BY,
                     UPDATE_DATE, VILLAGE)
          SELECT ACC_NO, ACCT_TITLE, AMOUNT, APP_DATE, APP_ID, B_ADDRESS,
                 B_BRANCH, BANK, C_NIC, COMMENTS, DISTRICT, ENTRY_BY,
                 ENTRY_DATE, FATHER_NAME, PROVINCE, TEHSIL, UC, UPDATE_BY,
                 UPDATE_DATE, VILLAGE
            FROM CASES
           WHERE C_NIC = :CTRL_BLK.V_SEARCH;
        COMMIT;
      END IF;
    END IF;
  END IF;
end;

begin
  IF :APLICATION_REC.APP_ID IS NULL THEN
    SELECT NVL (MAX (APP_ID), 0)
      INTO :APLICATION_REC.APP_ID
      FROM APLICATION_RURAL;
    :APLICATION_REC.APP_ID  := :APLICATION_REC.APP_ID + 1;
    :APLICATION_REC.STATUS  := 'ARC';
    SELECT TO_DATE (SYSDATE, 'DD-Mon-YYYY HH24:MI:SS')
      INTO :APLICATION_REC.APP_DATE
      FROM DUAL;
    SELECT USERNAME
      INTO :APLICATION_REC.UPDATE_BY
      FROM USER_USERS;
    UPDATE APLICATION_RURAL
       SET APP_ID = :APLICATION_REC.APP_ID,
           APP_DATE = :APLICATION_REC.APP_DATE,
           UPDATE_BY = :APLICATION_REC.UPDATE_BY,
           UPDATE_DATE = :APLICATION_REC.APP_DATE
     WHERE C_NIC = :APLICATION_REC.C_NIC;
    COMMIT;
  else
    MESSAGE ('You Cannt Save the record');
    MESSAGE ('You Cannt Save the record');
    RAISE Form_Trigger_Failure;
  END IF;
end;