MINI MINI MANI MO

Rem
Rem $Header: ordim/src/server/sql/audio/formats/ordadfs.sql /main/6 2013/03/28 10:26:13 smavris Exp $
Rem
Rem ordadfs.sql
Rem
Rem Copyright (c) 1998, 2013, Oracle and/or its affiliates. 
Rem All rights reserved. 
Rem
Rem    NAME
Rem      ordadfs.sql - <one-line expansion of the name>
Rem
Rem    DESCRIPTION
Rem      <short description of component this file declares/defines>
Rem
Rem    NOTES
Rem      <other useful comments, qualifications, etc.>
Rem
Rem    MODIFIED   (MM/DD/YY)
Rem    smavris     03/26/13 - XbranchMerge smavris_bug-16473669 from
Rem                           st_ordim_12.1.0
Rem    smavris     03/15/13 - Common start and end scripts
Rem    fechen      06/21/04 - Remove deprecated methods 
Rem    smavris     04/11/01 - Update copyright
Rem    dmullen     07/23/99 - Fix temp lob leak
Rem    wklee       06/24/99 - annotator implementation
Rem    rchatter    11/16/98 - making ctx IN OUT
Rem    alsrivas    09/02/98 - fixing getAllAttributes
Rem    alsrivas    08/27/98 - adding NOCOPY stuff
Rem    alsrivas    06/11/98 - updating process
Rem    alsrivas    06/10/98 - updating getAllAttributes
Rem    alsrivas    05/25/98 - changing procesAudioCommand to processCommand
Rem    alsrivas    05/14/98 - adding code
Rem    alsrivas    05/11/98 - ORD Audio Default Format Specification
Rem    alsrivas    05/11/98 - Created
Rem

@@?/rdbms/admin/sqlsessstart.sql

CREATE OR REPLACE PACKAGE ORDX_DEFAULT_AUDIO 
authid current_user
AS
 
  --AUDIO ATTRIBUTES ACCESSORS
  PROCEDURE setProperties(ctx IN OUT RAW, 
                          obj IN OUT NOCOPY ORDSYS.ORDAudio,
                          setComments IN NUMBER := 0);
  FUNCTION checkProperties(ctx IN OUT RAW, obj IN OUT NOCOPY ORDSYS.ORDAudio) 
                   RETURN NUMBER;

  FUNCTION  getAttribute(ctx IN OUT RAW,
                         obj IN ORDSYS.ORDAudio,
                         name IN VARCHAR2) RETURN VARCHAR2;
  -- must return name=value; name=value; ...  pairs
  PROCEDURE getAllAttributes(ctx IN OUT RAW,
                             obj IN ORDSYS.ORDAudio,
                             attributes IN OUT NOCOPY CLOB);
 
  -- AUDIO PROCESSING METHODS
  FUNCTION  processCommand(
                                 ctx       IN OUT RAW,
                                 obj       IN OUT NOCOPY ORDSYS.ORDAudio,
                                 cmd       IN VARCHAR2,
                                 arguments IN VARCHAR2,
                                 result OUT RAW)
             RETURN RAW;

  PRAGMA RESTRICT_REFERENCES(getAttribute, WNDS, WNPS, RNDS, RNPS);
 
END;
/
show errors;


@?/rdbms/admin/sqlsessend.sql