6634: WHEN NO_DATA_FOUND THEN
6635: NULL;
6636: WHEN OTHERS THEN
6637:
6638: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME_OKC
6639: ,p_msg_name => G_UNEXPECTED_ERROR
6640: ,p_token1 => G_SQLCODE_TOKEN
6641: ,p_token1_value => SQLcode
6642: ,p_token2 => G_SQLERRM_TOKEN
6738: p_req_id IN Number,
6739: p_masschange_name IN Varchar2)IS
6740: BEGIN
6741:
6742: OKC_API.SET_MESSAGE(p_app_name => 'OKS',
6743: p_msg_name => 'OKS_MSCHG_NOTIFY_S',
6744: p_token1 => 'PROCESS_TYPE',
6745: p_token1_value => p_process_type,
6746: p_token2 => 'REQUEST_ID',
6848: p_check_yn IN Varchar2 ) IS
6849: l_errbuf VARCHAR2(200);
6850: l_retcode NUMBER;
6851: l_api_version CONSTANT NUMBER := 1.0;
6852: l_init_msg_list VARCHAR2(2000) := OKC_API.G_FALSE;
6853: l_return_status VARCHAR2(1);
6854: l_msg_count NUMBER;
6855: l_msg_data VARCHAR2(2000);
6856:
6875: p_check_yn IN Varchar2 ) IS
6876: l_errbuf VARCHAR2(200);
6877: l_retcode NUMBER;
6878: l_api_version CONSTANT NUMBER := 1.0;
6879: l_init_msg_list VARCHAR2(2000) := OKC_API.G_FALSE;
6880: l_return_status VARCHAR2(1);
6881: l_msg_count NUMBER;
6882: l_msg_data VARCHAR2(2000);
6883:
6900: -----------------------------------------------------------------------------------------
6901: PROCEDURE SUBMIT(ERRBUF OUT NOCOPY VARCHAR2,
6902: RETCODE OUT NOCOPY NUMBER,
6903: p_api_version IN NUMBER,
6904: p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
6905: x_return_status OUT NOCOPY VARCHAR2,
6906: x_msg_count OUT NOCOPY NUMBER,
6907: x_msg_data OUT NOCOPY VARCHAR2,
6908: p_conc_program IN VARCHAR2,
8498: l_start_date := contact_rec.start_date;
8499: END LOOP;
8500:
8501: IF l_ctcv_rec_in.id is NOT NULL
8502: AND l_ctcv_rec_in.id <> OKC_API.G_MISS_NUM then
8503: OKC_CTC_PVT.lock_row(
8504: p_api_version => l_api_version,
8505: p_init_msg_list => l_init_msg_list,
8506: x_return_status => l_return_status,
12448: p_object_version_number IN NUMBER,
12449: x_return_status OUT NOCOPY Varchar2) IS
12450:
12451: l_api_version CONSTANT NUMBER := 1.0;
12452: l_init_msg_list VARCHAR2(2000) := OKC_API.G_FALSE;
12453: l_return_status VARCHAR2(1);
12454: l_msg_count NUMBER;
12455: l_msg_data VARCHAR2(2000);
12456: l_msg_index_out NUMBER;
12468: x_msg_data => l_msg_data,
12469: p_chrv_tbl => l_chrv_tbl_in
12470: );
12471: LOG_MESSAGES('LOCK_CONTRACT_HEADER l_return_status = ' || l_return_status);
12472: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
12473: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
12474: END IF;
12475: x_return_status := l_return_status;
12476: END LOCK_CONTRACT_HEADER;
12477:
12478: PROCEDURE UPDATE_CONTRACT(p_chrv_rec IN okc_contract_pub.chrv_rec_type,
12479: x_return_status OUT NOCOPY VARCHAR2) IS
12480: l_api_version CONSTANT NUMBER := 1.0;
12481: l_init_msg_list VARCHAR2(2000) := OKC_API.G_FALSE;
12482: l_return_status VARCHAR2(1);
12483: l_msg_count NUMBER;
12484: l_msg_data VARCHAR2(2000);
12485: l_msg_index_out NUMBER;
12488:
12489: BEGIN
12490:
12491: LOG_MESSAGES(' UPDATEing Contract, header_id = ' ||p_chrv_rec.id);
12492: x_return_status := OKC_API.G_RET_STS_SUCCESS;
12493:
12494: IF p_chrv_rec.id IS NOT NULL THEN
12495: okc_contract_pub.update_contract_header (
12496: p_api_version => l_api_version,
12502: x_chrv_rec => l_chrv_rec_out );
12503:
12504: LOG_MESSAGES('okc_contract_pub.update_contract_header l_return_status = ' || l_return_status);
12505: x_return_status := l_return_status;
12506: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
12507: LOG_MESSAGES('okc_contract_pub.update_contract_header l_msg_data = ' || l_msg_data);
12508: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
12509: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
12510: LOG_MESSAGES('okc_contract_pub.update_contract_header l_msg_data = ' || l_msg_data);
12504: LOG_MESSAGES('okc_contract_pub.update_contract_header l_return_status = ' || l_return_status);
12505: x_return_status := l_return_status;
12506: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
12507: LOG_MESSAGES('okc_contract_pub.update_contract_header l_msg_data = ' || l_msg_data);
12508: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
12509: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
12510: LOG_MESSAGES('okc_contract_pub.update_contract_header l_msg_data = ' || l_msg_data);
12511: RAISE OKC_API.G_EXCEPTION_ERROR;
12512: END IF;
12505: x_return_status := l_return_status;
12506: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
12507: LOG_MESSAGES('okc_contract_pub.update_contract_header l_msg_data = ' || l_msg_data);
12508: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
12509: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
12510: LOG_MESSAGES('okc_contract_pub.update_contract_header l_msg_data = ' || l_msg_data);
12511: RAISE OKC_API.G_EXCEPTION_ERROR;
12512: END IF;
12513: END IF;
12507: LOG_MESSAGES('okc_contract_pub.update_contract_header l_msg_data = ' || l_msg_data);
12508: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
12509: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
12510: LOG_MESSAGES('okc_contract_pub.update_contract_header l_msg_data = ' || l_msg_data);
12511: RAISE OKC_API.G_EXCEPTION_ERROR;
12512: END IF;
12513: END IF;
12514: END UPDATE_CONTRACT;
12515:
12529: ------------------------------------------------------------------
12530: ---TAPI variables
12531: ------------------------------------------------------------------
12532: l_api_version CONSTANT NUMBER := 1.0;
12533: l_init_msg_list VARCHAR2(2000) := OKC_API.G_FALSE;
12534: l_return_status VARCHAR2(1);
12535: l_msg_count NUMBER;
12536: l_msg_data VARCHAR2(2000);
12537:
12571:
12572: l_oiev_tbl_in(1).name := p_oie_rec.NAME;
12573: l_oiev_tbl_in(1).cop_id := p_class_operation_id;
12574: -- l_oiev_tbl_in(1).status_code := G_OI_STATUS_CODE;
12575: if (p_oie_rec.status_code is NULL) then --OR ( p_oie_rec.status_code = OKC_API.G_MISS_CHAR)) then
12576: l_oiev_tbl_in(1).status_code := G_OI_STATUS_CODE;
12577: else
12578: l_oiev_tbl_in(1).status_code := p_oie_rec.status_code; --G_OI_STATUS_CODE;
12579: end if;
12576: l_oiev_tbl_in(1).status_code := G_OI_STATUS_CODE;
12577: else
12578: l_oiev_tbl_in(1).status_code := p_oie_rec.status_code; --G_OI_STATUS_CODE;
12579: end if;
12580: l_oiev_tbl_in(1).target_chr_id := NULL ; --OKC_API.G_MISS_NUM;
12581: l_oiev_tbl_in(1).object1_id1 := p_oie_rec.update_level_value;
12582: l_oiev_tbl_in(1).object1_id2 := '#';
12583: l_oiev_tbl_in(1).jtot_object1_code := p_oie_rec.update_level;
12584: l_oiev_tbl_in(1).object_version_number := NULL ; --OKC_API.G_MISS_NUM;
12580: l_oiev_tbl_in(1).target_chr_id := NULL ; --OKC_API.G_MISS_NUM;
12581: l_oiev_tbl_in(1).object1_id1 := p_oie_rec.update_level_value;
12582: l_oiev_tbl_in(1).object1_id2 := '#';
12583: l_oiev_tbl_in(1).jtot_object1_code := p_oie_rec.update_level;
12584: l_oiev_tbl_in(1).object_version_number := NULL ; --OKC_API.G_MISS_NUM;
12585: l_oiev_tbl_in(1).created_by := NULL ; --OKC_API.G_MISS_NUM;
12586: l_oiev_tbl_in(1).creation_date := SYSDATE;
12587: l_oiev_tbl_in(1).last_updated_by := NULL ; --OKC_API.G_MISS_NUM;
12588: l_oiev_tbl_in(1).last_update_date := SYSDATE;
12581: l_oiev_tbl_in(1).object1_id1 := p_oie_rec.update_level_value;
12582: l_oiev_tbl_in(1).object1_id2 := '#';
12583: l_oiev_tbl_in(1).jtot_object1_code := p_oie_rec.update_level;
12584: l_oiev_tbl_in(1).object_version_number := NULL ; --OKC_API.G_MISS_NUM;
12585: l_oiev_tbl_in(1).created_by := NULL ; --OKC_API.G_MISS_NUM;
12586: l_oiev_tbl_in(1).creation_date := SYSDATE;
12587: l_oiev_tbl_in(1).last_updated_by := NULL ; --OKC_API.G_MISS_NUM;
12588: l_oiev_tbl_in(1).last_update_date := SYSDATE;
12589: l_oiev_tbl_in(1).last_update_login := NULL ; --OKC_API.G_MISS_NUM;
12583: l_oiev_tbl_in(1).jtot_object1_code := p_oie_rec.update_level;
12584: l_oiev_tbl_in(1).object_version_number := NULL ; --OKC_API.G_MISS_NUM;
12585: l_oiev_tbl_in(1).created_by := NULL ; --OKC_API.G_MISS_NUM;
12586: l_oiev_tbl_in(1).creation_date := SYSDATE;
12587: l_oiev_tbl_in(1).last_updated_by := NULL ; --OKC_API.G_MISS_NUM;
12588: l_oiev_tbl_in(1).last_update_date := SYSDATE;
12589: l_oiev_tbl_in(1).last_update_login := NULL ; --OKC_API.G_MISS_NUM;
12590:
12591: OKC_OPER_INST_PUB.Create_Operation_Instance(
12585: l_oiev_tbl_in(1).created_by := NULL ; --OKC_API.G_MISS_NUM;
12586: l_oiev_tbl_in(1).creation_date := SYSDATE;
12587: l_oiev_tbl_in(1).last_updated_by := NULL ; --OKC_API.G_MISS_NUM;
12588: l_oiev_tbl_in(1).last_update_date := SYSDATE;
12589: l_oiev_tbl_in(1).last_update_login := NULL ; --OKC_API.G_MISS_NUM;
12590:
12591: OKC_OPER_INST_PUB.Create_Operation_Instance(
12592: p_api_version => l_api_version,
12593: p_init_msg_list => l_init_msg_list,
12600:
12601: x_oie_id := l_oiev_tbl_out(1).id;
12602:
12603:
12604: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
12605: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
12606: /* IF l_msg_count > 0
12607: THEN
12608: FOR i in 1..l_msg_count
12601: x_oie_id := l_oiev_tbl_out(1).id;
12602:
12603:
12604: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
12605: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
12606: /* IF l_msg_count > 0
12607: THEN
12608: FOR i in 1..l_msg_count
12609: LOOP
12614: END LOOP;
12615: END IF;
12616: --dbms_output.put_line('Value of l_return_status:'||l_return_status||'l_msg_data='||l_msg_data);
12617: */
12618: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
12619: RAISE OKC_API.G_EXCEPTION_ERROR;
12620: /* IF l_msg_count > 0
12621: THEN
12622: FOR i in 1..l_msg_count
12615: END IF;
12616: --dbms_output.put_line('Value of l_return_status:'||l_return_status||'l_msg_data='||l_msg_data);
12617: */
12618: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
12619: RAISE OKC_API.G_EXCEPTION_ERROR;
12620: /* IF l_msg_count > 0
12621: THEN
12622: FOR i in 1..l_msg_count
12623: LOOP
12627: p_msg_index_out => l_msg_index_out);
12628: END LOOP;
12629: END IF;
12630: --dbms_output.put_line('Value of l_return_status:'||l_return_status||'l_msg_data='||l_msg_data); */
12631: ELSIF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
12632:
12633: IF p_mrd_rec.attribute_name is not null then
12634: l_omrv_rec_in.id := null;
12635: l_omrv_rec_in.oie_id := x_oie_id;
12636: l_omrv_rec_in.ole_id := null;
12637: l_omrv_rec_in.attribute_name := p_mrd_rec.attribute_name;
12638: l_omrv_rec_in.old_value := p_mrd_rec.old_value;
12639: l_omrv_rec_in.new_value := p_mrd_rec.new_value;
12640: l_omrv_rec_in.object_version_number := NULL ; --OKC_API.G_MISS_NUM;
12641: l_omrv_rec_in.created_by := NULL ; --OKC_API.G_MISS_NUM;
12642: l_omrv_rec_in.creation_date := SYSDATE;
12643: -- l_omrv_rec_in.last_updated_by := OKC_API.G_MISS_NUM;
12644: l_omrv_rec_in.last_update_date := SYSDATE;
12637: l_omrv_rec_in.attribute_name := p_mrd_rec.attribute_name;
12638: l_omrv_rec_in.old_value := p_mrd_rec.old_value;
12639: l_omrv_rec_in.new_value := p_mrd_rec.new_value;
12640: l_omrv_rec_in.object_version_number := NULL ; --OKC_API.G_MISS_NUM;
12641: l_omrv_rec_in.created_by := NULL ; --OKC_API.G_MISS_NUM;
12642: l_omrv_rec_in.creation_date := SYSDATE;
12643: -- l_omrv_rec_in.last_updated_by := OKC_API.G_MISS_NUM;
12644: l_omrv_rec_in.last_update_date := SYSDATE;
12645: l_omrv_rec_in.last_update_login := NULL ; --OKC_API.G_MISS_NUM;
12639: l_omrv_rec_in.new_value := p_mrd_rec.new_value;
12640: l_omrv_rec_in.object_version_number := NULL ; --OKC_API.G_MISS_NUM;
12641: l_omrv_rec_in.created_by := NULL ; --OKC_API.G_MISS_NUM;
12642: l_omrv_rec_in.creation_date := SYSDATE;
12643: -- l_omrv_rec_in.last_updated_by := OKC_API.G_MISS_NUM;
12644: l_omrv_rec_in.last_update_date := SYSDATE;
12645: l_omrv_rec_in.last_update_login := NULL ; --OKC_API.G_MISS_NUM;
12646:
12647:
12641: l_omrv_rec_in.created_by := NULL ; --OKC_API.G_MISS_NUM;
12642: l_omrv_rec_in.creation_date := SYSDATE;
12643: -- l_omrv_rec_in.last_updated_by := OKC_API.G_MISS_NUM;
12644: l_omrv_rec_in.last_update_date := SYSDATE;
12645: l_omrv_rec_in.last_update_login := NULL ; --OKC_API.G_MISS_NUM;
12646:
12647:
12648: OKC_OPER_INST_PUB.Create_Masschange_Dtls(
12649: p_api_version => l_api_version,
12655: x_mrdv_rec => l_omrv_rec_out);
12656:
12657: --dbms_output.put_line('Omr status:'||l_return_status);
12658:
12659: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
12660: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
12661: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
12662: RAISE OKC_API.G_EXCEPTION_ERROR;
12663: END IF;
12656:
12657: --dbms_output.put_line('Omr status:'||l_return_status);
12658:
12659: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
12660: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
12661: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
12662: RAISE OKC_API.G_EXCEPTION_ERROR;
12663: END IF;
12664:
12657: --dbms_output.put_line('Omr status:'||l_return_status);
12658:
12659: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
12660: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
12661: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
12662: RAISE OKC_API.G_EXCEPTION_ERROR;
12663: END IF;
12664:
12665: -- x_mrd_id := l_omrv_rec_out.id;
12658:
12659: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
12660: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
12661: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
12662: RAISE OKC_API.G_EXCEPTION_ERROR;
12663: END IF;
12664:
12665: -- x_mrd_id := l_omrv_rec_out.id;
12666:
12670: l_mod_rec_in.ole_id := null;
12671: l_mod_rec_in.mschg_type := null;
12672: l_mod_rec_in.attribute_level := null;
12673: l_mod_rec_in.qa_check_yn := null; --p_mrd_rec.qa_check_yn;
12674: l_mod_rec_in.object_version_number := NULL ; --OKC_API.G_MISS_NUM;
12675: l_mod_rec_in.created_by := NULL ; --OKC_API.G_MISS_NUM;
12676: l_mod_rec_in.creation_date := SYSDATE;
12677: l_mod_rec_in.last_updated_by := NULL ; --OKC_API.G_MISS_NUM;
12678: l_mod_rec_in.last_update_date := SYSDATE;
12671: l_mod_rec_in.mschg_type := null;
12672: l_mod_rec_in.attribute_level := null;
12673: l_mod_rec_in.qa_check_yn := null; --p_mrd_rec.qa_check_yn;
12674: l_mod_rec_in.object_version_number := NULL ; --OKC_API.G_MISS_NUM;
12675: l_mod_rec_in.created_by := NULL ; --OKC_API.G_MISS_NUM;
12676: l_mod_rec_in.creation_date := SYSDATE;
12677: l_mod_rec_in.last_updated_by := NULL ; --OKC_API.G_MISS_NUM;
12678: l_mod_rec_in.last_update_date := SYSDATE;
12679: -- l_mod_rec_in.last_update_login := NULL ; --OKC_API.G_MISS_NUM;
12673: l_mod_rec_in.qa_check_yn := null; --p_mrd_rec.qa_check_yn;
12674: l_mod_rec_in.object_version_number := NULL ; --OKC_API.G_MISS_NUM;
12675: l_mod_rec_in.created_by := NULL ; --OKC_API.G_MISS_NUM;
12676: l_mod_rec_in.creation_date := SYSDATE;
12677: l_mod_rec_in.last_updated_by := NULL ; --OKC_API.G_MISS_NUM;
12678: l_mod_rec_in.last_update_date := SYSDATE;
12679: -- l_mod_rec_in.last_update_login := NULL ; --OKC_API.G_MISS_NUM;
12680: -- l_mod_rec_in.security_group_id := NULL ;
12681: -- l_mod_rec_in.attribute1 := NULL ;
12675: l_mod_rec_in.created_by := NULL ; --OKC_API.G_MISS_NUM;
12676: l_mod_rec_in.creation_date := SYSDATE;
12677: l_mod_rec_in.last_updated_by := NULL ; --OKC_API.G_MISS_NUM;
12678: l_mod_rec_in.last_update_date := SYSDATE;
12679: -- l_mod_rec_in.last_update_login := NULL ; --OKC_API.G_MISS_NUM;
12680: -- l_mod_rec_in.security_group_id := NULL ;
12681: -- l_mod_rec_in.attribute1 := NULL ;
12682: -- l_mod_rec_in.attribute2 := NULL ;
12683: -- l_mod_rec_in.attribute3 := NULL ;
12704:
12705:
12706:
12707:
12708: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
12709: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
12710: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
12711: RAISE OKC_API.G_EXCEPTION_ERROR;
12712: END IF;
12705:
12706:
12707:
12708: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
12709: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
12710: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
12711: RAISE OKC_API.G_EXCEPTION_ERROR;
12712: END IF;
12713:
12706:
12707:
12708: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
12709: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
12710: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
12711: RAISE OKC_API.G_EXCEPTION_ERROR;
12712: END IF;
12713:
12714: end if;
12707:
12708: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
12709: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
12710: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
12711: RAISE OKC_API.G_EXCEPTION_ERROR;
12712: END IF;
12713:
12714: end if;
12715: END IF;
12722: ------------------------------------------------------------------
12723: ---TAPI variables
12724: ------------------------------------------------------------------
12725: l_api_version CONSTANT NUMBER := 1.0;
12726: l_init_msg_list VARCHAR2(2000) := OKC_API.G_FALSE;
12727: l_return_status VARCHAR2(1);
12728: l_msg_count NUMBER;
12729: l_msg_data VARCHAR2(2000);
12730:
12744: WHERE oie_id = p_oie_id;
12745: BEGIN
12746: --dbms_output.put_line('Inside ..');
12747:
12748: l_oiev_tbl_in(1).id := p_oie_rec.oie_id; --OKC_API.G_MISS_CHAR;
12749: l_oiev_tbl_in(1).name := p_oie_rec.NAME; --OKC_API.G_MISS_CHAR;
12750: l_oiev_tbl_in(1).object1_id1 := p_oie_rec.update_level_value;
12751: l_oiev_tbl_in(1).jtot_object1_code := p_oie_rec.update_level;
12752:
12745: BEGIN
12746: --dbms_output.put_line('Inside ..');
12747:
12748: l_oiev_tbl_in(1).id := p_oie_rec.oie_id; --OKC_API.G_MISS_CHAR;
12749: l_oiev_tbl_in(1).name := p_oie_rec.NAME; --OKC_API.G_MISS_CHAR;
12750: l_oiev_tbl_in(1).object1_id1 := p_oie_rec.update_level_value;
12751: l_oiev_tbl_in(1).jtot_object1_code := p_oie_rec.update_level;
12752:
12753:
12764: --dbms_output.put_line('Value of upd_opn_inst l_return_status='||l_return_status);
12765:
12766:
12767: --dbms_output.put_line('oie_id:'||l_oiev_tbl_out(1).id||',status:'||l_return_status);
12768: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
12769: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
12770: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
12771: RAISE OKC_API.G_EXCEPTION_ERROR;
12772: --dbms_output.put_line('Value of l_return_status:'||l_return_status||'l_msg_data='||l_msg_data);
12765:
12766:
12767: --dbms_output.put_line('oie_id:'||l_oiev_tbl_out(1).id||',status:'||l_return_status);
12768: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
12769: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
12770: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
12771: RAISE OKC_API.G_EXCEPTION_ERROR;
12772: --dbms_output.put_line('Value of l_return_status:'||l_return_status||'l_msg_data='||l_msg_data);
12773: ELSIF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
12766:
12767: --dbms_output.put_line('oie_id:'||l_oiev_tbl_out(1).id||',status:'||l_return_status);
12768: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
12769: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
12770: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
12771: RAISE OKC_API.G_EXCEPTION_ERROR;
12772: --dbms_output.put_line('Value of l_return_status:'||l_return_status||'l_msg_data='||l_msg_data);
12773: ELSIF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
12774: */
12767: --dbms_output.put_line('oie_id:'||l_oiev_tbl_out(1).id||',status:'||l_return_status);
12768: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
12769: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
12770: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
12771: RAISE OKC_API.G_EXCEPTION_ERROR;
12772: --dbms_output.put_line('Value of l_return_status:'||l_return_status||'l_msg_data='||l_msg_data);
12773: ELSIF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
12774: */
12775: --dbms_output.put_line('Assigning ..');
12769: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
12770: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
12771: RAISE OKC_API.G_EXCEPTION_ERROR;
12772: --dbms_output.put_line('Value of l_return_status:'||l_return_status||'l_msg_data='||l_msg_data);
12773: ELSIF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
12774: */
12775: --dbms_output.put_line('Assigning ..');
12776:
12777: OPEN Get_line_req(p_mrd_rec.oie_id);
12798: x_mrdv_rec => l_omrv_rec_out);
12799:
12800: --dbms_output.put_line('Omr status:'||l_return_status);
12801:
12802: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
12803: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
12804: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
12805: RAISE OKC_API.G_EXCEPTION_ERROR;
12806: END IF;
12799:
12800: --dbms_output.put_line('Omr status:'||l_return_status);
12801:
12802: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
12803: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
12804: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
12805: RAISE OKC_API.G_EXCEPTION_ERROR;
12806: END IF;
12807: OKC_OPER_INST_PUB.UPdate_Operation_Instance(
12800: --dbms_output.put_line('Omr status:'||l_return_status);
12801:
12802: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
12803: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
12804: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
12805: RAISE OKC_API.G_EXCEPTION_ERROR;
12806: END IF;
12807: OKC_OPER_INST_PUB.UPdate_Operation_Instance(
12808: p_api_version => l_api_version,
12801:
12802: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
12803: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
12804: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
12805: RAISE OKC_API.G_EXCEPTION_ERROR;
12806: END IF;
12807: OKC_OPER_INST_PUB.UPdate_Operation_Instance(
12808: p_api_version => l_api_version,
12809: p_init_msg_list => l_init_msg_list,
12827: ------------------------------------------------------------------
12828: ---TAPI variables
12829: ------------------------------------------------------------------
12830: l_api_version CONSTANT NUMBER := 1.0;
12831: l_init_msg_list VARCHAR2(2000) := OKC_API.G_FALSE;
12832: l_return_status VARCHAR2(1);
12833: l_msg_count NUMBER;
12834: l_msg_data VARCHAR2(2000);
12835:
12875: p_mrdv_rec => l_omrv_rec_in);
12876:
12877: --dbms_output.put_line('Omr status:'||l_return_status);
12878:
12879: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
12880: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
12881: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
12882: RAISE OKC_API.G_EXCEPTION_ERROR;
12883: ELSIF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
12876:
12877: --dbms_output.put_line('Omr status:'||l_return_status);
12878:
12879: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
12880: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
12881: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
12882: RAISE OKC_API.G_EXCEPTION_ERROR;
12883: ELSIF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
12884: */
12877: --dbms_output.put_line('Omr status:'||l_return_status);
12878:
12879: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
12880: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
12881: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
12882: RAISE OKC_API.G_EXCEPTION_ERROR;
12883: ELSIF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
12884: */
12885:
12878:
12879: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
12880: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
12881: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
12882: RAISE OKC_API.G_EXCEPTION_ERROR;
12883: ELSIF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
12884: */
12885:
12886: l_oiev_tbl_in(1).id := p_oie_rec.oie_id; --OKC_API.G_MISS_CHAR;
12879: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
12880: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
12881: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
12882: RAISE OKC_API.G_EXCEPTION_ERROR;
12883: ELSIF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
12884: */
12885:
12886: l_oiev_tbl_in(1).id := p_oie_rec.oie_id; --OKC_API.G_MISS_CHAR;
12887:
12882: RAISE OKC_API.G_EXCEPTION_ERROR;
12883: ELSIF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
12884: */
12885:
12886: l_oiev_tbl_in(1).id := p_oie_rec.oie_id; --OKC_API.G_MISS_CHAR;
12887:
12888: OKC_OPER_INST_PUB.Delete_Operation_Instance(
12889: p_api_version => l_api_version,
12890: p_init_msg_list => l_init_msg_list,
12894: p_oiev_rec => l_oiev_tbl_in(1));
12895:
12896: --dbms_output.put_line(' OKC_OPER_INST_PUB.Delete_Operation_Instance Value of l_return_status='||l_return_status);
12897: --dbms_output.put_line('oie_id:'||l_oiev_tbl_out(1).id||',status:'||l_return_status);
12898: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
12899: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
12900: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
12901: RAISE OKC_API.G_EXCEPTION_ERROR;
12902: END IF;
12895:
12896: --dbms_output.put_line(' OKC_OPER_INST_PUB.Delete_Operation_Instance Value of l_return_status='||l_return_status);
12897: --dbms_output.put_line('oie_id:'||l_oiev_tbl_out(1).id||',status:'||l_return_status);
12898: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
12899: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
12900: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
12901: RAISE OKC_API.G_EXCEPTION_ERROR;
12902: END IF;
12903:
12896: --dbms_output.put_line(' OKC_OPER_INST_PUB.Delete_Operation_Instance Value of l_return_status='||l_return_status);
12897: --dbms_output.put_line('oie_id:'||l_oiev_tbl_out(1).id||',status:'||l_return_status);
12898: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
12899: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
12900: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
12901: RAISE OKC_API.G_EXCEPTION_ERROR;
12902: END IF;
12903:
12904: -- END IF;
12897: --dbms_output.put_line('oie_id:'||l_oiev_tbl_out(1).id||',status:'||l_return_status);
12898: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
12899: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
12900: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
12901: RAISE OKC_API.G_EXCEPTION_ERROR;
12902: END IF;
12903:
12904: -- END IF;
12905: x_return_status := l_return_status;
12911: ------------------------------------------------------------------
12912: ---TAPI variables
12913: ------------------------------------------------------------------
12914: l_api_version CONSTANT NUMBER := 1.0;
12915: l_init_msg_list VARCHAR2(2000) := OKC_API.G_FALSE;
12916: l_return_status VARCHAR2(1);
12917: l_msg_count NUMBER;
12918: l_msg_data VARCHAR2(2000);
12919:
12944: l_omrv_rec_in.attribute_name := p_omr_rec.attribute_name;
12945: l_omrv_rec_in.old_value := p_omr_rec.old_value;
12946: l_omrv_rec_in.new_value := p_omr_rec.new_value;
12947: l_omrv_rec_in.id := null;
12948: l_omrv_rec_in.object_version_number := NULL ; --OKC_API.G_MISS_NUM;
12949: l_omrv_rec_in.created_by := NULL ; --OKC_API.G_MISS_NUM;
12950: l_omrv_rec_in.creation_date := SYSDATE;
12951: -- l_omrv_rec_in.last_updated_by := OKC_API.G_MISS_NUM;
12952: l_omrv_rec_in.last_update_date := SYSDATE;
12945: l_omrv_rec_in.old_value := p_omr_rec.old_value;
12946: l_omrv_rec_in.new_value := p_omr_rec.new_value;
12947: l_omrv_rec_in.id := null;
12948: l_omrv_rec_in.object_version_number := NULL ; --OKC_API.G_MISS_NUM;
12949: l_omrv_rec_in.created_by := NULL ; --OKC_API.G_MISS_NUM;
12950: l_omrv_rec_in.creation_date := SYSDATE;
12951: -- l_omrv_rec_in.last_updated_by := OKC_API.G_MISS_NUM;
12952: l_omrv_rec_in.last_update_date := SYSDATE;
12953: l_omrv_rec_in.last_update_login := NULL ; --OKC_API.G_MISS_NUM;
12947: l_omrv_rec_in.id := null;
12948: l_omrv_rec_in.object_version_number := NULL ; --OKC_API.G_MISS_NUM;
12949: l_omrv_rec_in.created_by := NULL ; --OKC_API.G_MISS_NUM;
12950: l_omrv_rec_in.creation_date := SYSDATE;
12951: -- l_omrv_rec_in.last_updated_by := OKC_API.G_MISS_NUM;
12952: l_omrv_rec_in.last_update_date := SYSDATE;
12953: l_omrv_rec_in.last_update_login := NULL ; --OKC_API.G_MISS_NUM;
12954:
12955: OKC_OPER_INST_PUB.Create_Masschange_Dtls (
12949: l_omrv_rec_in.created_by := NULL ; --OKC_API.G_MISS_NUM;
12950: l_omrv_rec_in.creation_date := SYSDATE;
12951: -- l_omrv_rec_in.last_updated_by := OKC_API.G_MISS_NUM;
12952: l_omrv_rec_in.last_update_date := SYSDATE;
12953: l_omrv_rec_in.last_update_login := NULL ; --OKC_API.G_MISS_NUM;
12954:
12955: OKC_OPER_INST_PUB.Create_Masschange_Dtls (
12956: p_api_version => l_api_version,
12957: p_init_msg_list => l_init_msg_list,
12961: p_mrdv_rec => l_omrv_rec_in,
12962: x_mrdv_rec => l_omrv_rec_out);
12963:
12964: --dbms_output.put_line('After masschange_line_dtls: status:'||l_return_status);
12965: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
12966: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
12967: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
12968: RAISE OKC_API.G_EXCEPTION_ERROR;
12969: ELSIF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
12962: x_mrdv_rec => l_omrv_rec_out);
12963:
12964: --dbms_output.put_line('After masschange_line_dtls: status:'||l_return_status);
12965: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
12966: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
12967: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
12968: RAISE OKC_API.G_EXCEPTION_ERROR;
12969: ELSIF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
12970: x_omr_id := l_omrv_rec_out.id;
12963:
12964: --dbms_output.put_line('After masschange_line_dtls: status:'||l_return_status);
12965: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
12966: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
12967: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
12968: RAISE OKC_API.G_EXCEPTION_ERROR;
12969: ELSIF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
12970: x_omr_id := l_omrv_rec_out.id;
12971: END IF;
12964: --dbms_output.put_line('After masschange_line_dtls: status:'||l_return_status);
12965: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
12966: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
12967: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
12968: RAISE OKC_API.G_EXCEPTION_ERROR;
12969: ELSIF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
12970: x_omr_id := l_omrv_rec_out.id;
12971: END IF;
12972:
12965: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
12966: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
12967: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
12968: RAISE OKC_API.G_EXCEPTION_ERROR;
12969: ELSIF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
12970: x_omr_id := l_omrv_rec_out.id;
12971: END IF;
12972:
12973:
12977: l_mod_rec_in.ole_id := p_omr_rec.ole_id ; --null;
12978: l_mod_rec_in.mschg_type := null;
12979: l_mod_rec_in.attribute_level := null;
12980: l_mod_rec_in.qa_check_yn := p_omr_rec.qa_check_yn;
12981: l_mod_rec_in.object_version_number := NULL ; --OKC_API.G_MISS_NUM;
12982: l_mod_rec_in.created_by := NULL ; --OKC_API.G_MISS_NUM;
12983: l_mod_rec_in.creation_date := SYSDATE;
12984: l_mod_rec_in.last_updated_by := NULL ; --OKC_API.G_MISS_NUM;
12985: l_mod_rec_in.last_update_date := SYSDATE;
12978: l_mod_rec_in.mschg_type := null;
12979: l_mod_rec_in.attribute_level := null;
12980: l_mod_rec_in.qa_check_yn := p_omr_rec.qa_check_yn;
12981: l_mod_rec_in.object_version_number := NULL ; --OKC_API.G_MISS_NUM;
12982: l_mod_rec_in.created_by := NULL ; --OKC_API.G_MISS_NUM;
12983: l_mod_rec_in.creation_date := SYSDATE;
12984: l_mod_rec_in.last_updated_by := NULL ; --OKC_API.G_MISS_NUM;
12985: l_mod_rec_in.last_update_date := SYSDATE;
12986: -- l_mod_rec_in.last_update_login := NULL ; --OKC_API.G_MISS_NUM;
12980: l_mod_rec_in.qa_check_yn := p_omr_rec.qa_check_yn;
12981: l_mod_rec_in.object_version_number := NULL ; --OKC_API.G_MISS_NUM;
12982: l_mod_rec_in.created_by := NULL ; --OKC_API.G_MISS_NUM;
12983: l_mod_rec_in.creation_date := SYSDATE;
12984: l_mod_rec_in.last_updated_by := NULL ; --OKC_API.G_MISS_NUM;
12985: l_mod_rec_in.last_update_date := SYSDATE;
12986: -- l_mod_rec_in.last_update_login := NULL ; --OKC_API.G_MISS_NUM;
12987: -- l_mod_rec_in.security_group_id := NULL ;
12988: -- l_mod_rec_in.attribute1 := NULL ;
12982: l_mod_rec_in.created_by := NULL ; --OKC_API.G_MISS_NUM;
12983: l_mod_rec_in.creation_date := SYSDATE;
12984: l_mod_rec_in.last_updated_by := NULL ; --OKC_API.G_MISS_NUM;
12985: l_mod_rec_in.last_update_date := SYSDATE;
12986: -- l_mod_rec_in.last_update_login := NULL ; --OKC_API.G_MISS_NUM;
12987: -- l_mod_rec_in.security_group_id := NULL ;
12988: -- l_mod_rec_in.attribute1 := NULL ;
12989: -- l_mod_rec_in.attribute2 := NULL ;
12990: -- l_mod_rec_in.attribute3 := NULL ;
13009: p_OksMschgOperationsDtlsVRec => l_mod_rec_in,
13010: XOksMschgOperationsDtlsVRec => l_mod_rec_out);
13011:
13012:
13013: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
13014: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
13015: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
13016: RAISE OKC_API.G_EXCEPTION_ERROR;
13017: END IF;
13010: XOksMschgOperationsDtlsVRec => l_mod_rec_out);
13011:
13012:
13013: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
13014: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
13015: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
13016: RAISE OKC_API.G_EXCEPTION_ERROR;
13017: END IF;
13018:
13011:
13012:
13013: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
13014: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
13015: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
13016: RAISE OKC_API.G_EXCEPTION_ERROR;
13017: END IF;
13018:
13019: EXCEPTION
13012:
13013: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
13014: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
13015: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
13016: RAISE OKC_API.G_EXCEPTION_ERROR;
13017: END IF;
13018:
13019: EXCEPTION
13020: WHEN OTHERS THEN
13033: ----------------------------------------------------------------------------
13034: ---TAPI variables
13035: ----------------------------------------------------------------------------
13036: l_api_version CONSTANT NUMBER := 1.0;
13037: l_init_msg_list VARCHAR2(2000) := OKC_API.G_FALSE;
13038: l_return_status VARCHAR2(1);
13039: l_msg_count NUMBER;
13040: l_msg_data VARCHAR2(2000);
13041:
13055: ------------------------------------------------------------------------
13056: BEGIN
13057: WHILE p_ole_tbl.exists(j) LOOP
13058: l_olev_tbl_in(i).select_yn := p_ole_tbl(j).select_yn;
13059: l_olev_tbl_in(i).active_yn := NULL ; --OKC_API.G_MISS_CHAR;
13060: l_olev_tbl_in(i).process_flag := p_ole_tbl(j).process_flag;
13061: l_olev_tbl_in(i).oie_id := p_ole_tbl(j).oie_id;
13062: l_olev_tbl_in(i).subject_chr_id := p_ole_tbl(j).chr_id;
13063: l_olev_tbl_in(i).object_chr_id := NULL;
13063: l_olev_tbl_in(i).object_chr_id := NULL;
13064: l_olev_tbl_in(i).subject_cle_id := NULL;
13065: l_olev_tbl_in(i).parent_ole_id := NULL;
13066: l_olev_tbl_in(i).object_cle_id := NULL;
13067: l_olev_tbl_in(i).object_version_number := NULL ; --OKC_API.G_MISS_NUM;
13068: l_olev_tbl_in(i).created_by := NULL ; --OKC_API.G_MISS_NUM;
13069: l_olev_tbl_in(i).creation_date := SYSDATE;
13070: l_olev_tbl_in(i).last_updated_by := NULL ; --OKC_API.G_MISS_NUM;
13071: l_olev_tbl_in(i).last_update_date := SYSDATE;
13064: l_olev_tbl_in(i).subject_cle_id := NULL;
13065: l_olev_tbl_in(i).parent_ole_id := NULL;
13066: l_olev_tbl_in(i).object_cle_id := NULL;
13067: l_olev_tbl_in(i).object_version_number := NULL ; --OKC_API.G_MISS_NUM;
13068: l_olev_tbl_in(i).created_by := NULL ; --OKC_API.G_MISS_NUM;
13069: l_olev_tbl_in(i).creation_date := SYSDATE;
13070: l_olev_tbl_in(i).last_updated_by := NULL ; --OKC_API.G_MISS_NUM;
13071: l_olev_tbl_in(i).last_update_date := SYSDATE;
13072: l_olev_tbl_in(i).last_update_login := NULL ; --OKC_API.G_MISS_NUM;
13066: l_olev_tbl_in(i).object_cle_id := NULL;
13067: l_olev_tbl_in(i).object_version_number := NULL ; --OKC_API.G_MISS_NUM;
13068: l_olev_tbl_in(i).created_by := NULL ; --OKC_API.G_MISS_NUM;
13069: l_olev_tbl_in(i).creation_date := SYSDATE;
13070: l_olev_tbl_in(i).last_updated_by := NULL ; --OKC_API.G_MISS_NUM;
13071: l_olev_tbl_in(i).last_update_date := SYSDATE;
13072: l_olev_tbl_in(i).last_update_login := NULL ; --OKC_API.G_MISS_NUM;
13073: l_olev_tbl_in(i).request_id := FND_GLOBAL.CONC_REQUEST_ID;
13074: l_olev_tbl_in(i).program_application_id := FND_GLOBAL.PROG_APPL_ID;
13068: l_olev_tbl_in(i).created_by := NULL ; --OKC_API.G_MISS_NUM;
13069: l_olev_tbl_in(i).creation_date := SYSDATE;
13070: l_olev_tbl_in(i).last_updated_by := NULL ; --OKC_API.G_MISS_NUM;
13071: l_olev_tbl_in(i).last_update_date := SYSDATE;
13072: l_olev_tbl_in(i).last_update_login := NULL ; --OKC_API.G_MISS_NUM;
13073: l_olev_tbl_in(i).request_id := FND_GLOBAL.CONC_REQUEST_ID;
13074: l_olev_tbl_in(i).program_application_id := FND_GLOBAL.PROG_APPL_ID;
13075: l_olev_tbl_in(i).program_id := FND_GLOBAL.CONC_PROGRAM_ID;
13076: l_olev_tbl_in(i).program_update_date := NULL ; --OKC_API.G_MISS_DATE;
13072: l_olev_tbl_in(i).last_update_login := NULL ; --OKC_API.G_MISS_NUM;
13073: l_olev_tbl_in(i).request_id := FND_GLOBAL.CONC_REQUEST_ID;
13074: l_olev_tbl_in(i).program_application_id := FND_GLOBAL.PROG_APPL_ID;
13075: l_olev_tbl_in(i).program_id := FND_GLOBAL.CONC_PROGRAM_ID;
13076: l_olev_tbl_in(i).program_update_date := NULL ; --OKC_API.G_MISS_DATE;
13077: l_olev_tbl_in(i).message_code := NULL ; --OKC_API.G_MISS_CHAR;
13078: --dbms_output.put_line('Value of l_olev_tbl_in(i).oie_id='||TO_CHAR(l_olev_tbl_in(i).oie_id));
13079: i:=i+1;
13080: j:=j+1;
13073: l_olev_tbl_in(i).request_id := FND_GLOBAL.CONC_REQUEST_ID;
13074: l_olev_tbl_in(i).program_application_id := FND_GLOBAL.PROG_APPL_ID;
13075: l_olev_tbl_in(i).program_id := FND_GLOBAL.CONC_PROGRAM_ID;
13076: l_olev_tbl_in(i).program_update_date := NULL ; --OKC_API.G_MISS_DATE;
13077: l_olev_tbl_in(i).message_code := NULL ; --OKC_API.G_MISS_CHAR;
13078: --dbms_output.put_line('Value of l_olev_tbl_in(i).oie_id='||TO_CHAR(l_olev_tbl_in(i).oie_id));
13079: i:=i+1;
13080: j:=j+1;
13081: END LOOP;
13090: x_olev_tbl => x_ole_tbl);
13091: --dbms_output.put_line('Value of l_return_status='||l_return_status);
13092: --dbms_output.put_line('l_olev_tbl_out(1).id:'||to_char(x_ole_tbl(1).id));
13093:
13094: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
13095: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
13096: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
13097: RAISE OKC_API.G_EXCEPTION_ERROR;
13098: END IF;
13091: --dbms_output.put_line('Value of l_return_status='||l_return_status);
13092: --dbms_output.put_line('l_olev_tbl_out(1).id:'||to_char(x_ole_tbl(1).id));
13093:
13094: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
13095: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
13096: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
13097: RAISE OKC_API.G_EXCEPTION_ERROR;
13098: END IF;
13099: --COMMIT;
13092: --dbms_output.put_line('l_olev_tbl_out(1).id:'||to_char(x_ole_tbl(1).id));
13093:
13094: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
13095: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
13096: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
13097: RAISE OKC_API.G_EXCEPTION_ERROR;
13098: END IF;
13099: --COMMIT;
13100: --dbms_output.put_line('eND OF oPERATION _LINES');
13093:
13094: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
13095: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
13096: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
13097: RAISE OKC_API.G_EXCEPTION_ERROR;
13098: END IF;
13099: --COMMIT;
13100: --dbms_output.put_line('eND OF oPERATION _LINES');
13101: END CREATE_OPERATION_LINES;
13106: ----------------------------------------------------------------------------
13107: ---TAPI variables
13108: ----------------------------------------------------------------------------
13109: l_api_version CONSTANT NUMBER := 1.0;
13110: l_init_msg_list VARCHAR2(2000) := OKC_API.G_FALSE;
13111: l_return_status VARCHAR2(1);
13112: l_msg_count NUMBER;
13113: l_msg_data VARCHAR2(2000);
13114:
13154: x_msg_count => l_msg_count,
13155: x_msg_data => l_msg_data,
13156: p_mrdv_tbl => l_omrv_tbl_in);
13157:
13158: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
13159: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
13160: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
13161: RAISE OKC_API.G_EXCEPTION_ERROR;
13162: ELSIF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
13155: x_msg_data => l_msg_data,
13156: p_mrdv_tbl => l_omrv_tbl_in);
13157:
13158: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
13159: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
13160: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
13161: RAISE OKC_API.G_EXCEPTION_ERROR;
13162: ELSIF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
13163:
13156: p_mrdv_tbl => l_omrv_tbl_in);
13157:
13158: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
13159: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
13160: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
13161: RAISE OKC_API.G_EXCEPTION_ERROR;
13162: ELSIF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
13163:
13164: OKC_OPER_INST_PUB.Delete_Operation_Line(
13157:
13158: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
13159: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
13160: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
13161: RAISE OKC_API.G_EXCEPTION_ERROR;
13162: ELSIF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
13163:
13164: OKC_OPER_INST_PUB.Delete_Operation_Line(
13165: p_api_version => l_api_version,
13158: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
13159: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
13160: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
13161: RAISE OKC_API.G_EXCEPTION_ERROR;
13162: ELSIF (l_return_status = OKC_API.G_RET_STS_SUCCESS) THEN
13163:
13164: OKC_OPER_INST_PUB.Delete_Operation_Line(
13165: p_api_version => l_api_version,
13166: p_init_msg_list => l_init_msg_list,
13171: END IF;
13172: --dbms_output.put_line('Value of l_return_status='||l_return_status);
13173:
13174:
13175: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
13176: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
13177: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
13178: RAISE OKC_API.G_EXCEPTION_ERROR;
13179: END IF;
13172: --dbms_output.put_line('Value of l_return_status='||l_return_status);
13173:
13174:
13175: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
13176: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
13177: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
13178: RAISE OKC_API.G_EXCEPTION_ERROR;
13179: END IF;
13180:
13173:
13174:
13175: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
13176: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
13177: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
13178: RAISE OKC_API.G_EXCEPTION_ERROR;
13179: END IF;
13180:
13181: x_return_status := l_return_status;
13174:
13175: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
13176: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
13177: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
13178: RAISE OKC_API.G_EXCEPTION_ERROR;
13179: END IF;
13180:
13181: x_return_status := l_return_status;
13182: --dbms_output.put_line('END OF OPERATION _LINES');
13186: p_select_yn IN VARCHAR2,
13187: p_qa_check_yn IN VARCHAR2 ) IS
13188:
13189: l_api_version CONSTANT NUMBER := 1.0;
13190: l_init_msg_list VARCHAR2(2000) := OKC_API.G_FALSE;
13191: l_return_status VARCHAR2(1);
13192: l_msg_count NUMBER;
13193: l_msg_data VARCHAR2(2000);
13194: l_msg_index_out NUMBER;
13216: x_olev_tbl => l_olev_tbl_out );
13217:
13218: LOG_MESSAGES('OKC_OPER_INST_PUB.Update_Operation_Line l_return_status = ' || l_return_status);
13219:
13220: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
13221: LOG_MESSAGES('OKC_OPER_INST_PUB.Update_Operation_Line l_msg_data = ' || l_msg_data);
13222: Rollback;
13223: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
13224: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
13219:
13220: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
13221: LOG_MESSAGES('OKC_OPER_INST_PUB.Update_Operation_Line l_msg_data = ' || l_msg_data);
13222: Rollback;
13223: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
13224: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
13225: LOG_MESSAGES('OKC_OPER_INST_PUB.Update_Operation_Line l_msg_data = ' || l_msg_data);
13226: Rollback;
13227: RAISE OKC_API.G_EXCEPTION_ERROR;
13220: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
13221: LOG_MESSAGES('OKC_OPER_INST_PUB.Update_Operation_Line l_msg_data = ' || l_msg_data);
13222: Rollback;
13223: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
13224: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
13225: LOG_MESSAGES('OKC_OPER_INST_PUB.Update_Operation_Line l_msg_data = ' || l_msg_data);
13226: Rollback;
13227: RAISE OKC_API.G_EXCEPTION_ERROR;
13228: END IF;
13223: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
13224: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
13225: LOG_MESSAGES('OKC_OPER_INST_PUB.Update_Operation_Line l_msg_data = ' || l_msg_data);
13226: Rollback;
13227: RAISE OKC_API.G_EXCEPTION_ERROR;
13228: END IF;
13229:
13230: Select mcd.id , mcd.mrd_id into p_mod_id ,p_mod_mrd_id
13231: from oks_mschg_operations_dtls mcd
13979: WHERE mrd.ole_id = opn.id(+)
13980: AND opn.subject_chr_id = okh.id(+) ;
13981:
13982: l_api_version CONSTANT NUMBER := 1.0;
13983: l_init_msg_list VARCHAR2(2000) := OKC_API.G_FALSE;
13984: l_return_status VARCHAR2(1);
13985: l_msg_count NUMBER;
13986: l_msg_data VARCHAR2(2000);
13987: l_msg_index_out NUMBER;
13998: l_mod_rec_in.ole_id := r1.ole_id ; --null;
13999: l_mod_rec_in.mschg_type := null;
14000: l_mod_rec_in.attribute_level := null;
14001: --l_mod_rec_in.qa_check_yn := r1.qa_check_yn ; --null; --p_mrd_rec.qa_check_yn;
14002: l_mod_rec_in.object_version_number := r1.object_version_number ; --NULL ; --OKC_API.G_MISS_NUM;
14003: l_mod_rec_in.created_by := r1.created_by ; --NULL ; --OKC_API.G_MISS_NUM;
14004: l_mod_rec_in.creation_date := r1.creation_date ; --SYSDATE;
14005: l_mod_rec_in.last_updated_by := r1.last_updated_by ; --NULL ; --OKC_API.G_MISS_NUM;
14006: l_mod_rec_in.last_update_date := r1.last_update_date ; --SYSDATE;
13999: l_mod_rec_in.mschg_type := null;
14000: l_mod_rec_in.attribute_level := null;
14001: --l_mod_rec_in.qa_check_yn := r1.qa_check_yn ; --null; --p_mrd_rec.qa_check_yn;
14002: l_mod_rec_in.object_version_number := r1.object_version_number ; --NULL ; --OKC_API.G_MISS_NUM;
14003: l_mod_rec_in.created_by := r1.created_by ; --NULL ; --OKC_API.G_MISS_NUM;
14004: l_mod_rec_in.creation_date := r1.creation_date ; --SYSDATE;
14005: l_mod_rec_in.last_updated_by := r1.last_updated_by ; --NULL ; --OKC_API.G_MISS_NUM;
14006: l_mod_rec_in.last_update_date := r1.last_update_date ; --SYSDATE;
14007: -- l_mod_rec_in.last_update_login := NULL ; --OKC_API.G_MISS_NUM;
14001: --l_mod_rec_in.qa_check_yn := r1.qa_check_yn ; --null; --p_mrd_rec.qa_check_yn;
14002: l_mod_rec_in.object_version_number := r1.object_version_number ; --NULL ; --OKC_API.G_MISS_NUM;
14003: l_mod_rec_in.created_by := r1.created_by ; --NULL ; --OKC_API.G_MISS_NUM;
14004: l_mod_rec_in.creation_date := r1.creation_date ; --SYSDATE;
14005: l_mod_rec_in.last_updated_by := r1.last_updated_by ; --NULL ; --OKC_API.G_MISS_NUM;
14006: l_mod_rec_in.last_update_date := r1.last_update_date ; --SYSDATE;
14007: -- l_mod_rec_in.last_update_login := NULL ; --OKC_API.G_MISS_NUM;
14008: -- l_mod_rec_in.security_group_id := NULL ;
14009:
14003: l_mod_rec_in.created_by := r1.created_by ; --NULL ; --OKC_API.G_MISS_NUM;
14004: l_mod_rec_in.creation_date := r1.creation_date ; --SYSDATE;
14005: l_mod_rec_in.last_updated_by := r1.last_updated_by ; --NULL ; --OKC_API.G_MISS_NUM;
14006: l_mod_rec_in.last_update_date := r1.last_update_date ; --SYSDATE;
14007: -- l_mod_rec_in.last_update_login := NULL ; --OKC_API.G_MISS_NUM;
14008: -- l_mod_rec_in.security_group_id := NULL ;
14009:
14010: IF r1.status_code IS NOT NULL and r1.status_code = 'ACTIVE' then
14011: l_mod_rec_in.qa_check_yn := 'Y' ;