PROCEDURE: DBSNMP.MGMT_UPDATE_DB_FEATURE_LOG

Source

1 PROCEDURE mgmt_update_db_feature_log(src IN VARCHAR2)
2 AS
3     l_last_update_date mgmt_db_feature_log.last_update_date%TYPE;
4     current_date mgmt_db_feature_log.last_update_date%TYPE;
5     diff interval day(9) to second(9);
6     diff_min NUMBER;
7   BEGIN
8     current_date := SYSTIMESTAMP;
9     SELECT last_update_date
10       INTO l_last_update_date
11         FROM mgmt_db_feature_log
12         WHERE source = src;
13     diff := current_date - l_last_update_date;
14     diff_min := EXTRACT(DAY FROM diff)*24*60+EXTRACT(HOUR FROM diff)*60+EXTRACT(MINUTE FROM diff);
15     -- 2 hours 2x60=120
16     IF (diff_min > 120) THEN
17     	UPDATE mgmt_db_feature_log set last_update_date = current_date WHERE source = src;
18 	commit;
19     END IF;
20   EXCEPTION
21     when NO_DATA_FOUND then
22       BEGIN
23         INSERT INTO mgmt_db_feature_log VALUES (src, systimestamp);
24 	commit;
25       END;
26   END;