create or replace package efnow070$gttd is

   type NBT_REC is record
      ( UI_VALID_FROM       varchar2(24000)
      , UI_VALID_UNTIL      varchar2(24000)
      , UI_HYPERLINK        varchar2(24000)
      , L_CUST_CODE         CUSTOMERS.CODE%type
      );

   NBT_VAL    NBT_REC;
   CURR_VAL   CONTRACTS%rowtype;


   procedure Startup(
             Z_DIRECT_CALL in boolean default false,
             Z_CHK in varchar2 default null,
             Z_FORM in varchar2 default null);
   procedure QueryList(
             Z_START in varchar2 default null,
             Z_ACTION in varchar2 default null,
             Z_DIRECT_CALL in boolean default false,
             Z_CHK in varchar2 default null );
   function QueryHits return number;
   procedure LoadCache
             ( Z_CURR_DEPTH       in number
             , Z_MAX_DEPTH        in number
             , Z_OWN_ROW_VALUES   in boolean             default false
             , Z_CONTEXT_FOR      in WSGOC.COMPONENT_REF default null
             , Z_BRANCH           in WSGOC.BRANCH_REF    default null
             );
   function RestoreState
             ( Z_CURR_DEPTH          in number
             , Z_MAX_DEPTH           in number
             , Z_RESTORE_OWN_ROW     in boolean default true
             )  return boolean;
   procedure SaveState;
   function  GetRef return WSGOC.COMPONENT_REF;


   procedure InitialiseDomain(P_ALIAS in varchar2);

   procedure calendar
     (
      Z_FIELD_NAME   in varchar2,
      Z_CALLER_URL   in varchar2,
      Z_FIELD_VALUE  in varchar2 default null,
      Z_FIELD_FORMAT in varchar2 default null,
      Z_FIELD_PROMPT in varchar2 default null
     );

   procedure format_cal_date
     (
      Z_FIELD_NAME   in Varchar2,
      Z_FIELD_FORMAT in varchar2,
      day            in varchar2,
      month          in varchar2,
      year           in varchar2
     );

   D_STATUS              WSGL.typDVRecord;FUNCTION FormatDate ( p_date IN VARCHAR2 ) RETURN VARCHAR2;

PROCEDURE get_template ( p_temp_id IN VARCHAR2 );


end;
/