Objectel 2.10.3.1 Migration Script Errors. (Doc ID 1370065.1)

SQL> CREATE OR REPLACE TRIGGER ProjectLogInsert BEFORE INSERT OR UPDATE OF AG2ProjectID,ObjectID ON ProjectLog FOR EACH ROW

2 DECLARE

3 cnt NUMBER;

4 status NUMBER;

5 AG2ProjectID EXCEPTION;

6 ObjectID EXCEPTION;

7 ProjectDone EXCEPTION;

8 BEGIN

9 SELECT PROJECTLOG_SEQ.NEXTVAL INTO :NEW.AG2OBJECTSEQUENCENO FROM DUAL;

10 BEGIN

11 cnt := 1;

12 SELECT projectStatus into status FROM imProject WHERE objectID = :NEW.AG2ProjectID;

13 EXCEPTION WHEN NO_DATA_FOUND THEN cnt := 0;

14 END;

15 IF cnt = 1 THEN

16 IF status = 7 or status = 8 THEN

17 raise ProjectDone;

18 END IF;

19 GOTO lbl_AG2ProjectID;

20 END IF;

21 IF cnt = 0 THEN

22 RAISE AG2ProjectID;

23 END IF;

24 <>

25 NULL;

26 SELECT COUNT(*) into cnt FROM FEPortsHierarchy WHERE objectID = :NEW.ObjectID;

27 IF cnt > 0 THEN

28 GOTO lbl_ObjectID;

29 END IF;

30 SELECT COUNT(*) into cnt FROM imNetwork WHERE objectID = :NEW.ObjectID;

31 IF cnt > 0 THEN

32 GOTO lbl_ObjectID;

33 END IF;

34 SELECT COUNT(*) into cnt FROM Hierarchy WHERE ObjectId = :NEW.ObjectID;

35 IF cnt > 0 THEN

36 GOTO lbl_ObjectID;

37 END IF;

38 SELECT COUNT(*) into cnt FROM imConnection WHERE objectID = :NEW.ObjectID;

39 IF cnt > 0 THEN

40 GOTO lbl_ObjectID;

41 END IF;

42 SELECT COUNT(*) into cnt FROM PhysicalConnection WHERE ConnectionId = :NEW.ObjectID;

43 IF cnt > 0 THEN

44 GOTO lbl_ObjectID;

45 END IF;

46 SELECT COUNT(*) into cnt FROM Services WHERE AG2ServiceID = :NEW.ObjectID;

47 IF cnt > 0 THEN

48 GOTO lbl_ObjectID;

49 END IF;

50 SELECT COUNT(*) into cnt FROM Flow WHERE AG2ObjectID = :NEW.ObjectID;

51 IF cnt > 0 THEN

52 GOTO lbl_ObjectID;

53 END IF;

54 SELECT COUNT(*) into cnt FROM Customer WHERE AG2CustomerID = :NEW.ObjectID;

55 IF cnt > 0 THEN

56 GOTO lbl_ObjectID;

57 END IF;

58 SELECT COUNT(*) into cnt FROM RHServices WHERE AG2ServiceID = :NEW.ObjectID;

59 IF cnt > 0 THEN

60 GOTO lbl_ObjectID;

61 END IF;

62 SELECT COUNT(*) into cnt FROM RHServices WHERE AG2ServiceID = :NEW.ObjectID;

63 IF cnt > 0 THEN

64 GOTO lbl_ObjectID;

65 END IF;

66 SELECT COUNT(*) into cnt FROM Association WHERE ASSOCIATIONID = :NEW.ObjectID;

67 IF cnt > 0 THEN

68 GOTO lbl_ObjectID;

69 END IF;

70 IF cnt = 0 THEN

71 RAISE ObjectID;

72 END IF;

73 <>

74 NULL;

75 EXCEPTION

76 WHEN AG2ProjectID THEN

77 raise_application_error(-20507, 'Project ID not found : '|| :old.AG2ProjectID);

78 WHEN ObjectID THEN

79 raise_application_error(-20507, 'Object ID not found: '|| :old.ObjectID);

80 WHEN ProjectDone THEN

81 raise_application_error(-20507, 'Project has been canceled or completed '|| :old.AG2ProjectID);

82 END;

83 /

Warning: Trigger created with compilation errors.