MINI MINI MANI MO
Rem
Rem imu112.sql
Rem
Rem Copyright (c) 2010, 2016, Oracle and/or its affiliates.
Rem All rights reserved.
Rem
Rem NAME
Rem imu112.sql
Rem
Rem DESCRIPTION
Rem run as ORDSYS
Rem Internal upgrade script for Oracle Multimedia from 11.2
Rem
Rem
Rem NOTES
Rem
Rem BEGIN SQL_FILE_METADATA
Rem SQL_SOURCE_FILE: ordim/admin/imu112.sql
Rem SQL_SHIPPED_FILE: ord/im/admin/imu112.sql
Rem SQL_PHASE: CMPUPORD
Rem SQL_STARTUP_MODE: UPGRADE
Rem SQL_IGNORABLE_ERRORS: NONE
Rem SQL_CALLING_FILE: ordim/admin/imupmain.sql
Rem END SQL_FILE_METADATA
Rem
Rem MODIFIED (MM/DD/YY)
Rem smavris 12/13/16 - Add SQL_FILE_METADATA
Rem smavris 02/03/16 - Grant required privs - bug 22625773
Rem llmartin 11/19/14 - Do not drop the protocol_1_0 schema.
Rem smavris 03/02/14 - Fix usernames
Rem smavris 08/01/13 - Execute imprv.sql where it is needed
Rem smavris 07/30/13 - UPdate for 12.1 upgrade
Rem
@@?/rdbms/admin/sqlsessstart.sql
--
-- Bug 10315929 - make sure NOCOPY declaration matches in spec and body
--
begin
execute immediate 'ALTER TYPE ORDSYS.ORDImage DROP
STATIC PROCEDURE processCopy (imageBfile IN OUT BFILE,
command IN VARCHAR2,
dest IN OUT NOCOPY BLOB)
CASCADE';
end;
/
begin
execute immediate 'ALTER TYPE ORDSYS.ORDImage ADD
STATIC PROCEDURE processCopy (imageBfile IN OUT NOCOPY BFILE,
command IN VARCHAR2,
dest IN OUT NOCOPY BLOB)
CASCADE';
end;
/
begin
execute immediate 'ALTER TYPE ORDSYS.ORDVideo DROP
STATIC PROCEDURE importFrom (ctx IN OUT RAW,
local_data IN OUT BLOB,
source_type IN VARCHAR2,
source_location IN VARCHAR2,
source_name IN VARCHAR2)
CASCADE';
end;
/
begin
execute immediate 'ALTER TYPE ORDSYS.ORDVideo ADD
STATIC PROCEDURE importFrom (ctx IN OUT RAW,
local_data IN OUT NOCOPY BLOB,
source_type IN VARCHAR2,
source_location IN VARCHAR2,
source_name IN VARCHAR2)
CASCADE';
end;
/
begin
execute immediate 'ALTER TYPE ORDSYS.ORDVideo DROP
STATIC PROCEDURE importFrom (ctx IN OUT RAW,
local_data IN OUT BLOB,
source_type IN VARCHAR2,
source_location IN VARCHAR2,
source_name IN VARCHAR2,
format OUT VARCHAR2,
mime_type OUT VARCHAR2)
CASCADE';
end;
/
begin
execute immediate 'ALTER TYPE ORDSYS.ORDVideo ADD
STATIC PROCEDURE importFrom (ctx IN OUT RAW,
local_data IN OUT NOCOPY BLOB,
source_type IN VARCHAR2,
source_location IN VARCHAR2,
source_name IN VARCHAR2,
format OUT VARCHAR2,
mime_type OUT VARCHAR2)
CASCADE';
end;
/
begin
execute immediate 'ALTER TYPE ORDSYS.ORDDoc DROP
MEMBER PROCEDURE setMimeType (mime IN VARCHAR2)
CASCADE';
end;
/
begin
execute immediate 'ALTER TYPE ORDSYS.ORDDoc ADD
MEMBER PROCEDURE setMimeType (SELF IN OUT NOCOPY ORDDoc,
mime IN VARCHAR2)
CASCADE';
end;
/
begin
execute immediate 'ALTER TYPE ORDSYS.ORDDoc DROP
MEMBER PROCEDURE setMimeType (knownFormat IN VARCHAR2)
CASCADE';
end;
/
begin
execute immediate 'ALTER TYPE ORDSYS.ORDDoc ADD
MEMBER PROCEDURE setFormat (SELF IN OUT NOCOPY ORDDoc,
knownFormat IN VARCHAR2)
CASCADE';
end;
/
alter session set current_schema="SYS";
--
-- Validate obsolete, invalid older versions of our objects.
-- There is no other way to validate them. (bug 7700436)
--
begin
UPDATE sys.obj$ SET status = 1
WHERE type#=13 AND subname LIKE '%$VSN\_%' ESCAPE '\' AND status=6
AND owner# in (SELECT u.user# from sys.user$ u
WHERE u.name in ('ORDSYS', 'ORDPLUGINS',
'SI_INFORMTN_SCHEMA', 'ORDDATA'));
COMMIT;
exception
when others then
-- continue regardless
null;
end;
/
-- Need to grant privs before creating tables. It's okay if this is repeated
-- in later imu scripts because this is quick.
@@imprv.sql
alter session set current_schema="ORDSYS";
-- create DICOM tables in ORDDATA schema
begin
execute immediate 'CREATE SEQUENCE ORDDATA.ORDDCM_PROTOCOL_VERSION_SEQ NOCACHE ORDER';
execute immediate 'grant read, alter on ORDDATA.ORDDCM_PROTOCOL_VERSION_SEQ to ORDSYS';
exception
when others then
-- continue regardless
null;
end;
/
-- drop protocol table before we create
-- for beta upgrade test which already included this table
begin
execute immediate 'DROP TABLE ORDDATA.ORDDCM_PROTOCOL_ATTR_CONFIG';
exception
when others then
-- continue regardless
null;
end;
/
begin
execute immediate 'CREATE TABLE ORDDATA.ORDDCM_PROTOCOL_ATTR_CONFIG
( DOC_NAME VARCHAR2(100) NOT NULL
, COL_LOC VARCHAR2(392 CHAR) NOT NULL
, COL_TYPE VARCHAR2(30)
, DICOM_TAG VARCHAR2(8) NOT NULL
, TAG_DEFINER VARCHAR2(64)
, CONSTRAINT ORDDCM_PROTOCOL_ATTR_CONFIG_PK PRIMARY KEY(DOC_NAME,COL_LOC)
)';
execute immediate 'grant select, insert, delete on ORDDATA.ORDDCM_PROTOCOL_ATTR_CONFIG to ORDSYS';
exception
when others then
-- continue regardless
null;
end;
/
begin
execute immediate 'CREATE TABLE ORDDATA.ORDDCM_PR_ATTR_CONFIG_WRK
( DOC_NAME VARCHAR2(100) NOT NULL
, COL_LOC VARCHAR2(392 CHAR) NOT NULL
, COL_TYPE VARCHAR2(30)
, DICOM_TAG VARCHAR2(8) NOT NULL
, TAG_DEFINER VARCHAR2(64)
, CONSTRAINT ORDDCM_PR_ATTR_CONFIG_WRK_PK PRIMARY KEY(DOC_NAME,COL_LOC)
)';
execute immediate 'grant select, insert, delete on ORDDATA.ORDDCM_PR_ATTR_CONFIG_WRK to ORDSYS';
exception
when others then
-- continue regardless
null;
end;
/
begin
execute immediate 'CREATE TABLE ORDDATA.ORDDCM_PROTOCOL_VERSION_CONFIG
( DOC_NAME VARCHAR2(100) NOT NULL
, TABLE_NAME VARCHAR2(392 CHAR) NOT NULL
, COL_LOC VARCHAR2(392 CHAR)
, CONSTRAINT ORDDCM_PROTOCOL_VERS_CONFIG_PK PRIMARY KEY(DOC_NAME,TABLE_NAME)
)';
execute immediate 'grant select, insert, delete on ORDDATA.ORDDCM_PROTOCOL_VERSION_CONFIG to ORDSYS';
exception
when others then
-- continue regardless
null;
end;
/
begin
execute immediate 'CREATE TABLE ORDDATA.ORDDCM_PR_VERSION_CONFIG_WRK
( DOC_NAME VARCHAR2(100) NOT NULL
, TABLE_NAME VARCHAR2(392 CHAR) NOT NULL
, COL_LOC VARCHAR2(392 CHAR)
, CONSTRAINT ORDDCM_PR_VERSION_CONFIG_W_PK PRIMARY KEY(DOC_NAME,TABLE_NAME)
)';
execute immediate 'grant select, insert, delete on ORDDATA.ORDDCM_PR_VERSION_CONFIG_WRK to ORDSYS';
exception
when others then
-- continue regardless
null;
end;
/
-- drop protocol table before we create
-- for beta upgrade test which already included this table
begin
execute immediate 'DROP TABLE ORDDATA.ORDDCM_PROTOCOL_DICOM_CONFIG';
exception
when others then
-- continue regardless
null;
end;
/
begin
execute immediate 'CREATE TABLE ORDDATA.ORDDCM_PROTOCOL_DICOM_CONFIG
( DOC_NAME VARCHAR2(100) NOT NULL
, COL_LOC VARCHAR2(392 CHAR) NOT NULL
, COL_TYPE VARCHAR2(30)
, RETAIN NUMBER
, CONSTRAINT ORDDCM_PROTOCOL_ATTR_DICOM_PK PRIMARY KEY(DOC_NAME,COL_LOC)
)';
execute immediate 'grant select, insert, delete on ORDDATA.ORDDCM_PROTOCOL_DICOM_CONFIG to ORDSYS';
exception
when others then
-- continue regardless
null;
end;
/
begin
execute immediate 'CREATE TABLE ORDDATA.ORDDCM_PR_DICOM_CONFIG_WRK
( DOC_NAME VARCHAR2(100) NOT NULL
, COL_LOC VARCHAR2(392 CHAR) NOT NULL
, COL_TYPE VARCHAR2(30)
, RETAIN NUMBER
, CONSTRAINT ORDDCM_PR_DICOM_CONFIG_WRK_PK PRIMARY KEY(DOC_NAME,COL_LOC)
)';
execute immediate 'grant select, insert, delete on ORDDATA.ORDDCM_PR_DICOM_CONFIG_WRK to ORDSYS';
exception
when others then
-- continue regardless
null;
end;
/
begin
execute immediate 'CREATE TABLE ORDDATA.ORDDCM_PROTOCOL_PRVW_CONFIG
( DOC_NAME VARCHAR2(100) NOT NULL
, COL_LOC VARCHAR2(392 CHAR) NOT NULL
, COL_TYPE VARCHAR2(30)
, OPTIONS VARCHAR2(1000) NOT NULL
, CONSTRAINT ORDDCM_PROTOCOL_PRVW_CONFIG_PK PRIMARY KEY(DOC_NAME,COL_LOC)
)';
execute immediate 'grant select, insert, delete on ORDDATA.ORDDCM_PROTOCOL_PRVW_CONFIG to ORDSYS';
exception
when others then
-- continue regardless
null;
end;
/
begin
execute immediate 'CREATE TABLE ORDDATA.ORDDCM_PR_PRVW_CONFIG_WRK
( DOC_NAME VARCHAR2(100) NOT NULL
, COL_LOC VARCHAR2(392 CHAR) NOT NULL
, COL_TYPE VARCHAR2(30)
, OPTIONS VARCHAR2(1000) NOT NULL
, CONSTRAINT ORDDCM_PR_PRVW_CONFIG_WRK_PK PRIMARY KEY(DOC_NAME,COL_LOC)
)';
execute immediate 'grant select, insert, delete on ORDDATA.ORDDCM_PR_PRVW_CONFIG_WRK to ORDSYS';
exception
when others then
-- continue regardless
null;
end;
/
begin
execute immediate 'CREATE TABLE ORDDATA.ORDDCM_PROTOCOL_WADO_CONFIG
( DOC_NAME VARCHAR2(100) NOT NULL
, COL_LOC VARCHAR2(392 CHAR) NOT NULL
, WADO_PFX VARCHAR2(100 CHAR) NOT NULL
, CONSTRAINT ORDDCM_PROTOCOL_WADO_CONFIG_PK PRIMARY KEY(DOC_NAME,COL_LOC)
)';
execute immediate 'grant select, insert, delete on ORDDATA.ORDDCM_PROTOCOL_WADO_CONFIG to ORDSYS';
exception
when others then
-- continue regardless
null;
end;
/
begin
execute immediate 'CREATE TABLE ORDDATA.ORDDCM_PR_WADO_CONFIG_WRK
( DOC_NAME VARCHAR2(100) NOT NULL
, COL_LOC VARCHAR2(392 CHAR) NOT NULL
, WADO_PFX VARCHAR2(100 CHAR) NOT NULL
, CONSTRAINT ORDDCM_PR_WADO_CONFIG_WRK_PK PRIMARY KEY(DOC_NAME,COL_LOC)
)';
execute immediate 'grant select, insert, delete on ORDDATA.ORDDCM_PR_WADO_CONFIG_WRK to ORDSYS';
exception
when others then
-- continue regardless
null;
end;
/
begin
execute immediate 'CREATE TABLE ORDDATA.ORDDCM_PROTOCOL_XML_CONFIG
( DOC_NAME VARCHAR2(100) NOT NULL
, COL_LOC VARCHAR2(392 CHAR) NOT NULL
, CONSTRAINT ORDDCM_PROTOCOL_XML_CONFIG_PK PRIMARY KEY(DOC_NAME,COL_LOC)
)';
execute immediate 'grant select, insert, delete on ORDDATA.ORDDCM_PROTOCOL_XML_CONFIG to ORDSYS';
exception
when others then
-- continue regardless
null;
end;
/
begin
execute immediate 'CREATE TABLE ORDDATA.ORDDCM_PR_XML_CONFIG_WRK
( DOC_NAME VARCHAR2(100) NOT NULL
, COL_LOC VARCHAR2(392 CHAR) NOT NULL
, CONSTRAINT ORDDCM_PR_XML_CONFIG_WRK_PK PRIMARY KEY(DOC_NAME,COL_LOC)
)';
execute immediate 'grant select, insert, delete on ORDDATA.ORDDCM_PR_XML_CONFIG_WRK to ORDSYS';
exception
when others then
-- continue regardless
null;
end;
/
begin
execute immediate 'CREATE TABLE ORDDATA.ORDDCM_PROTOCOL_METADATA
( DOC_NAME VARCHAR2(100) NOT NULL REFERENCES ORDDATA.ORDDCM_DOCS(DOC_NAME)
, STUDY_UID VARCHAR2(128 CHAR) NOT NULL
, SERIES_UID VARCHAR2(128 CHAR) NOT NULL
, SOP_INSTANCE_UID VARCHAR2(128 CHAR) NOT NULL
, MODALITY VARCHAR2(2 CHAR) NOT NULL
, SOP_CLASS VARCHAR2(128 CHAR) NOT NULL
, AVAILABILITY VARCHAR2(8 CHAR) NOT NULL
, CONSTRAINT ORDDCM_PROTOCOL_METADATA_PK PRIMARY KEY(DOC_NAME,SOP_INSTANCE_UID)
)';
--execute immediate 'grant select, insert, delete on ORDDATA.ORDDCM_PROTOCOL_METADATA to ORDSYS';
exception
when others then
-- continue regardless
null;
end;
/
begin
execute immediate 'CREATE TABLE ORDDATA.ORDDCM_PROTOCOL_SPECIAL_TAG
( DOC_NAME VARCHAR2(100) NOT NULL
, COL_LOC VARCHAR2(392 CHAR) NOT NULL
, TAG_NAME VARCHAR2(392 CHAR) NOT NULL
, TAG_DEFINER VARCHAR2(64)
, CONSTRAINT ORDDCM_PROTOCOL_SPECIAL_TAG_PK PRIMARY KEY(DOC_NAME, COL_LOC)
)';
execute immediate 'grant select, insert, delete on ORDDATA.ORDDCM_PROTOCOL_SPECIAL_TAG to ORDSYS';
exception
when others then
-- continue regardless
null;
end;
/
begin
execute immediate 'CREATE TABLE ORDDATA.ORDDCM_PR_SPECIAL_TAG_WRK
( DOC_NAME VARCHAR2(100) NOT NULL
, COL_LOC VARCHAR2(392 CHAR) NOT NULL
, TAG_NAME VARCHAR2(392 CHAR) NOT NULL
, TAG_DEFINER VARCHAR2(64)
, CONSTRAINT ORDDCM_PR_SPECIAL_TAG_WRK_PK PRIMARY KEY(DOC_NAME, COL_LOC)
)';
execute immediate 'grant select, inesrt, delete on ORDDATA.ORDDCM_PR_SPECIAL_TAG_WRK to ORDSYS';
exception
when others then
-- continue regardless
null;
end;
/
begin
execute immediate 'CREATE TABLE ORDDATA.ORDDCM_PROTOCOL_ADMIN_DOCS
( DOC_NAME VARCHAR2(100) NOT NULL
, ADMIN_DOC_TYPE VARCHAR2(50) NOT NULL
, ADMIN_DOC_NAME VARCHAR2(100) NOT NULL
, ADMIN_DOC_OPTION VARCHAR2(50) NOT NULL
, CONSTRAINT ORDDCM_PROTOCOL_ADMIN_DOCS_PK PRIMARY KEY(DOC_NAME,ADMIN_DOC_TYPE)
)';
execute immediate 'grant select, insert, delete on ORDDATA.ORDDCM_PROTOCOL_ADMIN_DOCS to ORDSYS';
exception
when others then
-- continue regardless
null;
end;
/
begin
execute immediate 'CREATE TABLE ORDDATA.ORDDCM_PR_ADMIN_DOCS_WRK
( DOC_NAME VARCHAR2(100) NOT NULL
, ADMIN_DOC_TYPE VARCHAR2(50) NOT NULL
, ADMIN_DOC_NAME VARCHAR2(100) NOT NULL
, ADMIN_DOC_OPTION VARCHAR2(50) NOT NULL
, CONSTRAINT ORDDCM_PR_ADMIN_DOCS_WRK_PK PRIMARY KEY(DOC_NAME,ADMIN_DOC_TYPE)
)';
execute immediate 'grant select, insert, delete on ORDDATA.ORDDCM_PR_ADMIN_DOCS_WRK to ORDSYS';
exception
when others then
-- continue regardless
null;
end;
/
begin
INSERT INTO ORDDATA.orddcm_doc_types
values ( 29, 'DICOM_PROTOCOL'
, 'http://xmlns.oracle.com/ord/dicom/protocol_1_0'
, 'DICOM protocol document');
exception
when others then
-- continue regardless
null;
end;
/
alter session set current_schema=SYS;
-- revoke permission from 11 libraries from ORDSYS
call dbms_java.grant_permission
('SYS',
'SYS:oracle.aurora.rdbms.security.PolicyTablePermission',
'0:java.lang.RuntimePermission#loadLibrary.ordim11',
null);
call dbms_java.grant_permission
('SYS',
'SYS:oracle.aurora.rdbms.security.PolicyTablePermission',
'0:java.lang.RuntimePermission#loadLibrary.oraordim11',
null);
call dbms_java.revoke_permission
('ORDSYS', 'SYS:java.lang.RuntimePermission',
'loadLibrary.ordim11', '');
call dbms_java.revoke_permission
('ORDSYS', 'SYS:java.lang.RuntimePermission',
'loadLibrary.oraordim11', '');
--revoke from SYS
call dbms_java.revoke_permission
('SYS',
'SYS:oracle.aurora.rdbms.security.PolicyTablePermission',
'0:java.lang.RuntimePermission#loadLibrary.ordim11',
null);
call dbms_java.revoke_permission
('SYS',
'SYS:oracle.aurora.rdbms.security.PolicyTablePermission',
'0:java.lang.RuntimePermission#loadLibrary.oraordim11',
null);
Rem This should be at the end of the file
alter session set current_schema="ORDSYS";
Rem Invoke 12.1 script to go from 12.1 to 12.2
@@imu121.sql
@?/rdbms/admin/sqlsessend.sql
OHA YOOOO