DBA Data[Home] [Help]

APPS.AHL_MC_RULE_STMT_PVT dependencies on FND_LOG

Line 1381: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)THEN

1377: l_obj_typ_meaning FND_LOOKUPS.MEANING%TYPE;
1378: --
1379: BEGIN
1380:
1381: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)THEN
1382: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,L_DEBUG_KEY||'.begin','At the start of PLSQL procedure');
1383: END IF;
1384:
1385: l_oper_meaning := get_rule_oper(p_rule_stmt_rec.operator, p_rule_stmt_rec.negation_flag);

Line 1382: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,L_DEBUG_KEY||'.begin','At the start of PLSQL procedure');

1378: --
1379: BEGIN
1380:
1381: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)THEN
1382: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,L_DEBUG_KEY||'.begin','At the start of PLSQL procedure');
1383: END IF;
1384:
1385: l_oper_meaning := get_rule_oper(p_rule_stmt_rec.operator, p_rule_stmt_rec.negation_flag);
1386: l_obj_typ_meaning := get_fnd_lkup_meaning('AHL_MC_RULE_OBJECT_TYPES', p_rule_stmt_rec.object_type);

Line 1413: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1409: FND_MESSAGE.Set_Token('OBJ_TYPE',l_obj_typ_meaning);
1410: FND_MESSAGE.Set_Token('MC_NAME',l_rels_rec.name);
1411: FND_MESSAGE.Set_Token('MC_REV',l_rels_rec.revision);
1412: FND_MSG_PUB.ADD;
1413: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1414: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_child_rel_id: ' || l_child_rel_id || 'has children');
1415: END IF;
1416: END IF;--IF(is_rel_nonleaf_node%FOUND) THEN
1417: CLOSE is_rel_nonleaf_node;

Line 1414: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_child_rel_id: ' || l_child_rel_id || 'has children');

1410: FND_MESSAGE.Set_Token('MC_NAME',l_rels_rec.name);
1411: FND_MESSAGE.Set_Token('MC_REV',l_rels_rec.revision);
1412: FND_MSG_PUB.ADD;
1413: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1414: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_child_rel_id: ' || l_child_rel_id || 'has children');
1415: END IF;
1416: END IF;--IF(is_rel_nonleaf_node%FOUND) THEN
1417: CLOSE is_rel_nonleaf_node;
1418:

Line 1430: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1426: FND_MESSAGE.Set_Token('OBJ_TYPE',l_obj_typ_meaning);
1427: FND_MESSAGE.Set_Token('MC_NAME',l_rels_rec.name);
1428: FND_MESSAGE.Set_Token('MC_REV',l_rels_rec.revision);
1429: FND_MSG_PUB.ADD;
1430: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1431: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_child_rel_id: ' || l_child_rel_id || 'is a sub-configuration');
1432: END IF;
1433: END IF;--IF(is_rel_subconfig_csr%FOUND) THEN
1434: CLOSE is_rel_subconfig_csr;

Line 1431: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_child_rel_id: ' || l_child_rel_id || 'is a sub-configuration');

1427: FND_MESSAGE.Set_Token('MC_NAME',l_rels_rec.name);
1428: FND_MESSAGE.Set_Token('MC_REV',l_rels_rec.revision);
1429: FND_MSG_PUB.ADD;
1430: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1431: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'l_child_rel_id: ' || l_child_rel_id || 'is a sub-configuration');
1432: END IF;
1433: END IF;--IF(is_rel_subconfig_csr%FOUND) THEN
1434: CLOSE is_rel_subconfig_csr;
1435:

Line 1447: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1443: FND_MESSAGE.Set_Token('OBJ_TYPE',l_obj_typ_meaning);
1444: FND_MESSAGE.Set_Token('MC_NAME',l_rels_rec.name);
1445: FND_MESSAGE.Set_Token('MC_REV',l_rels_rec.revision);
1446: FND_MSG_PUB.ADD;
1447: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1448: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,
1449: 'l_rels_rec.relationship_id: ' || l_rels_rec.relationship_id || 'does not have children');
1450: END IF;
1451: END IF;

Line 1448: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,

1444: FND_MESSAGE.Set_Token('MC_NAME',l_rels_rec.name);
1445: FND_MESSAGE.Set_Token('MC_REV',l_rels_rec.revision);
1446: FND_MSG_PUB.ADD;
1447: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1448: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,
1449: 'l_rels_rec.relationship_id: ' || l_rels_rec.relationship_id || 'does not have children');
1450: END IF;
1451: END IF;
1452: END LOOP;--Loop for get_relationships_csr(p_rule_stmt_rec.subject_id);

Line 1461: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1457: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_QRUL_OBJ_NNLL');
1458: FND_MESSAGE.Set_Token('OPERATOR',l_oper_meaning);
1459: FND_MESSAGE.Set_Token('OBJ_TYPE',l_obj_typ_meaning);
1460: FND_MSG_PUB.ADD;
1461: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1462: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,
1463: 'p_rule_stmt_rec.object_id: ' || p_rule_stmt_rec.object_id || 'is not null');
1464: END IF;
1465: END IF;

Line 1462: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,

1458: FND_MESSAGE.Set_Token('OPERATOR',l_oper_meaning);
1459: FND_MESSAGE.Set_Token('OBJ_TYPE',l_obj_typ_meaning);
1460: FND_MSG_PUB.ADD;
1461: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1462: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,
1463: 'p_rule_stmt_rec.object_id: ' || p_rule_stmt_rec.object_id || 'is not null');
1464: END IF;
1465: END IF;
1466:

Line 1487: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1483: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_QRUL_QUANT_NPOSI');
1484: FND_MESSAGE.Set_Token('OPERATOR',l_oper_meaning);
1485: FND_MESSAGE.Set_Token('OBJ_TYPE',l_obj_typ_meaning);
1486: FND_MSG_PUB.ADD;
1487: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1488: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,
1489: 'p_rule_stmt_rec.object_attribute1: ' ||p_rule_stmt_rec.object_attribute1 || 'is not a number');
1490: END IF;
1491: END;

Line 1488: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,

1484: FND_MESSAGE.Set_Token('OPERATOR',l_oper_meaning);
1485: FND_MESSAGE.Set_Token('OBJ_TYPE',l_obj_typ_meaning);
1486: FND_MSG_PUB.ADD;
1487: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1488: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,
1489: 'p_rule_stmt_rec.object_attribute1: ' ||p_rule_stmt_rec.object_attribute1 || 'is not a number');
1490: END IF;
1491: END;
1492: END IF;

Line 1494: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)THEN

1490: END IF;
1491: END;
1492: END IF;
1493:
1494: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)THEN
1495: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,L_DEBUG_KEY||'.end','At the end of PLSQL procedure');
1496: END IF;
1497:
1498: End validate_pos_quantity_rule;

Line 1495: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,L_DEBUG_KEY||'.end','At the end of PLSQL procedure');

1491: END;
1492: END IF;
1493:
1494: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)THEN
1495: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,L_DEBUG_KEY||'.end','At the end of PLSQL procedure');
1496: END IF;
1497:
1498: End validate_pos_quantity_rule;
1499:

Line 1566: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)THEN

1562: IF FND_API.To_Boolean(p_init_msg_list) THEN
1563: FND_MSG_PUB.Initialize;
1564: END IF;
1565:
1566: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)THEN
1567: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,L_DEBUG_KEY||'.begin','At the start of PLSQL procedure');
1568: END IF;
1569:
1570: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

Line 1567: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,L_DEBUG_KEY||'.begin','At the start of PLSQL procedure');

1563: FND_MSG_PUB.Initialize;
1564: END IF;
1565:
1566: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)THEN
1567: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,L_DEBUG_KEY||'.begin','At the start of PLSQL procedure');
1568: END IF;
1569:
1570: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1571: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_mc_header_id: ' || p_mc_header_id );

Line 1570: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1566: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)THEN
1567: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,L_DEBUG_KEY||'.begin','At the start of PLSQL procedure');
1568: END IF;
1569:
1570: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1571: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_mc_header_id: ' || p_mc_header_id );
1572: END IF;
1573:
1574: IF(p_mc_header_id is NULL) THEN

Line 1571: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_mc_header_id: ' || p_mc_header_id );

1567: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,L_DEBUG_KEY||'.begin','At the start of PLSQL procedure');
1568: END IF;
1569:
1570: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1571: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_mc_header_id: ' || p_mc_header_id );
1572: END IF;
1573:
1574: IF(p_mc_header_id is NULL) THEN
1575: FND_MESSAGE.Set_Name('AHL','AHL_COM_REQD_PARAM_MISSING');

Line 1586: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1582: LOOP
1583: FETCH get_quantity_rule_stmt_csr INTO l_quant_stmt_rec;
1584: EXIT WHEN get_quantity_rule_stmt_csr%NOTFOUND;
1585:
1586: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1587: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,
1588: ' l_quant_stmt_rec.rule_statement_id: ' || l_quant_stmt_rec.rule_statement_id ||
1589: ', l_quant_stmt_rec.subject_id: ' || l_quant_stmt_rec.subject_id ||
1590: ', l_quant_stmt_rec.object_id: ' || l_quant_stmt_rec.object_id ||

Line 1587: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,

1583: FETCH get_quantity_rule_stmt_csr INTO l_quant_stmt_rec;
1584: EXIT WHEN get_quantity_rule_stmt_csr%NOTFOUND;
1585:
1586: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1587: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY,
1588: ' l_quant_stmt_rec.rule_statement_id: ' || l_quant_stmt_rec.rule_statement_id ||
1589: ', l_quant_stmt_rec.subject_id: ' || l_quant_stmt_rec.subject_id ||
1590: ', l_quant_stmt_rec.object_id: ' || l_quant_stmt_rec.object_id ||
1591: ', l_quant_stmt_rec.operator: ' || l_quant_stmt_rec.operator ||

Line 1606: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1602: l_rstmt_rec.operator := l_quant_stmt_rec.operator;
1603: l_rstmt_rec.object_type := l_quant_stmt_rec.object_type;
1604: l_rstmt_rec.OBJECT_ATTRIBUTE1:=l_quant_stmt_rec.OBJECT_ATTRIBUTE1;
1605:
1606: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1607: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before calling the validate_pos_quantity_rule ' );
1608: END IF;
1609: --calling validate_pos_quantity_rule to validate the rule statement.
1610: validate_pos_quantity_rule(l_rstmt_rec);

Line 1607: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before calling the validate_pos_quantity_rule ' );

1603: l_rstmt_rec.object_type := l_quant_stmt_rec.object_type;
1604: l_rstmt_rec.OBJECT_ATTRIBUTE1:=l_quant_stmt_rec.OBJECT_ATTRIBUTE1;
1605:
1606: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1607: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before calling the validate_pos_quantity_rule ' );
1608: END IF;
1609: --calling validate_pos_quantity_rule to validate the rule statement.
1610: validate_pos_quantity_rule(l_rstmt_rec);
1611:

Line 1612: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1608: END IF;
1609: --calling validate_pos_quantity_rule to validate the rule statement.
1610: validate_pos_quantity_rule(l_rstmt_rec);
1611:
1612: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1613: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'After calling the validate_pos_quantity_rule ' );
1614: END IF;
1615:
1616: END LOOP;

Line 1613: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'After calling the validate_pos_quantity_rule ' );

1609: --calling validate_pos_quantity_rule to validate the rule statement.
1610: validate_pos_quantity_rule(l_rstmt_rec);
1611:
1612: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1613: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'After calling the validate_pos_quantity_rule ' );
1614: END IF;
1615:
1616: END LOOP;
1617: CLOSE get_quantity_rule_stmt_csr;

Line 1622: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

1618:
1619: -- Check Error Message stack.
1620: x_msg_count := FND_MSG_PUB.count_msg;
1621:
1622: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1623: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'x_msg_count: ' ||x_msg_count);
1624: END IF;
1625:
1626: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)THEN

Line 1623: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'x_msg_count: ' ||x_msg_count);

1619: -- Check Error Message stack.
1620: x_msg_count := FND_MSG_PUB.count_msg;
1621:
1622: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1623: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'x_msg_count: ' ||x_msg_count);
1624: END IF;
1625:
1626: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)THEN
1627: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,L_DEBUG_KEY||'.end','At the end of PLSQL procedure');

Line 1626: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)THEN

1622: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1623: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'x_msg_count: ' ||x_msg_count);
1624: END IF;
1625:
1626: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)THEN
1627: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,L_DEBUG_KEY||'.end','At the end of PLSQL procedure');
1628: END IF;
1629:
1630: -- Standard call to get message count and if count is 1, get message info

Line 1627: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,L_DEBUG_KEY||'.end','At the end of PLSQL procedure');

1623: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'x_msg_count: ' ||x_msg_count);
1624: END IF;
1625:
1626: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)THEN
1627: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,L_DEBUG_KEY||'.end','At the end of PLSQL procedure');
1628: END IF;
1629:
1630: -- Standard call to get message count and if count is 1, get message info
1631: FND_MSG_PUB.Count_And_Get