PACKAGE BODY: APPS.CNREDF_TRIGGERS_PKG

Source

1 PACKAGE BODY CNREDF_triggers_PKG as
2 
3 -- $Header: cnredfdb.pls 115.0 99/07/16 07:14:10 porting ship $
4 
5   --
6   -- Procedure Name
7   --   default_row
8   -- History
9   --   12/28/93		Paul Mitchell		Created
10   --
11   PROCEDURE select_columns(	X_table_id		IN OUT	number,
12 				X_triggering_event	IN OUT	varchar2,
13 				X_table_name		IN OUT	varchar2,
14 				X_event_name		IN OUT	varchar2) IS
15 
16   BEGIN
17 
18     IF X_table_ID is NOT NULL THEN
19 
20       SELECT name
21         INTO X_table_name
22         FROM cn_obj_tables_v
23        WHERE table_id = X_table_id;
24 
25     ELSE
26       X_table_name := NULL;
27     END IF;
28 
29 
30     IF X_triggering_event is NOT NULL THEN
31       SELECT meaning
32         INTO X_event_name
33         FROM cn_lookups
34        WHERE lookup_code = X_triggering_event
35 	 AND lookup_type = 'TRIGGERING_EVENT';
36 
37     ELSE
38       X_event_name := NULL;
39     END IF;
40 
41   END select_columns;
42 
43 
44 
45   --
46   -- Procedure Name
47   --   default_row
48   -- History
49   --   12/28/93		Paul Mitchell		Created
50   --
51   PROCEDURE default_row (	X_trigger_id		IN OUT	number) IS
52 
53   BEGIN
54 
55     IF X_trigger_id is NULL THEN
56       SELECT cn_objects_s.nextval
57         INTO X_trigger_id FROM dual;
58     END IF;
59 
60   END default_row;
61 
62 
63 END CNREDF_triggers_PKG;