PROCEDURE add_site_network_records IS

   v_card_type_id card_type.card_type_id%TYPE := NULL;
   v_fan          site_network.foreign_acceptor_no%TYPE;

   PROCEDURE insert_record
   (
      in_cardtype_id site_network.card_type_id%TYPE,
      in_fan         site_network.foreign_acceptor_no%TYPE,
      in_faqn        site_network.foreign_acquirer_no%TYPE
   ) IS
   
   BEGIN
      go_block('SITE_NETWORK');
      create_record;
      :site_network.status              := 'INITIAL';
      :site_network.did                 := 'Y';
      :site_network.card_type_id        := in_cardtype_id;
      :site_network.card_type_list      := :site_network.card_type_id;
      :site_network.foreign_acquirer_no := in_faqn;
      :site_network.foreign_acceptor_no := in_fan;
   
      --IF f_edit_fan(:site_network.card_type_id)
      IF :site_network.card_type_id IN (7, 109)
      THEN
         --set_item_instance_property('SITE_NETWORK.FOREIGN_ACCEPTOR_NO', current_record, insert_allowed, property_false);
         set_item_property('SITE_NETWORK.FOREIGN_ACCEPTOR_NO', navigable, property_false);
      ELSE
         --set_item_instance_property('SITE_NETWORK.FOREIGN_ACCEPTOR_NO', current_record, insert_allowed, property_true);
         set_item_property('SITE_NETWORK.FOREIGN_ACCEPTOR_NO', navigable, property_true);
      END IF;
   END insert_record;

BEGIN
   IF :control.site_network_type = 1 --FM
   THEN
      insert_record(2, :site.site_id, :site.lic_id);
      insert_record(8, 0, NULL);
      v_fan := to_char(fleetpro.f_get_new_fan);
      insert_record(7, v_fan, NULL);
      insert_record(109, v_fan, NULL);
   
   ELSIF :control.site_network_type = 2 -- 
   THEN
      v_fan := to_char(fleetpro.f_get_new_fan);
      insert_record(7, v_fan, :site.lic_id);
   ELSIF :control.site_network_type = 3 --
   THEN
      v_fan := to_char(fleetpro.f_get_new_fan);
      insert_record(6, v_fan, :site.lic_id);
   ELSIF :control.site_network_type = 4 --
   THEN
      insert_record(2, :site.site_id, :site.lic_id);
   END IF;
   go_block('SITE');
EXCEPTION
   WHEN OTHERS THEN
      RAISE form_trigger_failure;
END;