284: END IF;
285:
286: IF(l_batch_num IS NULL OR l_batch_num = OKL_API.G_MISS_NUM) THEN
287: --raise error if batch number could not be generated from seq.
288: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error: batch number could not be generated');
289: RAISE OKL_API.G_EXCEPTION_ERROR;
290: END IF;
291:
292: i := 0;
367: RAISE OKL_API.G_EXCEPTION_ERROR;
368: END IF;
369: COMMIT;
370: ELSE
371: FND_FILE.PUT_LINE(FND_FILE.LOG,'contract already in desired status');
372: END IF;
373:
374: x_batch_number := l_batch_num;
375:
459: END IF;
460:
461: --check batch number is not null
462: IF (p_batch_num IS NULL OR p_batch_num = OKL_API.G_MISS_NUM) THEN
463: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error:batch number is null in call to update okl_book_controller_trx');
464: RAISE OKL_API.G_EXCEPTION_ERROR;
465: ELSE
466: l_bct_rec.batch_number := p_batch_num;
467: END IF;
467: END IF;
468:
469: --check processing serial number is not null
470: IF (p_srl_num IS NULL OR p_srl_num = OKL_API.G_MISS_NUM) THEN
471: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error:processing srl number is null in call to update okl_book_controller_trx');
472: RAISE OKL_API.G_EXCEPTION_ERROR;
473: ELSE
474: l_bct_rec.processing_srl_number := p_srl_num;
475: END IF;
616: p_curr_sts_code => l_curr_sts_code,
617: x_batch_number => l_batch_number);
618:
619: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
620: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Unexpected error in call to populate_book_ctrl_trx');
621: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
622: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
623: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in call to populate_book_ctrl_trx');
624: RAISE OKL_API.G_EXCEPTION_ERROR;
619: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
620: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Unexpected error in call to populate_book_ctrl_trx');
621: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
622: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
623: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in call to populate_book_ctrl_trx');
624: RAISE OKL_API.G_EXCEPTION_ERROR;
625: END IF;
626:
627: --submit concurrent request for Controller Program 1
874: --if request is not submitted successfully,update the
875: --request status as ERROR in controller transaction table and
876: --set return status to E.
877: IF l_request_id = 0 THEN
878: FND_FILE.PUT_LINE(FND_FILE.LOG, '**** Error:Could not submit request for '||p_description);
879:
880: update_book_controller_trx(
881: p_api_version => l_api_version,
882: p_init_msg_list => l_init_msg_list,
909:
910: x_req_status := 'E';
911: --if request is submitted successfully
912: ELSE
913: FND_FILE.PUT_LINE(FND_FILE.LOG,'**** Request ID: '||l_request_id);
914: FND_FILE.PUT_LINE(FND_FILE.LOG,'**** Monitoring request: '||l_request_id);
915:
916: --update the request id and status as RUNNING in controller trx table
917:
910: x_req_status := 'E';
911: --if request is submitted successfully
912: ELSE
913: FND_FILE.PUT_LINE(FND_FILE.LOG,'**** Request ID: '||l_request_id);
914: FND_FILE.PUT_LINE(FND_FILE.LOG,'**** Monitoring request: '||l_request_id);
915:
916: --update the request id and status as RUNNING in controller trx table
917:
918: update_book_controller_trx(
958:
959: --if the request errors out, update the controller trx table with request
960: --status as ERROR and update return status to E for submit request
961: IF l_dev_status = 'ERROR' THEN
962: FND_FILE.PUT_LINE(FND_FILE.LOG, '**** Request '||l_request_id||' failed.');
963:
964: update_book_controller_trx(
965: p_api_version => l_api_version,
966: p_init_msg_list => l_init_msg_list,
994:
995: --if request completes successfully, update the request status as
996: --COMPLETE in controller trx table.
997: ELSE
998: FND_FILE.PUT_LINE(FND_FILE.LOG, '**** Request '||l_request_id||' Completed.');
999:
1000: update_book_controller_trx(
1001: p_api_version => l_api_version,
1002: p_init_msg_list => l_init_msg_list,
1039: p_msg_index => l_counter,
1040: p_encoded => 'F',
1041: p_data => l_data,
1042: p_msg_index_out => l_msg_index_out);
1043: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
1044: END LOOP;
1045: END IF;
1046: x_req_status := 'E';
1047:
1054: p_msg_index => l_counter,
1055: p_encoded => 'F',
1056: p_data => l_data,
1057: p_msg_index_out => l_msg_index_out);
1058: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
1059: END LOOP;
1060: END IF;
1061: x_req_status := 'E';
1062:
1069: p_msg_index => l_counter,
1070: p_encoded => 'F',
1071: p_data => l_data,
1072: p_msg_index_out => l_msg_index_out);
1073: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
1074: END LOOP;
1075: END IF;
1076: x_req_status := 'E';
1077:
1140: ,'_PVT'
1141: ,l_return_status);
1142:
1143: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1144: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Unexpected error in Start Activity');
1145: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1146: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
1147: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in Start Activity');
1148: RAISE OKL_API.G_EXCEPTION_ERROR;
1143: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1144: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Unexpected error in Start Activity');
1145: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1146: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
1147: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in Start Activity');
1148: RAISE OKL_API.G_EXCEPTION_ERROR;
1149: END IF;*/
1150:
1151: FND_FILE.PUT_LINE(FND_FILE.LOG, 'OKL: Contract Booking Controller Started');
1147: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in Start Activity');
1148: RAISE OKL_API.G_EXCEPTION_ERROR;
1149: END IF;*/
1150:
1151: FND_FILE.PUT_LINE(FND_FILE.LOG, 'OKL: Contract Booking Controller Started');
1152: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1153:
1154: IF (p_called_from = 'FORM') THEN
1155:
1148: RAISE OKL_API.G_EXCEPTION_ERROR;
1149: END IF;*/
1150:
1151: FND_FILE.PUT_LINE(FND_FILE.LOG, 'OKL: Contract Booking Controller Started');
1152: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1153:
1154: IF (p_called_from = 'FORM') THEN
1155:
1156: --fetch the current status of the contract
1175: p_curr_sts_code => l_curr_sts_code,
1176: x_batch_number => l_batch_number);
1177:
1178: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1179: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Unexpected error in call to populate_book_ctrl_trx');
1180: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1181: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1182: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in call to populate_book_ctrl_trx');
1183: RAISE OKL_API.G_EXCEPTION_ERROR;
1178: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1179: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Unexpected error in call to populate_book_ctrl_trx');
1180: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1181: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1182: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in call to populate_book_ctrl_trx');
1183: RAISE OKL_API.G_EXCEPTION_ERROR;
1184: END IF;
1185:
1186: --check for batch number to be not null.
1185:
1186: --check for batch number to be not null.
1187: --Raise exception if batch number is not generated
1188: IF(l_batch_number IS NULL OR l_batch_number = OKL_API.G_MISS_NUM) THEN
1189: FND_FILE.PUT_LINE(FND_FILE.LOG,'batch number could not be generated');
1190: RAISE OKL_API.G_EXCEPTION_ERROR;
1191: END IF;
1192: COMMIT;
1193:
1202:
1203: --concurrent request for QA validation..start
1204: IF (each_ctrl_trx.prog_short_name = 'OKLBCTQA') THEN
1205:
1206: FND_FILE.PUT_LINE(FND_FILE.LOG, '**** OKL: Contract Validation Program Submitted');
1207: --submit request for QA Validation
1208: FND_REQUEST.set_org_id(mo_global.get_current_org_id); --MOAC- Concurrent request
1209: submit_request(
1210: p_program_name => each_ctrl_trx.prog_short_name,
1216:
1217: IF (l_req_status = 'E') THEN
1218: RAISE USER_EXCEPTION;
1219: END IF;
1220: FND_FILE.PUT_LINE(FND_FILE.LOG, '**** OKL: Contract Validation Program Completed with Status 0');
1221: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1222: END IF;
1223: --concurrent request for QA validation..end
1224:
1217: IF (l_req_status = 'E') THEN
1218: RAISE USER_EXCEPTION;
1219: END IF;
1220: FND_FILE.PUT_LINE(FND_FILE.LOG, '**** OKL: Contract Validation Program Completed with Status 0');
1221: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1222: END IF;
1223: --concurrent request for QA validation..end
1224:
1225: --concurrent request for Calculate Upfront Tax..start
1224:
1225: --concurrent request for Calculate Upfront Tax..start
1226: IF (each_ctrl_trx.prog_short_name = 'OKLBCTUT') THEN
1227:
1228: FND_FILE.PUT_LINE(FND_FILE.LOG, '**** OKL: Contract Calculate Upfront Tax Program Submitted');
1229: --submit request for Upfront tax
1230: FND_REQUEST.set_org_id(mo_global.get_current_org_id); --MOAC- Concurrent request
1231: submit_request(
1232: p_program_name => each_ctrl_trx.prog_short_name,
1238:
1239: IF (l_req_status = 'E') THEN
1240: RAISE USER_EXCEPTION;
1241: END IF;
1242: FND_FILE.PUT_LINE(FND_FILE.LOG, '**** OKL: Contract Calculate Upfront Tax Program Completed with Status 0');
1243: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1244: END IF;
1245: --concurrent request for Upfront Tax..end
1246:
1239: IF (l_req_status = 'E') THEN
1240: RAISE USER_EXCEPTION;
1241: END IF;
1242: FND_FILE.PUT_LINE(FND_FILE.LOG, '**** OKL: Contract Calculate Upfront Tax Program Completed with Status 0');
1243: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1244: END IF;
1245: --concurrent request for Upfront Tax..end
1246:
1247: --concurrent request for stream generation..start
1246:
1247: --concurrent request for stream generation..start
1248: IF (each_ctrl_trx.prog_short_name = 'OKLBCTST') THEN
1249:
1250: FND_FILE.PUT_LINE(FND_FILE.LOG, '**** OKL: Contract Stream Generation Program Submitted');
1251: FND_REQUEST.set_org_id(mo_global.get_current_org_id); --MOAC- Concurrent request
1252: --submit request for Stream Generation
1253: submit_request(
1254: p_program_name => each_ctrl_trx.prog_short_name,
1260:
1261: IF (l_req_status = 'E') THEN
1262: RAISE USER_EXCEPTION;
1263: END IF;
1264: FND_FILE.PUT_LINE(FND_FILE.LOG, '**** OKL: Contract Stream Generation Program Completed with Status 0');
1265: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1266: END IF;
1267: --concurrent request for stream generation..end
1268:
1261: IF (l_req_status = 'E') THEN
1262: RAISE USER_EXCEPTION;
1263: END IF;
1264: FND_FILE.PUT_LINE(FND_FILE.LOG, '**** OKL: Contract Stream Generation Program Completed with Status 0');
1265: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1266: END IF;
1267: --concurrent request for stream generation..end
1268:
1269: /*--concurrent request for draft journal entries..start
1268:
1269: /*--concurrent request for draft journal entries..start
1270: IF (each_ctrl_trx.prog_short_name = 'OKLBCTJE') THEN
1271:
1272: FND_FILE.PUT_LINE(FND_FILE.LOG, '**** OKL: Contract Journal Entries Program Submitted');
1273: FND_REQUEST.set_org_id(mo_global.get_current_org_id); --MOAC- Concurrent request
1274: --submit request for Draft journal Entry
1275: submit_request(
1276: p_program_name => each_ctrl_trx.prog_short_name,
1282:
1283: IF (l_req_status = 'E') THEN
1284: RAISE USER_EXCEPTION;
1285: END IF;
1286: FND_FILE.PUT_LINE(FND_FILE.LOG, '**** OKL: Contract Journal Entries Completed with Status 0');
1287: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1288: END IF;
1289: --concurrent request for draft journal entries..end */
1290:
1283: IF (l_req_status = 'E') THEN
1284: RAISE USER_EXCEPTION;
1285: END IF;
1286: FND_FILE.PUT_LINE(FND_FILE.LOG, '**** OKL: Contract Journal Entries Completed with Status 0');
1287: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1288: END IF;
1289: --concurrent request for draft journal entries..end */
1290:
1291: --concurrent request for Approval..start
1290:
1291: --concurrent request for Approval..start
1292: IF (each_ctrl_trx.prog_short_name = 'OKLBCTAP') THEN
1293:
1294: FND_FILE.PUT_LINE(FND_FILE.LOG, '**** OKL: Contract Approval Program Submitted');
1295: FND_REQUEST.set_org_id(mo_global.get_current_org_id); --MOAC- Concurrent request
1296: --submit request for Contract Approval
1297: submit_request(
1298: p_program_name => each_ctrl_trx.prog_short_name,
1304:
1305: IF (l_req_status = 'E') THEN
1306: RAISE USER_EXCEPTION;
1307: END IF;
1308: FND_FILE.PUT_LINE(FND_FILE.LOG, '**** OKL: Contract Approval Program Completed with Status 0');
1309: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1310: END IF;
1311: --concurrent request for approval..end
1312:
1305: IF (l_req_status = 'E') THEN
1306: RAISE USER_EXCEPTION;
1307: END IF;
1308: FND_FILE.PUT_LINE(FND_FILE.LOG, '**** OKL: Contract Approval Program Completed with Status 0');
1309: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1310: END IF;
1311: --concurrent request for approval..end
1312:
1313: --concurrent request for Activate..start
1320: --process requested then submit request for Activation
1321: IF (l_curr_sts_code = 'APPROVED' OR
1322: NVL(l_approval_path,'NONE') = 'NONE') THEN
1323:
1324: FND_FILE.PUT_LINE(FND_FILE.LOG, '**** OKL: Contract Activation Program Submitted');
1325: FND_REQUEST.set_org_id(mo_global.get_current_org_id); --MOAC- Concurrent request
1326: --submit request for Contract Activation
1327: submit_request(
1328: p_program_name => each_ctrl_trx.prog_short_name,
1334:
1335: IF (l_req_status = 'E') THEN
1336: RAISE USER_EXCEPTION;
1337: END IF;
1338: FND_FILE.PUT_LINE(FND_FILE.LOG, '**** OKL: Contract Activation Program Completed with Status 0');
1339: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1340: END IF; --end condition for approval path
1341:
1342: END IF;
1335: IF (l_req_status = 'E') THEN
1336: RAISE USER_EXCEPTION;
1337: END IF;
1338: FND_FILE.PUT_LINE(FND_FILE.LOG, '**** OKL: Contract Activation Program Completed with Status 0');
1339: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1340: END IF; --end condition for approval path
1341:
1342: END IF;
1343: --concurrent request for Activate..end
1344:
1345: END LOOP;--end submitting all requests
1346:
1347: --OKL_API.END_ACTIVITY(l_msg_count, l_msg_data);
1348: FND_FILE.PUT_LINE(FND_FILE.LOG, 'OKL: Contract Booking Controller Completed with Status 0');
1349:
1350: EXCEPTION
1351: WHEN USER_EXCEPTION THEN
1352: p_retcode := 0;
1349:
1350: EXCEPTION
1351: WHEN USER_EXCEPTION THEN
1352: p_retcode := 0;
1353: FND_FILE.PUT_LINE(FND_FILE.LOG, 'OKL: Contract Booking Controller Completed With Errors');
1354:
1355: --close all open cursors
1356: IF book_ctrl_trx_csr%ISOPEN THEN
1357: CLOSE book_ctrl_trx_csr;
1398: p_msg_index => l_counter,
1399: p_encoded => 'F',
1400: p_data => l_data,
1401: p_msg_index_out => l_msg_index_out);
1402: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
1403: END LOOP;
1404: END IF;
1405:
1406: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1430: p_msg_index => l_counter,
1431: p_encoded => 'F',
1432: p_data => l_data,
1433: p_msg_index_out => l_msg_index_out);
1434: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
1435: END LOOP;
1436: END IF;
1437:
1438: WHEN OTHERS THEN
1463: p_msg_index => l_counter,
1464: p_encoded => 'F',
1465: p_data => l_data,
1466: p_msg_index_out => l_msg_index_out);
1467: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
1468: END LOOP;
1469: END IF;
1470: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
1471:
1466: p_msg_index_out => l_msg_index_out);
1467: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
1468: END LOOP;
1469: END IF;
1470: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
1471:
1472: END exec_controller_prg1;
1473:
1474:
1524: ,'_PVT'
1525: ,l_return_status);
1526:
1527: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1528: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Unexpected error in Start Activity');
1529: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1530: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
1531: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in Start Activity');
1532: RAISE OKL_API.G_EXCEPTION_ERROR;
1527: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1528: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Unexpected error in Start Activity');
1529: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1530: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
1531: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in Start Activity');
1532: RAISE OKL_API.G_EXCEPTION_ERROR;
1533: END IF;*/
1534:
1535: FND_FILE.PUT_LINE(FND_FILE.LOG, 'OKL: Contract Booking Controller Started');
1531: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in Start Activity');
1532: RAISE OKL_API.G_EXCEPTION_ERROR;
1533: END IF;*/
1534:
1535: FND_FILE.PUT_LINE(FND_FILE.LOG, 'OKL: Contract Booking Controller Started');
1536: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1537:
1538: --call the concurrent program for activation
1539: FOR each_ctrl_trx IN book_ctrl_trx_csr(p_khr_id)
1532: RAISE OKL_API.G_EXCEPTION_ERROR;
1533: END IF;*/
1534:
1535: FND_FILE.PUT_LINE(FND_FILE.LOG, 'OKL: Contract Booking Controller Started');
1536: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1537:
1538: --call the concurrent program for activation
1539: FOR each_ctrl_trx IN book_ctrl_trx_csr(p_khr_id)
1540: LOOP
1541: l_req_status := 'S';
1542: --concurrent request for Activation..start
1543: IF (each_ctrl_trx.prog_short_name = 'OKLBCTBK') THEN
1544:
1545: FND_FILE.PUT_LINE(FND_FILE.LOG, '**** OKL: Contract Activation Program Submitted');
1546: FND_REQUEST.set_org_id(mo_global.get_current_org_id); --MOAC- Concurrent request
1547: --submit request for Contract Activation
1548: submit_request(
1549: p_program_name => each_ctrl_trx.prog_short_name,
1555:
1556: IF (l_req_status = 'E') THEN
1557: RAISE USER_EXCEPTION;
1558: END IF;
1559: FND_FILE.PUT_LINE(FND_FILE.LOG, '**** OKL: Contract Activation Program Completed with Status 0');
1560: END IF;
1561: --concurrent request for Activation..end
1562: END LOOP;
1563:
1561: --concurrent request for Activation..end
1562: END LOOP;
1563:
1564: --OKL_API.END_ACTIVITY(l_msg_count, l_msg_data);
1565: FND_FILE.PUT_LINE(FND_FILE.LOG, 'OKL: Contract Booking Controller Completed with Status 0');
1566:
1567: EXCEPTION
1568: WHEN USER_EXCEPTION THEN
1569: p_retcode := 0;
1566:
1567: EXCEPTION
1568: WHEN USER_EXCEPTION THEN
1569: p_retcode := 0;
1570: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Contract Activation Failed');
1571: FND_FILE.PUT_LINE(FND_FILE.LOG, 'OKL: Contract Booking Controller Completed with Errors');
1572:
1573: /*WHEN OKL_API.G_EXCEPTION_ERROR THEN
1574: p_retcode := 2;
1567: EXCEPTION
1568: WHEN USER_EXCEPTION THEN
1569: p_retcode := 0;
1570: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Contract Activation Failed');
1571: FND_FILE.PUT_LINE(FND_FILE.LOG, 'OKL: Contract Booking Controller Completed with Errors');
1572:
1573: /*WHEN OKL_API.G_EXCEPTION_ERROR THEN
1574: p_retcode := 2;
1575:
1589: Okl_Accounting_Util.get_error_message(g_error_msg);
1590: IF (g_error_msg.COUNT > 0) THEN
1591: FOR i IN g_error_msg.FIRST..g_error_msg.LAST
1592: LOOP
1593: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, g_error_msg(i));
1594: END LOOP;
1595: END IF;
1596:
1597: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1613: Okl_Accounting_Util.get_error_message(g_error_msg);
1614: IF (g_error_msg.COUNT > 0) THEN
1615: FOR i IN g_error_msg.FIRST..g_error_msg.LAST
1616: LOOP
1617: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, g_error_msg(i));
1618: END LOOP;
1619: END IF; */
1620:
1621: WHEN OTHERS THEN
1635: p_msg_index => l_counter,
1636: p_encoded => 'F',
1637: p_data => l_data,
1638: p_msg_index_out => l_msg_index_out);
1639: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
1640: END LOOP;
1641: END IF;
1642: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
1643:
1638: p_msg_index_out => l_msg_index_out);
1639: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
1640: END LOOP;
1641: END IF;
1642: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
1643:
1644: END exec_controller_prg2;
1645:
1646: -----------------------------------------------------------------------------
1700: l_msg_token_tbl(1).token_name := 'API_NAME';
1701: l_msg_token_tbl(1).token_value := 'OKLRBCTB.pls';
1702: l_msg_token_tbl(2).token_name := 'CONC_PROGRAM';
1703: l_msg_token_tbl(2).token_value := 'QA Validation';
1704: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
1705: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_COPYRIGHT_HEADER',l_msg_token_tbl));
1706: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
1707: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_QACHECK_START')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
1708: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_CONC_REQ_ID','REQUEST_ID',fnd_global.conc_request_id));
1701: l_msg_token_tbl(1).token_value := 'OKLRBCTB.pls';
1702: l_msg_token_tbl(2).token_name := 'CONC_PROGRAM';
1703: l_msg_token_tbl(2).token_value := 'QA Validation';
1704: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
1705: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_COPYRIGHT_HEADER',l_msg_token_tbl));
1706: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
1707: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_QACHECK_START')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
1708: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_CONC_REQ_ID','REQUEST_ID',fnd_global.conc_request_id));
1709: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
1702: l_msg_token_tbl(2).token_name := 'CONC_PROGRAM';
1703: l_msg_token_tbl(2).token_value := 'QA Validation';
1704: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
1705: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_COPYRIGHT_HEADER',l_msg_token_tbl));
1706: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
1707: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_QACHECK_START')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
1708: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_CONC_REQ_ID','REQUEST_ID',fnd_global.conc_request_id));
1709: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
1710:
1703: l_msg_token_tbl(2).token_value := 'QA Validation';
1704: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
1705: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_COPYRIGHT_HEADER',l_msg_token_tbl));
1706: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
1707: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_QACHECK_START')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
1708: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_CONC_REQ_ID','REQUEST_ID',fnd_global.conc_request_id));
1709: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
1710:
1711: l_return_status := OKL_API.START_ACTIVITY(l_api_name
1704: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
1705: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_COPYRIGHT_HEADER',l_msg_token_tbl));
1706: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
1707: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_QACHECK_START')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
1708: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_CONC_REQ_ID','REQUEST_ID',fnd_global.conc_request_id));
1709: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
1710:
1711: l_return_status := OKL_API.START_ACTIVITY(l_api_name
1712: ,G_PKG_NAME
1705: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_COPYRIGHT_HEADER',l_msg_token_tbl));
1706: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
1707: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_QACHECK_START')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
1708: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_CONC_REQ_ID','REQUEST_ID',fnd_global.conc_request_id));
1709: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
1710:
1711: l_return_status := OKL_API.START_ACTIVITY(l_api_name
1712: ,G_PKG_NAME
1713: ,l_init_msg_list
1716: ,'_PVT'
1717: ,l_return_status);
1718:
1719: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1720: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Unexpected error in Start Activity');
1721: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1722: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
1723: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in Start Activity');
1724: RAISE OKL_API.G_EXCEPTION_ERROR;
1719: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
1720: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Unexpected error in Start Activity');
1721: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1722: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
1723: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in Start Activity');
1724: RAISE OKL_API.G_EXCEPTION_ERROR;
1725: END IF;
1726: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start Activity Successful');
1727: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1722: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
1723: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in Start Activity');
1724: RAISE OKL_API.G_EXCEPTION_ERROR;
1725: END IF;
1726: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start Activity Successful');
1727: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1728:
1729: --fetch qcl_id for the contract
1730: OPEN get_qcl_id(p_khr_id);
1723: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in Start Activity');
1724: RAISE OKL_API.G_EXCEPTION_ERROR;
1725: END IF;
1726: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start Activity Successful');
1727: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1728:
1729: --fetch qcl_id for the contract
1730: OPEN get_qcl_id(p_khr_id);
1731: FETCH get_qcl_id INTO l_qcl_id;
1730: OPEN get_qcl_id(p_khr_id);
1731: FETCH get_qcl_id INTO l_qcl_id;
1732: IF get_qcl_id%NOTFOUND THEN
1733: --error : contract does not exist
1734: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error : Contract Number is not valid.');
1735: l_return_status := OKL_API.G_RET_STS_ERROR;
1736: RAISE OKL_API.G_EXCEPTION_ERROR;
1737: END IF;
1738: CLOSE get_qcl_id;
1748: p_chr_id => p_khr_id,
1749: x_msg_tbl => l_msg_tbl);
1750:
1751: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1752: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Unexpected error in call to okl_contract_book_pub.execute_qa_check_list');
1753: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1754: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1755: FND_FILE.PUT_LINE(FND_FILE.LOG, 'error in call to okl_contract_book_pub.execute_qa_check_list');
1756: RAISE OKL_API.G_EXCEPTION_ERROR;
1751: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1752: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Unexpected error in call to okl_contract_book_pub.execute_qa_check_list');
1753: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1754: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1755: FND_FILE.PUT_LINE(FND_FILE.LOG, 'error in call to okl_contract_book_pub.execute_qa_check_list');
1756: RAISE OKL_API.G_EXCEPTION_ERROR;
1757: END IF;
1758:
1759: --print QA validation checklist into the output file
1757: END IF;
1758:
1759: --print QA validation checklist into the output file
1760: IF (l_msg_tbl.COUNT > 0) THEN
1761: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_QA_CHECKLIST'));
1762: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '---------------------');
1763: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
1764: --column headings for the QA Validation checklist
1765: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
1758:
1759: --print QA validation checklist into the output file
1760: IF (l_msg_tbl.COUNT > 0) THEN
1761: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_QA_CHECKLIST'));
1762: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '---------------------');
1763: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
1764: --column headings for the QA Validation checklist
1765: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
1766: RPAD(OKL_ACCOUNTING_UTIL.GET_MESSAGE_TOKEN('OKL_LA_CONTRACT_QA', 'OKL_PROCESS'),40,' ')||
1759: --print QA validation checklist into the output file
1760: IF (l_msg_tbl.COUNT > 0) THEN
1761: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_QA_CHECKLIST'));
1762: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '---------------------');
1763: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
1764: --column headings for the QA Validation checklist
1765: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
1766: RPAD(OKL_ACCOUNTING_UTIL.GET_MESSAGE_TOKEN('OKL_LA_CONTRACT_QA', 'OKL_PROCESS'),40,' ')||
1767: RPAD(OKL_ACCOUNTING_UTIL.GET_MESSAGE_TOKEN('OKL_LA_CONTRACT_QA', 'OKL_DESCRIPTION'),40,' ')||
1761: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_QA_CHECKLIST'));
1762: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '---------------------');
1763: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
1764: --column headings for the QA Validation checklist
1765: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
1766: RPAD(OKL_ACCOUNTING_UTIL.GET_MESSAGE_TOKEN('OKL_LA_CONTRACT_QA', 'OKL_PROCESS'),40,' ')||
1767: RPAD(OKL_ACCOUNTING_UTIL.GET_MESSAGE_TOKEN('OKL_LA_CONTRACT_QA', 'OKL_DESCRIPTION'),40,' ')||
1768: RPAD(OKL_ACCOUNTING_UTIL.GET_MESSAGE_TOKEN('OKL_LA_CONTRACT_QA', 'OKL_SEVERITY'),9,' ')||
1769: RPAD(OKL_ACCOUNTING_UTIL.GET_MESSAGE_TOKEN('OKL_LA_CONTRACT_QA', 'OKL_EXPLANATION'),51,' '));
1767: RPAD(OKL_ACCOUNTING_UTIL.GET_MESSAGE_TOKEN('OKL_LA_CONTRACT_QA', 'OKL_DESCRIPTION'),40,' ')||
1768: RPAD(OKL_ACCOUNTING_UTIL.GET_MESSAGE_TOKEN('OKL_LA_CONTRACT_QA', 'OKL_SEVERITY'),9,' ')||
1769: RPAD(OKL_ACCOUNTING_UTIL.GET_MESSAGE_TOKEN('OKL_LA_CONTRACT_QA', 'OKL_EXPLANATION'),51,' '));
1770:
1771: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,RPAD('=',140,'='));
1772:
1773: --loop to print QA validation checklist
1774: FOR i IN l_msg_tbl.FIRST..l_msg_tbl.LAST
1775: LOOP
1788: --fetch severity meaning to be displayed in checklist
1789: OPEN get_severity(l_error_sts);
1790: FETCH get_severity INTO l_severity;
1791: IF get_severity%NOTFOUND THEN
1792: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error : Invalid error status code '||l_error_sts);
1793: l_return_status := OKL_API.G_RET_STS_ERROR;
1794: RAISE OKL_API.G_EXCEPTION_ERROR;
1795: END IF;
1796: CLOSE get_severity;
1795: END IF;
1796: CLOSE get_severity;
1797:
1798: --printing checklist
1799: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
1800: RPAD(l_msg_tbl(i).name,40,' ')||
1801: RPAD(l_msg_tbl(i).description,40,' ')||
1802: RPAD(l_severity,9,' ')||
1803: RPAD(l_msg_tbl(i).data,51,' '));
1804:
1805: l_data_len := 52;
1806: LOOP
1807: EXIT WHEN (SUBSTR(l_msg_tbl(i).data,l_data_len) IS NULL);
1808: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
1809: RPAD(' ',89,' ')||
1810: RPAD(SUBSTR(l_msg_tbl(i).data,l_data_len),51,' '));
1811:
1812: l_data_len := l_data_len + 52;
1821: IF (l_qa_sts = 'E') THEN
1822: p_retcode := 2;
1823: END IF;
1824:
1825: FND_FILE.PUT_LINE(FND_FILE.LOG, 'QA validation completed successfully....');
1826: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1827:
1828: OKL_API.END_ACTIVITY(l_msg_count, l_msg_data);
1829: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End Activity Successful');
1822: p_retcode := 2;
1823: END IF;
1824:
1825: FND_FILE.PUT_LINE(FND_FILE.LOG, 'QA validation completed successfully....');
1826: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1827:
1828: OKL_API.END_ACTIVITY(l_msg_count, l_msg_data);
1829: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End Activity Successful');
1830:
1825: FND_FILE.PUT_LINE(FND_FILE.LOG, 'QA validation completed successfully....');
1826: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
1827:
1828: OKL_API.END_ACTIVITY(l_msg_count, l_msg_data);
1829: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End Activity Successful');
1830:
1831: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
1832: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
1833: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
1827:
1828: OKL_API.END_ACTIVITY(l_msg_count, l_msg_data);
1829: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End Activity Successful');
1830:
1831: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
1832: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
1833: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
1834: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_REQ_SUCCESS'));
1835: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
1828: OKL_API.END_ACTIVITY(l_msg_count, l_msg_data);
1829: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End Activity Successful');
1830:
1831: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
1832: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
1833: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
1834: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_REQ_SUCCESS'));
1835: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
1836: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_QACHECK_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
1829: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End Activity Successful');
1830:
1831: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
1832: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
1833: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
1834: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_REQ_SUCCESS'));
1835: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
1836: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_QACHECK_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
1837: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
1830:
1831: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
1832: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
1833: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
1834: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_REQ_SUCCESS'));
1835: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
1836: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_QACHECK_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
1837: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
1838:
1831: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
1832: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
1833: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
1834: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_REQ_SUCCESS'));
1835: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
1836: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_QACHECK_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
1837: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
1838:
1839: EXCEPTION
1832: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
1833: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
1834: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_REQ_SUCCESS'));
1835: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
1836: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_QACHECK_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
1837: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
1838:
1839: EXCEPTION
1840: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1833: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
1834: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_REQ_SUCCESS'));
1835: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
1836: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_QACHECK_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
1837: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
1838:
1839: EXCEPTION
1840: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1841: p_retcode := 2;
1855: x_msg_count => l_msg_count,
1856: x_msg_data => l_msg_data,
1857: p_api_type => g_api_type);
1858:
1859: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
1860: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
1861: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
1862:
1863: --print the error message in the output file
1856: x_msg_data => l_msg_data,
1857: p_api_type => g_api_type);
1858:
1859: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
1860: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
1861: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
1862:
1863: --print the error message in the output file
1864: IF (fnd_msg_pub.count_msg > 0) THEN
1857: p_api_type => g_api_type);
1858:
1859: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
1860: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
1861: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
1862:
1863: --print the error message in the output file
1864: IF (fnd_msg_pub.count_msg > 0) THEN
1865: FOR l_counter IN 1 .. fnd_msg_pub.count_msg
1868: p_msg_index => l_counter,
1869: p_encoded => 'F',
1870: p_data => l_data,
1871: p_msg_index_out => l_msg_index_out);
1872: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
1873: END LOOP;
1874: END IF;
1875:
1876: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
1872: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
1873: END LOOP;
1874: END IF;
1875:
1876: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
1877: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_QACHECK_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
1878: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
1879:
1880: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1873: END LOOP;
1874: END IF;
1875:
1876: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
1877: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_QACHECK_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
1878: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
1879:
1880: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1881: p_retcode := 2;
1874: END IF;
1875:
1876: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
1877: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_QACHECK_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
1878: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
1879:
1880: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
1881: p_retcode := 2;
1882:
1895: x_msg_count => l_msg_count,
1896: x_msg_data => l_msg_data,
1897: p_api_type => g_api_type);
1898:
1899: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
1900: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
1901: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
1902:
1903: -- print the error message in the output file
1896: x_msg_data => l_msg_data,
1897: p_api_type => g_api_type);
1898:
1899: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
1900: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
1901: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
1902:
1903: -- print the error message in the output file
1904: IF (fnd_msg_pub.count_msg > 0) THEN
1897: p_api_type => g_api_type);
1898:
1899: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
1900: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
1901: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
1902:
1903: -- print the error message in the output file
1904: IF (fnd_msg_pub.count_msg > 0) THEN
1905: FOR l_counter IN 1 .. fnd_msg_pub.count_msg
1908: p_msg_index => l_counter,
1909: p_encoded => 'F',
1910: p_data => l_data,
1911: p_msg_index_out => l_msg_index_out);
1912: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
1913: END LOOP;
1914: END IF;
1915:
1916: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
1912: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
1913: END LOOP;
1914: END IF;
1915:
1916: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
1917: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_QACHECK_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
1918: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
1919:
1920: WHEN OTHERS THEN
1913: END LOOP;
1914: END IF;
1915:
1916: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
1917: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_QACHECK_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
1918: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
1919:
1920: WHEN OTHERS THEN
1921: p_retcode := 2;
1914: END IF;
1915:
1916: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
1917: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_QACHECK_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
1918: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
1919:
1920: WHEN OTHERS THEN
1921: p_retcode := 2;
1922: p_errbuf := SQLERRM;
1936: x_msg_count => l_msg_count,
1937: x_msg_data => l_msg_data,
1938: p_api_type => g_api_type);
1939:
1940: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
1941: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
1942: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
1943:
1944: -- print the error message in the output file
1937: x_msg_data => l_msg_data,
1938: p_api_type => g_api_type);
1939:
1940: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
1941: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
1942: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
1943:
1944: -- print the error message in the output file
1945: IF (fnd_msg_pub.count_msg > 0) THEN
1938: p_api_type => g_api_type);
1939:
1940: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
1941: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
1942: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
1943:
1944: -- print the error message in the output file
1945: IF (fnd_msg_pub.count_msg > 0) THEN
1946: FOR l_counter IN 1 .. fnd_msg_pub.count_msg
1949: p_msg_index => l_counter,
1950: p_encoded => 'F',
1951: p_data => l_data,
1952: p_msg_index_out => l_msg_index_out);
1953: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
1954: END LOOP;
1955: END IF;
1956:
1957: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
1953: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
1954: END LOOP;
1955: END IF;
1956:
1957: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
1958: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_QACHECK_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
1959: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
1960: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
1961:
1954: END LOOP;
1955: END IF;
1956:
1957: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
1958: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_QACHECK_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
1959: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
1960: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
1961:
1962: END execute_qa_check_list;
1955: END IF;
1956:
1957: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
1958: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_QACHECK_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
1959: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
1960: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
1961:
1962: END execute_qa_check_list;
1963:
1956:
1957: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
1958: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_QACHECK_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
1959: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
1960: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
1961:
1962: END execute_qa_check_list;
1963:
1964:
2028: l_msg_token_tbl(1).token_name := 'API_NAME';
2029: l_msg_token_tbl(1).token_value := 'OKLRBCTB.pls';
2030: l_msg_token_tbl(2).token_name := 'CONC_PROGRAM';
2031: l_msg_token_tbl(2).token_value := 'Stream Generation';
2032: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2033: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_COPYRIGHT_HEADER',l_msg_token_tbl));
2034: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2035: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_STREAM_GENERATION_START')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2036: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_CONC_REQ_ID','REQUEST_ID',fnd_global.conc_request_id));
2029: l_msg_token_tbl(1).token_value := 'OKLRBCTB.pls';
2030: l_msg_token_tbl(2).token_name := 'CONC_PROGRAM';
2031: l_msg_token_tbl(2).token_value := 'Stream Generation';
2032: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2033: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_COPYRIGHT_HEADER',l_msg_token_tbl));
2034: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2035: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_STREAM_GENERATION_START')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2036: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_CONC_REQ_ID','REQUEST_ID',fnd_global.conc_request_id));
2037: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2030: l_msg_token_tbl(2).token_name := 'CONC_PROGRAM';
2031: l_msg_token_tbl(2).token_value := 'Stream Generation';
2032: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2033: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_COPYRIGHT_HEADER',l_msg_token_tbl));
2034: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2035: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_STREAM_GENERATION_START')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2036: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_CONC_REQ_ID','REQUEST_ID',fnd_global.conc_request_id));
2037: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2038:
2031: l_msg_token_tbl(2).token_value := 'Stream Generation';
2032: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2033: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_COPYRIGHT_HEADER',l_msg_token_tbl));
2034: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2035: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_STREAM_GENERATION_START')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2036: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_CONC_REQ_ID','REQUEST_ID',fnd_global.conc_request_id));
2037: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2038:
2039: l_return_status := OKL_API.START_ACTIVITY(l_api_name
2032: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2033: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_COPYRIGHT_HEADER',l_msg_token_tbl));
2034: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2035: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_STREAM_GENERATION_START')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2036: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_CONC_REQ_ID','REQUEST_ID',fnd_global.conc_request_id));
2037: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2038:
2039: l_return_status := OKL_API.START_ACTIVITY(l_api_name
2040: ,G_PKG_NAME
2033: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_COPYRIGHT_HEADER',l_msg_token_tbl));
2034: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2035: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_STREAM_GENERATION_START')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2036: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_CONC_REQ_ID','REQUEST_ID',fnd_global.conc_request_id));
2037: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2038:
2039: l_return_status := OKL_API.START_ACTIVITY(l_api_name
2040: ,G_PKG_NAME
2041: ,l_init_msg_list
2044: ,'_PVT'
2045: ,l_return_status);
2046:
2047: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2048: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Unexpected error in Start Activity');
2049: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2050: ELSIF (l_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2051: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in Start Activity');
2052: RAISE OKL_API.G_EXCEPTION_ERROR;
2047: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2048: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Unexpected error in Start Activity');
2049: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2050: ELSIF (l_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2051: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in Start Activity');
2052: RAISE OKL_API.G_EXCEPTION_ERROR;
2053: END IF;
2054: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start Activity Successful');
2055: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
2050: ELSIF (l_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2051: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in Start Activity');
2052: RAISE OKL_API.G_EXCEPTION_ERROR;
2053: END IF;
2054: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start Activity Successful');
2055: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
2056:
2057: --get the pricing engine set for the contract(ISG or ESG)
2058: okl_streams_util.get_pricing_engine(
2051: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in Start Activity');
2052: RAISE OKL_API.G_EXCEPTION_ERROR;
2053: END IF;
2054: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start Activity Successful');
2055: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
2056:
2057: --get the pricing engine set for the contract(ISG or ESG)
2058: okl_streams_util.get_pricing_engine(
2059: p_khr_id => p_khr_id,
2060: x_pricing_engine => l_pricing_engine,
2061: x_return_status => l_return_status);
2062:
2063: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2064: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Unexpected error in okl_stream_util.get_pricing_engine');
2065: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2066: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2067: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in okl_stream_util.get_pricing_engine');
2068: RAISE OKL_API.G_EXCEPTION_ERROR;
2063: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2064: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Unexpected error in okl_stream_util.get_pricing_engine');
2065: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2066: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2067: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in okl_stream_util.get_pricing_engine');
2068: RAISE OKL_API.G_EXCEPTION_ERROR;
2069: END IF;
2070:
2071: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_STREAM_GEN_METHOD','ST_GEN_METHOD',l_pricing_engine));
2067: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in okl_stream_util.get_pricing_engine');
2068: RAISE OKL_API.G_EXCEPTION_ERROR;
2069: END IF;
2070:
2071: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_STREAM_GEN_METHOD','ST_GEN_METHOD',l_pricing_engine));
2072:
2073: --pricing engine is set to INTERNAL or EXTERNAL
2074: IF (l_pricing_engine = 'INTERNAL' OR l_pricing_engine = 'EXTERNAL') THEN
2075: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Call to Stream Generation');
2071: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_STREAM_GEN_METHOD','ST_GEN_METHOD',l_pricing_engine));
2072:
2073: --pricing engine is set to INTERNAL or EXTERNAL
2074: IF (l_pricing_engine = 'INTERNAL' OR l_pricing_engine = 'EXTERNAL') THEN
2075: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Call to Stream Generation');
2076: --call to Internal Stream Generation
2077: okl_contract_book_pvt.generate_streams(
2078: p_api_version => l_api_version,
2079: p_init_msg_list => l_init_msg_list,
2085: x_trx_number => l_trx_number,
2086: x_trx_status => l_trx_status);
2087:
2088: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2089: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Unexpected error in okl_contract_book_pvt.generate_streams');
2090: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2091: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2092: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in okl_contract_book_pvt.generate_streams');
2093: RAISE OKL_API.G_EXCEPTION_ERROR;
2088: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2089: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Unexpected error in okl_contract_book_pvt.generate_streams');
2090: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2091: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2092: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in okl_contract_book_pvt.generate_streams');
2093: RAISE OKL_API.G_EXCEPTION_ERROR;
2094: END IF;
2095:
2096: ELSE
2093: RAISE OKL_API.G_EXCEPTION_ERROR;
2094: END IF;
2095:
2096: ELSE
2097: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Stream Generation failed. Pricing engine not set');
2098: RAISE OKL_API.G_EXCEPTION_ERROR;
2099: END IF;
2100:
2101: IF (l_pricing_engine = 'EXTERNAL') THEN
2099: END IF;
2100:
2101: IF (l_pricing_engine = 'EXTERNAL') THEN
2102: COMMIT;
2103: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_STREAM_TRX_ID','STREAM_TRX_ID',l_trx_number));
2104: --wait logic for ESG to complete..
2105: LOOP
2106: --fetch the transaction status for ESG
2107: OPEN extr_strm_gen_status(l_trx_number);
2107: OPEN extr_strm_gen_status(l_trx_number);
2108: FETCH extr_strm_gen_status INTO l_sis_code;
2109: IF extr_strm_gen_status%NOTFOUND THEN
2110: p_retcode := 2;
2111: FND_FILE.PUT_LINE(FND_FILE.LOG, 'No record found in okl_stream_interfaces for trx_number'||l_trx_number);
2112: EXIT;
2113: END IF;
2114: CLOSE extr_strm_gen_status;
2115:
2117: OPEN get_contract_status(p_khr_id);
2118: FETCH get_contract_status INTO l_sts_code;
2119: IF get_contract_status%NOTFOUND THEN
2120: p_retcode := 2;
2121: FND_FILE.PUT_LINE(FND_FILE.LOG, 'No record found for contract_id'||p_khr_id);
2122: EXIT;
2123: END IF;
2124: CLOSE get_contract_status;
2125:
2135: --return concurrent request status as Error if ESG failed.
2136: IF (l_sis_code IN ('PROCESS_COMPLETE_ERRORS','PROCESSING_FAILED',
2137: 'TIME_OUT','PROCESS_ABORTED', 'SERVER_NA')) THEN
2138: p_retcode := 2;
2139: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Stream Generation Not successful.'||l_sis_code);
2140: END IF;
2141: END IF;
2142:
2143:
2140: END IF;
2141: END IF;
2142:
2143:
2144: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Stream Generation completed....');
2145: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
2146:
2147: OKL_API.END_ACTIVITY(l_msg_count, l_msg_data);
2148: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End Activity Successful');
2141: END IF;
2142:
2143:
2144: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Stream Generation completed....');
2145: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
2146:
2147: OKL_API.END_ACTIVITY(l_msg_count, l_msg_data);
2148: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End Activity Successful');
2149:
2144: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Stream Generation completed....');
2145: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
2146:
2147: OKL_API.END_ACTIVITY(l_msg_count, l_msg_data);
2148: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End Activity Successful');
2149:
2150: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2151: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2152: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2146:
2147: OKL_API.END_ACTIVITY(l_msg_count, l_msg_data);
2148: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End Activity Successful');
2149:
2150: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2151: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2152: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2153: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_REQ_SUCCESS'));
2154: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2147: OKL_API.END_ACTIVITY(l_msg_count, l_msg_data);
2148: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End Activity Successful');
2149:
2150: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2151: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2152: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2153: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_REQ_SUCCESS'));
2154: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2155: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_STREAM_GENERATION_SUCCESS')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2148: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End Activity Successful');
2149:
2150: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2151: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2152: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2153: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_REQ_SUCCESS'));
2154: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2155: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_STREAM_GENERATION_SUCCESS')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2156: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2149:
2150: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2151: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2152: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2153: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_REQ_SUCCESS'));
2154: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2155: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_STREAM_GENERATION_SUCCESS')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2156: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2157:
2150: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2151: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2152: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2153: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_REQ_SUCCESS'));
2154: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2155: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_STREAM_GENERATION_SUCCESS')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2156: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2157:
2158: EXCEPTION
2151: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2152: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2153: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_REQ_SUCCESS'));
2154: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2155: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_STREAM_GENERATION_SUCCESS')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2156: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2157:
2158: EXCEPTION
2159: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2152: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2153: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_REQ_SUCCESS'));
2154: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2155: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_STREAM_GENERATION_SUCCESS')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2156: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2157:
2158: EXCEPTION
2159: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2160: p_retcode := 2;
2177: x_msg_count => l_msg_count,
2178: x_msg_data => l_msg_data,
2179: p_api_type => g_api_type);
2180:
2181: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2182: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2183: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2184:
2185: -- print the error message in the output file
2178: x_msg_data => l_msg_data,
2179: p_api_type => g_api_type);
2180:
2181: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2182: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2183: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2184:
2185: -- print the error message in the output file
2186: IF (fnd_msg_pub.count_msg > 0) THEN
2179: p_api_type => g_api_type);
2180:
2181: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2182: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2183: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2184:
2185: -- print the error message in the output file
2186: IF (fnd_msg_pub.count_msg > 0) THEN
2187: FOR l_counter IN 1 .. fnd_msg_pub.count_msg
2190: p_msg_index => l_counter,
2191: p_encoded => 'F',
2192: p_data => l_data,
2193: p_msg_index_out => l_msg_index_out);
2194: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
2195: END LOOP;
2196: END IF;
2197:
2198: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2194: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
2195: END LOOP;
2196: END IF;
2197:
2198: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2199: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_STREAM_GENERATION_SUCCESS')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2200: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2201:
2202: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2195: END LOOP;
2196: END IF;
2197:
2198: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2199: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_STREAM_GENERATION_SUCCESS')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2200: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2201:
2202: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2203: p_retcode := 2;
2196: END IF;
2197:
2198: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2199: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_STREAM_GENERATION_SUCCESS')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2200: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2201:
2202: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2203: p_retcode := 2;
2204:
2220: x_msg_count => l_msg_count,
2221: x_msg_data => l_msg_data,
2222: p_api_type => g_api_type);
2223:
2224: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2225: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2226: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2227:
2228: -- print the error message in the output file
2221: x_msg_data => l_msg_data,
2222: p_api_type => g_api_type);
2223:
2224: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2225: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2226: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2227:
2228: -- print the error message in the output file
2229: IF (fnd_msg_pub.count_msg > 0) THEN
2222: p_api_type => g_api_type);
2223:
2224: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2225: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2226: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2227:
2228: -- print the error message in the output file
2229: IF (fnd_msg_pub.count_msg > 0) THEN
2230: FOR l_counter IN 1 .. fnd_msg_pub.count_msg
2233: p_msg_index => l_counter,
2234: p_encoded => 'F',
2235: p_data => l_data,
2236: p_msg_index_out => l_msg_index_out);
2237: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
2238: END LOOP;
2239: END IF;
2240:
2241: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2237: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
2238: END LOOP;
2239: END IF;
2240:
2241: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2242: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_STREAM_GENERATION_SUCCESS')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2243: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2244:
2245: WHEN OTHERS THEN
2238: END LOOP;
2239: END IF;
2240:
2241: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2242: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_STREAM_GENERATION_SUCCESS')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2243: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2244:
2245: WHEN OTHERS THEN
2246: p_retcode := 2;
2239: END IF;
2240:
2241: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2242: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_STREAM_GENERATION_SUCCESS')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2243: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2244:
2245: WHEN OTHERS THEN
2246: p_retcode := 2;
2247: p_errbuf := SQLERRM;
2264: x_msg_count => l_msg_count,
2265: x_msg_data => l_msg_data,
2266: p_api_type => g_api_type);
2267:
2268: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2269: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2270: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2271:
2272: -- print the error message in the output file
2265: x_msg_data => l_msg_data,
2266: p_api_type => g_api_type);
2267:
2268: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2269: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2270: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2271:
2272: -- print the error message in the output file
2273: IF (fnd_msg_pub.count_msg > 0) THEN
2266: p_api_type => g_api_type);
2267:
2268: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2269: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2270: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2271:
2272: -- print the error message in the output file
2273: IF (fnd_msg_pub.count_msg > 0) THEN
2274: FOR l_counter IN 1 .. fnd_msg_pub.count_msg
2277: p_msg_index => l_counter,
2278: p_encoded => 'F',
2279: p_data => l_data,
2280: p_msg_index_out => l_msg_index_out);
2281: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
2282: END LOOP;
2283: END IF;
2284:
2285: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2281: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
2282: END LOOP;
2283: END IF;
2284:
2285: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2286: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_STREAM_GENERATION_SUCCESS')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2287: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2288: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
2289:
2282: END LOOP;
2283: END IF;
2284:
2285: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2286: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_STREAM_GENERATION_SUCCESS')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2287: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2288: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
2289:
2290: END generate_streams;
2283: END IF;
2284:
2285: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2286: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_STREAM_GENERATION_SUCCESS')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2287: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2288: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
2289:
2290: END generate_streams;
2291:
2284:
2285: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2286: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_STREAM_GENERATION_SUCCESS')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2287: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2288: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
2289:
2290: END generate_streams;
2291:
2292:
2334: l_msg_token_tbl(1).token_name := 'API_NAME';
2335: l_msg_token_tbl(1).token_value := 'OKLRBCTB.pls';
2336: l_msg_token_tbl(2).token_name := 'CONC_PROGRAM';
2337: l_msg_token_tbl(2).token_value := 'Draft Journal Entry';
2338: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2339: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_COPYRIGHT_HEADER',l_msg_token_tbl));
2340: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2341: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_JOURNAL_ENTRY_START')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2342: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_CONC_REQ_ID','REQUEST_ID',fnd_global.conc_request_id));
2335: l_msg_token_tbl(1).token_value := 'OKLRBCTB.pls';
2336: l_msg_token_tbl(2).token_name := 'CONC_PROGRAM';
2337: l_msg_token_tbl(2).token_value := 'Draft Journal Entry';
2338: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2339: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_COPYRIGHT_HEADER',l_msg_token_tbl));
2340: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2341: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_JOURNAL_ENTRY_START')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2342: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_CONC_REQ_ID','REQUEST_ID',fnd_global.conc_request_id));
2343: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2336: l_msg_token_tbl(2).token_name := 'CONC_PROGRAM';
2337: l_msg_token_tbl(2).token_value := 'Draft Journal Entry';
2338: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2339: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_COPYRIGHT_HEADER',l_msg_token_tbl));
2340: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2341: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_JOURNAL_ENTRY_START')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2342: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_CONC_REQ_ID','REQUEST_ID',fnd_global.conc_request_id));
2343: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2344:
2337: l_msg_token_tbl(2).token_value := 'Draft Journal Entry';
2338: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2339: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_COPYRIGHT_HEADER',l_msg_token_tbl));
2340: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2341: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_JOURNAL_ENTRY_START')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2342: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_CONC_REQ_ID','REQUEST_ID',fnd_global.conc_request_id));
2343: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2344:
2345: l_return_status := OKL_API.START_ACTIVITY(l_api_name
2338: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2339: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_COPYRIGHT_HEADER',l_msg_token_tbl));
2340: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2341: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_JOURNAL_ENTRY_START')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2342: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_CONC_REQ_ID','REQUEST_ID',fnd_global.conc_request_id));
2343: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2344:
2345: l_return_status := OKL_API.START_ACTIVITY(l_api_name
2346: ,G_PKG_NAME
2339: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_COPYRIGHT_HEADER',l_msg_token_tbl));
2340: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2341: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_JOURNAL_ENTRY_START')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2342: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_CONC_REQ_ID','REQUEST_ID',fnd_global.conc_request_id));
2343: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2344:
2345: l_return_status := OKL_API.START_ACTIVITY(l_api_name
2346: ,G_PKG_NAME
2347: ,l_init_msg_list
2350: ,'_PVT'
2351: ,l_return_status);
2352:
2353: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2354: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Unexpected error in Start Activity');
2355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2356: ELSIF (l_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2357: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in Start Activity');
2358: RAISE OKL_API.G_EXCEPTION_ERROR;
2353: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2354: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Unexpected error in Start Activity');
2355: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2356: ELSIF (l_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2357: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in Start Activity');
2358: RAISE OKL_API.G_EXCEPTION_ERROR;
2359: END IF;
2360: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start Activity Successful');
2361: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
2356: ELSIF (l_return_Status = OKL_API.G_RET_STS_ERROR) THEN
2357: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in Start Activity');
2358: RAISE OKL_API.G_EXCEPTION_ERROR;
2359: END IF;
2360: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start Activity Successful');
2361: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
2362:
2363: --fetch orig_system_source_code and id
2364: OPEN orig_syst_csr(p_khr_id);
2357: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in Start Activity');
2358: RAISE OKL_API.G_EXCEPTION_ERROR;
2359: END IF;
2360: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start Activity Successful');
2361: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
2362:
2363: --fetch orig_system_source_code and id
2364: OPEN orig_syst_csr(p_khr_id);
2365: FETCH orig_syst_csr INTO l_orig_syst_code,l_orig_syst_id;
2364: OPEN orig_syst_csr(p_khr_id);
2365: FETCH orig_syst_csr INTO l_orig_syst_code,l_orig_syst_id;
2366: IF orig_syst_csr%NOTFOUND THEN
2367: --error : contract does not exist
2368: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error : Contract Number is not valid.');
2369: l_return_status := OKL_API.G_RET_STS_ERROR;
2370: RAISE OKL_API.G_EXCEPTION_ERROR;
2371: END IF;
2372: CLOSE orig_syst_csr;
2385: x_msg_count => l_msg_count,
2386: x_msg_data => l_msg_data);
2387:
2388: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2389: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Unexpected error in call to okl_contract_book_pub.generate_journal_entries');
2390: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2391: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2392: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in call to okl_contract_book_pub.generate_journal_entries');
2393: RAISE OKL_API.G_EXCEPTION_ERROR;
2388: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2389: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Unexpected error in call to okl_contract_book_pub.generate_journal_entries');
2390: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2391: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2392: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in call to okl_contract_book_pub.generate_journal_entries');
2393: RAISE OKL_API.G_EXCEPTION_ERROR;
2394: END IF;
2395:
2396: END IF; --end entries for rebook
2407: x_msg_count => l_msg_count,
2408: x_msg_data => l_msg_data);
2409:
2410: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2411: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Unexpected error in call to okl_contract_book_pub.generate_journal_entries');
2412: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2413: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2414: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in call to okl_contract_book_pub.generate_journal_entries');
2415: RAISE OKL_API.G_EXCEPTION_ERROR;
2410: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2411: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Unexpected error in call to okl_contract_book_pub.generate_journal_entries');
2412: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2413: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2414: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in call to okl_contract_book_pub.generate_journal_entries');
2415: RAISE OKL_API.G_EXCEPTION_ERROR;
2416: END IF;
2417:
2418: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Journal Entries generated successfully....');
2414: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in call to okl_contract_book_pub.generate_journal_entries');
2415: RAISE OKL_API.G_EXCEPTION_ERROR;
2416: END IF;
2417:
2418: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Journal Entries generated successfully....');
2419: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
2420:
2421: OKL_API.END_ACTIVITY(l_msg_count, l_msg_data);
2422: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End Activity Successful');
2415: RAISE OKL_API.G_EXCEPTION_ERROR;
2416: END IF;
2417:
2418: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Journal Entries generated successfully....');
2419: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
2420:
2421: OKL_API.END_ACTIVITY(l_msg_count, l_msg_data);
2422: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End Activity Successful');
2423:
2418: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Journal Entries generated successfully....');
2419: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
2420:
2421: OKL_API.END_ACTIVITY(l_msg_count, l_msg_data);
2422: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End Activity Successful');
2423:
2424: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2425: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2426: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2420:
2421: OKL_API.END_ACTIVITY(l_msg_count, l_msg_data);
2422: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End Activity Successful');
2423:
2424: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2425: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2426: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2427: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_REQ_SUCCESS'));
2428: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2421: OKL_API.END_ACTIVITY(l_msg_count, l_msg_data);
2422: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End Activity Successful');
2423:
2424: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2425: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2426: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2427: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_REQ_SUCCESS'));
2428: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2429: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_JOURNAL_ENTRY_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2422: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End Activity Successful');
2423:
2424: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2425: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2426: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2427: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_REQ_SUCCESS'));
2428: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2429: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_JOURNAL_ENTRY_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2430: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2423:
2424: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2425: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2426: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2427: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_REQ_SUCCESS'));
2428: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2429: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_JOURNAL_ENTRY_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2430: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2431:
2424: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2425: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2426: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2427: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_REQ_SUCCESS'));
2428: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2429: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_JOURNAL_ENTRY_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2430: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2431:
2432: EXCEPTION
2425: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2426: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2427: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_REQ_SUCCESS'));
2428: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2429: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_JOURNAL_ENTRY_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2430: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2431:
2432: EXCEPTION
2433: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2426: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2427: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_REQ_SUCCESS'));
2428: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2429: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_JOURNAL_ENTRY_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2430: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2431:
2432: EXCEPTION
2433: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2434: p_retcode := 2;
2445: x_msg_count => l_msg_count,
2446: x_msg_data => l_msg_data,
2447: p_api_type => g_api_type);
2448:
2449: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2450: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2451: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2452:
2453: -- print the error message in the output file
2446: x_msg_data => l_msg_data,
2447: p_api_type => g_api_type);
2448:
2449: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2450: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2451: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2452:
2453: -- print the error message in the output file
2454: IF (fnd_msg_pub.count_msg > 0) THEN
2447: p_api_type => g_api_type);
2448:
2449: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2450: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2451: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2452:
2453: -- print the error message in the output file
2454: IF (fnd_msg_pub.count_msg > 0) THEN
2455: FOR l_counter IN 1 .. fnd_msg_pub.count_msg
2458: p_msg_index => l_counter,
2459: p_encoded => 'F',
2460: p_data => l_data,
2461: p_msg_index_out => l_msg_index_out);
2462: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
2463: END LOOP;
2464: END IF;
2465:
2466: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2462: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
2463: END LOOP;
2464: END IF;
2465:
2466: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2467: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_JOURNAL_ENTRY_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2468: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2469:
2470: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2463: END LOOP;
2464: END IF;
2465:
2466: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2467: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_JOURNAL_ENTRY_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2468: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2469:
2470: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2471: p_retcode := 2;
2464: END IF;
2465:
2466: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2467: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_JOURNAL_ENTRY_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2468: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2469:
2470: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2471: p_retcode := 2;
2472:
2482: x_msg_count => l_msg_count,
2483: x_msg_data => l_msg_data,
2484: p_api_type => g_api_type);
2485:
2486: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2487: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2488: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2489:
2490: -- print the error message in the output file
2483: x_msg_data => l_msg_data,
2484: p_api_type => g_api_type);
2485:
2486: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2487: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2488: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2489:
2490: -- print the error message in the output file
2491: IF (fnd_msg_pub.count_msg > 0) THEN
2484: p_api_type => g_api_type);
2485:
2486: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2487: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2488: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2489:
2490: -- print the error message in the output file
2491: IF (fnd_msg_pub.count_msg > 0) THEN
2492: FOR l_counter IN 1 .. fnd_msg_pub.count_msg
2495: p_msg_index => l_counter,
2496: p_encoded => 'F',
2497: p_data => l_data,
2498: p_msg_index_out => l_msg_index_out);
2499: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
2500: END LOOP;
2501: END IF;
2502:
2503: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2499: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
2500: END LOOP;
2501: END IF;
2502:
2503: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2504: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_JOURNAL_ENTRY_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2505: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2506:
2507: WHEN OTHERS THEN
2500: END LOOP;
2501: END IF;
2502:
2503: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2504: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_JOURNAL_ENTRY_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2505: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2506:
2507: WHEN OTHERS THEN
2508: p_retcode := 2;
2501: END IF;
2502:
2503: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2504: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_JOURNAL_ENTRY_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2505: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2506:
2507: WHEN OTHERS THEN
2508: p_retcode := 2;
2509: p_errbuf := SQLERRM;
2520: x_msg_count => l_msg_count,
2521: x_msg_data => l_msg_data,
2522: p_api_type => g_api_type);
2523:
2524: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2525: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2526: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2527:
2528: -- print the error message in the output file
2521: x_msg_data => l_msg_data,
2522: p_api_type => g_api_type);
2523:
2524: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2525: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2526: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2527:
2528: -- print the error message in the output file
2529: IF (fnd_msg_pub.count_msg > 0) THEN
2522: p_api_type => g_api_type);
2523:
2524: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2525: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2526: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2527:
2528: -- print the error message in the output file
2529: IF (fnd_msg_pub.count_msg > 0) THEN
2530: FOR l_counter IN 1 .. fnd_msg_pub.count_msg
2533: p_msg_index => l_counter,
2534: p_encoded => 'F',
2535: p_data => l_data,
2536: p_msg_index_out => l_msg_index_out);
2537: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
2538: END LOOP;
2539: END IF;
2540: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2541: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_JOURNAL_ENTRY_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2536: p_msg_index_out => l_msg_index_out);
2537: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
2538: END LOOP;
2539: END IF;
2540: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2541: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_JOURNAL_ENTRY_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2542: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2543: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
2544:
2537: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
2538: END LOOP;
2539: END IF;
2540: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2541: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_JOURNAL_ENTRY_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2542: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2543: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
2544:
2545: END generate_journal_entries;
2538: END LOOP;
2539: END IF;
2540: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2541: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_JOURNAL_ENTRY_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2542: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2543: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
2544:
2545: END generate_journal_entries;
2546:
2539: END IF;
2540: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2541: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_JOURNAL_ENTRY_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2542: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2543: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
2544:
2545: END generate_journal_entries;
2546:
2547:
2580: l_msg_token_tbl(1).token_name := 'API_NAME';
2581: l_msg_token_tbl(1).token_value := 'OKLRBCTB.pls';
2582: l_msg_token_tbl(2).token_name := 'CONC_PROGRAM';
2583: l_msg_token_tbl(2).token_value := 'Approval';
2584: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2585: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_COPYRIGHT_HEADER',l_msg_token_tbl));
2586: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2587: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_APPROVAL_START')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2588: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_CONC_REQ_ID','REQUEST_ID',fnd_global.conc_request_id));
2581: l_msg_token_tbl(1).token_value := 'OKLRBCTB.pls';
2582: l_msg_token_tbl(2).token_name := 'CONC_PROGRAM';
2583: l_msg_token_tbl(2).token_value := 'Approval';
2584: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2585: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_COPYRIGHT_HEADER',l_msg_token_tbl));
2586: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2587: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_APPROVAL_START')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2588: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_CONC_REQ_ID','REQUEST_ID',fnd_global.conc_request_id));
2589: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2582: l_msg_token_tbl(2).token_name := 'CONC_PROGRAM';
2583: l_msg_token_tbl(2).token_value := 'Approval';
2584: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2585: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_COPYRIGHT_HEADER',l_msg_token_tbl));
2586: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2587: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_APPROVAL_START')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2588: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_CONC_REQ_ID','REQUEST_ID',fnd_global.conc_request_id));
2589: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2590:
2583: l_msg_token_tbl(2).token_value := 'Approval';
2584: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2585: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_COPYRIGHT_HEADER',l_msg_token_tbl));
2586: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2587: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_APPROVAL_START')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2588: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_CONC_REQ_ID','REQUEST_ID',fnd_global.conc_request_id));
2589: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2590:
2591: l_return_status := OKL_API.START_ACTIVITY(l_api_name
2584: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2585: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_COPYRIGHT_HEADER',l_msg_token_tbl));
2586: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2587: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_APPROVAL_START')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2588: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_CONC_REQ_ID','REQUEST_ID',fnd_global.conc_request_id));
2589: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2590:
2591: l_return_status := OKL_API.START_ACTIVITY(l_api_name
2592: ,G_PKG_NAME
2585: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_COPYRIGHT_HEADER',l_msg_token_tbl));
2586: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2587: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_APPROVAL_START')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2588: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_CONC_REQ_ID','REQUEST_ID',fnd_global.conc_request_id));
2589: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2590:
2591: l_return_status := OKL_API.START_ACTIVITY(l_api_name
2592: ,G_PKG_NAME
2593: ,l_init_msg_list
2596: ,'_PVT'
2597: ,l_return_status);
2598:
2599: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2600: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Unexpected error in Start Activity');
2601: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2602: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
2603: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in Start Activity');
2604: RAISE OKL_API.G_EXCEPTION_ERROR;
2599: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2600: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Unexpected error in Start Activity');
2601: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2602: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
2603: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in Start Activity');
2604: RAISE OKL_API.G_EXCEPTION_ERROR;
2605: END IF;
2606: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start Activity Successful');
2607: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
2602: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
2603: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in Start Activity');
2604: RAISE OKL_API.G_EXCEPTION_ERROR;
2605: END IF;
2606: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start Activity Successful');
2607: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
2608:
2609: --call program for contract approval
2610: okl_contract_book_pub.submit_for_approval(
2603: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in Start Activity');
2604: RAISE OKL_API.G_EXCEPTION_ERROR;
2605: END IF;
2606: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start Activity Successful');
2607: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
2608:
2609: --call program for contract approval
2610: okl_contract_book_pub.submit_for_approval(
2611: p_api_version => l_api_version,
2615: x_msg_data => l_msg_data,
2616: p_chr_id => p_khr_id);
2617:
2618: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2619: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Unexpected error in call to okl_contract_book_pub.submit_for_approval');
2620: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2621: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2622: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in call to okl_contract_book_pub.submit_for_approval');
2623: RAISE OKL_API.G_EXCEPTION_ERROR;
2618: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2619: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Unexpected error in call to okl_contract_book_pub.submit_for_approval');
2620: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2621: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2622: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in call to okl_contract_book_pub.submit_for_approval');
2623: RAISE OKL_API.G_EXCEPTION_ERROR;
2624: END IF;
2625:
2626: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Contract Approved successfully....');
2622: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in call to okl_contract_book_pub.submit_for_approval');
2623: RAISE OKL_API.G_EXCEPTION_ERROR;
2624: END IF;
2625:
2626: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Contract Approved successfully....');
2627: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
2628:
2629: OKL_API.END_ACTIVITY(l_msg_count, l_msg_data);
2630: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End Activity Successful');
2623: RAISE OKL_API.G_EXCEPTION_ERROR;
2624: END IF;
2625:
2626: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Contract Approved successfully....');
2627: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
2628:
2629: OKL_API.END_ACTIVITY(l_msg_count, l_msg_data);
2630: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End Activity Successful');
2631:
2626: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Contract Approved successfully....');
2627: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
2628:
2629: OKL_API.END_ACTIVITY(l_msg_count, l_msg_data);
2630: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End Activity Successful');
2631:
2632: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2633: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2634: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2628:
2629: OKL_API.END_ACTIVITY(l_msg_count, l_msg_data);
2630: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End Activity Successful');
2631:
2632: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2633: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2634: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2635: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_REQ_SUCCESS'));
2636: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2629: OKL_API.END_ACTIVITY(l_msg_count, l_msg_data);
2630: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End Activity Successful');
2631:
2632: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2633: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2634: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2635: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_REQ_SUCCESS'));
2636: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2637: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_APPROVAL_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2630: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End Activity Successful');
2631:
2632: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2633: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2634: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2635: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_REQ_SUCCESS'));
2636: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2637: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_APPROVAL_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2638: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2631:
2632: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2633: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2634: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2635: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_REQ_SUCCESS'));
2636: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2637: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_APPROVAL_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2638: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2639:
2632: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2633: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2634: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2635: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_REQ_SUCCESS'));
2636: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2637: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_APPROVAL_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2638: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2639:
2640: EXCEPTION
2633: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2634: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2635: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_REQ_SUCCESS'));
2636: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2637: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_APPROVAL_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2638: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2639:
2640: EXCEPTION
2641: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2634: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2635: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_REQ_SUCCESS'));
2636: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2637: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_APPROVAL_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2638: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2639:
2640: EXCEPTION
2641: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2642: p_retcode := 2;
2647: x_msg_count => l_msg_count,
2648: x_msg_data => l_msg_data,
2649: p_api_type => g_api_type);
2650:
2651: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2652: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2653: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2654:
2655: -- print the error message in the output file
2648: x_msg_data => l_msg_data,
2649: p_api_type => g_api_type);
2650:
2651: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2652: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2653: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2654:
2655: -- print the error message in the output file
2656: IF (fnd_msg_pub.count_msg > 0) THEN
2649: p_api_type => g_api_type);
2650:
2651: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2652: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2653: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2654:
2655: -- print the error message in the output file
2656: IF (fnd_msg_pub.count_msg > 0) THEN
2657: FOR l_counter IN 1 .. fnd_msg_pub.count_msg
2660: p_msg_index => l_counter,
2661: p_encoded => 'F',
2662: p_data => l_data,
2663: p_msg_index_out => l_msg_index_out);
2664: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
2665: END LOOP;
2666: END IF;
2667:
2668: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2664: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
2665: END LOOP;
2666: END IF;
2667:
2668: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2669: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_APPROVAL_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2670: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2671:
2672: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2665: END LOOP;
2666: END IF;
2667:
2668: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2669: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_APPROVAL_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2670: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2671:
2672: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2673: p_retcode := 2;
2666: END IF;
2667:
2668: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2669: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_APPROVAL_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2670: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2671:
2672: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2673: p_retcode := 2;
2674: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
2678: x_msg_count => l_msg_count,
2679: x_msg_data => l_msg_data,
2680: p_api_type => g_api_type);
2681:
2682: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2683: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2684: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2685:
2686: -- print the error message in the output file
2679: x_msg_data => l_msg_data,
2680: p_api_type => g_api_type);
2681:
2682: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2683: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2684: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2685:
2686: -- print the error message in the output file
2687: IF (fnd_msg_pub.count_msg > 0) THEN
2680: p_api_type => g_api_type);
2681:
2682: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2683: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2684: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2685:
2686: -- print the error message in the output file
2687: IF (fnd_msg_pub.count_msg > 0) THEN
2688: FOR l_counter IN 1 .. fnd_msg_pub.count_msg
2691: p_msg_index => l_counter,
2692: p_encoded => 'F',
2693: p_data => l_data,
2694: p_msg_index_out => l_msg_index_out);
2695: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
2696: END LOOP;
2697: END IF;
2698:
2699: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2695: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
2696: END LOOP;
2697: END IF;
2698:
2699: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2700: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_APPROVAL_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2701: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2702:
2703: WHEN OTHERS THEN
2696: END LOOP;
2697: END IF;
2698:
2699: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2700: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_APPROVAL_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2701: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2702:
2703: WHEN OTHERS THEN
2704: p_retcode := 2;
2697: END IF;
2698:
2699: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2700: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_APPROVAL_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2701: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2702:
2703: WHEN OTHERS THEN
2704: p_retcode := 2;
2705: p_errbuf := SQLERRM;
2710: x_msg_count => l_msg_count,
2711: x_msg_data => l_msg_data,
2712: p_api_type => g_api_type);
2713:
2714: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2715: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2716: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2717:
2718: -- print the error message in the output file
2711: x_msg_data => l_msg_data,
2712: p_api_type => g_api_type);
2713:
2714: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2715: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2716: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2717:
2718: -- print the error message in the output file
2719: IF (fnd_msg_pub.count_msg > 0) THEN
2712: p_api_type => g_api_type);
2713:
2714: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2715: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2716: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2717:
2718: -- print the error message in the output file
2719: IF (fnd_msg_pub.count_msg > 0) THEN
2720: FOR l_counter IN 1 .. fnd_msg_pub.count_msg
2723: p_msg_index => l_counter,
2724: p_encoded => 'F',
2725: p_data => l_data,
2726: p_msg_index_out => l_msg_index_out);
2727: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
2728: END LOOP;
2729: END IF;
2730:
2731: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2727: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
2728: END LOOP;
2729: END IF;
2730:
2731: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2732: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_APPROVAL_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2733: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2734: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
2735:
2728: END LOOP;
2729: END IF;
2730:
2731: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2732: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_APPROVAL_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2733: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2734: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
2735:
2736: END submit_for_approval;
2729: END IF;
2730:
2731: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2732: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_APPROVAL_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2733: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2734: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
2735:
2736: END submit_for_approval;
2737:
2730:
2731: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2732: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_APPROVAL_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2733: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2734: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
2735:
2736: END submit_for_approval;
2737:
2738: -----------------------------------------------------------------------------
2774: l_msg_token_tbl(1).token_name := 'API_NAME';
2775: l_msg_token_tbl(1).token_value := 'OKLRBCTB.pls';
2776: l_msg_token_tbl(2).token_name := 'CONC_PROGRAM';
2777: l_msg_token_tbl(2).token_value := 'Activation';
2778: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2779: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_COPYRIGHT_HEADER',l_msg_token_tbl));
2780: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2781: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_ACTIVATION_START')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2782: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_CONC_REQ_ID','REQUEST_ID',fnd_global.conc_request_id));
2775: l_msg_token_tbl(1).token_value := 'OKLRBCTB.pls';
2776: l_msg_token_tbl(2).token_name := 'CONC_PROGRAM';
2777: l_msg_token_tbl(2).token_value := 'Activation';
2778: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2779: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_COPYRIGHT_HEADER',l_msg_token_tbl));
2780: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2781: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_ACTIVATION_START')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2782: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_CONC_REQ_ID','REQUEST_ID',fnd_global.conc_request_id));
2783: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2776: l_msg_token_tbl(2).token_name := 'CONC_PROGRAM';
2777: l_msg_token_tbl(2).token_value := 'Activation';
2778: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2779: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_COPYRIGHT_HEADER',l_msg_token_tbl));
2780: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2781: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_ACTIVATION_START')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2782: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_CONC_REQ_ID','REQUEST_ID',fnd_global.conc_request_id));
2783: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2784:
2777: l_msg_token_tbl(2).token_value := 'Activation';
2778: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2779: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_COPYRIGHT_HEADER',l_msg_token_tbl));
2780: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2781: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_ACTIVATION_START')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2782: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_CONC_REQ_ID','REQUEST_ID',fnd_global.conc_request_id));
2783: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2784:
2785: l_return_status := OKL_API.START_ACTIVITY(l_api_name
2778: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2779: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_COPYRIGHT_HEADER',l_msg_token_tbl));
2780: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2781: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_ACTIVATION_START')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2782: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_CONC_REQ_ID','REQUEST_ID',fnd_global.conc_request_id));
2783: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2784:
2785: l_return_status := OKL_API.START_ACTIVITY(l_api_name
2786: ,G_PKG_NAME
2779: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_COPYRIGHT_HEADER',l_msg_token_tbl));
2780: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2781: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_ACTIVATION_START')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2782: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_CONC_REQ_ID','REQUEST_ID',fnd_global.conc_request_id));
2783: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2784:
2785: l_return_status := OKL_API.START_ACTIVITY(l_api_name
2786: ,G_PKG_NAME
2787: ,l_init_msg_list
2790: ,'_PVT'
2791: ,l_return_status);
2792:
2793: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2794: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Unexpected error in Start Activity');
2795: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2796: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
2797: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in Start Activity');
2798: RAISE OKL_API.G_EXCEPTION_ERROR;
2793: IF (l_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR) THEN
2794: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Unexpected error in Start Activity');
2795: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2796: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
2797: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in Start Activity');
2798: RAISE OKL_API.G_EXCEPTION_ERROR;
2799: END IF;
2800: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start Activity Successful');
2801: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
2796: ELSIF (l_return_Status = Okl_Api.G_RET_STS_ERROR) THEN
2797: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in Start Activity');
2798: RAISE OKL_API.G_EXCEPTION_ERROR;
2799: END IF;
2800: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start Activity Successful');
2801: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
2802:
2803: --call program for contract activation
2804: okl_contract_book_pvt.approve_activate_contract(
2797: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in Start Activity');
2798: RAISE OKL_API.G_EXCEPTION_ERROR;
2799: END IF;
2800: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start Activity Successful');
2801: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
2802:
2803: --call program for contract activation
2804: okl_contract_book_pvt.approve_activate_contract(
2805: p_api_version => l_api_version,
2810: p_chr_id => p_khr_id,
2811: x_process_status => l_process_status);
2812:
2813: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2814: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Unexpected error in call to okl_contract_book_pvt.approve_activate_contract');
2815: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2816: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2817: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in call to okl_contract_book_pvt.approve_activate_contract');
2818: RAISE OKL_API.G_EXCEPTION_ERROR;
2813: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2814: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Unexpected error in call to okl_contract_book_pvt.approve_activate_contract');
2815: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2816: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2817: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in call to okl_contract_book_pvt.approve_activate_contract');
2818: RAISE OKL_API.G_EXCEPTION_ERROR;
2819: END IF;
2820:
2821: IF (l_process_status = OKL_API.G_RET_STS_ERROR OR l_process_status = OKL_API.G_RET_STS_WARNING) THEN
2818: RAISE OKL_API.G_EXCEPTION_ERROR;
2819: END IF;
2820:
2821: IF (l_process_status = OKL_API.G_RET_STS_ERROR OR l_process_status = OKL_API.G_RET_STS_WARNING) THEN
2822: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2823: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2824: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2825: -- print the error message in the output file
2826: IF (fnd_msg_pub.count_msg > 0) THEN
2819: END IF;
2820:
2821: IF (l_process_status = OKL_API.G_RET_STS_ERROR OR l_process_status = OKL_API.G_RET_STS_WARNING) THEN
2822: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2823: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2824: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2825: -- print the error message in the output file
2826: IF (fnd_msg_pub.count_msg > 0) THEN
2827: FOR l_counter IN 1 .. fnd_msg_pub.count_msg
2820:
2821: IF (l_process_status = OKL_API.G_RET_STS_ERROR OR l_process_status = OKL_API.G_RET_STS_WARNING) THEN
2822: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2823: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2824: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2825: -- print the error message in the output file
2826: IF (fnd_msg_pub.count_msg > 0) THEN
2827: FOR l_counter IN 1 .. fnd_msg_pub.count_msg
2828: LOOP
2830: p_msg_index => l_counter,
2831: p_encoded => 'F',
2832: p_data => l_data,
2833: p_msg_index_out => l_msg_index_out);
2834: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
2835: END LOOP;
2836: END IF;
2837: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2838: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_ACTIVATION_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2833: p_msg_index_out => l_msg_index_out);
2834: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
2835: END LOOP;
2836: END IF;
2837: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2838: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_ACTIVATION_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2839: END IF;
2840:
2841: IF (l_process_status <> OKL_API.G_RET_STS_ERROR) THEN
2834: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
2835: END LOOP;
2836: END IF;
2837: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2838: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_ACTIVATION_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2839: END IF;
2840:
2841: IF (l_process_status <> OKL_API.G_RET_STS_ERROR) THEN
2842: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Contract Activated successfully....');
2838: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_ACTIVATION_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2839: END IF;
2840:
2841: IF (l_process_status <> OKL_API.G_RET_STS_ERROR) THEN
2842: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Contract Activated successfully....');
2843: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2844: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2845: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2846: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_REQ_SUCCESS'));
2839: END IF;
2840:
2841: IF (l_process_status <> OKL_API.G_RET_STS_ERROR) THEN
2842: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Contract Activated successfully....');
2843: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2844: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2845: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2846: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_REQ_SUCCESS'));
2847: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2840:
2841: IF (l_process_status <> OKL_API.G_RET_STS_ERROR) THEN
2842: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Contract Activated successfully....');
2843: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2844: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2845: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2846: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_REQ_SUCCESS'));
2847: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2848: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_ACTIVATION_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2841: IF (l_process_status <> OKL_API.G_RET_STS_ERROR) THEN
2842: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Contract Activated successfully....');
2843: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2844: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2845: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2846: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_REQ_SUCCESS'));
2847: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2848: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_ACTIVATION_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2849: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2842: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Contract Activated successfully....');
2843: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2844: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2845: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2846: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_REQ_SUCCESS'));
2847: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2848: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_ACTIVATION_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2849: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2850: END IF;
2843: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2844: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2845: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2846: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_REQ_SUCCESS'));
2847: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2848: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_ACTIVATION_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2849: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2850: END IF;
2851:
2844: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2845: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2846: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_REQ_SUCCESS'));
2847: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2848: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_ACTIVATION_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2849: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2850: END IF;
2851:
2852: IF (l_process_status = OKL_API.G_RET_STS_ERROR) THEN
2845: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2846: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_REQ_SUCCESS'));
2847: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2848: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_ACTIVATION_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2849: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2850: END IF;
2851:
2852: IF (l_process_status = OKL_API.G_RET_STS_ERROR) THEN
2853: p_retcode := 2;
2853: p_retcode := 2;
2854: END IF;
2855:
2856: OKL_API.END_ACTIVITY(l_msg_count, l_msg_data);
2857: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End Activity Successful');
2858:
2859:
2860: EXCEPTION
2861: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2867: x_msg_count => l_msg_count,
2868: x_msg_data => l_msg_data,
2869: p_api_type => g_api_type);
2870:
2871: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2872: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2873: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2874:
2875: -- print the error message in the output file
2868: x_msg_data => l_msg_data,
2869: p_api_type => g_api_type);
2870:
2871: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2872: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2873: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2874:
2875: -- print the error message in the output file
2876: IF (fnd_msg_pub.count_msg > 0) THEN
2869: p_api_type => g_api_type);
2870:
2871: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2872: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2873: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2874:
2875: -- print the error message in the output file
2876: IF (fnd_msg_pub.count_msg > 0) THEN
2877: FOR l_counter IN 1 .. fnd_msg_pub.count_msg
2880: p_msg_index => l_counter,
2881: p_encoded => 'F',
2882: p_data => l_data,
2883: p_msg_index_out => l_msg_index_out);
2884: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
2885: END LOOP;
2886: END IF;
2887:
2888: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2884: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
2885: END LOOP;
2886: END IF;
2887:
2888: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2889: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_ACTIVATION_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2890: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2891:
2892: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2885: END LOOP;
2886: END IF;
2887:
2888: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2889: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_ACTIVATION_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2890: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2891:
2892: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2893: p_retcode := 2;
2886: END IF;
2887:
2888: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2889: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_ACTIVATION_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2890: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2891:
2892: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2893: p_retcode := 2;
2894: l_return_status := OKL_API.HANDLE_EXCEPTIONS(
2898: x_msg_count => l_msg_count,
2899: x_msg_data => l_msg_data,
2900: p_api_type => g_api_type);
2901:
2902: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2903: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2904: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2905:
2906: -- print the error message in the output file
2899: x_msg_data => l_msg_data,
2900: p_api_type => g_api_type);
2901:
2902: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2903: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2904: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2905:
2906: -- print the error message in the output file
2907: IF (fnd_msg_pub.count_msg > 0) THEN
2900: p_api_type => g_api_type);
2901:
2902: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2903: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2904: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2905:
2906: -- print the error message in the output file
2907: IF (fnd_msg_pub.count_msg > 0) THEN
2908: FOR l_counter IN 1 .. fnd_msg_pub.count_msg
2911: p_msg_index => l_counter,
2912: p_encoded => 'F',
2913: p_data => l_data,
2914: p_msg_index_out => l_msg_index_out);
2915: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
2916: END LOOP;
2917: END IF;
2918:
2919: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2915: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
2916: END LOOP;
2917: END IF;
2918:
2919: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2920: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_ACTIVATION_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2921: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2922:
2923: WHEN OTHERS THEN
2916: END LOOP;
2917: END IF;
2918:
2919: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2920: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_ACTIVATION_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2921: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2922:
2923: WHEN OTHERS THEN
2924: p_retcode := 2;
2917: END IF;
2918:
2919: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2920: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_ACTIVATION_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2921: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2922:
2923: WHEN OTHERS THEN
2924: p_retcode := 2;
2925: p_errbuf := SQLERRM;
2930: x_msg_count => l_msg_count,
2931: x_msg_data => l_msg_data,
2932: p_api_type => g_api_type);
2933:
2934: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2935: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2936: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2937:
2938: -- print the error message in the output file
2931: x_msg_data => l_msg_data,
2932: p_api_type => g_api_type);
2933:
2934: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2935: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2936: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2937:
2938: -- print the error message in the output file
2939: IF (fnd_msg_pub.count_msg > 0) THEN
2932: p_api_type => g_api_type);
2933:
2934: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2935: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
2936: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
2937:
2938: -- print the error message in the output file
2939: IF (fnd_msg_pub.count_msg > 0) THEN
2940: FOR l_counter IN 1 .. fnd_msg_pub.count_msg
2943: p_msg_index => l_counter,
2944: p_encoded => 'F',
2945: p_data => l_data,
2946: p_msg_index_out => l_msg_index_out);
2947: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
2948: END LOOP;
2949: END IF;
2950:
2951: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2947: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
2948: END LOOP;
2949: END IF;
2950:
2951: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2952: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_ACTIVATION_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2953: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2954: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
2955:
2948: END LOOP;
2949: END IF;
2950:
2951: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2952: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_ACTIVATION_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2953: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2954: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
2955:
2956: END activate_contract;
2949: END IF;
2950:
2951: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2952: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_ACTIVATION_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2953: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2954: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
2955:
2956: END activate_contract;
2957:
2950:
2951: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
2952: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CONTRACT_ACTIVATION_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
2953: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
2954: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
2955:
2956: END activate_contract;
2957:
2958: -----------------------------------------------------------------------------
3804: l_msg_token_tbl(1).token_name := 'API_NAME';
3805: l_msg_token_tbl(1).token_value := 'OKLRBCTB.pls';
3806: l_msg_token_tbl(2).token_name := 'CONC_PROGRAM';
3807: l_msg_token_tbl(2).token_value := 'Calculate Upfront Tax';
3808: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
3809: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_COPYRIGHT_HEADER',l_msg_token_tbl));
3810: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
3811: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CALC_UPFRNTTX_START')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
3812: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_CONC_REQ_ID','REQUEST_ID',fnd_global.conc_request_id));
3805: l_msg_token_tbl(1).token_value := 'OKLRBCTB.pls';
3806: l_msg_token_tbl(2).token_name := 'CONC_PROGRAM';
3807: l_msg_token_tbl(2).token_value := 'Calculate Upfront Tax';
3808: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
3809: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_COPYRIGHT_HEADER',l_msg_token_tbl));
3810: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
3811: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CALC_UPFRNTTX_START')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
3812: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_CONC_REQ_ID','REQUEST_ID',fnd_global.conc_request_id));
3813: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
3806: l_msg_token_tbl(2).token_name := 'CONC_PROGRAM';
3807: l_msg_token_tbl(2).token_value := 'Calculate Upfront Tax';
3808: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
3809: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_COPYRIGHT_HEADER',l_msg_token_tbl));
3810: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
3811: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CALC_UPFRNTTX_START')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
3812: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_CONC_REQ_ID','REQUEST_ID',fnd_global.conc_request_id));
3813: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
3814:
3807: l_msg_token_tbl(2).token_value := 'Calculate Upfront Tax';
3808: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
3809: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_COPYRIGHT_HEADER',l_msg_token_tbl));
3810: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
3811: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CALC_UPFRNTTX_START')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
3812: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_CONC_REQ_ID','REQUEST_ID',fnd_global.conc_request_id));
3813: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
3814:
3815: l_return_status := OKL_API.START_ACTIVITY(l_api_name
3808: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
3809: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_COPYRIGHT_HEADER',l_msg_token_tbl));
3810: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
3811: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CALC_UPFRNTTX_START')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
3812: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_CONC_REQ_ID','REQUEST_ID',fnd_global.conc_request_id));
3813: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
3814:
3815: l_return_status := OKL_API.START_ACTIVITY(l_api_name
3816: ,G_PKG_NAME
3809: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_COPYRIGHT_HEADER',l_msg_token_tbl));
3810: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
3811: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CALC_UPFRNTTX_START')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
3812: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,get_message('OKL_CONC_REQ_ID','REQUEST_ID',fnd_global.conc_request_id));
3813: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
3814:
3815: l_return_status := OKL_API.START_ACTIVITY(l_api_name
3816: ,G_PKG_NAME
3817: ,l_init_msg_list
3820: ,'_PVT'
3821: ,l_return_status);
3822:
3823: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3824: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Unexpected error in Start Activity');
3825: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3826: ELSIF (l_return_Status = OKL_API.G_RET_STS_ERROR) THEN
3827: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in Start Activity');
3828: RAISE OKL_API.G_EXCEPTION_ERROR;
3823: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3824: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Unexpected error in Start Activity');
3825: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3826: ELSIF (l_return_Status = OKL_API.G_RET_STS_ERROR) THEN
3827: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in Start Activity');
3828: RAISE OKL_API.G_EXCEPTION_ERROR;
3829: END IF;
3830: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start Activity Successful');
3831: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
3826: ELSIF (l_return_Status = OKL_API.G_RET_STS_ERROR) THEN
3827: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in Start Activity');
3828: RAISE OKL_API.G_EXCEPTION_ERROR;
3829: END IF;
3830: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start Activity Successful');
3831: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
3832:
3833: --call Upfront Tax for Booking
3834: okl_contract_book_pvt.calculate_upfront_tax(
3827: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in Start Activity');
3828: RAISE OKL_API.G_EXCEPTION_ERROR;
3829: END IF;
3830: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Start Activity Successful');
3831: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
3832:
3833: --call Upfront Tax for Booking
3834: okl_contract_book_pvt.calculate_upfront_tax(
3835: p_api_version => l_api_version,
3840: p_chr_id => p_khr_id,
3841: x_process_status => l_process_status);
3842:
3843: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3844: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Unexpected error in call to okl_contract_book_pvt.calculate_upfront_tax');
3845: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3846: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3847: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in call to okl_contract_book_pvt.calculate_upfront_tax');
3848: RAISE OKL_API.G_EXCEPTION_ERROR;
3843: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3844: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Unexpected error in call to okl_contract_book_pvt.calculate_upfront_tax');
3845: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3846: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3847: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in call to okl_contract_book_pvt.calculate_upfront_tax');
3848: RAISE OKL_API.G_EXCEPTION_ERROR;
3849: END IF;
3850:
3851: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
3847: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Error in call to okl_contract_book_pvt.calculate_upfront_tax');
3848: RAISE OKL_API.G_EXCEPTION_ERROR;
3849: END IF;
3850:
3851: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
3852: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
3853: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
3854: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
3855:
3848: RAISE OKL_API.G_EXCEPTION_ERROR;
3849: END IF;
3850:
3851: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
3852: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
3853: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
3854: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
3855:
3856: IF (l_process_status = OKL_API.G_RET_STS_ERROR OR l_process_status = OKL_API.G_RET_STS_WARNING) THEN
3849: END IF;
3850:
3851: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
3852: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
3853: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
3854: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
3855:
3856: IF (l_process_status = OKL_API.G_RET_STS_ERROR OR l_process_status = OKL_API.G_RET_STS_WARNING) THEN
3857: -- print the error message in the output file
3850:
3851: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
3852: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
3853: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
3854: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
3855:
3856: IF (l_process_status = OKL_API.G_RET_STS_ERROR OR l_process_status = OKL_API.G_RET_STS_WARNING) THEN
3857: -- print the error message in the output file
3858: IF (fnd_msg_pub.count_msg > 0) THEN
3862: p_msg_index => l_counter,
3863: p_encoded => 'F',
3864: p_data => l_data,
3865: p_msg_index_out => l_msg_index_out);
3866: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
3867: END LOOP;
3868: END IF;
3869: END IF;
3870:
3868: END IF;
3869: END IF;
3870:
3871: IF (l_process_status <> OKL_API.G_RET_STS_ERROR) THEN
3872: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Upfront Tax was calculated successfully....');
3873: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
3874: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_REQ_SUCCESS'));
3875: END IF;
3876:
3869: END IF;
3870:
3871: IF (l_process_status <> OKL_API.G_RET_STS_ERROR) THEN
3872: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Upfront Tax was calculated successfully....');
3873: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
3874: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_REQ_SUCCESS'));
3875: END IF;
3876:
3877: IF (l_process_status = OKL_API.G_RET_STS_ERROR) THEN
3870:
3871: IF (l_process_status <> OKL_API.G_RET_STS_ERROR) THEN
3872: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Upfront Tax was calculated successfully....');
3873: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ');
3874: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_REQ_SUCCESS'));
3875: END IF;
3876:
3877: IF (l_process_status = OKL_API.G_RET_STS_ERROR) THEN
3878: p_retcode := 2;
3877: IF (l_process_status = OKL_API.G_RET_STS_ERROR) THEN
3878: p_retcode := 2;
3879: END IF;
3880:
3881: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CALC_UPFRNTTX_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
3882: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
3883:
3884: OKL_API.END_ACTIVITY(l_msg_count, l_msg_data);
3885: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End Activity Successful');
3878: p_retcode := 2;
3879: END IF;
3880:
3881: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CALC_UPFRNTTX_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
3882: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
3883:
3884: OKL_API.END_ACTIVITY(l_msg_count, l_msg_data);
3885: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End Activity Successful');
3886:
3881: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CALC_UPFRNTTX_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
3882: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
3883:
3884: OKL_API.END_ACTIVITY(l_msg_count, l_msg_data);
3885: FND_FILE.PUT_LINE(FND_FILE.LOG, 'End Activity Successful');
3886:
3887: EXCEPTION
3888: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3889: p_retcode := 2;
3895: x_msg_count => l_msg_count,
3896: x_msg_data => l_msg_data,
3897: p_api_type => g_api_type);
3898:
3899: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
3900: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
3901: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
3902:
3903: -- print the error message in the output file
3896: x_msg_data => l_msg_data,
3897: p_api_type => g_api_type);
3898:
3899: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
3900: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
3901: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
3902:
3903: -- print the error message in the output file
3904: IF (fnd_msg_pub.count_msg > 0) THEN
3897: p_api_type => g_api_type);
3898:
3899: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
3900: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
3901: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
3902:
3903: -- print the error message in the output file
3904: IF (fnd_msg_pub.count_msg > 0) THEN
3905: FOR l_counter IN 1 .. fnd_msg_pub.count_msg
3908: p_msg_index => l_counter,
3909: p_encoded => 'F',
3910: p_data => l_data,
3911: p_msg_index_out => l_msg_index_out);
3912: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
3913: END LOOP;
3914: END IF;
3915:
3916: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
3912: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
3913: END LOOP;
3914: END IF;
3915:
3916: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
3917: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CALC_UPFRNTTX_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
3918: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
3919:
3920: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3913: END LOOP;
3914: END IF;
3915:
3916: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
3917: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CALC_UPFRNTTX_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
3918: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
3919:
3920: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3921: p_retcode := 2;
3914: END IF;
3915:
3916: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
3917: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CALC_UPFRNTTX_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
3918: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
3919:
3920: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3921: p_retcode := 2;
3922:
3927: x_msg_count => l_msg_count,
3928: x_msg_data => l_msg_data,
3929: p_api_type => g_api_type);
3930:
3931: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
3932: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
3933: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
3934:
3935: -- print the error message in the output file
3928: x_msg_data => l_msg_data,
3929: p_api_type => g_api_type);
3930:
3931: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
3932: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
3933: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
3934:
3935: -- print the error message in the output file
3936: IF (fnd_msg_pub.count_msg > 0) THEN
3929: p_api_type => g_api_type);
3930:
3931: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
3932: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
3933: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
3934:
3935: -- print the error message in the output file
3936: IF (fnd_msg_pub.count_msg > 0) THEN
3937: FOR l_counter IN 1 .. fnd_msg_pub.count_msg
3940: p_msg_index => l_counter,
3941: p_encoded => 'F',
3942: p_data => l_data,
3943: p_msg_index_out => l_msg_index_out);
3944: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
3945: END LOOP;
3946: END IF;
3947:
3948: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
3944: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
3945: END LOOP;
3946: END IF;
3947:
3948: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
3949: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CALC_UPFRNTTX_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
3950: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
3951:
3952: WHEN OTHERS THEN
3945: END LOOP;
3946: END IF;
3947:
3948: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
3949: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CALC_UPFRNTTX_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
3950: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
3951:
3952: WHEN OTHERS THEN
3953: p_retcode := 2;
3946: END IF;
3947:
3948: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
3949: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CALC_UPFRNTTX_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
3950: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
3951:
3952: WHEN OTHERS THEN
3953: p_retcode := 2;
3954: p_errbuf := SQLERRM;
3960: x_msg_count => l_msg_count,
3961: x_msg_data => l_msg_data,
3962: p_api_type => g_api_type);
3963:
3964: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
3965: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
3966: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
3967:
3968: -- print the error message in the output file
3961: x_msg_data => l_msg_data,
3962: p_api_type => g_api_type);
3963:
3964: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
3965: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
3966: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
3967:
3968: -- print the error message in the output file
3969: IF (fnd_msg_pub.count_msg > 0) THEN
3962: p_api_type => g_api_type);
3963:
3964: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
3965: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_LLA_BOOK_STATUS'));
3966: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------');
3967:
3968: -- print the error message in the output file
3969: IF (fnd_msg_pub.count_msg > 0) THEN
3970: FOR l_counter IN 1 .. fnd_msg_pub.count_msg
3973: p_msg_index => l_counter,
3974: p_encoded => 'F',
3975: p_data => l_data,
3976: p_msg_index_out => l_msg_index_out);
3977: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
3978: END LOOP;
3979: END IF;
3980: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
3981: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CALC_UPFRNTTX_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
3976: p_msg_index_out => l_msg_index_out);
3977: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
3978: END LOOP;
3979: END IF;
3980: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
3981: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CALC_UPFRNTTX_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
3982: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
3983: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
3984:
3977: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_data);
3978: END LOOP;
3979: END IF;
3980: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
3981: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CALC_UPFRNTTX_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
3982: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
3983: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
3984:
3985: END calculate_upfront_tax;
3978: END LOOP;
3979: END IF;
3980: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
3981: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CALC_UPFRNTTX_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
3982: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
3983: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
3984:
3985: END calculate_upfront_tax;
3986:
3979: END IF;
3980: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
3981: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,fnd_message.get_string('OKL','OKL_CALC_UPFRNTTX_END')||' '||TO_CHAR(sysdate,'DD-MON-YYYY HH:MM:SS'));
3982: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'+--------------------------------------------------------+');
3983: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
3984:
3985: END calculate_upfront_tax;
3986:
3987: --Bug# 8798934