1: package body OKE_CONTRACT_APPROVAL_PVT as
2: /* $Header: OKEVCAPB.pls 115.3 2002/12/02 21:05:13 alaw ship $ */
3: --
4: G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
5: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKE_CONTRACT_APPROVAL_PVT';
6: G_LEVEL CONSTANT VARCHAR2(4) := '_PVT';
7: l_api_version CONSTANT NUMBER := 1;
8: G_FND_APP CONSTANT VARCHAR2(200) := OKC_API.G_FND_APP;
4: G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
5: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKE_CONTRACT_APPROVAL_PVT';
6: G_LEVEL CONSTANT VARCHAR2(4) := '_PVT';
7: l_api_version CONSTANT NUMBER := 1;
8: G_FND_APP CONSTANT VARCHAR2(200) := OKC_API.G_FND_APP;
9: G_FORM_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(200) := OKC_API.G_FORM_UNABLE_TO_RESERVE_REC;
10: --
11: G_K_WAS_APPROVED CONSTANT varchar2(200) := 'OKC_ALREADY_APPROVED';
12: --
5: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKE_CONTRACT_APPROVAL_PVT';
6: G_LEVEL CONSTANT VARCHAR2(4) := '_PVT';
7: l_api_version CONSTANT NUMBER := 1;
8: G_FND_APP CONSTANT VARCHAR2(200) := OKC_API.G_FND_APP;
9: G_FORM_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(200) := OKC_API.G_FORM_UNABLE_TO_RESERVE_REC;
10: --
11: G_K_WAS_APPROVED CONSTANT varchar2(200) := 'OKC_ALREADY_APPROVED';
12: --
13: G_PROCESS_NOT_FOR_APPROVAL CONSTANT varchar2(200) := 'OKC_PROCESS_NOT_FOR_APPROVAL';
162: p_token1 => 'NUMBER',
163: p_token1_value => L_CONTRACT_NUMBER||'-'||L_CONTRACT_NUMBER_MODIFIER,
164: p_token2 => 'STATUS',
165: p_token2_value => L_STATUS);
166: raise OKC_API.G_EXCEPTION_ERROR;
167: end if;
168: --
169: open process_def_csr;
170: fetch process_def_csr into L_WF_NAME, L_WF_PROCESS_NAME, L_USAGE;
227: x_return_status => l_return_status,
228: x_msg_count => l_msg_count,
229: x_msg_data => l_msg_data,
230: p_cpsv_rec => L1_CPSV_REC);
231: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
232: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
233: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
234: RAISE OKE_API.G_EXCEPTION_ERROR;
235: END IF;
228: x_msg_count => l_msg_count,
229: x_msg_data => l_msg_data,
230: p_cpsv_rec => L1_CPSV_REC);
231: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
232: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
233: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
234: RAISE OKE_API.G_EXCEPTION_ERROR;
235: END IF;
236: */
229: x_msg_data => l_msg_data,
230: p_cpsv_rec => L1_CPSV_REC);
231: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
232: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
233: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
234: RAISE OKE_API.G_EXCEPTION_ERROR;
235: END IF;
236: */
237: begin
1186: */
1187: begin
1188: l_q :=okc_util.get_k_access_level(p_chr_id => p_contract_id);
1189: if ((l_q = p_level) or (l_q = 'U'))
1190: then return OKC_API.G_TRUE;
1191: else return OKC_API.G_FALSE;
1192: end if;
1193: /*
1194: --
1187: begin
1188: l_q :=okc_util.get_k_access_level(p_chr_id => p_contract_id);
1189: if ((l_q = p_level) or (l_q = 'U'))
1190: then return OKC_API.G_TRUE;
1191: else return OKC_API.G_FALSE;
1192: end if;
1193: /*
1194: --
1195: open check_access_csr;
1196: fetch check_access_csr into l_q;
1197: close check_access_csr;
1198: --
1199:
1200: if l_q = '?' then return OKC_API.G_FALSE;
1201: else return OKC_API.G_TRUE;
1202: end if;
1203: */
1204:
1197: close check_access_csr;
1198: --
1199:
1200: if l_q = '?' then return OKC_API.G_FALSE;
1201: else return OKC_API.G_TRUE;
1202: end if;
1203: */
1204:
1205: end k_accesible;
1308: l_msg_data,
1309: G_LEVEL);
1310: WHEN OKE_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1311: db_failed('OKC_APPROVE');
1312: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1313: (substr(l_api_name,1,26),
1314: G_PKG_NAME,
1315: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1316: l_msg_count,
1311: db_failed('OKC_APPROVE');
1312: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1313: (substr(l_api_name,1,26),
1314: G_PKG_NAME,
1315: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1316: l_msg_count,
1317: l_msg_data,
1318: G_LEVEL);
1319: WHEN OTHERS THEN
1317: l_msg_data,
1318: G_LEVEL);
1319: WHEN OTHERS THEN
1320: db_failed('OKC_APPROVE');
1321: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1322: (substr(l_api_name,1,26),
1323: G_PKG_NAME,
1324: 'OTHERS',
1325: l_msg_count,
1353: from OKC_K_HEADERS_B
1354: where ID = p
1355: ;
1356: l_api_name CONSTANT VARCHAR2(30) := 'k_erase_approved';
1357: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1358: l_msg_count NUMBER;
1359: l_msg_data varchar2(2000);
1360: begin
1361:
1363: open c1;
1364: fetch c1 into dummy;
1365: close c1;
1366: if (dummy = '?') then
1367: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1368: return;
1369: end if;
1370:
1371: --start
1368: return;
1369: end if;
1370:
1371: --start
1372: l_return_status := OKC_API.START_ACTIVITY(substr(l_api_name,1,26),
1373: G_PKG_NAME,
1374: OKC_API.G_TRUE,
1375: l_api_version,
1376: l_api_version,
1370:
1371: --start
1372: l_return_status := OKC_API.START_ACTIVITY(substr(l_api_name,1,26),
1373: G_PKG_NAME,
1374: OKC_API.G_TRUE,
1375: l_api_version,
1376: l_api_version,
1377: G_LEVEL,
1378: x_return_status);
1375: l_api_version,
1376: l_api_version,
1377: G_LEVEL,
1378: x_return_status);
1379: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1380: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1381: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1382: RAISE OKC_API.G_EXCEPTION_ERROR;
1383: END IF;
1376: l_api_version,
1377: G_LEVEL,
1378: x_return_status);
1379: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1380: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1381: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1382: RAISE OKC_API.G_EXCEPTION_ERROR;
1383: END IF;
1384:
1377: G_LEVEL,
1378: x_return_status);
1379: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1380: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1381: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1382: RAISE OKC_API.G_EXCEPTION_ERROR;
1383: END IF;
1384:
1385: --lock
1378: x_return_status);
1379: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1380: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1381: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1382: RAISE OKC_API.G_EXCEPTION_ERROR;
1383: END IF;
1384:
1385: --lock
1386: L1_header_rec.id := p_contract_id;
1392: x_return_status => x_return_status,
1393: x_msg_count => l_msg_count,
1394: x_msg_data => l_msg_data,
1395: p_chrv_rec => L1_header_rec);
1396: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1397: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1398: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1399: RAISE OKC_API.G_EXCEPTION_ERROR;
1400: END IF;
1393: x_msg_count => l_msg_count,
1394: x_msg_data => l_msg_data,
1395: p_chrv_rec => L1_header_rec);
1396: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1397: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1398: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1399: RAISE OKC_API.G_EXCEPTION_ERROR;
1400: END IF;
1401:
1394: x_msg_data => l_msg_data,
1395: p_chrv_rec => L1_header_rec);
1396: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1397: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1398: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1399: RAISE OKC_API.G_EXCEPTION_ERROR;
1400: END IF;
1401:
1402: --update
1395: p_chrv_rec => L1_header_rec);
1396: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1397: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1398: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1399: RAISE OKC_API.G_EXCEPTION_ERROR;
1400: END IF;
1401:
1402: --update
1403: L1_header_rec.date_approved := NULL;
1405: p_api_version => l_api_version,
1406: x_return_status => x_return_status,
1407: x_msg_count => l_msg_count,
1408: x_msg_data => l_msg_data,
1409: p_restricted_update => OKC_API.G_TRUE,
1410: p_chrv_rec => L1_header_rec,
1411: x_chrv_rec => L2_header_rec);
1412: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1413: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1408: x_msg_data => l_msg_data,
1409: p_restricted_update => OKC_API.G_TRUE,
1410: p_chrv_rec => L1_header_rec,
1411: x_chrv_rec => L2_header_rec);
1412: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1413: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1414: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1415: RAISE OKC_API.G_EXCEPTION_ERROR;
1416: END IF;
1409: p_restricted_update => OKC_API.G_TRUE,
1410: p_chrv_rec => L1_header_rec,
1411: x_chrv_rec => L2_header_rec);
1412: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1413: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1414: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1415: RAISE OKC_API.G_EXCEPTION_ERROR;
1416: END IF;
1417:
1410: p_chrv_rec => L1_header_rec,
1411: x_chrv_rec => L2_header_rec);
1412: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1413: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1414: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1415: RAISE OKC_API.G_EXCEPTION_ERROR;
1416: END IF;
1417:
1418: --end
1411: x_chrv_rec => L2_header_rec);
1412: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1413: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1414: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1415: RAISE OKC_API.G_EXCEPTION_ERROR;
1416: END IF;
1417:
1418: --end
1419: OKC_API.END_ACTIVITY(l_msg_count, l_msg_data);
1415: RAISE OKC_API.G_EXCEPTION_ERROR;
1416: END IF;
1417:
1418: --end
1419: OKC_API.END_ACTIVITY(l_msg_count, l_msg_data);
1420: EXCEPTION
1421: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1422: db_failed('OKC_REVOKE');
1423: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1417:
1418: --end
1419: OKC_API.END_ACTIVITY(l_msg_count, l_msg_data);
1420: EXCEPTION
1421: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1422: db_failed('OKC_REVOKE');
1423: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1424: (substr(l_api_name,1,26),
1425: G_PKG_NAME,
1419: OKC_API.END_ACTIVITY(l_msg_count, l_msg_data);
1420: EXCEPTION
1421: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1422: db_failed('OKC_REVOKE');
1423: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1424: (substr(l_api_name,1,26),
1425: G_PKG_NAME,
1426: 'OKC_API.G_RET_STS_ERROR',
1427: l_msg_count,
1422: db_failed('OKC_REVOKE');
1423: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1424: (substr(l_api_name,1,26),
1425: G_PKG_NAME,
1426: 'OKC_API.G_RET_STS_ERROR',
1427: l_msg_count,
1428: l_msg_data,
1429: G_LEVEL);
1430: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1426: 'OKC_API.G_RET_STS_ERROR',
1427: l_msg_count,
1428: l_msg_data,
1429: G_LEVEL);
1430: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1431: db_failed('OKC_REVOKE');
1432: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1433: (substr(l_api_name,1,26),
1434: G_PKG_NAME,
1428: l_msg_data,
1429: G_LEVEL);
1430: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1431: db_failed('OKC_REVOKE');
1432: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1433: (substr(l_api_name,1,26),
1434: G_PKG_NAME,
1435: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1436: l_msg_count,
1431: db_failed('OKC_REVOKE');
1432: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1433: (substr(l_api_name,1,26),
1434: G_PKG_NAME,
1435: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1436: l_msg_count,
1437: l_msg_data,
1438: G_LEVEL);
1439: WHEN OTHERS THEN
1437: l_msg_data,
1438: G_LEVEL);
1439: WHEN OTHERS THEN
1440: db_failed('OKC_REVOKE');
1441: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1442: (substr(l_api_name,1,26),
1443: G_PKG_NAME,
1444: 'OTHERS',
1445: l_msg_count,
1461: p_date_signed IN date default sysdate,
1462: x_return_status OUT NOCOPY VARCHAR2
1463: ) is
1464: l_api_name CONSTANT VARCHAR2(30) := 'k_signed';
1465: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1466: l_msg_count NUMBER;
1467: l_msg_data varchar2(2000);
1468:
1469: L1_header_rec OKC_CONTRACT_PUB.chrv_rec_type;
1515:
1516: begin
1517:
1518: --start
1519: l_return_status := OKC_API.START_ACTIVITY(substr(l_api_name,1,26),
1520: G_PKG_NAME,
1521: OKC_API.G_TRUE,
1522: l_api_version,
1523: l_api_version,
1517:
1518: --start
1519: l_return_status := OKC_API.START_ACTIVITY(substr(l_api_name,1,26),
1520: G_PKG_NAME,
1521: OKC_API.G_TRUE,
1522: l_api_version,
1523: l_api_version,
1524: G_LEVEL,
1525: x_return_status);
1522: l_api_version,
1523: l_api_version,
1524: G_LEVEL,
1525: x_return_status);
1526: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1527: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1528: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1529: RAISE OKC_API.G_EXCEPTION_ERROR;
1530: END IF;
1523: l_api_version,
1524: G_LEVEL,
1525: x_return_status);
1526: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1527: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1528: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1529: RAISE OKC_API.G_EXCEPTION_ERROR;
1530: END IF;
1531:
1524: G_LEVEL,
1525: x_return_status);
1526: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1527: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1528: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1529: RAISE OKC_API.G_EXCEPTION_ERROR;
1530: END IF;
1531:
1532: --lock header
1525: x_return_status);
1526: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1527: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1528: ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
1529: RAISE OKC_API.G_EXCEPTION_ERROR;
1530: END IF;
1531:
1532: --lock header
1533: L1_header_rec.id := p_contract_id;
1540: x_return_status => x_return_status,
1541: x_msg_count => l_msg_count,
1542: x_msg_data => l_msg_data,
1543: p_chrv_rec => L1_header_rec);
1544: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1545: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1546: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1547: RAISE OKC_API.G_EXCEPTION_ERROR;
1548: END IF;
1541: x_msg_count => l_msg_count,
1542: x_msg_data => l_msg_data,
1543: p_chrv_rec => L1_header_rec);
1544: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1545: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1546: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1547: RAISE OKC_API.G_EXCEPTION_ERROR;
1548: END IF;
1549:
1542: x_msg_data => l_msg_data,
1543: p_chrv_rec => L1_header_rec);
1544: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1545: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1546: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1547: RAISE OKC_API.G_EXCEPTION_ERROR;
1548: END IF;
1549:
1550: --update header
1543: p_chrv_rec => L1_header_rec);
1544: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1545: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1546: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1547: RAISE OKC_API.G_EXCEPTION_ERROR;
1548: END IF;
1549:
1550: --update header
1551: L1_header_rec.date_signed := p_date_signed;
1577: p_api_version => l_api_version,
1578: x_return_status => x_return_status,
1579: x_msg_count => l_msg_count,
1580: x_msg_data => l_msg_data,
1581: p_restricted_update => OKC_API.G_TRUE,
1582: p_chrv_rec => L1_header_rec,
1583: x_chrv_rec => L2_header_rec);
1584: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1585: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1580: x_msg_data => l_msg_data,
1581: p_restricted_update => OKC_API.G_TRUE,
1582: p_chrv_rec => L1_header_rec,
1583: x_chrv_rec => L2_header_rec);
1584: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1585: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1586: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1587: RAISE OKC_API.G_EXCEPTION_ERROR;
1588: END IF;
1581: p_restricted_update => OKC_API.G_TRUE,
1582: p_chrv_rec => L1_header_rec,
1583: x_chrv_rec => L2_header_rec);
1584: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1585: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1586: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1587: RAISE OKC_API.G_EXCEPTION_ERROR;
1588: END IF;
1589:
1582: p_chrv_rec => L1_header_rec,
1583: x_chrv_rec => L2_header_rec);
1584: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1585: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1586: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1587: RAISE OKC_API.G_EXCEPTION_ERROR;
1588: END IF;
1589:
1590: -- lock lines
1583: x_chrv_rec => L2_header_rec);
1584: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1585: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1586: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1587: RAISE OKC_API.G_EXCEPTION_ERROR;
1588: END IF;
1589:
1590: -- lock lines
1591: for lock1_rec in lock1_csr LOOP
1602: x_return_status => x_return_status,
1603: x_msg_count => l_msg_count,
1604: x_msg_data => l_msg_data,
1605: p_clev_tbl => l1_lines);
1606: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1607: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1608: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1609: RAISE OKC_API.G_EXCEPTION_ERROR;
1610: END IF;
1603: x_msg_count => l_msg_count,
1604: x_msg_data => l_msg_data,
1605: p_clev_tbl => l1_lines);
1606: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1607: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1608: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1609: RAISE OKC_API.G_EXCEPTION_ERROR;
1610: END IF;
1611:
1604: x_msg_data => l_msg_data,
1605: p_clev_tbl => l1_lines);
1606: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1607: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1608: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1609: RAISE OKC_API.G_EXCEPTION_ERROR;
1610: END IF;
1611:
1612: -- update lines
1605: p_clev_tbl => l1_lines);
1606: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1607: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1608: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1609: RAISE OKC_API.G_EXCEPTION_ERROR;
1610: END IF;
1611:
1612: -- update lines
1613: OKC_CONTRACT_PUB.update_contract_line(
1614: p_api_version => l_api_version,
1615: x_return_status => x_return_status,
1616: x_msg_count => l_msg_count,
1617: x_msg_data => l_msg_data,
1618: p_restricted_update => OKC_API.G_TRUE,
1619: p_clev_tbl => l2_lines,
1620: x_clev_tbl => l3_lines);
1621: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1622: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1617: x_msg_data => l_msg_data,
1618: p_restricted_update => OKC_API.G_TRUE,
1619: p_clev_tbl => l2_lines,
1620: x_clev_tbl => l3_lines);
1621: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1622: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1623: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1624: RAISE OKC_API.G_EXCEPTION_ERROR;
1625: END IF;
1618: p_restricted_update => OKC_API.G_TRUE,
1619: p_clev_tbl => l2_lines,
1620: x_clev_tbl => l3_lines);
1621: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1622: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1623: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1624: RAISE OKC_API.G_EXCEPTION_ERROR;
1625: END IF;
1626:
1619: p_clev_tbl => l2_lines,
1620: x_clev_tbl => l3_lines);
1621: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1622: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1623: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1624: RAISE OKC_API.G_EXCEPTION_ERROR;
1625: END IF;
1626:
1627: -- call time ...
1620: x_clev_tbl => l3_lines);
1621: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1622: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1623: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1624: RAISE OKC_API.G_EXCEPTION_ERROR;
1625: END IF;
1626:
1627: -- call time ...
1628: if (call_time = 'Y') then
1625: END IF;
1626:
1627: -- call time ...
1628: if (call_time = 'Y') then
1629: OKC_TIME_RES_PUB.Res_Time_New_K(L2_header_rec.id, l_api_version,OKC_API.G_FALSE,x_return_status);
1630: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1631: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1632: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1633: RAISE OKC_API.G_EXCEPTION_ERROR;
1626:
1627: -- call time ...
1628: if (call_time = 'Y') then
1629: OKC_TIME_RES_PUB.Res_Time_New_K(L2_header_rec.id, l_api_version,OKC_API.G_FALSE,x_return_status);
1630: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1631: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1632: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1633: RAISE OKC_API.G_EXCEPTION_ERROR;
1634: END IF;
1627: -- call time ...
1628: if (call_time = 'Y') then
1629: OKC_TIME_RES_PUB.Res_Time_New_K(L2_header_rec.id, l_api_version,OKC_API.G_FALSE,x_return_status);
1630: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1631: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1632: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1633: RAISE OKC_API.G_EXCEPTION_ERROR;
1634: END IF;
1635: end if;
1628: if (call_time = 'Y') then
1629: OKC_TIME_RES_PUB.Res_Time_New_K(L2_header_rec.id, l_api_version,OKC_API.G_FALSE,x_return_status);
1630: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1631: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1632: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1633: RAISE OKC_API.G_EXCEPTION_ERROR;
1634: END IF;
1635: end if;
1636:
1629: OKC_TIME_RES_PUB.Res_Time_New_K(L2_header_rec.id, l_api_version,OKC_API.G_FALSE,x_return_status);
1630: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1631: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1632: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1633: RAISE OKC_API.G_EXCEPTION_ERROR;
1634: END IF;
1635: end if;
1636:
1637: -- raise event
1640: x_return_status => x_return_status,
1641: x_msg_count => l_msg_count,
1642: x_msg_data => l_msg_data,
1643: p_contract_id => p_contract_id);
1644: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1645: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1646: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1647: RAISE OKC_API.G_EXCEPTION_ERROR;
1648: END IF;
1641: x_msg_count => l_msg_count,
1642: x_msg_data => l_msg_data,
1643: p_contract_id => p_contract_id);
1644: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1645: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1646: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1647: RAISE OKC_API.G_EXCEPTION_ERROR;
1648: END IF;
1649:
1642: x_msg_data => l_msg_data,
1643: p_contract_id => p_contract_id);
1644: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1645: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1646: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1647: RAISE OKC_API.G_EXCEPTION_ERROR;
1648: END IF;
1649:
1650: --end
1643: p_contract_id => p_contract_id);
1644: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1645: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
1646: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
1647: RAISE OKC_API.G_EXCEPTION_ERROR;
1648: END IF;
1649:
1650: --end
1651: OKC_API.END_ACTIVITY(l_msg_count, l_msg_data);
1647: RAISE OKC_API.G_EXCEPTION_ERROR;
1648: END IF;
1649:
1650: --end
1651: OKC_API.END_ACTIVITY(l_msg_count, l_msg_data);
1652: EXCEPTION
1653: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1654: db_failed('OKC_SIGN');
1655: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1649:
1650: --end
1651: OKC_API.END_ACTIVITY(l_msg_count, l_msg_data);
1652: EXCEPTION
1653: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1654: db_failed('OKC_SIGN');
1655: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1656: (substr(l_api_name,1,26),
1657: G_PKG_NAME,
1651: OKC_API.END_ACTIVITY(l_msg_count, l_msg_data);
1652: EXCEPTION
1653: WHEN OKC_API.G_EXCEPTION_ERROR THEN
1654: db_failed('OKC_SIGN');
1655: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1656: (substr(l_api_name,1,26),
1657: G_PKG_NAME,
1658: 'OKC_API.G_RET_STS_ERROR',
1659: l_msg_count,
1654: db_failed('OKC_SIGN');
1655: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1656: (substr(l_api_name,1,26),
1657: G_PKG_NAME,
1658: 'OKC_API.G_RET_STS_ERROR',
1659: l_msg_count,
1660: l_msg_data,
1661: G_LEVEL);
1662: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1658: 'OKC_API.G_RET_STS_ERROR',
1659: l_msg_count,
1660: l_msg_data,
1661: G_LEVEL);
1662: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1663: db_failed('OKC_SIGN');
1664: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1665: (substr(l_api_name,1,26),
1666: G_PKG_NAME,
1660: l_msg_data,
1661: G_LEVEL);
1662: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1663: db_failed('OKC_SIGN');
1664: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1665: (substr(l_api_name,1,26),
1666: G_PKG_NAME,
1667: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1668: l_msg_count,
1663: db_failed('OKC_SIGN');
1664: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1665: (substr(l_api_name,1,26),
1666: G_PKG_NAME,
1667: 'OKC_API.G_RET_STS_UNEXP_ERROR',
1668: l_msg_count,
1669: l_msg_data,
1670: G_LEVEL);
1671: WHEN OTHERS THEN
1669: l_msg_data,
1670: G_LEVEL);
1671: WHEN OTHERS THEN
1672: db_failed('OKC_SIGN');
1673: x_return_status := OKC_API.HANDLE_EXCEPTIONS
1674: (substr(l_api_name,1,26),
1675: G_PKG_NAME,
1676: 'OTHERS',
1677: l_msg_count,