PACKAGE BODY: APPS.CNREDF_TABLES_PKG

Source

1 PACKAGE BODY CNREDF_Tables_PKG as
2 -- $Header: cnredfbb.pls 115.1 99/07/16 07:13:59 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_table_id IN OUT number ) IS
12 
13   BEGIN
14 
15     IF X_table_id is NULL THEN
16 
17       SELECT cn_objects_s.nextval
18 	INTO X_table_id
19 	FROM dual;
20 
21     END IF;
22 
23 
24   END DEFAULT_ROW;
25 
26 
27 
28   --
29   -- Procedure Name
30   --   select_columns
31   -- History
32   --   12/28/93		Paul Mitchell		Created
33   --
34   PROCEDURE select_columns (X_table_level	IN OUT		varchar2,
35 			    X_table_level_name 	IN OUT		varchar2) IS
36 
37   BEGIN
38 
39     SELECT meaning
40       INTO X_table_level_name
41       FROM cn_lookups
42      WHERE lookup_code = X_table_level
43        AND lookup_type = 'TABLE_LEVEL';
44 
45   END select_columns;
46 
47 
48 END CNREDF_Tables_PKG;