PACKAGE BODY: APPS.CNREDF_TRIG_COLUMNS_PKG

Source

1 PACKAGE BODY CNREDF_trig_columns_PKG as
2 -- $Header: cnredfeb.pls 115.1 99/07/16 07:14:16 porting ship $
3 
4 
5   --
6   -- Procedure Name
7   --   default_row
8   -- History
9   --   12/28/93		Paul Mitchell		Created
10   --
11   PROCEDURE DEFAULT_ROW ( X_column_trigger_id IN OUT number ) IS
12 
13   BEGIN
14 
15     IF X_column_trigger_id is NULL THEN
16 
17       SELECT cn_column_trg_maps_s.nextval
18 	INTO X_column_trigger_id
19 	FROM dual;
20 
21     END IF;
22 
23   END DEFAULT_ROW;
24 
25 
26 
27   --
28   -- Procedure Name
29   --   default_row
30   -- History
31   --   12/28/93		Paul Mitchell		Created
32   --
33   PROCEDURE select_columns (X_column_id		IN OUT		number,
34 			    X_column_name 	IN OUT		varchar2) IS
35   BEGIN
36 
37     SELECT name
38       INTO X_column_name
39       FROM cn_obj_columns_v
40      WHERE column_id = X_column_id;
41 
42   END select_columns;
43 
44 
45 END CNREDF_trig_columns_PKG;