1 PACKAGE BODY CNSYIN_Columns_PKG as
2 -- $Header: cnsyinbb.pls 115.1 99/07/16 07:17:41 porting ship $
3
4
5 --
6 -- Procedure Name
7 -- select_columns
8 -- History
9 -- 01/26/94 Tony Lower 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 BEGIN
19
20 IF X_column_type is NULL THEN
21 X_column_type := 'CN';
22 END IF;
23
24 IF X_data_type is NULL THEN
25 X_data_type := 'NUMBER';
26 END IF;
27
28 SELECT lookup1.meaning, lookup2.meaning
29 INTO X_type_name, X_data_type_name
30 FROM cn_lookups lookup1, cn_lookups lookup2
31 WHERE lookup1.lookup_type = 'COLUMN_TYPE'
32 AND lookup1.lookup_code = X_column_type
33 AND lookup2.lookup_type = 'DATA_TYPE'
34 AND lookup2.lookup_code = X_data_type;
35
36 IF X_dimension_id is NOT null THEN
37 SELECT name
38 INTO X_dimension_name
39 FROM cn_dimensions
40 WHERE dimension_id = X_dimension_id;
41
42 ELSE
43 X_dimension_id := NULL;
44 END IF;
45
46 END select_columns;
47
48
49 --
50 -- Procedure Name
51 -- default_row
52 -- History
53 -- 01/26/94 Tony Lower Created
54 --
55 PROCEDURE default_row ( X_table_id IN OUT number,
56 X_position IN OUT number,
57 X_column_id IN OUT number) IS
58
59 BEGIN
60
61 IF X_column_id is NULL THEN
62
63 SELECT cn_objects_s.nextval
64 INTO X_column_id FROM dual;
65
66 END IF;
67
68 IF X_position is NULL THEN
69
70 SELECT max(position)+1
71 INTO X_position
72 FROM cn_obj_columns_v
73 WHERE table_id = X_table_id;
74
75 END IF;
76
77 END default_row;
78
79
80 END CNSYIN_Columns_PKG;