DBA Data[Home] [Help]

APPS.FND_OAM_DSCRAM_UTILS_PKG dependencies on FND_API

Line 63: IF p_ret_sts = FND_API.G_RET_STS_SUCCESS OR p_ret_sts = G_RET_STS_PROCESSED THEN

59: RETURN VARCHAR2
60: IS
61: l_status VARCHAR2(30) := G_STATUS_ERROR_UNKNOWN;
62: BEGIN
63: IF p_ret_sts = FND_API.G_RET_STS_SUCCESS OR p_ret_sts = G_RET_STS_PROCESSED THEN
64: l_status := G_STATUS_PROCESSED;
65: ELSIF p_ret_sts = G_RET_STS_STOPPED THEN
66: l_status := G_STATUS_STOPPED;
67: ELSIF p_ret_sts = G_RET_STS_ERROR_FATAL THEN

Line 135: RETURN (p_ret_sts IN (FND_API.G_RET_STS_ERROR,

131: BEGIN
132: IF p_ret_sts IS NULL THEN
133: RETURN FALSE;
134: END IF;
135: RETURN (p_ret_sts IN (FND_API.G_RET_STS_ERROR,
136: FND_API.G_RET_STS_UNEXP_ERROR,
137: G_RET_STS_ERROR_FATAL,
138: G_RET_STS_ERROR_UNKNOWN));
139: END;

Line 136: FND_API.G_RET_STS_UNEXP_ERROR,

132: IF p_ret_sts IS NULL THEN
133: RETURN FALSE;
134: END IF;
135: RETURN (p_ret_sts IN (FND_API.G_RET_STS_ERROR,
136: FND_API.G_RET_STS_UNEXP_ERROR,
137: G_RET_STS_ERROR_FATAL,
138: G_RET_STS_ERROR_UNKNOWN));
139: END;
140:

Line 178: x_final_ret_sts := FND_API.G_RET_STS_SUCCESS;

174: x_final_status := G_STATUS_FINISHING;
175: END IF;
176: --unless our proposed return status is full, make sure the final return status is success
177: IF p_proposed_ret_sts <> G_RET_STS_FULL THEN
178: x_final_ret_sts := FND_API.G_RET_STS_SUCCESS;
179: END IF;
180: ELSIF p_proposed_status = G_STATUS_STOPPED THEN
181: x_final_ret_sts := G_RET_STS_STOPPED;
182: IF p_workers_assigned > 1 THEN

Line 193: x_final_ret_sts := FND_API.G_RET_STS_SUCCESS;

189: --if we're processed and moving to processed, that's a success
190: IF p_proposed_status = G_STATUS_PROCESSED THEN
191: --unless our proposed return status is full, make sure the final return status is success
192: IF p_proposed_ret_sts <> G_RET_STS_FULL THEN
193: x_final_ret_sts := FND_API.G_RET_STS_SUCCESS;
194: END IF;
195: END IF;
196: ELSIF p_current_status = G_STATUS_STOPPING THEN
197: --only update it to stopped if we're the last worker completing.

Line 246: RETURN (p_flag = FND_API.G_TRUE);

242: BEGIN
243: IF p_flag IS NULL THEN
244: RETURN FALSE;
245: END IF;
246: RETURN (p_flag = FND_API.G_TRUE);
247: END;
248:
249: -- Public
250: FUNCTION BOOLEAN_TO_FLAG(p_bool IN BOOLEAN)

Line 255: RETURN FND_API.G_TRUE;

251: RETURN VARCHAR2
252: IS
253: BEGIN
254: IF p_bool THEN
255: RETURN FND_API.G_TRUE;
256: END IF;
257: RETURN FND_API.G_FALSE;
258: END;
259:

Line 257: RETURN FND_API.G_FALSE;

253: BEGIN
254: IF p_bool THEN
255: RETURN FND_API.G_TRUE;
256: END IF;
257: RETURN FND_API.G_FALSE;
258: END;
259:
260: --Public
261: PROCEDURE PROPOGATE_FATALITY_LEVEL(p_fatality_level IN VARCHAR2)

Line 990: x_return_status := FND_API.G_RET_STS_ERROR;

986: l_final_stmt VARCHAR2(4000);
987: l_stmt_length NUMBER;
988: l_stmt_maxlen NUMBER := 4000;
989: BEGIN
990: x_return_status := FND_API.G_RET_STS_ERROR;
991: x_return_msg := '';
992:
993: --for now, all bind variables are bound in the cursor and not replaced in the DML statement. If in
994: --the future we tag some bind variables as being "bound" at design time and not run time, we'll do

Line 1036: x_return_status := FND_API.G_RET_STS_SUCCESS;

1032: END IF;
1033: END IF;
1034:
1035: --return success
1036: x_return_status := FND_API.G_RET_STS_SUCCESS;
1037: x_final_stmt := l_final_stmt;
1038: EXCEPTION
1039: WHEN OTHERS THEN
1040: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 1040: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1036: x_return_status := FND_API.G_RET_STS_SUCCESS;
1037: x_final_stmt := l_final_stmt;
1038: EXCEPTION
1039: WHEN OTHERS THEN
1040: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1041: x_return_msg := 'Unhandled Exception: (Code('||SQLCODE||'), Message("'||SQLERRM||'"))';
1042: fnd_oam_debug.log(6, l_ctxt, x_return_msg);
1043: x_final_stmt := NULL;
1044: END;

Line 1176: IF p_recurse_parents IS NOT NULL AND p_recurse_parents = FND_API.G_TRUE THEN

1172: RETURN;
1173: END IF;
1174:
1175: --handle the parents
1176: IF p_recurse_parents IS NOT NULL AND p_recurse_parents = FND_API.G_TRUE THEN
1177: FOR k in p_plsql_ids.FIRST..p_plsql_ids.LAST LOOP
1178: SELECT unit_id
1179: INTO l_parent_id
1180: FROM fnd_oam_dscram_plsqls

Line 1193: FND_API.G_TRUE,

1189:
1190: --delegate the list to the parent prepare_for_retry procedure
1191: IF l_parents_map.COUNT > 0 THEN
1192: PREPARE_UNITS_FOR_RETRY(GET_MAP_KEYS(l_parents_map),
1193: FND_API.G_TRUE,
1194: FND_API.G_FALSE);
1195: ELSE
1196: fnd_oam_debug.log(1, l_ctxt, 'No parent units found.');
1197: END IF;

Line 1194: FND_API.G_FALSE);

1190: --delegate the list to the parent prepare_for_retry procedure
1191: IF l_parents_map.COUNT > 0 THEN
1192: PREPARE_UNITS_FOR_RETRY(GET_MAP_KEYS(l_parents_map),
1193: FND_API.G_TRUE,
1194: FND_API.G_FALSE);
1195: ELSE
1196: fnd_oam_debug.log(1, l_ctxt, 'No parent units found.');
1197: END IF;
1198: END IF;

Line 1206: AND finished_ret_sts <> FND_API.G_RET_STS_SUCCESS;

1202: FORALL k in p_plsql_ids.FIRST..p_plsql_ids.LAST
1203: UPDATE fnd_oam_dscram_plsqls
1204: SET finished_ret_sts = NULL
1205: WHERE plsql_id = p_plsql_ids(k)
1206: AND finished_ret_sts <> FND_API.G_RET_STS_SUCCESS;
1207: fnd_oam_debug.log(1, l_ctxt, 'Done.');
1208:
1209: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
1210: EXCEPTION

Line 1240: IF p_recurse_parents IS NOT NULL AND p_recurse_parents = FND_API.G_TRUE THEN

1236: RETURN;
1237: END IF;
1238:
1239: --handle the parents
1240: IF p_recurse_parents IS NOT NULL AND p_recurse_parents = FND_API.G_TRUE THEN
1241: FOR k in p_dml_ids.FIRST..p_dml_ids.LAST LOOP
1242: SELECT unit_id
1243: INTO l_parent_id
1244: FROM fnd_oam_dscram_dmls

Line 1257: FND_API.G_TRUE,

1253:
1254: --delegate the list to the parent prepare_for_retry procedure
1255: IF l_parents_map.COUNT > 0 THEN
1256: PREPARE_UNITS_FOR_RETRY(GET_MAP_KEYS(l_parents_map),
1257: FND_API.G_TRUE,
1258: FND_API.G_FALSE);
1259: ELSE
1260: fnd_oam_debug.log(1, l_ctxt, 'No parent units found.');
1261: END IF;

Line 1258: FND_API.G_FALSE);

1254: --delegate the list to the parent prepare_for_retry procedure
1255: IF l_parents_map.COUNT > 0 THEN
1256: PREPARE_UNITS_FOR_RETRY(GET_MAP_KEYS(l_parents_map),
1257: FND_API.G_TRUE,
1258: FND_API.G_FALSE);
1259: ELSE
1260: fnd_oam_debug.log(1, l_ctxt, 'No parent units found.');
1261: END IF;
1262: END IF;

Line 1270: AND finished_ret_sts <> FND_API.G_RET_STS_SUCCESS;

1266: FORALL k in p_dml_ids.FIRST..p_dml_ids.LAST
1267: UPDATE fnd_oam_dscram_dmls
1268: SET finished_ret_sts = NULL
1269: WHERE dml_id = p_dml_ids(k)
1270: AND finished_ret_sts <> FND_API.G_RET_STS_SUCCESS;
1271: fnd_oam_debug.log(1, l_ctxt, 'Done.');
1272:
1273: fnd_oam_debug.log(2, l_ctxt, 'EXIT');
1274: EXCEPTION

Line 1306: IF p_recurse_children IS NOT NULL AND p_recurse_children = FND_API.G_TRUE THEN

1302: RETURN;
1303: END IF;
1304:
1305: --handle the children
1306: IF p_recurse_children IS NOT NULL AND p_recurse_children = FND_API.G_TRUE THEN
1307: FOR k in p_unit_ids.FIRST..p_unit_ids.LAST LOOP
1308: --query out any child units
1309: fnd_oam_debug.log(1, l_ctxt, 'Processing child units of unit_id: '||p_unit_ids(k));
1310: SELECT unit_id

Line 1316: FND_API.G_FALSE,

1312: FROM fnd_oam_dscram_units
1313: WHERE concurrent_group_unit_id = p_unit_ids(k);
1314:
1315: PREPARE_UNITS_FOR_RETRY(l_ids,
1316: FND_API.G_FALSE,
1317: FND_API.G_TRUE);
1318:
1319: fnd_oam_debug.log(1, l_ctxt, 'Processing dmls of unit_id: '||p_unit_ids(k));
1320:

Line 1317: FND_API.G_TRUE);

1313: WHERE concurrent_group_unit_id = p_unit_ids(k);
1314:
1315: PREPARE_UNITS_FOR_RETRY(l_ids,
1316: FND_API.G_FALSE,
1317: FND_API.G_TRUE);
1318:
1319: fnd_oam_debug.log(1, l_ctxt, 'Processing dmls of unit_id: '||p_unit_ids(k));
1320:
1321: --get the dmls for the k'th unit

Line 1327: AND finished_ret_sts <> FND_API.G_RET_STS_SUCCESS;

1323: SELECT dml_id
1324: BULK COLLECT INTO l_ids
1325: FROM fnd_oam_dscram_dmls
1326: WHERE unit_id = p_unit_ids(k)
1327: AND finished_ret_sts <> FND_API.G_RET_STS_SUCCESS;
1328:
1329: --delegate the list to the child prepare_for_retry procedure
1330: PREPARE_DMLS_FOR_RETRY(l_ids,
1331: FND_API.G_FALSE);

Line 1331: FND_API.G_FALSE);

1327: AND finished_ret_sts <> FND_API.G_RET_STS_SUCCESS;
1328:
1329: --delegate the list to the child prepare_for_retry procedure
1330: PREPARE_DMLS_FOR_RETRY(l_ids,
1331: FND_API.G_FALSE);
1332:
1333: fnd_oam_debug.log(1, l_ctxt, 'Processing plsqls of unit_id: '||p_unit_ids(k));
1334:
1335: --get the dmls for the k'th unit

Line 1341: AND finished_ret_sts <> FND_API.G_RET_STS_SUCCESS;

1337: SELECT plsql_id
1338: BULK COLLECT INTO l_ids
1339: FROM fnd_oam_dscram_plsqls
1340: WHERE unit_id = p_unit_ids(k)
1341: AND finished_ret_sts <> FND_API.G_RET_STS_SUCCESS;
1342:
1343: --delegate the list to the child prepare_for_retry procedure
1344: PREPARE_PLSQLS_FOR_RETRY(l_ids,
1345: FND_API.G_FALSE);

Line 1345: FND_API.G_FALSE);

1341: AND finished_ret_sts <> FND_API.G_RET_STS_SUCCESS;
1342:
1343: --delegate the list to the child prepare_for_retry procedure
1344: PREPARE_PLSQLS_FOR_RETRY(l_ids,
1345: FND_API.G_FALSE);
1346:
1347: END LOOP;
1348: END IF;
1349:

Line 1351: IF p_recurse_parents IS NOT NULL AND p_recurse_parents = FND_API.G_TRUE THEN

1347: END LOOP;
1348: END IF;
1349:
1350: --handle the parents
1351: IF p_recurse_parents IS NOT NULL AND p_recurse_parents = FND_API.G_TRUE THEN
1352: FOR k in p_unit_ids.FIRST..p_unit_ids.LAST LOOP
1353: SELECT task_id
1354: INTO l_parent_id
1355: FROM fnd_oam_dscram_units

Line 1368: FND_API.G_TRUE,

1364:
1365: --delegate the list to the parent prepare_for_retry procedure
1366: IF l_parents_map.COUNT > 0 THEN
1367: PREPARE_TASKS_FOR_RETRY(GET_MAP_KEYS(l_parents_map),
1368: FND_API.G_TRUE,
1369: FND_API.G_FALSE);
1370: ELSE
1371: --this happens for units when they're child units
1372: fnd_oam_debug.log(1, l_ctxt, 'No parent tasks found.');

Line 1369: FND_API.G_FALSE);

1365: --delegate the list to the parent prepare_for_retry procedure
1366: IF l_parents_map.COUNT > 0 THEN
1367: PREPARE_TASKS_FOR_RETRY(GET_MAP_KEYS(l_parents_map),
1368: FND_API.G_TRUE,
1369: FND_API.G_FALSE);
1370: ELSE
1371: --this happens for units when they're child units
1372: fnd_oam_debug.log(1, l_ctxt, 'No parent tasks found.');
1373: END IF;

Line 1419: IF p_recurse_children IS NOT NULL AND p_recurse_children = FND_API.G_TRUE THEN

1415: RETURN;
1416: END IF;
1417:
1418: --handle the children
1419: IF p_recurse_children IS NOT NULL AND p_recurse_children = FND_API.G_TRUE THEN
1420: FOR k in p_task_ids.FIRST..p_task_ids.LAST LOOP
1421: fnd_oam_debug.log(1, l_ctxt, 'Processing children of task_id: '||p_task_ids(k));
1422:
1423: --get the units for the k'th task

Line 1432: FND_API.G_FALSE,

1428: AND unit_status NOT IN (G_STATUS_PROCESSED, G_STATUS_SKIPPED, G_STATUS_NO_STATUS, G_STATUS_UNPROCESSED);
1429:
1430: --delegate the list to the child prepare_for_retry procedure
1431: PREPARE_UNITS_FOR_RETRY(l_ids,
1432: FND_API.G_FALSE,
1433: FND_API.G_TRUE);
1434: END LOOP;
1435: END IF;
1436:

Line 1433: FND_API.G_TRUE);

1429:
1430: --delegate the list to the child prepare_for_retry procedure
1431: PREPARE_UNITS_FOR_RETRY(l_ids,
1432: FND_API.G_FALSE,
1433: FND_API.G_TRUE);
1434: END LOOP;
1435: END IF;
1436:
1437: --handle the parents

Line 1438: IF p_recurse_parents IS NOT NULL AND p_recurse_parents = FND_API.G_TRUE THEN

1434: END LOOP;
1435: END IF;
1436:
1437: --handle the parents
1438: IF p_recurse_parents IS NOT NULL AND p_recurse_parents = FND_API.G_TRUE THEN
1439: FOR k in p_task_ids.FIRST..p_task_ids.LAST LOOP
1440: SELECT bundle_id
1441: INTO l_parent_id
1442: FROM fnd_oam_dscram_tasks

Line 1455: FND_API.G_TRUE,

1451:
1452: --delegate the list to the parent prepare_for_retry procedure
1453: IF l_parents_map.COUNT > 0 THEN
1454: PREPARE_BUNDLES_FOR_RETRY(GET_MAP_KEYS(l_parents_map),
1455: FND_API.G_TRUE,
1456: FND_API.G_FALSE);
1457: ELSE
1458: fnd_oam_debug.log(1, l_ctxt, 'No parent bundles found.');
1459: END IF;

Line 1456: FND_API.G_FALSE);

1452: --delegate the list to the parent prepare_for_retry procedure
1453: IF l_parents_map.COUNT > 0 THEN
1454: PREPARE_BUNDLES_FOR_RETRY(GET_MAP_KEYS(l_parents_map),
1455: FND_API.G_TRUE,
1456: FND_API.G_FALSE);
1457: ELSE
1458: fnd_oam_debug.log(1, l_ctxt, 'No parent bundles found.');
1459: END IF;
1460: END IF;

Line 1505: IF p_recurse_children IS NOT NULL AND p_recurse_children = FND_API.G_TRUE THEN

1501: RETURN;
1502: END IF;
1503:
1504: --handle the children
1505: IF p_recurse_children IS NOT NULL AND p_recurse_children = FND_API.G_TRUE THEN
1506: FOR k in p_bundle_ids.FIRST..p_bundle_ids.LAST LOOP
1507: fnd_oam_debug.log(1, l_ctxt, 'Processing children of bundle_id: '||p_bundle_ids(k));
1508:
1509: --get the tasks for the k'th bundle

Line 1518: FND_API.G_FALSE,

1514: AND task_status NOT IN (G_STATUS_PROCESSED, G_STATUS_SKIPPED, G_STATUS_UNPROCESSED);
1515:
1516: --delegate the list to the child prepare_for_retry procedure
1517: PREPARE_TASKS_FOR_RETRY(l_ids,
1518: FND_API.G_FALSE,
1519: FND_API.G_TRUE);
1520: END LOOP;
1521: END IF;
1522:

Line 1519: FND_API.G_TRUE);

1515:
1516: --delegate the list to the child prepare_for_retry procedure
1517: PREPARE_TASKS_FOR_RETRY(l_ids,
1518: FND_API.G_FALSE,
1519: FND_API.G_TRUE);
1520: END LOOP;
1521: END IF;
1522:
1523: --handle the parents

Line 1524: IF p_recurse_parents IS NOT NULL AND p_recurse_parents = FND_API.G_TRUE THEN

1520: END LOOP;
1521: END IF;
1522:
1523: --handle the parents
1524: IF p_recurse_parents IS NOT NULL AND p_recurse_parents = FND_API.G_TRUE THEN
1525: FOR k in p_bundle_ids.FIRST..p_bundle_ids.LAST LOOP
1526: SELECT run_id
1527: INTO l_parent_id
1528: FROM fnd_oam_dscram_bundles

Line 1541: FND_API.G_FALSE);

1537:
1538: --delegate the list to the parent prepare_for_retry procedure
1539: IF l_parents_map.COUNT > 0 THEN
1540: PREPARE_RUNS_FOR_RETRY(GET_MAP_KEYS(l_parents_map),
1541: FND_API.G_FALSE);
1542: ELSE
1543: fnd_oam_debug.log(1, l_ctxt, 'No parent runs found.');
1544: END IF;
1545: END IF;

Line 1586: IF p_recurse_children IS NOT NULL AND p_recurse_children = FND_API.G_TRUE THEN

1582: RETURN;
1583: END IF;
1584:
1585: --handle the children
1586: IF p_recurse_children IS NOT NULL AND p_recurse_children = FND_API.G_TRUE THEN
1587: FOR k in p_run_ids.FIRST..p_run_ids.LAST LOOP
1588: --get the bundles for the k'th task
1589: SELECT bundle_id
1590: BULK COLLECT INTO l_ids

Line 1597: FND_API.G_FALSE,

1593: AND bundle_status NOT IN (G_STATUS_PROCESSED, G_STATUS_SKIPPED, G_STATUS_UNPROCESSED);
1594:
1595: --delegate the list to the child prepare_for_retry procedure
1596: PREPARE_BUNDLES_FOR_RETRY(l_ids,
1597: FND_API.G_FALSE,
1598: FND_API.G_TRUE);
1599: END LOOP;
1600: END IF;
1601:

Line 1598: FND_API.G_TRUE);

1594:
1595: --delegate the list to the child prepare_for_retry procedure
1596: PREPARE_BUNDLES_FOR_RETRY(l_ids,
1597: FND_API.G_FALSE,
1598: FND_API.G_TRUE);
1599: END LOOP;
1600: END IF;
1601:
1602: --and finally update the local entities

Line 1651: IF p_recurse_children IS NOT NULL AND p_recurse_children = FND_API.G_TRUE THEN

1647: IF l_status NOT IN (G_STATUS_STOPPED, G_STATUS_ERROR_UNKNOWN, G_STATUS_ERROR_FATAL) THEN
1648: RAISE_APPLICATION_ERROR(-20000, 'Run is in an invalid status('||l_status||') and cannot be retried.');
1649: END IF;
1650:
1651: IF p_recurse_children IS NOT NULL AND p_recurse_children = FND_API.G_TRUE THEN
1652: --grab the list of bundles
1653: SELECT bundle_id
1654: BULK COLLECT INTO l_ids
1655: FROM fnd_oam_dscram_bundles

Line 1660: FND_API.G_FALSE,

1656: WHERE RUN_ID = p_run_id;
1657:
1658: --delegate to the bundles_retry
1659: PREPARE_BUNDLES_FOR_RETRY(l_ids,
1660: FND_API.G_FALSE,
1661: FND_API.G_TRUE);
1662: END IF;
1663:
1664: --update the run

Line 1661: FND_API.G_TRUE);

1657:
1658: --delegate to the bundles_retry
1659: PREPARE_BUNDLES_FOR_RETRY(l_ids,
1660: FND_API.G_FALSE,
1661: FND_API.G_TRUE);
1662: END IF;
1663:
1664: --update the run
1665: UPDATE fnd_oam_dscram_runs_b