Unit-api/oracle_API/StockTakingUnitDet.api

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

DEFINE MODULE        = INCON
DEFINE LU            = StockTakingUnitDet
DEFINE PKG           = STOCK_TAKING_UNIT_DET_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
   (flag_reject stock_taking_unit_det_tab.flag_reject%TYPE,
    keterangan stock_taking_unit_det_tab.keterangan%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 );

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


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


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

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


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


FUNCTION Get (
   company_ IN VARCHAR2,
   stock_taking_unit_id_ IN VARCHAR2,
   mesin_ IN VARCHAR2 ) 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,
   flag_reject_            IN VARCHAR2,
   keterangan_             IN VARCHAR2);


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


PROCEDURE Update_Keterangan(
   company_                   IN VARCHAR2,
   stock_taking_unit_id_      IN VARCHAR2,
   mesin_                     IN VARCHAR2,
   keterangan_                IN VARCHAR2);


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

PROCEDURE Init;


END &PKG;
/
SHOW ERROR

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