1 PACKAGE BODY CNREDF_columns_PKG as
2 -- $Header: cnredfcb.pls 115.1 99/07/16 07:14:04 porting ship $
3
4
5 --
6 -- Procedure Name
7 -- select_columns
8 -- History
9 -- 12/28/93 Paul Mitchell Created
10 --
11 PROCEDURE select_columns( X_data_type IN OUT varchar2,
12 X_column_type IN OUT varchar2,
13 X_dimension_id IN OUT number,
14 X_data_type_name IN OUT varchar2,
15 X_type_name IN OUT varchar2,
16 X_dimension_name IN OUT varchar2) IS
17
18
19 BEGIN
20
21 IF X_column_type is NULL THEN
22 X_column_type := 'CN';
23 END IF;
24
25 IF X_data_type is NULL THEN
26 X_data_type := 'NUMBER';
27 END IF;
28
29 SELECT lookup1.meaning, lookup2.meaning
30 INTO X_type_name,
31 X_data_type_name
32 FROM cn_lookups lookup1,
33 cn_lookups lookup2
34 WHERE lookup1.lookup_type = 'COLUMN_TYPE'
35 AND lookup1.lookup_code = X_column_type
36 AND lookup2.lookup_type = 'DATA_TYPE'
37 AND lookup2.lookup_code = X_data_type;
38
39 IF X_dimension_id is NOT null THEN
40 SELECT name
41 INTO X_dimension_name
42 FROM cn_dimensions
43 WHERE dimension_id = X_dimension_id;
44
45 ELSE
46 X_dimension_id := NULL;
47 END IF;
48
49 END select_columns;
50
51
52
53 --
54 -- Procedure Name
55 -- default_row
56 -- History
57 -- 12/28/93 Paul Mitchell Created
58 --
59 PROCEDURE default_row ( X_column_id IN OUT number) IS
60
61 BEGIN
62
63 IF X_column_id is NULL THEN
64 SELECT cn_objects_s.nextval
65 INTO X_column_id FROM dual;
66 END IF;
67
68 END default_row;
69
70
71 END CNREDF_columns_PKG;
[Home] [Help]