4: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXP_ERROR';
5: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLCODE';
6: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLERRM';
7: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKS_OC_INT_KTO_PVT';
8: G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
9: G_APP_NAME1 CONSTANT VARCHAR2(3) := 'OKS';
10: G_EXCEPTION_HALT_VALIDATION EXCEPTION;
11: G_API_TYPE CONSTANT VARCHAR2(30) := '_PROCESS';
12: G_SCOPE CONSTANT VARCHAR2(4) := '_PVT';
204: l_cle c_cle%ROWTYPE;
205: -- Bug 4915691 --
206: l_k_nbr VARCHAR2(2000);
207: l_line_info_tab line_info_tab_typ;
208: l_order_type_id varchar2(240):= nvl(fnd_profile.value('OKS_ORDER_TYPE_ID'), okc_api.g_miss_char);
209: l_cust c_cust%ROWTYPE;
210: l_customer c_cust%ROWTYPE;
211:
212: l_st_cust_acct_id okx_cust_site_uses_v.cust_account_id%TYPE;
445: x_sto_data_rec := l_sto_data_rec;
446: x_bto_data_rec := l_bto_data_rec;
447: x_hdr_attr_tab :=l_k_attr_tab_h;
448:
449: x_return_status := OKC_API.G_RET_STS_SUCCESS;
450:
451: ELSE
452:
453: --retrieving lines attributes
518: x_sto_data_rec := l_sto_data_rec;
519: x_bto_data_rec := l_bto_data_rec;
520: -- x_rule_tab := l_k_rule_tab;
521: x_line_attr_tab :=l_k_attr_tab_l;
522: x_return_status := OKC_API.G_RET_STS_SUCCESS;
523:
524: END IF;---------p_CLE_ID IS NULL
525:
526: EXCEPTION
548: ,p_k_header_rec IN c_k_header%ROWTYPE
549: ,x_return_status OUT NOCOPY VARCHAR2
550: ) IS
551:
552: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
553: l_msg_count NUMBER := 0;
554: l_msg_data VARCHAR2(1000);
555: l_ord_num NUMBER:= OKC_API.G_MISS_NUM;
556: e_exit EXCEPTION;
551:
552: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
553: l_msg_count NUMBER := 0;
554: l_msg_data VARCHAR2(1000);
555: l_ord_num NUMBER:= OKC_API.G_MISS_NUM;
556: e_exit EXCEPTION;
557:
558: BEGIN
559:
558: BEGIN
559:
560: -- To Check If this contract has been created from Order.If yes then return an Error
561:
562: --l_order_type_id:=nvl(fnd_profile.value('OKS_ORDER_TYPE_ID'), okc_api.g_miss_char);
563: IF l_order_type_id = okc_api.g_miss_char THEN
564: OKC_API.set_message(p_app_name => g_app_name,
565: p_msg_name => 'OKS_K2O_ORDTYP',
566: p_token1 => 'PROFOPT',
559:
560: -- To Check If this contract has been created from Order.If yes then return an Error
561:
562: --l_order_type_id:=nvl(fnd_profile.value('OKS_ORDER_TYPE_ID'), okc_api.g_miss_char);
563: IF l_order_type_id = okc_api.g_miss_char THEN
564: OKC_API.set_message(p_app_name => g_app_name,
565: p_msg_name => 'OKS_K2O_ORDTYP',
566: p_token1 => 'PROFOPT',
567: p_token1_value => 'OKS:Default Order Type for Subscriptions',
560: -- To Check If this contract has been created from Order.If yes then return an Error
561:
562: --l_order_type_id:=nvl(fnd_profile.value('OKS_ORDER_TYPE_ID'), okc_api.g_miss_char);
563: IF l_order_type_id = okc_api.g_miss_char THEN
564: OKC_API.set_message(p_app_name => g_app_name,
565: p_msg_name => 'OKS_K2O_ORDTYP',
566: p_token1 => 'PROFOPT',
567: p_token1_value => 'OKS:Default Order Type for Subscriptions',
568: p_token2 => 'NUMBER',
566: p_token1 => 'PROFOPT',
567: p_token1_value => 'OKS:Default Order Type for Subscriptions',
568: p_token2 => 'NUMBER',
569: p_token2_value => p_k_header_rec.contract_number);
570: x_return_status := okc_api.g_ret_sts_error;
571: print_error(3);
572: RAISE e_exit;
573: END IF;
574:
571: print_error(3);
572: RAISE e_exit;
573: END IF;
574:
575: x_return_status := OKC_API.G_RET_STS_SUCCESS;
576:
577: EXCEPTION
578: WHEN e_exit THEN
579:
576:
577: EXCEPTION
578: WHEN e_exit THEN
579:
580: OKC_API.set_message(G_APP_NAME,
581: G_UNEXPECTED_ERROR,
582: G_SQLCODE_TOKEN,
583: SQLCODE,
584: G_SQLERRM_TOKEN,
583: SQLCODE,
584: G_SQLERRM_TOKEN,
585: SQLERRM);
586:
587: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
588: END validate_k_eligibility;
589:
590: -------------------------------------------------------------------------------
591: -- Procedure: build_k_structures
707: x_bto_data_rec => lx_kh_bto_data_rec,
708: x_sto_data_rec => lx_kh_sto_data_rec,
709: x_return_status => lx_return_status );
710:
711: IF lx_return_status = OKC_API.G_RET_STS_SUCCESS THEN
712:
713:
714: IF lx_kh_attr_tab.FIRST IS NOT NULL THEN
715: l_kh_attr_tab := lx_kh_attr_tab;
736: OPEN c_top_cle(p_chr_id, p_cle_id);
737: FETCH c_top_cle INTO r_cle;
738:
739: IF c_top_cle%NOTFOUND THEN
740: OKC_API.set_message(
741: p_app_name => g_app_name1,
742: p_msg_name => 'OKS_K2O_LINENOTORDBL5',
743: p_token1 => 'LINE_NUM',
744: p_token1_value => r_cle.line_number,
794: x_sto_data_rec => lx_kl_sto_data_rec,
795: x_return_status => lx_return_status );
796: FND_FILE.PUT_LINE( FND_FILE.LOG, 'After top lines build rules return status = '||lx_return_status);
797:
798: IF lx_return_status = OKC_API.G_RET_STS_SUCCESS THEN
799: IF lx_kl_attr_tab.FIRST IS NOT NULL THEN
800: FOR i IN lx_kl_attr_tab.FIRST..lx_kl_attr_tab.LAST LOOP
801: l_kl_attr_tab(l_kl_attr_tab.COUNT+1) := lx_kl_attr_tab(i);
802: END LOOP;
818: CLOSE c_top_cle;
819:
820: IF l_lines = 0 THEN
821: FND_FILE.PUT_LINE( FND_FILE.LOG, 'NO LINES');
822: okc_api.set_message(OKC_API.G_APP_NAME,
823: 'OKS_K2O_NOLINES',
824: 'KNUMBER',
825: l_k_nbr);
826: x_return_status := OKC_API.G_RET_STS_ERROR;
822: okc_api.set_message(OKC_API.G_APP_NAME,
823: 'OKS_K2O_NOLINES',
824: 'KNUMBER',
825: l_k_nbr);
826: x_return_status := OKC_API.G_RET_STS_ERROR;
827: print_error(4);
828: RAISE e_exit;
829: END IF;
830: IF l_idx = 0 THEN
830: IF l_idx = 0 THEN
831: FND_FILE.PUT_LINE( FND_FILE.LOG, 'NO ORDERABLE LINES');
832:
833: FND_FILE.PUT_LINE( FND_FILE.LOG, 'NO orderable lines');
834: okc_api.set_message(OKC_API.G_APP_NAME,
835: 'OKS_K2O_NOORDLINES',
836: 'KNUMBER',
837: l_k_nbr);
838: x_return_status := OKC_API.G_RET_STS_ERROR;
834: okc_api.set_message(OKC_API.G_APP_NAME,
835: 'OKS_K2O_NOORDLINES',
836: 'KNUMBER',
837: l_k_nbr);
838: x_return_status := OKC_API.G_RET_STS_ERROR;
839: print_error(4);
840: RAISE e_exit;
841: END IF;
842:
839: print_error(4);
840: RAISE e_exit;
841: END IF;
842:
843: x_return_status := OKC_API.G_RET_STS_SUCCESS;
844: EXCEPTION
845: WHEN e_exit THEN
846:
847: IF c_cust%ISOPEN THEN
852: CLOSE c_top_cle;
853: END IF;
854: WHEN OTHERS THEN
855:
856: OKC_API.set_message
857: (G_APP_NAME,
858: G_UNEXPECTED_ERROR,
859: G_SQLCODE_TOKEN,
860: SQLCODE,
860: SQLCODE,
861: G_SQLERRM_TOKEN,
862: SQLERRM);
863:
864: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
865:
866: END build_k_structures;
867:
868: -------------------------------------------------------------------------------
891: px_qte_hdr_rec.currency_code := l_chr.currency_code;
892: px_qte_hdr_rec.quote_source_code := g_qte_source_c;
893: px_qte_hdr_rec.order_type_id := l_order_type_id;
894:
895: okc_api.set_message(OKC_API.G_APP_NAME, 'OKC_K2Q_KCOPY', 'NUMBER', l_k_nbr);
896:
897: FND_MSG_PUB.Count_And_Get (
898: p_count => l_msg_count,
899: p_data => l_msg_data);
980: --
981: -- check IF we got customer account, set IF not
982: --
983: IF px_qte_hdr_rec.cust_account_id IS NULL
984: OR px_qte_hdr_rec.cust_account_id = okc_api.g_miss_num THEN
985:
986: px_qte_hdr_rec.cust_account_id := l_bt_cust_acct_id;
987: --px_qte_hdr_rec.cust_account_id := 3347;
988: END IF;
998:
999: END IF;
1000: CLOSE c_chr;
1001:
1002: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1003: EXCEPTION
1004: WHEN e_exit THEN
1005: null;
1006: WHEN OTHERS THEN
1003: EXCEPTION
1004: WHEN e_exit THEN
1005: null;
1006: WHEN OTHERS THEN
1007: OKC_API.set_message(
1008: G_APP_NAME,
1009: G_UNEXPECTED_ERROR,
1010: G_SQLCODE_TOKEN,
1011: SQLCODE,
1011: SQLCODE,
1012: G_SQLERRM_TOKEN,
1013: SQLERRM);
1014:
1015: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1016:
1017: END build_ORDER_HDR;
1018:
1019: -------------------------------------------------------------------------------
1169: END LOOP;
1170: END IF;
1171:
1172:
1173: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
1174:
1175: print_error(3);
1176: RAISE e_exit;
1177:
1178: END IF;
1179:
1180:
1181: IF l_ql = 0 THEN
1182: okc_api.set_message(OKC_API.G_APP_NAME,
1183: 'OKS_K2O_NOORDLINES2',
1184: 'NUMBER',
1185: l_chr.contract_number);
1186: x_return_status := OKC_API.G_RET_STS_ERROR;
1182: okc_api.set_message(OKC_API.G_APP_NAME,
1183: 'OKS_K2O_NOORDLINES2',
1184: 'NUMBER',
1185: l_chr.contract_number);
1186: x_return_status := OKC_API.G_RET_STS_ERROR;
1187: print_error(4);
1188:
1189: ELSE
1190: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1186: x_return_status := OKC_API.G_RET_STS_ERROR;
1187: print_error(4);
1188:
1189: ELSE
1190: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1191: END IF;
1192:
1193: IF px_qte_line_tbl.first IS NOT NULL THEN
1194: FOR i IN px_qte_line_tbl.first..px_qte_line_tbl.last LOOP
1221: EXCEPTION
1222: WHEN e_exit THEN
1223: null;
1224: WHEN OTHERS THEN
1225: OKC_API.set_message
1226: (G_APP_NAME,
1227: G_UNEXPECTED_ERROR,
1228: G_SQLCODE_TOKEN,
1229: SQLCODE,
1228: G_SQLCODE_TOKEN,
1229: SQLCODE,
1230: G_SQLERRM_TOKEN,
1231: SQLERRM);
1232: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1233: END build_order_line;
1234:
1235:
1236: --
1251: -- Out Parameters: x_order_id Id of created order
1252: -----------------------------------------------------------------------------
1253: PROCEDURE create_order_from_k(
1254: p_api_version IN NUMBER
1255: ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
1256: ,x_return_status OUT NOCOPY VARCHAR2
1257: ,x_msg_count OUT NOCOPY NUMBER
1258: ,x_msg_data OUT NOCOPY VARCHAR2
1259: ,p_contract_id IN okc_k_headers_b.ID%TYPE
1256: ,x_return_status OUT NOCOPY VARCHAR2
1257: ,x_msg_count OUT NOCOPY NUMBER
1258: ,x_msg_data OUT NOCOPY VARCHAR2
1259: ,p_contract_id IN okc_k_headers_b.ID%TYPE
1260: ,p_default_date IN DATE DEFAULT OKC_API.G_MISS_DATE
1261: ,P_Customer_id IN NUMBER
1262: ,P_Grp_id IN NUMBER
1263: ,P_org_id IN NUMBER
1264: ,P_contract_hdr_id_lo in NUMBER
1275:
1276:
1277: l_api_version CONSTANT NUMBER := 1;
1278: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_O_FROM_K';
1279: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1280: l_msg_count NUMBER := 0;
1281: l_msg_data VARCHAR2(1000);
1282:
1283: -- Miscellaneous variables
1488: FND_FILE.PUT_LINE( FND_FILE.LOG, '************************ ');
1489: FND_FILE.PUT_LINE( FND_FILE.OUTPUT, 'Contract Number = '||l_chr.contract_number);
1490: FND_FILE.PUT_LINE( FND_FILE.LOG, 'Contract Number = '||l_chr.contract_number);
1491: IF c_chr%NOTFOUND THEN
1492: okc_api.set_message(OKC_API.G_APP_NAME,'OKS_K2O_NOKHDR');
1493: CLOSE c_chr;
1494: x_return_status := OKC_API.G_RET_STS_ERROR;
1495: print_error(2);
1496: CLOSE c_chr;
1490: FND_FILE.PUT_LINE( FND_FILE.LOG, 'Contract Number = '||l_chr.contract_number);
1491: IF c_chr%NOTFOUND THEN
1492: okc_api.set_message(OKC_API.G_APP_NAME,'OKS_K2O_NOKHDR');
1493: CLOSE c_chr;
1494: x_return_status := OKC_API.G_RET_STS_ERROR;
1495: print_error(2);
1496: CLOSE c_chr;
1497: RAISE OKC_API.G_EXCEPTION_ERROR;
1498: END IF;
1493: CLOSE c_chr;
1494: x_return_status := OKC_API.G_RET_STS_ERROR;
1495: print_error(2);
1496: CLOSE c_chr;
1497: RAISE OKC_API.G_EXCEPTION_ERROR;
1498: END IF;
1499: CLOSE c_chr;
1500:
1501: -- might need this for error messages
1522:
1523: /*
1524: okc_contract_pub.lock_contract_header (
1525: p_api_version => 1,
1526: p_init_msg_list => OKC_API.G_FALSE,
1527: x_return_status => l_return_status,
1528: x_msg_count => l_msg_count,
1529: x_msg_data => l_msg_data,
1530: p_chrv_rec => l_chrv_rec);
1531:
1532: */
1533: okc_contract_pub.lock_contract_line (
1534: p_api_version => 1,
1535: p_init_msg_list => OKC_API.G_FALSE,
1536: x_return_status => l_return_status,
1537: x_msg_count => l_msg_count,
1538: x_msg_data => l_msg_data,
1539: p_clev_rec => l_clev_rec);
1539: p_clev_rec => l_clev_rec);
1540:
1541: -- Bug 4915691 --
1542:
1543: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR OR
1544: l_return_status = OKC_API.G_RET_STS_ERROR THEN
1545: OKC_API.set_message(p_app_name => g_app_name,
1546: p_msg_name => 'OKS_K2O_KLOCKED',
1547: p_token1 => 'NUMBER',
1540:
1541: -- Bug 4915691 --
1542:
1543: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR OR
1544: l_return_status = OKC_API.G_RET_STS_ERROR THEN
1545: OKC_API.set_message(p_app_name => g_app_name,
1546: p_msg_name => 'OKS_K2O_KLOCKED',
1547: p_token1 => 'NUMBER',
1548: p_token1_value => l_k_nbr);
1541: -- Bug 4915691 --
1542:
1543: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR OR
1544: l_return_status = OKC_API.G_RET_STS_ERROR THEN
1545: OKC_API.set_message(p_app_name => g_app_name,
1546: p_msg_name => 'OKS_K2O_KLOCKED',
1547: p_token1 => 'NUMBER',
1548: p_token1_value => l_k_nbr);
1549: print_error(2);
1546: p_msg_name => 'OKS_K2O_KLOCKED',
1547: p_token1 => 'NUMBER',
1548: p_token1_value => l_k_nbr);
1549: print_error(2);
1550: END IF; -- IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR OR
1551:
1552: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1553: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1554: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1548: p_token1_value => l_k_nbr);
1549: print_error(2);
1550: END IF; -- IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR OR
1551:
1552: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1553: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1554: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1555: RAISE OKC_API.G_EXCEPTION_ERROR;
1556: END IF;
1549: print_error(2);
1550: END IF; -- IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR OR
1551:
1552: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1553: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1554: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1555: RAISE OKC_API.G_EXCEPTION_ERROR;
1556: END IF;
1557:
1550: END IF; -- IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR OR
1551:
1552: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1553: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1554: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1555: RAISE OKC_API.G_EXCEPTION_ERROR;
1556: END IF;
1557:
1558:
1551:
1552: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1553: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1554: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1555: RAISE OKC_API.G_EXCEPTION_ERROR;
1556: END IF;
1557:
1558:
1559: /*************** set organization context***************************/
1558:
1559: /*************** set organization context***************************/
1560: /*
1561: IF p_contract_id IS NULL THEN
1562: OKC_API.set_message(p_app_name => g_app_name,
1563: p_msg_name => 'OKS_K2O_KIDISNULL');
1564: print_error(2);
1565: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1566: END IF;
1561: IF p_contract_id IS NULL THEN
1562: OKC_API.set_message(p_app_name => g_app_name,
1563: p_msg_name => 'OKS_K2O_KIDISNULL');
1564: print_error(2);
1565: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1566: END IF;
1567: */
1568: okc_context.set_okc_org_context(p_chr_id => get_elements_rec.dnz_chr_id);
1569: /******************************************************************/
1581: l_k_header_rec,
1582: l_return_status );
1583:
1584:
1585: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1586: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1587: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1588: RAISE OKC_API.G_EXCEPTION_ERROR;
1589: END IF;
1582: l_return_status );
1583:
1584:
1585: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1586: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1587: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1588: RAISE OKC_API.G_EXCEPTION_ERROR;
1589: END IF;
1590: /******************************************************************/
1583:
1584:
1585: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1586: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1587: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1588: RAISE OKC_API.G_EXCEPTION_ERROR;
1589: END IF;
1590: /******************************************************************/
1591: --
1584:
1585: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1586: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1587: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1588: RAISE OKC_API.G_EXCEPTION_ERROR;
1589: END IF;
1590: /******************************************************************/
1591: --
1592: -- get the contract information
1597: p_cle_id => get_elements_rec.dnz_cle_id,
1598: p_k_header_rec => l_k_header_rec,
1599: x_return_status => l_return_status );
1600:
1601: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1602: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1603: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1604: RAISE OKC_API.G_EXCEPTION_ERROR;
1605: END IF;
1598: p_k_header_rec => l_k_header_rec,
1599: x_return_status => l_return_status );
1600:
1601: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1602: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1603: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1604: RAISE OKC_API.G_EXCEPTION_ERROR;
1605: END IF;
1606:
1599: x_return_status => l_return_status );
1600:
1601: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1602: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1603: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1604: RAISE OKC_API.G_EXCEPTION_ERROR;
1605: END IF;
1606:
1607: /******************************************************************/
1600:
1601: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1602: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1603: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1604: RAISE OKC_API.G_EXCEPTION_ERROR;
1605: END IF;
1606:
1607: /******************************************************************/
1608:
1614: p_contract_id => get_elements_rec.dnz_chr_id,
1615: px_hd_shipment_tbl => l_quote_hd_shipment_tab,
1616: x_return_status => l_return_status);
1617:
1618: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1619: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1620: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1621: RAISE OKC_API.G_EXCEPTION_ERROR;
1622: END IF;
1615: px_hd_shipment_tbl => l_quote_hd_shipment_tab,
1616: x_return_status => l_return_status);
1617:
1618: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1619: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1620: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1621: RAISE OKC_API.G_EXCEPTION_ERROR;
1622: END IF;
1623:
1616: x_return_status => l_return_status);
1617:
1618: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1619: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1620: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1621: RAISE OKC_API.G_EXCEPTION_ERROR;
1622: END IF;
1623:
1624: /******************************************************************/
1617:
1618: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1619: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1620: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1621: RAISE OKC_API.G_EXCEPTION_ERROR;
1622: END IF;
1623:
1624: /******************************************************************/
1625: --
1634: ,px_k2q_line_tbl => l_k2q_line_rel_tab
1635: ,x_return_status => l_return_status );
1636:
1637:
1638: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1639: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1640: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1641: RAISE OKC_API.G_EXCEPTION_ERROR;
1642: END IF;
1635: ,x_return_status => l_return_status );
1636:
1637:
1638: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1639: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1640: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1641: RAISE OKC_API.G_EXCEPTION_ERROR;
1642: END IF;
1643:
1636:
1637:
1638: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1639: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1640: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1641: RAISE OKC_API.G_EXCEPTION_ERROR;
1642: END IF;
1643:
1644: l_line_rltship_tab := x_line_rltship_tab;
1637:
1638: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1639: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1640: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1641: RAISE OKC_API.G_EXCEPTION_ERROR;
1642: END IF;
1643:
1644: l_line_rltship_tab := x_line_rltship_tab;
1645: /******************************************************************/
1714: FND_FILE.PUT_LINE( FND_FILE.LOG, 'Before calling OE_ORDER_BOOK_UTIL ');
1715:
1716: OE_Order_Book_Util.Complete_Book_Eligible
1717: ( p_api_version_number => 1.0
1718: , p_init_msg_list => okc_api.g_false
1719: , p_header_id => lx_order_line_tbl(i).order_header_id
1720: , x_return_status => l_return_status
1721: , x_msg_count => l_msg_count
1722: , x_msg_data => l_msg_data);
1735: FND_FILE.PUT_LINE( FND_FILE.OUTPUT, 'Unable to CREATE and BOOK the order, please check the log files for error details');
1736: FND_FILE.PUT_LINE( FND_FILE.OUTPUT, '***************************************** ');
1737: END IF;
1738: /*
1739: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1740: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1741: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1742: RAISE OKC_API.G_EXCEPTION_ERROR;
1743: END IF;
1736: FND_FILE.PUT_LINE( FND_FILE.OUTPUT, '***************************************** ');
1737: END IF;
1738: /*
1739: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1740: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1741: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1742: RAISE OKC_API.G_EXCEPTION_ERROR;
1743: END IF;
1744: */
1737: END IF;
1738: /*
1739: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1740: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1741: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1742: RAISE OKC_API.G_EXCEPTION_ERROR;
1743: END IF;
1744: */
1745:
1738: /*
1739: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1740: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1741: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1742: RAISE OKC_API.G_EXCEPTION_ERROR;
1743: END IF;
1744: */
1745:
1746: END LOOP ;
1753: -- Contract updating with order information waiting for
1754: -- a specific notification creation
1755: --
1756:
1757: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR OR
1758: l_return_status = OKC_API.G_RET_STS_ERROR THEN
1759: FND_FILE.PUT_LINE( FND_FILE.LOG,l_msg_data);
1760: l_ord_creation_date:=SYSDATE;
1761: ELSE
1754: -- a specific notification creation
1755: --
1756:
1757: IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR OR
1758: l_return_status = OKC_API.G_RET_STS_ERROR THEN
1759: FND_FILE.PUT_LINE( FND_FILE.LOG,l_msg_data);
1760: l_ord_creation_date:=SYSDATE;
1761: ELSE
1762:
1762:
1763: SELECT creation_date,
1764: order_number,
1765: version_number,
1766: NVL(expiration_date, OKC_API.G_MISS_DATE)
1767: INTO l_ord_creation_date,
1768: l_ord_num,
1769: l_ord_version_number,
1770: l_ord_expiration_date
1770: l_ord_expiration_date
1771: FROM oe_order_headers_all
1772: WHERE header_id = lx_order_header_rec.order_header_id;
1773:
1774: OKC_API.set_message(p_app_name => g_app_name,
1775: p_msg_name => 'OKS_K2O_K2OCOMMENTS',
1776: p_token1 => 'CRDATE',
1777: p_token1_value => l_ord_creation_date,
1778: p_token2 => 'NUMBER',
1793:
1794: l_ord_creation_message := x_msg_data;
1795: FND_MSG_PUB.Delete_Msg ( p_msg_index => x_msg_count);
1796:
1797: END IF; -- IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR OR
1798:
1799: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1800: -- RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1801: --RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1795: FND_MSG_PUB.Delete_Msg ( p_msg_index => x_msg_count);
1796:
1797: END IF; -- IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR OR
1798:
1799: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1800: -- RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1801: --RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1802: IF c_k_header%ISOPEN THEN
1803: CLOSE c_k_header;
1796:
1797: END IF; -- IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR OR
1798:
1799: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1800: -- RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1801: --RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1802: IF c_k_header%ISOPEN THEN
1803: CLOSE c_k_header;
1804: END IF;
1797: END IF; -- IF l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR OR
1798:
1799: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1800: -- RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1801: --RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1802: IF c_k_header%ISOPEN THEN
1803: CLOSE c_k_header;
1804: END IF;
1805:
1802: IF c_k_header%ISOPEN THEN
1803: CLOSE c_k_header;
1804: END IF;
1805:
1806: x_return_status := OKC_API.G_RET_STS_ERROR;
1807: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1808: fnd_msg_pub.add_exc_msg(p_pkg_name => g_pkg_name
1809: ,p_procedure_name => l_api_name
1810: ,p_error_text => 'Encountered error condition'
1813:
1814: --Error messages for the trace file
1815: --Error messages for the output file
1816: IF okc_util.l_output_flag THEN
1817: OKC_API.set_message(p_app_name => g_app_name,
1818: p_msg_name => 'OKS_K2O_K2OOUTEMSG',
1819: p_token1 => 'CRDATE',
1820: p_token1_value => l_ord_creation_date,
1821: p_token2 => 'KNUMBER',
1859: -- END IF;
1860:
1861:
1862:
1863: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1864: --RAISE OKC_API.G_EXCEPTION_ERROR;
1865: --RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1866: IF c_k_header%ISOPEN THEN
1867: CLOSE c_k_header;
1860:
1861:
1862:
1863: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1864: --RAISE OKC_API.G_EXCEPTION_ERROR;
1865: --RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1866: IF c_k_header%ISOPEN THEN
1867: CLOSE c_k_header;
1868: END IF;
1861:
1862:
1863: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1864: --RAISE OKC_API.G_EXCEPTION_ERROR;
1865: --RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1866: IF c_k_header%ISOPEN THEN
1867: CLOSE c_k_header;
1868: END IF;
1869:
1866: IF c_k_header%ISOPEN THEN
1867: CLOSE c_k_header;
1868: END IF;
1869:
1870: x_return_status := OKC_API.G_RET_STS_ERROR;
1871: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1872: fnd_msg_pub.add_exc_msg(p_pkg_name => g_pkg_name
1873: ,p_procedure_name => l_api_name
1874: ,p_error_text => 'Encountered error condition'
1877:
1878: --Error messages for the trace file
1879: --Error messages for the output file
1880: IF okc_util.l_output_flag THEN
1881: OKC_API.set_message(p_app_name => g_app_name,
1882: p_msg_name => 'OKS_K2O_K2OOUTEMSG',
1883: p_token1 => 'CRDATE',
1884: p_token1_value => l_ord_creation_date,
1885: p_token2 => 'KNUMBER',
1935: --
1936: -- we're done
1937: --
1938:
1939: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1940:
1941:
1942: -- In the output file (If conc. prog.)
1943: IF okc_util.l_output_flag THEN
1940:
1941:
1942: -- In the output file (If conc. prog.)
1943: IF okc_util.l_output_flag THEN
1944: OKC_API.set_message(p_app_name => g_app_name,
1945: p_msg_name => 'OKS_K2O_K2OOUTSMSG',
1946: p_token1 => 'CRDATE',
1947: p_token1_value => l_ord_creation_date,
1948: p_token2 => 'ONUMBER',
2015:
2016: END IF;
2017: */
2018: EXCEPTION
2019: WHEN OKC_API.G_EXCEPTION_ERROR THEN
2020: --update_k_comments_err;
2021: IF c_k_header%ISOPEN THEN
2022: CLOSE c_k_header;
2023: END IF;
2021: IF c_k_header%ISOPEN THEN
2022: CLOSE c_k_header;
2023: END IF;
2024:
2025: x_return_status := OKC_API.G_RET_STS_ERROR;
2026: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2027: fnd_msg_pub.add_exc_msg(p_pkg_name => g_pkg_name
2028: ,p_procedure_name => l_api_name
2029: ,p_error_text => 'Encountered error condition'
2032:
2033: --Error messages for the trace file
2034: --Error messages for the output file
2035: IF okc_util.l_output_flag THEN
2036: OKC_API.set_message(p_app_name => g_app_name,
2037: p_msg_name => 'OKS_K2O_K2OOUTEMSG',
2038: p_token1 => 'CRDATE',
2039: p_token1_value => l_ord_creation_date,
2040: p_token2 => 'KNUMBER',
2070: END IF;
2071: END IF;
2072: END LOOP;
2073: FND_FILE.PUT_LINE( FND_FILE.LOG, '==================================');
2074: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2075: IF c_k_header%ISOPEN THEN
2076: CLOSE c_k_header;
2077: END IF;
2078:
2075: IF c_k_header%ISOPEN THEN
2076: CLOSE c_k_header;
2077: END IF;
2078:
2079: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2080: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2081: fnd_msg_pub.add_exc_msg(p_pkg_name => g_pkg_name
2082: ,p_procedure_name => l_api_name
2083: ,p_error_text => 'Encountered unexpected error'
2091: FND_FILE.PUT_LINE( FND_FILE.LOG, 'Return status: '||x_return_status);
2092: FND_FILE.PUT_LINE( FND_FILE.LOG, '==================================');
2093: --Error messages for the output file
2094: IF okc_util.l_output_flag THEN
2095: OKC_API.set_message(p_app_name => g_app_name,
2096: p_msg_name => 'OKS_K2O_K2OOUTEMSG',
2097: p_token1 => 'CRDATE',
2098: p_token1_value => l_ord_creation_date,
2099: p_token2 => 'KNUMBER',
2135: IF c_k_header%ISOPEN THEN
2136: CLOSE c_k_header;
2137: END IF;
2138:
2139: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2140: OKC_API.set_message(G_APP_NAME
2141: ,G_UNEXPECTED_ERROR
2142: ,G_SQLCODE_TOKEN
2143: ,SQLCODE
2136: CLOSE c_k_header;
2137: END IF;
2138:
2139: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2140: OKC_API.set_message(G_APP_NAME
2141: ,G_UNEXPECTED_ERROR
2142: ,G_SQLCODE_TOKEN
2143: ,SQLCODE
2144: ,G_SQLERRM_TOKEN
2151: FND_FILE.PUT_LINE( FND_FILE.LOG, 'Return status: '||x_return_status);
2152: FND_FILE.PUT_LINE( FND_FILE.LOG, '==================================');
2153: --Error messages for the output file
2154: IF okc_util.l_output_flag THEN
2155: OKC_API.set_message(p_app_name => g_app_name,
2156: p_msg_name => 'OKS_K2O_K2OOUTEMSG',
2157: p_token1 => 'CRDATE',
2158: p_token1_value => l_ord_creation_date,
2159: p_token2 => 'KNUMBER',