1238:
1239: END IF;
1240:
1241:
1242: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1243: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'start centrol logging debug session for okeintgb.pls');
1244: EnD IF;
1245:
1246: -- populate preparer_id, requestor_id based on wf requestor
1239: END IF;
1240:
1241:
1242: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1243: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'start centrol logging debug session for okeintgb.pls');
1244: EnD IF;
1245:
1246: -- populate preparer_id, requestor_id based on wf requestor
1247: l_requestor := p_requestor;
1251: l_found := c%found;
1252: close c;
1253:
1254: if l_found then
1255: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1256: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'preparer populated');
1257: END IF;
1258: --
1259: -- verify if the project and task supplied for projects
1252: close c;
1253:
1254: if l_found then
1255: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1256: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'preparer populated');
1257: END IF;
1258: --
1259: -- verify if the project and task supplied for projects
1260: --
1268: , l_currency_code, l_ship_from_location_id, l_req_line_type_id
1269: , l_category_id, l_quantity, l_description, l_uom_code;
1270:
1271: close c1;
1272: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1273: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'line type is : ' || l_req_line_type_id);
1274: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'category is :' || l_category_id);
1275: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'description is : ' || l_description);
1276:
1269: , l_category_id, l_quantity, l_description, l_uom_code;
1270:
1271: close c1;
1272: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1273: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'line type is : ' || l_req_line_type_id);
1274: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'category is :' || l_category_id);
1275: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'description is : ' || l_description);
1276:
1277: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'before validate project');
1270:
1271: close c1;
1272: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1273: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'line type is : ' || l_req_line_type_id);
1274: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'category is :' || l_category_id);
1275: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'description is : ' || l_description);
1276:
1277: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'before validate project');
1278: END IF;
1271: close c1;
1272: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1273: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'line type is : ' || l_req_line_type_id);
1274: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'category is :' || l_category_id);
1275: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'description is : ' || l_description);
1276:
1277: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'before validate project');
1278: END IF;
1279:
1273: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'line type is : ' || l_req_line_type_id);
1274: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'category is :' || l_category_id);
1275: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'description is : ' || l_description);
1276:
1277: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'before validate project');
1278: END IF;
1279:
1280: if ( l_project_id is not null ) then
1281:
1304: l_exp_item_date := NULL;
1305:
1306: else /* destination type is EXPENSE */
1307:
1308: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1309: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'called validate expense type');
1310: END IF;
1311: l_error_code := NULL;
1312: open pe;
1305:
1306: else /* destination type is EXPENSE */
1307:
1308: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1309: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'called validate expense type');
1310: END IF;
1311: l_error_code := NULL;
1312: open pe;
1313: loop
1359: L_Vendor_Site_ID := L_Ship_From_Location_ID;
1360:
1361: END IF;
1362:
1363: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1364: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'call before amount based');
1365: END IF;
1366: -- Amount based requisition logics
1367:
1360:
1361: END IF;
1362:
1363: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1364: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'call before amount based');
1365: END IF;
1366: -- Amount based requisition logics
1367:
1368: if l_dest_type = 'EXPENSE' then
1367:
1368: if l_dest_type = 'EXPENSE' then
1369:
1370: if l_item_id is null and l_req_line_type_id > 0 then
1371: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1372: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'called amount based');
1373: END IF;
1374:
1375: l_quantity := l_unit_price * l_quantity;
1368: if l_dest_type = 'EXPENSE' then
1369:
1370: if l_item_id is null and l_req_line_type_id > 0 then
1371: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1372: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'called amount based');
1373: END IF;
1374:
1375: l_quantity := l_unit_price * l_quantity;
1376: l_unit_price := 1;
1513:
1514:
1515:
1516: if l_return_status = oke_api.g_ret_sts_success then
1517: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1518: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'Req created successfully, update deliverable table');
1519: END IF;
1520:
1521: -- update deliverable table
1514:
1515:
1516: if l_return_status = oke_api.g_ret_sts_success then
1517: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1518: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'Req created successfully, update deliverable table');
1519: END IF;
1520:
1521: -- update deliverable table
1522: update oke_k_deliverables_b
1532: IF ( l_plan IS NOT NULL
1533: AND nvl(l_sched_date , l_need_by_date) IS NOT NULL
1534: AND l_item_id IS NOT NULL
1535: AND l_inv_org_id IS NOT NULL ) THEN
1536: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1537: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'Update MDS');
1538: END IF;
1539:
1540: create_mds_entry(
1533: AND nvl(l_sched_date , l_need_by_date) IS NOT NULL
1534: AND l_item_id IS NOT NULL
1535: AND l_inv_org_id IS NOT NULL ) THEN
1536: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1537: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'Update MDS');
1538: END IF;
1539:
1540: create_mds_entry(
1541: P_DELIVERABLE_ID => P_DELIVERABLE_ID,
1553: END IF;
1554:
1555: END IF;
1556:
1557: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1558: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'Create Req process completed normally');
1559: END IF;
1560:
1561: x_batch_id := l_id;
1554:
1555: END IF;
1556:
1557: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1558: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'Create Req process completed normally');
1559: END IF;
1560:
1561: x_batch_id := l_id;
1562: x_return_status := l_return_status;