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

DEFINE MODULE        = INCON
DEFINE LU            = StockTakingUnit
DEFINE PKG           = STOCK_TAKING_UNIT_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
   (tgl_stock_taking stock_taking_unit_tab.tgl_stock_taking%TYPE,
    tgl_start stock_taking_unit_tab.tgl_start%TYPE,
    tgl_selesai stock_taking_unit_tab.tgl_selesai%TYPE,
    created_by stock_taking_unit_tab.created_by%TYPE,
    created_date stock_taking_unit_tab.created_date%TYPE,
    submit_by stock_taking_unit_tab.submit_by%TYPE,
    submit_date stock_taking_unit_tab.submit_date%TYPE,
    approved_by stock_taking_unit_tab.approved_by%TYPE,
    approved_date stock_taking_unit_tab.approved_date%TYPE,
    rejected_by stock_taking_unit_tab.rejected_by%TYPE,
    rejected_date stock_taking_unit_tab.rejected_date%TYPE,
    cabang_id stock_taking_unit_tab.cabang_id%TYPE);

-----------------------------------------------------------------------------
-------------------- PRIVATE FINITE STATE MACHINE ---------------------------
-----------------------------------------------------------------------------

FUNCTION Finite_State_Decode__ (
   db_state_ IN VARCHAR2 ) RETURN VARCHAR2;
PRAGMA restrict_references(Finite_State_Decode__, WNDS, WNPS);

PROCEDURE Enumerate_States__ (
   client_values_ OUT VARCHAR2);

FUNCTION Finite_State_Events__ (
   db_state_ IN VARCHAR2 ) RETURN VARCHAR2;
PRAGMA restrict_references(Finite_State_Events__, WNDS, WNPS);

PROCEDURE Enumerate_Events__ (
   db_events_ OUT VARCHAR2 );

-----------------------------------------------------------------------------
-------------------- 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 );

-----------------------------------------------------------------------------
-------------------- PUBLIC TRANSLATION METHODS -----------------------------
-----------------------------------------------------------------------------

PROCEDURE Language_Refreshed;

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

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


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


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


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


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


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



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


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

FUNCTION Get_Tgl_Stock_Taking (
   company_ IN VARCHAR2,
   stock_taking_unit_id_ IN VARCHAR2 ) RETURN DATE;
PRAGMA restrict_references(Get_Tgl_Stock_Taking, WNDS, WNPS);


FUNCTION Get_Tgl_Start (
   company_ IN VARCHAR2,
   stock_taking_unit_id_ IN VARCHAR2 ) RETURN DATE;
PRAGMA restrict_references(Get_Tgl_Start, WNDS, WNPS);


FUNCTION Get_Tgl_Selesai (
   company_ IN VARCHAR2,
   stock_taking_unit_id_ IN VARCHAR2 ) RETURN DATE;
PRAGMA restrict_references(Get_Tgl_Selesai, WNDS, WNPS);


FUNCTION Get_Created_By (
   company_ IN VARCHAR2,
   stock_taking_unit_id_ IN VARCHAR2 ) RETURN VARCHAR2;
PRAGMA restrict_references(Get_Created_By, WNDS, WNPS);


FUNCTION Get_Created_Date (
   company_ IN VARCHAR2,
   stock_taking_unit_id_ IN VARCHAR2 ) RETURN DATE;
PRAGMA restrict_references(Get_Created_Date, WNDS, WNPS);


FUNCTION Get_Submit_By (
   company_ IN VARCHAR2,
   stock_taking_unit_id_ IN VARCHAR2 ) RETURN VARCHAR2;
PRAGMA restrict_references(Get_Submit_By, WNDS, WNPS);


FUNCTION Get_Submit_Date (
   company_ IN VARCHAR2,
   stock_taking_unit_id_ IN VARCHAR2 ) RETURN DATE;
PRAGMA restrict_references(Get_Submit_Date, WNDS, WNPS);


FUNCTION Get_Approved_By (
   company_ IN VARCHAR2,
   stock_taking_unit_id_ IN VARCHAR2 ) RETURN VARCHAR2;
PRAGMA restrict_references(Get_Approved_By, WNDS, WNPS);


FUNCTION Get_Approved_Date (
   company_ IN VARCHAR2,
   stock_taking_unit_id_ IN VARCHAR2 ) RETURN DATE;
PRAGMA restrict_references(Get_Approved_Date, WNDS, WNPS);


FUNCTION Get_Rejected_By (
   company_ IN VARCHAR2,
   stock_taking_unit_id_ IN VARCHAR2 ) RETURN VARCHAR2;
PRAGMA restrict_references(Get_Rejected_By, WNDS, WNPS);


FUNCTION Get_Rejected_Date (
   company_ IN VARCHAR2,
   stock_taking_unit_id_ IN VARCHAR2 ) RETURN DATE;
PRAGMA restrict_references(Get_Rejected_Date, WNDS, WNPS);


FUNCTION Get_Cabang_Id (
   company_ IN VARCHAR2,
   stock_taking_unit_id_ IN VARCHAR2 ) RETURN VARCHAR2;
PRAGMA restrict_references(Get_Cabang_Id, WNDS, WNPS);


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


PROCEDURE Create_Update_Record(
   company_                   IN VARCHAR2,
   stock_taking_unit_id_      IN OUT VARCHAR2,
   tgl_stock_taking_          IN DATE,
   tgl_start_                 IN DATE,
   tgl_selesai_               IN DATE,
   cabang_id_                 IN VARCHAR2);


PROCEDURE Remove_Record(
   company_                IN VARCHAR2,
   stock_taking_unit_id_   IN VARCHAR2);


PROCEDURE Call_Submit(
   company_                IN VARCHAR2,
   stock_taking_unit_id_   IN VARCHAR2);


PROCEDURE Call_Re_Submit(
   company_                IN VARCHAR2,
   stock_taking_unit_id_   IN VARCHAR2);


PROCEDURE Call_Cancel_Submit(
   company_                IN VARCHAR2,
   stock_taking_unit_id_   IN VARCHAR2);


PROCEDURE Call_Approve(
   company_                IN VARCHAR2,
   stock_taking_unit_id_   IN VARCHAR2);


PROCEDURE Call_Cancel_Approve(
   company_                IN VARCHAR2,
   stock_taking_unit_id_   IN VARCHAR2);


PROCEDURE Update_Tgl_Selesai(
   company_                IN VARCHAR2,
   stock_taking_unit_id_   IN VARCHAR2,
   tgl_selesai_            IN DATE);


FUNCTION Get_Status_Stock_Taking(
   company_                IN VARCHAR2,
   stock_taking_unit_id_   IN VARCHAR2) RETURN VARCHAR2;



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

PROCEDURE Init;


END &PKG;
/
SHOW ERROR

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