1 PACKAGE BODY CNREDF_event_trig_PKG as
2 -- $Header: cnredfgb.pls 115.1 99/07/16 07:14:28 porting ship $
3
4
5 --
6 -- Procedure Name
7 -- default_row
8 -- History
9 -- 12/28/93 Paul Mitchell Created
10 --
11 PROCEDURE select_columns (X_trigger_id IN OUT number,
12 X_trigger_name IN OUT varchar2,
13 X_table_name IN OUT varchar2) IS
14
15 BEGIN
16
17 SELECT trg.name, tab.name
18 INTO X_trigger_name, X_table_name
19 FROM cn_obj_triggers_v trg,
20 cn_obj_tables_v tab
21 WHERE trg.trigger_id = X_trigger_id
22 AND tab.table_id = trg.table_id;
23
24 END select_columns;
25
26
27
28 --
29 -- Procedure Name
30 -- delete_row
31 -- History
32 -- 12/28/93 Paul Mitchell Created
33 --
34 PROCEDURE delete_row (X_trigger_ID number) IS
35
36 BEGIN
37
38 UPDATE cn_obj_triggers_v
39 SET event_id = NULL
40 WHERE trigger_id = X_trigger_id;
41
42 END delete_row;
43
44 PROCEDURE Insert_Row (X_trigger_id number,
45 X_event_id number) IS
46
47 BEGIN
48
49 UPDATE cn_obj_triggers_v
50 SET event_id = X_event_id
51 WHERE trigger_id = X_trigger_id;
52
53 END Insert_Row;
54
55
56
57 --
58 -- Procedure Name
59 -- lock_row
60 -- History
61 -- 12/28/93 Paul Mitchell Created
62 --
63 PROCEDURE Lock_Row (X_trigger_id number) IS
64
65 Dumy number(15);
66
67 BEGIN
68
69 SELECT trigger_id
70 INTO Dumy
71 FROM cn_obj_triggers_v
72 WHERE trigger_id = X_trigger_ID
73 FOR UPDATE OF cn_obj_triggers_v.event_id;
74
75 END Lock_Row;
76
77
78 --
79 -- Procedure Name
80 -- default_row
81 -- History
82 -- 12/28/93 Paul Mitchell Created
83 --
84 PROCEDURE Get_Trigger_ID_Defaults (X_trigger_id number,
85 X_table_id IN OUT varchar2,
86 X_table_name IN OUT varchar2) IS
87
88 BEGIN
89
90 SELECT trg.table_id, tab.name
91 INTO X_table_id, X_table_name
92 FROM cn_obj_triggers_v trg,
93 cn_obj_tables_v tab
94 WHERE trg.trigger_id = X_trigger_id
95 AND tab.table_id = trg.table_id;
96
97 END Get_Trigger_ID_Defaults;
98
99
100 END CNREDF_event_trig_PKG;