1 PACKAGE BODY cnsytc_columns_pkg AS
2 -- $Header: cnsytccb.pls 115.1 99/07/16 07:18:56 porting ship $
3
4
5 --
6 -- Procedure Name
7 -- Populate_Fields
8 -- History
9 -- 08-06-95 Amy Erickson Created
10
11 PROCEDURE Populate_fields (x_column_id number,
12 x_dimension_id number,
13 x_dimension_name IN OUT varchar2) IS
14 BEGIN
15
16 if (x_dimension_id IS NOT NULL) then
17 SELECT name
18 INTO x_dimension_name
19 FROM cn_dimensions
20 WHERE dimension_id = x_dimension_id ;
21 else
22 x_dimension_name := NULL ;
23 end if;
24
25 END Populate_Fields;
26
27
28 --
29 -- Procedure Name
30 -- Default_Row (used by BOTH Tables and Columns)
31 -- History
32 -- 08-06-95 Amy Erickson Created
33
34 PROCEDURE Default_Row (x_object_id IN OUT number) IS
35 BEGIN
36
37 IF x_object_id IS NULL THEN
38 SELECT cn_objects_s.nextval
39 INTO x_object_id
40 FROM sys.dual ;
41 END IF;
42
43 END Default_Row;
44
45
46 --
47 -- Procedure Name
48 -- Check_Table_Name
49 -- History
50 -- 08-06-95 Amy Erickson Created
51
52 FUNCTION Check_Table_Name (x_name varchar2,
53 x_schema varchar2) RETURN number IS
54
55 x_count number := 0;
56 BEGIN
57
58 SELECT count(name)
59 INTO x_count
60 FROM cn_obj_tables_v
61 WHERE name = x_name
62 AND schema = x_schema ;
63
64 RETURN x_count;
65
66 END Check_Table_Name;
67
68 --
69 -- Procedure Name
70 -- Check_Column_Name
71 -- History
72 -- 08-06-95 Amy Erickson Created
73
74 FUNCTION Check_Column_Name (x_name varchar2,
75 x_table_id number ) RETURN number IS
76
77
78 x_count number := 0;
79 BEGIN
80
81 SELECT count(name)
82 INTO x_count
83 FROM cn_obj_columns_v
84 WHERE name = x_name
85 AND table_id = x_table_id ;
86
87 RETURN x_count;
88
89 END Check_Column_Name;
90
91
92 END cnsytc_columns_pkg;