-----------------------------------------------------------------------------
--
--  Logical unit: StockTakingUnitDetPic
--
--  IFS/Design Template Version 2.2
--
--  Date    Sign  History
--  ------  ----  -----------------------------------------------------------
-----------------------------------------------------------------------------

DEFINE MODULE        = INCON
DEFINE LU            = StockTakingUnitDetPic
DEFINE PKG           = STOCK_TAKING_UNIT_DET_PIC_API


PROMPT Creating &PKG specification

CREATE OR REPLACE PACKAGE &PKG IS

module_  CONSTANT VARCHAR2(25) := '&MODULE';
lu_name_ CONSTANT VARCHAR2(25) := '&LU';

TYPE Public_Rec IS RECORD
   (jenis stock_taking_unit_det_pic_tab.jenis%TYPE,
    latitude stock_taking_unit_det_pic_tab.latitude%TYPE,
    longitude stock_taking_unit_det_pic_tab.longitude%TYPE,
    lob_id stock_taking_unit_det_pic_tab.lob_id%TYPE);

-----------------------------------------------------------------------------
-------------------- PRIVATE BASE METHODS -----------------------------------
-----------------------------------------------------------------------------

PROCEDURE Lock__ (
   info_       OUT VARCHAR2,
   objid_      IN  VARCHAR2,
   objversion_ IN  VARCHAR2 );

PROCEDURE New__ (
   info_       OUT    VARCHAR2,
   objid_      OUT    VARCHAR2,
   objversion_ OUT    VARCHAR2,
   attr_       IN OUT VARCHAR2,
   action_     IN     VARCHAR2 );

PROCEDURE Modify__ (
   info_       OUT    VARCHAR2,
   objid_      IN     VARCHAR2,
   objversion_ IN OUT VARCHAR2,
   attr_       IN OUT VARCHAR2,
   action_     IN     VARCHAR2 );

PROCEDURE Remove__ (
   info_       OUT VARCHAR2,
   objid_      IN  VARCHAR2,
   objversion_ IN  VARCHAR2,
   action_     IN  VARCHAR2 );

-----------------------------------------------------------------------------
-------------------- PUBLIC BASE METHODS ------------------------------------
-----------------------------------------------------------------------------

PROCEDURE Exist (
   company_ IN VARCHAR2,
   stock_taking_unit_id_ IN VARCHAR2,
   mesin_ IN VARCHAR2,
   no_urut_ IN NUMBER );

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


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


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

FUNCTION Get_Jenis (
   company_ IN VARCHAR2,
   stock_taking_unit_id_ IN VARCHAR2,
   mesin_ IN VARCHAR2,
   no_urut_ IN NUMBER ) RETURN VARCHAR2;
PRAGMA restrict_references(Get_Jenis, WNDS, WNPS);


FUNCTION Get_Latitude (
   company_ IN VARCHAR2,
   stock_taking_unit_id_ IN VARCHAR2,
   mesin_ IN VARCHAR2,
   no_urut_ IN NUMBER ) RETURN NUMBER;
PRAGMA restrict_references(Get_Latitude, WNDS, WNPS);


FUNCTION Get_Longitude (
   company_ IN VARCHAR2,
   stock_taking_unit_id_ IN VARCHAR2,
   mesin_ IN VARCHAR2,
   no_urut_ IN NUMBER ) RETURN NUMBER;
PRAGMA restrict_references(Get_Longitude, WNDS, WNPS);


FUNCTION Get_Lob_Id (
   company_ IN VARCHAR2,
   stock_taking_unit_id_ IN VARCHAR2,
   mesin_ IN VARCHAR2,
   no_urut_ IN NUMBER ) RETURN NUMBER;
PRAGMA restrict_references(Get_Lob_Id, WNDS, WNPS);


FUNCTION Get (
   company_ IN VARCHAR2,
   stock_taking_unit_id_ IN VARCHAR2,
   mesin_ IN VARCHAR2,
   no_urut_ IN NUMBER ) RETURN Public_Rec;
PRAGMA restrict_references(Get, WNDS, WNPS);


PROCEDURE Create_Update_Record(
   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,
   lob_id_                    IN NUMBER);

PROCEDURE Remove_Record(
   company_                IN VARCHAR2,
   stock_taking_unit_id_   IN VARCHAR2,
   mesin_                  IN VARCHAR2,
   no_urut_                IN NUMBER);


PROCEDURE Update_Lob_Id(
   company_                   IN VARCHAR2,
   stock_taking_unit_id_      IN VARCHAR2,
   mesin_                     IN VARCHAR2,
   no_urut_                   IN NUMBER,
   lob_id_                    IN NUMBER);



-----------------------------------------------------------------------------
-------------------- FOUNDATION1 METHODS ------------------------------------
-----------------------------------------------------------------------------

PROCEDURE Init;


END &PKG;
/
SHOW ERROR

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