/* Formatted on 2009/10/15 16:11 (Formatter Plus v4.8.0) */
PROCEDURE UPLOAD_AS IS
   l_success         boolean;
   l_bare_filename   varchar2 (50);
   v_loader_path     VARCHAR2 (256);
   status            number;
   Problem           EXCEPTION;
BEGIN
   tool_env.getvar ('LEG_TOP', v_loader_path);
   v_loader_path := v_loader_path || '/ISP';
   l_bare_filename := substr (:CTRL.file_name,
                              instr (:CTRL.file_name, '\', -1) + 1);
   l_success :=
      webutil_file_transfer.Client_To_AS_with_progress
                  (clientFile => :CTRL.file_name,
                   serverFile => v_loader_path || '/' || l_bare_filename,
                   progressTitle => 'Upload to Application Server in progress',
                   progressSubTitle => 'Please wait', asynchronous => false,
                   callbackTrigger => null);
   if l_success then
      message ('File uploaded successfully to the Application Server');
      BEGIN
         insert into flt_isp
                     (CTRL_NO,
                      ID_NUMBER,
                      ENAME,
                      PLANT,
                      DEPARTMENT,
                      CATEGORY1,
                      IMP_DEPT,
                      ERO,
                      STATUS,
                      CUR_DATE,
                      ISP_TITLE,
                      ENTERED_BY,
                      VOID_NO,
                      FILENAME,
                      P_CONDITION,
                      S_CONDITION)
              values (:CTRL_NO,
                      :ctrl.ID_NUMBER,
                      :NAME_item1,
                      :PLANT,
                      :DEPARTMENT,
                      :CATEGORY1,
                      :IMP_DEPT,
                      :name_item2,
                      :STATUS,
                      :CUR_DATE,
                      :text_item61,
                      :ENTERED_BY,
                      :VOID_NO,
                      NVL (:FILE_NAME, ' '),
                      :P_CONDITION,
                      :S_CONDITION);
      EXCEPTION
         WHEN OTHERS THEN
            MESSAGE (MESSAGE_CODE || ' - ' || MESSAGE_TEXT);
            MESSAGE (MESSAGE_CODE || ' - ' || MESSAGE_TEXT);
            RAISE FORM_TRIGGER_FAILURE;
      END;
      commit;
      CLEAR_MESSAGE;
   else
      message ('File upload to Application Server failed');
   end if;
exception
   when others then
      message ('File upload failed: ' || sqlerrm);
END;