[Home] [Help]
PACKAGE BODY: APPS.OKS_INSERT_ROW_UPG
Source
1 PACKAGE BODY OKS_Insert_Row_Upg AS
2 /* $Header: OKSCOVUB.pls 120.0 2005/05/25 17:40:38 appldev noship $ */
3
4
5 l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
6
7 PROCEDURE INSERT_ROW_UPG_CTZV_TBL
8 (x_return_status OUT NOCOPY VARCHAR2,
9 P_CTZV_TBL OKS_CTZ_PVT.OksCoverageTimezonesVTblType) IS
10
11 l_tabsize NUMBER := P_CTZV_TBL.COUNT;
12 l_source_lang VARCHAR2(12) := okc_util.get_userenv_lang;
13 In_ID OKC_DATATYPES.NumberTabTyp;
14 In_CLE_ID OKC_DATATYPES.NumberTabTyp;
15 In_DEFAULT_YN OKC_DATATYPES.VAR3TabTyp;
16 In_TIMEZONE_ID OKC_DATATYPES.NumberTabTyp;
17 In_DNZ_CHR_ID OKC_DATATYPES.NumberTabTyp;
18 In_CREATED_BY OKC_DATATYPES.NumberTabTyp;
19 In_CREATION_DATE OKC_DATATYPES.DateTabTyp;
20 In_LAST_UPDATED_BY OKC_DATATYPES.NumberTabTyp;
21 In_LAST_UPDATE_DATE OKC_DATATYPES.DateTabTyp;
22 In_LAST_UPDATE_LOGIN OKC_DATATYPES.NumberTabTyp;
23 In_SECURITY_GROUP_ID OKC_DATATYPES.NumberTabTyp;
24 In_PROGRAM_APPLICATION_ID OKC_DATATYPES.NumberTabTyp;
25 In_PROGRAM_ID OKC_DATATYPES.NumberTabTyp;
26 In_PROGRAM_UPDATE_DATE OKC_DATATYPES.DateTabTyp;
27 In_REQUEST_ID OKC_DATATYPES.NumberTabTyp;
28 In_OBJECT_VERSION_NUMBER OKC_DATATYPES.NumberTabTyp;
29 i NUMBER := P_CTZV_TBL.FIRST;
30 j NUMBER := 0;
31
32 BEGIN
33 x_return_status := OKC_API.G_RET_STS_SUCCESS;
34 IF (l_debug = 'Y') THEN
35 okc_debug.Set_Indentation('OKS_CTZ_PVT');
36 okc_debug.log('23400: Entered INSERT_ROW_UPG', 2);
37 END IF;
38
39 WHILE i IS NOT NULL LOOP
40
41 j := j +1;
42 In_ID(j) := P_CTZV_TBL(i).ID;
43 In_CLE_ID(j) := P_CTZV_TBL(i).CLE_ID;
44 In_DEFAULT_YN(j) := P_CTZV_TBL(i).DEFAULT_YN;
45 In_TIMEZONE_ID(j) := P_CTZV_TBL(i).TIMEZONE_ID;
46 In_DNZ_CHR_ID(j) := P_CTZV_TBL(i).DNZ_CHR_ID;
47 In_CREATED_BY(j) := P_CTZV_TBL(i).CREATED_BY;
48 In_CREATION_DATE(j) := P_CTZV_TBL(i).CREATION_DATE;
49 In_LAST_UPDATED_BY(j) := P_CTZV_TBL(i).LAST_UPDATED_BY;
50 In_LAST_UPDATE_DATE(j) := P_CTZV_TBL(i).LAST_UPDATE_DATE;
51 In_LAST_UPDATE_LOGIN(j) := P_CTZV_TBL(i).LAST_UPDATE_LOGIN;
52 In_SECURITY_GROUP_ID(j) := P_CTZV_TBL(i).SECURITY_GROUP_ID;
53 In_PROGRAM_APPLICATION_ID(j):= P_CTZV_TBL(i).PROGRAM_APPLICATION_ID;
54 In_PROGRAM_ID(j) := P_CTZV_TBL(i).PROGRAM_ID;
55 In_PROGRAM_UPDATE_DATE(j) := P_CTZV_TBL(i).PROGRAM_UPDATE_DATE;
56 In_REQUEST_ID(j) := P_CTZV_TBL(i).REQUEST_ID;
57 In_OBJECT_VERSION_NUMBER(j) := P_CTZV_TBL(i).OBJECT_VERSION_NUMBER;
58
59 i :=P_CTZV_TBL.NEXT(i);
60
61 END LOOP;
62
63 FORALL i in 1..l_tabsize
64 INSERT INTO oks_coverage_timezones (
65 ID,
66 CLE_ID,
67 DEFAULT_YN,
68 TIMEZONE_ID,
69 DNZ_CHR_ID,
70 CREATED_BY,
71 CREATION_DATE,
72 LAST_UPDATED_BY,
73 LAST_UPDATE_DATE,
74 LAST_UPDATE_LOGIN,
75 SECURITY_GROUP_ID,
76 PROGRAM_APPLICATION_ID,
77 PROGRAM_ID,
78 PROGRAM_UPDATE_DATE,
79 REQUEST_ID,
80 OBJECT_VERSION_NUMBER)
81 VALUES (
82 in_ID(i),
83 in_CLE_ID(i),
84 in_DEFAULT_YN(i),
85 in_TIMEZONE_ID(i),
86 in_DNZ_CHR_ID(i),
87 in_CREATED_BY(i),
88 in_CREATION_DATE(i),
89 in_LAST_UPDATED_BY(i),
90 in_LAST_UPDATE_DATE(i),
91 in_LAST_UPDATE_LOGIN(i),
92 in_SECURITY_GROUP_ID(i),
93 in_PROGRAM_APPLICATION_ID(i),
94 in_PROGRAM_ID(i),
95 in_PROGRAM_UPDATE_DATE(i),
96 in_REQUEST_ID(i),
97 in_OBJECT_VERSION_NUMBER(i));
98
99 IF (l_debug = 'Y') THEN
100 okc_debug.log('23500: Exiting INSERT_ROW_UPG', 2);
101 okc_debug.Reset_Indentation;
102 END IF;
103
104 EXCEPTION
105 WHEN OTHERS THEN
106 IF (l_debug = 'Y') THEN
107 okc_debug.log('23600: Exiting INSERT_ROW_UPG:OTHERS Exception', 2);
108 okc_debug.Reset_Indentation;
109 END IF;
110
111 OKC_API.SET_MESSAGE(
112 p_app_name => G_APP_NAME,
113 p_msg_name => G_UNEXPECTED_ERROR,
114 p_token1 => G_SQLCODE_TOKEN,
115 p_token1_value => SQLCODE,
116 p_token2 => G_SQLERRM_TOKEN,
117 p_token2_value => SQLERRM);
118
119 x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
120
121 END INSERT_ROW_UPG_CTZV_TBL;
122
123
124 PROCEDURE INSERT_ROW_UPG_CVTV_TBL
125 (x_return_status OUT NOCOPY VARCHAR2,
126 P_CVTV_TBL OKS_CVT_PVT.oks_coverage_times_v_tbl_type) IS
127
128 l_tabsize NUMBER := P_CVTV_TBL.COUNT;
129 l_source_lang VARCHAR2(12) := okc_util.get_userenv_lang;
130 In_ID OKC_DATATYPES.NumberTabTyp;
131 In_COV_TZE_LINE_ID OKC_DATATYPES.NumberTabTyp;
132 In_DNZ_CHR_ID OKC_DATATYPES.NumberTabTyp;
133 In_START_HOUR OKC_DATATYPES.NumberTabTyp;
134 In_START_MINUTE OKC_DATATYPES.NumberTabTyp;
135 In_END_HOUR OKC_DATATYPES.NumberTabTyp;
136 In_END_MINUTE OKC_DATATYPES.NumberTabTyp;
137 In_MONDAY_YN OKC_DATATYPES.VAR3TabTyp;
138 In_TUESDAY_YN OKC_DATATYPES.VAR3TabTyp;
139 In_WEDNESDAY_YN OKC_DATATYPES.VAR3TabTyp;
140 In_THURSDAY_YN OKC_DATATYPES.VAR3TabTyp;
141 In_FRIDAY_YN OKC_DATATYPES.VAR3TabTyp;
142 In_SATURDAY_YN OKC_DATATYPES.VAR3TabTyp;
143 In_SUNDAY_YN OKC_DATATYPES.VAR3TabTyp;
144 In_CREATED_BY OKC_DATATYPES.NumberTabTyp;
145 In_CREATION_DATE OKC_DATATYPES.DateTabTyp;
146 In_LAST_UPDATED_BY OKC_DATATYPES.NumberTabTyp;
147 In_LAST_UPDATE_DATE OKC_DATATYPES.DateTabTyp;
148 In_LAST_UPDATE_LOGIN OKC_DATATYPES.NumberTabTyp;
149 In_SECURITY_GROUP_ID OKC_DATATYPES.NumberTabTyp;
150 In_PROGRAM_APPLICATION_ID OKC_DATATYPES.NumberTabTyp;
151 In_PROGRAM_ID OKC_DATATYPES.NumberTabTyp;
152 In_PROGRAM_UPDATE_DATE OKC_DATATYPES.DateTabTyp;
153 In_REQUEST_ID OKC_DATATYPES.NumberTabTyp;
154 In_OBJECT_VERSION_NUMBER OKC_DATATYPES.NumberTabTyp;
155 i NUMBER := P_CVTV_TBL.FIRST;
156 j NUMBER := 0;
157
158 BEGIN
159 x_return_status := OKC_API.G_RET_STS_SUCCESS;
160 IF (l_debug = 'Y') THEN
161 okc_debug.Set_Indentation('OKS_CVT_PVT');
162 okc_debug.log('23400: Entered INSERT_ROW_UPG', 2);
163 END IF;
164
165 WHILE i IS NOT NULL LOOP
166 j := j +1;
167 In_ID(j) := P_CVTV_TBL(i).ID;
168 In_COV_TZE_LINE_ID(j) := P_CVTV_TBL(i).COV_TZE_LINE_ID;
169 In_DNZ_CHR_ID(j) := P_CVTV_TBL(i).DNZ_CHR_ID;
170 In_START_HOUR(j) := P_CVTV_TBL(i).START_HOUR;
171 In_START_MINUTE(j) := P_CVTV_TBL(i).START_MINUTE;
172 In_END_HOUR(j) := P_CVTV_TBL(i).END_HOUR;
173 In_END_MINUTE(j) := P_CVTV_TBL(i).END_MINUTE;
174 In_MONDAY_YN(j) := P_CVTV_TBL(i).MONDAY_YN;
175 In_TUESDAY_YN(j) := P_CVTV_TBL(i).TUESDAY_YN;
176 In_WEDNESDAY_YN(j) := P_CVTV_TBL(i).WEDNESDAY_YN;
177 In_THURSDAY_YN(j) := P_CVTV_TBL(i).THURSDAY_YN;
178 In_FRIDAY_YN(j) := P_CVTV_TBL(i).FRIDAY_YN;
179 In_SATURDAY_YN(j) := P_CVTV_TBL(i).SATURDAY_YN;
180 In_SUNDAY_YN(j) := P_CVTV_TBL(i).SUNDAY_YN;
181 In_CREATED_BY(j) := P_CVTV_TBL(i).CREATED_BY;
182 In_CREATION_DATE(j) := P_CVTV_TBL(i).CREATION_DATE;
183 In_LAST_UPDATED_BY(j) := P_CVTV_TBL(i).LAST_UPDATED_BY;
184 In_LAST_UPDATE_DATE(j) := P_CVTV_TBL(i).LAST_UPDATE_DATE;
185 In_LAST_UPDATE_LOGIN(j) := P_CVTV_TBL(i).LAST_UPDATE_LOGIN;
186 In_SECURITY_GROUP_ID(j) := P_CVTV_TBL(i).SECURITY_GROUP_ID;
187 In_PROGRAM_APPLICATION_ID(j):= P_CVTV_TBL(i).PROGRAM_APPLICATION_ID;
188 In_PROGRAM_ID(j) := P_CVTV_TBL(i).PROGRAM_ID;
189 In_PROGRAM_UPDATE_DATE(j) := P_CVTV_TBL(i).PROGRAM_UPDATE_DATE;
190 In_REQUEST_ID(j) := P_CVTV_TBL(i).REQUEST_ID;
191 In_OBJECT_VERSION_NUMBER(j) := P_CVTV_TBL(i).OBJECT_VERSION_NUMBER;
192 i :=P_CVTV_TBL.NEXT(i);
193 END LOOP;
194
195 FORALL i in 1..l_tabsize
196 INSERT INTO Oks_Coverage_Times (
197 ID,
198 COV_TZE_LINE_ID,
199 DNZ_CHR_ID,
200 START_HOUR,
201 START_MINUTE,
202 END_HOUR,
203 END_MINUTE,
204 MONDAY_YN,
205 TUESDAY_YN,
206 WEDNESDAY_YN,
207 THURSDAY_YN,
208 FRIDAY_YN,
209 SATURDAY_YN,
210 SUNDAY_YN,
211 CREATED_BY,
212 CREATION_DATE,
213 LAST_UPDATED_BY,
214 LAST_UPDATE_DATE,
215 LAST_UPDATE_LOGIN,
216 SECURITY_GROUP_ID,
217 PROGRAM_APPLICATION_ID,
218 PROGRAM_ID,
219 PROGRAM_UPDATE_DATE,
220 REQUEST_ID,
221 OBJECT_VERSION_NUMBER)
222 VALUES (
223 in_ID(i),
224 in_COV_TZE_LINE_ID(i),
225 in_DNZ_CHR_ID(i),
226 in_START_HOUR(i),
227 in_START_MINUTE(i),
228 in_END_HOUR(i),
229 in_END_MINUTE(i),
230 in_MONDAY_YN(i),
231 in_TUESDAY_YN(i),
232 in_WEDNESDAY_YN(i),
233 in_THURSDAY_YN(i),
234 in_FRIDAY_YN(i),
235 in_SATURDAY_YN(i),
236 in_SUNDAY_YN(i),
237 in_CREATED_BY(i),
238 in_CREATION_DATE(i),
239 in_LAST_UPDATED_BY(i),
240 in_LAST_UPDATE_DATE(i),
241 in_LAST_UPDATE_LOGIN(i),
242 in_SECURITY_GROUP_ID(i),
243 in_PROGRAM_APPLICATION_ID(i),
244 in_PROGRAM_ID(i),
245 in_PROGRAM_UPDATE_DATE(i),
246 in_REQUEST_ID(i),
247 in_Object_Version_Number(i));
248
249 IF (l_debug = 'Y') THEN
250 okc_debug.log('23500: Exiting INSERT_ROW_UPG', 2);
251 okc_debug.Reset_Indentation;
252 END IF;
253 EXCEPTION
254 WHEN OTHERS THEN
255 IF (l_debug = 'Y') THEN
256 okc_debug.log('23600: Exiting INSERT_ROW_UPG:OTHERS Exception', 2);
257 okc_debug.Reset_Indentation;
258 END IF;
259
260 OKC_API.SET_MESSAGE(
261 p_app_name => G_APP_NAME,
262 p_msg_name => G_UNEXPECTED_ERROR,
263 p_token1 => G_SQLCODE_TOKEN,
264 p_token1_value => SQLCODE,
265 p_token2 => G_SQLERRM_TOKEN,
266 p_token2_value => SQLERRM);
267 x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
268
269 END INSERT_ROW_UPG_CVTV_TBL;
270
271 PROCEDURE INSERT_ROW_UPG_ACMV_TBL
272 (x_return_status OUT NOCOPY VARCHAR2,
273 P_ACMV_TBL OKS_ACM_PVT.oks_action_times_v_tbl_type) IS
274
275 l_tabsize NUMBER := P_ACMV_TBL.COUNT;
276 l_source_lang VARCHAR2(12) := okc_util.get_userenv_lang;
277 l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
278 In_ID OKC_DATATYPES.NumberTabTyp;
279 In_COV_ACTION_TYPE_ID OKC_DATATYPES.NumberTabTyp;
280 In_CLE_ID OKC_DATATYPES.NumberTabTyp;
281 In_DNZ_CHR_ID OKC_DATATYPES.NumberTabTyp;
282 In_UOM_CODE OKC_DATATYPES.VAR30TabTyp;
283 In_SUN_DURATION OKC_DATATYPES.NumberTabTyp;
284 In_MON_DURATION OKC_DATATYPES.NumberTabTyp;
285 In_TUE_DURATION OKC_DATATYPES.NumberTabTyp;
286 In_WED_DURATION OKC_DATATYPES.NumberTabTyp;
287 In_THU_DURATION OKC_DATATYPES.NumberTabTyp;
288 In_FRI_DURATION OKC_DATATYPES.NumberTabTyp;
289 In_SAT_DURATION OKC_DATATYPES.NumberTabTyp;
290 In_SECURITY_GROUP_ID OKC_DATATYPES.NumberTabTyp;
291 In_PROGRAM_APPLICATION_ID OKC_DATATYPES.NumberTabTyp;
292 In_PROGRAM_ID OKC_DATATYPES.NumberTabTyp;
293 In_PROGRAM_UPDATE_DATE OKC_DATATYPES.DateTabTyp;
294 In_REQUEST_ID OKC_DATATYPES.NumberTabTyp;
295 In_CREATED_BY OKC_DATATYPES.NumberTabTyp;
296 In_Object_Version_Number OKC_DATATYPES.NumberTabTyp;
297 In_CREATION_DATE OKC_DATATYPES.DateTabTyp;
298 In_LAST_UPDATED_BY OKC_DATATYPES.NumberTabTyp;
299 In_LAST_UPDATE_DATE OKC_DATATYPES.DateTabTyp;
300 In_LAST_UPDATE_LOGIN OKC_DATATYPES.NumberTabTyp;
301 i NUMBER := P_ACMV_TBL.FIRST;
302 j NUMBER := 0;
303 BEGIN
304 x_return_status := OKC_API.G_RET_STS_SUCCESS;
305
306 IF (l_debug = 'Y') THEN
307 okc_debug.Set_Indentation('OKS_ACM_PVT');
308 okc_debug.log('23400: Entered INSERT_ROW_UPG', 2);
309 END IF;
310
311 WHILE i IS NOT NULL LOOP
312 j := j +1;
313 In_ID(j) := P_ACMV_TBL(i).ID;
314 In_COV_ACTION_TYPE_ID(j) := P_ACMV_TBL(i).COV_ACTION_TYPE_ID;
315 In_CLE_ID(j) := P_ACMV_TBL(i).CLE_ID;
316 In_DNZ_CHR_ID(j) := P_ACMV_TBL(i).DNZ_CHR_ID;
317 In_UOM_CODE(j) := P_ACMV_TBL(i).UOM_CODE;
318 In_SUN_DURATION(j) := P_ACMV_TBL(i).SUN_DURATION;
319 In_MON_DURATION(j) := P_ACMV_TBL(i).MON_DURATION;
320 In_TUE_DURATION(j) := P_ACMV_TBL(i).TUE_DURATION;
321 In_WED_DURATION(j) := P_ACMV_TBL(i).WED_DURATION;
322 In_THU_DURATION(j) := P_ACMV_TBL(i).THU_DURATION;
323 In_FRI_DURATION(j) := P_ACMV_TBL(i).FRI_DURATION;
324 In_SAT_DURATION(j) := P_ACMV_TBL(i).SAT_DURATION;
325 In_SECURITY_GROUP_ID(j) := P_ACMV_TBL(i).SECURITY_GROUP_ID;
326 In_PROGRAM_APPLICATION_ID(j) := P_ACMV_TBL(i).PROGRAM_APPLICATION_ID;
327 In_PROGRAM_ID(j) := P_ACMV_TBL(i).PROGRAM_ID;
328 In_PROGRAM_UPDATE_DATE(j) := P_ACMV_TBL(i).PROGRAM_UPDATE_DATE;
329 In_REQUEST_ID(j) := P_ACMV_TBL(i).REQUEST_ID;
330 In_CREATED_BY(j) := P_ACMV_TBL(i).CREATED_BY;
331 In_OBJECT_VERSION_NUMBER(j) := P_ACMV_TBL(i).OBJECT_VERSION_NUMBER;
332 In_CREATION_DATE(j) := P_ACMV_TBL(i).CREATION_DATE;
333 In_LAST_UPDATED_BY(j) := P_ACMV_TBL(i).LAST_UPDATED_BY;
334 In_LAST_UPDATE_DATE(j) := P_ACMV_TBL(i).LAST_UPDATE_DATE;
335 In_LAST_UPDATE_LOGIN(j) := P_ACMV_TBL(i).LAST_UPDATE_LOGIN;
336 i :=P_ACMV_TBL.NEXT(i);
337 END LOOP;
338
339 FORALL i in 1..l_tabsize
340 INSERT INTO Oks_Action_Times (
341 ID,
342 COV_ACTION_TYPE_ID,
343 CLE_ID,
344 DNZ_CHR_ID,
345 UOM_CODE,
346 SUN_DURATION,
347 MON_DURATION,
348 TUE_DURATION,
349 WED_DURATION,
350 THU_DURATION,
351 FRI_DURATION,
352 SAT_DURATION,
353 SECURITY_GROUP_ID,
354 PROGRAM_APPLICATION_ID,
355 PROGRAM_ID,
356 PROGRAM_UPDATE_DATE,
357 REQUEST_ID,
358 CREATED_BY,
359 OBJECT_VERSION_NUMBER,
360 CREATION_DATE,
361 LAST_UPDATED_BY,
362 LAST_UPDATE_DATE,
363 LAST_UPDATE_LOGIN)
364 VALUES (
365 in_ID(i),
366 in_COV_ACTION_TYPE_ID(i),
367 in_CLE_ID(i),
368 in_DNZ_CHR_ID(i),
369 in_UOM_CODE(i),
370 in_SUN_DURATION(i),
371 in_MON_DURATION(i),
372 in_TUE_DURATION(i),
373 in_WED_DURATION(i),
374 in_THU_DURATION(i),
375 in_FRI_DURATION(i),
376 in_SAT_DURATION(i),
377 in_SECURITY_GROUP_ID(i),
378 in_PROGRAM_APPLICATION_ID(i),
379 in_PROGRAM_ID(i),
380 in_PROGRAM_UPDATE_DATE(i),
381 in_REQUEST_ID(i),
382 in_CREATED_BY(i),
383 in_object_version_number(i),
384 in_CREATION_DATE(i),
385 in_LAST_UPDATED_BY(i),
386 in_LAST_UPDATE_DATE(i),
387 in_LAST_UPDATE_LOGIN(i));
388
389 IF (l_debug = 'Y') THEN
390 okc_debug.log('23500: Exiting INSERT_ROW_UPG', 2);
391 okc_debug.Reset_Indentation;
392 END IF;
393
394 EXCEPTION
395 WHEN OTHERS THEN
396 IF (l_debug = 'Y') THEN
397 okc_debug.log('23600: Exiting INSERT_ROW_UPG:OTHERS Exception', 2);
398 okc_debug.Reset_Indentation;
399 END IF;
400
401 OKC_API.SET_MESSAGE(
402 p_app_name => G_APP_NAME,
403 p_msg_name => G_UNEXPECTED_ERROR,
404 p_token1 => G_SQLCODE_TOKEN,
405 p_token1_value => SQLCODE,
406 p_token2 => G_SQLERRM_TOKEN,
407 p_token2_value => SQLERRM);
408 x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
409
410 END INSERT_ROW_UPG_ACMV_TBL;
411
412
413 PROCEDURE INSERT_ROW_UPG_ACTV_TBL
414 (x_return_status OUT NOCOPY VARCHAR2,
415 P_ACTV_TBL OKS_ACT_PVT.OksActionTimeTypesVTblType) IS
416
417 l_tabsize NUMBER := P_ACTV_TBL.COUNT;
418 l_source_lang VARCHAR2(12) := okc_util.get_userenv_lang;
419 l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
420 In_ID OKC_DATATYPES.NumberTabTyp;
421 In_CLE_ID OKC_DATATYPES.NumberTabTyp;
422 In_DNZ_CHR_ID OKC_DATATYPES.NumberTabTyp;
423 In_ACTION_TYPE_CODE OKC_DATATYPES.VAR30TabTyp;
424 In_SECURITY_GROUP_ID OKC_DATATYPES.NumberTabTyp;
425 In_PROGRAM_APPLICATION_ID OKC_DATATYPES.NumberTabTyp;
426 In_PROGRAM_ID OKC_DATATYPES.NumberTabTyp;
427 In_PROGRAM_UPDATE_DATE OKC_DATATYPES.DateTabTyp;
428 In_REQUEST_ID OKC_DATATYPES.NumberTabTyp;
429 In_CREATED_BY OKC_DATATYPES.NumberTabTyp;
430 In_CREATION_DATE OKC_DATATYPES.DateTabTyp;
431 In_LAST_UPDATED_BY OKC_DATATYPES.NumberTabTyp;
432 In_LAST_UPDATE_DATE OKC_DATATYPES.DateTabTyp;
433 In_LAST_UPDATE_LOGIN OKC_DATATYPES.NumberTabTyp;
434 In_OBJECT_VERSION_NUMBER OKC_DATATYPES.NumberTabTyp;
435 i NUMBER := P_ACTV_TBL.FIRST;
436 j NUMBER := 0;
437 BEGIN
438 x_return_status := OKC_API.G_RET_STS_SUCCESS;
439
440 IF (l_debug = 'Y') THEN
441 okc_debug.Set_Indentation('OKS_ACT_PVT');
442 okc_debug.log('23400: Entered INSERT_ROW_UPG', 2);
443 END IF;
444
445 WHILE i IS NOT NULL LOOP
446 j := j +1;
447 In_ID(j) := P_ACTV_TBL(i).ID;
448 In_CLE_ID(j) := P_ACTV_TBL(i).CLE_ID;
449 In_DNZ_CHR_ID(j) := P_ACTV_TBL(i).DNZ_CHR_ID;
450 In_ACTION_TYPE_CODE(j) := P_ACTV_TBL(i).ACTION_TYPE_CODE;
451 In_SECURITY_GROUP_ID(j) := P_ACTV_TBL(i).SECURITY_GROUP_ID;
452 In_PROGRAM_APPLICATION_ID(j) := P_ACTV_TBL(i).PROGRAM_APPLICATION_ID;
453 In_PROGRAM_ID(j) := P_ACTV_TBL(i).PROGRAM_ID;
454 In_PROGRAM_UPDATE_DATE(j) := P_ACTV_TBL(i).PROGRAM_UPDATE_DATE;
455 In_REQUEST_ID(j) := P_ACTV_TBL(i).REQUEST_ID;
456 In_CREATED_BY(j) := P_ACTV_TBL(i).CREATED_BY;
457 In_CREATION_DATE(j) := P_ACTV_TBL(i).CREATION_DATE;
458 In_LAST_UPDATED_BY(j) := P_ACTV_TBL(i).LAST_UPDATED_BY;
459 In_LAST_UPDATE_DATE(j) := P_ACTV_TBL(i).LAST_UPDATE_DATE;
460 In_LAST_UPDATE_LOGIN(j) := P_ACTV_TBL(i).LAST_UPDATE_LOGIN;
461 In_OBJECT_VERSION_NUMBER(j) := P_ACTV_TBL(i).OBJECT_VERSION_NUMBER;
462
463 i :=P_ACTV_TBL.NEXT(i);
464 END LOOP;
465 FORALL i in 1..l_tabsize
466 INSERT INTO Oks_Action_Time_Types (
467 ID,
468 CLE_ID,
469 DNZ_CHR_ID,
470 ACTION_TYPE_CODE,
471 SECURITY_GROUP_ID,
472 PROGRAM_APPLICATION_ID,
473 PROGRAM_ID,
474 PROGRAM_UPDATE_DATE,
475 REQUEST_ID,
476 CREATED_BY,
477 CREATION_DATE,
478 LAST_UPDATED_BY,
479 LAST_UPDATE_DATE,
480 LAST_UPDATE_LOGIN,
481 OBJECT_VERSION_NUMBER)
482 VALUES (
483 in_ID(i),
484 in_CLE_ID(i),
485 in_DNZ_CHR_ID(i),
486 in_ACTION_TYPE_CODE(i),
487 in_SECURITY_GROUP_ID(i),
488 in_PROGRAM_APPLICATION_ID(i),
489 in_PROGRAM_ID(i),
490 in_PROGRAM_UPDATE_DATE(i),
491 in_REQUEST_ID(i),
492 in_CREATED_BY(i),
493 in_CREATION_DATE(i),
494 in_LAST_UPDATED_BY(i),
495 in_LAST_UPDATE_DATE(i),
496 in_LAST_UPDATE_LOGIN(i),
497 in_OBJECT_VERSION_NUMBER(i));
498
499 IF (l_debug = 'Y') THEN
500 okc_debug.log('23500: Exiting INSERT_ROW_UPG', 2);
501 okc_debug.Reset_Indentation;
502 END IF;
503
504 EXCEPTION
505 WHEN OTHERS THEN
506 IF (l_debug = 'Y') THEN
507 okc_debug.log('23600: Exiting INSERT_ROW_UPG:OTHERS Exception', 2);
508 okc_debug.Reset_Indentation;
509 END IF;
510
511 OKC_API.SET_MESSAGE(
512 p_app_name => G_APP_NAME,
513 p_msg_name => G_UNEXPECTED_ERROR,
514 p_token1 => G_SQLCODE_TOKEN,
515 p_token1_value => SQLCODE,
516 p_token2 => G_SQLERRM_TOKEN,
517 p_token2_value => SQLERRM);
518
519 x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
520
521 END INSERT_ROW_UPG_ACTV_TBL;
522
523
524 PROCEDURE INSERT_ROW_UPG_KLNV_TBL
525 (x_return_status OUT NOCOPY VARCHAR2,
526 P_KLNV_TBL OKS_KLN_PVT.klnv_tbl_type) IS
527
528 l_tabsize NUMBER := P_KLNV_TBL.COUNT;
529 l_source_lang VARCHAR2(12) := okc_util.get_userenv_lang;
530 l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
531 --In_ROW_ID OKC_DATATYPES.;
532 In_ID OKC_DATATYPES.NumberTabTyp;
533 In_CLE_ID OKC_DATATYPES.NumberTabTyp;
534 In_DNZ_CHR_ID OKC_DATATYPES.NumberTabTyp;
535 In_DISCOUNT_LIST OKC_DATATYPES.NumberTabTyp;
536 In_ACCT_RULE_ID OKC_DATATYPES.NumberTabTyp;
537 In_PAYMENT_TYPE OKC_DATATYPES.VAR30TabTyp;
538 In_CC_NO OKC_DATATYPES.VAR150TabTyp;
539 In_CC_EXPIRY_DATE OKC_DATATYPES.DateTabTyp;
540 In_CC_BANK_ACCT_ID OKC_DATATYPES.NumberTabTyp;
541 In_CC_AUTH_CODE OKC_DATATYPES.VAR150TabTyp;
542 In_COMMITMENT_ID OKC_DATATYPES.NumberTabTyp;
543 In_LOCKED_PRICE_LIST_ID OKC_DATATYPES.NumberTabTyp;
544 In_USAGE_EST_YN OKC_DATATYPES.VAR3TabTyp;
545 In_USAGE_EST_METHOD OKC_DATATYPES.VAR30TabTyp;
546 In_USAGE_EST_START_DATE OKC_DATATYPES.DateTabTyp;
547 In_TERMN_METHOD OKC_DATATYPES.VAR30TabTyp;
548 In_UBT_AMOUNT OKC_DATATYPES.NumberTabTyp;
549 In_CREDIT_AMOUNT OKC_DATATYPES.NumberTabTyp;
550 In_SUPPRESSED_CREDIT OKC_DATATYPES.NumberTabTyp;
551 In_OVERRIDE_AMOUNT OKC_DATATYPES.NumberTabTyp;
552 In_CUST_PO_NUMBER_REQ_YN OKC_DATATYPES.VAR3TabTyp;
553 In_CUST_PO_NUMBER OKC_DATATYPES.VAR150TabTyp;
554 In_GRACE_DURATION OKC_DATATYPES.NumberTabTyp;
555 In_GRACE_PERIOD OKC_DATATYPES.VAR30TabTyp;
556 In_INV_PRINT_FLAG OKC_DATATYPES.VAR3TabTyp;
557 In_PRICE_UOM OKC_DATATYPES.VAR30TabTyp;
558 In_TAX_AMOUNT OKC_DATATYPES.NumberTabTyp;
559 In_TAX_INCLUSIVE_YN OKC_DATATYPES.VAR3TabTyp;
560 In_TAX_STATUS OKC_DATATYPES.VAR30TabTyp;
561 In_TAX_CODE OKC_DATATYPES.NumberTabTyp;
562 In_TAX_EXEMPTION_ID OKC_DATATYPES.NumberTabTyp;
563 In_IB_TRANS_TYPE OKC_DATATYPES.VAR10TabTyp;
564 In_IB_TRANS_DATE OKC_DATATYPES.DateTabTyp;
565 In_PROD_PRICE OKC_DATATYPES.NumberTabTyp;
566 In_SERVICE_PRICE OKC_DATATYPES.NumberTabTyp;
567 In_CLVL_LIST_PRICE OKC_DATATYPES.NumberTabTyp;
568 In_CLVL_QUANTITY OKC_DATATYPES.NumberTabTyp;
569 In_CLVL_EXTENDED_AMT OKC_DATATYPES.NumberTabTyp;
570 In_CLVL_UOM_CODE OKC_DATATYPES.VAR3TabTyp;
571 In_TOPLVL_OPERAND_CODE OKC_DATATYPES.VAR30TabTyp;
572 In_TOPLVL_OPERAND_VAL OKC_DATATYPES.NumberTabTyp;
573 In_TOPLVL_QUANTITY OKC_DATATYPES.NumberTabTyp;
574 In_TOPLVL_UOM_CODE OKC_DATATYPES.VAR3TabTyp;
575 In_TOPLVL_ADJ_PRICE OKC_DATATYPES.NumberTabTyp;
576 In_TOPLVL_PRICE_QTY OKC_DATATYPES.NumberTabTyp;
577 In_AVERAGING_INTERVAL OKC_DATATYPES.NumberTabTyp;
578 In_SETTLEMENT_INTERVAL OKC_DATATYPES.VAR30TabTyp;
579 In_MINIMUM_QUANTITY OKC_DATATYPES.NumberTabTyp;
580 In_DEFAULT_QUANTITY OKC_DATATYPES.NumberTabTyp;
581 In_AMCV_FLAG OKC_DATATYPES.VAR3TabTyp;
582 In_FIXED_QUANTITY OKC_DATATYPES.NumberTabTyp;
583 In_USAGE_DURATION OKC_DATATYPES.NumberTabTyp;
584 In_USAGE_PERIOD OKC_DATATYPES.VAR3TabTyp;
585 In_LEVEL_YN OKC_DATATYPES.VAR3TabTyp;
586 In_USAGE_TYPE OKC_DATATYPES.VAR10TabTyp;
587 In_UOM_QUANTIFIED OKC_DATATYPES.VAR3TabTyp;
588 In_BASE_READING OKC_DATATYPES.NumberTabTyp;
589 In_BILLING_SCHEDULE_TYPE OKC_DATATYPES.VAR10TabTyp;
590 In_FULL_CREDIT OKC_DATATYPES.VAR3TabTyp;
591 In_COVERAGE_TYPE OKC_DATATYPES.VAR30TabTyp;
592 In_EXCEPTION_COV_ID OKC_DATATYPES.NumberTabTyp;
593 In_LIMIT_UOM_QUANTIFIED OKC_DATATYPES.VAR3TabTyp;
594 In_DISCOUNT_AMOUNT OKC_DATATYPES.NumberTabTyp;
595 In_DISCOUNT_PERCENT OKC_DATATYPES.NumberTabTyp;
596 In_OFFSET_DURATION OKC_DATATYPES.NumberTabTyp;
597 In_OFFSET_PERIOD OKC_DATATYPES.VAR3TabTyp;
598 In_INCIDENT_SEVERITY_ID OKC_DATATYPES.NumberTabTyp;
599 In_PDF_ID OKC_DATATYPES.NumberTabTyp;
600 In_WORK_THRU_YN OKC_DATATYPES.VAR3TabTyp;
601 In_REACT_ACTIVE_YN OKC_DATATYPES.VAR3TabTyp;
602 In_TRANSFER_OPTION OKC_DATATYPES.VAR30TabTyp;
603 In_PROD_UPGRADE_YN OKC_DATATYPES.VAR3TabTyp;
604 In_INHERITANCE_TYPE OKC_DATATYPES.VAR30TabTyp;
605 In_PM_PROGRAM_ID OKC_DATATYPES.NumberTabTyp;
606 In_PM_CONF_REQ_YN OKC_DATATYPES.VAR3TabTyp;
607 In_PM_SCH_EXISTS_YN OKC_DATATYPES.VAR3TabTyp;
608 In_ALLOW_BT_DISCOUNT OKC_DATATYPES.VAR3TabTyp;
609 In_APPLY_DEFAULT_TIMEZONE OKC_DATATYPES.VAR3TabTyp;
610 In_SYNC_DATE_INSTALL OKC_DATATYPES.VAR3TabTyp;
611 In_SFWT_FLAG OKC_DATATYPES.VAR3TabTyp;
612 In_INVOICE_TEXT OKC_DATATYPES.VAR1995TabTyp;
613 In_IB_TRX_DETAILS OKC_DATATYPES.VAR1995TabTyp;
614 In_STATUS_TEXT OKC_DATATYPES.VAR450TabTyp;
615 In_REACT_TIME_NAME OKC_DATATYPES.VAR450TabTyp;
616 In_OBJECT_VERSION_NUMBER OKC_DATATYPES.NumberTabTyp;
617 In_SECURITY_GROUP_ID OKC_DATATYPES.NumberTabTyp;
618 In_REQUEST_ID OKC_DATATYPES.NumberTabTyp;
619 In_CREATED_BY OKC_DATATYPES.NumberTabTyp;
620 In_CREATION_DATE OKC_DATATYPES.DateTabTyp;
621 In_LAST_UPDATED_BY OKC_DATATYPES.NumberTabTyp;
622 In_LAST_UPDATE_DATE OKC_DATATYPES.DateTabTyp;
623 In_LAST_UPDATE_LOGIN OKC_DATATYPES.NumberTabTyp;
624 i NUMBER := P_KLNV_TBL.FIRST;
625 j NUMBER := 0;
626 BEGIN
627 x_return_status := OKC_API.G_RET_STS_SUCCESS;
628
629 IF (l_debug = 'Y') THEN
630 okc_debug.Set_Indentation('OKS_KLN_PVT');
631 okc_debug.log('23400: Entered INSERT_ROW_UPG', 2);
632 END IF;
633
634 WHILE i IS NOT NULL LOOP
635 j := j +1;
636 In_ID(j) := P_KLNV_TBL(i).ID;
637 In_CLE_ID(j) := P_KLNV_TBL(i).CLE_ID;
638 In_DNZ_CHR_ID(j) := P_KLNV_TBL(i).DNZ_CHR_ID;
639 In_DISCOUNT_LIST(j) := P_KLNV_TBL(i).DISCOUNT_LIST;
640 In_ACCT_RULE_ID(j) := P_KLNV_TBL(i).ACCT_RULE_ID;
641 In_PAYMENT_TYPE(j) := P_KLNV_TBL(i).PAYMENT_TYPE;
642 In_CC_NO(j) := P_KLNV_TBL(i).CC_NO;
643 In_CC_EXPIRY_DATE(j) := P_KLNV_TBL(i).CC_EXPIRY_DATE;
644 In_CC_BANK_ACCT_ID(j) := P_KLNV_TBL(i).CC_BANK_ACCT_ID;
645 In_CC_AUTH_CODE(j) := P_KLNV_TBL(i).CC_AUTH_CODE;
646 In_COMMITMENT_ID(j) := P_KLNV_TBL(i).COMMITMENT_ID;
647 In_LOCKED_PRICE_LIST_ID(j) := P_KLNV_TBL(i).LOCKED_PRICE_LIST_ID;
648 In_USAGE_EST_YN(j) := P_KLNV_TBL(i).USAGE_EST_YN;
649 In_USAGE_EST_METHOD(j) := P_KLNV_TBL(i).USAGE_EST_METHOD;
650 In_USAGE_EST_START_DATE(j) := P_KLNV_TBL(i).USAGE_EST_START_DATE;
651 In_TERMN_METHOD(j) := P_KLNV_TBL(i).TERMN_METHOD;
652 In_UBT_AMOUNT(j) := P_KLNV_TBL(i).UBT_AMOUNT;
653 In_CREDIT_AMOUNT(j) := P_KLNV_TBL(i).CREDIT_AMOUNT;
654 In_SUPPRESSED_CREDIT(j) := P_KLNV_TBL(i).SUPPRESSED_CREDIT;
655 In_OVERRIDE_AMOUNT(j) := P_KLNV_TBL(i).OVERRIDE_AMOUNT;
656 In_CUST_PO_NUMBER_REQ_YN(j) := P_KLNV_TBL(i).CUST_PO_NUMBER_REQ_YN;
657 In_CUST_PO_NUMBER(j) := P_KLNV_TBL(i).CUST_PO_NUMBER;
658 In_GRACE_DURATION(j) := P_KLNV_TBL(i).GRACE_DURATION;
659 In_GRACE_PERIOD(j) := P_KLNV_TBL(i).GRACE_PERIOD;
660 In_INV_PRINT_FLAG(j) := P_KLNV_TBL(i).INV_PRINT_FLAG;
661 In_PRICE_UOM(j) := P_KLNV_TBL(i).PRICE_UOM;
662 In_TAX_AMOUNT(j) := P_KLNV_TBL(i).TAX_AMOUNT;
663 In_TAX_INCLUSIVE_YN(j) := P_KLNV_TBL(i).TAX_INCLUSIVE_YN;
664 In_TAX_STATUS(j) := P_KLNV_TBL(i).TAX_STATUS;
665 In_TAX_CODE(j) := P_KLNV_TBL(i).TAX_CODE;
666 In_TAX_EXEMPTION_ID(j) := P_KLNV_TBL(i).TAX_EXEMPTION_ID;
667 In_IB_TRANS_TYPE(j) := P_KLNV_TBL(i).IB_TRANS_TYPE;
668 In_IB_TRANS_DATE(j) := P_KLNV_TBL(i).IB_TRANS_DATE;
669 In_PROD_PRICE(j) := P_KLNV_TBL(i).PROD_PRICE;
670 In_SERVICE_PRICE(j) := P_KLNV_TBL(i).SERVICE_PRICE;
671 In_CLVL_LIST_PRICE(j) := P_KLNV_TBL(i).CLVL_LIST_PRICE;
672 In_CLVL_QUANTITY(j) := P_KLNV_TBL(i).CLVL_QUANTITY;
673 In_CLVL_EXTENDED_AMT(j) := P_KLNV_TBL(i).CLVL_EXTENDED_AMT;
674 In_CLVL_UOM_CODE(j) := P_KLNV_TBL(i).CLVL_UOM_CODE;
675 In_TOPLVL_OPERAND_CODE(j) := P_KLNV_TBL(i).TOPLVL_OPERAND_CODE;
676 In_TOPLVL_OPERAND_VAL(j) := P_KLNV_TBL(i).TOPLVL_OPERAND_VAL;
677 In_TOPLVL_QUANTITY(j) := P_KLNV_TBL(i).TOPLVL_QUANTITY;
678 In_TOPLVL_UOM_CODE(j) := P_KLNV_TBL(i).TOPLVL_UOM_CODE;
679 In_TOPLVL_ADJ_PRICE(j) := P_KLNV_TBL(i).TOPLVL_ADJ_PRICE;
680 In_TOPLVL_PRICE_QTY(j) := P_KLNV_TBL(i).TOPLVL_PRICE_QTY;
681 In_AVERAGING_INTERVAL(j) := P_KLNV_TBL(i).AVERAGING_INTERVAL;
682 In_SETTLEMENT_INTERVAL(j) := P_KLNV_TBL(i).SETTLEMENT_INTERVAL;
683 In_MINIMUM_QUANTITY(j) := P_KLNV_TBL(i).MINIMUM_QUANTITY;
684 In_DEFAULT_QUANTITY(j) := P_KLNV_TBL(i).DEFAULT_QUANTITY;
685 In_AMCV_FLAG(j) := P_KLNV_TBL(i).AMCV_FLAG;
686 In_FIXED_QUANTITY(j) := P_KLNV_TBL(i).FIXED_QUANTITY;
687 In_USAGE_DURATION(j) := P_KLNV_TBL(i).USAGE_DURATION;
688 In_USAGE_PERIOD(j) := P_KLNV_TBL(i).USAGE_PERIOD;
689 In_LEVEL_YN(j) := P_KLNV_TBL(i).LEVEL_YN;
690 In_USAGE_TYPE(j) := P_KLNV_TBL(i).USAGE_TYPE;
691 In_UOM_QUANTIFIED(j) := P_KLNV_TBL(i).UOM_QUANTIFIED;
692 In_BASE_READING(j) := P_KLNV_TBL(i).BASE_READING;
693 In_BILLING_SCHEDULE_TYPE(j) := P_KLNV_TBL(i).BILLING_SCHEDULE_TYPE;
694 In_FULL_CREDIT(j) := P_KLNV_TBL(i).FULL_CREDIT;
695 In_COVERAGE_TYPE(j) := P_KLNV_TBL(i).COVERAGE_TYPE;
696 In_EXCEPTION_COV_ID(j) := P_KLNV_TBL(i).EXCEPTION_COV_ID;
697 In_LIMIT_UOM_QUANTIFIED(j) := P_KLNV_TBL(i).LIMIT_UOM_QUANTIFIED;
698 In_DISCOUNT_AMOUNT(j) := P_KLNV_TBL(i).DISCOUNT_AMOUNT;
699 In_DISCOUNT_PERCENT(j) := P_KLNV_TBL(i).DISCOUNT_PERCENT;
700 In_OFFSET_DURATION(j) := P_KLNV_TBL(i).OFFSET_DURATION;
701 In_OFFSET_PERIOD(j) := P_KLNV_TBL(i).OFFSET_PERIOD;
702 In_INCIDENT_SEVERITY_ID(j) := P_KLNV_TBL(i).INCIDENT_SEVERITY_ID;
703 In_PDF_ID(j) := P_KLNV_TBL(i).PDF_ID;
704 In_WORK_THRU_YN(j) := P_KLNV_TBL(i).WORK_THRU_YN;
705 In_REACT_ACTIVE_YN(j) := P_KLNV_TBL(i).REACT_ACTIVE_YN;
706 In_TRANSFER_OPTION(j) := P_KLNV_TBL(i).TRANSFER_OPTION;
707 In_PROD_UPGRADE_YN(j) := P_KLNV_TBL(i).PROD_UPGRADE_YN;
708 In_INHERITANCE_TYPE(j) := P_KLNV_TBL(i).INHERITANCE_TYPE;
709 In_PM_PROGRAM_ID(j) := P_KLNV_TBL(i).PM_PROGRAM_ID;
710 In_PM_CONF_REQ_YN(j) := P_KLNV_TBL(i).PM_CONF_REQ_YN;
711 In_PM_SCH_EXISTS_YN(j) := P_KLNV_TBL(i).PM_SCH_EXISTS_YN;
712 In_ALLOW_BT_DISCOUNT(j) := P_KLNV_TBL(i).ALLOW_BT_DISCOUNT;
713 In_APPLY_DEFAULT_TIMEZONE(j) := P_KLNV_TBL(i).APPLY_DEFAULT_TIMEZONE;
714 In_SYNC_DATE_INSTALL(j) := P_KLNV_TBL(i).SYNC_DATE_INSTALL;
715 In_SFWT_FLAG(j) := P_KLNV_TBL(i).SFWT_FLAG;
716 In_INVOICE_TEXT(j) := P_KLNV_TBL(i).INVOICE_TEXT;
717 In_IB_TRX_DETAILS(j) := P_KLNV_TBL(i).IB_TRX_DETAILS;
718 In_STATUS_TEXT(j) := P_KLNV_TBL(i).STATUS_TEXT;
719 In_REACT_TIME_NAME(j) := P_KLNV_TBL(i).REACT_TIME_NAME;
720 In_OBJECT_VERSION_NUMBER(j) := P_KLNV_TBL(i).OBJECT_VERSION_NUMBER;
721 In_SECURITY_GROUP_ID(j) := P_KLNV_TBL(i).SECURITY_GROUP_ID;
722 In_REQUEST_ID(j) := P_KLNV_TBL(i).REQUEST_ID;
723 In_CREATED_BY(j) := P_KLNV_TBL(i).CREATED_BY;
724 In_CREATION_DATE(j) := P_KLNV_TBL(i).CREATION_DATE;
725 In_LAST_UPDATED_BY(j) := P_KLNV_TBL(i).LAST_UPDATED_BY;
726 In_LAST_UPDATE_DATE(j) := P_KLNV_TBL(i).LAST_UPDATE_DATE;
727 In_LAST_UPDATE_LOGIN(j) := P_KLNV_TBL(i).LAST_UPDATE_LOGIN;
728 i :=P_KLNV_TBL.NEXT(i);
729
730 END LOOP;
731
732 FORALL i in 1..l_tabsize
733
734 INSERT INTO Oks_K_Lines_B(
735 ID,
736 CLE_ID,
737 DNZ_CHR_ID,
738 DISCOUNT_LIST,
739 ACCT_RULE_ID,
740 PAYMENT_TYPE,
741 CC_NO,
742 CC_EXPIRY_DATE,
743 CC_BANK_ACCT_ID,
744 CC_AUTH_CODE,
745 COMMITMENT_ID,
746 LOCKED_PRICE_LIST_ID,
747 USAGE_EST_YN,
748 USAGE_EST_METHOD,
749 USAGE_EST_START_DATE,
750 TERMN_METHOD,
751 UBT_AMOUNT,
752 CREDIT_AMOUNT,
753 SUPPRESSED_CREDIT,
754 OVERRIDE_AMOUNT,
755 CUST_PO_NUMBER_REQ_YN,
756 CUST_PO_NUMBER,
757 GRACE_DURATION,
758 GRACE_PERIOD,
759 INV_PRINT_FLAG,
760 PRICE_UOM,
761 TAX_AMOUNT,
762 TAX_INCLUSIVE_YN,
763 TAX_STATUS,
764 TAX_CODE,
765 TAX_EXEMPTION_ID,
766 IB_TRANS_TYPE,
767 IB_TRANS_DATE,
768 PROD_PRICE,
769 SERVICE_PRICE,
770 CLVL_LIST_PRICE,
771 CLVL_QUANTITY,
772 CLVL_EXTENDED_AMT,
773 CLVL_UOM_CODE,
774 TOPLVL_OPERAND_CODE,
775 TOPLVL_OPERAND_VAL,
776 TOPLVL_QUANTITY,
777 TOPLVL_UOM_CODE,
778 TOPLVL_ADJ_PRICE,
779 TOPLVL_PRICE_QTY,
780 AVERAGING_INTERVAL,
781 SETTLEMENT_INTERVAL,
782 MINIMUM_QUANTITY,
783 DEFAULT_QUANTITY,
784 AMCV_FLAG,
785 FIXED_QUANTITY,
786 USAGE_DURATION,
787 USAGE_PERIOD,
788 LEVEL_YN,
789 USAGE_TYPE,
790 UOM_QUANTIFIED,
791 BASE_READING,
792 BILLING_SCHEDULE_TYPE,
793 FULL_CREDIT,
794 COVERAGE_TYPE,
795 EXCEPTION_COV_ID,
796 LIMIT_UOM_QUANTIFIED,
797 DISCOUNT_AMOUNT,
798 DISCOUNT_PERCENT,
799 OFFSET_DURATION,
800 OFFSET_PERIOD,
801 INCIDENT_SEVERITY_ID,
802 PDF_ID,
803 WORK_THRU_YN,
804 REACT_ACTIVE_YN,
805 TRANSFER_OPTION,
806 PROD_UPGRADE_YN,
807 INHERITANCE_TYPE,
808 PM_PROGRAM_ID,
809 PM_CONF_REQ_YN,
810 PM_SCH_EXISTS_YN,
811 ALLOW_BT_DISCOUNT,
812 APPLY_DEFAULT_TIMEZONE,
813 SYNC_DATE_INSTALL,
814 OBJECT_VERSION_NUMBER,
815 SECURITY_GROUP_ID,
816 REQUEST_ID,
817 CREATED_BY,
818 CREATION_DATE,
819 LAST_UPDATED_BY,
820 LAST_UPDATE_DATE,
821 LAST_UPDATE_LOGIN)
822 VALUES (
823 in_ID(i),
824 in_CLE_ID(i),
825 in_DNZ_CHR_ID(i),
826 in_DISCOUNT_LIST(i),
827 in_ACCT_RULE_ID(i),
828 in_PAYMENT_TYPE(i),
829 in_CC_NO(i),
830 in_CC_EXPIRY_DATE(i),
831 in_CC_BANK_ACCT_ID(i),
832 in_CC_AUTH_CODE(i),
833 in_COMMITMENT_ID(i),
834 in_LOCKED_PRICE_LIST_ID(i),
835 in_USAGE_EST_YN(i),
836 in_USAGE_EST_METHOD(i),
837 in_USAGE_EST_START_DATE(i),
838 in_TERMN_METHOD(i),
839 in_UBT_AMOUNT(i),
840 in_CREDIT_AMOUNT(i),
841 in_SUPPRESSED_CREDIT(i),
842 in_OVERRIDE_AMOUNT(i),
843 in_CUST_PO_NUMBER_REQ_YN(i),
844 in_CUST_PO_NUMBER(i),
845 in_GRACE_DURATION(i),
846 in_GRACE_PERIOD(i),
847 in_INV_PRINT_FLAG(i),
848 in_PRICE_UOM(i),
849 in_TAX_AMOUNT(i),
850 in_TAX_INCLUSIVE_YN(i),
851 in_TAX_STATUS(i),
852 in_TAX_CODE(i),
853 in_TAX_EXEMPTION_ID(i),
854 in_IB_TRANS_TYPE(i),
855 in_IB_TRANS_DATE(i),
856 in_PROD_PRICE(i),
857 in_SERVICE_PRICE(i),
858 in_CLVL_LIST_PRICE(i),
859 in_CLVL_QUANTITY(i),
860 in_CLVL_EXTENDED_AMT(i),
861 in_CLVL_UOM_CODE(i),
862 in_TOPLVL_OPERAND_CODE(i),
863 in_TOPLVL_OPERAND_VAL(i),
864 in_TOPLVL_QUANTITY(i),
865 in_TOPLVL_UOM_CODE(i),
866 in_TOPLVL_ADJ_PRICE(i),
867 in_TOPLVL_PRICE_QTY(i),
868 in_AVERAGING_INTERVAL(i),
869 in_SETTLEMENT_INTERVAL(i),
870 in_MINIMUM_QUANTITY(i),
871 in_DEFAULT_QUANTITY(i),
872 in_AMCV_FLAG(i),
873 in_FIXED_QUANTITY(i),
874 in_USAGE_DURATION(i),
875 in_USAGE_PERIOD(i),
876 in_LEVEL_YN(i),
877 in_USAGE_TYPE(i),
878 in_UOM_QUANTIFIED(i),
879 in_BASE_READING(i),
880 in_BILLING_SCHEDULE_TYPE(i),
881 in_FULL_CREDIT(i),
882 in_COVERAGE_TYPE(i),
883 in_EXCEPTION_COV_ID(i),
884 in_LIMIT_UOM_QUANTIFIED(i),
885 in_DISCOUNT_AMOUNT(i),
886 in_DISCOUNT_PERCENT(i),
887 in_OFFSET_DURATION(i),
888 in_OFFSET_PERIOD(i),
889 in_INCIDENT_SEVERITY_ID(i),
890 in_PDF_ID(i),
891 in_WORK_THRU_YN(i),
892 in_REACT_ACTIVE_YN(i),
893 in_TRANSFER_OPTION(i),
894 in_PROD_UPGRADE_YN(i),
895 in_INHERITANCE_TYPE(i),
896 in_PM_PROGRAM_ID(i),
897 in_PM_CONF_REQ_YN(i),
898 in_PM_SCH_EXISTS_YN(i),
899 in_ALLOW_BT_DISCOUNT(i),
900 in_APPLY_DEFAULT_TIMEZONE(i),
901 in_SYNC_DATE_INSTALL(i),
902 in_OBJECT_VERSION_NUMBER(i),
903 in_SECURITY_GROUP_ID(i),
904 in_REQUEST_ID(i),
905 in_CREATED_BY(i),
906 in_CREATION_DATE(i),
907 in_LAST_UPDATED_BY(i),
908 in_LAST_UPDATE_DATE(i),
909 in_LAST_UPDATE_LOGIN(i));
910
911 FOR lang_i IN OKC_UTIL.g_language_code.FIRST..OKC_UTIL.g_language_code.LAST LOOP
912
913 FORALL i in 1..l_tabsize
914 INSERT INTO Oks_K_Lines_TL(
915 id,
916 language,
917 source_lang,
918 sfwt_flag,
919 invoice_text,
920 ib_trx_details,
921 status_text,
922 react_time_name,
923 created_by,
924 creation_date,
925 last_updated_by,
926 last_update_date,
927 last_update_login)
928 VALUES
929 ( in_ID(i),
930 OKC_UTIL.g_language_code(lang_i),
931 l_source_lang,
932 in_SFWT_FLAG(i),
933 in_INVOICE_TEXT(i),
934 in_IB_TRX_DETAILS(i),
935 in_STATUS_TEXT(i),
936 in_REACT_TIME_NAME(i),
937 in_CREATED_BY(i),
938 in_CREATION_DATE(i),
939 in_LAST_UPDATED_BY(i),
940 in_LAST_UPDATE_DATE(i),
941 in_LAST_UPDATE_LOGIN(i));
942 END LOOP;
943
944 IF (l_debug = 'Y') THEN
945 okc_debug.log('23500: Exiting INSERT_ROW_UPG', 2);
946 okc_debug.Reset_Indentation;
947 END IF;
948 EXCEPTION
949 WHEN OTHERS THEN
950 IF (l_debug = 'Y') THEN
951 okc_debug.log('23600: Exiting INSERT_ROW_UPG:OTHERS Exception', 2);
952 okc_debug.Reset_Indentation;
953 END IF;
954 OKC_API.SET_MESSAGE(
955 p_app_name => G_APP_NAME,
956 p_msg_name => G_UNEXPECTED_ERROR,
957 p_token1 => G_SQLCODE_TOKEN,
958 p_token1_value => SQLCODE,
959 p_token2 => G_SQLERRM_TOKEN,
960 p_token2_value => SQLERRM);
961 x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
962 END INSERT_ROW_UPG_KLNV_TBL;
963
964 PROCEDURE INSERT_ROW_UPG_bill_sch
965 (x_return_status OUT NOCOPY VARCHAR2,
966 p_oks_billrate_schedules_v_tbl OKS_BRS_PVT.OksBillrateSchedulesVTblType) IS
967
968 l_tabsize NUMBER := p_oks_billrate_schedules_v_tbl.COUNT;
969 l_source_lang VARCHAR2(12) := okc_util.get_userenv_lang;
970 l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
971 In_ID OKC_DATATYPES.NumberTabTyp;
972 In_CLE_ID OKC_DATATYPES.NumberTabTyp;
973 In_BT_CLE_ID OKC_DATATYPES.NumberTabTyp;
974 In_DNZ_CHR_ID OKC_DATATYPES.NumberTabTyp;
975 In_START_HOUR OKC_DATATYPES.NumberTabTyp;
976 In_START_MINUTE OKC_DATATYPES.NumberTabTyp;
977 In_END_HOUR OKC_DATATYPES.NumberTabTyp;
978 In_END_MINUTE OKC_DATATYPES.NumberTabTyp;
979 In_MONDAY_FLAG OKC_DATATYPES.VAR3TabTyp;
980 In_TUESDAY_FLAG OKC_DATATYPES.VAR3TabTyp;
981 In_WEDNESDAY_FLAG OKC_DATATYPES.VAR3TabTyp;
982 In_THURSDAY_FLAG OKC_DATATYPES.VAR3TabTyp;
983 In_FRIDAY_FLAG OKC_DATATYPES.VAR3TabTyp;
984 In_SATURDAY_FLAG OKC_DATATYPES.VAR3TabTyp;
985 In_SUNDAY_FLAG OKC_DATATYPES.VAR3TabTyp;
986 In_OBJECT1_ID1 OKC_DATATYPES.VAR40TabTyp;
987 In_OBJECT1_ID2 OKC_DATATYPES.VAR40TabTyp;
988 In_JTOT_OBJECT1_CODE OKC_DATATYPES.VAR30TabTyp;
989 In_BILL_RATE_CODE OKC_DATATYPES.VAR40TabTyp;
990 In_FLAT_RATE OKC_DATATYPES.NumberTabTyp;
991 In_UOM OKC_DATATYPES.VAR3TabTyp;
992 In_HOLIDAY_YN OKC_DATATYPES.VAR3TabTyp;
993 In_PERCENT_OVER_LIST_PRICE OKC_DATATYPES.NumberTabTyp;
994 In_PROGRAM_APPLICATION_ID OKC_DATATYPES.NumberTabTyp;
995 In_PROGRAM_ID OKC_DATATYPES.NumberTabTyp;
996 In_PROGRAM_UPDATE_DATE OKC_DATATYPES.DateTabTyp;
997 In_REQUEST_ID OKC_DATATYPES.NumberTabTyp;
998 In_CREATED_BY OKC_DATATYPES.NumberTabTyp;
999 In_CREATION_DATE OKC_DATATYPES.DateTabTyp;
1000 In_LAST_UPDATED_BY OKC_DATATYPES.NumberTabTyp;
1001 In_LAST_UPDATE_DATE OKC_DATATYPES.DateTabTyp;
1002 In_LAST_UPDATE_LOGIN OKC_DATATYPES.NumberTabTyp;
1003 In_SECURITY_GROUP_ID OKC_DATATYPES.NumberTabTyp;
1004 In_OBJECT_VERSION_NUMBER OKC_DATATYPES.NumberTabTyp;
1005 i NUMBER := p_oks_billrate_schedules_v_tbl.FIRST;
1006 j NUMBER := 0;
1007 BEGIN
1008 x_return_status := OKC_API.G_RET_STS_SUCCESS;
1009 IF (l_debug = 'Y') THEN
1010 okc_debug.Set_Indentation('OKS_BRS_PVT');
1011 okc_debug.log('23400: Entered INSERT_ROW_UPG', 2);
1012 END IF;
1013 WHILE i IS NOT NULL
1014 LOOP
1015 j := j +1;
1016 In_ID(j) := p_oks_billrate_schedules_v_tbl(i).ID;
1017 In_CLE_ID(j) := p_oks_billrate_schedules_v_tbl(i).CLE_ID;
1018 In_BT_CLE_ID(j) := p_oks_billrate_schedules_v_tbl(i).BT_CLE_ID;
1019 In_DNZ_CHR_ID(j) := p_oks_billrate_schedules_v_tbl(i).DNZ_CHR_ID;
1020 In_START_HOUR(j) := p_oks_billrate_schedules_v_tbl(i).START_HOUR;
1021 In_START_MINUTE(j) := p_oks_billrate_schedules_v_tbl(i).START_MINUTE;
1022 In_END_HOUR(j) := p_oks_billrate_schedules_v_tbl(i).END_HOUR;
1023 In_END_MINUTE(j) := p_oks_billrate_schedules_v_tbl(i).END_MINUTE;
1024 In_MONDAY_FLAG(j) := p_oks_billrate_schedules_v_tbl(i).MONDAY_FLAG;
1025 In_TUESDAY_FLAG(j) := p_oks_billrate_schedules_v_tbl(i).TUESDAY_FLAG;
1026 In_WEDNESDAY_FLAG(j) := p_oks_billrate_schedules_v_tbl(i).WEDNESDAY_FLAG;
1027 In_THURSDAY_FLAG(j) := p_oks_billrate_schedules_v_tbl(i).THURSDAY_FLAG;
1028 In_FRIDAY_FLAG(j) := p_oks_billrate_schedules_v_tbl(i).FRIDAY_FLAG;
1029 In_SATURDAY_FLAG(j) := p_oks_billrate_schedules_v_tbl(i).SATURDAY_FLAG;
1030 In_SUNDAY_FLAG(j) := p_oks_billrate_schedules_v_tbl(i).SUNDAY_FLAG;
1031 In_OBJECT1_ID1(j) := p_oks_billrate_schedules_v_tbl(i).OBJECT1_ID1;
1032 In_OBJECT1_ID2(j) := p_oks_billrate_schedules_v_tbl(i).OBJECT1_ID2;
1033 In_JTOT_OBJECT1_CODE(j) := p_oks_billrate_schedules_v_tbl(i).JTOT_OBJECT1_CODE;
1034 In_BILL_RATE_CODE(j) := p_oks_billrate_schedules_v_tbl(i).BILL_RATE_CODE;
1035 In_FLAT_RATE(j) := p_oks_billrate_schedules_v_tbl(i).FLAT_RATE;
1036 In_UOM(j) := p_oks_billrate_schedules_v_tbl(i).UOM;
1037 In_HOLIDAY_YN(j) := p_oks_billrate_schedules_v_tbl(i).HOLIDAY_YN;
1038 In_PERCENT_OVER_LIST_PRICE(j) := p_oks_billrate_schedules_v_tbl(i).PERCENT_OVER_LIST_PRICE;
1039 In_PROGRAM_APPLICATION_ID(j) := p_oks_billrate_schedules_v_tbl(i).PROGRAM_APPLICATION_ID;
1040 In_PROGRAM_ID(j) := p_oks_billrate_schedules_v_tbl(i).PROGRAM_ID;
1041 In_PROGRAM_UPDATE_DATE(j) := p_oks_billrate_schedules_v_tbl(i).PROGRAM_UPDATE_DATE;
1042 In_REQUEST_ID(j) := p_oks_billrate_schedules_v_tbl(i).REQUEST_ID;
1043 In_CREATED_BY(j) := p_oks_billrate_schedules_v_tbl(i).CREATED_BY;
1044 In_CREATION_DATE(j) := p_oks_billrate_schedules_v_tbl(i).CREATION_DATE;
1045 In_LAST_UPDATED_BY(j) := p_oks_billrate_schedules_v_tbl(i).LAST_UPDATED_BY;
1046 In_LAST_UPDATE_DATE(j) := p_oks_billrate_schedules_v_tbl(i).LAST_UPDATE_DATE;
1047 In_LAST_UPDATE_LOGIN(j) := p_oks_billrate_schedules_v_tbl(i).LAST_UPDATE_LOGIN;
1048 In_SECURITY_GROUP_ID(j) := p_oks_billrate_schedules_v_tbl(i).SECURITY_GROUP_ID;
1049 In_OBJECT_VERSION_NUMBER(j) := p_oks_billrate_schedules_v_tbl(i).OBJECT_VERSION_NUMBER;
1050
1051 i :=p_oks_billrate_schedules_v_tbl.NEXT(i);
1052
1053 END LOOP;
1054
1055 FORALL i in 1..l_tabsize
1056 INSERT INTO OKS_BILLRATE_SCHEDULES (
1057 ID,
1058 CLE_ID,
1059 BT_CLE_ID,
1060 DNZ_CHR_ID,
1061 START_HOUR,
1062 START_MINUTE,
1063 END_HOUR,
1064 END_MINUTE,
1065 MONDAY_FLAG,
1066 TUESDAY_FLAG,
1067 WEDNESDAY_FLAG,
1068 THURSDAY_FLAG,
1069 FRIDAY_FLAG,
1070 SATURDAY_FLAG,
1071 SUNDAY_FLAG,
1072 OBJECT1_ID1,
1073 OBJECT1_ID2,
1074 JTOT_OBJECT1_CODE,
1075 BILL_RATE_CODE,
1076 FLAT_RATE,
1077 UOM,
1078 HOLIDAY_YN,
1079 PERCENT_OVER_LIST_PRICE,
1080 PROGRAM_APPLICATION_ID,
1081 PROGRAM_ID,
1082 PROGRAM_UPDATE_DATE,
1083 REQUEST_ID,
1084 CREATED_BY,
1085 CREATION_DATE,
1086 LAST_UPDATED_BY,
1087 LAST_UPDATE_DATE,
1088 LAST_UPDATE_LOGIN,
1089 SECURITY_GROUP_ID,
1090 OBJECT_VERSION_NUMBER)
1091 VALUES (
1092 in_ID(i),
1093 in_CLE_ID(i),
1094 in_BT_CLE_ID(i),
1095 in_DNZ_CHR_ID(i),
1096 in_START_HOUR(i),
1097 in_START_MINUTE(i),
1098 in_END_HOUR(i),
1099 in_END_MINUTE(i),
1100 in_MONDAY_FLAG(i),
1101 in_TUESDAY_FLAG(i),
1102 in_WEDNESDAY_FLAG(i),
1103 in_THURSDAY_FLAG(i),
1104 in_FRIDAY_FLAG(i),
1105 in_SATURDAY_FLAG(i),
1106 in_SUNDAY_FLAG(i),
1107 in_OBJECT1_ID1(i),
1108 in_OBJECT1_ID2(i),
1109 in_JTOT_OBJECT1_CODE(i),
1110 in_BILL_RATE_CODE(i),
1111 in_FLAT_RATE(i),
1112 in_UOM(i),
1113 in_HOLIDAY_YN(i),
1114 in_PERCENT_OVER_LIST_PRICE(i),
1115 in_PROGRAM_APPLICATION_ID(i),
1116 in_PROGRAM_ID(i),
1117 in_PROGRAM_UPDATE_DATE(i),
1118 in_REQUEST_ID(i),
1119 in_CREATED_BY(i),
1120 in_CREATION_DATE(i),
1121 in_LAST_UPDATED_BY(i),
1122 in_LAST_UPDATE_DATE(i),
1123 in_LAST_UPDATE_LOGIN(i),
1124 in_SECURITY_GROUP_ID(i),
1125 in_OBJECT_VERSION_NUMBER(i));
1126
1127 IF (l_debug = 'Y') THEN
1128 okc_debug.log('23500: Exiting INSERT_ROW_UPG', 2);
1129 okc_debug.Reset_Indentation;
1130 END IF;
1131 EXCEPTION
1132 WHEN OTHERS THEN
1133 IF (l_debug = 'Y') THEN
1134 okc_debug.log('23600: Exiting INSERT_ROW_UPG:OTHERS Exception', 2);
1135 okc_debug.Reset_Indentation;
1136 END IF;
1137 OKC_API.SET_MESSAGE(
1138 p_app_name => G_APP_NAME,
1139 p_msg_name => G_UNEXPECTED_ERROR,
1140 p_token1 => G_SQLCODE_TOKEN,
1141 p_token1_value => SQLCODE,
1142 p_token2 => G_SQLERRM_TOKEN,
1143 p_token2_value => SQLERRM);
1144 x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1145 END INSERT_ROW_UPG_bill_sch;
1146
1147 PROCEDURE INSERT_ROW_UPG_KHRV_TBL
1148 (x_return_status OUT NOCOPY VARCHAR2,
1149 P_KHRV_TBL OKS_KHR_PVT.khrv_tbl_type) IS
1150
1151
1152 l_tabsize NUMBER := P_KHRV_TBL.COUNT;
1153 l_source_lang VARCHAR2(12) := okc_util.get_userenv_lang;
1154 l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
1155 In_ID OKC_DATATYPES.NumberTabTyp;
1156 In_CHR_ID OKC_DATATYPES.NumberTabTyp;
1157 In_ACCT_RULE_ID OKC_DATATYPES.NumberTabTyp;
1158 In_PAYMENT_TYPE OKC_DATATYPES.VAR30TabTyp;
1159 In_CC_NO OKC_DATATYPES.VAR120TabTyp;
1160 In_CC_EXPIRY_DATE OKC_DATATYPES.DateTabTyp;
1161 In_CC_BANK_ACCT_ID OKC_DATATYPES.NumberTabTyp;
1162 In_CC_AUTH_CODE OKC_DATATYPES.VAR150TabTyp;
1163 In_GRACE_DURATION OKC_DATATYPES.NumberTabTyp;
1164 In_GRACE_PERIOD OKC_DATATYPES.VAR30TabTyp;
1165 In_EST_REV_PERCENT OKC_DATATYPES.NumberTabTyp;
1166 In_EST_REV_DATE OKC_DATATYPES.DateTabTyp;
1167 In_TAX_AMOUNT OKC_DATATYPES.NumberTabTyp;
1168 In_TAX_STATUS OKC_DATATYPES.VAR30TabTyp;
1169 In_TAX_CODE OKC_DATATYPES.NumberTabTyp;
1170 In_TAX_EXEMPTION_ID OKC_DATATYPES.NumberTabTyp;
1171 In_BILLING_PROFILE_ID OKC_DATATYPES.NumberTabTyp;
1172 In_RENEWAL_STATUS OKC_DATATYPES.VAR30TabTyp;
1173 In_ELECTRONIC_RENEWAL_FLAG OKC_DATATYPES.VAR3TabTyp;
1174 In_QUOTE_TO_CONTACT_ID OKC_DATATYPES.NumberTabTyp;
1175 In_QUOTE_TO_SITE_ID OKC_DATATYPES.NumberTabTyp;
1176 In_QUOTE_TO_EMAIL_ID OKC_DATATYPES.NumberTabTyp;
1177 In_QUOTE_TO_PHONE_ID OKC_DATATYPES.NumberTabTyp;
1178 In_QUOTE_TO_FAX_ID OKC_DATATYPES.NumberTabTyp;
1179 In_RENEWAL_PO_REQUIRED OKC_DATATYPES.VAR3TabTyp;
1180 In_RENEWAL_PO_NUMBER OKC_DATATYPES.VAR240TabTyp;
1181 In_RENEWAL_PRICE_LIST OKC_DATATYPES.NumberTabTyp;
1182 In_RENEWAL_PRICING_TYPE OKC_DATATYPES.VAR30TabTyp;
1183 In_RENEWAL_MARKUP_PERCENT OKC_DATATYPES.NumberTabTyp;
1184 In_RENEWAL_GRACE_DURATION OKC_DATATYPES.NumberTabTyp;
1185 In_RENEWAL_GRACE_PERIOD OKC_DATATYPES.VAR30TabTyp;
1186 In_RENEWAL_EST_REV_PERCENT OKC_DATATYPES.NumberTabTyp;
1187 In_RENEWAL_EST_REV_DURATION OKC_DATATYPES.NumberTabTyp;
1188 In_RENEWAL_EST_REV_PERIOD OKC_DATATYPES.VAR30TabTyp;
1189 In_RENEWAL_PRICE_LIST_USED OKC_DATATYPES.NumberTabTyp;
1190 In_RENEWAL_TYPE_USED OKC_DATATYPES.VAR30TabTyp;
1191 In_RENEWAL_NOTIFICATION_TO OKC_DATATYPES.NumberTabTyp;
1192 In_RENEWAL_PO_USED OKC_DATATYPES.VAR3TabTyp;
1193 In_RENEWAL_PRICING_TYPE_USED OKC_DATATYPES.VAR30TabTyp;
1194 In_RENEWAL_MARKUP_PERCENT_USED OKC_DATATYPES.NumberTabTyp;
1195 In_REV_EST_PERCENT_USED OKC_DATATYPES.NumberTabTyp;
1196 In_REV_EST_DURATION_USED OKC_DATATYPES.NumberTabTyp;
1197 In_REV_EST_PERIOD_USED OKC_DATATYPES.VAR30TabTyp;
1198 In_BILLING_PROFILE_USED OKC_DATATYPES.NumberTabTyp;
1199 In_ERN_FLAG_USED_YN OKC_DATATYPES.VAR3TabTyp;
1200 In_EVN_THRESHOLD_AMT OKC_DATATYPES.NumberTabTyp;
1201 In_EVN_THRESHOLD_CUR OKC_DATATYPES.VAR30TabTyp;
1202 In_ERN_THRESHOLD_AMT OKC_DATATYPES.NumberTabTyp;
1203 In_ERN_THRESHOLD_CUR OKC_DATATYPES.VAR30TabTyp;
1204 In_RENEWAL_GRACE_DURATION_USED OKC_DATATYPES.NumberTabTyp;
1205 In_RENEWAL_GRACE_PERIOD_USED OKC_DATATYPES.VAR30TabTyp;
1206 In_INV_TRX_TYPE OKC_DATATYPES.VAR30TabTyp;
1207 In_INV_PRINT_PROFILE OKC_DATATYPES.VAR3TabTyp;
1208 In_AR_INTERFACE_YN OKC_DATATYPES.VAR3TabTyp;
1209 In_HOLD_BILLING OKC_DATATYPES.VAR3TabTyp;
1210 In_SUMMARY_TRX_YN OKC_DATATYPES.VAR3TabTyp;
1211 In_SERVICE_PO_NUMBER OKC_DATATYPES.VAR240TabTyp;
1212 In_SERVICE_PO_REQUIRED OKC_DATATYPES.VAR3TabTyp;
1213 In_BILLING_SCHEDULE_TYPE OKC_DATATYPES.VAR10TabTyp;
1214 In_OBJECT_VERSION_NUMBER OKC_DATATYPES.NumberTabTyp;
1215 In_SECURITY_GROUP_ID OKC_DATATYPES.NumberTabTyp;
1216 In_REQUEST_ID OKC_DATATYPES.NumberTabTyp;
1217 In_CREATED_BY OKC_DATATYPES.NumberTabTyp;
1218 In_CREATION_DATE OKC_DATATYPES.DateTabTyp;
1219 In_LAST_UPDATED_BY OKC_DATATYPES.NumberTabTyp;
1220 In_LAST_UPDATE_DATE OKC_DATATYPES.DateTabTyp;
1221 In_LAST_UPDATE_LOGIN OKC_DATATYPES.NumberTabTyp;
1222 In_COMMITMENT_ID OKC_DATATYPES.NumberTabTyp;
1223 i NUMBER := P_KHRV_TBL.FIRST;
1224 j NUMBER := 0;
1225 BEGIN
1226 x_return_status := OKC_API.G_RET_STS_SUCCESS;
1227 IF (l_debug = 'Y') THEN
1228 okc_debug.Set_Indentation('OKS_KHR_PVT');
1229 okc_debug.log('23400: Entered INSERT_ROW_UPG', 2);
1230 END IF;
1231 WHILE i IS NOT NULL
1232 LOOP
1233 j := j +1;
1234 In_ID(j) := P_KHRV_TBL(i).ID;
1235 In_CHR_ID(j) := P_KHRV_TBL(i).CHR_ID;
1236 In_ACCT_RULE_ID(j) := P_KHRV_TBL(i).ACCT_RULE_ID;
1237 In_PAYMENT_TYPE(j) := P_KHRV_TBL(i).PAYMENT_TYPE;
1238 In_CC_NO(j) := P_KHRV_TBL(i).CC_NO;
1239 In_CC_EXPIRY_DATE(j) := P_KHRV_TBL(i).CC_EXPIRY_DATE;
1240 In_CC_BANK_ACCT_ID(j) := P_KHRV_TBL(i).CC_BANK_ACCT_ID;
1241 In_CC_AUTH_CODE(j) := P_KHRV_TBL(i).CC_AUTH_CODE;
1242 In_GRACE_DURATION(j) := P_KHRV_TBL(i).GRACE_DURATION;
1243 In_GRACE_PERIOD(j) := P_KHRV_TBL(i).GRACE_PERIOD;
1244 In_EST_REV_PERCENT(j) := P_KHRV_TBL(i).EST_REV_PERCENT;
1245 In_EST_REV_DATE(j) := P_KHRV_TBL(i).EST_REV_DATE;
1246 In_TAX_AMOUNT(j) := P_KHRV_TBL(i).TAX_AMOUNT;
1247 In_TAX_STATUS(j) := P_KHRV_TBL(i).TAX_STATUS;
1248 In_TAX_CODE(j) := P_KHRV_TBL(i).TAX_CODE;
1249 In_TAX_EXEMPTION_ID(j) := P_KHRV_TBL(i).TAX_EXEMPTION_ID;
1250 In_BILLING_PROFILE_ID(j) := P_KHRV_TBL(i).BILLING_PROFILE_ID;
1251 In_RENEWAL_STATUS(j) := P_KHRV_TBL(i).RENEWAL_STATUS;
1252 In_ELECTRONIC_RENEWAL_FLAG(j) := P_KHRV_TBL(i).ELECTRONIC_RENEWAL_FLAG;
1253 In_QUOTE_TO_CONTACT_ID(j) := P_KHRV_TBL(i).QUOTE_TO_CONTACT_ID;
1254 In_QUOTE_TO_SITE_ID(j) := P_KHRV_TBL(i).QUOTE_TO_SITE_ID;
1255 In_QUOTE_TO_EMAIL_ID(j) := P_KHRV_TBL(i).QUOTE_TO_EMAIL_ID;
1256 In_QUOTE_TO_PHONE_ID(j) := P_KHRV_TBL(i).QUOTE_TO_PHONE_ID;
1257 In_QUOTE_TO_FAX_ID(j) := P_KHRV_TBL(i).QUOTE_TO_FAX_ID;
1258 In_RENEWAL_PO_REQUIRED(j) := P_KHRV_TBL(i).RENEWAL_PO_REQUIRED;
1259 In_RENEWAL_PO_NUMBER(j) := P_KHRV_TBL(i).RENEWAL_PO_NUMBER;
1260 In_RENEWAL_PRICE_LIST(j) := P_KHRV_TBL(i).RENEWAL_PRICE_LIST;
1261 In_RENEWAL_PRICING_TYPE(j) := P_KHRV_TBL(i).RENEWAL_PRICING_TYPE;
1262 In_RENEWAL_MARKUP_PERCENT(j) := P_KHRV_TBL(i).RENEWAL_MARKUP_PERCENT;
1263 In_RENEWAL_GRACE_DURATION(j) := P_KHRV_TBL(i).RENEWAL_GRACE_DURATION;
1264 In_RENEWAL_GRACE_PERIOD(j) := P_KHRV_TBL(i).RENEWAL_GRACE_PERIOD;
1265 In_RENEWAL_EST_REV_PERCENT(j) := P_KHRV_TBL(i).RENEWAL_EST_REV_PERCENT;
1266 In_RENEWAL_EST_REV_DURATION(j) := P_KHRV_TBL(i).RENEWAL_EST_REV_DURATION;
1267 In_RENEWAL_EST_REV_PERIOD(j) := P_KHRV_TBL(i).RENEWAL_EST_REV_PERIOD;
1268 In_RENEWAL_PRICE_LIST_USED(j) := P_KHRV_TBL(i).RENEWAL_PRICE_LIST_USED;
1269 In_RENEWAL_TYPE_USED(j) := P_KHRV_TBL(i).RENEWAL_TYPE_USED;
1270 In_RENEWAL_NOTIFICATION_TO(j) := P_KHRV_TBL(i).RENEWAL_NOTIFICATION_TO;
1271 In_RENEWAL_PO_USED(j) := P_KHRV_TBL(i).RENEWAL_PO_USED;
1272 In_RENEWAL_PRICING_TYPE_USED(j) := P_KHRV_TBL(i).RENEWAL_PRICING_TYPE_USED;
1273 In_RENEWAL_MARKUP_PERCENT_USED(j) := P_KHRV_TBL(i).RENEWAL_MARKUP_PERCENT_USED;
1274 In_REV_EST_PERCENT_USED(j) := P_KHRV_TBL(i).REV_EST_PERCENT_USED;
1275 In_REV_EST_DURATION_USED(j) := P_KHRV_TBL(i).REV_EST_DURATION_USED;
1276 In_REV_EST_PERIOD_USED(j) := P_KHRV_TBL(i).REV_EST_PERIOD_USED;
1277 In_BILLING_PROFILE_USED(j) := P_KHRV_TBL(i).BILLING_PROFILE_USED;
1278 In_ERN_FLAG_USED_YN(j) := P_KHRV_TBL(i).ERN_FLAG_USED_YN;
1279 In_EVN_THRESHOLD_AMT(j) := P_KHRV_TBL(i).EVN_THRESHOLD_AMT;
1280 In_EVN_THRESHOLD_CUR(j) := P_KHRV_TBL(i).EVN_THRESHOLD_CUR;
1281 In_ERN_THRESHOLD_AMT(j) := P_KHRV_TBL(i).ERN_THRESHOLD_AMT;
1282 In_ERN_THRESHOLD_CUR(j) := P_KHRV_TBL(i).ERN_THRESHOLD_CUR;
1283 In_RENEWAL_GRACE_DURATION_USED(j) := P_KHRV_TBL(i).RENEWAL_GRACE_DURATION_USED;
1284 In_RENEWAL_GRACE_PERIOD_USED(j) := P_KHRV_TBL(i).RENEWAL_GRACE_PERIOD_USED;
1285 In_INV_TRX_TYPE(j) := P_KHRV_TBL(i).INV_TRX_TYPE;
1286 In_INV_PRINT_PROFILE(j) := P_KHRV_TBL(i).INV_PRINT_PROFILE;
1287 In_AR_INTERFACE_YN(j) := P_KHRV_TBL(i).AR_INTERFACE_YN;
1288 In_HOLD_BILLING(j) := P_KHRV_TBL(i).HOLD_BILLING;
1289 In_SUMMARY_TRX_YN(j) := P_KHRV_TBL(i).SUMMARY_TRX_YN;
1290 In_SERVICE_PO_NUMBER(j) := P_KHRV_TBL(i).SERVICE_PO_NUMBER;
1291 In_SERVICE_PO_REQUIRED(j) := P_KHRV_TBL(i).SERVICE_PO_REQUIRED;
1292 In_BILLING_SCHEDULE_TYPE(j) := P_KHRV_TBL(i).BILLING_SCHEDULE_TYPE;
1293 In_OBJECT_VERSION_NUMBER(j) := P_KHRV_TBL(i).OBJECT_VERSION_NUMBER;
1294 In_SECURITY_GROUP_ID(j) := P_KHRV_TBL(i).SECURITY_GROUP_ID;
1295 In_REQUEST_ID(j) := P_KHRV_TBL(i).REQUEST_ID;
1296 In_CREATED_BY(j) := P_KHRV_TBL(i).CREATED_BY;
1297 In_CREATION_DATE(j) := P_KHRV_TBL(i).CREATION_DATE;
1298 In_LAST_UPDATED_BY(j) := P_KHRV_TBL(i).LAST_UPDATED_BY;
1299 In_LAST_UPDATE_DATE(j) := P_KHRV_TBL(i).LAST_UPDATE_DATE;
1300 In_LAST_UPDATE_LOGIN(j) := P_KHRV_TBL(i).LAST_UPDATE_LOGIN;
1301 In_COMMITMENT_ID(j) := P_KHRV_TBL(i).COMMITMENT_ID;
1302 i :=P_KHRV_TBL.NEXT(i);
1303 END LOOP;
1304 FORALL i in 1..l_tabsize
1305 INSERT INTO OKS_K_HEADERS_B (
1306 ID,
1307 CHR_ID,
1308 ACCT_RULE_ID,
1309 PAYMENT_TYPE,
1310 CC_NO,
1311 CC_EXPIRY_DATE,
1312 CC_BANK_ACCT_ID,
1313 CC_AUTH_CODE,
1314 GRACE_DURATION,
1315 GRACE_PERIOD,
1316 EST_REV_PERCENT,
1317 EST_REV_DATE,
1318 TAX_AMOUNT,
1319 TAX_STATUS,
1320 TAX_CODE,
1321 TAX_EXEMPTION_ID,
1322 BILLING_PROFILE_ID,
1323 RENEWAL_STATUS,
1324 ELECTRONIC_RENEWAL_FLAG,
1325 QUOTE_TO_CONTACT_ID,
1326 QUOTE_TO_SITE_ID,
1327 QUOTE_TO_EMAIL_ID,
1328 QUOTE_TO_PHONE_ID,
1329 QUOTE_TO_FAX_ID,
1330 RENEWAL_PO_REQUIRED,
1331 RENEWAL_PO_NUMBER,
1332 RENEWAL_PRICE_LIST,
1333 RENEWAL_PRICING_TYPE,
1334 RENEWAL_MARKUP_PERCENT,
1335 RENEWAL_GRACE_DURATION,
1336 RENEWAL_GRACE_PERIOD,
1337 RENEWAL_EST_REV_PERCENT,
1338 RENEWAL_EST_REV_DURATION,
1339 RENEWAL_EST_REV_PERIOD,
1340 RENEWAL_PRICE_LIST_USED,
1341 RENEWAL_TYPE_USED,
1342 RENEWAL_NOTIFICATION_TO,
1343 RENEWAL_PO_USED,
1344 RENEWAL_PRICING_TYPE_USED,
1345 RENEWAL_MARKUP_PERCENT_USED,
1346 REV_EST_PERCENT_USED,
1347 REV_EST_DURATION_USED,
1348 REV_EST_PERIOD_USED,
1349 BILLING_PROFILE_USED,
1350 ERN_FLAG_USED_YN,
1351 EVN_THRESHOLD_AMT,
1352 EVN_THRESHOLD_CUR,
1353 ERN_THRESHOLD_AMT,
1354 ERN_THRESHOLD_CUR,
1355 RENEWAL_GRACE_DURATION_USED,
1356 RENEWAL_GRACE_PERIOD_USED,
1357 INV_TRX_TYPE,
1358 INV_PRINT_PROFILE,
1359 AR_INTERFACE_YN,
1360 HOLD_BILLING,
1361 SUMMARY_TRX_YN,
1362 SERVICE_PO_NUMBER,
1363 SERVICE_PO_REQUIRED,
1364 BILLING_SCHEDULE_TYPE,
1365 OBJECT_VERSION_NUMBER,
1366 SECURITY_GROUP_ID,
1367 REQUEST_ID,
1368 CREATED_BY,
1369 CREATION_DATE,
1370 LAST_UPDATED_BY,
1371 LAST_UPDATE_DATE,
1372 LAST_UPDATE_LOGIN,
1373 COMMITMENT_ID)
1374 VALUES (
1375 in_ID(i),
1376 in_CHR_ID(i),
1377 in_ACCT_RULE_ID(i),
1378 in_PAYMENT_TYPE(i),
1379 in_CC_NO(i),
1380 in_CC_EXPIRY_DATE(i),
1381 in_CC_BANK_ACCT_ID(i),
1382 in_CC_AUTH_CODE(i),
1383 in_GRACE_DURATION(i),
1384 in_GRACE_PERIOD(i),
1385 in_EST_REV_PERCENT(i),
1386 in_EST_REV_DATE(i),
1387 in_TAX_AMOUNT(i),
1388 in_TAX_STATUS(i),
1389 in_TAX_CODE(i),
1390 in_TAX_EXEMPTION_ID(i),
1391 in_BILLING_PROFILE_ID(i),
1392 in_RENEWAL_STATUS(i),
1393 in_ELECTRONIC_RENEWAL_FLAG(i),
1394 in_QUOTE_TO_CONTACT_ID(i),
1395 in_QUOTE_TO_SITE_ID(i),
1396 in_QUOTE_TO_EMAIL_ID(i),
1397 in_QUOTE_TO_PHONE_ID(i),
1398 in_QUOTE_TO_FAX_ID(i),
1399 in_RENEWAL_PO_REQUIRED(i),
1400 in_RENEWAL_PO_NUMBER(i),
1401 in_RENEWAL_PRICE_LIST(i),
1402 in_RENEWAL_PRICING_TYPE(i),
1403 in_RENEWAL_MARKUP_PERCENT(i),
1404 in_RENEWAL_GRACE_DURATION(i),
1405 in_RENEWAL_GRACE_PERIOD(i),
1406 in_RENEWAL_EST_REV_PERCENT(i),
1407 in_RENEWAL_EST_REV_DURATION(i),
1408 in_RENEWAL_EST_REV_PERIOD(i),
1409 in_RENEWAL_PRICE_LIST_USED(i),
1410 in_RENEWAL_TYPE_USED(i),
1411 in_RENEWAL_NOTIFICATION_TO(i),
1412 in_RENEWAL_PO_USED(i),
1413 in_RENEWAL_PRICING_TYPE_USED(i),
1414 in_RENEWAL_MARKUP_PERCENT_USED(i),
1415 in_REV_EST_PERCENT_USED(i),
1416 in_REV_EST_DURATION_USED(i),
1417 in_REV_EST_PERIOD_USED(i),
1418 in_BILLING_PROFILE_USED(i),
1419 in_ERN_FLAG_USED_YN(i),
1420 in_EVN_THRESHOLD_AMT(i),
1421 in_EVN_THRESHOLD_CUR(i),
1422 in_ERN_THRESHOLD_AMT(i),
1423 in_ERN_THRESHOLD_CUR(i),
1424 in_RENEWAL_GRACE_DURATION_USED(i),
1425 in_RENEWAL_GRACE_PERIOD_USED(i),
1426 in_INV_TRX_TYPE(i),
1427 in_INV_PRINT_PROFILE(i),
1428 in_AR_INTERFACE_YN(i),
1429 in_HOLD_BILLING(i),
1430 in_SUMMARY_TRX_YN(i),
1431 in_SERVICE_PO_NUMBER(i),
1432 in_SERVICE_PO_REQUIRED(i),
1433 in_BILLING_SCHEDULE_TYPE(i),
1434 in_OBJECT_VERSION_NUMBER(i),
1435 in_SECURITY_GROUP_ID(i),
1436 in_REQUEST_ID(i),
1437 in_CREATED_BY(i),
1438 in_CREATION_DATE(i),
1439 in_LAST_UPDATED_BY(i),
1440 in_LAST_UPDATE_DATE(i),
1441 in_LAST_UPDATE_LOGIN(i),
1442 in_COMMITMENT_ID(i));
1443 IF (l_debug = 'Y') THEN
1444 okc_debug.log('23500: Exiting INSERT_ROW_UPG', 2);
1445 okc_debug.Reset_Indentation;
1446 END IF;
1447 EXCEPTION
1448 WHEN OTHERS THEN
1449 IF (l_debug = 'Y') THEN
1450 okc_debug.log('23600: Exiting INSERT_ROW_UPG:OTHERS Exception', 2);
1451 okc_debug.Reset_Indentation;
1452 END IF;
1453 OKC_API.SET_MESSAGE(
1454 p_app_name => G_APP_NAME,
1455 p_msg_name => G_UNEXPECTED_ERROR,
1456 p_token1 => G_SQLCODE_TOKEN,
1457 p_token1_value => SQLCODE,
1458 p_token2 => G_SQLERRM_TOKEN,
1459 p_token2_value => SQLERRM);
1460 x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1461 END INSERT_ROW_UPG_KHRV_TBL;
1462
1463
1464 PROCEDURE INSERT_ROW_UPG_sllv_tbl (x_return_status OUT NOCOPY VARCHAR2, p_sllv_tbl OKS_SLL_PVT.sllv_tbl_type) IS
1465 l_tabsize NUMBER := p_sllv_tbl.COUNT;
1466 l_source_lang VARCHAR2(12) := okc_util.get_userenv_lang;
1467 l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
1468 In_ID OKC_DATATYPES.NumberTabTyp;
1469 In_CHR_ID OKC_DATATYPES.NumberTabTyp;
1470 In_CLE_ID OKC_DATATYPES.NumberTabTyp;
1471 In_DNZ_CHR_ID OKC_DATATYPES.NumberTabTyp;
1472 In_SEQUENCE_NO OKC_DATATYPES.NumberTabTyp;
1473 In_UOM_CODE OKC_DATATYPES.VAR3TabTyp;
1474 In_START_DATE OKC_DATATYPES.DateTabTyp;
1475 In_END_DATE OKC_DATATYPES.DateTabTyp;
1476 In_LEVEL_PERIODS OKC_DATATYPES.NumberTabTyp;
1477 In_UOM_PER_PERIOD OKC_DATATYPES.NumberTabTyp;
1478 In_ADVANCE_PERIODS OKC_DATATYPES.NumberTabTyp;
1479 In_LEVEL_AMOUNT OKC_DATATYPES.NumberTabTyp;
1480 In_INVOICE_OFFSET_DAYS OKC_DATATYPES.NumberTabTyp;
1481 In_INTERFACE_OFFSET_DAYS OKC_DATATYPES.NumberTabTyp;
1482 In_COMMENTS OKC_DATATYPES.VAR1995TabTyp;
1483 In_DUE_ARR_YN OKC_DATATYPES.VAR3TabTyp;
1484 In_AMOUNT OKC_DATATYPES.NumberTabTyp;
1485 In_LINES_DETAILED_YN OKC_DATATYPES.VAR3TabTyp;
1486 In_OBJECT_VERSION_NUMBER OKC_DATATYPES.NumberTabTyp;
1487 In_REQUEST_ID OKC_DATATYPES.NumberTabTyp;
1488 In_CREATED_BY OKC_DATATYPES.NumberTabTyp;
1489 In_CREATION_DATE OKC_DATATYPES.DateTabTyp;
1490 In_LAST_UPDATED_BY OKC_DATATYPES.NumberTabTyp;
1491 In_LAST_UPDATE_DATE OKC_DATATYPES.DateTabTyp;
1492 In_LAST_UPDATE_LOGIN OKC_DATATYPES.NumberTabTyp;
1493 i NUMBER := p_sllv_tbl.FIRST;
1494 j NUMBER := 0;
1495
1496 BEGIN
1497 x_return_status := OKC_API.G_RET_STS_SUCCESS;
1498 IF (l_debug = 'Y') THEN
1499 okc_debug.Set_Indentation('OKS_SLL_PVT');
1500 okc_debug.log('23400: Entered INSERT_ROW_UPG', 2);
1501 END IF;
1502 WHILE i IS NOT NULL
1503 LOOP
1504 j := j +1;
1505 In_ID(j) := p_sllv_tbl(i).ID;
1506 In_CHR_ID(j) := p_sllv_tbl(i).CHR_ID;
1507 In_CLE_ID(j) := p_sllv_tbl(i).CLE_ID;
1508 In_DNZ_CHR_ID(j) := p_sllv_tbl(i).DNZ_CHR_ID;
1509 In_SEQUENCE_NO(j) := p_sllv_tbl(i).SEQUENCE_NO;
1510 In_UOM_CODE(j) := p_sllv_tbl(i).UOM_CODE;
1511 In_START_DATE(j) := p_sllv_tbl(i).START_DATE;
1512 In_END_DATE(j) := p_sllv_tbl(i).END_DATE;
1513 In_LEVEL_PERIODS(j) := p_sllv_tbl(i).LEVEL_PERIODS;
1514 In_UOM_PER_PERIOD(j) := p_sllv_tbl(i).UOM_PER_PERIOD;
1515 In_ADVANCE_PERIODS(j) := p_sllv_tbl(i).ADVANCE_PERIODS;
1516 In_LEVEL_AMOUNT(j) := p_sllv_tbl(i).LEVEL_AMOUNT;
1517 In_INVOICE_OFFSET_DAYS(j) := p_sllv_tbl(i).INVOICE_OFFSET_DAYS;
1518 In_INTERFACE_OFFSET_DAYS(j) := p_sllv_tbl(i).INTERFACE_OFFSET_DAYS;
1519 In_COMMENTS(j) := p_sllv_tbl(i).COMMENTS;
1520 In_DUE_ARR_YN(j) := p_sllv_tbl(i).DUE_ARR_YN;
1521 In_AMOUNT(j) := p_sllv_tbl(i).AMOUNT;
1522 In_LINES_DETAILED_YN(j) := p_sllv_tbl(i).LINES_DETAILED_YN;
1523 In_OBJECT_VERSION_NUMBER(j) := p_sllv_tbl(i).OBJECT_VERSION_NUMBER;
1524 In_REQUEST_ID(j) := p_sllv_tbl(i).REQUEST_ID;
1525 In_CREATED_BY(j) := p_sllv_tbl(i).CREATED_BY;
1526 In_CREATION_DATE(j) := p_sllv_tbl(i).CREATION_DATE;
1527 In_LAST_UPDATED_BY(j) := p_sllv_tbl(i).LAST_UPDATED_BY;
1528 In_LAST_UPDATE_DATE(j) := p_sllv_tbl(i).LAST_UPDATE_DATE;
1529 In_LAST_UPDATE_LOGIN(j) := p_sllv_tbl(i).LAST_UPDATE_LOGIN;
1530 i :=p_sllv_tbl.NEXT(i);
1531 END LOOP;
1532 FORALL i in 1..l_tabsize
1533 INSERT INTO OKS_STREAM_LEVELS_B (
1534 ID,
1535 CHR_ID,
1536 CLE_ID,
1537 DNZ_CHR_ID,
1538 SEQUENCE_NO,
1539 UOM_CODE,
1540 START_DATE,
1541 END_DATE,
1542 LEVEL_PERIODS,
1543 UOM_PER_PERIOD,
1544 ADVANCE_PERIODS,
1545 LEVEL_AMOUNT,
1546 INVOICE_OFFSET_DAYS,
1547 INTERFACE_OFFSET_DAYS,
1548 COMMENTS,
1549 DUE_ARR_YN,
1550 AMOUNT,
1551 LINES_DETAILED_YN,
1552 OBJECT_VERSION_NUMBER,
1553 SECURITY_GROUP_ID,
1554 REQUEST_ID,
1555 CREATED_BY,
1556 CREATION_DATE,
1557 LAST_UPDATED_BY,
1558 LAST_UPDATE_DATE,
1559 LAST_UPDATE_LOGIN)
1560 VALUES (
1561 in_ID(i),
1562 in_CHR_ID(i),
1563 in_CLE_ID(i),
1564 in_DNZ_CHR_ID(i),
1565 in_SEQUENCE_NO(i),
1566 in_UOM_CODE(i),
1567 in_START_DATE(i),
1568 in_END_DATE(i),
1569 in_LEVEL_PERIODS(i),
1570 in_UOM_PER_PERIOD(i),
1571 in_ADVANCE_PERIODS(i),
1572 in_LEVEL_AMOUNT(i),
1573 in_INVOICE_OFFSET_DAYS(i),
1574 in_INTERFACE_OFFSET_DAYS(i),
1575 in_COMMENTS(i),
1576 in_DUE_ARR_YN(i),
1577 in_AMOUNT(i),
1578 in_LINES_DETAILED_YN(i),
1579 in_OBJECT_VERSION_NUMBER(i),
1580 NULL,
1581 in_REQUEST_ID(i),
1582 in_CREATED_BY(i),
1583 in_CREATION_DATE(i),
1584 in_LAST_UPDATED_BY(i),
1585 in_LAST_UPDATE_DATE(i),
1586 in_LAST_UPDATE_LOGIN(i));
1587 IF (l_debug = 'Y') THEN
1588 okc_debug.log('23500: Exiting INSERT_ROW_UPG', 2);
1589 okc_debug.Reset_Indentation;
1590 END IF;
1591 EXCEPTION
1592 WHEN OTHERS THEN
1593 IF (l_debug = 'Y') THEN
1594 okc_debug.log('23600: Exiting INSERT_ROW_UPG:OTHERS Exception', 2);
1595 okc_debug.Reset_Indentation;
1596 END IF;
1597 OKC_API.SET_MESSAGE(
1598 p_app_name => G_APP_NAME,
1599 p_msg_name => G_UNEXPECTED_ERROR,
1600 p_token1 => G_SQLCODE_TOKEN,
1601 p_token1_value => SQLCODE,
1602 p_token2 => G_SQLERRM_TOKEN,
1603 p_token2_value => SQLERRM);
1604 x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1605 END INSERT_ROW_UPG_sllv_tbl;
1606
1607
1608 PROCEDURE INSERT_ROW_UPG_letv_tbl (x_return_status OUT NOCOPY VARCHAR2, p_letv_tbl OKS_BILL_LEVEL_ELEMENTS_PVT.letv_tbl_type) IS
1609 l_tabsize NUMBER := p_letv_tbl.COUNT;
1610 l_source_lang VARCHAR2(12) := okc_util.get_userenv_lang;
1611 l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
1612 In_ID OKC_DATATYPES.NumberTabTyp;
1613 In_SEQUENCE_NUMBER OKC_DATATYPES.VAR240TabTyp;
1614 In_DATE_START OKC_DATATYPES.DateTabTyp;
1615 In_AMOUNT OKC_DATATYPES.NumberTabTyp;
1616 In_DATE_RECEIVABLE_GL OKC_DATATYPES.DateTabTyp;
1617 In_DATE_REVENUE_RULE_START OKC_DATATYPES.DateTabTyp;
1618 In_DATE_TRANSACTION OKC_DATATYPES.DateTabTyp;
1619 In_DATE_DUE OKC_DATATYPES.DateTabTyp;
1620 In_DATE_PRINT OKC_DATATYPES.DateTabTyp;
1621 In_DATE_TO_INTERFACE OKC_DATATYPES.DateTabTyp;
1622 In_DATE_COMPLETED OKC_DATATYPES.DateTabTyp;
1623 In_OBJECT_VERSION_NUMBER OKC_DATATYPES.NumberTabTyp;
1624 In_RUL_ID OKC_DATATYPES.NumberTabTyp;
1625 In_CREATED_BY OKC_DATATYPES.NumberTabTyp;
1626 In_CREATION_DATE OKC_DATATYPES.DateTabTyp;
1627 In_LAST_UPDATED_BY OKC_DATATYPES.NumberTabTyp;
1628 In_LAST_UPDATE_DATE OKC_DATATYPES.DateTabTyp;
1629 --In_SECURITY_GROUP_ID OKC_DATATYPES.NumberTabTyp;
1630 In_CLE_ID OKC_DATATYPES.NumberTabTyp;
1631 In_DNZ_CHR_ID OKC_DATATYPES.NumberTabTyp;
1632 In_DATE_END OKC_DATATYPES.DateTabTyp;
1633 In_PARENT_CLE_ID OKC_DATATYPES.NumberTabTyp;
1634 i NUMBER := p_letv_tbl.FIRST;
1635 j NUMBER := 0;
1636
1637 BEGIN
1638 x_return_status := OKC_API.G_RET_STS_SUCCESS;
1639 IF (l_debug = 'Y') THEN
1640 okc_debug.Set_Indentation('OKS_BILL_LEVEL_ELEMENTS_PVT');
1641 okc_debug.log('23400: Entered INSERT_ROW_UPG', 2);
1642 END IF;
1643 WHILE i IS NOT NULL
1644 LOOP
1645 j := j +1;
1646 In_ID(j) := p_letv_tbl(i).ID;
1647 In_SEQUENCE_NUMBER(j) := p_letv_tbl(i).SEQUENCE_NUMBER;
1648 In_DATE_START(j) := p_letv_tbl(i).DATE_START;
1649 In_AMOUNT(j) := p_letv_tbl(i).AMOUNT;
1650 In_DATE_RECEIVABLE_GL(j) := p_letv_tbl(i).DATE_RECEIVABLE_GL;
1651 In_DATE_REVENUE_RULE_START(j) := p_letv_tbl(i).DATE_REVENUE_RULE_START;
1652 In_DATE_TRANSACTION(j) := p_letv_tbl(i).DATE_TRANSACTION;
1653 In_DATE_DUE(j) := p_letv_tbl(i).DATE_DUE;
1654 In_DATE_PRINT(j) := p_letv_tbl(i).DATE_PRINT;
1655 In_DATE_TO_INTERFACE(j) := p_letv_tbl(i).DATE_TO_INTERFACE;
1656 In_DATE_COMPLETED(j) := p_letv_tbl(i).DATE_COMPLETED;
1657 In_OBJECT_VERSION_NUMBER(j) := p_letv_tbl(i).OBJECT_VERSION_NUMBER;
1658 In_RUL_ID(j) := p_letv_tbl(i).RUL_ID;
1659 In_CREATED_BY(j) := p_letv_tbl(i).CREATED_BY;
1660 In_CREATION_DATE(j) := p_letv_tbl(i).CREATION_DATE;
1661 In_LAST_UPDATED_BY(j) := p_letv_tbl(i).LAST_UPDATED_BY;
1662 In_LAST_UPDATE_DATE(j) := p_letv_tbl(i).LAST_UPDATE_DATE;
1663 -- In_SECURITY_GROUP_ID(j) := p_letv_tbl(i).SECURITY_GROUP_ID;
1664 In_CLE_ID(j) := p_letv_tbl(i).CLE_ID;
1665 In_DNZ_CHR_ID(j) := p_letv_tbl(i).DNZ_CHR_ID;
1666 In_DATE_END(j) := p_letv_tbl(i).DATE_END;
1667 In_PARENT_CLE_ID(j) := p_letv_tbl(i).PARENT_CLE_ID;
1668 i :=p_letv_tbl.NEXT(i);
1669 END LOOP;
1670 FORALL i in 1..l_tabsize
1671 INSERT INTO OKS_LEVEL_ELEMENTS (
1672 ID,
1673 SEQUENCE_NUMBER,
1674 DATE_START,
1675 AMOUNT,
1676 DATE_RECEIVABLE_GL,
1677 DATE_REVENUE_RULE_START,
1678 DATE_TRANSACTION,
1679 DATE_DUE,
1680 DATE_PRINT,
1681 DATE_TO_INTERFACE,
1682 DATE_COMPLETED,
1683 OBJECT_VERSION_NUMBER,
1684 RUL_ID,
1685 CREATED_BY,
1686 CREATION_DATE,
1687 LAST_UPDATED_BY,
1688 LAST_UPDATE_DATE,
1689 SECURITY_GROUP_ID,
1690 CLE_ID,
1691 DNZ_CHR_ID,
1692 DATE_END,
1693 PARENT_CLE_ID)
1694 VALUES (
1695 in_ID(i),
1696 in_SEQUENCE_NUMBER(i),
1697 in_DATE_START(i),
1698 in_AMOUNT(i),
1699 in_DATE_RECEIVABLE_GL(i),
1700 in_DATE_REVENUE_RULE_START(i),
1701 in_DATE_TRANSACTION(i),
1702 in_DATE_DUE(i),
1703 in_DATE_PRINT(i),
1704 in_DATE_TO_INTERFACE(i),
1705 in_DATE_COMPLETED(i),
1706 in_OBJECT_VERSION_NUMBER(i),
1707 in_RUL_ID(i),
1708 in_CREATED_BY(i),
1709 in_CREATION_DATE(i),
1710 in_LAST_UPDATED_BY(i),
1711 in_LAST_UPDATE_DATE(i),
1712 NULL,
1713 in_CLE_ID(i),
1714 in_DNZ_CHR_ID(i),
1715 in_DATE_END(i),
1716 in_PARENT_CLE_ID(i));
1717 IF (l_debug = 'Y') THEN
1718 okc_debug.log('23500: Exiting INSERT_ROW_UPG', 2);
1719 okc_debug.Reset_Indentation;
1720 END IF;
1721 EXCEPTION
1722 WHEN OTHERS THEN
1723 IF (l_debug = 'Y') THEN
1724 okc_debug.log('23600: Exiting INSERT_ROW_UPG:OTHERS Exception', 2);
1725 okc_debug.Reset_Indentation;
1726 END IF;
1727
1728 OKC_API.SET_MESSAGE(
1729 p_app_name => G_APP_NAME,
1730 p_msg_name => G_UNEXPECTED_ERROR,
1731 p_token1 => G_SQLCODE_TOKEN,
1732 p_token1_value => SQLCODE,
1733 p_token2 => G_SQLERRM_TOKEN,
1734 p_token2_value => SQLERRM);
1735 x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1736 END INSERT_ROW_UPG_letv_tbl;
1737
1738
1739
1740
1741
1742 -----------------------------------------------------------------------------
1743 -- Start INSERT_SUB_TBLS Added by AVReddy on Dec 22 03
1744 -----------------------------------------------------------------------------
1745
1746
1747 PROCEDURE INSERT_BY_TBL_SUBHDR(
1748 x_return_status OUT NOCOPY VARCHAR2
1749 ,P_SUBHDR_TBL OKS_SUBSCR_HDR_PVT.schv_tbl_type) IS
1750
1751 l_in_id OKC_DATATYPES.NumberTabTyp;
1752 l_in_name OKC_DATATYPES.Var240TabTyp;
1753 l_in_description OKC_DATATYPES.Var1995TabTyp;
1754 l_in_cle_id OKC_DATATYPES.NumberTabTyp;
1755 l_in_dnz_chr_id OKC_DATATYPES.NumberTabTyp;
1756 l_in_instance_id OKC_DATATYPES.NumberTabTyp;
1757 l_in_sfwt_flag OKC_DATATYPES.Var3TabTyp;
1758 l_in_subscription_type OKC_DATATYPES.Var30TabTyp;
1759 l_in_item_type OKC_DATATYPES.Var10TabTyp;
1760 l_in_media_type OKC_DATATYPES.Var10TabTyp;
1761 l_in_status OKC_DATATYPES.Var3TabTyp;
1762 l_in_frequency OKC_DATATYPES.Var75TabTyp;
1763 l_in_fulfillment_channel OKC_DATATYPES.Var30TabTyp;
1764 l_in_offset OKC_DATATYPES.NumberTabTyp;
1765 l_in_comments OKC_DATATYPES.Var1995TabTyp;
1766 l_in_object_version_number OKC_DATATYPES.NumberTabTyp;
1767 l_in_created_by OKC_DATATYPES.NumberTabTyp;
1768 l_in_creation_date OKC_DATATYPES.DateTabTyp;
1769 l_in_last_updated_by OKC_DATATYPES.NumberTabTyp;
1770 l_in_last_update_date OKC_DATATYPES.DateTabTyp;
1771 l_in_last_update_login OKC_DATATYPES.NumberTabTyp;
1772 l_in_UPG_ORIG_SYSTEM_REF OKC_DATATYPES.Var75TabTyp;
1773 l_in_UPG_ORIG_SYSTEM_REF_ID OKC_DATATYPES.NumberTabTyp;
1774
1775 l_in_tabsize NUMBER := P_SUBHDR_TBL.COUNT;
1776 l_source_lang VARCHAR2(12) := okc_util.get_userenv_lang;
1777 tbl_idx NUMBER;
1778 j NUMBER := 0;
1779
1780
1781 BEGIN
1782 x_return_status := OKC_API.G_RET_STS_SUCCESS;
1783
1784 IF (l_debug = 'Y') THEN
1785 okc_debug.Set_Indentation('OKS_SUBSCR_HDR_PVT');
1786 okc_debug.log('23400: Entered INSERT_ROW_SUBHDR_UPG', 2);
1787 END IF;
1788 tbl_idx := P_SUBHDR_TBL.FIRST;
1789
1790 WHILE tbl_idx IS NOT NULL LOOP
1791 j := j +1;
1792 l_in_id(j) := P_SUBHDR_TBL(tbl_idx).id;
1793 l_in_name(j) := P_SUBHDR_TBL(tbl_idx).name;
1794 l_in_description(j) := P_SUBHDR_TBL(tbl_idx).description;
1795 l_in_cle_id(j) := P_SUBHDR_TBL(tbl_idx).cle_id;
1796 l_in_dnz_chr_id(j) := P_SUBHDR_TBL(tbl_idx).dnz_chr_id;
1797 l_in_instance_id(j) := P_SUBHDR_TBL(tbl_idx).instance_id;
1798 l_in_sfwt_flag(j) := P_SUBHDR_TBL(tbl_idx).sfwt_flag;
1799 l_in_subscription_type(j) := P_SUBHDR_TBL(tbl_idx).subscription_type;
1800 l_in_item_type(j) := P_SUBHDR_TBL(tbl_idx).item_type;
1801 l_in_media_type(j) := P_SUBHDR_TBL(tbl_idx).media_type;
1802 l_in_status(j) := P_SUBHDR_TBL(tbl_idx).status;
1803 l_in_frequency(j) := P_SUBHDR_TBL(tbl_idx).frequency;
1804 l_in_fulfillment_channel(j) := P_SUBHDR_TBL(tbl_idx).fulfillment_channel;
1805 l_in_offset(j) := P_SUBHDR_TBL(tbl_idx).offset;
1806 l_in_comments(j) := P_SUBHDR_TBL(tbl_idx).comments;
1807 l_in_object_version_number(j) := P_SUBHDR_TBL(tbl_idx).object_version_number;
1808 l_in_created_by(j) := P_SUBHDR_TBL(tbl_idx).created_by;
1809 l_in_creation_date(j) := P_SUBHDR_TBL(tbl_idx).creation_date;
1810 l_in_last_updated_by(j) := P_SUBHDR_TBL(tbl_idx).last_updated_by;
1811 l_in_last_update_date(j) := P_SUBHDR_TBL(tbl_idx).last_update_date;
1812 l_in_last_update_login(j) := P_SUBHDR_TBL(tbl_idx).last_update_login;
1813 l_in_UPG_ORIG_SYSTEM_REF(j) := P_SUBHDR_TBL(tbl_idx).UPG_ORIG_SYSTEM_REF;
1814 l_in_UPG_ORIG_SYSTEM_REF_ID(j) := P_SUBHDR_TBL(tbl_idx).UPG_ORIG_SYSTEM_REF_ID;
1815 tbl_idx := P_SUBHDR_TBL.NEXT(tbl_idx);
1816
1817 END LOOP;
1818 FORALL x in 1 ..l_in_tabsize
1819 INSERT INTO OKS_SUBSCR_HEADER_B(
1820 id,
1821 cle_id,
1822 dnz_chr_id,
1823 instance_id,
1824 subscription_type,
1825 item_type,
1826 media_type,
1827 status,
1828 frequency,
1829 fulfillment_channel,
1830 offset,
1831 object_version_number,
1832 created_by,
1833 creation_date,
1834 last_updated_by,
1835 last_update_date,
1836 last_update_login
1837 ,UPG_ORIG_SYSTEM_REF
1838 ,UPG_ORIG_SYSTEM_REF_ID)
1839 VALUES (
1840 l_in_id(x)
1841 ,l_in_cle_id(x)
1842 ,l_in_dnz_chr_id(x)
1843 ,l_in_instance_id(x)
1844 ,l_in_subscription_type(x)
1845 ,l_in_item_type(x)
1846 ,l_in_media_type(x)
1847 ,l_in_status(x)
1848 ,l_in_frequency(x)
1849 ,l_in_fulfillment_channel(x)
1850 ,l_in_offset(x)
1851 ,l_in_object_version_number(x)
1852 ,l_in_created_by(x)
1853 ,l_in_creation_date(x)
1854 ,l_in_last_updated_by(x)
1855 ,l_in_last_update_date(x)
1856 ,l_in_last_update_login(x)
1857 ,l_in_UPG_ORIG_SYSTEM_REF(x)
1858 ,l_in_UPG_ORIG_SYSTEM_REF_ID(x) );
1859
1860
1861 FOR lang_i IN OKC_UTIL.g_language_code.FIRST..OKC_UTIL.g_language_code.LAST LOOP
1862 FORALL x in 1..l_in_tabsize
1863 INSERT INTO OKS_SUBSCR_HEADER_TL(
1864 id,
1865 name,
1866 description,
1867 language,
1868 source_lang,
1869 sfwt_flag,
1870 comments,
1871 created_by,
1872 creation_date,
1873 last_updated_by,
1874 last_update_date,
1875 last_update_login,
1876 SECURITY_GROUP_ID )
1877 VALUES (
1878 l_in_id(x)
1879 ,l_in_name(x)
1880 ,l_in_description(x)
1881 ,OKC_UTIL.g_language_code(lang_i)
1882 ,l_source_lang
1883 ,l_in_sfwt_flag(x)
1884 ,l_in_comments(x)
1885 ,l_in_created_by(x)
1886 ,l_in_creation_date(x)
1887 ,l_in_last_updated_by(x)
1888 ,l_in_last_update_date(x)
1889 ,l_in_last_update_login(x)
1890 ,null );
1891
1892 END LOOP;
1893
1894 IF (l_debug = 'Y') THEN
1895 okc_debug.log('23500: Exiting INSERT_ROW_SUBHDR_UPG', 2);
1896 okc_debug.Reset_Indentation;
1897 END IF;
1898
1899 EXCEPTION
1900 WHEN OTHERS THEN
1901 IF (l_debug = 'Y') THEN
1902 okc_debug.log('23600: Exiting INSERT_ROW_SUBHDR_UPG:OTHERS Exception', 2);
1903 okc_debug.Reset_Indentation;
1904 END IF;
1905
1906 OKC_API.SET_MESSAGE(
1907 p_app_name => G_APP_NAME,
1908 p_msg_name => G_UNEXPECTED_ERROR,
1909 p_token1 => G_SQLCODE_TOKEN,
1910 p_token1_value => SQLCODE,
1911 p_token2 => G_SQLERRM_TOKEN,
1912 p_token2_value => SQLERRM);
1913
1914 x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1915
1916 END INSERT_BY_TBL_SUBHDR;
1917
1918
1919 --------------------------------------------------------------------------------
1920 ----------- INSERT_ROW_UPG_SUBPTNS_TBL
1921 --------------------------------------------------------------------------------
1922
1923 PROCEDURE INSERT_BY_TBL_SUBPTNS(
1924 x_return_status OUT NOCOPY VARCHAR2
1925 ,P_SUBPTN_TBL OKS_SUBSCR_PTRNS_PVT.scpv_tbl_type) IS
1926
1927 l_in_id OKC_DATATYPES.NumberTabTyp;
1928 l_in_osh_id OKC_DATATYPES.NumberTabTyp;
1929 l_in_dnz_chr_id OKC_DATATYPES.NumberTabTyp;
1930 l_in_dnz_cle_id OKC_DATATYPES.NumberTabTyp;
1931 l_in_seq_no OKC_DATATYPES.NumberTabTyp;
1932 l_in_year OKC_DATATYPES.Var240TabTyp;
1933 l_in_month OKC_DATATYPES.Var240TabTyp;
1934 l_in_week OKC_DATATYPES.Var240TabTyp;
1935 l_in_week_day OKC_DATATYPES.Var240TabTyp;
1936 l_in_day OKC_DATATYPES.Var240TabTyp;
1937 l_in_object_version_number OKC_DATATYPES.NumberTabTyp;
1938 l_in_created_by OKC_DATATYPES.NumberTabTyp;
1939 l_in_creation_date OKC_DATATYPES.DateTabTyp;
1940 l_in_last_updated_by OKC_DATATYPES.NumberTabTyp;
1941 l_in_last_update_date OKC_DATATYPES.DateTabTyp;
1942 l_in_last_update_login OKC_DATATYPES.NumberTabTyp;
1943
1944 l_in_tabsize NUMBER := P_SUBPTN_TBL.COUNT;
1945 tbl_idx NUMBER := P_SUBPTN_TBL.FIRST;
1946 j NUMBER := 0;
1947
1948
1949
1950 BEGIN
1951 x_return_status := OKC_API.G_RET_STS_SUCCESS;
1952
1953 IF (l_debug = 'Y') THEN
1954 okc_debug.Set_Indentation('OKS_SUBSCR_HDR_PVT');
1955 okc_debug.log('23400: Entered INSERT_BY_TBL_SUBPTNS', 2);
1956 END IF;
1957
1958 WHILE tbl_idx IS NOT NULL LOOP
1959 j := j +1;
1960 l_in_id(j) := P_SUBPTN_TBL(tbl_idx).id;
1961 l_in_osh_id(j) := P_SUBPTN_TBL(tbl_idx).osh_id;
1962 l_in_dnz_cle_id(j) := P_SUBPTN_TBL(tbl_idx).DNZ_cle_id;
1963 l_in_dnz_chr_id(j) := P_SUBPTN_TBL(tbl_idx).DNZ_chr_id;
1964 l_in_seq_no(J) := P_SUBPTN_TBL(tbl_idx).seq_no;
1965 l_in_year(J) := P_SUBPTN_TBL(tbl_idx).year;
1966 l_in_month(J) := P_SUBPTN_TBL(tbl_idx).month;
1967 l_in_week(J) := P_SUBPTN_TBL(tbl_idx).week;
1968 l_in_week_day(J) := P_SUBPTN_TBL(tbl_idx).week_day;
1969 l_in_day(J) := P_SUBPTN_TBL(tbl_idx).day;
1970 l_in_object_version_number(j) := P_SUBPTN_TBL(tbl_idx).object_version_number;
1971 l_in_created_by(j) := P_SUBPTN_TBL(tbl_idx).created_by;
1972 l_in_creation_date(j) := P_SUBPTN_TBL(tbl_idx).creation_date;
1973 l_in_last_updated_by(j) := P_SUBPTN_TBL(tbl_idx).last_updated_by;
1974 l_in_last_update_date(j) := P_SUBPTN_TBL(tbl_idx).last_update_date;
1975 l_in_last_update_login(j) := P_SUBPTN_TBL(tbl_idx).last_update_login;
1976
1977 tbl_idx := P_SUBPTN_TBL.NEXT(tbl_idx);
1978
1979 END LOOP;
1980
1981 FORALL x in 1..l_in_tabsize
1982
1983 INSERT INTO OKS_SUBSCR_PATTERNS(
1984 id,
1985 osh_id,
1986 dnz_chr_id,
1987 dnz_cle_id,
1988 seq_no,
1989 year,
1990 month,
1991 week,
1992 week_day,
1993 day,
1994 object_version_number,
1995 created_by,
1996 creation_date,
1997 last_updated_by,
1998 last_update_date,
1999 last_update_login)
2000 VALUES (
2001 l_in_id(x)
2002 ,l_in_osh_id(x)
2003 ,l_in_dnz_chr_id(x)
2004 ,l_in_dnz_cle_id(x)
2005 ,l_in_seq_no(x)
2006 ,l_in_year(x)
2007 ,l_in_month(x)
2008 ,l_in_week(x)
2009 ,l_in_week_day(x)
2010 ,l_in_day(x)
2011 ,l_in_object_version_number(x)
2012 ,l_in_created_by(x)
2013 ,l_in_creation_date(x)
2014 ,l_in_last_updated_by(x)
2015 ,l_in_last_update_date(x)
2016 ,l_in_last_update_login(x) );
2017
2018
2019 IF (l_debug = 'Y') THEN
2020 okc_debug.log('23500: Exiting INSERT_BY_TBL_SUBPTNS', 2);
2021 okc_debug.Reset_Indentation;
2022 END IF;
2023
2024 EXCEPTION
2025 WHEN OTHERS THEN
2026 IF (l_debug = 'Y') THEN
2027 okc_debug.log('23600: Exiting INSERT_BY_TBL_SUBPTNS:OTHERS Exception', 2);
2028 okc_debug.Reset_Indentation;
2029 END IF;
2030
2031 OKC_API.SET_MESSAGE(
2032 p_app_name => G_APP_NAME,
2033 p_msg_name => G_UNEXPECTED_ERROR,
2034 p_token1 => G_SQLCODE_TOKEN,
2035 p_token1_value => SQLCODE,
2036 p_token2 => G_SQLERRM_TOKEN,
2037 p_token2_value => SQLERRM);
2038
2039 x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2040
2041 END INSERT_BY_TBL_SUBPTNS;
2042 -----------------------------------------------------------------------------
2043 --------- INSERT_BY_TBL_SUBPTNS
2044 ------------------------------------------------------------------------------
2045
2046
2047
2048 -----------------------------------------------------------------------------
2049 -- INSERT_BY_TBL_SUBELMNTS for:OKS_SUBSCR_ELEMENTS
2050 -----------------------------------------------------------------------------
2051
2052 PROCEDURE INSERT_BY_TBL_SUBELMNTS(
2053 x_return_status OUT NOCOPY VARCHAR2
2054 ,P_SUBELMNTS_TBL OKS_SUBSCR_ELEMS_PVT.scev_tbl_type) IS
2055
2056
2057 l_in_tabsize NUMBER := P_SUBELMNTS_TBL.COUNT;
2058 tbl_idx NUMBER := P_SUBELMNTS_TBL.FIRST;
2059 j NUMBER := 0;
2060
2061 l_in_id OKC_DATATYPES.NumberTabTyp;
2062 l_in_osh_id OKC_DATATYPES.NumberTabTyp;
2063 l_in_dnz_chr_id OKC_DATATYPES.NumberTabTyp;
2064 l_in_dnz_cle_id OKC_DATATYPES.NumberTabTyp;
2065 l_in_seq_no OKC_DATATYPES.NumberTabTyp;
2066 l_in_LINKED_FLAG OKC_DATATYPES.Var10TabTyp;
2067 l_in_OM_INTERFACE_DATE OKC_DATATYPES.DateTabTyp;
2068 l_in_AMOUNT OKC_DATATYPES.NumberTabTyp;
2069 l_in_START_DATE OKC_DATATYPES.DateTabTyp;
2070 l_in_end_DATE OKC_DATATYPES.DateTabTyp;
2071 l_in_QUANTITY OKC_DATATYPES.NumberTabTyp;
2072 l_in_UOM_CODE OKC_DATATYPES.Var3TabTyp;
2073 l_in_ORDER_HEADER_ID OKC_DATATYPES.NumberTabTyp;
2074 l_in_ORDER_LINE_ID OKC_DATATYPES.NumberTabTyp;
2075 l_in_object_version_number OKC_DATATYPES.NumberTabTyp;
2076 l_in_created_by OKC_DATATYPES.NumberTabTyp;
2077 l_in_creation_date OKC_DATATYPES.DateTabTyp;
2078 l_in_last_updated_by OKC_DATATYPES.NumberTabTyp;
2079 l_in_last_update_date OKC_DATATYPES.DateTabTyp;
2080 l_in_last_update_login OKC_DATATYPES.NumberTabTyp;
2081
2082 l_in_SECURITY_GROUP_ID OKC_DATATYPES.NumberTabTyp;
2083
2084
2085
2086 BEGIN
2087 x_return_status := OKC_API.G_RET_STS_SUCCESS;
2088
2089 IF (l_debug = 'Y') THEN
2090 okc_debug.Set_Indentation('OKS_SUBSCR_ELEMS_PVT');
2091 okc_debug.log('23400: Entered INSERT_BY_TBL_SUBELMNTS', 2);
2092 END IF;
2093
2094 WHILE tbl_idx IS NOT NULL LOOP
2095 j := j +1;
2096
2097 l_in_id(j) := P_SUBELMNTS_TBL(tbl_idx).id;
2098 l_in_osh_id(j) := P_SUBELMNTS_TBL(tbl_idx).osh_id;
2099 l_in_dnz_chr_id(j) := P_SUBELMNTS_TBL(tbl_idx).dnz_chr_id;
2100 l_in_dnz_cle_id(j) := P_SUBELMNTS_TBL(tbl_idx).dnz_cle_id;
2101 l_in_seq_no(j) := P_SUBELMNTS_TBL(tbl_idx).seq_no;
2102 l_in_LINKED_FLAG(j) := P_SUBELMNTS_TBL(tbl_idx).LINKED_FLAG;
2103 l_in_OM_INTERFACE_DATE(j) := P_SUBELMNTS_TBL(tbl_idx).OM_INTERFACE_DATE;
2104 l_in_AMOUNT(j) := P_SUBELMNTS_TBL(tbl_idx).AMOUNT;
2105 l_in_START_DATE(j) := P_SUBELMNTS_TBL(tbl_idx).START_DATE;
2106 l_in_end_DATE(j) := P_SUBELMNTS_TBL(tbl_idx).end_DATE;
2107 l_in_QUANTITY(j) := P_SUBELMNTS_TBL(tbl_idx).QUANTITY;
2108 l_in_UOM_CODE(j) := P_SUBELMNTS_TBL(tbl_idx).UOM_CODE;
2109 l_in_ORDER_HEADER_ID(j) := P_SUBELMNTS_TBL(tbl_idx).ORDER_HEADER_ID;
2110 l_in_ORDER_LINE_ID(j) := P_SUBELMNTS_TBL(tbl_idx).ORDER_LINE_ID;
2111 l_in_object_version_number(j) := P_SUBELMNTS_TBL(tbl_idx).object_version_number;
2112 l_in_created_by(j) := P_SUBELMNTS_TBL(tbl_idx).created_by;
2113 l_in_creation_date(j) := P_SUBELMNTS_TBL(tbl_idx).creation_date;
2114 l_in_last_updated_by(j) := P_SUBELMNTS_TBL(tbl_idx).last_updated_by;
2115 l_in_last_update_date(j) := P_SUBELMNTS_TBL(tbl_idx).last_update_date;
2116 l_in_last_update_login(j) := P_SUBELMNTS_TBL(tbl_idx).last_update_login;
2117
2118 tbl_idx := P_SUBELMNTS_TBL.NEXT(tbl_idx);
2119
2120 END LOOP;
2121
2122 FORALL x in 1..l_in_tabsize
2123 INSERT INTO OKS_SUBSCR_ELEMENTS(
2124 id,
2125 osh_id,
2126 dnz_chr_id,
2127 dnz_cle_id,
2128 linked_flag,
2129 seq_no,
2130 om_interface_date,
2131 amount,
2132 start_date,
2133 end_date,
2134 quantity,
2135 uom_code,
2136 order_header_id,
2137 order_line_id,
2138 object_version_number,
2139 created_by,
2140 creation_date,
2141 last_updated_by,
2142 last_update_date,
2143 last_update_login)
2144 VALUES (
2145 l_in_id(x)
2146 ,l_in_osh_id(x)
2147 ,l_in_dnz_chr_id(x)
2148 ,l_in_dnz_cle_id(x)
2149 ,l_in_linked_flag(x)
2150 ,l_in_seq_no(x)
2151 ,l_in_om_interface_date(x)
2152 ,l_in_amount(x)
2153 ,l_in_start_date(x)
2154 ,l_in_end_date(x)
2155 ,l_in_quantity(x)
2156 ,l_in_uom_code(x)
2157 ,l_in_order_header_id(x)
2158 ,l_in_order_line_id(x)
2159 ,l_in_object_version_number(x)
2160 ,l_in_created_by(x)
2161 ,l_in_creation_date(x)
2162 ,l_in_last_updated_by(x)
2163 ,l_in_last_update_date(x)
2164 ,l_in_last_update_login(x));
2165
2166 IF (l_debug = 'Y') THEN
2167 okc_debug.log('23500: Exiting INSERT_BY_TBL_SUBELMNTS', 2);
2168 okc_debug.Reset_Indentation;
2169 END IF;
2170
2171 EXCEPTION
2172 WHEN OTHERS THEN
2173 IF (l_debug = 'Y') THEN
2174 okc_debug.log('23600: Exiting INSERT_BY_TBL_SUBELMNTS:OTHERS Exception', 2);
2175 okc_debug.Reset_Indentation;
2176 END IF;
2177
2178 OKC_API.SET_MESSAGE(
2179 p_app_name => G_APP_NAME,
2180 p_msg_name => G_UNEXPECTED_ERROR,
2181 p_token1 => G_SQLCODE_TOKEN,
2182 p_token1_value => SQLCODE,
2183 p_token2 => G_SQLERRM_TOKEN,
2184 p_token2_value => SQLERRM);
2185
2186 x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2187
2188
2189 END INSERT_BY_TBL_SUBELMNTS;
2190
2191 -----------------------------------------------------------------------------
2192 -- END insert_row_upg for:OKS_SUBSCR_ELEMENTS --
2193 -----------------------------------------------------------------------------
2194
2195
2196
2197
2198
2199
2200 -----------------------------------------------------------------------------
2201 -- End INSERT_SUB_TBLS
2202 -----------------------------------------------------------------------------
2203
2204
2205
2206
2207
2208
2209
2210
2211
2212
2213
2214 END OKS_Insert_Row_Upg;
2215