[Home] [Help]
PACKAGE BODY: APPS.OKS_CONTRACT_LINE_PUB
Source
1 PACKAGE BODY oks_contract_line_pub AS
2 /* $Header: OKSPKLNB.pls 120.1.12020000.4 2013/04/05 07:44:07 vgujarat ship $ */
3 PROCEDURE add_language IS
4 BEGIN
5 -- Translate OKS_K_LINES_TLH table (not included in Private TAPI)
6 -- (To translate OKS_K_LINES_TL table call the procedure included
7 -- in the TAPI: OKS_KLN_PVT.add_language )
8 DELETE FROM OKS_K_LINES_TLH T
9 WHERE NOT EXISTS (
10 SELECT NULL
11 FROM OKS_K_LINES_BH B
12 WHERE B.ID =T.ID
16 UPDATE OKS_K_LINES_TLH T SET(
13 AND B.MAJOR_VERSION =T.MAJOR_VERSION
14 );
15
17 INVOICE_TEXT,
18 IB_TRX_DETAILS,
19 STATUS_TEXT,
20 REACT_TIME_NAME) = (SELECT
21 B.INVOICE_TEXT,
22 B.IB_TRX_DETAILS,
23 B.STATUS_TEXT,
24 B.REACT_TIME_NAME
25 FROM OKS_K_LINES_TLH B
26 WHERE B.ID = T.ID
27 AND B.MAJOR_VERSION = T.MAJOR_VERSION
28 AND B.LANGUAGE = T.SOURCE_LANG)
29 WHERE ( T.ID,
30 T.MAJOR_VERSION,
31 T.LANGUAGE)
32 IN (SELECT
33 SUBT.ID,
34 SUBT.MAJOR_VERSION,
35 SUBT.LANGUAGE
36 FROM OKS_K_LINES_TLH SUBB, OKS_K_LINES_TLH SUBT
37 WHERE SUBB.ID = SUBT.ID
38 AND SUBB.MAJOR_VERSION = SUBT.MAJOR_VERSION
39 AND SUBB.LANGUAGE = SUBT.SOURCE_LANG
40 AND (SUBB.INVOICE_TEXT <> SUBT.INVOICE_TEXT
41 OR SUBB.IB_TRX_DETAILS <> SUBT.IB_TRX_DETAILS
42 OR SUBB.STATUS_TEXT <> SUBT.STATUS_TEXT
43 OR SUBB.REACT_TIME_NAME <> SUBT.REACT_TIME_NAME
44 OR (SUBB.INVOICE_TEXT IS NULL AND SUBT.INVOICE_TEXT IS NOT NULL)
45 OR (SUBB.IB_TRX_DETAILS IS NULL AND SUBT.IB_TRX_DETAILS IS NOT NULL)
46 OR (SUBB.STATUS_TEXT IS NULL AND SUBT.STATUS_TEXT IS NOT NULL)
47 OR (SUBB.REACT_TIME_NAME IS NULL AND SUBT.REACT_TIME_NAME IS NOT NULL)
48 ));
49
50 INSERT INTO OKS_K_LINES_TLH (
51 ID,
52 MAJOR_VERSION,
53 LANGUAGE,
54 SOURCE_LANG,
55 SFWT_FLAG,
56 INVOICE_TEXT,
57 IB_TRX_DETAILS,
58 STATUS_TEXT,
59 REACT_TIME_NAME,
60 CREATED_BY,
61 CREATION_DATE,
62 LAST_UPDATED_BY,
63 LAST_UPDATE_DATE,
64 LAST_UPDATE_LOGIN)
65 SELECT
66 B.ID,
67 B.MAJOR_VERSION,
68 L.LANGUAGE_CODE,
69 B.SOURCE_LANG,
70 B.SFWT_FLAG,
71 B.INVOICE_TEXT,
72 B.IB_TRX_DETAILS,
73 B.STATUS_TEXT,
74 B.REACT_TIME_NAME,
75 B.CREATED_BY,
76 B.CREATION_DATE,
77 B.LAST_UPDATED_BY,
78 B.LAST_UPDATE_DATE,
79 B.LAST_UPDATE_LOGIN
80 FROM OKS_K_LINES_TLH B, FND_LANGUAGES L
81 WHERE L.INSTALLED_FLAG IN ('I', 'B')
82 AND B.LANGUAGE = USERENV('LANG')
83 AND NOT EXISTS (
84 SELECT NULL
85 FROM OKS_K_LINES_TLH T
86 WHERE T.ID = B.ID
87 AND T.MAJOR_VERSION = B.MAJOR_VERSION
88 AND T.LANGUAGE = L.LANGUAGE_CODE
89 );
90 END add_language;
91
92 PROCEDURE create_line(
93 p_api_version IN NUMBER,
94 p_init_msg_list IN VARCHAR2,
95 x_return_status OUT NOCOPY VARCHAR2,
96 x_msg_count OUT NOCOPY NUMBER,
97 x_msg_data OUT NOCOPY VARCHAR2,
98 p_klnv_rec IN klnv_rec_type,
99 x_klnv_rec OUT NOCOPY klnv_rec_type,
100 p_validate_yn IN VARCHAR2) IS
101
102 l_init_msg_list VARCHAR2(10);
103 BEGIN
104 x_return_status := G_RET_STS_SUCCESS;
105 IF p_validate_yn = 'Y' THEN
106 validate_line
107 (
108 p_api_version => p_api_version,
109 p_init_msg_list => l_init_msg_list,
110 x_return_status => x_return_status,
111 x_msg_count => x_msg_count,
112 x_msg_data => x_msg_data,
113 p_klnv_rec => p_klnv_rec
114 );
115 END IF;
116 IF x_return_status = G_RET_STS_SUCCESS THEN
117 oks_kln_pvt.insert_row
118 (
119 p_api_version => p_api_version,
120 p_init_msg_list => p_init_msg_list,
121 x_return_status => x_return_status,
122 x_msg_count => x_msg_count,
123 x_msg_data => x_msg_data,
124 p_klnv_rec => p_klnv_rec,
125 x_klnv_rec => x_klnv_rec
126 );
127 END IF;
128 END create_line;
129
130 PROCEDURE create_line(
131 p_api_version IN NUMBER,
132 p_init_msg_list IN VARCHAR2,
133 x_return_status OUT NOCOPY VARCHAR2,
134 x_msg_count OUT NOCOPY NUMBER,
135 x_msg_data OUT NOCOPY VARCHAR2,
136 p_klnv_tbl IN klnv_tbl_type,
137 x_klnv_tbl OUT NOCOPY klnv_tbl_type,
138 px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE,
139 p_validate_yn IN VARCHAR2) IS
140 BEGIN
141 x_return_status := G_RET_STS_SUCCESS;
142 IF p_validate_yn = 'Y' THEN
143 validate_line
144 (
145 p_api_version => p_api_version,
146 p_init_msg_list => p_init_msg_list,
147 x_return_status => x_return_status,
151 px_error_tbl => px_error_tbl
148 x_msg_count => x_msg_count,
149 x_msg_data => x_msg_data,
150 p_klnv_tbl => p_klnv_tbl,
152 );
153 END IF;
154 IF x_return_status = G_RET_STS_SUCCESS THEN
155 oks_kln_pvt.insert_row
156 (
157 p_api_version => p_api_version,
158 p_init_msg_list => p_init_msg_list,
159 x_return_status => x_return_status,
160 x_msg_count => x_msg_count,
161 x_msg_data => x_msg_data,
162 p_klnv_tbl => p_klnv_tbl,
163 x_klnv_tbl => x_klnv_tbl,
164 px_error_tbl => px_error_tbl
165 );
166 END IF;
167 END create_line;
168
169 PROCEDURE create_line(
170 p_api_version IN NUMBER,
171 p_init_msg_list IN VARCHAR2,
172 x_return_status OUT NOCOPY VARCHAR2,
173 x_msg_count OUT NOCOPY NUMBER,
174 x_msg_data OUT NOCOPY VARCHAR2,
175 p_klnv_tbl IN klnv_tbl_type,
176 x_klnv_tbl OUT NOCOPY klnv_tbl_type,
177 p_validate_yn IN VARCHAR2) IS
178 BEGIN
179 x_return_status := G_RET_STS_SUCCESS;
180 IF p_validate_yn = 'Y' THEN
181 validate_line
182 (
183 p_api_version => p_api_version,
184 p_init_msg_list => p_init_msg_list,
185 x_return_status => x_return_status,
186 x_msg_count => x_msg_count,
187 x_msg_data => x_msg_data,
188 p_klnv_tbl => p_klnv_tbl
189 );
190 END IF;
191 IF x_return_status = G_RET_STS_SUCCESS THEN
192 oks_kln_pvt.insert_row
193 (
194 p_api_version => p_api_version,
195 p_init_msg_list => p_init_msg_list,
196 x_return_status => x_return_status,
197 x_msg_count => x_msg_count,
198 x_msg_data => x_msg_data,
199 p_klnv_tbl => p_klnv_tbl,
200 x_klnv_tbl => x_klnv_tbl
201 );
202 END IF;
203 END create_line;
204
205 PROCEDURE update_line(
206 p_api_version IN NUMBER,
207 p_init_msg_list IN VARCHAR2,
208 x_return_status OUT NOCOPY VARCHAR2,
209 x_msg_count OUT NOCOPY NUMBER,
210 x_msg_data OUT NOCOPY VARCHAR2,
211 p_klnv_rec IN klnv_rec_type,
212 x_klnv_rec OUT NOCOPY klnv_rec_type,
213 p_validate_yn IN VARCHAR2) IS
214 BEGIN
215 x_return_status := G_RET_STS_SUCCESS;
216 IF p_validate_yn = 'Y' THEN
217 validate_line
218 (
219 p_api_version => p_api_version,
220 p_init_msg_list => p_init_msg_list,
221 x_return_status => x_return_status,
222 x_msg_count => x_msg_count,
223 x_msg_data => x_msg_data,
224 p_klnv_rec => p_klnv_rec
225 );
226 END IF;
227 IF x_return_status = G_RET_STS_SUCCESS THEN
228 oks_kln_pvt.update_row
229 (
230 p_api_version => p_api_version,
231 p_init_msg_list => p_init_msg_list,
232 x_return_status => x_return_status,
233 x_msg_count => x_msg_count,
234 x_msg_data => x_msg_data,
235 p_klnv_rec => p_klnv_rec,
236 x_klnv_rec => x_klnv_rec
237 );
238 END IF;
239 END update_line;
240
241 PROCEDURE update_line(
242 p_api_version IN NUMBER,
243 p_init_msg_list IN VARCHAR2,
244 x_return_status OUT NOCOPY VARCHAR2,
245 x_msg_count OUT NOCOPY NUMBER,
246 x_msg_data OUT NOCOPY VARCHAR2,
247 p_klnv_tbl IN klnv_tbl_type,
248 x_klnv_tbl OUT NOCOPY klnv_tbl_type,
249 px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE,
250 p_validate_yn IN VARCHAR2) IS
251 BEGIN
252 x_return_status := G_RET_STS_SUCCESS;
253 IF p_validate_yn = 'Y' THEN
254 validate_line
255 (
256 p_api_version => p_api_version,
257 p_init_msg_list => p_init_msg_list,
258 x_return_status => x_return_status,
259 x_msg_count => x_msg_count,
260 x_msg_data => x_msg_data,
261 p_klnv_tbl => p_klnv_tbl,
262 px_error_tbl => px_error_tbl
263 );
264 END IF;
265 IF x_return_status = G_RET_STS_SUCCESS THEN
266 oks_kln_pvt.update_row
267 (
268 p_api_version => p_api_version,
269 p_init_msg_list => p_init_msg_list,
270 x_return_status => x_return_status,
271 x_msg_count => x_msg_count,
272 x_msg_data => x_msg_data,
273 p_klnv_tbl => p_klnv_tbl,
274 x_klnv_tbl => x_klnv_tbl,
275 px_error_tbl => px_error_tbl
276 );
277 END IF;
278 END update_line;
279
280 PROCEDURE update_line(
281 p_api_version IN NUMBER,
282 p_init_msg_list IN VARCHAR2,
283 x_return_status OUT NOCOPY VARCHAR2,
284 x_msg_count OUT NOCOPY NUMBER,
285 x_msg_data OUT NOCOPY VARCHAR2,
289 BEGIN
286 p_klnv_tbl IN klnv_tbl_type,
287 x_klnv_tbl OUT NOCOPY klnv_tbl_type,
288 p_validate_yn IN VARCHAR2) IS
290 x_return_status := G_RET_STS_SUCCESS;
291 IF p_validate_yn = 'Y' THEN
292 validate_line
293 (
294 p_api_version => p_api_version,
295 p_init_msg_list => p_init_msg_list,
296 x_return_status => x_return_status,
297 x_msg_count => x_msg_count,
298 x_msg_data => x_msg_data,
299 p_klnv_tbl => p_klnv_tbl
300 );
301 END IF;
302 IF x_return_status = G_RET_STS_SUCCESS THEN
303 oks_kln_pvt.update_row
304 (
305 p_api_version => p_api_version,
306 p_init_msg_list => p_init_msg_list,
307 x_return_status => x_return_status,
308 x_msg_count => x_msg_count,
309 x_msg_data => x_msg_data,
310 p_klnv_tbl => p_klnv_tbl,
311 x_klnv_tbl => x_klnv_tbl
312 );
313 END IF;
314 END update_line;
315
316 PROCEDURE lock_line(
317 p_api_version IN NUMBER,
318 p_init_msg_list IN VARCHAR2,
319 x_return_status OUT NOCOPY VARCHAR2,
320 x_msg_count OUT NOCOPY NUMBER,
321 x_msg_data OUT NOCOPY VARCHAR2,
322 p_klnv_rec IN klnv_rec_type) IS
323 BEGIN
324 oks_kln_pvt.lock_row
325 (
326 p_api_version => p_api_version,
327 p_init_msg_list => p_init_msg_list,
328 x_return_status => x_return_status,
329 x_msg_count => x_msg_count,
330 x_msg_data => x_msg_data,
331 p_klnv_rec => p_klnv_rec
332 );
333 END lock_line;
334
335 PROCEDURE lock_line(
336 p_api_version IN NUMBER,
337 p_init_msg_list IN VARCHAR2,
338 x_return_status OUT NOCOPY VARCHAR2,
339 x_msg_count OUT NOCOPY NUMBER,
340 x_msg_data OUT NOCOPY VARCHAR2,
341 p_klnv_tbl IN klnv_tbl_type,
342 px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
343 BEGIN
344 oks_kln_pvt.lock_row
345 (
346 p_api_version => p_api_version,
347 p_init_msg_list => p_init_msg_list,
348 x_return_status => x_return_status,
349 x_msg_count => x_msg_count,
350 x_msg_data => x_msg_data,
351 p_klnv_tbl => p_klnv_tbl,
352 px_error_tbl => px_error_tbl
353 );
354 END lock_line;
355
356 PROCEDURE lock_line(
357 p_api_version IN NUMBER,
358 p_init_msg_list IN VARCHAR2,
359 x_return_status OUT NOCOPY VARCHAR2,
360 x_msg_count OUT NOCOPY NUMBER,
361 x_msg_data OUT NOCOPY VARCHAR2,
362 p_klnv_tbl IN klnv_tbl_type) IS
363 BEGIN
364 oks_kln_pvt.lock_row
365 (
366 p_api_version => p_api_version,
367 p_init_msg_list => p_init_msg_list,
368 x_return_status => x_return_status,
369 x_msg_count => x_msg_count,
370 x_msg_data => x_msg_data,
371 p_klnv_tbl => p_klnv_tbl
372 );
373 END lock_line;
374
375 PROCEDURE delete_line(
376 p_api_version IN NUMBER,
377 p_init_msg_list IN VARCHAR2,
378 x_return_status OUT NOCOPY VARCHAR2,
379 x_msg_count OUT NOCOPY NUMBER,
380 x_msg_data OUT NOCOPY VARCHAR2,
381 p_klnv_rec IN klnv_rec_type) IS
382 BEGIN
383 oks_kln_pvt.delete_row
384 (
385 p_api_version => p_api_version,
386 p_init_msg_list => p_init_msg_list,
387 x_return_status => x_return_status,
388 x_msg_count => x_msg_count,
389 x_msg_data => x_msg_data,
390 p_klnv_rec => p_klnv_rec
391 );
392 END delete_line;
393
394 PROCEDURE delete_line(
395 p_api_version IN NUMBER,
396 p_init_msg_list IN VARCHAR2,
397 x_return_status OUT NOCOPY VARCHAR2,
398 x_msg_count OUT NOCOPY NUMBER,
399 x_msg_data OUT NOCOPY VARCHAR2,
400 p_klnv_tbl IN klnv_tbl_type,
401 px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
402 BEGIN
403 oks_kln_pvt.delete_row
404 (
405 p_api_version => p_api_version,
406 p_init_msg_list => p_init_msg_list,
407 x_return_status => x_return_status,
408 x_msg_count => x_msg_count,
409 x_msg_data => x_msg_data,
410 p_klnv_tbl => p_klnv_tbl,
411 px_error_tbl => px_error_tbl
412 );
413 END delete_line;
414
415 PROCEDURE delete_line(
416 p_api_version IN NUMBER,
417 p_init_msg_list IN VARCHAR2,
418 x_return_status OUT NOCOPY VARCHAR2,
419 x_msg_count OUT NOCOPY NUMBER,
420 x_msg_data OUT NOCOPY VARCHAR2,
421 p_klnv_tbl IN klnv_tbl_type) IS
422 BEGIN
423 oks_kln_pvt.delete_row
424 (
428 x_msg_count => x_msg_count,
425 p_api_version => p_api_version,
426 p_init_msg_list => p_init_msg_list,
427 x_return_status => x_return_status,
429 x_msg_data => x_msg_data,
430 p_klnv_tbl => p_klnv_tbl
431 );
432 END delete_line;
433
434 PROCEDURE validate_line(
435 p_api_version IN NUMBER,
436 p_init_msg_list IN VARCHAR2,
437 x_return_status OUT NOCOPY VARCHAR2,
438 x_msg_count OUT NOCOPY NUMBER,
439 x_msg_data OUT NOCOPY VARCHAR2,
440 p_klnv_rec IN klnv_rec_type) IS
441 BEGIN
442 x_return_status := G_RET_STS_SUCCESS;
443 END validate_line;
444
445 PROCEDURE validate_line(
446 p_api_version IN NUMBER,
447 p_init_msg_list IN VARCHAR2,
448 x_return_status OUT NOCOPY VARCHAR2,
449 x_msg_count OUT NOCOPY NUMBER,
450 x_msg_data OUT NOCOPY VARCHAR2,
451 p_klnv_tbl IN klnv_tbl_type,
452 px_error_tbl IN OUT NOCOPY OKC_API.ERROR_TBL_TYPE) IS
453 BEGIN
454 x_return_status := G_RET_STS_SUCCESS;
455 END validate_line;
456
457 PROCEDURE validate_line(
458 p_api_version IN NUMBER,
459 p_init_msg_list IN VARCHAR2,
460 x_return_status OUT NOCOPY VARCHAR2,
461 x_msg_count OUT NOCOPY NUMBER,
462 x_msg_data OUT NOCOPY VARCHAR2,
463 p_klnv_tbl IN klnv_tbl_type) IS
464 BEGIN
465 x_return_status := G_RET_STS_SUCCESS;
466 END validate_line;
467
468 ---------------------------------------------------------------
469 -- Procedure for mass insert in OKS_K_HEADERS_B table
470 ---------------------------------------------------------------
471 PROCEDURE INSERT_ROW_UPG(x_return_status OUT NOCOPY VARCHAR2,
472 p_klnv_tbl IN klnv_tbl_type) IS
473
474
475 l_tabsize NUMBER := p_klnv_tbl.COUNT;
476 l_source_lang VARCHAR2(12) := okc_util.get_userenv_lang;
477 in_id OKC_DATATYPES.NumberTabTyp;
478 in_cle_id OKC_DATATYPES.NumberTabTyp;
479 in_dnz_chr_id OKC_DATATYPES.NumberTabTyp;
480 in_discount_list OKC_DATATYPES.NumberTabTyp;
481 in_acct_rule_id OKC_DATATYPES.NumberTabTyp;
482 in_payment_type OKC_DATATYPES.Var30TabTyp;
483 in_cc_no OKC_DATATYPES.Var90TabTyp;
484 in_cc_expiry_date OKC_DATATYPES.DateTabTyp;
485 in_cc_bank_acct_id OKC_DATATYPES.NumberTabTyp;
486 in_cc_auth_code OKC_DATATYPES.Var150TabTyp;
487 in_commitment_id OKC_DATATYPES.NumberTabTyp;
488 in_locked_price_list_id OKC_DATATYPES.NumberTabTyp;
489 in_usage_est_yn OKC_DATATYPES.Var3TabTyp;
490 in_usage_est_method OKC_DATATYPES.Var30TabTyp;
491 in_usage_est_start_date OKC_DATATYPES.DateTabTyp;
492 in_termn_method OKC_DATATYPES.Var30TabTyp;
493 in_ubt_amount OKC_DATATYPES.NumberTabTyp;
494 in_credit_amount OKC_DATATYPES.NumberTabTyp;
495 in_suppressed_credit OKC_DATATYPES.NumberTabTyp;
496 in_override_amount OKC_DATATYPES.NumberTabTyp;
497 in_cust_po_number_req_yn OKC_DATATYPES.Var3TabTyp;
498 in_cust_po_number OKC_DATATYPES.Var150TabTyp;
499 in_grace_duration OKC_DATATYPES.NumberTabTyp;
500 in_grace_period OKC_DATATYPES.Var30TabTyp;
501 in_inv_print_flag OKC_DATATYPES.Var3TabTyp;
502 in_price_uom OKC_DATATYPES.Var30TabTyp;
503 in_tax_amount OKC_DATATYPES.NumberTabTyp;
504 in_tax_inclusive_yn OKC_DATATYPES.Var3TabTyp;
505 in_tax_status OKC_DATATYPES.Var30TabTyp;
506 in_tax_code OKC_DATATYPES.NumberTabTyp;
507 in_tax_exemption_id OKC_DATATYPES.NumberTabTyp;
508 in_ib_trans_type OKC_DATATYPES.Var10TabTyp;
509 in_ib_trans_date OKC_DATATYPES.DateTabTyp;
510 in_prod_price OKC_DATATYPES.NumberTabTyp;
511 in_service_price OKC_DATATYPES.NumberTabTyp;
512 in_clvl_list_price OKC_DATATYPES.NumberTabTyp;
513 in_clvl_quantity OKC_DATATYPES.NumberTabTyp;
514 in_clvl_extended_amt OKC_DATATYPES.NumberTabTyp;
515 in_clvl_uom_code OKC_DATATYPES.Var3TabTyp;
516 in_toplvl_operand_code OKC_DATATYPES.Var30TabTyp;
517 in_toplvl_operand_val OKC_DATATYPES.NumberTabTyp;
518 in_toplvl_quantity OKC_DATATYPES.NumberTabTyp;
519 in_toplvl_uom_code OKC_DATATYPES.Var3TabTyp;
520 in_toplvl_adj_price OKC_DATATYPES.NumberTabTyp;
521 in_toplvl_price_qty OKC_DATATYPES.NumberTabTyp;
522 in_averaging_interval OKC_DATATYPES.NumberTabTyp;
523 in_settlement_interval OKC_DATATYPES.Var30TabTyp;
524 in_minimum_quantity OKC_DATATYPES.NumberTabTyp;
525 in_default_quantity OKC_DATATYPES.NumberTabTyp;
526 in_amcv_flag OKC_DATATYPES.Var3TabTyp;
527 in_fixed_quantity OKC_DATATYPES.NumberTabTyp;
528 in_usage_duration OKC_DATATYPES.NumberTabTyp;
529 in_usage_period OKC_DATATYPES.Var3TabTyp;
530 in_level_yn OKC_DATATYPES.Var3TabTyp;
531 in_usage_type OKC_DATATYPES.Var10TabTyp;
532 in_uom_quantified OKC_DATATYPES.Var3TabTyp;
533 in_base_reading OKC_DATATYPES.NumberTabTyp;
534 in_billing_schedule_type OKC_DATATYPES.Var10TabTyp;
538 in_limit_uom_quantified OKC_DATATYPES.Var3TabTyp;
535 in_full_credit OKC_DATATYPES.Var3TabTyp;
536 in_coverage_type OKC_DATATYPES.Var3TabTyp;
537 in_exception_cov_id OKC_DATATYPES.NumberTabTyp;
539 in_discount_amount OKC_DATATYPES.NumberTabTyp;
540 in_discount_percent OKC_DATATYPES.NumberTabTyp;
541 in_offset_duration OKC_DATATYPES.NumberTabTyp;
542 in_offset_period OKC_DATATYPES.Var3TabTyp;
543 in_incident_severity_id OKC_DATATYPES.NumberTabTyp;
544 in_pdf_id OKC_DATATYPES.NumberTabTyp;
545 in_work_thru_yn OKC_DATATYPES.Var3TabTyp;
546 in_react_active_yn OKC_DATATYPES.Var3TabTyp;
547 in_transfer_option OKC_DATATYPES.Var30TabTyp;
548 in_prod_upgrade_yn OKC_DATATYPES.Var3TabTyp;
549 in_inheritance_type OKC_DATATYPES.Var30TabTyp;
550 in_pm_program_id OKC_DATATYPES.NumberTabTyp;
551 in_pm_conf_req_yn OKC_DATATYPES.Var3TabTyp;
552 in_pm_sch_exists_yn OKC_DATATYPES.Var3TabTyp;
553 in_allow_bt_discount OKC_DATATYPES.Var3TabTyp;
554 in_apply_default_timezone OKC_DATATYPES.Var3TabTyp;
555 in_sync_date_install OKC_DATATYPES.Var3TabTyp;
556 in_object_version_number OKC_DATATYPES.NumberTabTyp;
557 in_request_id OKC_DATATYPES.NumberTabTyp;
558 in_created_by OKC_DATATYPES.Number15TabTyp;
559 in_creation_date OKC_DATATYPES.DateTabTyp;
560 in_last_updated_by OKC_DATATYPES.Number15TabTyp;
561 in_last_update_date OKC_DATATYPES.DateTabTyp;
562 in_last_update_login OKC_DATATYPES.Number15TabTyp;
563
564 in_source_lang OKC_DATATYPES.Var12TabTyp;
565 in_sfwt_flag OKC_DATATYPES.Var3TabTyp;
566 in_invoice_text OKC_DATATYPES.Var1995TabTyp;
567 in_ib_trx_details OKC_DATATYPES.Var1995TabTyp;
568 in_status_text OKC_DATATYPES.Var450TabTyp;
569 in_react_time_name OKC_DATATYPES.Var450TabTyp;
570 in_security_group_id OKC_DATATYPES.NumberTabTyp;
571 --skuchima VRM ER
572 in_revenue_Impact_Date OKC_DATATYPES.DateTabTyp;
573 in_counter_value_id OKC_DATATYPES.NumberTabTyp;
574 i number;
575 j number;
576
577
578 BEGIN
579 -- Initialize return status
580 x_return_status := OKC_API.G_RET_STS_SUCCESS;
581
582 i := p_klnv_tbl.FIRST;
583 j:=0;
584 while i is not null
585 LOOP
586 j:=j+1;
587 in_id(j) := p_klnv_tbl(i).id;
588 in_cle_id(j) := p_klnv_tbl(i).cle_id;
589 in_dnz_chr_id(j) := p_klnv_tbl(i).dnz_chr_id;
590 in_discount_list(j) := p_klnv_tbl(i).discount_list;
591 in_acct_rule_id(j) := p_klnv_tbl(i).acct_rule_id;
592 in_payment_type(j) := p_klnv_tbl(i).payment_type;
593 in_cc_no(j) := p_klnv_tbl(i).cc_no;
594 in_cc_expiry_date(j) := p_klnv_tbl(i).cc_expiry_date;
595 in_cc_bank_acct_id(j) := p_klnv_tbl(i).cc_bank_acct_id;
596 in_cc_auth_code(j) := p_klnv_tbl(i).cc_auth_code;
597 in_commitment_id(j) := p_klnv_tbl(i).commitment_id;
598 in_locked_price_list_id(j) := p_klnv_tbl(i).locked_price_list_id;
599 in_usage_est_yn(j) := p_klnv_tbl(i).usage_est_yn;
600 in_usage_est_method(j) := p_klnv_tbl(i).usage_est_method;
601 in_usage_est_start_date(j) := p_klnv_tbl(i).usage_est_start_date;
602 in_termn_method(j) := p_klnv_tbl(i).termn_method;
603 in_ubt_amount(j) := p_klnv_tbl(i).ubt_amount;
604 in_credit_amount(j) := p_klnv_tbl(i).credit_amount;
605 in_suppressed_credit(j) := p_klnv_tbl(i).suppressed_credit;
606 in_override_amount(j) := p_klnv_tbl(i).override_amount;
607 in_cust_po_number_req_yn(j) := p_klnv_tbl(i).cust_po_number_req_yn;
608 in_cust_po_number(j) := p_klnv_tbl(i).cust_po_number;
609 in_grace_duration(j) := p_klnv_tbl(i).grace_duration;
610 in_grace_period(j) := p_klnv_tbl(i).grace_period;
611 in_inv_print_flag(j) := p_klnv_tbl(i).inv_print_flag;
612 in_price_uom(j) := p_klnv_tbl(i).price_uom;
613 in_tax_amount(j) := p_klnv_tbl(i).tax_amount;
614 in_tax_inclusive_yn(j) := p_klnv_tbl(i).tax_inclusive_yn;
615 in_tax_status(j) := p_klnv_tbl(i).tax_status;
616 in_tax_code(j) := p_klnv_tbl(i).tax_code;
617 in_tax_exemption_id(j) := p_klnv_tbl(i).tax_exemption_id;
618 in_ib_trans_type(j) := p_klnv_tbl(i).ib_trans_type;
619 in_ib_trans_date(j) := p_klnv_tbl(i).ib_trans_date;
620 in_prod_price(j) := p_klnv_tbl(i).prod_price;
621 in_service_price(j) := p_klnv_tbl(i).service_price;
622 in_clvl_list_price(j) := p_klnv_tbl(i).clvl_list_price;
623 in_clvl_quantity(j) := p_klnv_tbl(i).clvl_quantity;
624 in_clvl_extended_amt(j) := p_klnv_tbl(i).clvl_extended_amt;
625 in_clvl_uom_code(j) := p_klnv_tbl(i).clvl_uom_code;
626 in_toplvl_operand_code(j) := p_klnv_tbl(i).toplvl_operand_code;
627 in_toplvl_operand_val(j) := p_klnv_tbl(i).toplvl_operand_val;
628 in_toplvl_quantity(j) := p_klnv_tbl(i).toplvl_quantity;
629 in_toplvl_uom_code(j) := p_klnv_tbl(i).toplvl_uom_code;
630 in_toplvl_adj_price(j) := p_klnv_tbl(i).toplvl_adj_price;
631 in_toplvl_price_qty(j) := p_klnv_tbl(i).toplvl_price_qty;
632 in_averaging_interval(j) := p_klnv_tbl(i).averaging_interval;
633 in_settlement_interval(j) := p_klnv_tbl(i).settlement_interval;
634 in_minimum_quantity(j) := p_klnv_tbl(i).minimum_quantity;
638 in_usage_duration(j) := p_klnv_tbl(i).usage_duration;
635 in_default_quantity(j) := p_klnv_tbl(i).default_quantity;
636 in_amcv_flag(j) := p_klnv_tbl(i).amcv_flag;
637 in_fixed_quantity(j) := p_klnv_tbl(i).fixed_quantity;
639 in_usage_period(j) := p_klnv_tbl(i).usage_period;
640 in_level_yn(j) := p_klnv_tbl(i).level_yn;
641 in_usage_type(j) := p_klnv_tbl(i).usage_type;
642 in_uom_quantified(j) := p_klnv_tbl(i).uom_quantified;
643 in_base_reading(j) := p_klnv_tbl(i).base_reading;
644 in_billing_schedule_type(j) := p_klnv_tbl(i).billing_schedule_type;
645 in_full_credit(j) := p_klnv_tbl(i).full_credit;
646 in_coverage_type(j) := p_klnv_tbl(i).coverage_type;
647 in_exception_cov_id(j) := p_klnv_tbl(i).exception_cov_id;
648 in_limit_uom_quantified(j) := p_klnv_tbl(i).limit_uom_quantified;
649 in_discount_amount(j) := p_klnv_tbl(i).discount_amount;
650 in_discount_percent(j) := p_klnv_tbl(i).discount_percent;
651 in_offset_duration(j) := p_klnv_tbl(i).offset_duration;
652 in_offset_period(j) := p_klnv_tbl(i).offset_period;
653 in_incident_severity_id(j) := p_klnv_tbl(i).incident_severity_id;
654 in_pdf_id(j) := p_klnv_tbl(i).pdf_id;
655 in_work_thru_yn(j) := p_klnv_tbl(i).work_thru_yn;
656 in_react_active_yn(j) := p_klnv_tbl(i).react_active_yn;
657 in_transfer_option(j) := p_klnv_tbl(i).transfer_option;
658 in_prod_upgrade_yn(j) := p_klnv_tbl(i).prod_upgrade_yn;
659 in_inheritance_type(j) := p_klnv_tbl(i).inheritance_type;
660 in_pm_program_id(j) := p_klnv_tbl(i).pm_program_id;
661 in_pm_conf_req_yn(j) := p_klnv_tbl(i).pm_conf_req_yn;
662 in_pm_sch_exists_yn(j) := p_klnv_tbl(i).pm_sch_exists_yn;
663 in_allow_bt_discount(j) := p_klnv_tbl(i).allow_bt_discount;
664 in_apply_default_timezone(j) := p_klnv_tbl(i).apply_default_timezone;
665 in_sync_date_install(j) := p_klnv_tbl(i).sync_date_install;
666 in_object_version_number(j) := p_klnv_tbl(i).object_version_number;
667 in_request_id(j) := p_klnv_tbl(i).request_id;
668 in_created_by(j) := p_klnv_tbl(i).created_by;
669 in_creation_date(j) := p_klnv_tbl(i).creation_date;
670 in_last_updated_by(j) := p_klnv_tbl(i).last_updated_by;
671 in_last_update_date(j) := p_klnv_tbl(i).last_update_date;
672 in_last_update_login(j) := p_klnv_tbl(i).last_update_login;
673 in_security_group_id(j) := p_klnv_tbl(i).security_group_id;
674
675 in_source_lang(j) := l_source_lang; --p_klnv_tbl(i).source_lang;
676 in_sfwt_flag(j) := p_klnv_tbl(i).sfwt_flag;
677 in_invoice_text(j):= p_klnv_tbl(i).invoice_text;
678 in_ib_trx_details(j):= p_klnv_tbl(i).ib_trx_details;
679 in_status_text(j):= p_klnv_tbl(i).status_text;
680 in_react_time_name(j):= p_klnv_tbl(i).react_time_name;
681 ---skuchima VRM ER
682 in_revenue_Impact_Date(j) := p_klnv_tbl(i).revenue_Impact_Date;
683 in_counter_value_id(j) := p_klnv_tbl(i).counter_value_id;
684 i:=p_klnv_tbl.next(i);
685 END LOOP;
686
687
688 FORALL i in 1..l_tabsize
689 INSERT
690 INTO OKS_K_LINES_B
691 (
692 id,
693 cle_id,
694 dnz_chr_id,
695 discount_list,
696 acct_rule_id,
697 payment_type,
698 cc_no,
699 cc_expiry_date,
700 cc_bank_acct_id,
701 cc_auth_code,
702 commitment_id,
703 locked_price_list_id,
704 usage_est_yn,
705 usage_est_method,
706 usage_est_start_date,
707 termn_method,
708 ubt_amount,
709 credit_amount,
710 suppressed_credit,
711 override_amount,
712 cust_po_number_req_yn,
713 cust_po_number,
714 grace_duration,
715 grace_period,
716 inv_print_flag,
717 price_uom,
718 tax_amount,
719 tax_inclusive_yn,
720 tax_status,
721 tax_code,
722 tax_exemption_id,
723 ib_trans_type,
724 ib_trans_date,
725 prod_price,
726 service_price,
727 clvl_list_price,
728 clvl_quantity,
729 clvl_extended_amt,
730 clvl_uom_code,
731 toplvl_operand_code,
732 toplvl_operand_val,
733 toplvl_quantity,
734 toplvl_uom_code,
735 toplvl_adj_price,
736 toplvl_price_qty,
737 averaging_interval,
738 settlement_interval,
739 minimum_quantity,
740 default_quantity,
741 amcv_flag,
742 fixed_quantity,
743 usage_duration,
744 usage_period,
745 level_yn,
746 usage_type,
747 uom_quantified,
748 base_reading,
749 billing_schedule_type,
750 full_credit,
751 coverage_type,
752 exception_cov_id,
753 limit_uom_quantified,
754 discount_amount,
755 discount_percent,
756 offset_duration,
757 offset_period,
758 incident_severity_id,
759 pdf_id,
760 work_thru_yn,
761 react_active_yn,
762 transfer_option,
763 prod_upgrade_yn,
764 inheritance_type,
765 pm_program_id,
766 pm_conf_req_yn,
767 pm_sch_exists_yn,
768 allow_bt_discount,
769 apply_default_timezone,
770 sync_date_install,
771 object_version_number,
772 request_id,
773 created_by,
774 creation_date,
775 last_updated_by,
779 revenue_Impact_Date,
776 last_update_date,
777 last_update_login,
778 ---skuchima VRM ER
780 counter_value_id
781 ) VALUES (
782 in_id(i),
783 in_cle_id(i),
784 in_dnz_chr_id(i),
785 in_discount_list(i),
786 in_acct_rule_id(i),
787 in_payment_type(i),
788 in_cc_no(i),
789 in_cc_expiry_date(i),
790 in_cc_bank_acct_id(i),
791 in_cc_auth_code(i),
792 in_commitment_id(i),
793 in_locked_price_list_id(i),
794 in_usage_est_yn(i),
795 in_usage_est_method(i),
796 in_usage_est_start_date(i),
797 in_termn_method(i),
798 in_ubt_amount(i),
799 in_credit_amount(i),
800 in_suppressed_credit(i),
801 in_override_amount(i),
802 in_cust_po_number_req_yn(i),
803 in_cust_po_number(i),
804 in_grace_duration(i),
805 in_grace_period(i),
806 in_inv_print_flag(i),
807 in_price_uom(i),
808 in_tax_amount(i),
809 in_tax_inclusive_yn(i),
810 in_tax_status(i),
811 in_tax_code(i),
812 in_tax_exemption_id(i),
813 in_ib_trans_type(i),
814 in_ib_trans_date(i),
815 in_prod_price(i),
816 in_service_price(i),
817 in_clvl_list_price(i),
818 in_clvl_quantity(i),
819 in_clvl_extended_amt(i),
820 in_clvl_uom_code(i),
821 in_toplvl_operand_code(i),
822 in_toplvl_operand_val(i),
823 in_toplvl_quantity(i),
824 in_toplvl_uom_code(i),
825 in_toplvl_adj_price(i),
826 in_toplvl_price_qty(i),
827 in_averaging_interval(i),
828 in_settlement_interval(i),
829 in_minimum_quantity(i),
830 in_default_quantity(i),
831 in_amcv_flag(i),
832 in_fixed_quantity(i),
833 in_usage_duration(i),
834 in_usage_period(i),
835 in_level_yn(i),
836 in_usage_type(i),
837 in_uom_quantified(i),
838 in_base_reading(i),
839 in_billing_schedule_type(i),
840 in_full_credit(i),
841 in_coverage_type(i),
842 in_exception_cov_id(i),
843 in_limit_uom_quantified(i),
844 in_discount_amount(i),
845 in_discount_percent(i),
846 in_offset_duration(i),
847 in_offset_period(i),
848 in_incident_severity_id(i),
849 in_pdf_id(i),
850 in_work_thru_yn(i),
851 in_react_active_yn(i),
852 in_transfer_option(i),
853 in_prod_upgrade_yn(i),
854 in_inheritance_type(i),
855 in_pm_program_id(i),
856 in_pm_conf_req_yn(i),
857 in_pm_sch_exists_yn(i),
858 in_allow_bt_discount(i),
859 in_apply_default_timezone(i),
860 in_sync_date_install(i),
861 in_object_version_number(i),
862 in_request_id(i),
863 in_created_by(i),
864 in_creation_date(i),
865 in_last_updated_by(i),
866 in_last_update_date(i),
867 in_last_update_login(i),
868 ---skuchima VRM ER
869 in_revenue_Impact_Date(i),
870 in_counter_value_id(i)
871 );
872
873 FOR lang_i IN OKC_UTIL.g_language_code.FIRST..OKC_UTIL.g_language_code.LAST LOOP
874 FORALL i in 1..l_tabsize
875 INSERT INTO OKS_K_LINES_TL(
876 id,
877 language,
878 source_lang,
879 sfwt_flag,
880 invoice_text,
881 ib_trx_details,
882 status_text,
883 react_time_name,
884 security_group_id,
885 created_by,
886 creation_date,
887 last_updated_by,
888 last_update_date,
889 last_update_login)
890 VALUES (
891 in_id(i),
892 OKC_UTIL.g_language_code(lang_i),
893 in_source_lang(i),
894 in_sfwt_flag(i),
895 in_invoice_text(i),
896 in_ib_trx_details(i),
897 in_status_text(i),
898 in_react_time_name(i),
899 in_security_group_id(i),
900 in_created_by(i),
901 in_creation_date(i),
902 in_last_updated_by(i),
903 in_last_update_date(i),
904 in_last_update_login(i)
905 );
906 End Loop;
907
908
909 EXCEPTION
910 WHEN OTHERS THEN
911
912 -- store SQL error message on message stack
913 OKC_API.SET_MESSAGE(
914 p_app_name => G_APP_NAME,
915 p_msg_name => G_UNEXPECTED_ERROR,
916 p_token1 => G_SQLCODE_TOKEN,
917 p_token1_value => SQLCODE,
918 p_token2 => G_SQLERRM_TOKEN,
919 p_token2_value => SQLERRM);
920 -- notify caller of an error as UNEXPETED error
921 x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
922 --RAISE;
923 END INSERT_ROW_UPG;
924
925 -------------------------------------------------------------------
926 -- Procedure for mass insert in OKS_K_LINES_BH and OKS_K_LINES_TLH
927 -------------------------------------------------------------------
928 PROCEDURE CREATE_LINE_VERSION_UPG(x_return_status OUT NOCOPY VARCHAR2,
929 p_klnhv_tbl IN klnhv_tbl_type) IS
930
931 l_tabsize NUMBER := p_klnhv_tbl.COUNT;
935 in_dnz_chr_id OKC_DATATYPES.NumberTabTyp;
932 l_source_lang VARCHAR2(12) := okc_util.get_userenv_lang;
933 in_id OKC_DATATYPES.NumberTabTyp;
934 in_cle_id OKC_DATATYPES.NumberTabTyp;
936 in_discount_list OKC_DATATYPES.NumberTabTyp;
937 in_acct_rule_id OKC_DATATYPES.NumberTabTyp;
938 in_payment_type OKC_DATATYPES.Var30TabTyp;
939 in_cc_no OKC_DATATYPES.Var90TabTyp;
940 in_cc_expiry_date OKC_DATATYPES.DateTabTyp;
941 in_cc_bank_acct_id OKC_DATATYPES.NumberTabTyp;
942 in_cc_auth_code OKC_DATATYPES.Var150TabTyp;
943 in_commitment_id OKC_DATATYPES.NumberTabTyp;
944 in_locked_price_list_id OKC_DATATYPES.NumberTabTyp;
945 in_usage_est_yn OKC_DATATYPES.Var3TabTyp;
946 in_usage_est_method OKC_DATATYPES.Var30TabTyp;
947 in_usage_est_start_date OKC_DATATYPES.DateTabTyp;
948 in_termn_method OKC_DATATYPES.Var30TabTyp;
949 in_ubt_amount OKC_DATATYPES.NumberTabTyp;
950 in_credit_amount OKC_DATATYPES.NumberTabTyp;
951 in_suppressed_credit OKC_DATATYPES.NumberTabTyp;
952 in_override_amount OKC_DATATYPES.NumberTabTyp;
953 in_cust_po_number_req_yn OKC_DATATYPES.Var3TabTyp;
954 in_cust_po_number OKC_DATATYPES.Var150TabTyp;
955 in_grace_duration OKC_DATATYPES.NumberTabTyp;
956 in_grace_period OKC_DATATYPES.Var30TabTyp;
957 in_inv_print_flag OKC_DATATYPES.Var3TabTyp;
958 in_price_uom OKC_DATATYPES.Var30TabTyp;
959 in_tax_amount OKC_DATATYPES.NumberTabTyp;
960 in_tax_inclusive_yn OKC_DATATYPES.Var3TabTyp;
961 in_tax_status OKC_DATATYPES.Var30TabTyp;
962 in_tax_code OKC_DATATYPES.NumberTabTyp;
963 in_tax_exemption_id OKC_DATATYPES.NumberTabTyp;
964 in_ib_trans_type OKC_DATATYPES.Var10TabTyp;
965 in_ib_trans_date OKC_DATATYPES.DateTabTyp;
966 in_prod_price OKC_DATATYPES.NumberTabTyp;
967 in_service_price OKC_DATATYPES.NumberTabTyp;
968 in_clvl_list_price OKC_DATATYPES.NumberTabTyp;
969 in_clvl_quantity OKC_DATATYPES.NumberTabTyp;
970 in_clvl_extended_amt OKC_DATATYPES.NumberTabTyp;
971 in_clvl_uom_code OKC_DATATYPES.Var3TabTyp;
972 in_toplvl_operand_code OKC_DATATYPES.Var30TabTyp;
973 in_toplvl_operand_val OKC_DATATYPES.NumberTabTyp;
974 in_toplvl_quantity OKC_DATATYPES.NumberTabTyp;
975 in_toplvl_uom_code OKC_DATATYPES.Var3TabTyp;
976 in_toplvl_adj_price OKC_DATATYPES.NumberTabTyp;
977 in_toplvl_price_qty OKC_DATATYPES.NumberTabTyp;
978 in_averaging_interval OKC_DATATYPES.NumberTabTyp;
979 in_settlement_interval OKC_DATATYPES.Var30TabTyp;
980 in_minimum_quantity OKC_DATATYPES.NumberTabTyp;
981 in_default_quantity OKC_DATATYPES.NumberTabTyp;
982 in_amcv_flag OKC_DATATYPES.Var3TabTyp;
983 in_fixed_quantity OKC_DATATYPES.NumberTabTyp;
984 in_usage_duration OKC_DATATYPES.NumberTabTyp;
985 in_usage_period OKC_DATATYPES.Var3TabTyp;
986 in_level_yn OKC_DATATYPES.Var3TabTyp;
987 in_usage_type OKC_DATATYPES.Var10TabTyp;
988 in_uom_quantified OKC_DATATYPES.Var3TabTyp;
989 in_base_reading OKC_DATATYPES.NumberTabTyp;
990 in_billing_schedule_type OKC_DATATYPES.Var10TabTyp;
991 in_full_credit OKC_DATATYPES.Var3TabTyp;
992 in_coverage_type OKC_DATATYPES.Var3TabTyp;
993 in_exception_cov_id OKC_DATATYPES.NumberTabTyp;
994 in_limit_uom_quantified OKC_DATATYPES.Var3TabTyp;
995 in_discount_amount OKC_DATATYPES.NumberTabTyp;
996 in_discount_percent OKC_DATATYPES.NumberTabTyp;
997 in_offset_duration OKC_DATATYPES.NumberTabTyp;
998 in_offset_period OKC_DATATYPES.Var3TabTyp;
999 in_incident_severity_id OKC_DATATYPES.NumberTabTyp;
1000 in_pdf_id OKC_DATATYPES.NumberTabTyp;
1001 in_work_thru_yn OKC_DATATYPES.Var3TabTyp;
1002 in_react_active_yn OKC_DATATYPES.Var3TabTyp;
1003 in_transfer_option OKC_DATATYPES.Var30TabTyp;
1004 in_prod_upgrade_yn OKC_DATATYPES.Var3TabTyp;
1005 in_inheritance_type OKC_DATATYPES.Var30TabTyp;
1006 in_pm_program_id OKC_DATATYPES.NumberTabTyp;
1007 in_pm_conf_req_yn OKC_DATATYPES.Var3TabTyp;
1008 in_pm_sch_exists_yn OKC_DATATYPES.Var3TabTyp;
1009 in_allow_bt_discount OKC_DATATYPES.Var3TabTyp;
1010 in_apply_default_timezone OKC_DATATYPES.Var3TabTyp;
1011 in_sync_date_install OKC_DATATYPES.Var3TabTyp;
1012 in_object_version_number OKC_DATATYPES.NumberTabTyp;
1013 in_security_group_id OKC_DATATYPES.NumberTabTyp;
1014 in_request_id OKC_DATATYPES.NumberTabTyp;
1018 in_last_update_date OKC_DATATYPES.DateTabTyp;
1015 in_created_by OKC_DATATYPES.Number15TabTyp;
1016 in_creation_date OKC_DATATYPES.DateTabTyp;
1017 in_last_updated_by OKC_DATATYPES.Number15TabTyp;
1019 in_last_update_login OKC_DATATYPES.Number15TabTyp;
1020 in_major_version OKC_DATATYPES.NumberTabTyp;
1021
1022 in_source_lang OKC_DATATYPES.Var12TabTyp;
1023 in_sfwt_flag OKC_DATATYPES.Var3TabTyp;
1024 in_invoice_text OKC_DATATYPES.Var1995TabTyp;
1025 in_ib_trx_details OKC_DATATYPES.Var1995TabTyp;
1026 in_status_text OKC_DATATYPES.Var450TabTyp;
1027 in_react_time_name OKC_DATATYPES.Var450TabTyp;
1028
1029 --skuchima VRM ER
1030 in_revenue_Impact_Date OKC_DATATYPES.DateTabTyp;
1031 in_counter_value_id OKC_DATATYPES.NumberTabTyp;
1032
1033 i number;
1034 j number;
1035
1036
1037 Begin
1038 x_return_status := OKC_API.G_RET_STS_SUCCESS;
1039
1040 i := p_klnhv_tbl.FIRST;
1041 j:=0;
1042
1043 while i is not null
1044 LOOP
1045 j := j + 1;
1046 in_id(j) := p_klnhv_tbl(i).id;
1047 in_cle_id(j) := p_klnhv_tbl(i).cle_id;
1048 in_dnz_chr_id(j) := p_klnhv_tbl(i).dnz_chr_id;
1049 in_discount_list(j) := p_klnhv_tbl(i).discount_list;
1050 in_acct_rule_id(j) := p_klnhv_tbl(i).acct_rule_id;
1051 in_payment_type(j) := p_klnhv_tbl(i).payment_type ;
1052 in_cc_no(j) := p_klnhv_tbl(i).cc_no;
1053 in_cc_expiry_date(j) := p_klnhv_tbl(i).cc_expiry_date;
1054 in_cc_bank_acct_id(j) := p_klnhv_tbl(i).cc_bank_acct_id;
1055 in_cc_auth_code(j) := p_klnhv_tbl(i).cc_auth_code;
1056 in_commitment_id(j) := p_klnhv_tbl(i).commitment_id;
1057 in_locked_price_list_id(j) := p_klnhv_tbl(i).locked_price_list_id;
1058 in_usage_est_yn(j) := p_klnhv_tbl(i).usage_est_yn;
1059 in_usage_est_method(j) := p_klnhv_tbl(i).usage_est_method;
1060 in_usage_est_start_date(j) := p_klnhv_tbl(i).usage_est_start_date;
1061 in_termn_method(j) := p_klnhv_tbl(i).termn_method;
1062 in_ubt_amount(j) := p_klnhv_tbl(i).ubt_amount;
1063 in_credit_amount(j) := p_klnhv_tbl(i).credit_amount;
1064 in_suppressed_credit(j) := p_klnhv_tbl(i).suppressed_credit;
1065 in_override_amount(j) := p_klnhv_tbl(i).override_amount;
1066 in_cust_po_number_req_yn(j) := p_klnhv_tbl(i).cust_po_number_req_yn;
1067 in_cust_po_number(j) := p_klnhv_tbl(i).cust_po_number;
1068 in_grace_duration(j) := p_klnhv_tbl(i).grace_duration;
1069 in_grace_period(j) := p_klnhv_tbl(i).grace_period;
1070 in_inv_print_flag(j) := p_klnhv_tbl(i).inv_print_flag;
1071 in_price_uom(j) := p_klnhv_tbl(i).price_uom;
1072 in_tax_amount(j) := p_klnhv_tbl(i).tax_amount;
1073 in_tax_inclusive_yn(j) := p_klnhv_tbl(i).tax_inclusive_yn;
1074 in_tax_status(j) := p_klnhv_tbl(i).tax_status;
1075 in_tax_code(j) := p_klnhv_tbl(i).tax_code;
1076 in_tax_exemption_id(j) := p_klnhv_tbl(i).tax_exemption_id;
1077 in_ib_trans_type(j) := p_klnhv_tbl(i).ib_trans_type;
1078 in_ib_trans_date(j) := p_klnhv_tbl(i).ib_trans_date;
1079 in_prod_price(j) := p_klnhv_tbl(i).prod_price;
1080 in_service_price(j) := p_klnhv_tbl(i).service_price;
1081 in_clvl_list_price(j) := p_klnhv_tbl(i).clvl_list_price;
1082 in_clvl_quantity(j) := p_klnhv_tbl(i).clvl_quantity;
1083 in_clvl_extended_amt(j) := p_klnhv_tbl(i).clvl_extended_amt;
1084 in_clvl_uom_code(j) := p_klnhv_tbl(i).clvl_uom_code;
1085 in_toplvl_operand_code(j) := p_klnhv_tbl(i).toplvl_operand_code;
1086 in_toplvl_operand_val(j) := p_klnhv_tbl(i).toplvl_operand_val;
1087 in_toplvl_quantity(j) := p_klnhv_tbl(i).toplvl_quantity;
1088 in_toplvl_uom_code(j) := p_klnhv_tbl(i).toplvl_uom_code;
1089 in_toplvl_adj_price(j) := p_klnhv_tbl(i).toplvl_adj_price;
1090 in_toplvl_price_qty(j) := p_klnhv_tbl(i).toplvl_price_qty;
1091 in_averaging_interval(j) := p_klnhv_tbl(i).averaging_interval;
1092 in_settlement_interval(j) := p_klnhv_tbl(i).settlement_interval;
1093 in_minimum_quantity(j) := p_klnhv_tbl(i).minimum_quantity;
1094 in_default_quantity(j) := p_klnhv_tbl(i).default_quantity;
1095 in_amcv_flag(j) := p_klnhv_tbl(i).amcv_flag;
1096 in_fixed_quantity(j) := p_klnhv_tbl(i).fixed_quantity;
1097 in_usage_duration(j) := p_klnhv_tbl(i).usage_duration;
1098 in_usage_period(j) := p_klnhv_tbl(i).usage_period;
1099 in_level_yn(j) := p_klnhv_tbl(i).level_yn;
1100 in_usage_type(j) := p_klnhv_tbl(i).usage_type;
1101 in_uom_quantified(j) := p_klnhv_tbl(i).uom_quantified;
1102 in_base_reading(j) := p_klnhv_tbl(i).base_reading;
1103 in_billing_schedule_type(j) := p_klnhv_tbl(i).billing_schedule_type;
1104 in_full_credit(j) := p_klnhv_tbl(i).full_credit;
1105 in_coverage_type(j) := p_klnhv_tbl(i).coverage_type;
1106 in_exception_cov_id(j) := p_klnhv_tbl(i).exception_cov_id;
1107 in_limit_uom_quantified(j) := p_klnhv_tbl(i).limit_uom_quantified;
1108 in_discount_amount(j) := p_klnhv_tbl(i).discount_amount;
1109 in_discount_percent(j) := p_klnhv_tbl(i).discount_percent;
1113 in_pdf_id(j) := p_klnhv_tbl(i).pdf_id;
1110 in_offset_duration(j) := p_klnhv_tbl(i).offset_duration;
1111 in_offset_period(j) := p_klnhv_tbl(i).offset_period;
1112 in_incident_severity_id(j) := p_klnhv_tbl(i).incident_severity_id;
1114 in_work_thru_yn(j) := p_klnhv_tbl(i).work_thru_yn;
1115 in_react_active_yn(j) := p_klnhv_tbl(i).react_active_yn;
1116 in_transfer_option(j) := p_klnhv_tbl(i).transfer_option;
1117 in_prod_upgrade_yn(j) := p_klnhv_tbl(i).prod_upgrade_yn;
1118 in_inheritance_type(j) := p_klnhv_tbl(i).inheritance_type;
1119 in_pm_program_id(j) := p_klnhv_tbl(i).pm_program_id;
1120 in_pm_conf_req_yn(j) := p_klnhv_tbl(i).pm_conf_req_yn;
1121 in_pm_sch_exists_yn(j) := p_klnhv_tbl(i).pm_sch_exists_yn;
1122 in_allow_bt_discount(j) := p_klnhv_tbl(i).allow_bt_discount;
1123 in_apply_default_timezone(j) := p_klnhv_tbl(i).apply_default_timezone;
1124 in_sync_date_install(j) := p_klnhv_tbl(i).sync_date_install;
1125 in_object_version_number(j) := p_klnhv_tbl(i).object_version_number;
1126 in_security_group_id(j) := p_klnhv_tbl(i).security_group_id;
1127 in_request_id(j) := p_klnhv_tbl(i).request_id;
1128 in_created_by(j) := p_klnhv_tbl(i).created_by;
1129 in_creation_date(j) := p_klnhv_tbl(i).creation_date;
1130 in_last_updated_by(j) := p_klnhv_tbl(i).last_updated_by;
1131 in_last_update_date(j) := p_klnhv_tbl(i).last_update_date;
1132 in_last_update_login(j) := p_klnhv_tbl(i).last_update_login;
1133 in_major_version(j) := p_klnhv_tbl(i).major_version;
1134 in_source_lang(j) := l_source_lang;
1135 in_sfwt_flag(j) := p_klnhv_tbl(i).sfwt_flag;
1136 in_invoice_text(j) := p_klnhv_tbl(i).invoice_text;
1137 in_ib_trx_details(j) := p_klnhv_tbl(i).ib_trx_details;
1138 in_status_text(j) := p_klnhv_tbl(i).status_text;
1139 in_react_time_name(j) := p_klnhv_tbl(i).react_time_name;
1140 --skuchima VRM ER
1141 in_revenue_Impact_Date (j) := p_klnhv_tbl(i).revenue_Impact_Date;
1142 in_counter_value_id (j) := p_klnhv_tbl(i).counter_value_id;
1143 i:= p_klnhv_tbl.next(i);
1144 End Loop;
1145
1146
1147 FORALL i in 1..l_tabsize
1148 Insert Into oks_k_lines_bh
1149 (
1150 id ,
1151 major_version,
1152 cle_id ,
1153 dnz_chr_id ,
1154 discount_list ,
1155 acct_rule_id ,
1156 payment_type ,
1157 cc_no ,
1158 cc_expiry_date ,
1159 cc_bank_acct_id ,
1160 cc_auth_code ,
1161 commitment_id ,
1162 locked_price_list_id ,
1163 usage_est_yn ,
1164 usage_est_method ,
1165 usage_est_start_date ,
1166 termn_method ,
1167 ubt_amount ,
1168 credit_amount ,
1169 suppressed_credit ,
1170 override_amount ,
1171 cust_po_number_req_yn,
1172 cust_po_number,
1173 grace_duration ,
1174 grace_period ,
1175 inv_print_flag ,
1176 price_uom ,
1177 tax_amount ,
1178 tax_inclusive_yn ,
1179 tax_status ,
1180 tax_code ,
1181 tax_exemption_id ,
1182 ib_trans_type ,
1183 ib_trans_date ,
1184 prod_price ,
1185 service_price ,
1186 clvl_list_price ,
1187 clvl_quantity ,
1188 clvl_extended_amt ,
1189 clvl_uom_code ,
1190 toplvl_operand_code ,
1191 toplvl_operand_val ,
1192 toplvl_quantity ,
1193 toplvl_uom_code ,
1194 toplvl_adj_price ,
1195 toplvl_price_qty ,
1196 averaging_interval ,
1197 settlement_interval ,
1198 minimum_quantity ,
1199 default_quantity ,
1200 amcv_flag ,
1201 fixed_quantity ,
1202 usage_duration ,
1203 usage_period ,
1204 level_yn ,
1205 usage_type ,
1206 uom_quantified ,
1207 base_reading ,
1208 billing_schedule_type ,
1209 full_credit ,
1210 coverage_type ,
1211 exception_cov_id ,
1212 limit_uom_quantified ,
1213 discount_amount ,
1214 discount_percent ,
1215 offset_duration ,
1216 offset_period ,
1217 incident_severity_id ,
1218 pdf_id ,
1219 work_thru_yn ,
1220 react_active_yn ,
1221 transfer_option ,
1222 prod_upgrade_yn ,
1223 inheritance_type ,
1224 pm_program_id ,
1225 pm_conf_req_yn ,
1226 pm_sch_exists_yn ,
1227 allow_bt_discount ,
1228 apply_default_timezone ,
1229 sync_date_install,
1230 object_version_number ,
1231 security_group_id ,
1232 request_id ,
1233 created_by ,
1234 creation_date ,
1235 last_updated_by ,
1236 last_update_date ,
1237 last_update_login ,
1238 --skuchima VRM ER
1239 revenue_Impact_Date,
1240 counter_value_id
1241 )
1242 Values (
1243 in_id(i),
1244 in_major_version(i),
1245 in_cle_id(i),
1246 in_dnz_chr_id(i),
1247 in_discount_list(i),
1248 in_acct_rule_id(i),
1249 in_payment_type(i),
1250 in_cc_no(i),
1251 in_cc_expiry_date(i),
1252 in_cc_bank_acct_id(i),
1253 in_cc_auth_code(i),
1257 in_usage_est_method(i),
1254 in_commitment_id(i),
1255 in_locked_price_list_id(i),
1256 in_usage_est_yn(i),
1258 in_usage_est_start_date(i),
1259 in_termn_method(i),
1260 in_ubt_amount(i),
1261 in_credit_amount(i),
1262 in_suppressed_credit(i),
1263 in_override_amount(i),
1264 in_cust_po_number_req_yn(i),
1265 in_cust_po_number(i),
1266 in_grace_duration(i),
1267 in_grace_period(i),
1268 in_inv_print_flag(i),
1269 in_price_uom(i),
1270 in_tax_amount(i),
1271 in_tax_inclusive_yn(i),
1272 in_tax_status(i),
1273 in_tax_code(i),
1274 in_tax_exemption_id(i),
1275 in_ib_trans_type(i),
1276 in_ib_trans_date(i),
1277 in_prod_price(i),
1278 in_service_price(i),
1279 in_clvl_list_price(i),
1280 in_clvl_quantity(i),
1281 in_clvl_extended_amt(i),
1282 in_clvl_uom_code(i),
1283 in_toplvl_operand_code(i),
1284 in_toplvl_operand_val(i),
1285 in_toplvl_quantity(i),
1286 in_toplvl_uom_code(i),
1287 in_toplvl_adj_price(i),
1288 in_toplvl_price_qty(i),
1289 in_averaging_interval(i),
1290 in_settlement_interval(i),
1291 in_minimum_quantity(i),
1292 in_default_quantity(i),
1293 in_amcv_flag(i),
1294 in_fixed_quantity(i),
1295 in_usage_duration(i),
1296 in_usage_period(i),
1297 in_level_yn(i),
1298 in_usage_type(i),
1299 in_uom_quantified(i),
1300 in_base_reading(i),
1301 in_billing_schedule_type(i),
1302 in_full_credit(i),
1303 in_coverage_type(i),
1304 in_exception_cov_id(i),
1305 in_limit_uom_quantified(i),
1306 in_discount_amount(i),
1307 in_discount_percent(i),
1308 in_offset_duration(i),
1309 in_offset_period(i),
1310 in_incident_severity_id(i),
1311 in_pdf_id(i),
1312 in_work_thru_yn(i),
1313 in_react_active_yn(i),
1314 in_transfer_option(i),
1315 in_prod_upgrade_yn(i),
1316 in_inheritance_type(i),
1317 in_pm_program_id(i),
1318 in_pm_conf_req_yn(i),
1319 in_pm_sch_exists_yn(i),
1320 in_allow_bt_discount(i),
1321 in_apply_default_timezone(i),
1322 in_sync_date_install(i),
1323 in_object_version_number(i),
1324 in_security_group_id(i),
1325 in_request_id(i),
1326 in_created_by(i),
1327 in_creation_date(i),
1328 in_last_updated_by(i),
1329 in_last_update_date(i),
1330 in_last_update_login(i),
1331 --skuchima VRM ER
1332 in_revenue_Impact_Date(i),
1333 in_counter_value_id(i)
1334 );
1335
1336 FOR lang_i IN OKC_UTIL.g_language_code.FIRST..OKC_UTIL.g_language_code.LAST LOOP
1337 FORALL i in 1..l_tabsize
1338 Insert Into oks_k_lines_tlh
1339 (
1340 id ,
1341 major_version,
1342 language ,
1343 source_lang ,
1344 sfwt_flag ,
1345 invoice_text ,
1346 ib_trx_details ,
1347 status_text ,
1348 react_time_name ,
1349 security_group_id ,
1350 created_by ,
1351 creation_date ,
1352 last_updated_by ,
1353 last_update_date ,
1354 last_update_login
1355 ) Values (
1356 in_id (i),
1357 in_major_version(i),
1358 OKC_UTIL.g_language_code(lang_i),
1359 in_source_lang (i),
1360 in_sfwt_flag (i),
1361 in_invoice_text (i),
1362 in_ib_trx_details (i),
1363 in_status_text (i),
1364 in_react_time_name (i),
1365 in_security_group_id (i),
1366 in_created_by (i),
1367 in_creation_date (i),
1368 in_last_updated_by (i),
1369 in_last_update_date (i),
1370 in_last_update_login(i)
1371 );
1372 End Loop;
1373
1374 EXCEPTION
1375 WHEN OTHERS THEN
1376 -- store SQL error message on message stack
1377 OKC_API.SET_MESSAGE(
1378 p_app_name => G_APP_NAME,
1379 p_msg_name => G_UNEXPECTED_ERROR,
1380 p_token1 => G_SQLCODE_TOKEN,
1381 p_token1_value => SQLCODE,
1382 p_token2 => G_SQLERRM_TOKEN,
1383 p_token2_value => SQLERRM);
1384 -- notify caller of an error as UNEXPETED error
1385 x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1386
1387 End CREATE_LINE_VERSION_UPG;
1388
1389
1390 END oks_contract_line_pub;
1391