95: no_child_left EXCEPTION;
96:
97: BEGIN
98: IF (l_debug = 'Y') THEN
99: okc_util.print_trace(0, 'CREATE CHILD LINE FOR THE MODEL LINE ');
100: okc_util.print_trace(0, '===================================================');
101: okc_util.print_trace(1, ' ');
102: okc_util.print_trace(1, '>START - OKO_OC_INT_CONFGI_PVT.create_config_sublines - create Sublines');
103: okc_util.print_trace(1, ' ');
96:
97: BEGIN
98: IF (l_debug = 'Y') THEN
99: okc_util.print_trace(0, 'CREATE CHILD LINE FOR THE MODEL LINE ');
100: okc_util.print_trace(0, '===================================================');
101: okc_util.print_trace(1, ' ');
102: okc_util.print_trace(1, '>START - OKO_OC_INT_CONFGI_PVT.create_config_sublines - create Sublines');
103: okc_util.print_trace(1, ' ');
104: END IF;
97: BEGIN
98: IF (l_debug = 'Y') THEN
99: okc_util.print_trace(0, 'CREATE CHILD LINE FOR THE MODEL LINE ');
100: okc_util.print_trace(0, '===================================================');
101: okc_util.print_trace(1, ' ');
102: okc_util.print_trace(1, '>START - OKO_OC_INT_CONFGI_PVT.create_config_sublines - create Sublines');
103: okc_util.print_trace(1, ' ');
104: END IF;
105: x_return_status := OKC_API.G_RET_STS_SUCCESS;
98: IF (l_debug = 'Y') THEN
99: okc_util.print_trace(0, 'CREATE CHILD LINE FOR THE MODEL LINE ');
100: okc_util.print_trace(0, '===================================================');
101: okc_util.print_trace(1, ' ');
102: okc_util.print_trace(1, '>START - OKO_OC_INT_CONFGI_PVT.create_config_sublines - create Sublines');
103: okc_util.print_trace(1, ' ');
104: END IF;
105: x_return_status := OKC_API.G_RET_STS_SUCCESS;
106: l_child_cimv_rec := temp_child_cimv_rec;
99: okc_util.print_trace(0, 'CREATE CHILD LINE FOR THE MODEL LINE ');
100: okc_util.print_trace(0, '===================================================');
101: okc_util.print_trace(1, ' ');
102: okc_util.print_trace(1, '>START - OKO_OC_INT_CONFGI_PVT.create_config_sublines - create Sublines');
103: okc_util.print_trace(1, ' ');
104: END IF;
105: x_return_status := OKC_API.G_RET_STS_SUCCESS;
106: l_child_cimv_rec := temp_child_cimv_rec;
107: l_child_clev_rec := temp_child_clev_rec;
159: rolledup_line_list_price := rolledup_line_list_price + l_child_clev_rec.line_list_price;
160: rolledup_price_negotiated := rolledup_price_negotiated + l_child_clev_rec.price_negotiated;
161:
162: IF (l_debug = 'Y') THEN
163: okc_util.print_trace(3, 'INPUT RECORD - Contract Line Record(Configurator Lines):');
164: okc_util.print_trace(3, '========================================');
165: okc_util.print_trace(4, 'Contract Line Number = '||l_child_clev_rec.line_number);
166: okc_util.print_trace(4, 'Contract Header Id = '||l_child_clev_rec.dnz_chr_id);
167: okc_util.print_trace(4, 'Contract Line Id = '||l_child_clev_rec.cle_id);
160: rolledup_price_negotiated := rolledup_price_negotiated + l_child_clev_rec.price_negotiated;
161:
162: IF (l_debug = 'Y') THEN
163: okc_util.print_trace(3, 'INPUT RECORD - Contract Line Record(Configurator Lines):');
164: okc_util.print_trace(3, '========================================');
165: okc_util.print_trace(4, 'Contract Line Number = '||l_child_clev_rec.line_number);
166: okc_util.print_trace(4, 'Contract Header Id = '||l_child_clev_rec.dnz_chr_id);
167: okc_util.print_trace(4, 'Contract Line Id = '||l_child_clev_rec.cle_id);
168: okc_util.print_trace(4, 'Line Style Id = '||l_child_clev_rec.lse_id);
161:
162: IF (l_debug = 'Y') THEN
163: okc_util.print_trace(3, 'INPUT RECORD - Contract Line Record(Configurator Lines):');
164: okc_util.print_trace(3, '========================================');
165: okc_util.print_trace(4, 'Contract Line Number = '||l_child_clev_rec.line_number);
166: okc_util.print_trace(4, 'Contract Header Id = '||l_child_clev_rec.dnz_chr_id);
167: okc_util.print_trace(4, 'Contract Line Id = '||l_child_clev_rec.cle_id);
168: okc_util.print_trace(4, 'Line Style Id = '||l_child_clev_rec.lse_id);
169: okc_util.print_trace(4, 'Display Sequence = '||l_child_clev_rec.display_sequence);
162: IF (l_debug = 'Y') THEN
163: okc_util.print_trace(3, 'INPUT RECORD - Contract Line Record(Configurator Lines):');
164: okc_util.print_trace(3, '========================================');
165: okc_util.print_trace(4, 'Contract Line Number = '||l_child_clev_rec.line_number);
166: okc_util.print_trace(4, 'Contract Header Id = '||l_child_clev_rec.dnz_chr_id);
167: okc_util.print_trace(4, 'Contract Line Id = '||l_child_clev_rec.cle_id);
168: okc_util.print_trace(4, 'Line Style Id = '||l_child_clev_rec.lse_id);
169: okc_util.print_trace(4, 'Display Sequence = '||l_child_clev_rec.display_sequence);
170: okc_util.print_trace(4, 'Currency code = '||l_child_clev_rec.currency_code);
163: okc_util.print_trace(3, 'INPUT RECORD - Contract Line Record(Configurator Lines):');
164: okc_util.print_trace(3, '========================================');
165: okc_util.print_trace(4, 'Contract Line Number = '||l_child_clev_rec.line_number);
166: okc_util.print_trace(4, 'Contract Header Id = '||l_child_clev_rec.dnz_chr_id);
167: okc_util.print_trace(4, 'Contract Line Id = '||l_child_clev_rec.cle_id);
168: okc_util.print_trace(4, 'Line Style Id = '||l_child_clev_rec.lse_id);
169: okc_util.print_trace(4, 'Display Sequence = '||l_child_clev_rec.display_sequence);
170: okc_util.print_trace(4, 'Currency code = '||l_child_clev_rec.currency_code);
171: okc_util.print_trace(4, 'Price Level Ind. = '||l_child_clev_rec.price_level_ind);
164: okc_util.print_trace(3, '========================================');
165: okc_util.print_trace(4, 'Contract Line Number = '||l_child_clev_rec.line_number);
166: okc_util.print_trace(4, 'Contract Header Id = '||l_child_clev_rec.dnz_chr_id);
167: okc_util.print_trace(4, 'Contract Line Id = '||l_child_clev_rec.cle_id);
168: okc_util.print_trace(4, 'Line Style Id = '||l_child_clev_rec.lse_id);
169: okc_util.print_trace(4, 'Display Sequence = '||l_child_clev_rec.display_sequence);
170: okc_util.print_trace(4, 'Currency code = '||l_child_clev_rec.currency_code);
171: okc_util.print_trace(4, 'Price Level Ind. = '||l_child_clev_rec.price_level_ind);
172: okc_util.print_trace(4, 'Unit Price = '||l_child_clev_rec.price_unit);
165: okc_util.print_trace(4, 'Contract Line Number = '||l_child_clev_rec.line_number);
166: okc_util.print_trace(4, 'Contract Header Id = '||l_child_clev_rec.dnz_chr_id);
167: okc_util.print_trace(4, 'Contract Line Id = '||l_child_clev_rec.cle_id);
168: okc_util.print_trace(4, 'Line Style Id = '||l_child_clev_rec.lse_id);
169: okc_util.print_trace(4, 'Display Sequence = '||l_child_clev_rec.display_sequence);
170: okc_util.print_trace(4, 'Currency code = '||l_child_clev_rec.currency_code);
171: okc_util.print_trace(4, 'Price Level Ind. = '||l_child_clev_rec.price_level_ind);
172: okc_util.print_trace(4, 'Unit Price = '||l_child_clev_rec.price_unit);
173: okc_util.print_trace(4, 'Negotiated price = '||l_child_clev_rec.price_negotiated);
166: okc_util.print_trace(4, 'Contract Header Id = '||l_child_clev_rec.dnz_chr_id);
167: okc_util.print_trace(4, 'Contract Line Id = '||l_child_clev_rec.cle_id);
168: okc_util.print_trace(4, 'Line Style Id = '||l_child_clev_rec.lse_id);
169: okc_util.print_trace(4, 'Display Sequence = '||l_child_clev_rec.display_sequence);
170: okc_util.print_trace(4, 'Currency code = '||l_child_clev_rec.currency_code);
171: okc_util.print_trace(4, 'Price Level Ind. = '||l_child_clev_rec.price_level_ind);
172: okc_util.print_trace(4, 'Unit Price = '||l_child_clev_rec.price_unit);
173: okc_util.print_trace(4, 'Negotiated price = '||l_child_clev_rec.price_negotiated);
174: okc_util.print_trace(4, 'Hidden Ind. = '||l_child_clev_rec.hidden_ind);
167: okc_util.print_trace(4, 'Contract Line Id = '||l_child_clev_rec.cle_id);
168: okc_util.print_trace(4, 'Line Style Id = '||l_child_clev_rec.lse_id);
169: okc_util.print_trace(4, 'Display Sequence = '||l_child_clev_rec.display_sequence);
170: okc_util.print_trace(4, 'Currency code = '||l_child_clev_rec.currency_code);
171: okc_util.print_trace(4, 'Price Level Ind. = '||l_child_clev_rec.price_level_ind);
172: okc_util.print_trace(4, 'Unit Price = '||l_child_clev_rec.price_unit);
173: okc_util.print_trace(4, 'Negotiated price = '||l_child_clev_rec.price_negotiated);
174: okc_util.print_trace(4, 'Hidden Ind. = '||l_child_clev_rec.hidden_ind);
175: okc_util.print_trace(4, 'EXCEPTION Y/N = '||l_child_clev_rec.exception_yn);
168: okc_util.print_trace(4, 'Line Style Id = '||l_child_clev_rec.lse_id);
169: okc_util.print_trace(4, 'Display Sequence = '||l_child_clev_rec.display_sequence);
170: okc_util.print_trace(4, 'Currency code = '||l_child_clev_rec.currency_code);
171: okc_util.print_trace(4, 'Price Level Ind. = '||l_child_clev_rec.price_level_ind);
172: okc_util.print_trace(4, 'Unit Price = '||l_child_clev_rec.price_unit);
173: okc_util.print_trace(4, 'Negotiated price = '||l_child_clev_rec.price_negotiated);
174: okc_util.print_trace(4, 'Hidden Ind. = '||l_child_clev_rec.hidden_ind);
175: okc_util.print_trace(4, 'EXCEPTION Y/N = '||l_child_clev_rec.exception_yn);
176: okc_util.print_trace(4, 'Status Code = '||l_child_clev_rec.sts_code);
169: okc_util.print_trace(4, 'Display Sequence = '||l_child_clev_rec.display_sequence);
170: okc_util.print_trace(4, 'Currency code = '||l_child_clev_rec.currency_code);
171: okc_util.print_trace(4, 'Price Level Ind. = '||l_child_clev_rec.price_level_ind);
172: okc_util.print_trace(4, 'Unit Price = '||l_child_clev_rec.price_unit);
173: okc_util.print_trace(4, 'Negotiated price = '||l_child_clev_rec.price_negotiated);
174: okc_util.print_trace(4, 'Hidden Ind. = '||l_child_clev_rec.hidden_ind);
175: okc_util.print_trace(4, 'EXCEPTION Y/N = '||l_child_clev_rec.exception_yn);
176: okc_util.print_trace(4, 'Status Code = '||l_child_clev_rec.sts_code);
177: okc_util.print_trace(4, 'Start Date = '||l_child_clev_rec.start_date);
170: okc_util.print_trace(4, 'Currency code = '||l_child_clev_rec.currency_code);
171: okc_util.print_trace(4, 'Price Level Ind. = '||l_child_clev_rec.price_level_ind);
172: okc_util.print_trace(4, 'Unit Price = '||l_child_clev_rec.price_unit);
173: okc_util.print_trace(4, 'Negotiated price = '||l_child_clev_rec.price_negotiated);
174: okc_util.print_trace(4, 'Hidden Ind. = '||l_child_clev_rec.hidden_ind);
175: okc_util.print_trace(4, 'EXCEPTION Y/N = '||l_child_clev_rec.exception_yn);
176: okc_util.print_trace(4, 'Status Code = '||l_child_clev_rec.sts_code);
177: okc_util.print_trace(4, 'Start Date = '||l_child_clev_rec.start_date);
178: okc_util.print_trace(4, 'End Date = '||l_child_clev_rec.END_date);
171: okc_util.print_trace(4, 'Price Level Ind. = '||l_child_clev_rec.price_level_ind);
172: okc_util.print_trace(4, 'Unit Price = '||l_child_clev_rec.price_unit);
173: okc_util.print_trace(4, 'Negotiated price = '||l_child_clev_rec.price_negotiated);
174: okc_util.print_trace(4, 'Hidden Ind. = '||l_child_clev_rec.hidden_ind);
175: okc_util.print_trace(4, 'EXCEPTION Y/N = '||l_child_clev_rec.exception_yn);
176: okc_util.print_trace(4, 'Status Code = '||l_child_clev_rec.sts_code);
177: okc_util.print_trace(4, 'Start Date = '||l_child_clev_rec.start_date);
178: okc_util.print_trace(4, 'End Date = '||l_child_clev_rec.END_date);
179: okc_util.print_trace(1, '----------------------------');
172: okc_util.print_trace(4, 'Unit Price = '||l_child_clev_rec.price_unit);
173: okc_util.print_trace(4, 'Negotiated price = '||l_child_clev_rec.price_negotiated);
174: okc_util.print_trace(4, 'Hidden Ind. = '||l_child_clev_rec.hidden_ind);
175: okc_util.print_trace(4, 'EXCEPTION Y/N = '||l_child_clev_rec.exception_yn);
176: okc_util.print_trace(4, 'Status Code = '||l_child_clev_rec.sts_code);
177: okc_util.print_trace(4, 'Start Date = '||l_child_clev_rec.start_date);
178: okc_util.print_trace(4, 'End Date = '||l_child_clev_rec.END_date);
179: okc_util.print_trace(1, '----------------------------');
180: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
173: okc_util.print_trace(4, 'Negotiated price = '||l_child_clev_rec.price_negotiated);
174: okc_util.print_trace(4, 'Hidden Ind. = '||l_child_clev_rec.hidden_ind);
175: okc_util.print_trace(4, 'EXCEPTION Y/N = '||l_child_clev_rec.exception_yn);
176: okc_util.print_trace(4, 'Status Code = '||l_child_clev_rec.sts_code);
177: okc_util.print_trace(4, 'Start Date = '||l_child_clev_rec.start_date);
178: okc_util.print_trace(4, 'End Date = '||l_child_clev_rec.END_date);
179: okc_util.print_trace(1, '----------------------------');
180: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
181: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
174: okc_util.print_trace(4, 'Hidden Ind. = '||l_child_clev_rec.hidden_ind);
175: okc_util.print_trace(4, 'EXCEPTION Y/N = '||l_child_clev_rec.exception_yn);
176: okc_util.print_trace(4, 'Status Code = '||l_child_clev_rec.sts_code);
177: okc_util.print_trace(4, 'Start Date = '||l_child_clev_rec.start_date);
178: okc_util.print_trace(4, 'End Date = '||l_child_clev_rec.END_date);
179: okc_util.print_trace(1, '----------------------------');
180: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
181: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
182: okc_util.print_trace(1, '----------------------------');
175: okc_util.print_trace(4, 'EXCEPTION Y/N = '||l_child_clev_rec.exception_yn);
176: okc_util.print_trace(4, 'Status Code = '||l_child_clev_rec.sts_code);
177: okc_util.print_trace(4, 'Start Date = '||l_child_clev_rec.start_date);
178: okc_util.print_trace(4, 'End Date = '||l_child_clev_rec.END_date);
179: okc_util.print_trace(1, '----------------------------');
180: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
181: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
182: okc_util.print_trace(1, '----------------------------');
183: okc_util.print_trace(1, '--------------------------------------------------------');
176: okc_util.print_trace(4, 'Status Code = '||l_child_clev_rec.sts_code);
177: okc_util.print_trace(4, 'Start Date = '||l_child_clev_rec.start_date);
178: okc_util.print_trace(4, 'End Date = '||l_child_clev_rec.END_date);
179: okc_util.print_trace(1, '----------------------------');
180: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
181: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
182: okc_util.print_trace(1, '----------------------------');
183: okc_util.print_trace(1, '--------------------------------------------------------');
184: okc_util.print_trace(1, '>START - ******* OKC_CONTRACT_PUB.CREATE_CONTRACT_LINE -');
177: okc_util.print_trace(4, 'Start Date = '||l_child_clev_rec.start_date);
178: okc_util.print_trace(4, 'End Date = '||l_child_clev_rec.END_date);
179: okc_util.print_trace(1, '----------------------------');
180: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
181: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
182: okc_util.print_trace(1, '----------------------------');
183: okc_util.print_trace(1, '--------------------------------------------------------');
184: okc_util.print_trace(1, '>START - ******* OKC_CONTRACT_PUB.CREATE_CONTRACT_LINE -');
185: END IF;
178: okc_util.print_trace(4, 'End Date = '||l_child_clev_rec.END_date);
179: okc_util.print_trace(1, '----------------------------');
180: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
181: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
182: okc_util.print_trace(1, '----------------------------');
183: okc_util.print_trace(1, '--------------------------------------------------------');
184: okc_util.print_trace(1, '>START - ******* OKC_CONTRACT_PUB.CREATE_CONTRACT_LINE -');
185: END IF;
186:
179: okc_util.print_trace(1, '----------------------------');
180: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
181: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
182: okc_util.print_trace(1, '----------------------------');
183: okc_util.print_trace(1, '--------------------------------------------------------');
184: okc_util.print_trace(1, '>START - ******* OKC_CONTRACT_PUB.CREATE_CONTRACT_LINE -');
185: END IF;
186:
187: okc_contract_pub.create_contract_line(p_api_version => 1
180: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
181: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
182: okc_util.print_trace(1, '----------------------------');
183: okc_util.print_trace(1, '--------------------------------------------------------');
184: okc_util.print_trace(1, '>START - ******* OKC_CONTRACT_PUB.CREATE_CONTRACT_LINE -');
185: END IF;
186:
187: okc_contract_pub.create_contract_line(p_api_version => 1
188: ,p_init_msg_list => OKC_API.G_FALSE
193: ,x_clev_rec => lx_child_clev_rec
194: );
195:
196: IF (l_debug = 'Y') THEN
197: okc_util.print_trace(1, '
199: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
200: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
201: okc_util.print_trace(1, '----------------------------');
194: );
195:
196: IF (l_debug = 'Y') THEN
197: okc_util.print_trace(1, '
199: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
200: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
201: okc_util.print_trace(1, '----------------------------');
202: END IF;
195:
196: IF (l_debug = 'Y') THEN
197: okc_util.print_trace(1, '
199: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
200: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
201: okc_util.print_trace(1, '----------------------------');
202: END IF;
203:
196: IF (l_debug = 'Y') THEN
197: okc_util.print_trace(1, '
199: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
200: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
201: okc_util.print_trace(1, '----------------------------');
202: END IF;
203:
204: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR OR l_return_status = OKC_API.G_RET_STS_ERROR THEN
197: okc_util.print_trace(1, '
199: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
200: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
201: okc_util.print_trace(1, '----------------------------');
202: END IF;
203:
204: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR OR l_return_status = OKC_API.G_RET_STS_ERROR THEN
205:
222: RAISE OKC_API.G_EXCEPTION_ERROR;
223: END IF;
224:
225: IF (l_debug = 'Y') THEN
226: okc_util.print_trace(3, 'OUTPUT RECORD - Contract Line Record:');
227: okc_util.print_trace(3, '=========================================');
228: okc_util.print_trace(3, 'Contract Header Id = '||lx_child_clev_rec.dnz_chr_id);
229: okc_util.print_trace(4, 'Contract Line Id = '||lx_child_clev_rec.id);
230: okc_util.print_trace(4, 'Line Number = '||lx_child_clev_rec.line_number);
223: END IF;
224:
225: IF (l_debug = 'Y') THEN
226: okc_util.print_trace(3, 'OUTPUT RECORD - Contract Line Record:');
227: okc_util.print_trace(3, '=========================================');
228: okc_util.print_trace(3, 'Contract Header Id = '||lx_child_clev_rec.dnz_chr_id);
229: okc_util.print_trace(4, 'Contract Line Id = '||lx_child_clev_rec.id);
230: okc_util.print_trace(4, 'Line Number = '||lx_child_clev_rec.line_number);
231: okc_util.print_trace(4, 'Line Style Id = '||lx_child_clev_rec.lse_id);
224:
225: IF (l_debug = 'Y') THEN
226: okc_util.print_trace(3, 'OUTPUT RECORD - Contract Line Record:');
227: okc_util.print_trace(3, '=========================================');
228: okc_util.print_trace(3, 'Contract Header Id = '||lx_child_clev_rec.dnz_chr_id);
229: okc_util.print_trace(4, 'Contract Line Id = '||lx_child_clev_rec.id);
230: okc_util.print_trace(4, 'Line Number = '||lx_child_clev_rec.line_number);
231: okc_util.print_trace(4, 'Line Style Id = '||lx_child_clev_rec.lse_id);
232: END IF;
225: IF (l_debug = 'Y') THEN
226: okc_util.print_trace(3, 'OUTPUT RECORD - Contract Line Record:');
227: okc_util.print_trace(3, '=========================================');
228: okc_util.print_trace(3, 'Contract Header Id = '||lx_child_clev_rec.dnz_chr_id);
229: okc_util.print_trace(4, 'Contract Line Id = '||lx_child_clev_rec.id);
230: okc_util.print_trace(4, 'Line Number = '||lx_child_clev_rec.line_number);
231: okc_util.print_trace(4, 'Line Style Id = '||lx_child_clev_rec.lse_id);
232: END IF;
233:
226: okc_util.print_trace(3, 'OUTPUT RECORD - Contract Line Record:');
227: okc_util.print_trace(3, '=========================================');
228: okc_util.print_trace(3, 'Contract Header Id = '||lx_child_clev_rec.dnz_chr_id);
229: okc_util.print_trace(4, 'Contract Line Id = '||lx_child_clev_rec.id);
230: okc_util.print_trace(4, 'Line Number = '||lx_child_clev_rec.line_number);
231: okc_util.print_trace(4, 'Line Style Id = '||lx_child_clev_rec.lse_id);
232: END IF;
233:
234:
227: okc_util.print_trace(3, '=========================================');
228: okc_util.print_trace(3, 'Contract Header Id = '||lx_child_clev_rec.dnz_chr_id);
229: okc_util.print_trace(4, 'Contract Line Id = '||lx_child_clev_rec.id);
230: okc_util.print_trace(4, 'Line Number = '||lx_child_clev_rec.line_number);
231: okc_util.print_trace(4, 'Line Style Id = '||lx_child_clev_rec.lse_id);
232: END IF;
233:
234:
235: -- record mapping of contract line to Order/quote line for contract relationship
246:
247:
248:
249: IF (l_debug = 'Y') THEN
250: okc_util.print_trace(0, ' ');
251: okc_util.print_trace(0, '================================================');
252: okc_util.print_trace(0, 'CREATE CONTRACT LINE ITEM ');
253: okc_util.print_trace(0, '================================================');
254: okc_util.print_trace(0, ' ');
247:
248:
249: IF (l_debug = 'Y') THEN
250: okc_util.print_trace(0, ' ');
251: okc_util.print_trace(0, '================================================');
252: okc_util.print_trace(0, 'CREATE CONTRACT LINE ITEM ');
253: okc_util.print_trace(0, '================================================');
254: okc_util.print_trace(0, ' ');
255: END IF;
248:
249: IF (l_debug = 'Y') THEN
250: okc_util.print_trace(0, ' ');
251: okc_util.print_trace(0, '================================================');
252: okc_util.print_trace(0, 'CREATE CONTRACT LINE ITEM ');
253: okc_util.print_trace(0, '================================================');
254: okc_util.print_trace(0, ' ');
255: END IF;
256:
249: IF (l_debug = 'Y') THEN
250: okc_util.print_trace(0, ' ');
251: okc_util.print_trace(0, '================================================');
252: okc_util.print_trace(0, 'CREATE CONTRACT LINE ITEM ');
253: okc_util.print_trace(0, '================================================');
254: okc_util.print_trace(0, ' ');
255: END IF;
256:
257: -- create contract item
250: okc_util.print_trace(0, ' ');
251: okc_util.print_trace(0, '================================================');
252: okc_util.print_trace(0, 'CREATE CONTRACT LINE ITEM ');
253: okc_util.print_trace(0, '================================================');
254: okc_util.print_trace(0, ' ');
255: END IF;
256:
257: -- create contract item
258: l_child_cimv_rec.cle_id := lx_child_clev_rec.id;
265: l_child_cimv_rec.object1_id1 := child_line_rec.inventory_item_id;
266: l_child_cimv_rec.object1_id2 := child_line_rec.organization_id;
267:
268: IF (l_debug = 'Y') THEN
269: okc_util.print_trace(3, 'INPUT RECORD - Contract Top Line Item Record:');
270: okc_util.print_trace(3, '=============================================');
271: okc_util.print_trace(4, 'Contract Line Id = '||l_child_cimv_rec.cle_id);
272: okc_util.print_trace(4, 'Dnz Contract Header Id= '||l_child_cimv_rec.dnz_chr_id);
273: okc_util.print_trace(4, 'Object1 Id1 = '||l_child_cimv_rec.object1_id1);
266: l_child_cimv_rec.object1_id2 := child_line_rec.organization_id;
267:
268: IF (l_debug = 'Y') THEN
269: okc_util.print_trace(3, 'INPUT RECORD - Contract Top Line Item Record:');
270: okc_util.print_trace(3, '=============================================');
271: okc_util.print_trace(4, 'Contract Line Id = '||l_child_cimv_rec.cle_id);
272: okc_util.print_trace(4, 'Dnz Contract Header Id= '||l_child_cimv_rec.dnz_chr_id);
273: okc_util.print_trace(4, 'Object1 Id1 = '||l_child_cimv_rec.object1_id1);
274: okc_util.print_trace(4, 'Object1 Id2 = '||l_child_cimv_rec.object1_id2);
267:
268: IF (l_debug = 'Y') THEN
269: okc_util.print_trace(3, 'INPUT RECORD - Contract Top Line Item Record:');
270: okc_util.print_trace(3, '=============================================');
271: okc_util.print_trace(4, 'Contract Line Id = '||l_child_cimv_rec.cle_id);
272: okc_util.print_trace(4, 'Dnz Contract Header Id= '||l_child_cimv_rec.dnz_chr_id);
273: okc_util.print_trace(4, 'Object1 Id1 = '||l_child_cimv_rec.object1_id1);
274: okc_util.print_trace(4, 'Object1 Id2 = '||l_child_cimv_rec.object1_id2);
275: okc_util.print_trace(4, 'Object Code = '||l_child_cimv_rec.jtot_object1_code);
268: IF (l_debug = 'Y') THEN
269: okc_util.print_trace(3, 'INPUT RECORD - Contract Top Line Item Record:');
270: okc_util.print_trace(3, '=============================================');
271: okc_util.print_trace(4, 'Contract Line Id = '||l_child_cimv_rec.cle_id);
272: okc_util.print_trace(4, 'Dnz Contract Header Id= '||l_child_cimv_rec.dnz_chr_id);
273: okc_util.print_trace(4, 'Object1 Id1 = '||l_child_cimv_rec.object1_id1);
274: okc_util.print_trace(4, 'Object1 Id2 = '||l_child_cimv_rec.object1_id2);
275: okc_util.print_trace(4, 'Object Code = '||l_child_cimv_rec.jtot_object1_code);
276: okc_util.print_trace(4, 'No. of Items = '||l_child_cimv_rec.number_of_items);
269: okc_util.print_trace(3, 'INPUT RECORD - Contract Top Line Item Record:');
270: okc_util.print_trace(3, '=============================================');
271: okc_util.print_trace(4, 'Contract Line Id = '||l_child_cimv_rec.cle_id);
272: okc_util.print_trace(4, 'Dnz Contract Header Id= '||l_child_cimv_rec.dnz_chr_id);
273: okc_util.print_trace(4, 'Object1 Id1 = '||l_child_cimv_rec.object1_id1);
274: okc_util.print_trace(4, 'Object1 Id2 = '||l_child_cimv_rec.object1_id2);
275: okc_util.print_trace(4, 'Object Code = '||l_child_cimv_rec.jtot_object1_code);
276: okc_util.print_trace(4, 'No. of Items = '||l_child_cimv_rec.number_of_items);
277: okc_util.print_trace(4, 'UoM Code = '||l_child_cimv_rec.uom_code);
270: okc_util.print_trace(3, '=============================================');
271: okc_util.print_trace(4, 'Contract Line Id = '||l_child_cimv_rec.cle_id);
272: okc_util.print_trace(4, 'Dnz Contract Header Id= '||l_child_cimv_rec.dnz_chr_id);
273: okc_util.print_trace(4, 'Object1 Id1 = '||l_child_cimv_rec.object1_id1);
274: okc_util.print_trace(4, 'Object1 Id2 = '||l_child_cimv_rec.object1_id2);
275: okc_util.print_trace(4, 'Object Code = '||l_child_cimv_rec.jtot_object1_code);
276: okc_util.print_trace(4, 'No. of Items = '||l_child_cimv_rec.number_of_items);
277: okc_util.print_trace(4, 'UoM Code = '||l_child_cimv_rec.uom_code);
278: okc_util.print_trace(4, 'Item Priced = '||l_child_cimv_rec.priced_item_yn);
271: okc_util.print_trace(4, 'Contract Line Id = '||l_child_cimv_rec.cle_id);
272: okc_util.print_trace(4, 'Dnz Contract Header Id= '||l_child_cimv_rec.dnz_chr_id);
273: okc_util.print_trace(4, 'Object1 Id1 = '||l_child_cimv_rec.object1_id1);
274: okc_util.print_trace(4, 'Object1 Id2 = '||l_child_cimv_rec.object1_id2);
275: okc_util.print_trace(4, 'Object Code = '||l_child_cimv_rec.jtot_object1_code);
276: okc_util.print_trace(4, 'No. of Items = '||l_child_cimv_rec.number_of_items);
277: okc_util.print_trace(4, 'UoM Code = '||l_child_cimv_rec.uom_code);
278: okc_util.print_trace(4, 'Item Priced = '||l_child_cimv_rec.priced_item_yn);
279: END IF;
272: okc_util.print_trace(4, 'Dnz Contract Header Id= '||l_child_cimv_rec.dnz_chr_id);
273: okc_util.print_trace(4, 'Object1 Id1 = '||l_child_cimv_rec.object1_id1);
274: okc_util.print_trace(4, 'Object1 Id2 = '||l_child_cimv_rec.object1_id2);
275: okc_util.print_trace(4, 'Object Code = '||l_child_cimv_rec.jtot_object1_code);
276: okc_util.print_trace(4, 'No. of Items = '||l_child_cimv_rec.number_of_items);
277: okc_util.print_trace(4, 'UoM Code = '||l_child_cimv_rec.uom_code);
278: okc_util.print_trace(4, 'Item Priced = '||l_child_cimv_rec.priced_item_yn);
279: END IF;
280:
273: okc_util.print_trace(4, 'Object1 Id1 = '||l_child_cimv_rec.object1_id1);
274: okc_util.print_trace(4, 'Object1 Id2 = '||l_child_cimv_rec.object1_id2);
275: okc_util.print_trace(4, 'Object Code = '||l_child_cimv_rec.jtot_object1_code);
276: okc_util.print_trace(4, 'No. of Items = '||l_child_cimv_rec.number_of_items);
277: okc_util.print_trace(4, 'UoM Code = '||l_child_cimv_rec.uom_code);
278: okc_util.print_trace(4, 'Item Priced = '||l_child_cimv_rec.priced_item_yn);
279: END IF;
280:
281: -- insert contract item
274: okc_util.print_trace(4, 'Object1 Id2 = '||l_child_cimv_rec.object1_id2);
275: okc_util.print_trace(4, 'Object Code = '||l_child_cimv_rec.jtot_object1_code);
276: okc_util.print_trace(4, 'No. of Items = '||l_child_cimv_rec.number_of_items);
277: okc_util.print_trace(4, 'UoM Code = '||l_child_cimv_rec.uom_code);
278: okc_util.print_trace(4, 'Item Priced = '||l_child_cimv_rec.priced_item_yn);
279: END IF;
280:
281: -- insert contract item
282: IF (l_debug = 'Y') THEN
279: END IF;
280:
281: -- insert contract item
282: IF (l_debug = 'Y') THEN
283: okc_util.print_trace(1, '----------------------------');
284: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
285: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
286: okc_util.print_trace(1, '----------------------------');
287: END IF;
280:
281: -- insert contract item
282: IF (l_debug = 'Y') THEN
283: okc_util.print_trace(1, '----------------------------');
284: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
285: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
286: okc_util.print_trace(1, '----------------------------');
287: END IF;
288:
281: -- insert contract item
282: IF (l_debug = 'Y') THEN
283: okc_util.print_trace(1, '----------------------------');
284: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
285: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
286: okc_util.print_trace(1, '----------------------------');
287: END IF;
288:
289: IF (l_debug = 'Y') THEN
282: IF (l_debug = 'Y') THEN
283: okc_util.print_trace(1, '----------------------------');
284: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
285: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
286: okc_util.print_trace(1, '----------------------------');
287: END IF;
288:
289: IF (l_debug = 'Y') THEN
290: okc_util.print_trace(1, '--------------------------------------------------------');
286: okc_util.print_trace(1, '----------------------------');
287: END IF;
288:
289: IF (l_debug = 'Y') THEN
290: okc_util.print_trace(1, '--------------------------------------------------------');
291: okc_util.print_trace(1, '>START - ******* OKC_CONTRACT_ITEM_PUB.CREATE_CONTRACT_ITEM -');
292: END IF;
293:
294: okc_contract_item_pub.create_contract_item(p_api_version => 1
287: END IF;
288:
289: IF (l_debug = 'Y') THEN
290: okc_util.print_trace(1, '--------------------------------------------------------');
291: okc_util.print_trace(1, '>START - ******* OKC_CONTRACT_ITEM_PUB.CREATE_CONTRACT_ITEM -');
292: END IF;
293:
294: okc_contract_item_pub.create_contract_item(p_api_version => 1
295: ,p_init_msg_list => OKC_API.G_FALSE
300: ,x_cimv_rec => lx_child_cimv_rec
301: );
302:
303: IF (l_debug = 'Y') THEN
304: okc_util.print_trace(1, '
306: END IF;
307:
308: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR OR l_return_status = OKC_API.G_RET_STS_ERROR THEN
301: );
302:
303: IF (l_debug = 'Y') THEN
304: okc_util.print_trace(1, '
306: END IF;
307:
308: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR OR l_return_status = OKC_API.G_RET_STS_ERROR THEN
309:
327: RAISE OKC_API.G_EXCEPTION_ERROR;
328: END IF;
329:
330: IF (l_debug = 'Y') THEN
331: okc_util.print_trace(3, 'OUTPUT RECORD - Contract Top Line Item Record:');
332: okc_util.print_trace(3, '==============================================');
333: okc_util.print_trace(3, 'Id = '||to_char(lx_child_cimv_rec.id));
334: okc_util.print_trace(3, 'Contract Line Id = '||lx_child_cimv_rec.cle_id);
335: okc_util.print_trace(3, 'Contract Header Id = '||to_char(lx_child_cimv_rec.chr_id));
328: END IF;
329:
330: IF (l_debug = 'Y') THEN
331: okc_util.print_trace(3, 'OUTPUT RECORD - Contract Top Line Item Record:');
332: okc_util.print_trace(3, '==============================================');
333: okc_util.print_trace(3, 'Id = '||to_char(lx_child_cimv_rec.id));
334: okc_util.print_trace(3, 'Contract Line Id = '||lx_child_cimv_rec.cle_id);
335: okc_util.print_trace(3, 'Contract Header Id = '||to_char(lx_child_cimv_rec.chr_id));
336: okc_util.print_trace(3, 'Dnz Contract Header Id= '||lx_child_cimv_rec.dnz_chr_id);
329:
330: IF (l_debug = 'Y') THEN
331: okc_util.print_trace(3, 'OUTPUT RECORD - Contract Top Line Item Record:');
332: okc_util.print_trace(3, '==============================================');
333: okc_util.print_trace(3, 'Id = '||to_char(lx_child_cimv_rec.id));
334: okc_util.print_trace(3, 'Contract Line Id = '||lx_child_cimv_rec.cle_id);
335: okc_util.print_trace(3, 'Contract Header Id = '||to_char(lx_child_cimv_rec.chr_id));
336: okc_util.print_trace(3, 'Dnz Contract Header Id= '||lx_child_cimv_rec.dnz_chr_id);
337: okc_util.print_trace(3, 'Object1 Id1 = '||lx_child_cimv_rec.object1_id1);
330: IF (l_debug = 'Y') THEN
331: okc_util.print_trace(3, 'OUTPUT RECORD - Contract Top Line Item Record:');
332: okc_util.print_trace(3, '==============================================');
333: okc_util.print_trace(3, 'Id = '||to_char(lx_child_cimv_rec.id));
334: okc_util.print_trace(3, 'Contract Line Id = '||lx_child_cimv_rec.cle_id);
335: okc_util.print_trace(3, 'Contract Header Id = '||to_char(lx_child_cimv_rec.chr_id));
336: okc_util.print_trace(3, 'Dnz Contract Header Id= '||lx_child_cimv_rec.dnz_chr_id);
337: okc_util.print_trace(3, 'Object1 Id1 = '||lx_child_cimv_rec.object1_id1);
338: okc_util.print_trace(3, 'Object1 Id2 = '||lx_child_cimv_rec.object1_id2);
331: okc_util.print_trace(3, 'OUTPUT RECORD - Contract Top Line Item Record:');
332: okc_util.print_trace(3, '==============================================');
333: okc_util.print_trace(3, 'Id = '||to_char(lx_child_cimv_rec.id));
334: okc_util.print_trace(3, 'Contract Line Id = '||lx_child_cimv_rec.cle_id);
335: okc_util.print_trace(3, 'Contract Header Id = '||to_char(lx_child_cimv_rec.chr_id));
336: okc_util.print_trace(3, 'Dnz Contract Header Id= '||lx_child_cimv_rec.dnz_chr_id);
337: okc_util.print_trace(3, 'Object1 Id1 = '||lx_child_cimv_rec.object1_id1);
338: okc_util.print_trace(3, 'Object1 Id2 = '||lx_child_cimv_rec.object1_id2);
339: okc_util.print_trace(3, 'Object Code = '||lx_child_cimv_rec.jtot_object1_code);
332: okc_util.print_trace(3, '==============================================');
333: okc_util.print_trace(3, 'Id = '||to_char(lx_child_cimv_rec.id));
334: okc_util.print_trace(3, 'Contract Line Id = '||lx_child_cimv_rec.cle_id);
335: okc_util.print_trace(3, 'Contract Header Id = '||to_char(lx_child_cimv_rec.chr_id));
336: okc_util.print_trace(3, 'Dnz Contract Header Id= '||lx_child_cimv_rec.dnz_chr_id);
337: okc_util.print_trace(3, 'Object1 Id1 = '||lx_child_cimv_rec.object1_id1);
338: okc_util.print_trace(3, 'Object1 Id2 = '||lx_child_cimv_rec.object1_id2);
339: okc_util.print_trace(3, 'Object Code = '||lx_child_cimv_rec.jtot_object1_code);
340: okc_util.print_trace(3, 'No. of Items = '||lx_child_cimv_rec.number_of_items);
333: okc_util.print_trace(3, 'Id = '||to_char(lx_child_cimv_rec.id));
334: okc_util.print_trace(3, 'Contract Line Id = '||lx_child_cimv_rec.cle_id);
335: okc_util.print_trace(3, 'Contract Header Id = '||to_char(lx_child_cimv_rec.chr_id));
336: okc_util.print_trace(3, 'Dnz Contract Header Id= '||lx_child_cimv_rec.dnz_chr_id);
337: okc_util.print_trace(3, 'Object1 Id1 = '||lx_child_cimv_rec.object1_id1);
338: okc_util.print_trace(3, 'Object1 Id2 = '||lx_child_cimv_rec.object1_id2);
339: okc_util.print_trace(3, 'Object Code = '||lx_child_cimv_rec.jtot_object1_code);
340: okc_util.print_trace(3, 'No. of Items = '||lx_child_cimv_rec.number_of_items);
341: okc_util.print_trace(3, 'UoM Code = '||lx_child_cimv_rec.uom_code);
334: okc_util.print_trace(3, 'Contract Line Id = '||lx_child_cimv_rec.cle_id);
335: okc_util.print_trace(3, 'Contract Header Id = '||to_char(lx_child_cimv_rec.chr_id));
336: okc_util.print_trace(3, 'Dnz Contract Header Id= '||lx_child_cimv_rec.dnz_chr_id);
337: okc_util.print_trace(3, 'Object1 Id1 = '||lx_child_cimv_rec.object1_id1);
338: okc_util.print_trace(3, 'Object1 Id2 = '||lx_child_cimv_rec.object1_id2);
339: okc_util.print_trace(3, 'Object Code = '||lx_child_cimv_rec.jtot_object1_code);
340: okc_util.print_trace(3, 'No. of Items = '||lx_child_cimv_rec.number_of_items);
341: okc_util.print_trace(3, 'UoM Code = '||lx_child_cimv_rec.uom_code);
342: okc_util.print_trace(3, 'EXCEPTION Y/N = '||lx_child_cimv_rec.exception_yn);
335: okc_util.print_trace(3, 'Contract Header Id = '||to_char(lx_child_cimv_rec.chr_id));
336: okc_util.print_trace(3, 'Dnz Contract Header Id= '||lx_child_cimv_rec.dnz_chr_id);
337: okc_util.print_trace(3, 'Object1 Id1 = '||lx_child_cimv_rec.object1_id1);
338: okc_util.print_trace(3, 'Object1 Id2 = '||lx_child_cimv_rec.object1_id2);
339: okc_util.print_trace(3, 'Object Code = '||lx_child_cimv_rec.jtot_object1_code);
340: okc_util.print_trace(3, 'No. of Items = '||lx_child_cimv_rec.number_of_items);
341: okc_util.print_trace(3, 'UoM Code = '||lx_child_cimv_rec.uom_code);
342: okc_util.print_trace(3, 'EXCEPTION Y/N = '||lx_child_cimv_rec.exception_yn);
343: okc_util.print_trace(3, 'Priced Item Y/N = '||lx_child_cimv_rec.priced_item_yn);
336: okc_util.print_trace(3, 'Dnz Contract Header Id= '||lx_child_cimv_rec.dnz_chr_id);
337: okc_util.print_trace(3, 'Object1 Id1 = '||lx_child_cimv_rec.object1_id1);
338: okc_util.print_trace(3, 'Object1 Id2 = '||lx_child_cimv_rec.object1_id2);
339: okc_util.print_trace(3, 'Object Code = '||lx_child_cimv_rec.jtot_object1_code);
340: okc_util.print_trace(3, 'No. of Items = '||lx_child_cimv_rec.number_of_items);
341: okc_util.print_trace(3, 'UoM Code = '||lx_child_cimv_rec.uom_code);
342: okc_util.print_trace(3, 'EXCEPTION Y/N = '||lx_child_cimv_rec.exception_yn);
343: okc_util.print_trace(3, 'Priced Item Y/N = '||lx_child_cimv_rec.priced_item_yn);
344: END IF;
337: okc_util.print_trace(3, 'Object1 Id1 = '||lx_child_cimv_rec.object1_id1);
338: okc_util.print_trace(3, 'Object1 Id2 = '||lx_child_cimv_rec.object1_id2);
339: okc_util.print_trace(3, 'Object Code = '||lx_child_cimv_rec.jtot_object1_code);
340: okc_util.print_trace(3, 'No. of Items = '||lx_child_cimv_rec.number_of_items);
341: okc_util.print_trace(3, 'UoM Code = '||lx_child_cimv_rec.uom_code);
342: okc_util.print_trace(3, 'EXCEPTION Y/N = '||lx_child_cimv_rec.exception_yn);
343: okc_util.print_trace(3, 'Priced Item Y/N = '||lx_child_cimv_rec.priced_item_yn);
344: END IF;
345:
338: okc_util.print_trace(3, 'Object1 Id2 = '||lx_child_cimv_rec.object1_id2);
339: okc_util.print_trace(3, 'Object Code = '||lx_child_cimv_rec.jtot_object1_code);
340: okc_util.print_trace(3, 'No. of Items = '||lx_child_cimv_rec.number_of_items);
341: okc_util.print_trace(3, 'UoM Code = '||lx_child_cimv_rec.uom_code);
342: okc_util.print_trace(3, 'EXCEPTION Y/N = '||lx_child_cimv_rec.exception_yn);
343: okc_util.print_trace(3, 'Priced Item Y/N = '||lx_child_cimv_rec.priced_item_yn);
344: END IF;
345:
346: l_source_inf_rec := p_source_inf_rec;
339: okc_util.print_trace(3, 'Object Code = '||lx_child_cimv_rec.jtot_object1_code);
340: okc_util.print_trace(3, 'No. of Items = '||lx_child_cimv_rec.number_of_items);
341: okc_util.print_trace(3, 'UoM Code = '||lx_child_cimv_rec.uom_code);
342: okc_util.print_trace(3, 'EXCEPTION Y/N = '||lx_child_cimv_rec.exception_yn);
343: okc_util.print_trace(3, 'Priced Item Y/N = '||lx_child_cimv_rec.priced_item_yn);
344: END IF;
345:
346: l_source_inf_rec := p_source_inf_rec;
347:
437:
438: x_return_status := OKC_API.G_RET_STS_SUCCESS;
439:
440: IF (l_debug = 'Y') THEN
441: okc_util.print_trace(0, 'Starting Configurator API');
442: okc_util.print_trace(0, ' ');
443: okc_util.print_trace(0, '>START - OKO_OC_INT_CONFGI_PVT.create_config_sublines - create Sublines');
444: okc_util.print_trace(1, 'CREATE TOP MODEL LINE');
445: okc_util.print_trace(1, '=====================');
438: x_return_status := OKC_API.G_RET_STS_SUCCESS;
439:
440: IF (l_debug = 'Y') THEN
441: okc_util.print_trace(0, 'Starting Configurator API');
442: okc_util.print_trace(0, ' ');
443: okc_util.print_trace(0, '>START - OKO_OC_INT_CONFGI_PVT.create_config_sublines - create Sublines');
444: okc_util.print_trace(1, 'CREATE TOP MODEL LINE');
445: okc_util.print_trace(1, '=====================');
446: END IF;
439:
440: IF (l_debug = 'Y') THEN
441: okc_util.print_trace(0, 'Starting Configurator API');
442: okc_util.print_trace(0, ' ');
443: okc_util.print_trace(0, '>START - OKO_OC_INT_CONFGI_PVT.create_config_sublines - create Sublines');
444: okc_util.print_trace(1, 'CREATE TOP MODEL LINE');
445: okc_util.print_trace(1, '=====================');
446: END IF;
447:
440: IF (l_debug = 'Y') THEN
441: okc_util.print_trace(0, 'Starting Configurator API');
442: okc_util.print_trace(0, ' ');
443: okc_util.print_trace(0, '>START - OKO_OC_INT_CONFGI_PVT.create_config_sublines - create Sublines');
444: okc_util.print_trace(1, 'CREATE TOP MODEL LINE');
445: okc_util.print_trace(1, '=====================');
446: END IF;
447:
448: model_clev_rec := p_clev_rec;
441: okc_util.print_trace(0, 'Starting Configurator API');
442: okc_util.print_trace(0, ' ');
443: okc_util.print_trace(0, '>START - OKO_OC_INT_CONFGI_PVT.create_config_sublines - create Sublines');
444: okc_util.print_trace(1, 'CREATE TOP MODEL LINE');
445: okc_util.print_trace(1, '=====================');
446: END IF;
447:
448: model_clev_rec := p_clev_rec;
449: model_cimv_rec := p_cimv_rec;
452: model_clev_rec.price_unit := NULL;
453: model_clev_rec.line_List_price := NULL;
454: model_clev_rec.price_negotiated := NULL;
455: IF (l_debug = 'Y') THEN
456: okc_util.print_trace(1, ' ');
457: okc_util.print_trace(1, 'INPUT RECORD - Contract Top Line Record:');
458: okc_util.print_trace(1, '========================================');
459: okc_util.print_trace(1, 'Contract Line Number = '||model_clev_rec.line_number);
460: okc_util.print_trace(1, 'Contract Header Id = '||model_clev_rec.chr_id);
453: model_clev_rec.line_List_price := NULL;
454: model_clev_rec.price_negotiated := NULL;
455: IF (l_debug = 'Y') THEN
456: okc_util.print_trace(1, ' ');
457: okc_util.print_trace(1, 'INPUT RECORD - Contract Top Line Record:');
458: okc_util.print_trace(1, '========================================');
459: okc_util.print_trace(1, 'Contract Line Number = '||model_clev_rec.line_number);
460: okc_util.print_trace(1, 'Contract Header Id = '||model_clev_rec.chr_id);
461: okc_util.print_trace(1, 'Dnz Contract Header Id = '||model_clev_rec.dnz_chr_id);
454: model_clev_rec.price_negotiated := NULL;
455: IF (l_debug = 'Y') THEN
456: okc_util.print_trace(1, ' ');
457: okc_util.print_trace(1, 'INPUT RECORD - Contract Top Line Record:');
458: okc_util.print_trace(1, '========================================');
459: okc_util.print_trace(1, 'Contract Line Number = '||model_clev_rec.line_number);
460: okc_util.print_trace(1, 'Contract Header Id = '||model_clev_rec.chr_id);
461: okc_util.print_trace(1, 'Dnz Contract Header Id = '||model_clev_rec.dnz_chr_id);
462: okc_util.print_trace(1, 'Display Sequence = '||model_clev_rec.display_sequence);
455: IF (l_debug = 'Y') THEN
456: okc_util.print_trace(1, ' ');
457: okc_util.print_trace(1, 'INPUT RECORD - Contract Top Line Record:');
458: okc_util.print_trace(1, '========================================');
459: okc_util.print_trace(1, 'Contract Line Number = '||model_clev_rec.line_number);
460: okc_util.print_trace(1, 'Contract Header Id = '||model_clev_rec.chr_id);
461: okc_util.print_trace(1, 'Dnz Contract Header Id = '||model_clev_rec.dnz_chr_id);
462: okc_util.print_trace(1, 'Display Sequence = '||model_clev_rec.display_sequence);
463: okc_util.print_trace(1, 'Line Style Id = '||model_clev_rec.lse_id);
456: okc_util.print_trace(1, ' ');
457: okc_util.print_trace(1, 'INPUT RECORD - Contract Top Line Record:');
458: okc_util.print_trace(1, '========================================');
459: okc_util.print_trace(1, 'Contract Line Number = '||model_clev_rec.line_number);
460: okc_util.print_trace(1, 'Contract Header Id = '||model_clev_rec.chr_id);
461: okc_util.print_trace(1, 'Dnz Contract Header Id = '||model_clev_rec.dnz_chr_id);
462: okc_util.print_trace(1, 'Display Sequence = '||model_clev_rec.display_sequence);
463: okc_util.print_trace(1, 'Line Style Id = '||model_clev_rec.lse_id);
464: okc_util.print_trace(1, 'Currency code = '||model_clev_rec.currency_code);
457: okc_util.print_trace(1, 'INPUT RECORD - Contract Top Line Record:');
458: okc_util.print_trace(1, '========================================');
459: okc_util.print_trace(1, 'Contract Line Number = '||model_clev_rec.line_number);
460: okc_util.print_trace(1, 'Contract Header Id = '||model_clev_rec.chr_id);
461: okc_util.print_trace(1, 'Dnz Contract Header Id = '||model_clev_rec.dnz_chr_id);
462: okc_util.print_trace(1, 'Display Sequence = '||model_clev_rec.display_sequence);
463: okc_util.print_trace(1, 'Line Style Id = '||model_clev_rec.lse_id);
464: okc_util.print_trace(1, 'Currency code = '||model_clev_rec.currency_code);
465: okc_util.print_trace(1, 'Price Level Ind. = '||model_clev_rec.price_level_ind);
458: okc_util.print_trace(1, '========================================');
459: okc_util.print_trace(1, 'Contract Line Number = '||model_clev_rec.line_number);
460: okc_util.print_trace(1, 'Contract Header Id = '||model_clev_rec.chr_id);
461: okc_util.print_trace(1, 'Dnz Contract Header Id = '||model_clev_rec.dnz_chr_id);
462: okc_util.print_trace(1, 'Display Sequence = '||model_clev_rec.display_sequence);
463: okc_util.print_trace(1, 'Line Style Id = '||model_clev_rec.lse_id);
464: okc_util.print_trace(1, 'Currency code = '||model_clev_rec.currency_code);
465: okc_util.print_trace(1, 'Price Level Ind. = '||model_clev_rec.price_level_ind);
466: okc_util.print_trace(1, 'Unit Price = '||model_clev_rec.price_unit);
459: okc_util.print_trace(1, 'Contract Line Number = '||model_clev_rec.line_number);
460: okc_util.print_trace(1, 'Contract Header Id = '||model_clev_rec.chr_id);
461: okc_util.print_trace(1, 'Dnz Contract Header Id = '||model_clev_rec.dnz_chr_id);
462: okc_util.print_trace(1, 'Display Sequence = '||model_clev_rec.display_sequence);
463: okc_util.print_trace(1, 'Line Style Id = '||model_clev_rec.lse_id);
464: okc_util.print_trace(1, 'Currency code = '||model_clev_rec.currency_code);
465: okc_util.print_trace(1, 'Price Level Ind. = '||model_clev_rec.price_level_ind);
466: okc_util.print_trace(1, 'Unit Price = '||model_clev_rec.price_unit);
467: okc_util.print_trace(1, 'Negotiated price = '||model_clev_rec.price_negotiated);
460: okc_util.print_trace(1, 'Contract Header Id = '||model_clev_rec.chr_id);
461: okc_util.print_trace(1, 'Dnz Contract Header Id = '||model_clev_rec.dnz_chr_id);
462: okc_util.print_trace(1, 'Display Sequence = '||model_clev_rec.display_sequence);
463: okc_util.print_trace(1, 'Line Style Id = '||model_clev_rec.lse_id);
464: okc_util.print_trace(1, 'Currency code = '||model_clev_rec.currency_code);
465: okc_util.print_trace(1, 'Price Level Ind. = '||model_clev_rec.price_level_ind);
466: okc_util.print_trace(1, 'Unit Price = '||model_clev_rec.price_unit);
467: okc_util.print_trace(1, 'Negotiated price = '||model_clev_rec.price_negotiated);
468: okc_util.print_trace(1, 'Hidden Ind. = '||model_clev_rec.hidden_ind);
461: okc_util.print_trace(1, 'Dnz Contract Header Id = '||model_clev_rec.dnz_chr_id);
462: okc_util.print_trace(1, 'Display Sequence = '||model_clev_rec.display_sequence);
463: okc_util.print_trace(1, 'Line Style Id = '||model_clev_rec.lse_id);
464: okc_util.print_trace(1, 'Currency code = '||model_clev_rec.currency_code);
465: okc_util.print_trace(1, 'Price Level Ind. = '||model_clev_rec.price_level_ind);
466: okc_util.print_trace(1, 'Unit Price = '||model_clev_rec.price_unit);
467: okc_util.print_trace(1, 'Negotiated price = '||model_clev_rec.price_negotiated);
468: okc_util.print_trace(1, 'Hidden Ind. = '||model_clev_rec.hidden_ind);
469: okc_util.print_trace(1, 'EXCEPTION Y/N = '||model_clev_rec.exception_yn);
462: okc_util.print_trace(1, 'Display Sequence = '||model_clev_rec.display_sequence);
463: okc_util.print_trace(1, 'Line Style Id = '||model_clev_rec.lse_id);
464: okc_util.print_trace(1, 'Currency code = '||model_clev_rec.currency_code);
465: okc_util.print_trace(1, 'Price Level Ind. = '||model_clev_rec.price_level_ind);
466: okc_util.print_trace(1, 'Unit Price = '||model_clev_rec.price_unit);
467: okc_util.print_trace(1, 'Negotiated price = '||model_clev_rec.price_negotiated);
468: okc_util.print_trace(1, 'Hidden Ind. = '||model_clev_rec.hidden_ind);
469: okc_util.print_trace(1, 'EXCEPTION Y/N = '||model_clev_rec.exception_yn);
470: okc_util.print_trace(1, 'Status Code = '||model_clev_rec.sts_code);
463: okc_util.print_trace(1, 'Line Style Id = '||model_clev_rec.lse_id);
464: okc_util.print_trace(1, 'Currency code = '||model_clev_rec.currency_code);
465: okc_util.print_trace(1, 'Price Level Ind. = '||model_clev_rec.price_level_ind);
466: okc_util.print_trace(1, 'Unit Price = '||model_clev_rec.price_unit);
467: okc_util.print_trace(1, 'Negotiated price = '||model_clev_rec.price_negotiated);
468: okc_util.print_trace(1, 'Hidden Ind. = '||model_clev_rec.hidden_ind);
469: okc_util.print_trace(1, 'EXCEPTION Y/N = '||model_clev_rec.exception_yn);
470: okc_util.print_trace(1, 'Status Code = '||model_clev_rec.sts_code);
471: okc_util.print_trace(1, 'Start Date = '||model_clev_rec.start_date);
464: okc_util.print_trace(1, 'Currency code = '||model_clev_rec.currency_code);
465: okc_util.print_trace(1, 'Price Level Ind. = '||model_clev_rec.price_level_ind);
466: okc_util.print_trace(1, 'Unit Price = '||model_clev_rec.price_unit);
467: okc_util.print_trace(1, 'Negotiated price = '||model_clev_rec.price_negotiated);
468: okc_util.print_trace(1, 'Hidden Ind. = '||model_clev_rec.hidden_ind);
469: okc_util.print_trace(1, 'EXCEPTION Y/N = '||model_clev_rec.exception_yn);
470: okc_util.print_trace(1, 'Status Code = '||model_clev_rec.sts_code);
471: okc_util.print_trace(1, 'Start Date = '||model_clev_rec.start_date);
472: okc_util.print_trace(1, 'End Date = '||model_clev_rec.END_date);
465: okc_util.print_trace(1, 'Price Level Ind. = '||model_clev_rec.price_level_ind);
466: okc_util.print_trace(1, 'Unit Price = '||model_clev_rec.price_unit);
467: okc_util.print_trace(1, 'Negotiated price = '||model_clev_rec.price_negotiated);
468: okc_util.print_trace(1, 'Hidden Ind. = '||model_clev_rec.hidden_ind);
469: okc_util.print_trace(1, 'EXCEPTION Y/N = '||model_clev_rec.exception_yn);
470: okc_util.print_trace(1, 'Status Code = '||model_clev_rec.sts_code);
471: okc_util.print_trace(1, 'Start Date = '||model_clev_rec.start_date);
472: okc_util.print_trace(1, 'End Date = '||model_clev_rec.END_date);
473: okc_util.print_trace(1, 'Orig system source code = '||model_clev_rec.orig_system_source_code);
466: okc_util.print_trace(1, 'Unit Price = '||model_clev_rec.price_unit);
467: okc_util.print_trace(1, 'Negotiated price = '||model_clev_rec.price_negotiated);
468: okc_util.print_trace(1, 'Hidden Ind. = '||model_clev_rec.hidden_ind);
469: okc_util.print_trace(1, 'EXCEPTION Y/N = '||model_clev_rec.exception_yn);
470: okc_util.print_trace(1, 'Status Code = '||model_clev_rec.sts_code);
471: okc_util.print_trace(1, 'Start Date = '||model_clev_rec.start_date);
472: okc_util.print_trace(1, 'End Date = '||model_clev_rec.END_date);
473: okc_util.print_trace(1, 'Orig system source code = '||model_clev_rec.orig_system_source_code);
474: okc_util.print_trace(1, 'Orig system id = '||model_clev_rec.orig_system_id1);
467: okc_util.print_trace(1, 'Negotiated price = '||model_clev_rec.price_negotiated);
468: okc_util.print_trace(1, 'Hidden Ind. = '||model_clev_rec.hidden_ind);
469: okc_util.print_trace(1, 'EXCEPTION Y/N = '||model_clev_rec.exception_yn);
470: okc_util.print_trace(1, 'Status Code = '||model_clev_rec.sts_code);
471: okc_util.print_trace(1, 'Start Date = '||model_clev_rec.start_date);
472: okc_util.print_trace(1, 'End Date = '||model_clev_rec.END_date);
473: okc_util.print_trace(1, 'Orig system source code = '||model_clev_rec.orig_system_source_code);
474: okc_util.print_trace(1, 'Orig system id = '||model_clev_rec.orig_system_id1);
475: okc_util.print_trace(1, 'Orig system reference = '||model_clev_rec.orig_system_reference1);
468: okc_util.print_trace(1, 'Hidden Ind. = '||model_clev_rec.hidden_ind);
469: okc_util.print_trace(1, 'EXCEPTION Y/N = '||model_clev_rec.exception_yn);
470: okc_util.print_trace(1, 'Status Code = '||model_clev_rec.sts_code);
471: okc_util.print_trace(1, 'Start Date = '||model_clev_rec.start_date);
472: okc_util.print_trace(1, 'End Date = '||model_clev_rec.END_date);
473: okc_util.print_trace(1, 'Orig system source code = '||model_clev_rec.orig_system_source_code);
474: okc_util.print_trace(1, 'Orig system id = '||model_clev_rec.orig_system_id1);
475: okc_util.print_trace(1, 'Orig system reference = '||model_clev_rec.orig_system_reference1);
476: okc_util.print_trace(1, 'Config Header Id = '||model_clev_rec.config_header_id);
469: okc_util.print_trace(1, 'EXCEPTION Y/N = '||model_clev_rec.exception_yn);
470: okc_util.print_trace(1, 'Status Code = '||model_clev_rec.sts_code);
471: okc_util.print_trace(1, 'Start Date = '||model_clev_rec.start_date);
472: okc_util.print_trace(1, 'End Date = '||model_clev_rec.END_date);
473: okc_util.print_trace(1, 'Orig system source code = '||model_clev_rec.orig_system_source_code);
474: okc_util.print_trace(1, 'Orig system id = '||model_clev_rec.orig_system_id1);
475: okc_util.print_trace(1, 'Orig system reference = '||model_clev_rec.orig_system_reference1);
476: okc_util.print_trace(1, 'Config Header Id = '||model_clev_rec.config_header_id);
477: okc_util.print_trace(1, 'Config Revison Number = '||model_clev_rec.config_revision_number);
470: okc_util.print_trace(1, 'Status Code = '||model_clev_rec.sts_code);
471: okc_util.print_trace(1, 'Start Date = '||model_clev_rec.start_date);
472: okc_util.print_trace(1, 'End Date = '||model_clev_rec.END_date);
473: okc_util.print_trace(1, 'Orig system source code = '||model_clev_rec.orig_system_source_code);
474: okc_util.print_trace(1, 'Orig system id = '||model_clev_rec.orig_system_id1);
475: okc_util.print_trace(1, 'Orig system reference = '||model_clev_rec.orig_system_reference1);
476: okc_util.print_trace(1, 'Config Header Id = '||model_clev_rec.config_header_id);
477: okc_util.print_trace(1, 'Config Revison Number = '||model_clev_rec.config_revision_number);
478: okc_util.print_trace(1, 'Config Item Type = '||model_clev_rec.config_item_type);
471: okc_util.print_trace(1, 'Start Date = '||model_clev_rec.start_date);
472: okc_util.print_trace(1, 'End Date = '||model_clev_rec.END_date);
473: okc_util.print_trace(1, 'Orig system source code = '||model_clev_rec.orig_system_source_code);
474: okc_util.print_trace(1, 'Orig system id = '||model_clev_rec.orig_system_id1);
475: okc_util.print_trace(1, 'Orig system reference = '||model_clev_rec.orig_system_reference1);
476: okc_util.print_trace(1, 'Config Header Id = '||model_clev_rec.config_header_id);
477: okc_util.print_trace(1, 'Config Revison Number = '||model_clev_rec.config_revision_number);
478: okc_util.print_trace(1, 'Config Item Type = '||model_clev_rec.config_item_type);
479: okc_util.print_trace(1, 'Config Complete = '||model_clev_rec.config_complete_yn);
472: okc_util.print_trace(1, 'End Date = '||model_clev_rec.END_date);
473: okc_util.print_trace(1, 'Orig system source code = '||model_clev_rec.orig_system_source_code);
474: okc_util.print_trace(1, 'Orig system id = '||model_clev_rec.orig_system_id1);
475: okc_util.print_trace(1, 'Orig system reference = '||model_clev_rec.orig_system_reference1);
476: okc_util.print_trace(1, 'Config Header Id = '||model_clev_rec.config_header_id);
477: okc_util.print_trace(1, 'Config Revison Number = '||model_clev_rec.config_revision_number);
478: okc_util.print_trace(1, 'Config Item Type = '||model_clev_rec.config_item_type);
479: okc_util.print_trace(1, 'Config Complete = '||model_clev_rec.config_complete_yn);
480: okc_util.print_trace(1, 'Config valid = '||model_clev_rec.config_valid_yn);
473: okc_util.print_trace(1, 'Orig system source code = '||model_clev_rec.orig_system_source_code);
474: okc_util.print_trace(1, 'Orig system id = '||model_clev_rec.orig_system_id1);
475: okc_util.print_trace(1, 'Orig system reference = '||model_clev_rec.orig_system_reference1);
476: okc_util.print_trace(1, 'Config Header Id = '||model_clev_rec.config_header_id);
477: okc_util.print_trace(1, 'Config Revison Number = '||model_clev_rec.config_revision_number);
478: okc_util.print_trace(1, 'Config Item Type = '||model_clev_rec.config_item_type);
479: okc_util.print_trace(1, 'Config Complete = '||model_clev_rec.config_complete_yn);
480: okc_util.print_trace(1, 'Config valid = '||model_clev_rec.config_valid_yn);
481: okc_util.print_trace(1, '----------------------------');
474: okc_util.print_trace(1, 'Orig system id = '||model_clev_rec.orig_system_id1);
475: okc_util.print_trace(1, 'Orig system reference = '||model_clev_rec.orig_system_reference1);
476: okc_util.print_trace(1, 'Config Header Id = '||model_clev_rec.config_header_id);
477: okc_util.print_trace(1, 'Config Revison Number = '||model_clev_rec.config_revision_number);
478: okc_util.print_trace(1, 'Config Item Type = '||model_clev_rec.config_item_type);
479: okc_util.print_trace(1, 'Config Complete = '||model_clev_rec.config_complete_yn);
480: okc_util.print_trace(1, 'Config valid = '||model_clev_rec.config_valid_yn);
481: okc_util.print_trace(1, '----------------------------');
482: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
475: okc_util.print_trace(1, 'Orig system reference = '||model_clev_rec.orig_system_reference1);
476: okc_util.print_trace(1, 'Config Header Id = '||model_clev_rec.config_header_id);
477: okc_util.print_trace(1, 'Config Revison Number = '||model_clev_rec.config_revision_number);
478: okc_util.print_trace(1, 'Config Item Type = '||model_clev_rec.config_item_type);
479: okc_util.print_trace(1, 'Config Complete = '||model_clev_rec.config_complete_yn);
480: okc_util.print_trace(1, 'Config valid = '||model_clev_rec.config_valid_yn);
481: okc_util.print_trace(1, '----------------------------');
482: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
483: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
476: okc_util.print_trace(1, 'Config Header Id = '||model_clev_rec.config_header_id);
477: okc_util.print_trace(1, 'Config Revison Number = '||model_clev_rec.config_revision_number);
478: okc_util.print_trace(1, 'Config Item Type = '||model_clev_rec.config_item_type);
479: okc_util.print_trace(1, 'Config Complete = '||model_clev_rec.config_complete_yn);
480: okc_util.print_trace(1, 'Config valid = '||model_clev_rec.config_valid_yn);
481: okc_util.print_trace(1, '----------------------------');
482: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
483: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
484: okc_util.print_trace(1, '----------------------------');
477: okc_util.print_trace(1, 'Config Revison Number = '||model_clev_rec.config_revision_number);
478: okc_util.print_trace(1, 'Config Item Type = '||model_clev_rec.config_item_type);
479: okc_util.print_trace(1, 'Config Complete = '||model_clev_rec.config_complete_yn);
480: okc_util.print_trace(1, 'Config valid = '||model_clev_rec.config_valid_yn);
481: okc_util.print_trace(1, '----------------------------');
482: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
483: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
484: okc_util.print_trace(1, '----------------------------');
485: okc_util.print_trace(1, '--------------------------------------------------------');
478: okc_util.print_trace(1, 'Config Item Type = '||model_clev_rec.config_item_type);
479: okc_util.print_trace(1, 'Config Complete = '||model_clev_rec.config_complete_yn);
480: okc_util.print_trace(1, 'Config valid = '||model_clev_rec.config_valid_yn);
481: okc_util.print_trace(1, '----------------------------');
482: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
483: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
484: okc_util.print_trace(1, '----------------------------');
485: okc_util.print_trace(1, '--------------------------------------------------------');
486: okc_util.print_trace(1, '>START - ******* OKC_CONTRACT_PUB.CREATE_CONTRACT_LINE -');
479: okc_util.print_trace(1, 'Config Complete = '||model_clev_rec.config_complete_yn);
480: okc_util.print_trace(1, 'Config valid = '||model_clev_rec.config_valid_yn);
481: okc_util.print_trace(1, '----------------------------');
482: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
483: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
484: okc_util.print_trace(1, '----------------------------');
485: okc_util.print_trace(1, '--------------------------------------------------------');
486: okc_util.print_trace(1, '>START - ******* OKC_CONTRACT_PUB.CREATE_CONTRACT_LINE -');
487: END IF;
480: okc_util.print_trace(1, 'Config valid = '||model_clev_rec.config_valid_yn);
481: okc_util.print_trace(1, '----------------------------');
482: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
483: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
484: okc_util.print_trace(1, '----------------------------');
485: okc_util.print_trace(1, '--------------------------------------------------------');
486: okc_util.print_trace(1, '>START - ******* OKC_CONTRACT_PUB.CREATE_CONTRACT_LINE -');
487: END IF;
488:
481: okc_util.print_trace(1, '----------------------------');
482: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
483: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
484: okc_util.print_trace(1, '----------------------------');
485: okc_util.print_trace(1, '--------------------------------------------------------');
486: okc_util.print_trace(1, '>START - ******* OKC_CONTRACT_PUB.CREATE_CONTRACT_LINE -');
487: END IF;
488:
489: okc_contract_pub.create_contract_line(p_api_version => 1
482: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
483: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
484: okc_util.print_trace(1, '----------------------------');
485: okc_util.print_trace(1, '--------------------------------------------------------');
486: okc_util.print_trace(1, '>START - ******* OKC_CONTRACT_PUB.CREATE_CONTRACT_LINE -');
487: END IF;
488:
489: okc_contract_pub.create_contract_line(p_api_version => 1
490: ,p_init_msg_list => OKC_API.G_FALSE
495: ,x_clev_rec => lx_clev_rec
496: );
497: xmodel_clev_rec := lx_clev_rec;
498: IF (l_debug = 'Y') THEN
499: okc_util.print_trace(1, '
501: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
502: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
503: okc_util.print_trace(1, '----------------------------');
496: );
497: xmodel_clev_rec := lx_clev_rec;
498: IF (l_debug = 'Y') THEN
499: okc_util.print_trace(1, '
501: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
502: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
503: okc_util.print_trace(1, '----------------------------');
504: END IF;
497: xmodel_clev_rec := lx_clev_rec;
498: IF (l_debug = 'Y') THEN
499: okc_util.print_trace(1, '
501: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
502: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
503: okc_util.print_trace(1, '----------------------------');
504: END IF;
505:
498: IF (l_debug = 'Y') THEN
499: okc_util.print_trace(1, '
501: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
502: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
503: okc_util.print_trace(1, '----------------------------');
504: END IF;
505:
506: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR OR l_return_status = OKC_API.G_RET_STS_ERROR THEN
499: okc_util.print_trace(1, '
501: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
502: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
503: okc_util.print_trace(1, '----------------------------');
504: END IF;
505:
506: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR OR l_return_status = OKC_API.G_RET_STS_ERROR THEN
507:
533: p_line_inf_tab(line_inf_tab_counter).line_qty := model_cimv_rec.number_of_items;
534: p_line_inf_tab(line_inf_tab_counter).line_uom := model_cimv_rec.uom_code;
535:
536: IF (l_debug = 'Y') THEN
537: okc_util.print_trace(1, 'OUTPUT RECORD - Contract Top Line Record:');
538: okc_util.print_trace(1, '=========================================');
539: okc_util.print_trace(1, 'Contract Header Id = '||to_char(lx_clev_rec.chr_id));
540: okc_util.print_trace(1, 'Contract DNZ Header Id= '||to_char(lx_clev_rec.dnz_chr_id));
541: okc_util.print_trace(1, 'Contract Line Id = '||lx_clev_rec.cle_id);
534: p_line_inf_tab(line_inf_tab_counter).line_uom := model_cimv_rec.uom_code;
535:
536: IF (l_debug = 'Y') THEN
537: okc_util.print_trace(1, 'OUTPUT RECORD - Contract Top Line Record:');
538: okc_util.print_trace(1, '=========================================');
539: okc_util.print_trace(1, 'Contract Header Id = '||to_char(lx_clev_rec.chr_id));
540: okc_util.print_trace(1, 'Contract DNZ Header Id= '||to_char(lx_clev_rec.dnz_chr_id));
541: okc_util.print_trace(1, 'Contract Line Id = '||lx_clev_rec.cle_id);
542: okc_util.print_trace(1, 'Line Number = '||lx_clev_rec.line_number);
535:
536: IF (l_debug = 'Y') THEN
537: okc_util.print_trace(1, 'OUTPUT RECORD - Contract Top Line Record:');
538: okc_util.print_trace(1, '=========================================');
539: okc_util.print_trace(1, 'Contract Header Id = '||to_char(lx_clev_rec.chr_id));
540: okc_util.print_trace(1, 'Contract DNZ Header Id= '||to_char(lx_clev_rec.dnz_chr_id));
541: okc_util.print_trace(1, 'Contract Line Id = '||lx_clev_rec.cle_id);
542: okc_util.print_trace(1, 'Line Number = '||lx_clev_rec.line_number);
543: okc_util.print_trace(1, 'Line Style Id = '||lx_clev_rec.lse_id);
536: IF (l_debug = 'Y') THEN
537: okc_util.print_trace(1, 'OUTPUT RECORD - Contract Top Line Record:');
538: okc_util.print_trace(1, '=========================================');
539: okc_util.print_trace(1, 'Contract Header Id = '||to_char(lx_clev_rec.chr_id));
540: okc_util.print_trace(1, 'Contract DNZ Header Id= '||to_char(lx_clev_rec.dnz_chr_id));
541: okc_util.print_trace(1, 'Contract Line Id = '||lx_clev_rec.cle_id);
542: okc_util.print_trace(1, 'Line Number = '||lx_clev_rec.line_number);
543: okc_util.print_trace(1, 'Line Style Id = '||lx_clev_rec.lse_id);
544: okc_util.print_trace(1, '-->Order Line Id = '||lx_clev_rec.orig_system_id1);
537: okc_util.print_trace(1, 'OUTPUT RECORD - Contract Top Line Record:');
538: okc_util.print_trace(1, '=========================================');
539: okc_util.print_trace(1, 'Contract Header Id = '||to_char(lx_clev_rec.chr_id));
540: okc_util.print_trace(1, 'Contract DNZ Header Id= '||to_char(lx_clev_rec.dnz_chr_id));
541: okc_util.print_trace(1, 'Contract Line Id = '||lx_clev_rec.cle_id);
542: okc_util.print_trace(1, 'Line Number = '||lx_clev_rec.line_number);
543: okc_util.print_trace(1, 'Line Style Id = '||lx_clev_rec.lse_id);
544: okc_util.print_trace(1, '-->Order Line Id = '||lx_clev_rec.orig_system_id1);
545: END IF;
538: okc_util.print_trace(1, '=========================================');
539: okc_util.print_trace(1, 'Contract Header Id = '||to_char(lx_clev_rec.chr_id));
540: okc_util.print_trace(1, 'Contract DNZ Header Id= '||to_char(lx_clev_rec.dnz_chr_id));
541: okc_util.print_trace(1, 'Contract Line Id = '||lx_clev_rec.cle_id);
542: okc_util.print_trace(1, 'Line Number = '||lx_clev_rec.line_number);
543: okc_util.print_trace(1, 'Line Style Id = '||lx_clev_rec.lse_id);
544: okc_util.print_trace(1, '-->Order Line Id = '||lx_clev_rec.orig_system_id1);
545: END IF;
546:
539: okc_util.print_trace(1, 'Contract Header Id = '||to_char(lx_clev_rec.chr_id));
540: okc_util.print_trace(1, 'Contract DNZ Header Id= '||to_char(lx_clev_rec.dnz_chr_id));
541: okc_util.print_trace(1, 'Contract Line Id = '||lx_clev_rec.cle_id);
542: okc_util.print_trace(1, 'Line Number = '||lx_clev_rec.line_number);
543: okc_util.print_trace(1, 'Line Style Id = '||lx_clev_rec.lse_id);
544: okc_util.print_trace(1, '-->Order Line Id = '||lx_clev_rec.orig_system_id1);
545: END IF;
546:
547: IF (l_debug = 'Y') THEN
540: okc_util.print_trace(1, 'Contract DNZ Header Id= '||to_char(lx_clev_rec.dnz_chr_id));
541: okc_util.print_trace(1, 'Contract Line Id = '||lx_clev_rec.cle_id);
542: okc_util.print_trace(1, 'Line Number = '||lx_clev_rec.line_number);
543: okc_util.print_trace(1, 'Line Style Id = '||lx_clev_rec.lse_id);
544: okc_util.print_trace(1, '-->Order Line Id = '||lx_clev_rec.orig_system_id1);
545: END IF;
546:
547: IF (l_debug = 'Y') THEN
548: okc_util.print_trace(1, ' ');
544: okc_util.print_trace(1, '-->Order Line Id = '||lx_clev_rec.orig_system_id1);
545: END IF;
546:
547: IF (l_debug = 'Y') THEN
548: okc_util.print_trace(1, ' ');
549: okc_util.print_trace(1, ' ');
550: okc_util.print_trace(1, '================================================');
551: okc_util.print_trace(1, 'CREATE CONTRACT LINE ITEM ');
552: okc_util.print_trace(1, '================================================');
545: END IF;
546:
547: IF (l_debug = 'Y') THEN
548: okc_util.print_trace(1, ' ');
549: okc_util.print_trace(1, ' ');
550: okc_util.print_trace(1, '================================================');
551: okc_util.print_trace(1, 'CREATE CONTRACT LINE ITEM ');
552: okc_util.print_trace(1, '================================================');
553: okc_util.print_trace(1, ' ');
546:
547: IF (l_debug = 'Y') THEN
548: okc_util.print_trace(1, ' ');
549: okc_util.print_trace(1, ' ');
550: okc_util.print_trace(1, '================================================');
551: okc_util.print_trace(1, 'CREATE CONTRACT LINE ITEM ');
552: okc_util.print_trace(1, '================================================');
553: okc_util.print_trace(1, ' ');
554: END IF;
547: IF (l_debug = 'Y') THEN
548: okc_util.print_trace(1, ' ');
549: okc_util.print_trace(1, ' ');
550: okc_util.print_trace(1, '================================================');
551: okc_util.print_trace(1, 'CREATE CONTRACT LINE ITEM ');
552: okc_util.print_trace(1, '================================================');
553: okc_util.print_trace(1, ' ');
554: END IF;
555:
548: okc_util.print_trace(1, ' ');
549: okc_util.print_trace(1, ' ');
550: okc_util.print_trace(1, '================================================');
551: okc_util.print_trace(1, 'CREATE CONTRACT LINE ITEM ');
552: okc_util.print_trace(1, '================================================');
553: okc_util.print_trace(1, ' ');
554: END IF;
555:
556: -- create contract item
549: okc_util.print_trace(1, ' ');
550: okc_util.print_trace(1, '================================================');
551: okc_util.print_trace(1, 'CREATE CONTRACT LINE ITEM ');
552: okc_util.print_trace(1, '================================================');
553: okc_util.print_trace(1, ' ');
554: END IF;
555:
556: -- create contract item
557: model_cimv_rec.cle_id := lx_clev_rec.id;
557: model_cimv_rec.cle_id := lx_clev_rec.id;
558: model_cimv_rec.dnz_chr_id := lx_clev_rec.chr_id;
559:
560: IF (l_debug = 'Y') THEN
561: okc_util.print_trace(1, 'INPUT RECORD - Contract Top Line Item Record:');
562: okc_util.print_trace(1, '=============================================');
563: okc_util.print_trace(1, 'Contract Line Id = '||model_cimv_rec.cle_id);
564: okc_util.print_trace(1, 'Dnz Contract Header Id= '||model_cimv_rec.dnz_chr_id);
565: okc_util.print_trace(1, 'Object1 Id1 = '||model_cimv_rec.object1_id1);
558: model_cimv_rec.dnz_chr_id := lx_clev_rec.chr_id;
559:
560: IF (l_debug = 'Y') THEN
561: okc_util.print_trace(1, 'INPUT RECORD - Contract Top Line Item Record:');
562: okc_util.print_trace(1, '=============================================');
563: okc_util.print_trace(1, 'Contract Line Id = '||model_cimv_rec.cle_id);
564: okc_util.print_trace(1, 'Dnz Contract Header Id= '||model_cimv_rec.dnz_chr_id);
565: okc_util.print_trace(1, 'Object1 Id1 = '||model_cimv_rec.object1_id1);
566: okc_util.print_trace(1, 'Object1 Id2 = '||model_cimv_rec.object1_id2);
559:
560: IF (l_debug = 'Y') THEN
561: okc_util.print_trace(1, 'INPUT RECORD - Contract Top Line Item Record:');
562: okc_util.print_trace(1, '=============================================');
563: okc_util.print_trace(1, 'Contract Line Id = '||model_cimv_rec.cle_id);
564: okc_util.print_trace(1, 'Dnz Contract Header Id= '||model_cimv_rec.dnz_chr_id);
565: okc_util.print_trace(1, 'Object1 Id1 = '||model_cimv_rec.object1_id1);
566: okc_util.print_trace(1, 'Object1 Id2 = '||model_cimv_rec.object1_id2);
567: okc_util.print_trace(1, 'Object Code = '||model_cimv_rec.jtot_object1_code);
560: IF (l_debug = 'Y') THEN
561: okc_util.print_trace(1, 'INPUT RECORD - Contract Top Line Item Record:');
562: okc_util.print_trace(1, '=============================================');
563: okc_util.print_trace(1, 'Contract Line Id = '||model_cimv_rec.cle_id);
564: okc_util.print_trace(1, 'Dnz Contract Header Id= '||model_cimv_rec.dnz_chr_id);
565: okc_util.print_trace(1, 'Object1 Id1 = '||model_cimv_rec.object1_id1);
566: okc_util.print_trace(1, 'Object1 Id2 = '||model_cimv_rec.object1_id2);
567: okc_util.print_trace(1, 'Object Code = '||model_cimv_rec.jtot_object1_code);
568: okc_util.print_trace(1, 'No. of Items = '||model_cimv_rec.number_of_items);
561: okc_util.print_trace(1, 'INPUT RECORD - Contract Top Line Item Record:');
562: okc_util.print_trace(1, '=============================================');
563: okc_util.print_trace(1, 'Contract Line Id = '||model_cimv_rec.cle_id);
564: okc_util.print_trace(1, 'Dnz Contract Header Id= '||model_cimv_rec.dnz_chr_id);
565: okc_util.print_trace(1, 'Object1 Id1 = '||model_cimv_rec.object1_id1);
566: okc_util.print_trace(1, 'Object1 Id2 = '||model_cimv_rec.object1_id2);
567: okc_util.print_trace(1, 'Object Code = '||model_cimv_rec.jtot_object1_code);
568: okc_util.print_trace(1, 'No. of Items = '||model_cimv_rec.number_of_items);
569: okc_util.print_trace(1, 'UoM Code = '||model_cimv_rec.uom_code);
562: okc_util.print_trace(1, '=============================================');
563: okc_util.print_trace(1, 'Contract Line Id = '||model_cimv_rec.cle_id);
564: okc_util.print_trace(1, 'Dnz Contract Header Id= '||model_cimv_rec.dnz_chr_id);
565: okc_util.print_trace(1, 'Object1 Id1 = '||model_cimv_rec.object1_id1);
566: okc_util.print_trace(1, 'Object1 Id2 = '||model_cimv_rec.object1_id2);
567: okc_util.print_trace(1, 'Object Code = '||model_cimv_rec.jtot_object1_code);
568: okc_util.print_trace(1, 'No. of Items = '||model_cimv_rec.number_of_items);
569: okc_util.print_trace(1, 'UoM Code = '||model_cimv_rec.uom_code);
570: okc_util.print_trace(1, 'Item Priced = '||model_cimv_rec.priced_item_yn);
563: okc_util.print_trace(1, 'Contract Line Id = '||model_cimv_rec.cle_id);
564: okc_util.print_trace(1, 'Dnz Contract Header Id= '||model_cimv_rec.dnz_chr_id);
565: okc_util.print_trace(1, 'Object1 Id1 = '||model_cimv_rec.object1_id1);
566: okc_util.print_trace(1, 'Object1 Id2 = '||model_cimv_rec.object1_id2);
567: okc_util.print_trace(1, 'Object Code = '||model_cimv_rec.jtot_object1_code);
568: okc_util.print_trace(1, 'No. of Items = '||model_cimv_rec.number_of_items);
569: okc_util.print_trace(1, 'UoM Code = '||model_cimv_rec.uom_code);
570: okc_util.print_trace(1, 'Item Priced = '||model_cimv_rec.priced_item_yn);
571: END IF;
564: okc_util.print_trace(1, 'Dnz Contract Header Id= '||model_cimv_rec.dnz_chr_id);
565: okc_util.print_trace(1, 'Object1 Id1 = '||model_cimv_rec.object1_id1);
566: okc_util.print_trace(1, 'Object1 Id2 = '||model_cimv_rec.object1_id2);
567: okc_util.print_trace(1, 'Object Code = '||model_cimv_rec.jtot_object1_code);
568: okc_util.print_trace(1, 'No. of Items = '||model_cimv_rec.number_of_items);
569: okc_util.print_trace(1, 'UoM Code = '||model_cimv_rec.uom_code);
570: okc_util.print_trace(1, 'Item Priced = '||model_cimv_rec.priced_item_yn);
571: END IF;
572:
565: okc_util.print_trace(1, 'Object1 Id1 = '||model_cimv_rec.object1_id1);
566: okc_util.print_trace(1, 'Object1 Id2 = '||model_cimv_rec.object1_id2);
567: okc_util.print_trace(1, 'Object Code = '||model_cimv_rec.jtot_object1_code);
568: okc_util.print_trace(1, 'No. of Items = '||model_cimv_rec.number_of_items);
569: okc_util.print_trace(1, 'UoM Code = '||model_cimv_rec.uom_code);
570: okc_util.print_trace(1, 'Item Priced = '||model_cimv_rec.priced_item_yn);
571: END IF;
572:
573: -- insert contract item
566: okc_util.print_trace(1, 'Object1 Id2 = '||model_cimv_rec.object1_id2);
567: okc_util.print_trace(1, 'Object Code = '||model_cimv_rec.jtot_object1_code);
568: okc_util.print_trace(1, 'No. of Items = '||model_cimv_rec.number_of_items);
569: okc_util.print_trace(1, 'UoM Code = '||model_cimv_rec.uom_code);
570: okc_util.print_trace(1, 'Item Priced = '||model_cimv_rec.priced_item_yn);
571: END IF;
572:
573: -- insert contract item
574: IF (l_debug = 'Y') THEN
571: END IF;
572:
573: -- insert contract item
574: IF (l_debug = 'Y') THEN
575: okc_util.print_trace(1, '----------------------------');
576: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
577: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
578: okc_util.print_trace(1, '----------------------------');
579: END IF;
572:
573: -- insert contract item
574: IF (l_debug = 'Y') THEN
575: okc_util.print_trace(1, '----------------------------');
576: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
577: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
578: okc_util.print_trace(1, '----------------------------');
579: END IF;
580:
573: -- insert contract item
574: IF (l_debug = 'Y') THEN
575: okc_util.print_trace(1, '----------------------------');
576: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
577: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
578: okc_util.print_trace(1, '----------------------------');
579: END IF;
580:
581: IF (l_debug = 'Y') THEN
574: IF (l_debug = 'Y') THEN
575: okc_util.print_trace(1, '----------------------------');
576: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
577: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
578: okc_util.print_trace(1, '----------------------------');
579: END IF;
580:
581: IF (l_debug = 'Y') THEN
582: okc_util.print_trace(1, '--------------------------------------------------------');
578: okc_util.print_trace(1, '----------------------------');
579: END IF;
580:
581: IF (l_debug = 'Y') THEN
582: okc_util.print_trace(1, '--------------------------------------------------------');
583: okc_util.print_trace(1, '>START - ******* OKC_CONTRACT_ITEM_PUB.CREATE_CONTRACT_ITEM -');
584: END IF;
585:
586: okc_contract_item_pub.create_contract_item(p_api_version => 1
579: END IF;
580:
581: IF (l_debug = 'Y') THEN
582: okc_util.print_trace(1, '--------------------------------------------------------');
583: okc_util.print_trace(1, '>START - ******* OKC_CONTRACT_ITEM_PUB.CREATE_CONTRACT_ITEM -');
584: END IF;
585:
586: okc_contract_item_pub.create_contract_item(p_api_version => 1
587: ,p_init_msg_list => OKC_API.G_FALSE
592: ,x_cimv_rec => lx_cimv_rec
593: );
594:
595: IF (l_debug = 'Y') THEN
596: okc_util.print_trace(1, '
598: okc_util.print_trace(1, '----------------------------');
599: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
600: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
593: );
594:
595: IF (l_debug = 'Y') THEN
596: okc_util.print_trace(1, '
598: okc_util.print_trace(1, '----------------------------');
599: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
600: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
601: okc_util.print_trace(1, '----------------------------');
594:
595: IF (l_debug = 'Y') THEN
596: okc_util.print_trace(1, '
598: okc_util.print_trace(1, '----------------------------');
599: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
600: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
601: okc_util.print_trace(1, '----------------------------');
602: END IF;
595: IF (l_debug = 'Y') THEN
596: okc_util.print_trace(1, '
598: okc_util.print_trace(1, '----------------------------');
599: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
600: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
601: okc_util.print_trace(1, '----------------------------');
602: END IF;
603:
596: okc_util.print_trace(1, '
598: okc_util.print_trace(1, '----------------------------');
599: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
600: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
601: okc_util.print_trace(1, '----------------------------');
602: END IF;
603:
604: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR OR l_return_status = OKC_API.G_RET_STS_ERROR THEN
597: okc_util.print_trace(1, '--------------------------------------------------------');
598: okc_util.print_trace(1, '----------------------------');
599: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
600: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
601: okc_util.print_trace(1, '----------------------------');
602: END IF;
603:
604: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR OR l_return_status = OKC_API.G_RET_STS_ERROR THEN
605: okc_api.set_message(p_app_name => OKC_API.G_APP_NAME,
622: RAISE OKC_API.G_EXCEPTION_ERROR;
623: END IF;
624:
625: IF (l_debug = 'Y') THEN
626: okc_util.print_trace(1, 'OUTPUT RECORD - Contract Top Line Item Record:');
627: okc_util.print_trace(1, '==============================================');
628: okc_util.print_trace(1, 'Id = '||to_char(lx_cimv_rec.id));
629: okc_util.print_trace(1, 'Contract Line Id = '||lx_cimv_rec.cle_id);
630: okc_util.print_trace(1, 'Contract Header Id = '||to_char(lx_cimv_rec.chr_id));
623: END IF;
624:
625: IF (l_debug = 'Y') THEN
626: okc_util.print_trace(1, 'OUTPUT RECORD - Contract Top Line Item Record:');
627: okc_util.print_trace(1, '==============================================');
628: okc_util.print_trace(1, 'Id = '||to_char(lx_cimv_rec.id));
629: okc_util.print_trace(1, 'Contract Line Id = '||lx_cimv_rec.cle_id);
630: okc_util.print_trace(1, 'Contract Header Id = '||to_char(lx_cimv_rec.chr_id));
631: okc_util.print_trace(1, 'Dnz Contract Header Id= '||lx_cimv_rec.dnz_chr_id);
624:
625: IF (l_debug = 'Y') THEN
626: okc_util.print_trace(1, 'OUTPUT RECORD - Contract Top Line Item Record:');
627: okc_util.print_trace(1, '==============================================');
628: okc_util.print_trace(1, 'Id = '||to_char(lx_cimv_rec.id));
629: okc_util.print_trace(1, 'Contract Line Id = '||lx_cimv_rec.cle_id);
630: okc_util.print_trace(1, 'Contract Header Id = '||to_char(lx_cimv_rec.chr_id));
631: okc_util.print_trace(1, 'Dnz Contract Header Id= '||lx_cimv_rec.dnz_chr_id);
632: okc_util.print_trace(1, 'Contract Line Id For = '||to_char(lx_cimv_rec.cle_id_for));
625: IF (l_debug = 'Y') THEN
626: okc_util.print_trace(1, 'OUTPUT RECORD - Contract Top Line Item Record:');
627: okc_util.print_trace(1, '==============================================');
628: okc_util.print_trace(1, 'Id = '||to_char(lx_cimv_rec.id));
629: okc_util.print_trace(1, 'Contract Line Id = '||lx_cimv_rec.cle_id);
630: okc_util.print_trace(1, 'Contract Header Id = '||to_char(lx_cimv_rec.chr_id));
631: okc_util.print_trace(1, 'Dnz Contract Header Id= '||lx_cimv_rec.dnz_chr_id);
632: okc_util.print_trace(1, 'Contract Line Id For = '||to_char(lx_cimv_rec.cle_id_for));
633: okc_util.print_trace(1, 'Object1 Id1 = '||lx_cimv_rec.object1_id1);
626: okc_util.print_trace(1, 'OUTPUT RECORD - Contract Top Line Item Record:');
627: okc_util.print_trace(1, '==============================================');
628: okc_util.print_trace(1, 'Id = '||to_char(lx_cimv_rec.id));
629: okc_util.print_trace(1, 'Contract Line Id = '||lx_cimv_rec.cle_id);
630: okc_util.print_trace(1, 'Contract Header Id = '||to_char(lx_cimv_rec.chr_id));
631: okc_util.print_trace(1, 'Dnz Contract Header Id= '||lx_cimv_rec.dnz_chr_id);
632: okc_util.print_trace(1, 'Contract Line Id For = '||to_char(lx_cimv_rec.cle_id_for));
633: okc_util.print_trace(1, 'Object1 Id1 = '||lx_cimv_rec.object1_id1);
634: okc_util.print_trace(1, 'Object1 Id2 = '||lx_cimv_rec.object1_id2);
627: okc_util.print_trace(1, '==============================================');
628: okc_util.print_trace(1, 'Id = '||to_char(lx_cimv_rec.id));
629: okc_util.print_trace(1, 'Contract Line Id = '||lx_cimv_rec.cle_id);
630: okc_util.print_trace(1, 'Contract Header Id = '||to_char(lx_cimv_rec.chr_id));
631: okc_util.print_trace(1, 'Dnz Contract Header Id= '||lx_cimv_rec.dnz_chr_id);
632: okc_util.print_trace(1, 'Contract Line Id For = '||to_char(lx_cimv_rec.cle_id_for));
633: okc_util.print_trace(1, 'Object1 Id1 = '||lx_cimv_rec.object1_id1);
634: okc_util.print_trace(1, 'Object1 Id2 = '||lx_cimv_rec.object1_id2);
635: okc_util.print_trace(1, 'Object Code = '||lx_cimv_rec.jtot_object1_code);
628: okc_util.print_trace(1, 'Id = '||to_char(lx_cimv_rec.id));
629: okc_util.print_trace(1, 'Contract Line Id = '||lx_cimv_rec.cle_id);
630: okc_util.print_trace(1, 'Contract Header Id = '||to_char(lx_cimv_rec.chr_id));
631: okc_util.print_trace(1, 'Dnz Contract Header Id= '||lx_cimv_rec.dnz_chr_id);
632: okc_util.print_trace(1, 'Contract Line Id For = '||to_char(lx_cimv_rec.cle_id_for));
633: okc_util.print_trace(1, 'Object1 Id1 = '||lx_cimv_rec.object1_id1);
634: okc_util.print_trace(1, 'Object1 Id2 = '||lx_cimv_rec.object1_id2);
635: okc_util.print_trace(1, 'Object Code = '||lx_cimv_rec.jtot_object1_code);
636: okc_util.print_trace(1, 'No. of Items = '||lx_cimv_rec.number_of_items);
629: okc_util.print_trace(1, 'Contract Line Id = '||lx_cimv_rec.cle_id);
630: okc_util.print_trace(1, 'Contract Header Id = '||to_char(lx_cimv_rec.chr_id));
631: okc_util.print_trace(1, 'Dnz Contract Header Id= '||lx_cimv_rec.dnz_chr_id);
632: okc_util.print_trace(1, 'Contract Line Id For = '||to_char(lx_cimv_rec.cle_id_for));
633: okc_util.print_trace(1, 'Object1 Id1 = '||lx_cimv_rec.object1_id1);
634: okc_util.print_trace(1, 'Object1 Id2 = '||lx_cimv_rec.object1_id2);
635: okc_util.print_trace(1, 'Object Code = '||lx_cimv_rec.jtot_object1_code);
636: okc_util.print_trace(1, 'No. of Items = '||lx_cimv_rec.number_of_items);
637: okc_util.print_trace(1, 'UoM Code = '||lx_cimv_rec.uom_code);
630: okc_util.print_trace(1, 'Contract Header Id = '||to_char(lx_cimv_rec.chr_id));
631: okc_util.print_trace(1, 'Dnz Contract Header Id= '||lx_cimv_rec.dnz_chr_id);
632: okc_util.print_trace(1, 'Contract Line Id For = '||to_char(lx_cimv_rec.cle_id_for));
633: okc_util.print_trace(1, 'Object1 Id1 = '||lx_cimv_rec.object1_id1);
634: okc_util.print_trace(1, 'Object1 Id2 = '||lx_cimv_rec.object1_id2);
635: okc_util.print_trace(1, 'Object Code = '||lx_cimv_rec.jtot_object1_code);
636: okc_util.print_trace(1, 'No. of Items = '||lx_cimv_rec.number_of_items);
637: okc_util.print_trace(1, 'UoM Code = '||lx_cimv_rec.uom_code);
638: okc_util.print_trace(1, 'EXCEPTION Y/N = '||lx_cimv_rec.exception_yn);
631: okc_util.print_trace(1, 'Dnz Contract Header Id= '||lx_cimv_rec.dnz_chr_id);
632: okc_util.print_trace(1, 'Contract Line Id For = '||to_char(lx_cimv_rec.cle_id_for));
633: okc_util.print_trace(1, 'Object1 Id1 = '||lx_cimv_rec.object1_id1);
634: okc_util.print_trace(1, 'Object1 Id2 = '||lx_cimv_rec.object1_id2);
635: okc_util.print_trace(1, 'Object Code = '||lx_cimv_rec.jtot_object1_code);
636: okc_util.print_trace(1, 'No. of Items = '||lx_cimv_rec.number_of_items);
637: okc_util.print_trace(1, 'UoM Code = '||lx_cimv_rec.uom_code);
638: okc_util.print_trace(1, 'EXCEPTION Y/N = '||lx_cimv_rec.exception_yn);
639: okc_util.print_trace(1, 'Priced Item Y/N = '||lx_cimv_rec.priced_item_yn);
632: okc_util.print_trace(1, 'Contract Line Id For = '||to_char(lx_cimv_rec.cle_id_for));
633: okc_util.print_trace(1, 'Object1 Id1 = '||lx_cimv_rec.object1_id1);
634: okc_util.print_trace(1, 'Object1 Id2 = '||lx_cimv_rec.object1_id2);
635: okc_util.print_trace(1, 'Object Code = '||lx_cimv_rec.jtot_object1_code);
636: okc_util.print_trace(1, 'No. of Items = '||lx_cimv_rec.number_of_items);
637: okc_util.print_trace(1, 'UoM Code = '||lx_cimv_rec.uom_code);
638: okc_util.print_trace(1, 'EXCEPTION Y/N = '||lx_cimv_rec.exception_yn);
639: okc_util.print_trace(1, 'Priced Item Y/N = '||lx_cimv_rec.priced_item_yn);
640: END IF;
633: okc_util.print_trace(1, 'Object1 Id1 = '||lx_cimv_rec.object1_id1);
634: okc_util.print_trace(1, 'Object1 Id2 = '||lx_cimv_rec.object1_id2);
635: okc_util.print_trace(1, 'Object Code = '||lx_cimv_rec.jtot_object1_code);
636: okc_util.print_trace(1, 'No. of Items = '||lx_cimv_rec.number_of_items);
637: okc_util.print_trace(1, 'UoM Code = '||lx_cimv_rec.uom_code);
638: okc_util.print_trace(1, 'EXCEPTION Y/N = '||lx_cimv_rec.exception_yn);
639: okc_util.print_trace(1, 'Priced Item Y/N = '||lx_cimv_rec.priced_item_yn);
640: END IF;
641:
634: okc_util.print_trace(1, 'Object1 Id2 = '||lx_cimv_rec.object1_id2);
635: okc_util.print_trace(1, 'Object Code = '||lx_cimv_rec.jtot_object1_code);
636: okc_util.print_trace(1, 'No. of Items = '||lx_cimv_rec.number_of_items);
637: okc_util.print_trace(1, 'UoM Code = '||lx_cimv_rec.uom_code);
638: okc_util.print_trace(1, 'EXCEPTION Y/N = '||lx_cimv_rec.exception_yn);
639: okc_util.print_trace(1, 'Priced Item Y/N = '||lx_cimv_rec.priced_item_yn);
640: END IF;
641:
642: IF (l_debug = 'Y') THEN
635: okc_util.print_trace(1, 'Object Code = '||lx_cimv_rec.jtot_object1_code);
636: okc_util.print_trace(1, 'No. of Items = '||lx_cimv_rec.number_of_items);
637: okc_util.print_trace(1, 'UoM Code = '||lx_cimv_rec.uom_code);
638: okc_util.print_trace(1, 'EXCEPTION Y/N = '||lx_cimv_rec.exception_yn);
639: okc_util.print_trace(1, 'Priced Item Y/N = '||lx_cimv_rec.priced_item_yn);
640: END IF;
641:
642: IF (l_debug = 'Y') THEN
643: okc_util.print_trace(1, ' ');
639: okc_util.print_trace(1, 'Priced Item Y/N = '||lx_cimv_rec.priced_item_yn);
640: END IF;
641:
642: IF (l_debug = 'Y') THEN
643: okc_util.print_trace(1, ' ');
644: okc_util.print_trace(1, '================================================');
645: END IF;
646:
647: -- Creating TOP_BASE_LINE which will be child of TOP MODEL LINE
640: END IF;
641:
642: IF (l_debug = 'Y') THEN
643: okc_util.print_trace(1, ' ');
644: okc_util.print_trace(1, '================================================');
645: END IF;
646:
647: -- Creating TOP_BASE_LINE which will be child of TOP MODEL LINE
648: IF (l_debug = 'Y') THEN
645: END IF;
646:
647: -- Creating TOP_BASE_LINE which will be child of TOP MODEL LINE
648: IF (l_debug = 'Y') THEN
649: okc_util.print_trace(1, 'CREATE TOP BASE LINE');
650: okc_util.print_trace(1, '=====================');
651: END IF;
652:
653: l_clev_rec := p_clev_rec;
646:
647: -- Creating TOP_BASE_LINE which will be child of TOP MODEL LINE
648: IF (l_debug = 'Y') THEN
649: okc_util.print_trace(1, 'CREATE TOP BASE LINE');
650: okc_util.print_trace(1, '=====================');
651: END IF;
652:
653: l_clev_rec := p_clev_rec;
654: l_cimv_rec := p_cimv_rec;
661: l_clev_rec.chr_id := NULL;
662: -- l_clev_rec.dnz_chr_id := lx_clev_rec.dnz_chr_id;
663: l_clev_rec.cle_id := lx_clev_rec.id;
664: IF (l_debug = 'Y') THEN
665: okc_util.print_trace(1, ' ');
666: okc_util.print_trace(1, 'INPUT RECORD - Contract Top Line Record:');
667: okc_util.print_trace(1, '========================================');
668: okc_util.print_trace(1, 'Contract Line Number = '||l_clev_rec.line_number);
669: okc_util.print_trace(1, 'Contract Header Id = '||l_clev_rec.chr_id);
662: -- l_clev_rec.dnz_chr_id := lx_clev_rec.dnz_chr_id;
663: l_clev_rec.cle_id := lx_clev_rec.id;
664: IF (l_debug = 'Y') THEN
665: okc_util.print_trace(1, ' ');
666: okc_util.print_trace(1, 'INPUT RECORD - Contract Top Line Record:');
667: okc_util.print_trace(1, '========================================');
668: okc_util.print_trace(1, 'Contract Line Number = '||l_clev_rec.line_number);
669: okc_util.print_trace(1, 'Contract Header Id = '||l_clev_rec.chr_id);
670: okc_util.print_trace(1, 'Dnz Contract Header Id = '||l_clev_rec.dnz_chr_id);
663: l_clev_rec.cle_id := lx_clev_rec.id;
664: IF (l_debug = 'Y') THEN
665: okc_util.print_trace(1, ' ');
666: okc_util.print_trace(1, 'INPUT RECORD - Contract Top Line Record:');
667: okc_util.print_trace(1, '========================================');
668: okc_util.print_trace(1, 'Contract Line Number = '||l_clev_rec.line_number);
669: okc_util.print_trace(1, 'Contract Header Id = '||l_clev_rec.chr_id);
670: okc_util.print_trace(1, 'Dnz Contract Header Id = '||l_clev_rec.dnz_chr_id);
671: okc_util.print_trace(1, 'Display Sequence = '||l_clev_rec.display_sequence);
664: IF (l_debug = 'Y') THEN
665: okc_util.print_trace(1, ' ');
666: okc_util.print_trace(1, 'INPUT RECORD - Contract Top Line Record:');
667: okc_util.print_trace(1, '========================================');
668: okc_util.print_trace(1, 'Contract Line Number = '||l_clev_rec.line_number);
669: okc_util.print_trace(1, 'Contract Header Id = '||l_clev_rec.chr_id);
670: okc_util.print_trace(1, 'Dnz Contract Header Id = '||l_clev_rec.dnz_chr_id);
671: okc_util.print_trace(1, 'Display Sequence = '||l_clev_rec.display_sequence);
672: okc_util.print_trace(1, 'Line Style Id = '||l_clev_rec.lse_id);
665: okc_util.print_trace(1, ' ');
666: okc_util.print_trace(1, 'INPUT RECORD - Contract Top Line Record:');
667: okc_util.print_trace(1, '========================================');
668: okc_util.print_trace(1, 'Contract Line Number = '||l_clev_rec.line_number);
669: okc_util.print_trace(1, 'Contract Header Id = '||l_clev_rec.chr_id);
670: okc_util.print_trace(1, 'Dnz Contract Header Id = '||l_clev_rec.dnz_chr_id);
671: okc_util.print_trace(1, 'Display Sequence = '||l_clev_rec.display_sequence);
672: okc_util.print_trace(1, 'Line Style Id = '||l_clev_rec.lse_id);
673: okc_util.print_trace(1, 'Currency code = '||l_clev_rec.currency_code);
666: okc_util.print_trace(1, 'INPUT RECORD - Contract Top Line Record:');
667: okc_util.print_trace(1, '========================================');
668: okc_util.print_trace(1, 'Contract Line Number = '||l_clev_rec.line_number);
669: okc_util.print_trace(1, 'Contract Header Id = '||l_clev_rec.chr_id);
670: okc_util.print_trace(1, 'Dnz Contract Header Id = '||l_clev_rec.dnz_chr_id);
671: okc_util.print_trace(1, 'Display Sequence = '||l_clev_rec.display_sequence);
672: okc_util.print_trace(1, 'Line Style Id = '||l_clev_rec.lse_id);
673: okc_util.print_trace(1, 'Currency code = '||l_clev_rec.currency_code);
674: okc_util.print_trace(1, 'Price Level Ind. = '||l_clev_rec.price_level_ind);
667: okc_util.print_trace(1, '========================================');
668: okc_util.print_trace(1, 'Contract Line Number = '||l_clev_rec.line_number);
669: okc_util.print_trace(1, 'Contract Header Id = '||l_clev_rec.chr_id);
670: okc_util.print_trace(1, 'Dnz Contract Header Id = '||l_clev_rec.dnz_chr_id);
671: okc_util.print_trace(1, 'Display Sequence = '||l_clev_rec.display_sequence);
672: okc_util.print_trace(1, 'Line Style Id = '||l_clev_rec.lse_id);
673: okc_util.print_trace(1, 'Currency code = '||l_clev_rec.currency_code);
674: okc_util.print_trace(1, 'Price Level Ind. = '||l_clev_rec.price_level_ind);
675: okc_util.print_trace(1, 'Unit Price = '||l_clev_rec.price_unit);
668: okc_util.print_trace(1, 'Contract Line Number = '||l_clev_rec.line_number);
669: okc_util.print_trace(1, 'Contract Header Id = '||l_clev_rec.chr_id);
670: okc_util.print_trace(1, 'Dnz Contract Header Id = '||l_clev_rec.dnz_chr_id);
671: okc_util.print_trace(1, 'Display Sequence = '||l_clev_rec.display_sequence);
672: okc_util.print_trace(1, 'Line Style Id = '||l_clev_rec.lse_id);
673: okc_util.print_trace(1, 'Currency code = '||l_clev_rec.currency_code);
674: okc_util.print_trace(1, 'Price Level Ind. = '||l_clev_rec.price_level_ind);
675: okc_util.print_trace(1, 'Unit Price = '||l_clev_rec.price_unit);
676: okc_util.print_trace(1, 'Negotiated price = '||l_clev_rec.price_negotiated);
669: okc_util.print_trace(1, 'Contract Header Id = '||l_clev_rec.chr_id);
670: okc_util.print_trace(1, 'Dnz Contract Header Id = '||l_clev_rec.dnz_chr_id);
671: okc_util.print_trace(1, 'Display Sequence = '||l_clev_rec.display_sequence);
672: okc_util.print_trace(1, 'Line Style Id = '||l_clev_rec.lse_id);
673: okc_util.print_trace(1, 'Currency code = '||l_clev_rec.currency_code);
674: okc_util.print_trace(1, 'Price Level Ind. = '||l_clev_rec.price_level_ind);
675: okc_util.print_trace(1, 'Unit Price = '||l_clev_rec.price_unit);
676: okc_util.print_trace(1, 'Negotiated price = '||l_clev_rec.price_negotiated);
677: okc_util.print_trace(1, 'Hidden Ind. = '||l_clev_rec.hidden_ind);
670: okc_util.print_trace(1, 'Dnz Contract Header Id = '||l_clev_rec.dnz_chr_id);
671: okc_util.print_trace(1, 'Display Sequence = '||l_clev_rec.display_sequence);
672: okc_util.print_trace(1, 'Line Style Id = '||l_clev_rec.lse_id);
673: okc_util.print_trace(1, 'Currency code = '||l_clev_rec.currency_code);
674: okc_util.print_trace(1, 'Price Level Ind. = '||l_clev_rec.price_level_ind);
675: okc_util.print_trace(1, 'Unit Price = '||l_clev_rec.price_unit);
676: okc_util.print_trace(1, 'Negotiated price = '||l_clev_rec.price_negotiated);
677: okc_util.print_trace(1, 'Hidden Ind. = '||l_clev_rec.hidden_ind);
678: okc_util.print_trace(1, 'EXCEPTION Y/N = '||l_clev_rec.exception_yn);
671: okc_util.print_trace(1, 'Display Sequence = '||l_clev_rec.display_sequence);
672: okc_util.print_trace(1, 'Line Style Id = '||l_clev_rec.lse_id);
673: okc_util.print_trace(1, 'Currency code = '||l_clev_rec.currency_code);
674: okc_util.print_trace(1, 'Price Level Ind. = '||l_clev_rec.price_level_ind);
675: okc_util.print_trace(1, 'Unit Price = '||l_clev_rec.price_unit);
676: okc_util.print_trace(1, 'Negotiated price = '||l_clev_rec.price_negotiated);
677: okc_util.print_trace(1, 'Hidden Ind. = '||l_clev_rec.hidden_ind);
678: okc_util.print_trace(1, 'EXCEPTION Y/N = '||l_clev_rec.exception_yn);
679: okc_util.print_trace(1, 'Status Code = '||l_clev_rec.sts_code);
672: okc_util.print_trace(1, 'Line Style Id = '||l_clev_rec.lse_id);
673: okc_util.print_trace(1, 'Currency code = '||l_clev_rec.currency_code);
674: okc_util.print_trace(1, 'Price Level Ind. = '||l_clev_rec.price_level_ind);
675: okc_util.print_trace(1, 'Unit Price = '||l_clev_rec.price_unit);
676: okc_util.print_trace(1, 'Negotiated price = '||l_clev_rec.price_negotiated);
677: okc_util.print_trace(1, 'Hidden Ind. = '||l_clev_rec.hidden_ind);
678: okc_util.print_trace(1, 'EXCEPTION Y/N = '||l_clev_rec.exception_yn);
679: okc_util.print_trace(1, 'Status Code = '||l_clev_rec.sts_code);
680: okc_util.print_trace(1, 'Start Date = '||l_clev_rec.start_date);
673: okc_util.print_trace(1, 'Currency code = '||l_clev_rec.currency_code);
674: okc_util.print_trace(1, 'Price Level Ind. = '||l_clev_rec.price_level_ind);
675: okc_util.print_trace(1, 'Unit Price = '||l_clev_rec.price_unit);
676: okc_util.print_trace(1, 'Negotiated price = '||l_clev_rec.price_negotiated);
677: okc_util.print_trace(1, 'Hidden Ind. = '||l_clev_rec.hidden_ind);
678: okc_util.print_trace(1, 'EXCEPTION Y/N = '||l_clev_rec.exception_yn);
679: okc_util.print_trace(1, 'Status Code = '||l_clev_rec.sts_code);
680: okc_util.print_trace(1, 'Start Date = '||l_clev_rec.start_date);
681: okc_util.print_trace(1, 'End Date = '||l_clev_rec.END_date);
674: okc_util.print_trace(1, 'Price Level Ind. = '||l_clev_rec.price_level_ind);
675: okc_util.print_trace(1, 'Unit Price = '||l_clev_rec.price_unit);
676: okc_util.print_trace(1, 'Negotiated price = '||l_clev_rec.price_negotiated);
677: okc_util.print_trace(1, 'Hidden Ind. = '||l_clev_rec.hidden_ind);
678: okc_util.print_trace(1, 'EXCEPTION Y/N = '||l_clev_rec.exception_yn);
679: okc_util.print_trace(1, 'Status Code = '||l_clev_rec.sts_code);
680: okc_util.print_trace(1, 'Start Date = '||l_clev_rec.start_date);
681: okc_util.print_trace(1, 'End Date = '||l_clev_rec.END_date);
682: okc_util.print_trace(1, 'Orig system source code = '||l_clev_rec.orig_system_source_code);
675: okc_util.print_trace(1, 'Unit Price = '||l_clev_rec.price_unit);
676: okc_util.print_trace(1, 'Negotiated price = '||l_clev_rec.price_negotiated);
677: okc_util.print_trace(1, 'Hidden Ind. = '||l_clev_rec.hidden_ind);
678: okc_util.print_trace(1, 'EXCEPTION Y/N = '||l_clev_rec.exception_yn);
679: okc_util.print_trace(1, 'Status Code = '||l_clev_rec.sts_code);
680: okc_util.print_trace(1, 'Start Date = '||l_clev_rec.start_date);
681: okc_util.print_trace(1, 'End Date = '||l_clev_rec.END_date);
682: okc_util.print_trace(1, 'Orig system source code = '||l_clev_rec.orig_system_source_code);
683: okc_util.print_trace(1, 'Orig system id = '||l_clev_rec.orig_system_id1);
676: okc_util.print_trace(1, 'Negotiated price = '||l_clev_rec.price_negotiated);
677: okc_util.print_trace(1, 'Hidden Ind. = '||l_clev_rec.hidden_ind);
678: okc_util.print_trace(1, 'EXCEPTION Y/N = '||l_clev_rec.exception_yn);
679: okc_util.print_trace(1, 'Status Code = '||l_clev_rec.sts_code);
680: okc_util.print_trace(1, 'Start Date = '||l_clev_rec.start_date);
681: okc_util.print_trace(1, 'End Date = '||l_clev_rec.END_date);
682: okc_util.print_trace(1, 'Orig system source code = '||l_clev_rec.orig_system_source_code);
683: okc_util.print_trace(1, 'Orig system id = '||l_clev_rec.orig_system_id1);
684: okc_util.print_trace(1, 'Orig system reference = '||l_clev_rec.orig_system_reference1);
677: okc_util.print_trace(1, 'Hidden Ind. = '||l_clev_rec.hidden_ind);
678: okc_util.print_trace(1, 'EXCEPTION Y/N = '||l_clev_rec.exception_yn);
679: okc_util.print_trace(1, 'Status Code = '||l_clev_rec.sts_code);
680: okc_util.print_trace(1, 'Start Date = '||l_clev_rec.start_date);
681: okc_util.print_trace(1, 'End Date = '||l_clev_rec.END_date);
682: okc_util.print_trace(1, 'Orig system source code = '||l_clev_rec.orig_system_source_code);
683: okc_util.print_trace(1, 'Orig system id = '||l_clev_rec.orig_system_id1);
684: okc_util.print_trace(1, 'Orig system reference = '||l_clev_rec.orig_system_reference1);
685: okc_util.print_trace(1, 'Config Header Id = '||l_clev_rec.config_header_id);
678: okc_util.print_trace(1, 'EXCEPTION Y/N = '||l_clev_rec.exception_yn);
679: okc_util.print_trace(1, 'Status Code = '||l_clev_rec.sts_code);
680: okc_util.print_trace(1, 'Start Date = '||l_clev_rec.start_date);
681: okc_util.print_trace(1, 'End Date = '||l_clev_rec.END_date);
682: okc_util.print_trace(1, 'Orig system source code = '||l_clev_rec.orig_system_source_code);
683: okc_util.print_trace(1, 'Orig system id = '||l_clev_rec.orig_system_id1);
684: okc_util.print_trace(1, 'Orig system reference = '||l_clev_rec.orig_system_reference1);
685: okc_util.print_trace(1, 'Config Header Id = '||l_clev_rec.config_header_id);
686: okc_util.print_trace(1, 'Config Revison Number = '||l_clev_rec.config_revision_number);
679: okc_util.print_trace(1, 'Status Code = '||l_clev_rec.sts_code);
680: okc_util.print_trace(1, 'Start Date = '||l_clev_rec.start_date);
681: okc_util.print_trace(1, 'End Date = '||l_clev_rec.END_date);
682: okc_util.print_trace(1, 'Orig system source code = '||l_clev_rec.orig_system_source_code);
683: okc_util.print_trace(1, 'Orig system id = '||l_clev_rec.orig_system_id1);
684: okc_util.print_trace(1, 'Orig system reference = '||l_clev_rec.orig_system_reference1);
685: okc_util.print_trace(1, 'Config Header Id = '||l_clev_rec.config_header_id);
686: okc_util.print_trace(1, 'Config Revison Number = '||l_clev_rec.config_revision_number);
687: okc_util.print_trace(1, 'Config Item Type = '||l_clev_rec.config_item_type);
680: okc_util.print_trace(1, 'Start Date = '||l_clev_rec.start_date);
681: okc_util.print_trace(1, 'End Date = '||l_clev_rec.END_date);
682: okc_util.print_trace(1, 'Orig system source code = '||l_clev_rec.orig_system_source_code);
683: okc_util.print_trace(1, 'Orig system id = '||l_clev_rec.orig_system_id1);
684: okc_util.print_trace(1, 'Orig system reference = '||l_clev_rec.orig_system_reference1);
685: okc_util.print_trace(1, 'Config Header Id = '||l_clev_rec.config_header_id);
686: okc_util.print_trace(1, 'Config Revison Number = '||l_clev_rec.config_revision_number);
687: okc_util.print_trace(1, 'Config Item Type = '||l_clev_rec.config_item_type);
688: okc_util.print_trace(1, 'Config Complete = '||l_clev_rec.config_complete_yn);
681: okc_util.print_trace(1, 'End Date = '||l_clev_rec.END_date);
682: okc_util.print_trace(1, 'Orig system source code = '||l_clev_rec.orig_system_source_code);
683: okc_util.print_trace(1, 'Orig system id = '||l_clev_rec.orig_system_id1);
684: okc_util.print_trace(1, 'Orig system reference = '||l_clev_rec.orig_system_reference1);
685: okc_util.print_trace(1, 'Config Header Id = '||l_clev_rec.config_header_id);
686: okc_util.print_trace(1, 'Config Revison Number = '||l_clev_rec.config_revision_number);
687: okc_util.print_trace(1, 'Config Item Type = '||l_clev_rec.config_item_type);
688: okc_util.print_trace(1, 'Config Complete = '||l_clev_rec.config_complete_yn);
689: okc_util.print_trace(1, 'Config valid = '||l_clev_rec.config_valid_yn);
682: okc_util.print_trace(1, 'Orig system source code = '||l_clev_rec.orig_system_source_code);
683: okc_util.print_trace(1, 'Orig system id = '||l_clev_rec.orig_system_id1);
684: okc_util.print_trace(1, 'Orig system reference = '||l_clev_rec.orig_system_reference1);
685: okc_util.print_trace(1, 'Config Header Id = '||l_clev_rec.config_header_id);
686: okc_util.print_trace(1, 'Config Revison Number = '||l_clev_rec.config_revision_number);
687: okc_util.print_trace(1, 'Config Item Type = '||l_clev_rec.config_item_type);
688: okc_util.print_trace(1, 'Config Complete = '||l_clev_rec.config_complete_yn);
689: okc_util.print_trace(1, 'Config valid = '||l_clev_rec.config_valid_yn);
690: okc_util.print_trace(1, '----------------------------');
683: okc_util.print_trace(1, 'Orig system id = '||l_clev_rec.orig_system_id1);
684: okc_util.print_trace(1, 'Orig system reference = '||l_clev_rec.orig_system_reference1);
685: okc_util.print_trace(1, 'Config Header Id = '||l_clev_rec.config_header_id);
686: okc_util.print_trace(1, 'Config Revison Number = '||l_clev_rec.config_revision_number);
687: okc_util.print_trace(1, 'Config Item Type = '||l_clev_rec.config_item_type);
688: okc_util.print_trace(1, 'Config Complete = '||l_clev_rec.config_complete_yn);
689: okc_util.print_trace(1, 'Config valid = '||l_clev_rec.config_valid_yn);
690: okc_util.print_trace(1, '----------------------------');
691: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
684: okc_util.print_trace(1, 'Orig system reference = '||l_clev_rec.orig_system_reference1);
685: okc_util.print_trace(1, 'Config Header Id = '||l_clev_rec.config_header_id);
686: okc_util.print_trace(1, 'Config Revison Number = '||l_clev_rec.config_revision_number);
687: okc_util.print_trace(1, 'Config Item Type = '||l_clev_rec.config_item_type);
688: okc_util.print_trace(1, 'Config Complete = '||l_clev_rec.config_complete_yn);
689: okc_util.print_trace(1, 'Config valid = '||l_clev_rec.config_valid_yn);
690: okc_util.print_trace(1, '----------------------------');
691: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
692: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
685: okc_util.print_trace(1, 'Config Header Id = '||l_clev_rec.config_header_id);
686: okc_util.print_trace(1, 'Config Revison Number = '||l_clev_rec.config_revision_number);
687: okc_util.print_trace(1, 'Config Item Type = '||l_clev_rec.config_item_type);
688: okc_util.print_trace(1, 'Config Complete = '||l_clev_rec.config_complete_yn);
689: okc_util.print_trace(1, 'Config valid = '||l_clev_rec.config_valid_yn);
690: okc_util.print_trace(1, '----------------------------');
691: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
692: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
693: okc_util.print_trace(1, '----------------------------');
686: okc_util.print_trace(1, 'Config Revison Number = '||l_clev_rec.config_revision_number);
687: okc_util.print_trace(1, 'Config Item Type = '||l_clev_rec.config_item_type);
688: okc_util.print_trace(1, 'Config Complete = '||l_clev_rec.config_complete_yn);
689: okc_util.print_trace(1, 'Config valid = '||l_clev_rec.config_valid_yn);
690: okc_util.print_trace(1, '----------------------------');
691: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
692: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
693: okc_util.print_trace(1, '----------------------------');
694: okc_util.print_trace(1, '--------------------------------------------------------');
687: okc_util.print_trace(1, 'Config Item Type = '||l_clev_rec.config_item_type);
688: okc_util.print_trace(1, 'Config Complete = '||l_clev_rec.config_complete_yn);
689: okc_util.print_trace(1, 'Config valid = '||l_clev_rec.config_valid_yn);
690: okc_util.print_trace(1, '----------------------------');
691: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
692: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
693: okc_util.print_trace(1, '----------------------------');
694: okc_util.print_trace(1, '--------------------------------------------------------');
695: okc_util.print_trace(1, '>START - ******* OKC_CONTRACT_PUB.CREATE_CONTRACT_LINE -');
688: okc_util.print_trace(1, 'Config Complete = '||l_clev_rec.config_complete_yn);
689: okc_util.print_trace(1, 'Config valid = '||l_clev_rec.config_valid_yn);
690: okc_util.print_trace(1, '----------------------------');
691: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
692: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
693: okc_util.print_trace(1, '----------------------------');
694: okc_util.print_trace(1, '--------------------------------------------------------');
695: okc_util.print_trace(1, '>START - ******* OKC_CONTRACT_PUB.CREATE_CONTRACT_LINE -');
696: END IF;
689: okc_util.print_trace(1, 'Config valid = '||l_clev_rec.config_valid_yn);
690: okc_util.print_trace(1, '----------------------------');
691: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
692: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
693: okc_util.print_trace(1, '----------------------------');
694: okc_util.print_trace(1, '--------------------------------------------------------');
695: okc_util.print_trace(1, '>START - ******* OKC_CONTRACT_PUB.CREATE_CONTRACT_LINE -');
696: END IF;
697:
690: okc_util.print_trace(1, '----------------------------');
691: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
692: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
693: okc_util.print_trace(1, '----------------------------');
694: okc_util.print_trace(1, '--------------------------------------------------------');
695: okc_util.print_trace(1, '>START - ******* OKC_CONTRACT_PUB.CREATE_CONTRACT_LINE -');
696: END IF;
697:
698: okc_contract_pub.create_contract_line(p_api_version => 1
691: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
692: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
693: okc_util.print_trace(1, '----------------------------');
694: okc_util.print_trace(1, '--------------------------------------------------------');
695: okc_util.print_trace(1, '>START - ******* OKC_CONTRACT_PUB.CREATE_CONTRACT_LINE -');
696: END IF;
697:
698: okc_contract_pub.create_contract_line(p_api_version => 1
699: ,p_init_msg_list => OKC_API.G_FALSE
704: ,x_clev_rec => lx_clev_rec
705: );
706:
707: IF (l_debug = 'Y') THEN
708: okc_util.print_trace(1, '
710: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
711: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
712: okc_util.print_trace(1, '----------------------------');
705: );
706:
707: IF (l_debug = 'Y') THEN
708: okc_util.print_trace(1, '
710: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
711: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
712: okc_util.print_trace(1, '----------------------------');
713: END IF;
706:
707: IF (l_debug = 'Y') THEN
708: okc_util.print_trace(1, '
710: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
711: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
712: okc_util.print_trace(1, '----------------------------');
713: END IF;
714:
707: IF (l_debug = 'Y') THEN
708: okc_util.print_trace(1, '
710: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
711: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
712: okc_util.print_trace(1, '----------------------------');
713: END IF;
714:
715: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR OR l_return_status = OKC_API.G_RET_STS_ERROR THEN
708: okc_util.print_trace(1, '
710: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
711: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
712: okc_util.print_trace(1, '----------------------------');
713: END IF;
714:
715: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR OR l_return_status = OKC_API.G_RET_STS_ERROR THEN
716:
737: p_line_inf_tab(line_inf_tab_counter).line_type := G_BASE_LINE;
738: p_line_inf_tab(line_inf_tab_counter).cle_id := lx_clev_rec.id;
739:
740: IF (l_debug = 'Y') THEN
741: okc_util.print_trace(1, 'OUTPUT RECORD - Contract Top Line Record:');
742: okc_util.print_trace(1, '=========================================');
743: okc_util.print_trace(1, 'Contract Header Id = '||to_char(lx_clev_rec.chr_id));
744: okc_util.print_trace(1, 'Contract DNZ Header Id= '||to_char(lx_clev_rec.dnz_chr_id));
745: okc_util.print_trace(1, 'Contract Line Id = '||lx_clev_rec.cle_id);
738: p_line_inf_tab(line_inf_tab_counter).cle_id := lx_clev_rec.id;
739:
740: IF (l_debug = 'Y') THEN
741: okc_util.print_trace(1, 'OUTPUT RECORD - Contract Top Line Record:');
742: okc_util.print_trace(1, '=========================================');
743: okc_util.print_trace(1, 'Contract Header Id = '||to_char(lx_clev_rec.chr_id));
744: okc_util.print_trace(1, 'Contract DNZ Header Id= '||to_char(lx_clev_rec.dnz_chr_id));
745: okc_util.print_trace(1, 'Contract Line Id = '||lx_clev_rec.cle_id);
746: okc_util.print_trace(1, 'Line Number = '||lx_clev_rec.line_number);
739:
740: IF (l_debug = 'Y') THEN
741: okc_util.print_trace(1, 'OUTPUT RECORD - Contract Top Line Record:');
742: okc_util.print_trace(1, '=========================================');
743: okc_util.print_trace(1, 'Contract Header Id = '||to_char(lx_clev_rec.chr_id));
744: okc_util.print_trace(1, 'Contract DNZ Header Id= '||to_char(lx_clev_rec.dnz_chr_id));
745: okc_util.print_trace(1, 'Contract Line Id = '||lx_clev_rec.cle_id);
746: okc_util.print_trace(1, 'Line Number = '||lx_clev_rec.line_number);
747: okc_util.print_trace(1, 'Line Style Id = '||lx_clev_rec.lse_id);
740: IF (l_debug = 'Y') THEN
741: okc_util.print_trace(1, 'OUTPUT RECORD - Contract Top Line Record:');
742: okc_util.print_trace(1, '=========================================');
743: okc_util.print_trace(1, 'Contract Header Id = '||to_char(lx_clev_rec.chr_id));
744: okc_util.print_trace(1, 'Contract DNZ Header Id= '||to_char(lx_clev_rec.dnz_chr_id));
745: okc_util.print_trace(1, 'Contract Line Id = '||lx_clev_rec.cle_id);
746: okc_util.print_trace(1, 'Line Number = '||lx_clev_rec.line_number);
747: okc_util.print_trace(1, 'Line Style Id = '||lx_clev_rec.lse_id);
748: okc_util.print_trace(1, '-->Order Line Id = '||lx_clev_rec.orig_system_id1);
741: okc_util.print_trace(1, 'OUTPUT RECORD - Contract Top Line Record:');
742: okc_util.print_trace(1, '=========================================');
743: okc_util.print_trace(1, 'Contract Header Id = '||to_char(lx_clev_rec.chr_id));
744: okc_util.print_trace(1, 'Contract DNZ Header Id= '||to_char(lx_clev_rec.dnz_chr_id));
745: okc_util.print_trace(1, 'Contract Line Id = '||lx_clev_rec.cle_id);
746: okc_util.print_trace(1, 'Line Number = '||lx_clev_rec.line_number);
747: okc_util.print_trace(1, 'Line Style Id = '||lx_clev_rec.lse_id);
748: okc_util.print_trace(1, '-->Order Line Id = '||lx_clev_rec.orig_system_id1);
749: END IF;
742: okc_util.print_trace(1, '=========================================');
743: okc_util.print_trace(1, 'Contract Header Id = '||to_char(lx_clev_rec.chr_id));
744: okc_util.print_trace(1, 'Contract DNZ Header Id= '||to_char(lx_clev_rec.dnz_chr_id));
745: okc_util.print_trace(1, 'Contract Line Id = '||lx_clev_rec.cle_id);
746: okc_util.print_trace(1, 'Line Number = '||lx_clev_rec.line_number);
747: okc_util.print_trace(1, 'Line Style Id = '||lx_clev_rec.lse_id);
748: okc_util.print_trace(1, '-->Order Line Id = '||lx_clev_rec.orig_system_id1);
749: END IF;
750:
743: okc_util.print_trace(1, 'Contract Header Id = '||to_char(lx_clev_rec.chr_id));
744: okc_util.print_trace(1, 'Contract DNZ Header Id= '||to_char(lx_clev_rec.dnz_chr_id));
745: okc_util.print_trace(1, 'Contract Line Id = '||lx_clev_rec.cle_id);
746: okc_util.print_trace(1, 'Line Number = '||lx_clev_rec.line_number);
747: okc_util.print_trace(1, 'Line Style Id = '||lx_clev_rec.lse_id);
748: okc_util.print_trace(1, '-->Order Line Id = '||lx_clev_rec.orig_system_id1);
749: END IF;
750:
751: IF (l_debug = 'Y') THEN
744: okc_util.print_trace(1, 'Contract DNZ Header Id= '||to_char(lx_clev_rec.dnz_chr_id));
745: okc_util.print_trace(1, 'Contract Line Id = '||lx_clev_rec.cle_id);
746: okc_util.print_trace(1, 'Line Number = '||lx_clev_rec.line_number);
747: okc_util.print_trace(1, 'Line Style Id = '||lx_clev_rec.lse_id);
748: okc_util.print_trace(1, '-->Order Line Id = '||lx_clev_rec.orig_system_id1);
749: END IF;
750:
751: IF (l_debug = 'Y') THEN
752: okc_util.print_trace(1, ' ');
748: okc_util.print_trace(1, '-->Order Line Id = '||lx_clev_rec.orig_system_id1);
749: END IF;
750:
751: IF (l_debug = 'Y') THEN
752: okc_util.print_trace(1, ' ');
753: okc_util.print_trace(1, ' ');
754: okc_util.print_trace(1, '================================================');
755: okc_util.print_trace(1, 'CREATE CONTRACT LINE ITEM ');
756: okc_util.print_trace(1, '================================================');
749: END IF;
750:
751: IF (l_debug = 'Y') THEN
752: okc_util.print_trace(1, ' ');
753: okc_util.print_trace(1, ' ');
754: okc_util.print_trace(1, '================================================');
755: okc_util.print_trace(1, 'CREATE CONTRACT LINE ITEM ');
756: okc_util.print_trace(1, '================================================');
757: okc_util.print_trace(1, ' ');
750:
751: IF (l_debug = 'Y') THEN
752: okc_util.print_trace(1, ' ');
753: okc_util.print_trace(1, ' ');
754: okc_util.print_trace(1, '================================================');
755: okc_util.print_trace(1, 'CREATE CONTRACT LINE ITEM ');
756: okc_util.print_trace(1, '================================================');
757: okc_util.print_trace(1, ' ');
758: END IF;
751: IF (l_debug = 'Y') THEN
752: okc_util.print_trace(1, ' ');
753: okc_util.print_trace(1, ' ');
754: okc_util.print_trace(1, '================================================');
755: okc_util.print_trace(1, 'CREATE CONTRACT LINE ITEM ');
756: okc_util.print_trace(1, '================================================');
757: okc_util.print_trace(1, ' ');
758: END IF;
759:
752: okc_util.print_trace(1, ' ');
753: okc_util.print_trace(1, ' ');
754: okc_util.print_trace(1, '================================================');
755: okc_util.print_trace(1, 'CREATE CONTRACT LINE ITEM ');
756: okc_util.print_trace(1, '================================================');
757: okc_util.print_trace(1, ' ');
758: END IF;
759:
760: -- create contract item
753: okc_util.print_trace(1, ' ');
754: okc_util.print_trace(1, '================================================');
755: okc_util.print_trace(1, 'CREATE CONTRACT LINE ITEM ');
756: okc_util.print_trace(1, '================================================');
757: okc_util.print_trace(1, ' ');
758: END IF;
759:
760: -- create contract item
761: l_cimv_rec.cle_id := lx_clev_rec.id;
761: l_cimv_rec.cle_id := lx_clev_rec.id;
762: l_cimv_rec.dnz_chr_id := lx_clev_rec.dnz_chr_id;
763:
764: IF (l_debug = 'Y') THEN
765: okc_util.print_trace(1, 'INPUT RECORD - Contract Top Line Item Record:');
766: okc_util.print_trace(1, '=============================================');
767: okc_util.print_trace(1, 'Contract Line Id = '||l_cimv_rec.cle_id);
768: okc_util.print_trace(1, 'Dnz Contract Header Id= '||l_cimv_rec.dnz_chr_id);
769: okc_util.print_trace(1, 'Object1 Id1 = '||l_cimv_rec.object1_id1);
762: l_cimv_rec.dnz_chr_id := lx_clev_rec.dnz_chr_id;
763:
764: IF (l_debug = 'Y') THEN
765: okc_util.print_trace(1, 'INPUT RECORD - Contract Top Line Item Record:');
766: okc_util.print_trace(1, '=============================================');
767: okc_util.print_trace(1, 'Contract Line Id = '||l_cimv_rec.cle_id);
768: okc_util.print_trace(1, 'Dnz Contract Header Id= '||l_cimv_rec.dnz_chr_id);
769: okc_util.print_trace(1, 'Object1 Id1 = '||l_cimv_rec.object1_id1);
770: okc_util.print_trace(1, 'Object1 Id2 = '||l_cimv_rec.object1_id2);
763:
764: IF (l_debug = 'Y') THEN
765: okc_util.print_trace(1, 'INPUT RECORD - Contract Top Line Item Record:');
766: okc_util.print_trace(1, '=============================================');
767: okc_util.print_trace(1, 'Contract Line Id = '||l_cimv_rec.cle_id);
768: okc_util.print_trace(1, 'Dnz Contract Header Id= '||l_cimv_rec.dnz_chr_id);
769: okc_util.print_trace(1, 'Object1 Id1 = '||l_cimv_rec.object1_id1);
770: okc_util.print_trace(1, 'Object1 Id2 = '||l_cimv_rec.object1_id2);
771: okc_util.print_trace(1, 'Object Code = '||l_cimv_rec.jtot_object1_code);
764: IF (l_debug = 'Y') THEN
765: okc_util.print_trace(1, 'INPUT RECORD - Contract Top Line Item Record:');
766: okc_util.print_trace(1, '=============================================');
767: okc_util.print_trace(1, 'Contract Line Id = '||l_cimv_rec.cle_id);
768: okc_util.print_trace(1, 'Dnz Contract Header Id= '||l_cimv_rec.dnz_chr_id);
769: okc_util.print_trace(1, 'Object1 Id1 = '||l_cimv_rec.object1_id1);
770: okc_util.print_trace(1, 'Object1 Id2 = '||l_cimv_rec.object1_id2);
771: okc_util.print_trace(1, 'Object Code = '||l_cimv_rec.jtot_object1_code);
772: okc_util.print_trace(1, 'No. of Items = '||l_cimv_rec.number_of_items);
765: okc_util.print_trace(1, 'INPUT RECORD - Contract Top Line Item Record:');
766: okc_util.print_trace(1, '=============================================');
767: okc_util.print_trace(1, 'Contract Line Id = '||l_cimv_rec.cle_id);
768: okc_util.print_trace(1, 'Dnz Contract Header Id= '||l_cimv_rec.dnz_chr_id);
769: okc_util.print_trace(1, 'Object1 Id1 = '||l_cimv_rec.object1_id1);
770: okc_util.print_trace(1, 'Object1 Id2 = '||l_cimv_rec.object1_id2);
771: okc_util.print_trace(1, 'Object Code = '||l_cimv_rec.jtot_object1_code);
772: okc_util.print_trace(1, 'No. of Items = '||l_cimv_rec.number_of_items);
773: okc_util.print_trace(1, 'UoM Code = '||l_cimv_rec.uom_code);
766: okc_util.print_trace(1, '=============================================');
767: okc_util.print_trace(1, 'Contract Line Id = '||l_cimv_rec.cle_id);
768: okc_util.print_trace(1, 'Dnz Contract Header Id= '||l_cimv_rec.dnz_chr_id);
769: okc_util.print_trace(1, 'Object1 Id1 = '||l_cimv_rec.object1_id1);
770: okc_util.print_trace(1, 'Object1 Id2 = '||l_cimv_rec.object1_id2);
771: okc_util.print_trace(1, 'Object Code = '||l_cimv_rec.jtot_object1_code);
772: okc_util.print_trace(1, 'No. of Items = '||l_cimv_rec.number_of_items);
773: okc_util.print_trace(1, 'UoM Code = '||l_cimv_rec.uom_code);
774: okc_util.print_trace(1, 'Item Priced = '||l_cimv_rec.priced_item_yn);
767: okc_util.print_trace(1, 'Contract Line Id = '||l_cimv_rec.cle_id);
768: okc_util.print_trace(1, 'Dnz Contract Header Id= '||l_cimv_rec.dnz_chr_id);
769: okc_util.print_trace(1, 'Object1 Id1 = '||l_cimv_rec.object1_id1);
770: okc_util.print_trace(1, 'Object1 Id2 = '||l_cimv_rec.object1_id2);
771: okc_util.print_trace(1, 'Object Code = '||l_cimv_rec.jtot_object1_code);
772: okc_util.print_trace(1, 'No. of Items = '||l_cimv_rec.number_of_items);
773: okc_util.print_trace(1, 'UoM Code = '||l_cimv_rec.uom_code);
774: okc_util.print_trace(1, 'Item Priced = '||l_cimv_rec.priced_item_yn);
775: END IF;
768: okc_util.print_trace(1, 'Dnz Contract Header Id= '||l_cimv_rec.dnz_chr_id);
769: okc_util.print_trace(1, 'Object1 Id1 = '||l_cimv_rec.object1_id1);
770: okc_util.print_trace(1, 'Object1 Id2 = '||l_cimv_rec.object1_id2);
771: okc_util.print_trace(1, 'Object Code = '||l_cimv_rec.jtot_object1_code);
772: okc_util.print_trace(1, 'No. of Items = '||l_cimv_rec.number_of_items);
773: okc_util.print_trace(1, 'UoM Code = '||l_cimv_rec.uom_code);
774: okc_util.print_trace(1, 'Item Priced = '||l_cimv_rec.priced_item_yn);
775: END IF;
776:
769: okc_util.print_trace(1, 'Object1 Id1 = '||l_cimv_rec.object1_id1);
770: okc_util.print_trace(1, 'Object1 Id2 = '||l_cimv_rec.object1_id2);
771: okc_util.print_trace(1, 'Object Code = '||l_cimv_rec.jtot_object1_code);
772: okc_util.print_trace(1, 'No. of Items = '||l_cimv_rec.number_of_items);
773: okc_util.print_trace(1, 'UoM Code = '||l_cimv_rec.uom_code);
774: okc_util.print_trace(1, 'Item Priced = '||l_cimv_rec.priced_item_yn);
775: END IF;
776:
777: -- insert contract item
770: okc_util.print_trace(1, 'Object1 Id2 = '||l_cimv_rec.object1_id2);
771: okc_util.print_trace(1, 'Object Code = '||l_cimv_rec.jtot_object1_code);
772: okc_util.print_trace(1, 'No. of Items = '||l_cimv_rec.number_of_items);
773: okc_util.print_trace(1, 'UoM Code = '||l_cimv_rec.uom_code);
774: okc_util.print_trace(1, 'Item Priced = '||l_cimv_rec.priced_item_yn);
775: END IF;
776:
777: -- insert contract item
778: IF (l_debug = 'Y') THEN
775: END IF;
776:
777: -- insert contract item
778: IF (l_debug = 'Y') THEN
779: okc_util.print_trace(1, '----------------------------');
780: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
781: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
782: okc_util.print_trace(1, '----------------------------');
783: END IF;
776:
777: -- insert contract item
778: IF (l_debug = 'Y') THEN
779: okc_util.print_trace(1, '----------------------------');
780: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
781: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
782: okc_util.print_trace(1, '----------------------------');
783: END IF;
784:
777: -- insert contract item
778: IF (l_debug = 'Y') THEN
779: okc_util.print_trace(1, '----------------------------');
780: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
781: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
782: okc_util.print_trace(1, '----------------------------');
783: END IF;
784:
785: IF (l_debug = 'Y') THEN
778: IF (l_debug = 'Y') THEN
779: okc_util.print_trace(1, '----------------------------');
780: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
781: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
782: okc_util.print_trace(1, '----------------------------');
783: END IF;
784:
785: IF (l_debug = 'Y') THEN
786: okc_util.print_trace(1, '--------------------------------------------------------');
782: okc_util.print_trace(1, '----------------------------');
783: END IF;
784:
785: IF (l_debug = 'Y') THEN
786: okc_util.print_trace(1, '--------------------------------------------------------');
787: okc_util.print_trace(1, '>START - ******* OKC_CONTRACT_ITEM_PUB.CREATE_CONTRACT_ITEM -');
788: END IF;
789:
790: okc_contract_item_pub.create_contract_item(p_api_version => 1
783: END IF;
784:
785: IF (l_debug = 'Y') THEN
786: okc_util.print_trace(1, '--------------------------------------------------------');
787: okc_util.print_trace(1, '>START - ******* OKC_CONTRACT_ITEM_PUB.CREATE_CONTRACT_ITEM -');
788: END IF;
789:
790: okc_contract_item_pub.create_contract_item(p_api_version => 1
791: ,p_init_msg_list => OKC_API.G_FALSE
796: ,x_cimv_rec => lx_cimv_rec
797: );
798:
799: IF (l_debug = 'Y') THEN
800: okc_util.print_trace(1, '
802: okc_util.print_trace(1, '----------------------------');
803: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
804: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
797: );
798:
799: IF (l_debug = 'Y') THEN
800: okc_util.print_trace(1, '
802: okc_util.print_trace(1, '----------------------------');
803: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
804: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
805: okc_util.print_trace(1, '----------------------------');
798:
799: IF (l_debug = 'Y') THEN
800: okc_util.print_trace(1, '
802: okc_util.print_trace(1, '----------------------------');
803: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
804: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
805: okc_util.print_trace(1, '----------------------------');
806: END IF;
799: IF (l_debug = 'Y') THEN
800: okc_util.print_trace(1, '
802: okc_util.print_trace(1, '----------------------------');
803: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
804: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
805: okc_util.print_trace(1, '----------------------------');
806: END IF;
807:
800: okc_util.print_trace(1, '
802: okc_util.print_trace(1, '----------------------------');
803: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
804: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
805: okc_util.print_trace(1, '----------------------------');
806: END IF;
807:
808: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR OR l_return_status = OKC_API.G_RET_STS_ERROR THEN
801: okc_util.print_trace(1, '--------------------------------------------------------');
802: okc_util.print_trace(1, '----------------------------');
803: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
804: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
805: okc_util.print_trace(1, '----------------------------');
806: END IF;
807:
808: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR OR l_return_status = OKC_API.G_RET_STS_ERROR THEN
809: okc_api.set_message(p_app_name => OKC_API.G_APP_NAME,
826: RAISE OKC_API.G_EXCEPTION_ERROR;
827: END IF;
828:
829: IF (l_debug = 'Y') THEN
830: okc_util.print_trace(1, 'OUTPUT RECORD - Contract Top Line Item Record:');
831: okc_util.print_trace(1, '==============================================');
832: okc_util.print_trace(1, 'Id = '||to_char(lx_cimv_rec.id));
833: okc_util.print_trace(1, 'Contract Line Id = '||lx_cimv_rec.cle_id);
834: okc_util.print_trace(1, 'Contract Header Id = '||to_char(lx_cimv_rec.chr_id));
827: END IF;
828:
829: IF (l_debug = 'Y') THEN
830: okc_util.print_trace(1, 'OUTPUT RECORD - Contract Top Line Item Record:');
831: okc_util.print_trace(1, '==============================================');
832: okc_util.print_trace(1, 'Id = '||to_char(lx_cimv_rec.id));
833: okc_util.print_trace(1, 'Contract Line Id = '||lx_cimv_rec.cle_id);
834: okc_util.print_trace(1, 'Contract Header Id = '||to_char(lx_cimv_rec.chr_id));
835: okc_util.print_trace(1, 'Dnz Contract Header Id= '||lx_cimv_rec.dnz_chr_id);
828:
829: IF (l_debug = 'Y') THEN
830: okc_util.print_trace(1, 'OUTPUT RECORD - Contract Top Line Item Record:');
831: okc_util.print_trace(1, '==============================================');
832: okc_util.print_trace(1, 'Id = '||to_char(lx_cimv_rec.id));
833: okc_util.print_trace(1, 'Contract Line Id = '||lx_cimv_rec.cle_id);
834: okc_util.print_trace(1, 'Contract Header Id = '||to_char(lx_cimv_rec.chr_id));
835: okc_util.print_trace(1, 'Dnz Contract Header Id= '||lx_cimv_rec.dnz_chr_id);
836: okc_util.print_trace(1, 'Contract Line Id For = '||to_char(lx_cimv_rec.cle_id_for));
829: IF (l_debug = 'Y') THEN
830: okc_util.print_trace(1, 'OUTPUT RECORD - Contract Top Line Item Record:');
831: okc_util.print_trace(1, '==============================================');
832: okc_util.print_trace(1, 'Id = '||to_char(lx_cimv_rec.id));
833: okc_util.print_trace(1, 'Contract Line Id = '||lx_cimv_rec.cle_id);
834: okc_util.print_trace(1, 'Contract Header Id = '||to_char(lx_cimv_rec.chr_id));
835: okc_util.print_trace(1, 'Dnz Contract Header Id= '||lx_cimv_rec.dnz_chr_id);
836: okc_util.print_trace(1, 'Contract Line Id For = '||to_char(lx_cimv_rec.cle_id_for));
837: okc_util.print_trace(1, 'Object1 Id1 = '||lx_cimv_rec.object1_id1);
830: okc_util.print_trace(1, 'OUTPUT RECORD - Contract Top Line Item Record:');
831: okc_util.print_trace(1, '==============================================');
832: okc_util.print_trace(1, 'Id = '||to_char(lx_cimv_rec.id));
833: okc_util.print_trace(1, 'Contract Line Id = '||lx_cimv_rec.cle_id);
834: okc_util.print_trace(1, 'Contract Header Id = '||to_char(lx_cimv_rec.chr_id));
835: okc_util.print_trace(1, 'Dnz Contract Header Id= '||lx_cimv_rec.dnz_chr_id);
836: okc_util.print_trace(1, 'Contract Line Id For = '||to_char(lx_cimv_rec.cle_id_for));
837: okc_util.print_trace(1, 'Object1 Id1 = '||lx_cimv_rec.object1_id1);
838: okc_util.print_trace(1, 'Object1 Id2 = '||lx_cimv_rec.object1_id2);
831: okc_util.print_trace(1, '==============================================');
832: okc_util.print_trace(1, 'Id = '||to_char(lx_cimv_rec.id));
833: okc_util.print_trace(1, 'Contract Line Id = '||lx_cimv_rec.cle_id);
834: okc_util.print_trace(1, 'Contract Header Id = '||to_char(lx_cimv_rec.chr_id));
835: okc_util.print_trace(1, 'Dnz Contract Header Id= '||lx_cimv_rec.dnz_chr_id);
836: okc_util.print_trace(1, 'Contract Line Id For = '||to_char(lx_cimv_rec.cle_id_for));
837: okc_util.print_trace(1, 'Object1 Id1 = '||lx_cimv_rec.object1_id1);
838: okc_util.print_trace(1, 'Object1 Id2 = '||lx_cimv_rec.object1_id2);
839: okc_util.print_trace(1, 'Object Code = '||lx_cimv_rec.jtot_object1_code);
832: okc_util.print_trace(1, 'Id = '||to_char(lx_cimv_rec.id));
833: okc_util.print_trace(1, 'Contract Line Id = '||lx_cimv_rec.cle_id);
834: okc_util.print_trace(1, 'Contract Header Id = '||to_char(lx_cimv_rec.chr_id));
835: okc_util.print_trace(1, 'Dnz Contract Header Id= '||lx_cimv_rec.dnz_chr_id);
836: okc_util.print_trace(1, 'Contract Line Id For = '||to_char(lx_cimv_rec.cle_id_for));
837: okc_util.print_trace(1, 'Object1 Id1 = '||lx_cimv_rec.object1_id1);
838: okc_util.print_trace(1, 'Object1 Id2 = '||lx_cimv_rec.object1_id2);
839: okc_util.print_trace(1, 'Object Code = '||lx_cimv_rec.jtot_object1_code);
840: okc_util.print_trace(1, 'No. of Items = '||lx_cimv_rec.number_of_items);
833: okc_util.print_trace(1, 'Contract Line Id = '||lx_cimv_rec.cle_id);
834: okc_util.print_trace(1, 'Contract Header Id = '||to_char(lx_cimv_rec.chr_id));
835: okc_util.print_trace(1, 'Dnz Contract Header Id= '||lx_cimv_rec.dnz_chr_id);
836: okc_util.print_trace(1, 'Contract Line Id For = '||to_char(lx_cimv_rec.cle_id_for));
837: okc_util.print_trace(1, 'Object1 Id1 = '||lx_cimv_rec.object1_id1);
838: okc_util.print_trace(1, 'Object1 Id2 = '||lx_cimv_rec.object1_id2);
839: okc_util.print_trace(1, 'Object Code = '||lx_cimv_rec.jtot_object1_code);
840: okc_util.print_trace(1, 'No. of Items = '||lx_cimv_rec.number_of_items);
841: okc_util.print_trace(1, 'UoM Code = '||lx_cimv_rec.uom_code);
834: okc_util.print_trace(1, 'Contract Header Id = '||to_char(lx_cimv_rec.chr_id));
835: okc_util.print_trace(1, 'Dnz Contract Header Id= '||lx_cimv_rec.dnz_chr_id);
836: okc_util.print_trace(1, 'Contract Line Id For = '||to_char(lx_cimv_rec.cle_id_for));
837: okc_util.print_trace(1, 'Object1 Id1 = '||lx_cimv_rec.object1_id1);
838: okc_util.print_trace(1, 'Object1 Id2 = '||lx_cimv_rec.object1_id2);
839: okc_util.print_trace(1, 'Object Code = '||lx_cimv_rec.jtot_object1_code);
840: okc_util.print_trace(1, 'No. of Items = '||lx_cimv_rec.number_of_items);
841: okc_util.print_trace(1, 'UoM Code = '||lx_cimv_rec.uom_code);
842: okc_util.print_trace(1, 'EXCEPTION Y/N = '||lx_cimv_rec.exception_yn);
835: okc_util.print_trace(1, 'Dnz Contract Header Id= '||lx_cimv_rec.dnz_chr_id);
836: okc_util.print_trace(1, 'Contract Line Id For = '||to_char(lx_cimv_rec.cle_id_for));
837: okc_util.print_trace(1, 'Object1 Id1 = '||lx_cimv_rec.object1_id1);
838: okc_util.print_trace(1, 'Object1 Id2 = '||lx_cimv_rec.object1_id2);
839: okc_util.print_trace(1, 'Object Code = '||lx_cimv_rec.jtot_object1_code);
840: okc_util.print_trace(1, 'No. of Items = '||lx_cimv_rec.number_of_items);
841: okc_util.print_trace(1, 'UoM Code = '||lx_cimv_rec.uom_code);
842: okc_util.print_trace(1, 'EXCEPTION Y/N = '||lx_cimv_rec.exception_yn);
843: okc_util.print_trace(1, 'Priced Item Y/N = '||lx_cimv_rec.priced_item_yn);
836: okc_util.print_trace(1, 'Contract Line Id For = '||to_char(lx_cimv_rec.cle_id_for));
837: okc_util.print_trace(1, 'Object1 Id1 = '||lx_cimv_rec.object1_id1);
838: okc_util.print_trace(1, 'Object1 Id2 = '||lx_cimv_rec.object1_id2);
839: okc_util.print_trace(1, 'Object Code = '||lx_cimv_rec.jtot_object1_code);
840: okc_util.print_trace(1, 'No. of Items = '||lx_cimv_rec.number_of_items);
841: okc_util.print_trace(1, 'UoM Code = '||lx_cimv_rec.uom_code);
842: okc_util.print_trace(1, 'EXCEPTION Y/N = '||lx_cimv_rec.exception_yn);
843: okc_util.print_trace(1, 'Priced Item Y/N = '||lx_cimv_rec.priced_item_yn);
844: END IF;
837: okc_util.print_trace(1, 'Object1 Id1 = '||lx_cimv_rec.object1_id1);
838: okc_util.print_trace(1, 'Object1 Id2 = '||lx_cimv_rec.object1_id2);
839: okc_util.print_trace(1, 'Object Code = '||lx_cimv_rec.jtot_object1_code);
840: okc_util.print_trace(1, 'No. of Items = '||lx_cimv_rec.number_of_items);
841: okc_util.print_trace(1, 'UoM Code = '||lx_cimv_rec.uom_code);
842: okc_util.print_trace(1, 'EXCEPTION Y/N = '||lx_cimv_rec.exception_yn);
843: okc_util.print_trace(1, 'Priced Item Y/N = '||lx_cimv_rec.priced_item_yn);
844: END IF;
845:
838: okc_util.print_trace(1, 'Object1 Id2 = '||lx_cimv_rec.object1_id2);
839: okc_util.print_trace(1, 'Object Code = '||lx_cimv_rec.jtot_object1_code);
840: okc_util.print_trace(1, 'No. of Items = '||lx_cimv_rec.number_of_items);
841: okc_util.print_trace(1, 'UoM Code = '||lx_cimv_rec.uom_code);
842: okc_util.print_trace(1, 'EXCEPTION Y/N = '||lx_cimv_rec.exception_yn);
843: okc_util.print_trace(1, 'Priced Item Y/N = '||lx_cimv_rec.priced_item_yn);
844: END IF;
845:
846: IF (l_debug = 'Y') THEN
839: okc_util.print_trace(1, 'Object Code = '||lx_cimv_rec.jtot_object1_code);
840: okc_util.print_trace(1, 'No. of Items = '||lx_cimv_rec.number_of_items);
841: okc_util.print_trace(1, 'UoM Code = '||lx_cimv_rec.uom_code);
842: okc_util.print_trace(1, 'EXCEPTION Y/N = '||lx_cimv_rec.exception_yn);
843: okc_util.print_trace(1, 'Priced Item Y/N = '||lx_cimv_rec.priced_item_yn);
844: END IF;
845:
846: IF (l_debug = 'Y') THEN
847: okc_util.print_trace(1, ' ');
843: okc_util.print_trace(1, 'Priced Item Y/N = '||lx_cimv_rec.priced_item_yn);
844: END IF;
845:
846: IF (l_debug = 'Y') THEN
847: okc_util.print_trace(1, ' ');
848: okc_util.print_trace(1, '================================================');
849: END IF;
850:
851:
844: END IF;
845:
846: IF (l_debug = 'Y') THEN
847: okc_util.print_trace(1, ' ');
848: okc_util.print_trace(1, '================================================');
849: END IF;
850:
851:
852: -- Call to create Child Items for TOP_BASE_LINE
850:
851:
852: -- Call to create Child Items for TOP_BASE_LINE
853: IF (l_debug = 'Y') THEN
854: okc_util.print_trace(1, ' ');
855: okc_util.print_trace(1, ' ');
856: okc_util.print_trace(1, '>START CREATING CHILD RECORDS FOR TOP BASE LINE');
857: okc_util.print_trace(1, '===============================================');
858: END IF;
851:
852: -- Call to create Child Items for TOP_BASE_LINE
853: IF (l_debug = 'Y') THEN
854: okc_util.print_trace(1, ' ');
855: okc_util.print_trace(1, ' ');
856: okc_util.print_trace(1, '>START CREATING CHILD RECORDS FOR TOP BASE LINE');
857: okc_util.print_trace(1, '===============================================');
858: END IF;
859: create_config_sublines(p_source_inf_rec => p_source_inf_rec,
852: -- Call to create Child Items for TOP_BASE_LINE
853: IF (l_debug = 'Y') THEN
854: okc_util.print_trace(1, ' ');
855: okc_util.print_trace(1, ' ');
856: okc_util.print_trace(1, '>START CREATING CHILD RECORDS FOR TOP BASE LINE');
857: okc_util.print_trace(1, '===============================================');
858: END IF;
859: create_config_sublines(p_source_inf_rec => p_source_inf_rec,
860: p_parent_clev_rec => lx_clev_rec ,
853: IF (l_debug = 'Y') THEN
854: okc_util.print_trace(1, ' ');
855: okc_util.print_trace(1, ' ');
856: okc_util.print_trace(1, '>START CREATING CHILD RECORDS FOR TOP BASE LINE');
857: okc_util.print_trace(1, '===============================================');
858: END IF;
859: create_config_sublines(p_source_inf_rec => p_source_inf_rec,
860: p_parent_clev_rec => lx_clev_rec ,
861: p_parent_cimv_rec => lx_cimv_rec,
875: p_token4_value => G_NORMAL_LINE
876: );
877: END IF;
878: IF (l_debug = 'Y') THEN
879: okc_util.print_trace(1, '
881: okc_util.print_trace(1, ' ');
882: okc_util.print_trace(1, ' ');
883: END IF;
876: );
877: END IF;
878: IF (l_debug = 'Y') THEN
879: okc_util.print_trace(1, '
881: okc_util.print_trace(1, ' ');
882: okc_util.print_trace(1, ' ');
883: END IF;
884:
877: END IF;
878: IF (l_debug = 'Y') THEN
879: okc_util.print_trace(1, '
881: okc_util.print_trace(1, ' ');
882: okc_util.print_trace(1, ' ');
883: END IF;
884:
885: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
878: IF (l_debug = 'Y') THEN
879: okc_util.print_trace(1, '
881: okc_util.print_trace(1, ' ');
882: okc_util.print_trace(1, ' ');
883: END IF;
884:
885: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
886: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
893: xmodel_clev_rec.price_negotiated := rolledup_price_negotiated;
894: -- TO Update CONFIG_TOP_MODEL_LINE_ID on TOP_MODEL_LINE
895: xmodel_clev_rec.config_top_model_line_id := lx_clev_rec.config_top_model_line_id;
896: IF (l_debug = 'Y') THEN
897: okc_util.print_trace(1, ' ');
898: okc_util.print_trace(1, ' ');
899: okc_util.print_trace(1, '>START UPDATING TOP_MODEL_LINE ROLLEDUP PRICE');
900: okc_util.print_trace(1, '=============================================');
901: okc_util.print_trace(1, '-----------------------------------------------------------------');
894: -- TO Update CONFIG_TOP_MODEL_LINE_ID on TOP_MODEL_LINE
895: xmodel_clev_rec.config_top_model_line_id := lx_clev_rec.config_top_model_line_id;
896: IF (l_debug = 'Y') THEN
897: okc_util.print_trace(1, ' ');
898: okc_util.print_trace(1, ' ');
899: okc_util.print_trace(1, '>START UPDATING TOP_MODEL_LINE ROLLEDUP PRICE');
900: okc_util.print_trace(1, '=============================================');
901: okc_util.print_trace(1, '-----------------------------------------------------------------');
902: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
895: xmodel_clev_rec.config_top_model_line_id := lx_clev_rec.config_top_model_line_id;
896: IF (l_debug = 'Y') THEN
897: okc_util.print_trace(1, ' ');
898: okc_util.print_trace(1, ' ');
899: okc_util.print_trace(1, '>START UPDATING TOP_MODEL_LINE ROLLEDUP PRICE');
900: okc_util.print_trace(1, '=============================================');
901: okc_util.print_trace(1, '-----------------------------------------------------------------');
902: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
903: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
896: IF (l_debug = 'Y') THEN
897: okc_util.print_trace(1, ' ');
898: okc_util.print_trace(1, ' ');
899: okc_util.print_trace(1, '>START UPDATING TOP_MODEL_LINE ROLLEDUP PRICE');
900: okc_util.print_trace(1, '=============================================');
901: okc_util.print_trace(1, '-----------------------------------------------------------------');
902: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
903: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
904: okc_util.print_trace(1, '-----------------------------------------------------------------');
897: okc_util.print_trace(1, ' ');
898: okc_util.print_trace(1, ' ');
899: okc_util.print_trace(1, '>START UPDATING TOP_MODEL_LINE ROLLEDUP PRICE');
900: okc_util.print_trace(1, '=============================================');
901: okc_util.print_trace(1, '-----------------------------------------------------------------');
902: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
903: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
904: okc_util.print_trace(1, '-----------------------------------------------------------------');
905: okc_util.print_trace(1, 'Rolled Up Line List Price : '||model_clev_rec.line_list_price );
898: okc_util.print_trace(1, ' ');
899: okc_util.print_trace(1, '>START UPDATING TOP_MODEL_LINE ROLLEDUP PRICE');
900: okc_util.print_trace(1, '=============================================');
901: okc_util.print_trace(1, '-----------------------------------------------------------------');
902: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
903: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
904: okc_util.print_trace(1, '-----------------------------------------------------------------');
905: okc_util.print_trace(1, 'Rolled Up Line List Price : '||model_clev_rec.line_list_price );
906: okc_util.print_trace(1, 'Rolled Up Price Negotiated : '||model_clev_rec.price_negotiated);
899: okc_util.print_trace(1, '>START UPDATING TOP_MODEL_LINE ROLLEDUP PRICE');
900: okc_util.print_trace(1, '=============================================');
901: okc_util.print_trace(1, '-----------------------------------------------------------------');
902: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
903: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
904: okc_util.print_trace(1, '-----------------------------------------------------------------');
905: okc_util.print_trace(1, 'Rolled Up Line List Price : '||model_clev_rec.line_list_price );
906: okc_util.print_trace(1, 'Rolled Up Price Negotiated : '||model_clev_rec.price_negotiated);
907: okc_util.print_trace(1, '--------------------------------------------------------');
900: okc_util.print_trace(1, '=============================================');
901: okc_util.print_trace(1, '-----------------------------------------------------------------');
902: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
903: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
904: okc_util.print_trace(1, '-----------------------------------------------------------------');
905: okc_util.print_trace(1, 'Rolled Up Line List Price : '||model_clev_rec.line_list_price );
906: okc_util.print_trace(1, 'Rolled Up Price Negotiated : '||model_clev_rec.price_negotiated);
907: okc_util.print_trace(1, '--------------------------------------------------------');
908: okc_util.print_trace(1, '>START - ******* OKC_CONTRACT_PUB.UPDATE_CONTRACT_LINE -');
901: okc_util.print_trace(1, '-----------------------------------------------------------------');
902: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
903: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
904: okc_util.print_trace(1, '-----------------------------------------------------------------');
905: okc_util.print_trace(1, 'Rolled Up Line List Price : '||model_clev_rec.line_list_price );
906: okc_util.print_trace(1, 'Rolled Up Price Negotiated : '||model_clev_rec.price_negotiated);
907: okc_util.print_trace(1, '--------------------------------------------------------');
908: okc_util.print_trace(1, '>START - ******* OKC_CONTRACT_PUB.UPDATE_CONTRACT_LINE -');
909: END IF;
902: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
903: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
904: okc_util.print_trace(1, '-----------------------------------------------------------------');
905: okc_util.print_trace(1, 'Rolled Up Line List Price : '||model_clev_rec.line_list_price );
906: okc_util.print_trace(1, 'Rolled Up Price Negotiated : '||model_clev_rec.price_negotiated);
907: okc_util.print_trace(1, '--------------------------------------------------------');
908: okc_util.print_trace(1, '>START - ******* OKC_CONTRACT_PUB.UPDATE_CONTRACT_LINE -');
909: END IF;
910:
903: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
904: okc_util.print_trace(1, '-----------------------------------------------------------------');
905: okc_util.print_trace(1, 'Rolled Up Line List Price : '||model_clev_rec.line_list_price );
906: okc_util.print_trace(1, 'Rolled Up Price Negotiated : '||model_clev_rec.price_negotiated);
907: okc_util.print_trace(1, '--------------------------------------------------------');
908: okc_util.print_trace(1, '>START - ******* OKC_CONTRACT_PUB.UPDATE_CONTRACT_LINE -');
909: END IF;
910:
911: okc_contract_pub.update_contract_line(p_api_version => 1
904: okc_util.print_trace(1, '-----------------------------------------------------------------');
905: okc_util.print_trace(1, 'Rolled Up Line List Price : '||model_clev_rec.line_list_price );
906: okc_util.print_trace(1, 'Rolled Up Price Negotiated : '||model_clev_rec.price_negotiated);
907: okc_util.print_trace(1, '--------------------------------------------------------');
908: okc_util.print_trace(1, '>START - ******* OKC_CONTRACT_PUB.UPDATE_CONTRACT_LINE -');
909: END IF;
910:
911: okc_contract_pub.update_contract_line(p_api_version => 1
912: ,p_init_msg_list => OKC_API.G_FALSE
928: p_token2_value => p_source_inf_rec.line_number
929: );
930: END IF;
931: IF (l_debug = 'Y') THEN
932: okc_util.print_trace(1, '
934: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
935: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
936: okc_util.print_trace(1, '----------------------------');
929: );
930: END IF;
931: IF (l_debug = 'Y') THEN
932: okc_util.print_trace(1, '
934: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
935: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
936: okc_util.print_trace(1, '----------------------------');
937: END IF;
930: END IF;
931: IF (l_debug = 'Y') THEN
932: okc_util.print_trace(1, '
934: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
935: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
936: okc_util.print_trace(1, '----------------------------');
937: END IF;
938: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
931: IF (l_debug = 'Y') THEN
932: okc_util.print_trace(1, '
934: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
935: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
936: okc_util.print_trace(1, '----------------------------');
937: END IF;
938: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
939: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
932: okc_util.print_trace(1, '
934: okc_util.print_trace(1, 'Context org_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORG_ID'));
935: okc_util.print_trace(1, 'Context organization_id = '|| SYS_CONTEXT('OKC_CONTEXT', 'ORGANIZATION_ID'));
936: okc_util.print_trace(1, '----------------------------');
937: END IF;
938: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
939: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
940: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
941: RAISE OKC_API.G_EXCEPTION_ERROR;
942: END IF;
943:
944: IF (l_debug = 'Y') THEN
945: okc_util.print_trace(0, 'Normal Exit From Configurator API');
946: END IF;
947: EXCEPTION
948: WHEN OTHERS THEN
949: -- store SQL error message on message stack for caller
953: SQLCODE,
954: 'SQLERRM',
955: SQLERRM);
956: IF (l_debug = 'Y') THEN
957: okc_util.print_trace(0, 'Abnormal Exit From Configurator API');
958: END IF;
959: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
960: END create_k_config_lines;
961:
1009:
1010: BEGIN
1011:
1012: IF (l_debug = 'Y') THEN
1013: okc_util.print_trace(2,' ');
1014: okc_util.print_trace(2,' START: OKC_OC_INT_CONFIG_PVT.quote_line_relationship ');
1015: okc_util.print_trace(2,' ');
1016: END IF;
1017:
1010: BEGIN
1011:
1012: IF (l_debug = 'Y') THEN
1013: okc_util.print_trace(2,' ');
1014: okc_util.print_trace(2,' START: OKC_OC_INT_CONFIG_PVT.quote_line_relationship ');
1015: okc_util.print_trace(2,' ');
1016: END IF;
1017:
1018:
1011:
1012: IF (l_debug = 'Y') THEN
1013: okc_util.print_trace(2,' ');
1014: okc_util.print_trace(2,' START: OKC_OC_INT_CONFIG_PVT.quote_line_relationship ');
1015: okc_util.print_trace(2,' ');
1016: END IF;
1017:
1018:
1019: --
1027:
1028: IF px_k2q_line_tbl.FIRST IS NOT NULL THEN
1029: FOR i IN px_k2q_line_tbl.FIRST.. px_k2q_line_tbl.LAST LOOP
1030: IF (l_debug = 'Y') THEN
1031: okc_util.print_trace(2,' px_k2q_line_tbl('||i||').q_item_type_code = '||px_k2q_line_tbl(i).q_item_type_code);
1032: END IF;
1033:
1034: IF px_k2q_line_tbl(i).q_item_type_code = g_aso_model_item THEN -- 'MDL'
1035: IF (l_debug = 'Y') THEN
1032: END IF;
1033:
1034: IF px_k2q_line_tbl(i).q_item_type_code = g_aso_model_item THEN -- 'MDL'
1035: IF (l_debug = 'Y') THEN
1036: okc_util.print_trace(2,'Inside item type code = MDL check ');
1037: END IF;
1038: NULL; -- No relation has to be created for the Top model line
1039: ELSIF
1040: px_k2q_line_tbl(i).q_item_type_code = g_aso_config_item THEN -- 'CFG'
1039: ELSIF
1040: px_k2q_line_tbl(i).q_item_type_code = g_aso_config_item THEN -- 'CFG'
1041:
1042: IF (l_debug = 'Y') THEN
1043: okc_util.print_trace(2,'Inside item type code = CFG check ');
1044: END IF;
1045: --
1046: -- Need to check the operation code of the config item
1047: --
1047: --
1048: IF px_qte_line_tbl(px_k2q_line_tbl(i).q_line_idx).operation_code = g_aso_op_code_create THEN
1049:
1050: IF (l_debug = 'Y') THEN
1051: okc_util.print_trace(2,'Oper code of config item = '||px_qte_line_tbl(px_k2q_line_tbl(i).q_line_idx).operation_code);
1052: END IF;
1053:
1054: p := p + 1;
1055: l_line_rltship_tab(p).operation_code := g_aso_op_code_create;
1065:
1066: -- Need to check on the operation code of the quote line of the parent line
1067:
1068: IF (l_debug = 'Y') THEN
1069: okc_util.print_trace(2,'Checking on the oper code of parent line');
1070: END IF;
1071:
1072: IF px_qte_line_tbl(px_k2q_line_tbl(k).q_line_idx).operation_code = g_aso_op_code_create THEN
1073:
1073:
1074: l_line_rltship_tab(p).qte_line_index := px_k2q_line_tbl(k).q_line_idx;
1075:
1076: IF (l_debug = 'Y') THEN
1077: okc_util.print_trace(2,'Oper code of parent line is CREATE - q_line_idx found');
1078: END IF;
1079: ELSE
1080: l_line_rltship_tab(p).quote_line_id := px_qte_line_tbl(px_k2q_line_tbl(k).q_line_idx).quote_line_id;
1081: IF (l_debug = 'Y') THEN
1078: END IF;
1079: ELSE
1080: l_line_rltship_tab(p).quote_line_id := px_qte_line_tbl(px_k2q_line_tbl(k).q_line_idx).quote_line_id;
1081: IF (l_debug = 'Y') THEN
1082: okc_util.print_trace(2,'Oper code of parent line is UPDATE - q_line_id found');
1083: END IF;
1084:
1085: END IF; -- IF px_qte_line_tbl(px_k2q_line_tbl(k).q_line_idx
1086:
1088: END IF; -- IF px_k2q_line_tbl(k).k_line_id
1089: END LOOP; -- FOR k in px_k2q_line_tbl.FIRST..
1090:
1091: IF (l_debug = 'Y') THEN
1092: okc_util.print_trace(2,' ');
1093: okc_util.print_trace(2,' Values in the l_line_rltship_tab for the item type code CFG and operation code create is ');
1094: okc_util.print_trace(2,' ');
1095: okc_util.print_trace(2,'Operation code = '||l_line_rltship_tab(p).operation_code);
1096: okc_util.print_trace(2,'Rltd qte line idx= '||l_line_rltship_tab(p).related_qte_line_index);
1089: END LOOP; -- FOR k in px_k2q_line_tbl.FIRST..
1090:
1091: IF (l_debug = 'Y') THEN
1092: okc_util.print_trace(2,' ');
1093: okc_util.print_trace(2,' Values in the l_line_rltship_tab for the item type code CFG and operation code create is ');
1094: okc_util.print_trace(2,' ');
1095: okc_util.print_trace(2,'Operation code = '||l_line_rltship_tab(p).operation_code);
1096: okc_util.print_trace(2,'Rltd qte line idx= '||l_line_rltship_tab(p).related_qte_line_index);
1097: okc_util.print_trace(2,'Rltshp type code = '||l_line_rltship_tab(p).relationship_type_code);
1090:
1091: IF (l_debug = 'Y') THEN
1092: okc_util.print_trace(2,' ');
1093: okc_util.print_trace(2,' Values in the l_line_rltship_tab for the item type code CFG and operation code create is ');
1094: okc_util.print_trace(2,' ');
1095: okc_util.print_trace(2,'Operation code = '||l_line_rltship_tab(p).operation_code);
1096: okc_util.print_trace(2,'Rltd qte line idx= '||l_line_rltship_tab(p).related_qte_line_index);
1097: okc_util.print_trace(2,'Rltshp type code = '||l_line_rltship_tab(p).relationship_type_code);
1098: okc_util.print_trace(2,'Qte line index = '||l_line_rltship_tab(p).qte_line_index);
1091: IF (l_debug = 'Y') THEN
1092: okc_util.print_trace(2,' ');
1093: okc_util.print_trace(2,' Values in the l_line_rltship_tab for the item type code CFG and operation code create is ');
1094: okc_util.print_trace(2,' ');
1095: okc_util.print_trace(2,'Operation code = '||l_line_rltship_tab(p).operation_code);
1096: okc_util.print_trace(2,'Rltd qte line idx= '||l_line_rltship_tab(p).related_qte_line_index);
1097: okc_util.print_trace(2,'Rltshp type code = '||l_line_rltship_tab(p).relationship_type_code);
1098: okc_util.print_trace(2,'Qte line index = '||l_line_rltship_tab(p).qte_line_index);
1099: okc_util.print_trace(2,'Qte line id = '||l_line_rltship_tab(p).quote_line_id);
1092: okc_util.print_trace(2,' ');
1093: okc_util.print_trace(2,' Values in the l_line_rltship_tab for the item type code CFG and operation code create is ');
1094: okc_util.print_trace(2,' ');
1095: okc_util.print_trace(2,'Operation code = '||l_line_rltship_tab(p).operation_code);
1096: okc_util.print_trace(2,'Rltd qte line idx= '||l_line_rltship_tab(p).related_qte_line_index);
1097: okc_util.print_trace(2,'Rltshp type code = '||l_line_rltship_tab(p).relationship_type_code);
1098: okc_util.print_trace(2,'Qte line index = '||l_line_rltship_tab(p).qte_line_index);
1099: okc_util.print_trace(2,'Qte line id = '||l_line_rltship_tab(p).quote_line_id);
1100: END IF;
1093: okc_util.print_trace(2,' Values in the l_line_rltship_tab for the item type code CFG and operation code create is ');
1094: okc_util.print_trace(2,' ');
1095: okc_util.print_trace(2,'Operation code = '||l_line_rltship_tab(p).operation_code);
1096: okc_util.print_trace(2,'Rltd qte line idx= '||l_line_rltship_tab(p).related_qte_line_index);
1097: okc_util.print_trace(2,'Rltshp type code = '||l_line_rltship_tab(p).relationship_type_code);
1098: okc_util.print_trace(2,'Qte line index = '||l_line_rltship_tab(p).qte_line_index);
1099: okc_util.print_trace(2,'Qte line id = '||l_line_rltship_tab(p).quote_line_id);
1100: END IF;
1101:
1094: okc_util.print_trace(2,' ');
1095: okc_util.print_trace(2,'Operation code = '||l_line_rltship_tab(p).operation_code);
1096: okc_util.print_trace(2,'Rltd qte line idx= '||l_line_rltship_tab(p).related_qte_line_index);
1097: okc_util.print_trace(2,'Rltshp type code = '||l_line_rltship_tab(p).relationship_type_code);
1098: okc_util.print_trace(2,'Qte line index = '||l_line_rltship_tab(p).qte_line_index);
1099: okc_util.print_trace(2,'Qte line id = '||l_line_rltship_tab(p).quote_line_id);
1100: END IF;
1101:
1102: ELSE -- px_qte_line_tbl(px_k2q_line_tbl(i).q_line_idx).operation_code ( UPDATE )
1095: okc_util.print_trace(2,'Operation code = '||l_line_rltship_tab(p).operation_code);
1096: okc_util.print_trace(2,'Rltd qte line idx= '||l_line_rltship_tab(p).related_qte_line_index);
1097: okc_util.print_trace(2,'Rltshp type code = '||l_line_rltship_tab(p).relationship_type_code);
1098: okc_util.print_trace(2,'Qte line index = '||l_line_rltship_tab(p).qte_line_index);
1099: okc_util.print_trace(2,'Qte line id = '||l_line_rltship_tab(p).quote_line_id);
1100: END IF;
1101:
1102: ELSE -- px_qte_line_tbl(px_k2q_line_tbl(i).q_line_idx).operation_code ( UPDATE )
1103:
1101:
1102: ELSE -- px_qte_line_tbl(px_k2q_line_tbl(i).q_line_idx).operation_code ( UPDATE )
1103:
1104: IF (l_debug = 'Y') THEN
1105: okc_util.print_trace(2,'Oper code of config item UPDATE');
1106: END IF;
1107:
1108: p := p + 1;
1109: --
1127:
1128: l_line_rltship_tab(p).qte_line_index := px_k2q_line_tbl(k).q_line_idx;
1129:
1130: IF (l_debug = 'Y') THEN
1131: okc_util.print_trace(2,'Oper code of parent line is CREATE - q_line_idx found');
1132: END IF;
1133: ELSE
1134: l_line_rltship_tab(p).quote_line_id := px_qte_line_tbl(px_k2q_line_tbl(k).q_line_idx).quote_line_id;
1135: IF (l_debug = 'Y') THEN
1132: END IF;
1133: ELSE
1134: l_line_rltship_tab(p).quote_line_id := px_qte_line_tbl(px_k2q_line_tbl(k).q_line_idx).quote_line_id;
1135: IF (l_debug = 'Y') THEN
1136: okc_util.print_trace(2,'Oper code of parent line is UPDATE - q_line_id found');
1137: END IF;
1138:
1139: END IF; -- IF px_qte_line_tbl(px_k2q_line_tbl(k).q_line_idx
1140:
1142: END IF; -- IF px_k2q_line_tbl(k).k_line_id
1143: END LOOP; -- FOR k in px_k2q_line_tbl.FIRST..
1144:
1145: IF (l_debug = 'Y') THEN
1146: okc_util.print_trace(2,' ');
1147: okc_util.print_trace(2,' Values in the l_line_rltship_tab for the item type code CFG and operation code update is ');
1148: okc_util.print_trace(2,' ');
1149: okc_util.print_trace(2,'Rltd qte line id = '||l_line_rltship_tab(p).related_quote_line_id);
1150: okc_util.print_trace(2,'Rltshp type code = '||l_line_rltship_tab(p).relationship_type_code);
1143: END LOOP; -- FOR k in px_k2q_line_tbl.FIRST..
1144:
1145: IF (l_debug = 'Y') THEN
1146: okc_util.print_trace(2,' ');
1147: okc_util.print_trace(2,' Values in the l_line_rltship_tab for the item type code CFG and operation code update is ');
1148: okc_util.print_trace(2,' ');
1149: okc_util.print_trace(2,'Rltd qte line id = '||l_line_rltship_tab(p).related_quote_line_id);
1150: okc_util.print_trace(2,'Rltshp type code = '||l_line_rltship_tab(p).relationship_type_code);
1151: okc_util.print_trace(2,'Qte line index = '||l_line_rltship_tab(p).qte_line_index);
1144:
1145: IF (l_debug = 'Y') THEN
1146: okc_util.print_trace(2,' ');
1147: okc_util.print_trace(2,' Values in the l_line_rltship_tab for the item type code CFG and operation code update is ');
1148: okc_util.print_trace(2,' ');
1149: okc_util.print_trace(2,'Rltd qte line id = '||l_line_rltship_tab(p).related_quote_line_id);
1150: okc_util.print_trace(2,'Rltshp type code = '||l_line_rltship_tab(p).relationship_type_code);
1151: okc_util.print_trace(2,'Qte line index = '||l_line_rltship_tab(p).qte_line_index);
1152: okc_util.print_trace(2,'Qte line id = '||l_line_rltship_tab(p).quote_line_id);
1145: IF (l_debug = 'Y') THEN
1146: okc_util.print_trace(2,' ');
1147: okc_util.print_trace(2,' Values in the l_line_rltship_tab for the item type code CFG and operation code update is ');
1148: okc_util.print_trace(2,' ');
1149: okc_util.print_trace(2,'Rltd qte line id = '||l_line_rltship_tab(p).related_quote_line_id);
1150: okc_util.print_trace(2,'Rltshp type code = '||l_line_rltship_tab(p).relationship_type_code);
1151: okc_util.print_trace(2,'Qte line index = '||l_line_rltship_tab(p).qte_line_index);
1152: okc_util.print_trace(2,'Qte line id = '||l_line_rltship_tab(p).quote_line_id);
1153: END IF;
1146: okc_util.print_trace(2,' ');
1147: okc_util.print_trace(2,' Values in the l_line_rltship_tab for the item type code CFG and operation code update is ');
1148: okc_util.print_trace(2,' ');
1149: okc_util.print_trace(2,'Rltd qte line id = '||l_line_rltship_tab(p).related_quote_line_id);
1150: okc_util.print_trace(2,'Rltshp type code = '||l_line_rltship_tab(p).relationship_type_code);
1151: okc_util.print_trace(2,'Qte line index = '||l_line_rltship_tab(p).qte_line_index);
1152: okc_util.print_trace(2,'Qte line id = '||l_line_rltship_tab(p).quote_line_id);
1153: END IF;
1154: --
1147: okc_util.print_trace(2,' Values in the l_line_rltship_tab for the item type code CFG and operation code update is ');
1148: okc_util.print_trace(2,' ');
1149: okc_util.print_trace(2,'Rltd qte line id = '||l_line_rltship_tab(p).related_quote_line_id);
1150: okc_util.print_trace(2,'Rltshp type code = '||l_line_rltship_tab(p).relationship_type_code);
1151: okc_util.print_trace(2,'Qte line index = '||l_line_rltship_tab(p).qte_line_index);
1152: okc_util.print_trace(2,'Qte line id = '||l_line_rltship_tab(p).quote_line_id);
1153: END IF;
1154: --
1155: -- Need to check the existance of a relationship in the ASO_LINE_RELATIONSHIPS table
1148: okc_util.print_trace(2,' ');
1149: okc_util.print_trace(2,'Rltd qte line id = '||l_line_rltship_tab(p).related_quote_line_id);
1150: okc_util.print_trace(2,'Rltshp type code = '||l_line_rltship_tab(p).relationship_type_code);
1151: okc_util.print_trace(2,'Qte line index = '||l_line_rltship_tab(p).qte_line_index);
1152: okc_util.print_trace(2,'Qte line id = '||l_line_rltship_tab(p).quote_line_id);
1153: END IF;
1154: --
1155: -- Need to check the existance of a relationship in the ASO_LINE_RELATIONSHIPS table
1156: -- (i.e. okx_line_relationships_v)
1164: -- Delete the constructed record,because the entry has been found in the table
1165: -- and doesnot require any processing.
1166: --
1167: IF (l_debug = 'Y') THEN
1168: okc_util.print_trace(2,'Validated the existing relationship and deleting the ');
1169: okc_util.print_trace(2,'constructed entry, as no further processing is required');
1170: END IF;
1171:
1172: l_line_rltship_tab.DELETE(p);
1165: -- and doesnot require any processing.
1166: --
1167: IF (l_debug = 'Y') THEN
1168: okc_util.print_trace(2,'Validated the existing relationship and deleting the ');
1169: okc_util.print_trace(2,'constructed entry, as no further processing is required');
1170: END IF;
1171:
1172: l_line_rltship_tab.DELETE(p);
1173: ELSE
1175: -- The record is in the table and it is for a different quote id
1176: -- and since it is an update,it is not valid and so raise an exception
1177: --
1178: IF (l_debug = 'Y') THEN
1179: okc_util.print_trace(2,'Rltn exists for a diff quote id, raising an exception');
1180: END IF;
1181:
1182: OKC_API.set_message(p_app_name => OKC_API.G_APP_NAME,
1183: p_msg_name => 'OKC_UPD_LINERLTN',
1196: -- This is the case of an update and the record is not found
1197: -- Set an error message and raise an exception
1198: --
1199: IF (l_debug = 'Y') THEN
1200: okc_util.print_trace(2,'No rec found while trying to validate the rltnshp, raising an exception');
1201: END IF;
1202: OKC_API.set_message(p_app_name => OKC_API.G_APP_NAME,
1203: p_msg_name => 'OKC_UPD_LINERLTNOTFOUND',
1204: p_token1 => 'RLTDQTELINEID',
1217: ELSIF -- px_k2q_line_tbl(i).q_item_type_code -- CFG
1218:
1219: px_k2q_line_tbl(i).q_item_type_code = g_aso_service_item THEN -- 'SRV' -- Bug 1970133
1220: IF (l_debug = 'Y') THEN
1221: okc_util.print_trace(2,'px_qte_line_tbl - operation code = '||px_qte_line_tbl(px_k2q_line_tbl(i).q_line_idx).operation_code);
1222: END IF;
1223:
1224: IF px_qte_line_tbl(px_k2q_line_tbl(i).q_line_idx).operation_code = g_aso_op_code_create THEN
1225:
1229: -- Loop through the px_qte_line_dtl_tbl to retrieve the attached index k
1230: -- using px_qte_line_tbl(px_k2q_line_tbl(i).q_line_idx)
1231: --
1232: IF (l_debug = 'Y') THEN
1233: okc_util.print_trace(2,'Looping through through the px_qte_line_dtl_tbl to retrieve the attached QDL');
1234: END IF;
1235: IF px_qte_line_dtl_tbl.FIRST IS NOT NULL THEN
1236: FOR k IN px_qte_line_dtl_tbl.FIRST..px_qte_line_dtl_tbl.LAST LOOP
1237:
1245:
1246: IF NVL(px_qte_line_dtl_tbl(k).service_ref_qte_line_index,OKC_API.G_MISS_NUM) <>
1247: OKC_API.G_MISS_NUM THEN
1248: IF (l_debug = 'Y') THEN
1249: okc_util.print_trace(2,'Create the relationship for the cov line using index');
1250: END IF;
1251: p := p+1;
1252: l_line_rltship_tab(p).operation_code := g_aso_op_code_create;
1253: l_line_rltship_tab(p).related_qte_line_index := px_k2q_line_tbl(i).q_line_idx;
1254: l_line_rltship_tab(p).relationship_type_code := l_service_rltship_code; -- SERVICE
1255: l_line_rltship_tab(p).qte_line_index := px_qte_line_dtl_tbl(k).service_ref_qte_line_index;
1256:
1257: IF (l_debug = 'Y') THEN
1258: okc_util.print_trace(2,'Quote line index = '||l_line_rltship_tab(p).qte_line_index);
1259: END IF;
1260:
1261: ELSE -- ( update )need to use the id of the covered line
1262:
1260:
1261: ELSE -- ( update )need to use the id of the covered line
1262:
1263: IF (l_debug = 'Y') THEN
1264: okc_util.print_trace(2,'Create the relationship for the cov line using id');
1265: END IF;
1266:
1267: p := p+1;
1268: l_line_rltship_tab(p).operation_code := g_aso_op_code_create;
1270: l_line_rltship_tab(p).relationship_type_code := l_service_rltship_code; -- SERVICE
1271: l_line_rltship_tab(p).quote_line_id := px_qte_line_dtl_tbl(k).service_ref_line_id;
1272:
1273: IF (l_debug = 'Y') THEN
1274: okc_util.print_trace(2,'Quote line id = '||l_line_rltship_tab(p).quote_line_id);
1275: END IF;
1276:
1277: END IF; -- IF NVL(px_qte_line_dtl_tbl...
1278:
1276:
1277: END IF; -- IF NVL(px_qte_line_dtl_tbl...
1278:
1279: IF (l_debug = 'Y') THEN
1280: okc_util.print_trace(2,'Operation code = '||l_line_rltship_tab(p).operation_code);
1281: okc_util.print_trace(2,'Rltd qte line idx = '||l_line_rltship_tab(p).related_qte_line_index);
1282: okc_util.print_trace(2,'rltshp type code = '||l_line_rltship_tab(p).relationship_type_code);
1283: END IF;
1284:
1277: END IF; -- IF NVL(px_qte_line_dtl_tbl...
1278:
1279: IF (l_debug = 'Y') THEN
1280: okc_util.print_trace(2,'Operation code = '||l_line_rltship_tab(p).operation_code);
1281: okc_util.print_trace(2,'Rltd qte line idx = '||l_line_rltship_tab(p).related_qte_line_index);
1282: okc_util.print_trace(2,'rltshp type code = '||l_line_rltship_tab(p).relationship_type_code);
1283: END IF;
1284:
1285: END IF; -- IF px_qte_line_dtl_tbl(k).service_ref_type_code = okc_oc_int_ktq_pvt.g_qte_ref_quote
1278:
1279: IF (l_debug = 'Y') THEN
1280: okc_util.print_trace(2,'Operation code = '||l_line_rltship_tab(p).operation_code);
1281: okc_util.print_trace(2,'Rltd qte line idx = '||l_line_rltship_tab(p).related_qte_line_index);
1282: okc_util.print_trace(2,'rltshp type code = '||l_line_rltship_tab(p).relationship_type_code);
1283: END IF;
1284:
1285: END IF; -- IF px_qte_line_dtl_tbl(k).service_ref_type_code = okc_oc_int_ktq_pvt.g_qte_ref_quote
1286:
1314: OKC_API.G_MISS_NUM THEN
1315: p := p + 1;
1316: l_line_rltship_tab(p).qte_line_index := px_qte_line_dtl_tbl(k).service_ref_qte_line_index;
1317: IF (l_debug = 'Y') THEN
1318: okc_util.print_trace(2,'Update the relationship for the cov line using index');
1319: END IF;
1320: ELSE
1321: p := p + 1;
1322: l_line_rltship_tab(p).quote_line_id := px_qte_line_dtl_tbl(k).service_ref_line_id;
1320: ELSE
1321: p := p + 1;
1322: l_line_rltship_tab(p).quote_line_id := px_qte_line_dtl_tbl(k).service_ref_line_id;
1323: IF (l_debug = 'Y') THEN
1324: okc_util.print_trace(2,'Update the relationship for the cov line using id');
1325: END IF;
1326: END IF;
1327:
1328: --
1328: --
1329: -- Need to check the existance of any relationship for the service line id
1330: --
1331: IF (l_debug = 'Y') THEN
1332: okc_util.print_trace(2,'Checking the existance of any relationship in okx_line_relationships_v ');
1333: END IF;
1334: OPEN c_qte_line_rlt(px_qte_line_tbl(px_k2q_line_tbl(i).q_line_idx).quote_line_id);
1335: FETCH c_qte_line_rlt INTO l_qte_line_rlt;
1336: IF c_qte_line_rlt%NOTFOUND THEN
1335: FETCH c_qte_line_rlt INTO l_qte_line_rlt;
1336: IF c_qte_line_rlt%NOTFOUND THEN
1337: l_line_rltship_tab(p).operation_code := g_aso_op_code_create;
1338: IF (l_debug = 'Y') THEN
1339: okc_util.print_trace(2,'Didnot find any relationship in okx_line_relationships_v, creating one ');
1340: END IF;
1341: ELSE
1342: l_line_rltship_tab(p).operation_code := g_aso_op_code_update;
1343: l_line_rltship_tab(p).line_relationship_id := l_qte_line_rlt.line_relationship_id;
1341: ELSE
1342: l_line_rltship_tab(p).operation_code := g_aso_op_code_update;
1343: l_line_rltship_tab(p).line_relationship_id := l_qte_line_rlt.line_relationship_id;
1344: IF (l_debug = 'Y') THEN
1345: okc_util.print_trace(2,'Found a relationship in okx_line_relationships_v, updating');
1346: okc_util.print_trace(2,'l_line_rltship_tab('||p||').line_relationship_id = '||l_line_rltship_tab(p).line_relationship_id);
1347: END IF;
1348: END IF;
1349: CLOSE c_qte_line_rlt;
1342: l_line_rltship_tab(p).operation_code := g_aso_op_code_update;
1343: l_line_rltship_tab(p).line_relationship_id := l_qte_line_rlt.line_relationship_id;
1344: IF (l_debug = 'Y') THEN
1345: okc_util.print_trace(2,'Found a relationship in okx_line_relationships_v, updating');
1346: okc_util.print_trace(2,'l_line_rltship_tab('||p||').line_relationship_id = '||l_line_rltship_tab(p).line_relationship_id);
1347: END IF;
1348: END IF;
1349: CLOSE c_qte_line_rlt;
1350:
1350:
1351: l_line_rltship_tab(p).related_quote_line_id := px_qte_line_tbl(px_k2q_line_tbl(i).q_line_idx).quote_line_id;
1352: l_line_rltship_tab(p).relationship_type_code := l_service_rltship_code; -- SERVICE
1353: IF (l_debug = 'Y') THEN
1354: okc_util.print_trace(2,'l_line_rltship_tab('||p||').related_quote_line_id = '||l_line_rltship_tab(p).related_quote_line_id);
1355: okc_util.print_trace(2,'l_line_rltship_tab('||p||').relationship_type_code = '||l_line_rltship_tab(p).relationship_type_code);
1356: END IF;
1357:
1358:
1351: l_line_rltship_tab(p).related_quote_line_id := px_qte_line_tbl(px_k2q_line_tbl(i).q_line_idx).quote_line_id;
1352: l_line_rltship_tab(p).relationship_type_code := l_service_rltship_code; -- SERVICE
1353: IF (l_debug = 'Y') THEN
1354: okc_util.print_trace(2,'l_line_rltship_tab('||p||').related_quote_line_id = '||l_line_rltship_tab(p).related_quote_line_id);
1355: okc_util.print_trace(2,'l_line_rltship_tab('||p||').relationship_type_code = '||l_line_rltship_tab(p).relationship_type_code);
1356: END IF;
1357:
1358:
1359: ELSE -- delete
1366: p := p+1;
1367: l_line_rltship_tab(p).operation_code := g_aso_op_code_delete;
1368: l_line_rltship_tab(p).line_relationship_id := l_qte_line_rlt.line_relationship_id;
1369: IF (l_debug = 'Y') THEN
1370: okc_util.print_trace(2,'Deleting the relationship ');
1371: okc_util.print_trace(2,'l_line_rltship_tab('||p||').line_relationship_id = '||l_line_rltship_tab(p).line_relationship_id);
1372: END IF;
1373:
1374: END IF;
1367: l_line_rltship_tab(p).operation_code := g_aso_op_code_delete;
1368: l_line_rltship_tab(p).line_relationship_id := l_qte_line_rlt.line_relationship_id;
1369: IF (l_debug = 'Y') THEN
1370: okc_util.print_trace(2,'Deleting the relationship ');
1371: okc_util.print_trace(2,'l_line_rltship_tab('||p||').line_relationship_id = '||l_line_rltship_tab(p).line_relationship_id);
1372: END IF;
1373:
1374: END IF;
1375: CLOSE c_qte_line_rlt;