eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

SYS.VALIDATE_ORDIM dependencies on DBMS_OUTPUT

Line 39: dbms_output.put_line('ORDIM created ' || l_num_objects || ' objects.');

35: ;
36:
37: if ( l_num_objects != 12 ) then
38: b_valid := FALSE;
39: dbms_output.put_line('ORDIM created ' || l_num_objects || ' objects.');
40: dbms_output.put_line('The following objects are not created:');
41:
42: for r in (
43: (

Line 40: dbms_output.put_line('The following objects are not created:');

36:
37: if ( l_num_objects != 12 ) then
38: b_valid := FALSE;
39: dbms_output.put_line('ORDIM created ' || l_num_objects || ' objects.');
40: dbms_output.put_line('The following objects are not created:');
41:
42: for r in (
43: (
44: select 'ORDIMAGE' name from dual

Line 81: dbms_output.put_line(r.name);

77: 'SI_COLORHISTOGRAM', 'SI_POSITIONALCOLOR', 'SI_TEXTURE',
78: 'SI_FEATURELIST'
79: )
80: ) ) loop
81: dbms_output.put_line(r.name);
82: end loop;
83:
84: end if;
85:

Line 89: dbms_output.put_line('ORDIM objects are not created.');

85:
86: exception
87: WHEN NO_DATA_FOUND THEN
88: b_valid := FALSE;
89: dbms_output.put_line('ORDIM objects are not created.');
90:
91: WHEN OTHERS THEN
92: b_valid := FALSE;
93: err_code := SQLCODE;

Line 95: DBMS_OUTPUT.put_line('In validate_ordim OTHER EXCEPTION happens: Error code ' || err_code || ': ' || err_msg);

91: WHEN OTHERS THEN
92: b_valid := FALSE;
93: err_code := SQLCODE;
94: err_msg := SUBSTR(SQLERRM, 1 , 100);
95: DBMS_OUTPUT.put_line('In validate_ordim OTHER EXCEPTION happens: Error code ' || err_code || ': ' || err_msg);
96: end;
97:
98: -- Now check whether Multimedia java classes are loaded
99: -- The following jars are checked:

Line 119: dbms_output.put_line('The following ORDIM Java libs are not loaded correctly:');

115: ;
116:
117: if ( l_num_classes != 6 ) then
118: b_valid := FALSE;
119: dbms_output.put_line('The following ORDIM Java libs are not loaded correctly:');
120:
121: for r in (
122: (
123: select 'javax/media/jai/JAI' name, 'jai_core.jar' jar from dual

Line 156: dbms_output.put_line(r.jar);

152: 'oracle/ord/dicom/attr/DicomAttrTag',
153: 'oracle/ord/media/annotator/servclt/AnnCltInServer'
154: )
155: ) ) loop
156: dbms_output.put_line(r.jar);
157: end loop;
158: end if;
159:
160: exception

Line 163: dbms_output.put_line('ORDIM java classes are not loaded.');

159:
160: exception
161: WHEN NO_DATA_FOUND THEN
162: b_valid := FALSE;
163: dbms_output.put_line('ORDIM java classes are not loaded.');
164:
165: WHEN OTHERS THEN
166: b_valid := FALSE;
167: err_code := SQLCODE;

Line 169: DBMS_OUTPUT.put_line('In validate_ordim OTHER EXCEPTION happens: Error code ' || err_code || ': ' || err_msg);

165: WHEN OTHERS THEN
166: b_valid := FALSE;
167: err_code := SQLCODE;
168: err_msg := SUBSTR(SQLERRM, 1 , 100);
169: DBMS_OUTPUT.put_line('In validate_ordim OTHER EXCEPTION happens: Error code ' || err_code || ': ' || err_msg);
170: end;
171:
172:
173: -- Now check whether there are invalid objects

Line 194: dbms_output.put_line ('ORDIM INVALID OBJECTS: ' || ob.object_name || ' - ' || ob.status || ' - ' || ob.object_type);

190: OR o.owner = 'ORDPLUGINS'
191: OR o.owner = 'SI_INFORMTN_SCHEMA'
192: OR o.owner = 'ORDDATA')
193: AND rownum < 20) LOOP
194: dbms_output.put_line ('ORDIM INVALID OBJECTS: ' || ob.object_name || ' - ' || ob.status || ' - ' || ob.object_type);
195: END LOOP;
196:
197: EXCEPTION
198: WHEN NO_DATA_FOUND THEN

Line 206: DBMS_OUTPUT.put_line('In validate_ordim OTHER EXCEPTION happens: Error code ' || err_code || ': ' || err_msg);

202: WHEN OTHERS THEN
203: b_valid := FALSE;
204: err_code := SQLCODE;
205: err_msg := SUBSTR(SQLERRM, 1 , 100);
206: DBMS_OUTPUT.put_line('In validate_ordim OTHER EXCEPTION happens: Error code ' || err_code || ': ' || err_msg);
207: END;
208:
209: -- Now check whether XML schemas are registered
210: begin

Line 239: dbms_output.put_line('ORDIM registered ' || l_num_schemas || ' XML schemas.');

235: ;
236:
237: if ( l_num_schemas != 19 ) then
238: b_valid := FALSE;
239: dbms_output.put_line('ORDIM registered ' || l_num_schemas || ' XML schemas.');
240: dbms_output.put_line('The following XML schemas are not registered:');
241:
242: for r in (
243: (

Line 240: dbms_output.put_line('The following XML schemas are not registered:');

236:
237: if ( l_num_schemas != 19 ) then
238: b_valid := FALSE;
239: dbms_output.put_line('ORDIM registered ' || l_num_schemas || ' XML schemas.');
240: dbms_output.put_line('The following XML schemas are not registered:');
241:
242: for r in (
243: (
244: select 'http://xmlns.oracle.com/ord/meta/ordimage' schema_url from dual

Line 309: dbms_output.put_line(r.schema_url);

305: 'http://xmlns.oracle.com/ord/dicom/orddicom_1_0',
306: 'http://xmlns.oracle.com/ord/dicom/UIDdefinition_1_0'
307: )
308: ) ) loop
309: dbms_output.put_line(r.schema_url);
310: end loop;
311:
312: end if;
313:

Line 317: dbms_output.put_line('ORDIM XML schemas are not registered.');

313:
314: exception
315: WHEN NO_DATA_FOUND THEN
316: b_valid := FALSE;
317: dbms_output.put_line('ORDIM XML schemas are not registered.');
318:
319: WHEN OTHERS THEN
320: b_valid := FALSE;
321: err_code := SQLCODE;

Line 323: DBMS_OUTPUT.put_line('In validate_ordim OTHER EXCEPTION happens: Error code ' || err_code || ': ' || err_msg);

319: WHEN OTHERS THEN
320: b_valid := FALSE;
321: err_code := SQLCODE;
322: err_msg := SUBSTR(SQLERRM, 1 , 100);
323: DBMS_OUTPUT.put_line('In validate_ordim OTHER EXCEPTION happens: Error code ' || err_code || ': ' || err_msg);
324: end;
325:
326: -- Now check whether default documents are inserted into the DICOM repository
327: begin

Line 345: dbms_output.put_line('ORDIM DICOM repository has ' || l_num_docs || ' documents.');

341: ;
342:
343: if ( l_num_docs != 9 ) then
344: b_valid := FALSE;
345: dbms_output.put_line('ORDIM DICOM repository has ' || l_num_docs || ' documents.');
346: dbms_output.put_line('The following default DICOM repository documents are not installed:');
347:
348: for r in (
349: (

Line 346: dbms_output.put_line('The following default DICOM repository documents are not installed:');

342:
343: if ( l_num_docs != 9 ) then
344: b_valid := FALSE;
345: dbms_output.put_line('ORDIM DICOM repository has ' || l_num_docs || ' documents.');
346: dbms_output.put_line('The following default DICOM repository documents are not installed:');
347:
348: for r in (
349: (
350: select 'ordcman.xml' doc_name from dual

Line 384: dbms_output.put_line(r.doc_name);

380: 'ordcmsd.xml',
381: 'ordcmui.xml'
382: )
383: ) ) loop
384: dbms_output.put_line(r.doc_name);
385: end loop;
386:
387: end if;
388:

Line 392: dbms_output.put_line('ORDIM default DICOM repository documents are not installed.');

388:
389: exception
390: WHEN NO_DATA_FOUND THEN
391: b_valid := FALSE;
392: dbms_output.put_line('ORDIM default DICOM repository documents are not installed.');
393:
394: WHEN OTHERS THEN
395: b_valid := FALSE;
396: err_code := SQLCODE;

Line 398: DBMS_OUTPUT.put_line('In validate_ordim OTHER EXCEPTION happens: Error code ' || err_code || ': ' || err_msg);

394: WHEN OTHERS THEN
395: b_valid := FALSE;
396: err_code := SQLCODE;
397: err_msg := SUBSTR(SQLERRM, 1 , 100);
398: DBMS_OUTPUT.put_line('In validate_ordim OTHER EXCEPTION happens: Error code ' || err_code || ': ' || err_msg);
399: end;
400:
401: -- Now check whether DICOM ORDADMIN role is created
402: begin

Line 408: dbms_output.put_line('ORDIM DICOM administrator role ORDADMIN is not created.');

404: WHERE type# = 0 and name = 'ORDADMIN';
405:
406: if ( l_num_roles != 1 ) then
407: b_valid := FALSE;
408: dbms_output.put_line('ORDIM DICOM administrator role ORDADMIN is not created.');
409: end if;
410:
411: exception
412: when no_data_found then

Line 414: dbms_output.put_line('ORDIM DICOM administrator role ORDADMIN is not created.');

410:
411: exception
412: when no_data_found then
413: b_valid := FALSE;
414: dbms_output.put_line('ORDIM DICOM administrator role ORDADMIN is not created.');
415:
416: when others then
417: b_valid := FALSE;
418: err_code := SQLCODE;

Line 420: DBMS_OUTPUT.put_line('In validate_ordim OTHER EXCEPTION happens: Error code ' || err_code || ': ' || err_msg);

416: when others then
417: b_valid := FALSE;
418: err_code := SQLCODE;
419: err_msg := SUBSTR(SQLERRM, 1 , 100);
420: DBMS_OUTPUT.put_line('In validate_ordim OTHER EXCEPTION happens: Error code ' || err_code || ': ' || err_msg);
421: end;
422:
423: -- Check whether Locator is valid if SDO is not installed or is OPTION OFF
424: -- by checking whether there are invalid objects under MDSYS

Line 442: dbms_output.put_line ('Locator INVALID OBJECTS: ' || ob.object_name || ' - ' || ob.status || ' - ' || ob.object_type);

438: FROM sys.dba_invalid_objects o
439: WHERE
440: o.owner = 'MDSYS'
441: AND rownum < 20) LOOP
442: dbms_output.put_line ('Locator INVALID OBJECTS: ' || ob.object_name || ' - ' || ob.status || ' - ' || ob.object_type);
443: END LOOP;
444: end if;
445:
446: EXCEPTION

Line 455: DBMS_OUTPUT.put_line('In validate_ordim OTHER EXCEPTION happens: Error code ' || err_code || ': ' || err_msg);

451: WHEN OTHERS THEN
452: b_valid := FALSE;
453: err_code := SQLCODE;
454: err_msg := SUBSTR(SQLERRM, 1 , 100);
455: DBMS_OUTPUT.put_line('In validate_ordim OTHER EXCEPTION happens: Error code ' || err_code || ': ' || err_msg);
456: END;
457:
458: --
459: -- verify that data from ordsys has been moved to orddata

Line 489: dbms_output.put_line('ORDSYS DICOM repos: '

485: ''ordcmsd.xml'',
486: ''ordcmui.xml''
487: );';
488: if (l_num_docs <> 9 ) then
489: dbms_output.put_line('ORDSYS DICOM repos: '
490: || 'expected: 9 got: '
491: || l_num_docs || ' default docs');
492: end if;
493:

Line 496: dbms_output.put_line('ORDSYS DICOM repository documents are not installed.');

492: end if;
493:
494: exception
495: WHEN NO_DATA_FOUND THEN
496: dbms_output.put_line('ORDSYS DICOM repository documents are not installed.');
497:
498: WHEN OTHERS THEN
499: err_code := SQLCODE;
500: err_msg := SUBSTR(SQLERRM, 1 , 100);

Line 501: DBMS_OUTPUT.put_line('In validate_ordim OTHER EXCEPTION happens: Error code ' || err_code || ': ' || err_msg);

497:
498: WHEN OTHERS THEN
499: err_code := SQLCODE;
500: err_msg := SUBSTR(SQLERRM, 1 , 100);
501: DBMS_OUTPUT.put_line('In validate_ordim OTHER EXCEPTION happens: Error code ' || err_code || ': ' || err_msg);
502: end;
503:
504:
505: BEGIN

Line 512: dbms_output.put_line(''ORDSYS doc: ''

508: --
509: l_dsql_block := 'BEGIN
510: for cur in (select doc_name from ordsys.orddcm_docs
511: minus select doc_name from orddata.orddcm_docs) loop
512: dbms_output.put_line(''ORDSYS doc: ''
513: || cur.doc_name || '' not in ORDDATA'');
514: end loop;
515: end;';
516:

Line 522: dbms_output.put_line(''ORDData doc: ''

518:
519: l_dsql_block := 'BEGIN
520: for cur in ( select doc_name from orddata.orddcm_docs
521: minus select doc_name from ordsys.orddcm_docs) loop
522: dbms_output.put_line(''ORDData doc: ''
523: || cur.doc_name || '' not in ORDSYS'');
524: end loop;
525: END;';
526:

Line 536: DBMS_OUTPUT.put_line('In validate_ordim OTHER EXCEPTION happens: Error code ' || err_code || ': ' || err_msg);

532: WHEN OTHERS THEN
533: b_valid := FALSE;
534: err_code := SQLCODE;
535: err_msg := SUBSTR(SQLERRM, 1 , 100);
536: DBMS_OUTPUT.put_line('In validate_ordim OTHER EXCEPTION happens: Error code ' || err_code || ': ' || err_msg);
537: END;
538: end if;
539:
540: END;

Line 549: dbms_output.put_line

545: b_upgradeMode := sys.dbms_registry.is_in_upgrade_mode();
546: if b_upgradeMode then
547: l_num_errors := sys.dbms_registry.count_errors_in_registry('ORDIM');
548: if (l_num_errors > 0) then
549: dbms_output.put_line
550: ('There were ' || l_num_errors ||
551: ' entries in sys.registry$error for ORDIM');
552: b_valid := FALSE;
553: end if;