FSN#18275

svn path=/Database/trunk/; revision=10396

CARE.SRC

@@ -4,10 +4,9 @@
 -- Copyright 2010 SG|facilitor bv.
 -- All rights reserved!
 /*
- * $Revision: 1 $
- * $Modtime: 21-07-10 19:28 $
+ * $Revision: 2 $
+ * $Modtime: 7-09-10 10:58 $
  */
-
 #include "modules.h"
 #include "comsql.h"
 
@@ -29,19 +28,17 @@ PROMPT
 
 SET LINESIZE 500
 SET ECHO ON
-#include "care_vie.src"
-#include "care_pac.src"
-#include "care_ini.src"
+#include "care\care_vie.src"
+#include "care\care_pac.src"
+#include "care\care_ini.src"
 
 COMMIT;
 
 ///////////////////////////// finally compile all views, triggers etc acc to the latest state ///////
 BEGIN DBMS_UTILITY.COMPILE_SCHEMA(USER, FALSE); END;
 /
-/*
---BEGIN fac.registerversion(_VERSIONMAJ, _VERSIONMIN, _VERSIONPATCH, '$Revision: 1 $', NULL); END;
---/
-*/
+REGISTERONCE('$Workfile: CARE.SRC $','$Revision: 2 $')
+
 COMMIT;
 ///////////////////////////// Report invalid objects, if any ///////
 SET ECHO OFF
@@ -49,9 +46,10 @@ SET LINESIZE 120
 PROMPT List of all invalid objects after Facilitor Care-Webb upgrade:
 SELECT _VERSION||' Warning: ' || object_type || ' ' || object_name || ' is ' || status
   FROM user_objects
-WHERE object_type IN ('VIEW', 'TRIGGER', 'PACKAGE', 'PROCEDURE', 'FUNCTION', 'PACKAGE BODY')
-AND status <> 'VALID'
-ORDER BY object_name;
+ WHERE object_type IN ('VIEW', 'TRIGGER', 'PACKAGE', 'PROCEDURE', 'FUNCTION', 'PACKAGE BODY')
+   AND status <> 'VALID'
+   AND UPPER(object_name) LIKE 'CARE%'
+ ORDER BY object_name;
 
 SELECT 'Care-Webb/' || USER || ' is now ' || fac.getdbversion() FROM DUAL;
 PROMPT De upgrade is gereed, controleer de LST-files.