rem
rem $Header: /s/rw/994/spam/precious/files/ACTIVE/srwmmstp.sql,v 1.1 1998/11/03 07:01:32 yxia Exp $
rem
rem  Copyright (c) Oracle Corporation 1991.  All Rights Reserved, Worldwide.
rem  $Id: srwmmstp.sql,v 1.1 1998/11/03 07:01:32 yxia Exp $
rem
rem  srwmmstp.sql - Create multimedia Package.  V7.1 only
rem
rem  NOTES:
rem         These procedures are used for retrieving either images,
rem         sound or videos from the database, i.e. using the database
rem         as the source.
rem

host echo "Creating package CDE_MM..."
drop package CDE_MM;

create package CDE_MM AS
   function get_ref(table_nam VARCHAR2,col_nam VARCHAR2,row_id VARCHAR2)
        return VARCHAR2 ;	
   pragma restrict_references(get_ref, WNDS, WNPS, RNPS);

end CDE_MM;
/

create package body CDE_MM AS

   function  get_ref(table_nam VARCHAR2,col_nam VARCHAR2,row_id VARCHAR2)
          return VARCHAR2 is	
   img VARCHAR2(2000);
   begin
    img := 'get_ref' || ':' || col_nam || ':' || table_nam || ':' || row_id;
    return(img); 
   end;
end CDE_MM;
/

create public synonym CDE_MM for system.CDE_MM;

