The following lines contain the word 'select', 'insert', 'update' or 'delete':
G_LAST_UPDATE_DATE DATE := SYSDATE;
G_LAST_UPDATED_BY NUMBER(15) := FND_GLOBAL.user_id;
G_LAST_UPDATE_LOGIN NUMBER(15) := FND_GLOBAL.login_id;
SELECT count(route_no)
FROM ahl_routes_b
WHERE sysdate BETWEEN nvl(start_date_active, sysdate) AND nvl(end_date_active, sysdate)
AND route_no = c_route_num;
SELECT count(lookup_code)
FROM fnd_lookup_values_vl
WHERE lookup_type='AHL_ROUTE_TYPE'
AND sysdate BETWEEN NVL(start_date_active,sysdate) AND nvl(end_date_active,sysdate)
AND lookup_code = c_route_type;
SELECT count(CONCATENATED_SEGMENTS)
FROM AHL_ROUTES_B_KFV
WHERE CONCATENATED_SEGMENTS = c_system;
SELECT count(lookup_code)
FROM fnd_lookup_values_vl
WHERE lookup_type='AHL_PROCESS_CODE'
AND sysdate BETWEEN NVL(start_date_active,sysdate) AND nvl(end_date_active,sysdate)
AND lookup_code = c_process;
SELECT count(RULE_ID)
FROM AHL_WBS_RULES
WHERE RULE_TEXT = c_rule_text
AND RULE_ID <> p_x_wbs_rules_rec.RULE_ID;
SELECT COUNT(*) INTO l_counter
FROM ahl_wbs_rules
START WITH POST_ROUTE_NUMBER = p_x_wbs_rules_rec.PRE_ROUTE_NUMBER
CONNECT BY PRIOR PRE_ROUTE_NUMBER = POST_ROUTE_NUMBER;
ROLLBACK TO update_rule_sp;
FND_LOG.string(l_log_statement, L_DEBUG, 'rule_id-' || p_x_wbs_rules_rec.rule_id || ': About to insert rule');
INSERT INTO AHL_WBS_RULES
(
RULE_ID,
OBJECT_VERSION_NUMBER,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
RULE_NUMBER,
RULE_TEXT,
PRE_ROUTE_NUMBER,
PRE_ROUTE_TYPE_CODE,
PRE_SYSTEM_CODE,
PRE_PROCESS_CODE,
POST_ROUTE_NUMBER,
POST_ROUTE_TYPE_CODE,
POST_SYSTEM_CODE,
POST_PROCESS_CODE,
SECURITY_GROUP_ID
)
VALUES
(
p_x_wbs_rules_rec.RULE_ID,
1,
G_LAST_UPDATE_DATE,
G_LAST_UPDATED_BY,
G_CREATION_DATE,
G_CREATED_BY,
G_LAST_UPDATE_LOGIN,
p_x_wbs_rules_rec.RULE_NUMBER,
p_x_wbs_rules_rec.RULE_TEXT,
p_x_wbs_rules_rec.PRE_ROUTE_NUMBER,
p_x_wbs_rules_rec.PRE_ROUTE_TYPE_CODE,
p_x_wbs_rules_rec.PRE_SYSTEM_CODE,
p_x_wbs_rules_rec.PRE_PROCESS_CODE,
p_x_wbs_rules_rec.POST_ROUTE_NUMBER,
p_x_wbs_rules_rec.POST_ROUTE_TYPE_CODE,
p_x_wbs_rules_rec.POST_SYSTEM_CODE,
p_x_wbs_rules_rec.POST_PROCESS_CODE,
null
);
PROCEDURE update_rule
(
p_api_version IN NUMBER := 1.0,
p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
p_module_type IN VARCHAR2 := NULL,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_x_wbs_rules_rec IN OUT NOCOPY wbs_rules_rec_type
)
IS
L_API_VERSION CONSTANT NUMBER := 1.0;
L_API_NAME CONSTANT VARCHAR2(30) := 'update_rule';
SAVEPOINT update_rule_sp;
FND_LOG.string(l_log_statement, L_DEBUG, 'rule_id-' || p_x_wbs_rules_rec.rule_id || ': About to update rule');
UPDATE AHL_WBS_RULES
SET OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER + 1,
LAST_UPDATE_DATE = G_LAST_UPDATE_DATE,
LAST_UPDATED_BY = G_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = G_LAST_UPDATE_LOGIN,
RULE_TEXT = p_x_wbs_rules_rec.RULE_TEXT,
PRE_ROUTE_NUMBER = p_x_wbs_rules_rec.PRE_ROUTE_NUMBER,
PRE_ROUTE_TYPE_CODE = p_x_wbs_rules_rec.PRE_ROUTE_TYPE_CODE,
PRE_SYSTEM_CODE = p_x_wbs_rules_rec.PRE_SYSTEM_CODE,
PRE_PROCESS_CODE = p_x_wbs_rules_rec.PRE_PROCESS_CODE,
POST_ROUTE_NUMBER = p_x_wbs_rules_rec.POST_ROUTE_NUMBER,
POST_ROUTE_TYPE_CODE = p_x_wbs_rules_rec.POST_ROUTE_TYPE_CODE,
POST_SYSTEM_CODE = p_x_wbs_rules_rec.POST_SYSTEM_CODE,
POST_PROCESS_CODE = p_x_wbs_rules_rec.POST_PROCESS_CODE
WHERE RULE_ID = p_x_wbs_rules_rec.rule_id
AND object_version_number = p_x_wbs_rules_rec.object_version_number;
ROLLBACK TO update_rule_sp;
FND_LOG.string(l_log_statement, L_DEBUG, 'Update Rule: rule_id-' || p_x_wbs_rules_rec.rule_id || 'In G_EXC_ERROR block' || ' x_msg_count ' || x_msg_count );
ROLLBACK TO update_rule_sp;
FND_LOG.string(l_log_statement, L_DEBUG, 'Update Rule: rule_id-' || p_x_wbs_rules_rec.rule_id || 'In G_EXC_UNEXPECTED_ERROR block' || ' x_msg_count ' || x_msg_count );
ROLLBACK TO update_rule_sp;
FND_LOG.string(l_log_statement, L_DEBUG, 'Update Rule: rule_id-' || p_x_wbs_rules_rec.rule_id || 'In OTHERS block' || ' x_msg_count ' || x_msg_count );
END update_rule;