1 PACKAGE BODY CNSYSP_system_parameters_PKG as
2 -- $Header: cnsysp1b.pls 120.1 2005/06/12 23:59:39 appldev $
3
4
5 /* ----------------------------------------------------------- */
6
7 PROCEDURE Populate_Fields (
8 x_set_of_books_id number,
9 x_trx_rollup_method varchar2,
10 x_usage_flag varchar2,
11 x_status varchar2,
12 x_sob_name IN OUT NOCOPY varchar2,
13 x_sob_calendar IN OUT NOCOPY varchar2,
14 x_sob_period_type IN OUT NOCOPY varchar2,
15 x_sob_currency IN OUT NOCOPY varchar2,
16 x_trx_rollup_method_string IN OUT NOCOPY varchar2,
17 x_usage_string IN OUT NOCOPY varchar2,
18 x_status_string IN OUT NOCOPY varchar2 ) IS
19
20
21 BEGIN
22
23 if (X_set_of_books_id is not null) then
24 SELECT name,
25 period_set_name,
26 accounted_period_type,
27 currency_code
28 INTO x_sob_name,
29 x_sob_calendar,
30 x_sob_period_type,
31 x_sob_currency
32 FROM gl_sets_of_books_v
33 WHERE set_of_books_id = x_set_of_books_id;
34 else
35 x_sob_name := NULL ; -- AE 08-05-95
36 x_sob_calendar := NULL ;
37 x_sob_period_type := NULL ;
38 x_sob_currency := NULL ;
39 end if;
40
41
42 if (x_trx_rollup_method is not null) then
43 SELECT meaning
44 INTO x_trx_rollup_method_string
45 FROM cn_lookups
46 WHERE LOOKUP_CODE = x_trx_rollup_method
47 AND LOOKUP_TYPE = 'TRX_ROLLUP_METHOD';
48 end if;
49
50 if (x_usage_flag is not null) then
51 SELECT meaning into x_usage_string
52 FROM cn_lookups
53 WHERE LOOKUP_CODE = x_usage_flag
54 AND LOOKUP_TYPE = 'REPOSITORY_USAGE';
55 end if;
56
57 if (x_status is not null) then
58 SELECT meaning into x_status_string
59 FROM cn_lookups
60 WHERE LOOKUP_CODE = x_status
61 AND LOOKUP_TYPE = 'REPOSITORY_STATUS';
62 end if;
63
64 end Populate_Fields;
65
66 /* ----------------------------------------------------------- */
67
68 PROCEDURE Populate_Fields_Dim_Hier (
69 x_rev_class_dimension_id IN OUT NOCOPY number,
70 x_rev_class_hierarchy_id IN OUT NOCOPY number,
71 x_rev_class_hierarchy_name IN OUT NOCOPY varchar2,
72 x_srp_rollup_dimension_id IN OUT NOCOPY number,
73 x_srp_rollup_hierarchy_id IN OUT NOCOPY number,
74 x_srp_rollup_hierarchy_name IN OUT NOCOPY varchar2) IS
75
76 BEGIN
77
78 SELECT dim.dimension_id
79 INTO x_rev_class_dimension_id
80 FROM cn_dimensions dim,
81 cn_objects obj
82 WHERE dim.source_table_id = obj.object_id
83 AND obj.name = 'CN_REVENUE_CLASSES' ;
84
85
86 /* SELECT dim.dimension_id
87 INTO x_srp_rollup_dimension_id
88 FROM cn_dimensions dim,
89 cn_objects obj
90 WHERE dim.source_table_id = obj.object_id
91 AND obj.name = 'CN_SALESREPS' ; */
92
93
94 if (x_rev_class_hierarchy_id IS NOT NULL) then
95 SELECT name
96 INTO x_rev_class_hierarchy_name
97 FROM cn_head_hierarchies
98 WHERE head_hierarchy_id = x_rev_class_hierarchy_id ;
99 else
100 x_rev_class_hierarchy_name := NULL ;
101 end if;
102
103
104 /* if (x_srp_rollup_hierarchy_id IS NOT NULL) then
105 SELECT name
106 INTO x_srp_rollup_hierarchy_name
107 FROM cn_head_hierarchies
108 WHERE head_hierarchy_id = x_srp_rollup_hierarchy_id ;
109 else
110 x_srp_rollup_hierarchy_name := NULL ;
111 end if; */
112 -- we do not use this any more.
113
114 EXCEPTION
115 WHEN No_data_found THEN null;
116 end Populate_Fields_Dim_Hier;
117
118 /* ----------------------------------------------------------- */
119
120 PROCEDURE set_defaults ( X_repository_id number,
121 X_system_batch_size IN OUT NOCOPY number,
122 X_transfer_batch_size IN OUT NOCOPY number,
123 X_clawback_grace_days IN OUT NOCOPY number,
124 X_trx_rollup_method IN OUT NOCOPY varchar2,
125 X_srp_rollup_flag IN OUT NOCOPY varchar2) IS
126 BEGIN
127
128 if ( X_system_batch_size is NULL or
129 X_system_batch_size < 5000 ) then
130
131 X_system_batch_size := 5000;
132
133 update cn_repositories
134 set system_batch_size = 5000
135 where repository_id = X_repository_id;
136 end if;
137
138 if (X_transfer_batch_size is NULL or
139 X_transfer_batch_size < 5000 ) then
140
141 X_transfer_batch_size := 5000;
142
143 update cn_repositories
144 set transfer_batch_size = 5000
145 where repository_id = X_repository_id;
146 end if;
147
148 if (X_clawback_grace_days is NULL or
149 X_clawback_grace_days < 0) then
150
151 X_clawback_grace_days := 0;
152
153 update cn_repositories
154 set clawback_grace_days = 0
155 where repository_id = X_repository_id;
156 end if;
157
158 if (X_trx_rollup_method is NULL) then
159
160 X_trx_rollup_method := 'INV';
161
162 update cn_repositories
163 set trx_rollup_method = 'INV'
164 where repository_id = X_repository_id;
165
166 end if;
167
168 if (X_srp_rollup_flag is NULL) then
169
170 X_srp_rollup_flag := 'N';
171
172 update cn_repositories
173 set srp_rollup_flag = 'N'
174 where repository_id = X_repository_id;
175
176 end if;
177
178 END set_defaults;
179
180
181 /* ----------------------------------------------------------- */
182
183 /* Block off for we are not saving last SP. 12/30/94
184
185 procedure save_to_last_sp
186 (X_repository_id number) is
187
188 begin
189
190 update cn_repositories
191 set ( last_set_of_books_id,
192 last_current_period,
193 last_system_start_period,
194 last_system_end_period,
195 last_system_batch_size,
196 last_transfer_batch_size,
197 last_clawback_grace_days,
198 last_trx_rollup_method,
199 last_srp_rollup_flag ) =
200 ( select set_of_books_id,
201 current_period,
202 system_start_period,
203 system_end_period,
204 system_batch_size,
205 transfer_batch_size,
206 clawback_grace_days,
207 trx_rollup_method,
208 srp_rollup_flag
209 from cn_repositories
210 where repository_id = X_repository_id )
211 where repository_id = X_repository_id;
212
213 end save_to_last_sp;
214
215 12/30/94 */
216
217 /* ----------------------------------------------------------- */
218
219 /* Block off for we are not saving last SP. 12/30/94
220
221 procedure restore_from_last_sp
222 (X_repository_id number) is
223
224 begin
225
226 update cn_repositories
227 set ( set_of_books_id,
228 current_period,
229 system_start_period,
230 system_end_period,
231 system_batch_size,
232 transfer_batch_size,
233 clawback_grace_days,
234 trx_rollup_method,
235 srp_rollup_flag ) =
236 ( select last_set_of_books_id,
237 last_current_period,
238 last_system_start_period,
239 last_system_end_period,
240 last_system_batch_size,
241 last_transfer_batch_size,
242 last_clawback_grace_days,
243 last_trx_rollup_method,
244 last_srp_rollup_flag
245 from cn_repositories
246 where repository_id = X_repository_id )
247 where repository_id = X_repository_id;
248
249 end restore_from_last_sp;
250
251 12/30/94 */
252
253
254 /* ----------------------------------------------------------- */
255
256 END CNSYSP_system_parameters_PKG;