create or replace package BatchVarOra is
/*****************************************************************/
  PrjID          number;          -- ProjectID
  UserID         number;          -- UserID
  PCIP           varchar2(80);    -- PCNameIPAdresse
/*****************************************************************/
  function  Get_UserID     return number;
  function  Get_PCIP       return Varchar2;
----------------------------------------------
----------------------------------------------
----------------------------------------------
  procedure Set_UserID(MD number);
  procedure Set_PCIP(MD Varchar2);
----------------------------------------------
/*****************************************************************/
--WNDS = Write Not Data Set
--RNDS = Read Not Data Set
--WNPS = Write Not Package State
--RNPS = Read Not Package State
  pragma restrict_references (Get_UzerID,WNDS, WNPS);
  pragma restrict_references (Get_PCIP,WNDS, WNPS);
----------------------------------------------
----------------------------------------------
  pragma restrict_references (Set_UserID ,WNDS, RNDS, RNPS);
  pragma restrict_references (Set_PCIP ,WNDS, RNDS, RNPS);
----------------------------------------------
----------------------------------------------
/*****************************************************************/
end BatchVarOra;


create or replace package body BatchVarOra is
/-----------------------------------------------------------------/
  function Get_UserID return number is
  begin
    return(UserID);
  end;
/*****************************************************************/
  function Get_PCIP return Varchar2 is
  begin
    return(PCIP_id);
  end;
/-----------------------------------------------------------------/
  procedure Set_UserID(MD number) is
  begin
    User_ID := MD;
  end;
/*****************************************************************/
  procedure Set_PCIP(MD Varchar2) is
  begin
    PCIP := MD;
  end;
/*****************************************************************/
end BatchVarOra;