-----------------------------------------------------------------------------
--
--  Logical unit: CabangUtil
--
--  Purpose:
--                                                                            
--
--  Date    Sign  History
--  ------  ----  -----------------------------------------------------------
--  211119  FRK-  Create Push_Message 
-----------------------------------------------------------------------------

DEFINE MODULE            = UTILS
DEFINE LU                = Stock_Taking_Unit_Utils
DEFINE PKG               = STOCK_TAKING_UNIT_UTILS_API

DEFINE OBJID         = rowid
DEFINE OBJVERSION    = "ltrim(lpad(to_char(rowversion,'YYYYMMDDHH24MISS'),2000))"

-----------------------------------------------------------------------------
-------------------- PACKAGES FOR METHODS -----------------------------------
-----------------------------------------------------------------------------

PROMPT Creating &PKG implementation

CREATE OR REPLACE PACKAGE BODY &PKG IS


-----------------------------------------------------------------------------
-------------------- LU SPECIFIC IMPLEMENTATION METHOD DECLARATIONS ---------
-----------------------------------------------------------------------------


-----------------------------------------------------------------------------
-------------------- LU SPECIFIC IMPLEMENTATION METHODS ---------------------
-----------------------------------------------------------------------------


-----------------------------------------------------------------------------
-------------------- LU SPECIFIC PRIVATE METHODS ----------------------------
-----------------------------------------------------------------------------


-----------------------------------------------------------------------------
-------------------- LU SPECIFIC PROTECTED METHODS --------------------------
-----------------------------------------------------------------------------


-----------------------------------------------------------------------------
-------------------- LU SPECIFIC PUBLIC METHODS -----------------------------
-----------------------------------------------------------------------------

PROCEDURE Create_Stock_Taking_Blob(
   company_                IN VARCHAR2,
   stock_taking_unit_id_   IN VARCHAR2,
   mesin_                  IN VARCHAR2,
   no_urut_                IN NUMBER,
   jenis_                  IN VARCHAR2,
   latitude_               IN NUMBER,
   longitude_              IN NUMBER,
   blob_file_              IN BLOB  
  )

IS
   new_lob_id_    VARCHAR2(4000) := null;
BEGIN

   STOCK_TAKING_UNIT_DET_PIC_API.Create_Update_Record(
      company_                   => company_,
      stock_taking_unit_id_      => stock_taking_unit_id_,
      mesin_                     => mesin_,
      no_urut_                   => no_urut_,
      jenis_                     => jenis_,
      latitude_                  => latitude_,
      longitude_                 => longitude_,
      lob_id_                    => new_lob_id_);


   SELECT binary_object_temp_tab_seq.nextval INTO new_lob_id_
      FROM dual;
   INSERT
   INTO binary_object_apex_temp_tab(
       blob_id,
       file_blob,
       file_name,
       file_dir,
       file_length,
       mime_type,
       ref_package,
       ref1,
       ref2,
       ref3,
       ref4,
       ref5,
       created_by,
       created_date,
       rowversion) 
   VALUES(
       new_lob_id_,
       EMPTY_BLOB(),
       stock_taking_unit_id_|| '_' || mesin_|| '_' || no_urut_ || '.jpg',
       'F' || TO_CHAR(sysdate,'YYYY'),
       dbms_lob.getlength(blob_file_),
       'image/jpeg',
       'STOCK_TAKING_UNIT_API',
       company_,                  --ref1              <-- COMPANY
       stock_taking_unit_id_,     --ref2              <-- STOCK_TAKING_UNIT_ID
       mesin_,                    --ref3              <-- mesin
       no_urut_,                  --ref4              <--NO_URUT
       null,
       Utils_API.Get_Fnd_User,                    --created_by
       sysdate,                        --created_date
       sysdate);  
   UPDATE binary_object_apex_temp_tab
   SET file_blob = blob_file_
   WHERE blob_id = new_lob_id_;
   MY_BLOB_UTIL_API.Apex_Upload_File(new_lob_id_);

END;




-----------------------------------------------------------------------------
-------------------- FOUNDATION1 METHODS ------------------------------------
-----------------------------------------------------------------------------
-- Init
--   Dummy procedure that can be called at database startup to ensure that
--   this package is loaded into memory for performance reasons only.
-----------------------------------------------------------------------------

PROCEDURE Init
IS
BEGIN
   NULL;
END Init;


END &PKG;
/
SHOW ERROR

-----------------------------------------------------------------------------