22: -- Out Parameters: x_return_status return Status
23: -------------------------------------------------------------------------------
24: PROCEDURE create_config_sublines(p_source_inf_rec IN SOURCE_INF_REC_TYPE,
25: p_parent_clev_rec IN OUT NOCOPY okc_contract_pub.clev_rec_type,
26: p_parent_cimv_rec IN okc_contract_item_pub.cimv_rec_type,
27: p_line_inf_tab IN OUT NOCOPY line_inf_tbl_type,
28: x_return_status OUT NOCOPY VARCHAR2
29: ) IS
30:
80: l_msg_count NUMBER;
81: l_msg_data VARCHAR2(2000);
82: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
83: child_line_rec c_child_line_info%ROWTYPE;
84: l_child_cimv_rec OKC_CONTRACT_ITEM_PUB.CIMV_REC_TYPE;
85: l_child_clev_rec OKC_CONTRACT_PUB.CLEV_REC_TYPE;
86: lx_child_cimv_rec OKC_CONTRACT_ITEM_PUB.CIMV_REC_TYPE;
87: lx_child_clev_rec OKC_CONTRACT_PUB.CLEV_REC_TYPE;
88: temp_child_cimv_rec OKC_CONTRACT_ITEM_PUB.CIMV_REC_TYPE;
82: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
83: child_line_rec c_child_line_info%ROWTYPE;
84: l_child_cimv_rec OKC_CONTRACT_ITEM_PUB.CIMV_REC_TYPE;
85: l_child_clev_rec OKC_CONTRACT_PUB.CLEV_REC_TYPE;
86: lx_child_cimv_rec OKC_CONTRACT_ITEM_PUB.CIMV_REC_TYPE;
87: lx_child_clev_rec OKC_CONTRACT_PUB.CLEV_REC_TYPE;
88: temp_child_cimv_rec OKC_CONTRACT_ITEM_PUB.CIMV_REC_TYPE;
89: temp_child_clev_rec OKC_CONTRACT_PUB.CLEV_REC_TYPE;
90: l_source_inf_rec SOURCE_INF_REC_TYPE;
84: l_child_cimv_rec OKC_CONTRACT_ITEM_PUB.CIMV_REC_TYPE;
85: l_child_clev_rec OKC_CONTRACT_PUB.CLEV_REC_TYPE;
86: lx_child_cimv_rec OKC_CONTRACT_ITEM_PUB.CIMV_REC_TYPE;
87: lx_child_clev_rec OKC_CONTRACT_PUB.CLEV_REC_TYPE;
88: temp_child_cimv_rec OKC_CONTRACT_ITEM_PUB.CIMV_REC_TYPE;
89: temp_child_clev_rec OKC_CONTRACT_PUB.CLEV_REC_TYPE;
90: l_source_inf_rec SOURCE_INF_REC_TYPE;
91: l_subline_num NUMBER :=0;
92: line_inf_tab_counter NUMBER :=0;
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
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
296: ,x_return_status => l_return_status
297: ,x_msg_count => l_msg_count
298: ,x_msg_data => l_msg_data
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
414: -- x_clev_rec Contract Line rec of Top line
415: --------------------------------------------------------------------------------
416: Procedure create_k_config_lines( p_source_inf_rec IN SOURCE_INF_REC_TYPE,
417: p_clev_rec IN OKC_CONTRACT_PUB.CLEV_REC_TYPE,
418: p_cimv_rec IN OKC_CONTRACT_ITEM_PUB.CIMV_REC_TYPE,
419: p_line_inf_tab IN OUT NOCOPY LINE_INF_TBL_TYPE,
420: x_clev_rec OUT NOCOPY OKC_CONTRACT_PUB.CLEV_REC_TYPE,
421: x_return_status OUT NOCOPY VARCHAR2
422: ) IS
424: l_clev_rec OKC_CONTRACT_PUB.CLEV_REC_TYPE;
425: model_clev_rec OKC_CONTRACT_PUB.CLEV_REC_TYPE;
426: xmodel_clev_rec OKC_CONTRACT_PUB.CLEV_REC_TYPE;
427: lx_clev_rec OKC_CONTRACT_PUB.CLEV_REC_TYPE;
428: l_cimv_rec OKC_CONTRACT_ITEM_PUB.CIMV_REC_TYPE;
429: model_cimv_rec OKC_CONTRACT_ITEM_PUB.CIMV_REC_TYPE;
430: lx_cimv_rec OKC_CONTRACT_ITEM_PUB.CIMV_REC_TYPE;
431: line_inf_tab_counter NUMBER := 0;
432: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
425: model_clev_rec OKC_CONTRACT_PUB.CLEV_REC_TYPE;
426: xmodel_clev_rec OKC_CONTRACT_PUB.CLEV_REC_TYPE;
427: lx_clev_rec OKC_CONTRACT_PUB.CLEV_REC_TYPE;
428: l_cimv_rec OKC_CONTRACT_ITEM_PUB.CIMV_REC_TYPE;
429: model_cimv_rec OKC_CONTRACT_ITEM_PUB.CIMV_REC_TYPE;
430: lx_cimv_rec OKC_CONTRACT_ITEM_PUB.CIMV_REC_TYPE;
431: line_inf_tab_counter NUMBER := 0;
432: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
433: l_msg_count NUMBER;
426: xmodel_clev_rec OKC_CONTRACT_PUB.CLEV_REC_TYPE;
427: lx_clev_rec OKC_CONTRACT_PUB.CLEV_REC_TYPE;
428: l_cimv_rec OKC_CONTRACT_ITEM_PUB.CIMV_REC_TYPE;
429: model_cimv_rec OKC_CONTRACT_ITEM_PUB.CIMV_REC_TYPE;
430: lx_cimv_rec OKC_CONTRACT_ITEM_PUB.CIMV_REC_TYPE;
431: line_inf_tab_counter NUMBER := 0;
432: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
433: l_msg_count NUMBER;
434: l_msg_data VARCHAR2(2000);
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
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
588: ,x_return_status => l_return_status
589: ,x_msg_count => l_msg_count
590: ,x_msg_data => l_msg_data
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'));
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
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
792: ,x_return_status => l_return_status
793: ,x_msg_count => l_msg_count
794: ,x_msg_data => l_msg_data
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'));