PACKAGE BODY: APPS.CN_OBJ_TRIGGERS_V_PKG

Source

1 PACKAGE BODY cn_obj_triggers_v_pkg AS
2 
3 -- $Header: cnretrgb.pls 115.0 99/07/16 07:15:20 porting ship $
4 
5 --
6 -- Public Procedures
7 --
8 
9   PROCEDURE insert_row (
10 	X_rowid		OUT		ROWID,
11 	X_trigger_id			cn_obj_triggers_v.trigger_id%TYPE,
12 	X_name				cn_obj_triggers_v.name%TYPE,
13 	X_description			cn_obj_triggers_v.description%TYPE,
14 	X_dependency_map_complete	cn_obj_triggers_v.dependency_map_complete%TYPE,
15 	X_status			cn_obj_triggers_v.status%TYPE,
16 	X_repository_id			cn_obj_triggers_v.repository_id%TYPE,
17 	X_when_clause			cn_obj_triggers_v.when_clause%TYPE,
18 	X_triggering_event		cn_obj_triggers_v.triggering_event%TYPE,
19 	X_table_id			cn_obj_triggers_v.table_id%TYPE,
20 	X_event_id			cn_obj_triggers_v.event_id%TYPE,
21 	X_for_each_row			cn_obj_triggers_v.for_each_row%TYPE,
22 	X_trigger_type			cn_obj_triggers_v.trigger_type%TYPE,
23 	X_seed_trigger_id		cn_obj_triggers_v.seed_trigger_id%TYPE) IS
24 
25     X_primary_key		cn_obj_triggers_v.trigger_id%TYPE;
26   BEGIN
27 
28     X_primary_key := X_trigger_id;
29     IF (X_primary_key IS NULL) THEN
30       SELECT cn_objects_s.NEXTVAL
31         INTO X_primary_key
32         FROM dual;
33     END IF;
34 
35     INSERT INTO cn_obj_triggers_v (
36 	trigger_id,
37 	name,
38 	description,
39 	dependency_map_complete,
40 	status,
41 	repository_id,
42 	object_type,
43 	when_clause,
44 	triggering_event,
45 	table_id,
46 	event_id,
47 	for_each_row,
48 	trigger_type,
49 	seed_trigger_id)
50       VALUES (
51 	X_primary_key,            -- AE 03-28-95
52 	X_name,
53 	X_description,
54 	X_dependency_map_complete,
55 	X_status,
56 	X_repository_id,
57 	'TRG',
58 	X_when_clause,
59 	X_triggering_event,
60 	X_table_id,
61 	X_event_id,
62 	X_for_each_row,
63 	X_trigger_type,
64 	X_seed_trigger_id);
65 
66     SELECT ROWID
67       INTO X_rowid
68       FROM cn_obj_triggers_v
69      WHERE trigger_id = X_primary_key;
70 
71     IF (SQL%NOTFOUND) THEN
72       RAISE NO_DATA_FOUND;
73     END IF;
74 
75   END insert_row;
76 
77 
78   PROCEDURE select_row (
79 	row IN OUT cn_obj_triggers_v%ROWTYPE) IS
80 
81   BEGIN
82 
83     IF (row.trigger_id IS NOT NULL) THEN
84       SELECT * INTO row
85         FROM cn_obj_triggers_v
86        WHERE cn_obj_triggers_v.trigger_id = row.trigger_id;
87     END IF;
88 
89   END select_row;
90 
91 
92 END cn_obj_triggers_v_pkg;