[Home] [Help]
1: PACKAGE BODY OKL_AM_TERMNT_INTERFACE_PVT AS
2: /* $Header: OKLRTIFB.pls 120.11.12020000.3 2012/08/28 15:58:03 racheruv ship $ */
3:
4: subtype quot_rec_type IS OKL_TRX_QUOTES_PUB.qtev_rec_type;
5: subtype assn_tbl_type IS OKL_AM_CREATE_QUOTE_PUB.assn_tbl_type;
531: BEGIN
532:
533:
534: IF (G_DEBUG_LEVEL_PROCEDURE >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
535: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_AM_TERMNT_INTERFACE_PVT.validate_quote_type_reason','Begin(+)');
536: END IF;
537:
538: x_return_status := OKC_API.G_RET_STS_SUCCESS;
539: lp_tif_tbl := p_tif_tbl;
545: FOR record_number IN lp_tif_tbl.FIRST..lp_tif_tbl.LAST
546: LOOP
547:
548: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
549: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.validate_quote_type_reason.',
550: 'who cols populated : ');
551: end if;
552:
553: lp_tif_tbl(record_number).CREATION_DATE := SYSDATE;
674:
675:
676:
677: IF (G_DEBUG_LEVEL_PROCEDURE >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
678: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_AM_TERMNT_INTERFACE_PVT.validate_quote_type_reason ','End(-)');
679: END IF;
680: EXCEPTION
681: WHEN OTHERS THEN
682: -- store SQL error message on message stack for caller
915: p_token1 => 'COL_NAME',
916: p_token1_value => 'CONTRACT_NUMBER');
917: message :='contract_number '||x_tif_rec.contract_number||' entered not exists';
918: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
919: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.validate_data.',
920: 'message 1 '|| message);
921: END IF;
922: ELSIF(x_tif_rec.contract_id IS NULL OR x_tif_rec.contract_id = OKC_API.G_MISS_NUM) THEN
923: x_tif_rec.contract_id := l_contract_id;
929: p_token1 => 'COL_NAME',
930: p_token1_value => 'CONTRACT_NUMBER');
931: message :='contract_number '||x_tif_rec.contract_number||' and contract_id '||x_tif_rec.contract_id ||' entered not matches';
932: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
933: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.validate_data.',
934: 'message 2 '|| message);
935: END IF;
936: END IF;
937: IF(x_tif_rec.status <> 'ERROR' AND l_contract_status NOT IN('BOOKED','EVERGREEN')) THEN
943: p_token1 => 'COL_NAME',
944: p_token1_value => 'CONTRACT_NUMBER');
945: message :='contract_number '||x_tif_rec.contract_number||' is not in booked state or in evergreen state';
946: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
947: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.validate_data.',
948: 'message 3 '|| message);
949: END IF;
950: END IF;
951:
971: p_token1_value => 'ASSET_NUMBER');
972: message :='asset_number '||x_tif_rec.asset_number||' and asset_id '||x_tif_rec.asset_id ||' entered not matches';
973:
974: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
975: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.validate_data.',
976: 'message 4'|| message);
977: END IF;
978: ELSIF(l_asset_id IS NULL OR l_asset_id = OKC_API.G_MISS_NUM) THEN
979: x_tif_rec.status := 'ERROR';
983: p_token1 => 'COL_NAME',
984: p_token1_value => 'ASSET_NUMBER');
985: message :='asset is not associated to the contract_number '||x_tif_rec.contract_number||' entered';
986: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
987: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.validate_data.',
988: 'message 5 '|| message);
989: END IF;
990: ELSIF(l_asset_number IS NULL OR l_asset_number = OKC_API.G_MISS_CHAR) THEN
991: x_tif_rec.status := 'ERROR';
996: p_token1_value => 'ASSET_NUMBER');
997: message :='asset is not associated to the contract_number '||x_tif_rec.contract_number||' entered';
998:
999: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1000: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.validate_data.',
1001: 'message 6 '|| message);
1002: END IF;
1003: ELSIF(p_tif_rec.asset_number IS NOT NULL AND p_tif_rec.asset_number <> OKC_API.G_MISS_CHAR) THEN
1004: IF(p_tif_rec.asset_number <> l_asset_number) THEN
1009: p_token1 => 'COL_NAME',
1010: p_token1_value => 'ASSET_NUMBER');
1011: message :='asset_number '||x_tif_rec.asset_number||' and asset_id '||x_tif_rec.asset_id ||' entered not matches';
1012: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1013: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.validate_data.',
1014: 'message 7 '|| message);
1015: END IF;
1016: ELSIF(p_tif_rec.asset_id IS NOT NULL AND p_tif_rec.asset_id <> OKC_API.G_MISS_NUM) THEN
1017: IF(p_tif_rec.asset_id <> l_asset_id) THEN
1022: p_token1 => 'COL_NAME',
1023: p_token1_value => 'ASSET_NUMBER');
1024: message :='asset_number '||x_tif_rec.asset_number||' and asset_id '||x_tif_rec.asset_id ||' entered not matches';
1025: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1026: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.validate_data.',
1027: 'message 8 '|| message);
1028: END IF;
1029: END IF;
1030: ELSE
1039: p_token1 => 'COL_NAME',
1040: p_token1_value => 'ASSET_NUMBER');
1041: message :='asset_number '||x_tif_rec.asset_number||' and asset_id '||x_tif_rec.asset_id ||' entered not matches';
1042: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1043: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.validate_data.',
1044: 'message 9 '|| message);
1045: END IF;
1046: ELSIF(p_tif_rec.asset_number IS NOT NULL AND p_tif_rec.asset_number <> OKC_API.G_MISS_CHAR) THEN
1047: IF(p_tif_rec.asset_number <> l_asset_number) THEN
1053: p_token1_value => 'ASSET_NUMBER');
1054: message :='asset_number '||x_tif_rec.asset_number||' and asset_id '||x_tif_rec.asset_id ||' entered not matches';
1055:
1056: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1057: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.validate_data.',
1058: 'message 10 '|| message);
1059: END IF;
1060: END IF;
1061: ELSE
1069: p_token1 => 'COL_NAME',
1070: p_token1_value => 'ASSET_NUMBER');
1071: message :='asset_number '||x_tif_rec.asset_number||' is not in booked state or in evergreen state';
1072: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1073: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.validate_data.',
1074: 'message 11 '|| message);
1075: END IF;
1076: END IF;
1077: IF(x_tif_rec.status <> 'ERROR') THEN
1089: p_token1 => 'COL_NAME',
1090: p_token1_value => 'SERIAL_NUMBER');
1091: message :='instance line is not present for the asset '||x_tif_rec.asset_number;
1092: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1093: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.validate_data.',
1094: 'message 12 '|| message);
1095: END IF;
1096: ELSE
1097: --fetch installbase_id using cursor
1107: p_token1 => 'COL_NAME',
1108: p_token1_value => 'SERIAL_NUMBER');
1109: message :='installbase line is not present for the asset '||x_tif_rec.asset_number;
1110: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1111: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.validate_data.',
1112: 'message 13 '|| message);
1113: END IF;
1114: EXIT;
1115: ELSE
1130: p_token1 => 'COL_NAME',
1131: p_token1_value => 'ASSET_NUMBER');
1132: message :='asset is not serialized '||x_tif_rec.asset_number;
1133: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1134: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.validate_data.',
1135: 'message 14 '|| message);
1136: END IF;
1137: EXIT;
1138: END IF;
1147: p_token1 => 'COL_NAME',
1148: p_token1_value => 'SERIAL_NUMBER');
1149: message :='Enter serial number associated for this asset '||x_tif_rec.asset_number;
1150: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1151: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.validate_data.',
1152: 'message 15 '|| message);
1153: END IF;
1154: END IF;
1155: ELSE
1166: p_token1 => 'ASSET_NUMBER',
1167: p_token1_value => x_tif_rec.asset_number);
1168: message :='no.of units entered to terminate is more than the quantity associated with asset '||x_tif_rec.asset_number;
1169: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1170: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.validate_data.',
1171: 'message 16 '|| message);
1172: END IF;
1173: END IF;
1174: END IF;
1187: p_token1 => 'COL_NAME',
1188: p_token1_value => 'ORG_ID');
1189: message :='org id is not for this session, not errored out';
1190: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1191: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.validate_data.',
1192: 'message 17 '|| message);
1193: END IF;
1194: END IF;
1195: END IF;
1211: OKC_API.set_message(p_app_name => g_app_name,
1212: p_msg_name => 'OKL_NO_ACPT_ROLL_QTE');
1213: message := 'Rollover quotes can only be accepted from booking process of a rolled over contract';
1214: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1215: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.validate_data.',
1216: 'message 18 '|| message);
1217: END IF;
1218: END IF;
1219: END IF;
1276: l_msg_tbl msg_tbl_type;
1277: BEGIN
1278:
1279: IF (G_DEBUG_LEVEL_PROCEDURE >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1280: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_AM_TERMNT_INTERFACE_PVT.validate_record','Begin(+)');
1281: END IF;
1282:
1283: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1284: -- this procedure checks whether required fields are entered or not
1290: p_sys_date => p_sys_date,
1291: p_tif_rec => p_tif_rec,
1292: x_tif_rec => x_tif_rec);
1293: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1294: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.validate_record.',
1295: 'validate_required :'||x_return_status);
1296: end if;
1297:
1298: IF(x_tif_rec.status <> 'ERROR') THEN
1308: p_tif_rec => l_tif_rec,
1309: x_tif_rec => x_tif_rec);
1310:
1311: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1312: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.validate_record.',
1313: 'validate_data :'||x_return_status);
1314: end if;
1315:
1316: END;
1315:
1316: END;
1317: END IF;
1318: IF (G_DEBUG_LEVEL_PROCEDURE >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1319: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_AM_TERMNT_INTERFACE_PVT.validate_record ','End(-)');
1320: END IF;
1321: EXCEPTION
1322: WHEN OTHERS THEN
1323: -- store SQL error message on message stack for caller
1361: record_number NUMBER;
1362: l_msg_tbl msg_tbl_type;
1363: BEGIN
1364: IF (G_DEBUG_LEVEL_PROCEDURE >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1365: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_AM_TERMNT_INTERFACE_PVT.validate_transaction','Begin(+)');
1366: END IF;
1367:
1368:
1369: record_number:=0;
1376:
1377:
1378:
1379: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1380: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.validate_transaction.',
1381: 'calling validate_record..for rec number ..'||record_number);
1382: end if;
1383:
1384: validate_record(p_api_version => p_api_version,
1390: p_tif_rec => p_tif_tbl(record_number),
1391: x_tif_rec => x_tif_tbl(record_number));
1392:
1393: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1394: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.validate_transaction.',
1395: 'after validate_record..for rec number ..'||record_number||' '||x_return_status);
1396: end if;
1397:
1398: ELSE
1404: END IF;
1405:
1406:
1407: IF (G_DEBUG_LEVEL_PROCEDURE >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1408: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_AM_TERMNT_INTERFACE_PVT.validate_transaction ','End(-)');
1409: END IF;
1410: EXCEPTION
1411: WHEN OTHERS THEN
1412: -- store SQL error message on message stack for caller
1630: ORDER BY CONTRACT_NUMBER,QUOTE_TYPE_CODE,DATE_EFFECTIVE_FROM,QUOTE_REASON_CODE,ASSET_ID;
1631: BEGIN
1632:
1633: IF (G_DEBUG_LEVEL_PROCEDURE >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1634: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_AM_TERMNT_INTERFACE_PVT.change_status','Begin(+)');
1635: END IF;
1636: record_number:=0;
1637: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1638: IF (p_tif_tbl.COUNT > 0) THEN
1646: ,x_return_status => x_return_status
1647: ,p_tif_rec => p_tif_tbl(record_number));
1648:
1649: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1650: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.change_status.',
1651: 'update_row for : '||record_number||':'||x_return_status);
1652: end if;
1653:
1654: EXIT WHEN (record_number = p_tif_tbl.LAST);
1712: record_number := record_number+1;
1713: END LOOP;
1714:
1715: IF (G_DEBUG_LEVEL_PROCEDURE >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1716: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_AM_TERMNT_INTERFACE_PVT.change_status','End(+)');
1717: END IF;
1718:
1719: EXCEPTION
1720: WHEN OTHERS THEN
1953:
1954: BEGIN
1955:
1956: IF (G_DEBUG_LEVEL_PROCEDURE >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1957: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_AM_TERMNT_INTERFACE_PVT.create_quote','Begin(+)');
1958: END IF;
1959:
1960: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1961: x_tif_tbl := p_tif_tbl;
1965: batch_offset := p_batch_offset;
1966: qdt_counter := 0;
1967:
1968: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1969: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.create_quote.',
1970: 'p_tif_tbl.count '||p_tif_tbl.count);
1971:
1972: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.create_quote.',
1973: 'p_assn_tbl.count '||p_assn_tbl.count);
1968: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1969: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.create_quote.',
1970: 'p_tif_tbl.count '||p_tif_tbl.count);
1971:
1972: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.create_quote.',
1973: 'p_assn_tbl.count '||p_assn_tbl.count);
1974: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.create_quote.',
1975: 'p_qpyv_tbl.count '||p_qpyv_tbl.count);
1976: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.create_quote.',
1970: 'p_tif_tbl.count '||p_tif_tbl.count);
1971:
1972: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.create_quote.',
1973: 'p_assn_tbl.count '||p_assn_tbl.count);
1974: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.create_quote.',
1975: 'p_qpyv_tbl.count '||p_qpyv_tbl.count);
1976: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.create_quote.',
1977: 'p_batch_offset '||p_batch_offset);
1978: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.create_quote.',
1972: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.create_quote.',
1973: 'p_assn_tbl.count '||p_assn_tbl.count);
1974: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.create_quote.',
1975: 'p_qpyv_tbl.count '||p_qpyv_tbl.count);
1976: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.create_quote.',
1977: 'p_batch_offset '||p_batch_offset);
1978: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.create_quote.',
1979: 'p_record_number '||p_record_number);
1980: END IF;
1974: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.create_quote.',
1975: 'p_qpyv_tbl.count '||p_qpyv_tbl.count);
1976: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.create_quote.',
1977: 'p_batch_offset '||p_batch_offset);
1978: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.create_quote.',
1979: 'p_record_number '||p_record_number);
1980: END IF;
1981: /* sysdate for date processed */
1982: SELECT trunc(SYSDATE) INTO l_sys_date FROM DUAL;
1988: LOOP
1989: IF(x_tif_tbl(batch_offset).auto_accept_yn = 'N') THEN
1990: l_term_from_intf := 'N';
1991: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
1992: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.create_quote.',
1993: 'going to exit batch_offset loop ');
1994: END IF;
1995: EXIT;
1996: END IF;
2237: END LOOP;
2238: END IF;
2239:
2240: IF (G_DEBUG_LEVEL_PROCEDURE >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2241: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_AM_TERMNT_INTERFACE_PVT.create_quote','End(+)');
2242: END IF;
2243:
2244: EXCEPTION
2245: WHEN OTHERS THEN
2308:
2309: BEGIN
2310:
2311: IF (G_DEBUG_LEVEL_PROCEDURE >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2312: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote','Begin(+)');
2313: END IF;
2314: record_number := 0;
2315: quote_lines := 0;
2316: batch_offset := 0;
2320: l_contract_number := OKC_API.G_MISS_CHAR;
2321: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2322:
2323: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2324: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2325: 'p_group_number : '||p_group_number);
2326: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2327: 'p_tif_tbl.count : '||p_tif_tbl.count);
2328:
2322:
2323: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2324: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2325: 'p_group_number : '||p_group_number);
2326: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2327: 'p_tif_tbl.count : '||p_tif_tbl.count);
2328:
2329: end if;
2330:
2331: IF(p_tif_tbl.COUNT>0) THEN
2332: FOR record_number IN p_tif_tbl.FIRST..p_tif_tbl.LAST LOOP
2333:
2334: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2335: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2336: 'inside p_tif_tbl LOOP record_number '||record_number);
2337: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2338: 'inside p_tif_tbl LOOP K Number '||p_tif_tbl(record_number).contract_number);
2339: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2333:
2334: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2335: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2336: 'inside p_tif_tbl LOOP record_number '||record_number);
2337: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2338: 'inside p_tif_tbl LOOP K Number '||p_tif_tbl(record_number).contract_number);
2339: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2340: 'inside p_tif_tbl LOOP quote_type_code '||p_tif_tbl(record_number).quote_type_code);
2341: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2335: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2336: 'inside p_tif_tbl LOOP record_number '||record_number);
2337: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2338: 'inside p_tif_tbl LOOP K Number '||p_tif_tbl(record_number).contract_number);
2339: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2340: 'inside p_tif_tbl LOOP quote_type_code '||p_tif_tbl(record_number).quote_type_code);
2341: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2342: 'inside p_tif_tbl LOOP quote_reason_code '||p_tif_tbl(record_number).quote_reason_code);
2343: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2337: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2338: 'inside p_tif_tbl LOOP K Number '||p_tif_tbl(record_number).contract_number);
2339: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2340: 'inside p_tif_tbl LOOP quote_type_code '||p_tif_tbl(record_number).quote_type_code);
2341: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2342: 'inside p_tif_tbl LOOP quote_reason_code '||p_tif_tbl(record_number).quote_reason_code);
2343: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2344: 'inside p_tif_tbl LOOP date_effective_from '||p_tif_tbl(record_number).date_effective_from);
2345:
2339: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2340: 'inside p_tif_tbl LOOP quote_type_code '||p_tif_tbl(record_number).quote_type_code);
2341: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2342: 'inside p_tif_tbl LOOP quote_reason_code '||p_tif_tbl(record_number).quote_reason_code);
2343: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2344: 'inside p_tif_tbl LOOP date_effective_from '||p_tif_tbl(record_number).date_effective_from);
2345:
2346: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2347: 'inside p_tif_tbl LOOP l_contract_number '||l_contract_number);
2342: 'inside p_tif_tbl LOOP quote_reason_code '||p_tif_tbl(record_number).quote_reason_code);
2343: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2344: 'inside p_tif_tbl LOOP date_effective_from '||p_tif_tbl(record_number).date_effective_from);
2345:
2346: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2347: 'inside p_tif_tbl LOOP l_contract_number '||l_contract_number);
2348: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2349: 'inside p_tif_tbl LOOP l_quote_type '||l_quote_type);
2350: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2344: 'inside p_tif_tbl LOOP date_effective_from '||p_tif_tbl(record_number).date_effective_from);
2345:
2346: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2347: 'inside p_tif_tbl LOOP l_contract_number '||l_contract_number);
2348: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2349: 'inside p_tif_tbl LOOP l_quote_type '||l_quote_type);
2350: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2351: 'inside p_tif_tbl LOOP l_quote_reason '||l_quote_reason);
2352: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2346: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2347: 'inside p_tif_tbl LOOP l_contract_number '||l_contract_number);
2348: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2349: 'inside p_tif_tbl LOOP l_quote_type '||l_quote_type);
2350: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2351: 'inside p_tif_tbl LOOP l_quote_reason '||l_quote_reason);
2352: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2353: 'inside p_tif_tbl LOOP l_date_effective_from '||l_date_effective_from);
2354: END IF;
2348: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2349: 'inside p_tif_tbl LOOP l_quote_type '||l_quote_type);
2350: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2351: 'inside p_tif_tbl LOOP l_quote_reason '||l_quote_reason);
2352: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2353: 'inside p_tif_tbl LOOP l_date_effective_from '||l_date_effective_from);
2354: END IF;
2355:
2356: -- checking the condition to separate the batches for quote creation
2360: (l_date_effective_from <> p_tif_tbl(record_number).date_effective_from))
2361: AND (record_number <>p_tif_tbl.FIRST)) THEN
2362:
2363: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2364: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2365: 'entered IF... ');
2366:
2367: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2368: 'inside IF contract_id '||p_tif_tbl(record_number-1).contract_id);
2363: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2364: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2365: 'entered IF... ');
2366:
2367: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2368: 'inside IF contract_id '||p_tif_tbl(record_number-1).contract_id);
2369: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2370: 'inside IF date_effective_from '||p_tif_tbl(record_number-1).date_effective_from);
2371: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2365: 'entered IF... ');
2366:
2367: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2368: 'inside IF contract_id '||p_tif_tbl(record_number-1).contract_id);
2369: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2370: 'inside IF date_effective_from '||p_tif_tbl(record_number-1).date_effective_from);
2371: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2372: 'inside IF org_id '||p_tif_tbl(record_number-1).org_id);
2373: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2367: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2368: 'inside IF contract_id '||p_tif_tbl(record_number-1).contract_id);
2369: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2370: 'inside IF date_effective_from '||p_tif_tbl(record_number-1).date_effective_from);
2371: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2372: 'inside IF org_id '||p_tif_tbl(record_number-1).org_id);
2373: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2374: 'inside IF quote_type_code '||p_tif_tbl(record_number-1).quote_type_code);
2375: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2369: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2370: 'inside IF date_effective_from '||p_tif_tbl(record_number-1).date_effective_from);
2371: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2372: 'inside IF org_id '||p_tif_tbl(record_number-1).org_id);
2373: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2374: 'inside IF quote_type_code '||p_tif_tbl(record_number-1).quote_type_code);
2375: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2376: 'inside IF quote_reason_code '||p_tif_tbl(record_number-1).quote_reason_code);
2377: END IF;
2371: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2372: 'inside IF org_id '||p_tif_tbl(record_number-1).org_id);
2373: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2374: 'inside IF quote_type_code '||p_tif_tbl(record_number-1).quote_type_code);
2375: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2376: 'inside IF quote_reason_code '||p_tif_tbl(record_number-1).quote_reason_code);
2377: END IF;
2378:
2379: -- populates the lp_quot_rec and calls create_quote
2396: ,p_batch_offset => batch_offset
2397: ,p_record_number => record_number-1);
2398:
2399: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2400: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2401: 'after Craete_quote '||x_return_status);
2402: END IF;
2403:
2404: lp_assn_tbl.DELETE;
2406: lp_tif_tbl := lx_tif_tbl;
2407: lx_tif_tbl.DELETE;
2408:
2409: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2410: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2411: 'batch_offset '||batch_offset);
2412: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2413: 'record_number '||record_number);
2414: END IF;
2408:
2409: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2410: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2411: 'batch_offset '||batch_offset);
2412: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2413: 'record_number '||record_number);
2414: END IF;
2415:
2416: FOR i IN batch_offset..record_number-1 LOOP
2417:
2418: lp_tif_tbl(i).group_number := group_number;
2419:
2420: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2421: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2422: 'inside grp number loop '||i||':'||group_number);
2423: END IF;
2424: END LOOP;
2425: group_number := group_number+1;
2427: quote_lines := 0;
2428: END IF;--not equal condition
2429:
2430: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2431: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2432: 'outside not equal IF condition.. ');
2433: END IF;
2434:
2435: -- copy p_tif_tbl record in to local variables
2438: l_quote_reason := p_tif_tbl(record_number).quote_reason_code;
2439: l_date_effective_from := p_tif_tbl(record_number).date_effective_from;
2440:
2441: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2442: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2443: 'l_contract_number '||p_tif_tbl(record_number).contract_number);
2444: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2445: 'l_quote_type '||p_tif_tbl(record_number).quote_type_code);
2446: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2440:
2441: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2442: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2443: 'l_contract_number '||p_tif_tbl(record_number).contract_number);
2444: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2445: 'l_quote_type '||p_tif_tbl(record_number).quote_type_code);
2446: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2447: 'l_quote_reason '||p_tif_tbl(record_number).quote_reason_code);
2448: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2442: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2443: 'l_contract_number '||p_tif_tbl(record_number).contract_number);
2444: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2445: 'l_quote_type '||p_tif_tbl(record_number).quote_type_code);
2446: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2447: 'l_quote_reason '||p_tif_tbl(record_number).quote_reason_code);
2448: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2449: 'l_date_effective_from '||p_tif_tbl(record_number).date_effective_from);
2450: END IF;
2444: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2445: 'l_quote_type '||p_tif_tbl(record_number).quote_type_code);
2446: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2447: 'l_quote_reason '||p_tif_tbl(record_number).quote_reason_code);
2448: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2449: 'l_date_effective_from '||p_tif_tbl(record_number).date_effective_from);
2450: END IF;
2451: --assign values to assn_tbl;
2452: IF(lp_assn_tbl.COUNT>0) THEN
2451: --assign values to assn_tbl;
2452: IF(lp_assn_tbl.COUNT>0) THEN
2453:
2454: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2455: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2456: 'inside lp_assn_tbl.COUNT>0 .. asset_id '||lp_assn_tbl(quote_lines).p_asset_id);
2457: END IF;
2458: IF(p_tif_tbl(record_number).asset_id = lp_assn_tbl(quote_lines).p_asset_id) THEN
2459: lp_assn_tbl(quote_lines).p_quote_qty := lp_assn_tbl(quote_lines).p_quote_qty+p_tif_tbl(record_number).units_to_terminate;
2457: END IF;
2458: IF(p_tif_tbl(record_number).asset_id = lp_assn_tbl(quote_lines).p_asset_id) THEN
2459: lp_assn_tbl(quote_lines).p_quote_qty := lp_assn_tbl(quote_lines).p_quote_qty+p_tif_tbl(record_number).units_to_terminate;
2460: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2461: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2462: 'inside asset equal condition .. p_quote_qty '||lp_assn_tbl(quote_lines).p_quote_qty+p_tif_tbl(record_number).units_to_terminate);
2463: END IF;
2464:
2465: ELSE
2463: END IF;
2464:
2465: ELSE
2466: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2467: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2468: 'inside asset <> condition .. quote_lines '||quote_lines);
2469: END IF;
2470:
2471: quote_lines := quote_lines+1;
2473: lp_assn_tbl(quote_lines).p_asset_number := p_tif_tbl(record_number).asset_number;
2474: lp_assn_tbl(quote_lines).p_quote_qty := p_tif_tbl(record_number).units_to_terminate;
2475:
2476: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2477: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2478: 'inside asset <> condition .. p_asset_id '||p_tif_tbl(record_number).asset_id);
2479: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2480: 'inside asset <> condition .. p_asset_number '||p_tif_tbl(record_number).asset_number);
2481: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2475:
2476: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2477: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2478: 'inside asset <> condition .. p_asset_id '||p_tif_tbl(record_number).asset_id);
2479: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2480: 'inside asset <> condition .. p_asset_number '||p_tif_tbl(record_number).asset_number);
2481: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2482: 'inside asset <> condition .. p_quote_qty '||p_tif_tbl(record_number).units_to_terminate);
2483: END IF;
2477: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2478: 'inside asset <> condition .. p_asset_id '||p_tif_tbl(record_number).asset_id);
2479: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2480: 'inside asset <> condition .. p_asset_number '||p_tif_tbl(record_number).asset_number);
2481: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2482: 'inside asset <> condition .. p_quote_qty '||p_tif_tbl(record_number).units_to_terminate);
2483: END IF;
2484: END IF;
2485: ELSE
2484: END IF;
2485: ELSE
2486:
2487: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2488: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2489: 'inside lp_assn_tbl.COUNT<= 0 .. ');
2490: END IF;
2491: --assign values to assn_tbl
2492: lp_assn_tbl(quote_lines).p_asset_id := p_tif_tbl(record_number).asset_id;
2493: lp_assn_tbl(quote_lines).p_asset_number := p_tif_tbl(record_number).asset_number;
2494: lp_assn_tbl(quote_lines).p_quote_qty := p_tif_tbl(record_number).units_to_terminate;
2495:
2496: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2497: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2498: 'inside lp_assn_tbl.COUNT<= 0 .. p_asset_id '||p_tif_tbl(record_number).asset_id);
2499: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2500: 'inside lp_assn_tbl.COUNT<= 0 .. p_asset_number '||p_tif_tbl(record_number).asset_number);
2501: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2495:
2496: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2497: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2498: 'inside lp_assn_tbl.COUNT<= 0 .. p_asset_id '||p_tif_tbl(record_number).asset_id);
2499: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2500: 'inside lp_assn_tbl.COUNT<= 0 .. p_asset_number '||p_tif_tbl(record_number).asset_number);
2501: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2502: 'inside lp_assn_tbl.COUNT<= 0 .. p_quote_qty '||p_tif_tbl(record_number).units_to_terminate);
2503: END IF;
2497: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2498: 'inside lp_assn_tbl.COUNT<= 0 .. p_asset_id '||p_tif_tbl(record_number).asset_id);
2499: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2500: 'inside lp_assn_tbl.COUNT<= 0 .. p_asset_number '||p_tif_tbl(record_number).asset_number);
2501: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2502: 'inside lp_assn_tbl.COUNT<= 0 .. p_quote_qty '||p_tif_tbl(record_number).units_to_terminate);
2503: END IF;
2504:
2505: END IF;
2505: END IF;
2506: IF(record_number = p_tif_tbl.LAST) THEN
2507:
2508: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2509: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2510: 'last record... ');
2511: END IF;
2512: -- populates the lp_quot_rec and calls create_quote for the last record
2513: lp_quot_rec.khr_id := p_tif_tbl(record_number).contract_id;
2517: lp_quot_rec.qrs_code := p_tif_tbl(record_number).quote_reason_code;
2518:
2519: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2520:
2521: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2522: 'last record .. khr_id '||p_tif_tbl(record_number).contract_id);
2523: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2524: 'last record .. date_effective_from '||p_tif_tbl(record_number).date_effective_from);
2525: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2519: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2520:
2521: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2522: 'last record .. khr_id '||p_tif_tbl(record_number).contract_id);
2523: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2524: 'last record .. date_effective_from '||p_tif_tbl(record_number).date_effective_from);
2525: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2526: 'last record .. org_id '||p_tif_tbl(record_number).org_id);
2527: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2521: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2522: 'last record .. khr_id '||p_tif_tbl(record_number).contract_id);
2523: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2524: 'last record .. date_effective_from '||p_tif_tbl(record_number).date_effective_from);
2525: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2526: 'last record .. org_id '||p_tif_tbl(record_number).org_id);
2527: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2528: 'last record .. qtp_code '||p_tif_tbl(record_number).quote_type_code);
2529: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2523: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2524: 'last record .. date_effective_from '||p_tif_tbl(record_number).date_effective_from);
2525: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2526: 'last record .. org_id '||p_tif_tbl(record_number).org_id);
2527: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2528: 'last record .. qtp_code '||p_tif_tbl(record_number).quote_type_code);
2529: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2530: 'last record .. qrs_code '||p_tif_tbl(record_number).quote_reason_code);
2531: END IF;
2525: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2526: 'last record .. org_id '||p_tif_tbl(record_number).org_id);
2527: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2528: 'last record .. qtp_code '||p_tif_tbl(record_number).quote_type_code);
2529: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2530: 'last record .. qrs_code '||p_tif_tbl(record_number).quote_reason_code);
2531: END IF;
2532: create_quote(p_api_version => p_api_version
2533: ,p_init_msg_list => OKC_API.G_FALSE
2543: ,p_record_number => record_number);
2544:
2545: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2546:
2547: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2548: 'after create_quote.. '||x_return_status);
2549: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2550: 'batch_offset.. '||batch_offset);
2551: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2545: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2546:
2547: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2548: 'after create_quote.. '||x_return_status);
2549: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2550: 'batch_offset.. '||batch_offset);
2551: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2552: 'record_number.. '||record_number);
2553: END IF;
2547: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2548: 'after create_quote.. '||x_return_status);
2549: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2550: 'batch_offset.. '||batch_offset);
2551: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2552: 'record_number.. '||record_number);
2553: END IF;
2554:
2555: FOR i IN batch_offset..record_number LOOP
2554:
2555: FOR i IN batch_offset..record_number LOOP
2556: lx_tif_tbl(i).group_number := group_number;
2557: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2558: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2559: 'group number .. '||group_number||':'||i);
2560: END IF;
2561:
2562: END LOOP;
2567: IF (x_tif_tbl.COUNT>0) THEN
2568: -- updates the INTERFACE table
2569:
2570: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2571: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2572: 'x_tif_tbl.COUNT .. '||x_tif_tbl.COUNT);
2573: END IF;
2574: FOR record_number IN x_tif_tbl.FIRST..x_tif_tbl.LAST LOOP
2575:
2573: END IF;
2574: FOR record_number IN x_tif_tbl.FIRST..x_tif_tbl.LAST LOOP
2575:
2576: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2577: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote.',
2578: 'record_number .. '||record_number);
2579: END IF;
2580: update_row(p_api_version => p_api_version
2581: ,p_init_msg_list => OKC_API.G_FALSE
2591: END IF;
2592: END IF;--p_tif_tbl.COUNT>0 END IF; -- To check if table contains any record.
2593:
2594: IF (G_DEBUG_LEVEL_PROCEDURE >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2595: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_AM_TERMNT_INTERFACE_PVT.populate_quote','End(+)');
2596: END IF;
2597:
2598: EXCEPTION
2599: WHEN OTHERS THEN
2687: l_temp NUMBER;
2688: BEGIN
2689:
2690: IF (G_DEBUG_LEVEL_PROCEDURE >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2691: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_AM_TERMNT_INTERFACE_PVT.validate_party','Begin(+)');
2692: END IF;
2693:
2694: x_tif_tbl := p_tif_tbl;
2695: lp_tip_tbl := p_tip_tbl;
2697: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2698: l_count := 0;
2699:
2700: IF (G_DEBUG_LEVEL_PROCEDURE >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2701: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_AM_TERMNT_INTERFACE_PVT.validate_party', 'lp_tip_tbl.count = '|| lp_tip_tbl.count);
2702: END IF;
2703:
2704: IF(lp_tip_tbl.COUNT>0) THEN
2705: -- sets the session variables
2705: -- sets the session variables
2706: FOR record_number IN lp_tip_tbl.FIRST..lp_tip_tbl.LAST LOOP
2707:
2708: IF (G_DEBUG_LEVEL_PROCEDURE >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2709: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_AM_TERMNT_INTERFACE_PVT.validate_party','Record Number '||record_number);
2710: END IF;
2711:
2712: IF (G_DEBUG_LEVEL_PROCEDURE >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2713: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_AM_TERMNT_INTERFACE_PVT.validate_party','l_transaction_number = '
2709: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_AM_TERMNT_INTERFACE_PVT.validate_party','Record Number '||record_number);
2710: END IF;
2711:
2712: IF (G_DEBUG_LEVEL_PROCEDURE >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2713: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_AM_TERMNT_INTERFACE_PVT.validate_party','l_transaction_number = '
2714: || l_transaction_number ||
2715: 'lp_tip_tbl(record_number).transaction_number ='|| lp_tip_tbl(record_number).transaction_number);
2716: END IF;
2717:
2743: p_token1 => 'TRANSACTION_NUMBER',
2744: p_token1_value => lx_tip_tbl(record_number).transaction_number);
2745: message :='transaction_number '||lx_tip_tbl(record_number).transaction_number||' repeated in party table';
2746: IF (G_DEBUG_LEVEL_PROCEDURE >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2747: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_AM_TERMNT_INTERFACE_PVT.validate_party','message 1 '||message);
2748: END IF;
2749:
2750: ELSIF(lp_tip_tbl(record_number).contract_party_role IS NULL) THEN
2751: lx_tip_tbl(record_number).status := 'ERROR';
2756: p_token1_value => 'CONTRACT PARTY ROLE');
2757: message :='contract party role should be entered for transaction_number '||lx_tip_tbl(record_number).transaction_number;
2758:
2759: IF (G_DEBUG_LEVEL_PROCEDURE >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2760: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_AM_TERMNT_INTERFACE_PVT.validate_party','message 2 '||message);
2761: END IF;
2762: ELSE
2763: lx_tip_tbl(record_number).status := 'WORKING';
2764: END IF;
2763: lx_tip_tbl(record_number).status := 'WORKING';
2764: END IF;
2765:
2766: IF (G_DEBUG_LEVEL_PROCEDURE >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2767: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_AM_TERMNT_INTERFACE_PVT.validate_party','lx_tip_tbl(record_number).status1 '
2768: ||lx_tip_tbl(record_number).status);
2769: END IF;
2770:
2771: IF(lx_tip_tbl(record_number).status <> 'ERROR') THEN
2773: l_chr_id := NULL;
2774: -- fetches the associated contract_id from INTERFACE table based on transaction_number
2775: FOR interface_dtls IN get_contract_id_csr(l_transaction_number) LOOP
2776: IF (G_DEBUG_LEVEL_PROCEDURE >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2777: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_AM_TERMNT_INTERFACE_PVT.validate_party','interface_dtls.status '
2778: ||interface_dtls.status);
2779: END IF;
2780: IF(interface_dtls.status <> 'WORKING') THEN
2781: lx_tip_tbl(record_number).status := 'ERROR';
2786: p_token1 => 'TRANSACTION_NUMBER',
2787: p_token1_value => lx_tip_tbl(record_number).transaction_number);
2788: message :='transaction_number in OKL_TERMNT_INTERFACE is ERROR for transaction number '||lx_tip_tbl(record_number).transaction_number;
2789: IF (G_DEBUG_LEVEL_PROCEDURE >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2790: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_AM_TERMNT_INTERFACE_PVT.validate_party','message 3 '||message);
2791: END IF;
2792:
2793: ELSE
2794: l_chr_id := interface_dtls.contract_id;
2795: END IF;
2796: END LOOP;
2797:
2798: IF (G_DEBUG_LEVEL_PROCEDURE >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2799: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_AM_TERMNT_INTERFACE_PVT.validate_party','lx_tip_tbl(record_number).status2 '
2800: ||lx_tip_tbl(record_number).status || 'l_chr_id = '|| l_chr_id);
2801: END IF;
2802:
2803: IF(l_chr_id IS NULL OR l_chr_id = OKC_API.G_MISS_NUM)THEN
2808: p_token1 => 'TRANSACTION_NUMBER',
2809: p_token1_value => lx_tip_tbl(record_number).transaction_number);
2810: message :='wrong transaction number '||lx_tip_tbl(record_number).transaction_number;
2811: IF (G_DEBUG_LEVEL_PROCEDURE >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2812: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_AM_TERMNT_INTERFACE_PVT.validate_party','message 4 '||message);
2813: END IF;
2814: END IF;
2815: END IF;
2816: IF (G_DEBUG_LEVEL_PROCEDURE >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2813: END IF;
2814: END IF;
2815: END IF;
2816: IF (G_DEBUG_LEVEL_PROCEDURE >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2817: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_AM_TERMNT_INTERFACE_PVT.validate_party','lx_tip_tbl(record_number).status3 '
2818: ||lx_tip_tbl(record_number).status);
2819: END IF;
2820: -- if no role specified default it to RECIPIENT
2821: IF(lx_tip_tbl(record_number).status <> 'ERROR') THEN
2873: -- populate all party details required
2874:
2875: --sechawla 02-aug-2011 12745559
2876: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2877: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.validate_party.',
2878: 'l_party_object_id1 '||l_party_object_id1 );
2879: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.validate_party.',
2880: 'lx_tip_tbl(record_number).email_address .. '||lx_tip_tbl(record_number).email_address);
2881: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.validate_party.',
2875: --sechawla 02-aug-2011 12745559
2876: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2877: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.validate_party.',
2878: 'l_party_object_id1 '||l_party_object_id1 );
2879: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.validate_party.',
2880: 'lx_tip_tbl(record_number).email_address .. '||lx_tip_tbl(record_number).email_address);
2881: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.validate_party.',
2882: 'l_email_address .. '||l_email_address);
2883: END IF;
2877: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.validate_party.',
2878: 'l_party_object_id1 '||l_party_object_id1 );
2879: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.validate_party.',
2880: 'lx_tip_tbl(record_number).email_address .. '||lx_tip_tbl(record_number).email_address);
2881: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.validate_party.',
2882: 'l_email_address .. '||l_email_address);
2883: END IF;
2884:
2885: IF(lp_tip_tbl(record_number).contract_party_number = l_contract_party_number) THEN
2887: lx_tip_tbl(record_number).contract_party_id := l_contract_party_id;
2888: lx_tip_tbl(record_number).contract_party_name := l_contract_party_name;
2889:
2890: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2891: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.validate_party.',
2892: 'lx_tip_tbl(record_number).email_address after assignment.. '||lx_tip_tbl(record_number).email_address
2893: ||'l_email_address' ||l_email_address);
2894: END IF;
2895:
2911: lx_tip_tbl(record_number).contract_party_number := l_contract_party_number;
2912: lx_tip_tbl(record_number).contract_party_name := l_contract_party_name;
2913:
2914: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2915: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.validate_party.',
2916: 'lx_tip_tbl(record_number).email_address after assignment.. '||lx_tip_tbl(record_number).email_address
2917: || 'l_email_address = '|| l_email_address);
2918: END IF;
2919:
2938: EXIT;
2939: END IF;
2940: END LOOP;
2941: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2942: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.validate_party.',
2943: 'count ....... '||l_count);
2944: END IF;
2945:
2946: IF(l_count = 0) THEN
2951: p_token1 => 'COL_NAME',
2952: p_token1_value => 'CONTRACT PARTY ROLE');
2953: message :='quote party should be a lessee or vendor for transaction_number '||lx_tip_tbl(record_number).transaction_number;
2954: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2955: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.validate_party.',
2956: 'message11 '||message);
2957: END IF;
2958: ELSIF(l_count>1) THEN
2959: IF((lp_tip_tbl(record_number).contract_party_id IS NULL OR lp_tip_tbl(record_number).contract_party_id = OKC_API.G_MISS_NUM) AND
2965: p_token1 => 'COL_NAME',
2966: p_token1_value => 'CONTRACT_PARTY_NAME OR PARTY_ID');
2967: message :='contract_party_number or contract_party_id should be entered for transaction_number '||lx_tip_tbl(record_number).transaction_number;
2968: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2969: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.validate_party.',
2970: 'message 22 '||message);
2971: END IF;
2972: ELSIF(lp_tip_tbl(record_number).contract_party_number IS NOT NULL) THEN
2973: IF(l_contract_party_number <> lp_tip_tbl(record_number).contract_party_number) THEN
2978: p_token1 => 'COL_NAME',
2979: p_token1_value => 'CONTRACT_PARTY_NUMBER');
2980: message :='contract party number entered not exists for transaction_number '||lx_tip_tbl(record_number).transaction_number;
2981: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2982: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.validate_party.',
2983: 'message 33 '||message);
2984: END IF;
2985: END IF;
2986: ELSIF(lp_tip_tbl(record_number).contract_party_id IS NOT NULL) THEN
2992: p_token1 => 'COL_NAME',
2993: p_token1_value => 'CONTRACT_PARTY_NUMBER');
2994: message :='contract party id entered not exists for transaction_number '||lx_tip_tbl(record_number).transaction_number;
2995: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
2996: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.validate_party.',
2997: 'message 44 '||message);
2998: END IF;
2999: END IF;
3000: END IF;
3007: lx_tip_tbl(record_number).contract_party_id := l_contract_party_id;
3008: lx_tip_tbl(record_number).contract_party_name := l_contract_party_name;
3009:
3010: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
3011: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.validate_party.',
3012: 'lx_tip_tbl(record_number).email_address after assignment.. '||lx_tip_tbl(record_number).email_address
3013: ||'l_email_address' ||l_email_address);
3014: END IF;
3015:
3030: p_token1 => 'COL_NAME',
3031: p_token1_value => 'CONTRACT_PARTY_NUMBER');
3032: message :='contract party number entered not exists for transaction_number '||lx_tip_tbl(record_number).transaction_number;
3033: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
3034: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.validate_party.',
3035: 'message 55 '||message);
3036: END IF;
3037:
3038: END IF;
3045: p_token1 => 'COL_NAME',
3046: p_token1_value => 'CONTRACT_PARTY_NUMBER');
3047: message :='contract party id entered not exists for transaction_number '||lx_tip_tbl(record_number).transaction_number;
3048: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
3049: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.validate_party.',
3050: 'message 66 '||message);
3051: END IF;
3052: END IF;
3053: END IF;
3060: p_token1 => 'COL_NAME',
3061: p_token1_value => 'QUOTE_ROLE_CODE');
3062: message :='quote party type allowed is only RECIPIENT for transaction_number'||lx_tip_tbl(record_number).transaction_number;
3063: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
3064: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.validate_party.',
3065: 'message 77 '||message);
3066: END IF;
3067: END IF;
3068: END IF;-- for cursor object_ids
3071: IF(x_tif_tbl.COUNT>0) THEN
3072: FOR term_rec IN x_tif_tbl.FIRST..x_tif_tbl.LAST
3073: LOOP
3074: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
3075: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.validate_party.',
3076: 'if party record is error make related record in INTERFACE table also ERROR'
3077: || x_tif_tbl(term_rec).transaction_number
3078: || 'status '
3079: || x_tif_tbl(term_rec).status);
3079: || x_tif_tbl(term_rec).status);
3080: END IF;
3081: IF(x_tif_tbl(term_rec).transaction_number = lx_tip_tbl(record_number).transaction_number) THEN
3082: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
3083: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.validate_party.',
3084: 'x_tif_tbl(term_rec).transaction_number'|| x_tif_tbl(term_rec).transaction_number);
3085: END IF;
3086:
3087: x_tif_tbl(term_rec).status := 'ERROR';
3105: END IF;
3106: x_tip_tbl := lx_tip_tbl;
3107:
3108: IF (G_DEBUG_LEVEL_PROCEDURE >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
3109: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_AM_TERMNT_INTERFACE_PVT.validate_party','End(+)');
3110: END IF;
3111:
3112: EXCEPTION
3113: WHEN OTHERS THEN
3310:
3311: BEGIN
3312:
3313: IF (G_DEBUG_LEVEL_PROCEDURE >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
3314: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_AM_TERMNT_INTERFACE_PVT.select_party_info','Begin(+)');
3315: END IF;
3316: record_number:=0;
3317: x_return_status := OKC_API.G_RET_STS_SUCCESS;
3318:
3316: record_number:=0;
3317: x_return_status := OKC_API.G_RET_STS_SUCCESS;
3318:
3319: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
3320: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.select_party_info.',
3321: 'p_tip_tbl.COUNT : '||p_tip_tbl.COUNT);
3322: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.select_party_info.',
3323: 'record_number : '||record_number);
3324: end if;
3318:
3319: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
3320: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.select_party_info.',
3321: 'p_tip_tbl.COUNT : '||p_tip_tbl.COUNT);
3322: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.select_party_info.',
3323: 'record_number : '||record_number);
3324: end if;
3325:
3326: IF (p_tip_tbl.COUNT > 0) THEN
3328:
3329: -- loops throught the table of records to update the values
3330: LOOP
3331: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
3332: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.select_party_info.',
3333: 'inside p_tip_tbl.COUNT > 0 LOOP : '||record_number
3334: || 'transaction number' || p_tip_tbl(record_number).transaction_number
3335: || 'email address ' || p_tip_tbl(record_number).email_address);
3336: END IF;
3351: record_number:=0;
3352: x_tip_tbl.DELETE;
3353:
3354: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
3355: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.select_party_info.',
3356: ' p_pty_status = ' || p_pty_status );
3357: END IF;
3358: -- cursor to retrive the data from party table
3359: FOR party_rec IN intface_pty_csr(p_status => p_pty_status) LOOP
3398: x_tip_tbl(record_number).last_update_login := party_rec.last_update_login;
3399: x_tip_tbl(record_number).quote_role_code := party_rec.quote_role_code;
3400:
3401: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
3402: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.select_party_info.',
3403: ' inside party loop : '||record_number||
3404: ' transaction_number :'||x_tip_tbl(record_number).transaction_number ||
3405: ' email address : '||x_tip_tbl(record_number).email_address);
3406: END IF;
3406: END IF;
3407: record_number := record_number+1;
3408: END LOOP;
3409: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
3410: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.select_party_info.',
3411: ' total records = ' || record_number );
3412: END IF;
3413:
3414: IF (G_DEBUG_LEVEL_PROCEDURE >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
3411: ' total records = ' || record_number );
3412: END IF;
3413:
3414: IF (G_DEBUG_LEVEL_PROCEDURE >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
3415: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_AM_TERMNT_INTERFACE_PVT.select_party_info','End(+)');
3416: END IF;
3417:
3418: EXCEPTION
3419: WHEN OTHERS THEN
3492:
3493: l_error_msg_rec ERROR_MESSAGE_TYPE;
3494: BEGIN
3495: IF (G_DEBUG_LEVEL_PROCEDURE >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
3496: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote',
3497: 'Begin(+)');
3498: END IF;
3499: x_group_number := 0;
3500: x_return_status := OKC_API.G_RET_STS_SUCCESS;
3499: x_group_number := 0;
3500: x_return_status := OKC_API.G_RET_STS_SUCCESS;
3501:
3502: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
3503: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
3504: 'p_tip_tbl count :'||p_tip_tbl.count||' p_tif_tbl count : '||p_tif_tbl.count);
3505: END IF;
3506:
3507: -- Rearrange the party table records wrt interface table records order
3527: IF(l_tip_tbl.COUNT>0) THEN
3528: FOR party_rec IN l_tip_tbl.FIRST..l_tip_tbl.LAST
3529: LOOP
3530: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
3531: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
3532: 'party table count = '|| party_rec || 'p_tip_tbl record status :'||l_tip_tbl(party_rec).status ||
3533: 'transaction number = ' || l_tip_tbl(party_rec).transaction_number );
3534: END IF;
3535: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
3532: 'party table count = '|| party_rec || 'p_tip_tbl record status :'||l_tip_tbl(party_rec).status ||
3533: 'transaction number = ' || l_tip_tbl(party_rec).transaction_number );
3534: END IF;
3535: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
3536: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
3537: 'interface table count = ' || record_number || 'p_tip_tbl record status : :'||p_tif_tbl(record_number).status ||
3538: 'transaction Number =' || p_tif_tbl(record_number).transaction_number );
3539: END IF;
3540:
3542: IF l_tip_tbl(party_rec).transaction_number = p_tif_tbl(record_number).transaction_number THEN
3543:
3544: --errorout_vg('Processing transaction number = '|| l_tip_tbl(party_rec).transaction_number );
3545: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
3546: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
3547: 'processing begins for transaction number = ' || l_tip_tbl(party_rec).transaction_number );
3548: END IF;
3549:
3550: -- checking the condition to separate the batches for quote creation
3554: (l_date_effective_from <> p_tif_tbl(record_number).date_effective_from)) AND
3555: (party_rec <> l_tip_tbl.FIRST)) THEN
3556:
3557: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
3558: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
3559: 'Inside not equal condition ' );
3560: END IF;
3561: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
3562: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
3558: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
3559: 'Inside not equal condition ' );
3560: END IF;
3561: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
3562: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
3563: 'Fetch rule Quote parties for contract id = ' || p_tif_tbl(l_contract_record).contract_id ||
3564: 'org id = '|| p_tif_tbl(l_contract_record).org_id ||
3565: 'Date effective form = ' || p_tif_tbl(l_contract_record).date_effective_from);
3566: END IF;
3584: x_q_party_uv_tbl => x_q_party_uv_tbl);
3585:
3586: --errorout_vg('AFter OKL_AM_PARTIES_PVT.fetch_rule_quote_parties ' || x_return_status);
3587: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
3588: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
3589: 'Fetch rule Quote parties status = ' || x_return_status ||
3590: 'Party record count' || lp_qpyv_tbl.COUNT );
3591: END IF;
3592: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
3589: 'Fetch rule Quote parties status = ' || x_return_status ||
3590: 'Party record count' || lp_qpyv_tbl.COUNT );
3591: END IF;
3592: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
3593: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
3594: 'Lessee tip table count = ' || l_lessee_tip_tbl.count );
3595: END IF;
3596:
3597: --errorout_vg('Lessee tip table count = '|| l_lessee_tip_tbl.count );
3620: x_qpyv_tbl => lx_qpyv_tbl,
3621: x_return_status => x_return_status);
3622:
3623: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
3624: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
3625: 'Create Quote Parties status = ' || x_return_status );
3626: END IF;
3627:
3628: GET_ERROR_MESSAGE(l_error_msg_rec);
3654: p_record_number => l_lessee_tif_tbl.LAST);
3655:
3656: --errorout_vg('Create Quote Status = ' || x_return_status);
3657: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
3658: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
3659: 'Create Quote Status for lessee = ' || x_return_status );
3660: END IF;
3661:
3662: l_lessee_tif_tbl.delete;
3666: IF(x_return_status = OKC_API.G_RET_STS_SUCCESS) AND (l_lessee_tif_tbl(0).status = 'PROCESSED') THEN
3667: FOR i IN l_lessee_tip_tbl.FIRST..l_lessee_tip_tbl.LAST
3668: LOOP
3669: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
3670: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
3671: 'Update Party to Processed = ' || l_lessee_tip_tbl(i).transaction_number );
3672: END IF;
3673: l_lessee_tip_tbl(i).status :='PROCESSED';
3674: update_party(
3684:
3685: FOR i IN l_lessee_tif_tbl.FIRST..l_lessee_tif_tbl.LAST
3686: LOOP
3687: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
3688: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
3689: 'Update interface record group number for :' || l_lessee_tif_tbl(i).transaction_number ||
3690: ' group number = ' ||group_number );
3691: END IF;
3692:
3715: ELSE
3716: FOR i IN l_lessee_tip_tbl.FIRST..l_lessee_tip_tbl.LAST
3717: LOOP
3718: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
3719: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
3720: 'Update Party to Errored = ' || l_lessee_tip_tbl(i).transaction_number );
3721: END IF;
3722:
3723: l_lessee_tip_tbl(i).status :='ERROR';
3735:
3736: END IF; -- End if for x_return_status success
3737:
3738: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
3739: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
3740: 'Create Quote status = ' || x_return_status );
3741: END IF;
3742:
3743: FOR i IN l_lessee_tif_tbl.FIRST..l_lessee_tif_tbl.LAST
3768: FOR i IN l_lessee_tip_tbl.FIRST..l_lessee_tip_tbl.LAST
3769: LOOP
3770:
3771: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
3772: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
3773: 'Update Party to Errored = ' || l_lessee_tip_tbl(i).transaction_number );
3774: END IF;
3775:
3776: l_lessee_tip_tbl(i).status :='ERROR';
3785: END IF; -- if party creation success
3786: END IF; -- l_lesseee_tip_tbl
3787:
3788: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
3789: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
3790: 'Vendor tip table count = ' || l_vendor_tip_tbl.count );
3791: END IF;
3792:
3793: --errorout_vg('Vendor tip table count = '|| l_vendor_tip_tbl.count );
3807: END LOOP;
3808: END IF;
3809:
3810: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
3811: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
3812: 'Before Create quote parties ' || lp_qpyv_tbl.count );
3813: END IF;
3814:
3815: -- calls Create quote parties with p_validate_only = TRUE
3820: x_qpyv_tbl => lx_qpyv_tbl,
3821: x_return_status => x_return_status);
3822:
3823: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
3824: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
3825: 'Create Quote Parties status = ' || x_return_status );
3826: END IF;
3827:
3828: GET_ERROR_MESSAGE(l_error_msg_rec);
3859: l_vendor_tif_tbl := lx_tif_tbl;
3860: lx_tif_tbl.delete;
3861:
3862: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
3863: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
3864: 'Create Quote status = ' || x_return_status );
3865: END IF;
3866:
3867: IF(x_return_status = OKC_API.G_RET_STS_SUCCESS) AND (l_vendor_tif_tbl(0).status = 'PROCESSED' ) THEN
3867: IF(x_return_status = OKC_API.G_RET_STS_SUCCESS) AND (l_vendor_tif_tbl(0).status = 'PROCESSED' ) THEN
3868: FOR i IN l_vendor_tip_tbl.FIRST..l_vendor_tip_tbl.LAST
3869: LOOP
3870: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
3871: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
3872: 'Update Party to processed = ' || l_vendor_tip_tbl(i).transaction_number );
3873: END IF;
3874:
3875: l_vendor_tip_tbl(i).status := 'PROCESSED';
3885: FOR i IN l_vendor_tif_tbl.FIRST..l_vendor_tif_tbl.LAST
3886: LOOP
3887:
3888: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
3889: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
3890: 'Update interface record group number for ' || l_vendor_tif_tbl(i).transaction_number ||
3891: 'group number = ' ||group_number );
3892:
3893: END IF;
3912: ELSE
3913: FOR i IN l_vendor_tip_tbl.FIRST..l_vendor_tip_tbl.LAST
3914: LOOP
3915: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
3916: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
3917: 'Update Party to Error = ' || l_vendor_tip_tbl(i).transaction_number );
3918: END IF;
3919:
3920: l_vendor_tip_tbl(i).status := 'ERROR';
3954:
3955: FOR i IN l_vendor_tip_tbl.FIRST..l_vendor_tip_tbl.LAST
3956: LOOP
3957: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
3958: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
3959: 'Update Party to Error = ' || l_vendor_tip_tbl(i).transaction_number);
3960: END IF;
3961:
3962: l_vendor_tip_tbl(i).status := 'ERROR';
3986:
3987: END IF;--not equal condition
3988:
3989: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
3990: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
3991: 'Outside <> condition ' );
3992: END IF;
3993:
3994: --errorout_vg('Out side not matching condition');
4002: --errorout_vg('p_tip_tbl(party_rec).contract_party_role '|| l_tip_tbl(party_rec).contract_party_role
4003: -- ||'for transaction_number' || l_tip_tbl(party_rec).transaction_number);
4004:
4005: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4006: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
4007: 'p_tip_tbl(party_rec).contract_party_role ' || l_tip_tbl(party_rec).contract_party_role ||
4008: 'for transaction_number' || l_tip_tbl(party_rec).transaction_number);
4009: END IF;
4010:
4051: -- Last record of the party table
4052: IF(party_rec = l_tip_tbl.LAST) THEN
4053: --errorout_vg('Inside last record');
4054: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4055: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
4056: 'Last Record of the party table');
4057: END IF;
4058:
4059: -- populates the lp_quot_rec and calls create_quote for the last record
4075: x_q_party_uv_tbl => x_q_party_uv_tbl);
4076:
4077: --errorout_vg('Fetch rule quote parties status ='|| x_return_status);
4078: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4079: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
4080: 'Fetch rule Quote parties status = ' || x_return_status );
4081: END IF;
4082:
4083: --errorout_vg('l_lessee_tip_tbl.count '|| l_lessee_tip_tbl.count);
4083: --errorout_vg('l_lessee_tip_tbl.count '|| l_lessee_tip_tbl.count);
4084: --errorout_vg('l_lessee_tif_tbl.count '|| l_lessee_tif_tbl.count);
4085:
4086: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4087: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
4088: 'Lessee tip table count = ' || l_lessee_tip_tbl.count ||
4089: 'tif tbl count '|| l_lessee_tif_tbl.count );
4090: END IF;
4091:
4114: x_return_status => x_return_status);
4115:
4116: --errorout_vg('After create quote parties status = ' ||x_return_status );
4117: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4118: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
4119: 'Create Quote Parties status = ' || x_return_status );
4120: END IF;
4121:
4122: GET_ERROR_MESSAGE(l_error_msg_rec);
4152: l_lessee_tif_tbl := lx_tif_tbl;
4153: lx_tif_tbl.DELETE;
4154:
4155: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4156: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
4157: 'Create Quote status = ' || x_return_status );
4158: END IF;
4159:
4160: IF(x_return_status = OKC_API.G_RET_STS_SUCCESS) AND (l_lessee_tif_tbl(0).status = 'PROCESSED' ) THEN
4160: IF(x_return_status = OKC_API.G_RET_STS_SUCCESS) AND (l_lessee_tif_tbl(0).status = 'PROCESSED' ) THEN
4161: FOR i IN l_lessee_tip_tbl.FIRST..l_lessee_tip_tbl.LAST
4162: LOOP
4163: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4164: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
4165: 'Update Party to processed = ' || l_lessee_tip_tbl(i).transaction_number );
4166: END IF;
4167:
4168: --errorout_vg('Update Party to processed = ' || l_lessee_tip_tbl(i).transaction_number);
4179:
4180: FOR i IN l_lessee_tif_tbl.FIRST..l_lessee_tif_tbl.LAST
4181: LOOP
4182: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4183: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
4184: 'Update interface record group number for ' || l_lessee_tip_tbl(i).transaction_number ||
4185: ' group number = ' ||group_number );
4186: END IF;
4187:
4206: ELSE
4207: FOR i IN l_lessee_tip_tbl.FIRST..l_lessee_tip_tbl.LAST
4208: LOOP
4209: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4210: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
4211: 'Update Party to Error = ' || l_lessee_tip_tbl(i).transaction_number);
4212: END IF;
4213:
4214: l_lessee_tip_tbl(i).status := 'ERROR';
4248:
4249: FOR i IN l_lessee_tip_tbl.FIRST..l_lessee_tip_tbl.LAST
4250: LOOP
4251: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4252: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
4253: 'Update Party to Error = ' || l_lessee_tip_tbl(i).transaction_number );
4254: END IF;
4255:
4256: l_lessee_tip_tbl(i).status := 'ERROR';
4270: --errorout_vg('Vendor table count = ' ||l_vendor_tip_tbl.count );
4271: --errorout_vg('interface table count = '||l_vendor_tif_tbl.count );
4272:
4273: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4274: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
4275: 'Vendor tip table count = ' || l_vendor_tip_tbl.count ||
4276: 'tif_tbl count = ' || l_vendor_tif_tbl.count );
4277: END IF;
4278:
4292: END LOOP;
4293: END IF;
4294:
4295: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4296: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
4297: 'Before Create quote parties ' || lp_qpyv_tbl.count );
4298: END IF;
4299:
4300: -- calls Create quote parties with p_validate_only = TRUE
4305: x_qpyv_tbl => lx_qpyv_tbl,
4306: x_return_status => x_return_status);
4307:
4308: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4309: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
4310: 'Create Quote Parties status = ' || x_return_status );
4311: END IF;
4312:
4313: --errorout_vg('Create quote party status '|| x_return_status);
4344: lx_tif_tbl.DELETE;
4345: --errorout_vg('create quote status ' || x_return_status );
4346:
4347: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4348: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
4349: 'Create Quote status = ' || x_return_status );
4350: END IF;
4351:
4352: IF(x_return_status = OKC_API.G_RET_STS_SUCCESS) AND (l_vendor_tif_tbl(0).status = 'PROCESSED' ) THEN
4352: IF(x_return_status = OKC_API.G_RET_STS_SUCCESS) AND (l_vendor_tif_tbl(0).status = 'PROCESSED' ) THEN
4353: FOR i IN l_vendor_tip_tbl.FIRST..l_vendor_tip_tbl.LAST
4354: LOOP
4355: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4356: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
4357: 'Update Party to processed = ' || l_vendor_tip_tbl(i).transaction_number );
4358: END IF;
4359:
4360: l_vendor_tip_tbl(i).status := 'PROCESSED';
4371:
4372: FOR i IN l_vendor_tif_tbl.FIRST..l_vendor_tif_tbl.LAST
4373: LOOP
4374: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4375: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
4376: 'Update interface record group number = ' || l_vendor_tip_tbl(i).transaction_number ||
4377: 'group number = ' ||group_number );
4378: END IF;
4379: --errorout_vg('update the group number for'|| l_vendor_tif_tbl(i).transaction_number
4399: ELSE
4400: FOR i IN l_vendor_tip_tbl.FIRST..l_vendor_tip_tbl.LAST
4401: LOOP
4402: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4403: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
4404: 'Update Party to Error = ' || l_vendor_tip_tbl(i).transaction_number );
4405: END IF;
4406: --errorout_vg('Vendor Transaction Number : error= '|| l_vendor_tip_tbl(i).transaction_number);
4407:
4441:
4442: FOR i IN l_vendor_tip_tbl.FIRST..l_vendor_tip_tbl.LAST
4443: LOOP
4444: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4445: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
4446: 'Update Party to Error = ' || l_vendor_tip_tbl(i).transaction_number );
4447: END IF;
4448:
4449: l_vendor_tip_tbl(i).status := 'ERROR';
4460: END IF;
4461: END IF; -- l_vendor_tip_tbl
4462: --errorout_vg('Party table processing ends here');
4463: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4464: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
4465: 'Party Table processing ends here ' );
4466: END IF;
4467: EXIT;
4468: END IF; -- End of last record
4466: END IF;
4467: EXIT;
4468: END IF; -- End of last record
4469: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4470: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote.',
4471: 'processing Ends for transaction number = ' || l_tip_tbl(party_rec).transaction_number );
4472: END IF;
4473: END IF; -- if transaction numbers are same
4474: END LOOP; --l_tip_tbl.FIRST..p_tip_tbl.LAST
4475: END IF; -- p_tip_tbl.COUNT>0 END IF; -- To check if table contains any record.
4476: END LOOP; -- p_tif_tbl.first..last
4477: END IF; -- p_tif_tbl.count>0
4478: IF (G_DEBUG_LEVEL_PROCEDURE >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4479: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_AM_TERMNT_INTERFACE_PVT.populate_party_for_quote','End(+)');
4480: END IF;
4481: --errorout_vg('x_out_tif_tbl.coun t' || x_out_tif_tbl.count );
4482: --errorout_vg('Group NUmber = '|| group_number );
4483: l_tip_tbl.DELETE;
4601: l_msg_tbl msg_tbl_type;
4602: BEGIN
4603:
4604: IF (G_DEBUG_LEVEL_PROCEDURE >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4605: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface','Begin(+)');
4606: END IF;
4607:
4608: x_return_status := OKC_API.G_RET_STS_SUCCESS;
4609: --Check API version, initialize message list and create savepoint.
4627: FOR termnt_rec IN get_termnt_intface_dtls_csr(p_status=>'ENTERED')
4628: LOOP
4629:
4630: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4631: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4632: 'record_number :'||record_number||' Transaction Number : '||termnt_rec.transaction_number);
4633: end if;
4634:
4635: l_tif_tbl(record_number).row_id := termnt_rec.rowid;
4682: l_tif_tbl(record_number).last_update_login := termnt_rec.last_update_login;
4683: l_tif_tbl(record_number).group_number := termnt_rec.group_number;
4684:
4685: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4686: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4687: 'l_tif_tbl(record_number).group_number :'||l_tif_tbl(record_number).group_number);
4688: end if;
4689:
4690: record_number := record_number+1;
4692:
4693: tot_rec_processed := l_tif_tbl.COUNT;
4694:
4695: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4696: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4697: 'tot_rec_processed :'||tot_rec_processed);
4698: end if;
4699:
4700: -- validates quote_type and quote_reason and populates WHO columns
4709: l_tif_tbl := lx_tif_tbl;
4710: lx_tif_tbl.DELETE;
4711:
4712: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4713: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4714: 'after validate_quote_type_and_reason : '||x_return_status);
4715: -- FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4716: ---'after validate_quote_type_and_reason : trx number (0) : '||l_tif_tbl(0).transaction_number);
4717: -- FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4711:
4712: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4713: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4714: 'after validate_quote_type_and_reason : '||x_return_status);
4715: -- FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4716: ---'after validate_quote_type_and_reason : trx number (0) : '||l_tif_tbl(0).transaction_number);
4717: -- FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4718: --'after validate_quote_type_and_reason : trx number (1) : '||l_tif_tbl(1).transaction_number);
4719: end if;
4713: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4714: 'after validate_quote_type_and_reason : '||x_return_status);
4715: -- FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4716: ---'after validate_quote_type_and_reason : trx number (0) : '||l_tif_tbl(0).transaction_number);
4717: -- FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4718: --'after validate_quote_type_and_reason : trx number (1) : '||l_tif_tbl(1).transaction_number);
4719: end if;
4720:
4721: -- validates contract and asset details entered, populates the remaining calls required
4728: p_sys_date => l_sys_date,
4729: x_tif_tbl => lx_tif_tbl);
4730:
4731: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4732: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4733: 'after validate_transaction : '||x_return_status);
4734:
4735: end if;
4736:
4739: lx_tif_tbl.DELETE;
4740:
4741: /*
4742: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4743: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4744: 'after validate_transaction : trx number (0) : '||l_tif_tbl(0).transaction_number);
4745: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4746: 'after validate_transaction : trx number (1) : '||l_tif_tbl(1).transaction_number);
4747: END IF;
4741: /*
4742: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4743: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4744: 'after validate_transaction : trx number (0) : '||l_tif_tbl(0).transaction_number);
4745: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4746: 'after validate_transaction : trx number (1) : '||l_tif_tbl(1).transaction_number);
4747: END IF;
4748: */
4749: -- updates the values in database and gets records with status='WORKING'
4755: p_tif_tbl => l_tif_tbl,
4756: x_tif_tbl => lx_tif_tbl);
4757:
4758: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4759: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4760: 'after change_status : '||x_return_status);
4761: end if;
4762:
4763: l_tif_tbl.DELETE;
4765: lx_tif_tbl.DELETE;
4766:
4767: /*
4768: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4769: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4770: 'after change_status : trx number (0) : '||l_tif_tbl(0).transaction_number);
4771: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4772: 'after change_status : trx number (1) : '||l_tif_tbl(1).transaction_number);
4773: END IF;
4767: /*
4768: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4769: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4770: 'after change_status : trx number (0) : '||l_tif_tbl(0).transaction_number);
4771: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4772: 'after change_status : trx number (1) : '||l_tif_tbl(1).transaction_number);
4773: END IF;
4774: */
4775: -- selects the party information and populates WHO columns in party table
4774: */
4775: -- selects the party information and populates WHO columns in party table
4776:
4777: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4778: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4779: 'Before select_party_info : '||l_tip_tbl.count || 'l_tif_tbl count'|| l_tif_tbl.count);
4780: END IF;
4781:
4782: select_party_info(p_api_version => l_api_version,
4788: x_tip_tbl => lx_tip_tbl,
4789: p_pty_status => 'ENTERED');
4790:
4791: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4792: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4793: 'after select_party_info : '||x_return_status);
4794: /*
4795: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4796: 'after select_party_info : party 0 '||lx_tip_tbl(0).transaction_number);
4791: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4792: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4793: 'after select_party_info : '||x_return_status);
4794: /*
4795: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4796: 'after select_party_info : party 0 '||lx_tip_tbl(0).transaction_number);
4797: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4798: 'after select_party_info : party 1 '||lx_tip_tbl(1).transaction_number);
4799: */
4793: 'after select_party_info : '||x_return_status);
4794: /*
4795: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4796: 'after select_party_info : party 0 '||lx_tip_tbl(0).transaction_number);
4797: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4798: 'after select_party_info : party 1 '||lx_tip_tbl(1).transaction_number);
4799: */
4800: end if;
4801:
4799: */
4800: end if;
4801:
4802: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4803: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4804: 'After select_party_info : '||lx_tip_tbl.count);
4805: END IF;
4806:
4807: l_tip_tbl.DELETE;
4818: p_tip_tbl => l_tip_tbl,
4819: x_tip_tbl => lx_tip_tbl);
4820:
4821: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4822: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4823: 'after validate_party : '||x_return_status);
4824: /*
4825: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4826: 'after validate_party : party 0 '||lx_tip_tbl(0).transaction_number);
4821: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4822: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4823: 'after validate_party : '||x_return_status);
4824: /*
4825: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4826: 'after validate_party : party 0 '||lx_tip_tbl(0).transaction_number);
4827: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4828: 'after validate_party : party 1 '||lx_tip_tbl(1).transaction_number);
4829: */
4823: 'after validate_party : '||x_return_status);
4824: /*
4825: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4826: 'after validate_party : party 0 '||lx_tip_tbl(0).transaction_number);
4827: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4828: 'after validate_party : party 1 '||lx_tip_tbl(1).transaction_number);
4829: */
4830: end if;
4831:
4846: x_tip_tbl => lx_tip_tbl,
4847: p_pty_status => 'WORKING');
4848:
4849: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4850: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4851: 'after select_party_info : '||x_return_status);
4852: /*
4853: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4854: 'after select_party_info : party 0 '||lx_tip_tbl(0).transaction_number);
4849: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4850: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4851: 'after select_party_info : '||x_return_status);
4852: /*
4853: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4854: 'after select_party_info : party 0 '||lx_tip_tbl(0).transaction_number);
4855: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4856: 'after select_party_info : party 1 '||lx_tip_tbl(1).transaction_number);
4857: */
4851: 'after select_party_info : '||x_return_status);
4852: /*
4853: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4854: 'after select_party_info : party 0 '||lx_tip_tbl(0).transaction_number);
4855: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4856: 'after select_party_info : party 1 '||lx_tip_tbl(1).transaction_number);
4857: */
4858: end if;
4859:
4871: x_tif_tbl => lx_tif_tbl,
4872: x_group_number => l_group_number);
4873:
4874: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4875: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4876: 'after populate_party_for_quote : '||x_return_status);
4877: /*
4878: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4879: 'after populate_party_for_quote : party 0 '||l_tip_tbl(0).transaction_number);
4874: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4875: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4876: 'after populate_party_for_quote : '||x_return_status);
4877: /*
4878: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4879: 'after populate_party_for_quote : party 0 '||l_tip_tbl(0).transaction_number);
4880: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4881: 'after populate_party_for_quote : party 1 '||l_tip_tbl(1).transaction_number);
4882:
4876: 'after populate_party_for_quote : '||x_return_status);
4877: /*
4878: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4879: 'after populate_party_for_quote : party 0 '||l_tip_tbl(0).transaction_number);
4880: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4881: 'after populate_party_for_quote : party 1 '||l_tip_tbl(1).transaction_number);
4882:
4883: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4884: 'after populate_party_for_quote : trx 0 '||lx_tif_tbl(0).transaction_number);
4879: 'after populate_party_for_quote : party 0 '||l_tip_tbl(0).transaction_number);
4880: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4881: 'after populate_party_for_quote : party 1 '||l_tip_tbl(1).transaction_number);
4882:
4883: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4884: 'after populate_party_for_quote : trx 0 '||lx_tif_tbl(0).transaction_number);
4885: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4886: 'after populate_party_for_quote : trx 1 '||lx_tif_tbl(1).transaction_number);
4887: */
4881: 'after populate_party_for_quote : party 1 '||l_tip_tbl(1).transaction_number);
4882:
4883: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4884: 'after populate_party_for_quote : trx 0 '||lx_tif_tbl(0).transaction_number);
4885: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4886: 'after populate_party_for_quote : trx 1 '||lx_tif_tbl(1).transaction_number);
4887: */
4888: end if;
4889:
4899: p_tif_tbl => l_tif_tbl,
4900: x_tif_tbl => lx_tif_tbl);
4901:
4902: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4903: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4904: 'after remove_duplicates : '||x_return_status);
4905: end if;
4906:
4907: l_tif_tbl.DELETE;
4917: x_tif_tbl => lx_tif_tbl,
4918: p_group_number => l_group_number);
4919:
4920: IF (G_DEBUG_LEVEL_STATEMENT >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4921: FND_LOG.STRING(G_DEBUG_LEVEL_STATEMENT,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface.',
4922: 'after populate_quote : '||x_return_status);
4923: end if;
4924:
4925: IF (G_DEBUG_LEVEL_PROCEDURE >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4922: 'after populate_quote : '||x_return_status);
4923: end if;
4924:
4925: IF (G_DEBUG_LEVEL_PROCEDURE >= G_DEBUG_CURRENT_RUNTIME_LEVEL) THEN
4926: FND_LOG.STRING(G_DEBUG_LEVEL_PROCEDURE,'OKL_AM_TERMNT_INTERFACE_PVT.termination_interface ','End(-)');
4927: END IF;
4928:
4929: OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
4930: log_messages(log_msg_flag => 'Y',
4966: p_quote_number => tot_rec_processed,
4967: msg_tbl => l_msg_tbl );
4968:
4969: END termination_interface;
4970: END OKL_AM_TERMNT_INTERFACE_PVT;