The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT 'X'
FROM AHL_RT_OPER_INTERFACE
WHERE ROUTE_ID = p_route_id
AND STATUS = 'PENDING';*/
SELECT
ROUTE_ID,
STATUS,
ATA_CODE,
DESCRIPTION,
REVISION_DATE,
ENIGMA_ID,
CHANGE_FLAG,
PDF
FROM
AHL_RT_OPER_INTERFACE
WHERE
STATUS = 'PENDING'
AND PARENT_ROUTE_ID IS NULL;
SELECT
OPERATION_ID,
STATUS,
ATA_CODE,
DESCRIPTION,
PARENT_ROUTE_ID,
ENIGMA_ID,
CHANGE_FLAG
FROM
AHL_RT_OPER_INTERFACE
WHERE PARENT_ROUTE_ID = p_route_id
AND STATUS = 'PENDING';
-- Delete all the routes in pending status from the stagin table
-- as they have already been queried by the cursor
DELETE FROM AHL_RT_OPER_INTERFACE
WHERE STATUS = 'PENDING' AND PARENT_ROUTE_ID IS NULL;
-- Delete all the operations from the stagin table that are in the pending status
-- and that correspond to the parent route
DELETE FROM AHL_RT_OPER_INTERFACE
WHERE PARENT_ROUTE_ID = l_route_id AND STATUS = 'PENDING';
-- staging table and the operation is not delete ?!?!
PROCESS_ROUTE_DETAILS
(
'1.0',
FND_API.G_TRUE,
FND_API.G_FALSE,
FND_API.G_VALID_LEVEL_FULL,
FND_API.G_FALSE,
NULL,
x_return_status,
x_msg_count,
x_msg_data,
p_enigma_route_rec,
p_enigma_op_tbl,
p_context,
p_pub_date
);
SELECT
route_id,
object_version_number,
revision_status_code revision_status
FROM AHL_ROUTES_V
WHERE UPPER(TRIM(ENIGMA_ROUTE_ID)) = UPPER(TRIM(p_route_id))
AND REVISION_NUMBER =
( SELECT
MAX( revision_number )
FROM
AHL_ROUTES_V
WHERE
UPPER(TRIM(ENIGMA_ROUTE_ID)) = UPPER(TRIM(p_route_id)) );
-- Check if the flag id delete and if so delete the route from the CMRO system .
IF (p_enigma_route_rec.change_flag = 'D') THEN
IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
THEN
fnd_log.string
(
fnd_log.level_statement,
l_debug_module,
'Inside Delete'
);
-- IF the route is in Approval Pending status , then insert the Enigma Record into the
-- staging table with status as pending.
IF ( upper(l_get_latest_route_rev.revision_status) = 'APPROVAL_PENDING' ) THEN
IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)
THEN
fnd_log.string
(
fnd_log.level_statement,
l_debug_module,
'Route is in Approval Pending'
);
'Before Inserting into the staging table'
);
INSERT INTO AHL_RT_OPER_INTERFACE
(
CONTEXT,
PUBLISH_DATE,
ROUTE_ID,
PDF,
REVISION_DATE,
CHANGE_FLAG,
ATA_CODE,
DESCRIPTION,
STATUS,
REASON,
ENIGMA_ID
)
VALUES
(
p_context,
p_pub_date,
p_enigma_route_rec.route_id,
p_enigma_route_rec.pdf,
p_enigma_route_rec.revision_date,
p_enigma_route_rec.change_flag,
p_enigma_route_rec.ata_code,
p_enigma_route_rec.description,
'PENDING',
'Route is in approval pending status',
p_enigma_route_rec.enigma_id
);
'After Inserting into the staging table'
);
'Before calling delete_routes'
);
-- Call delete_route procedure to delete the route from CMRO End.
AHL_RM_ROUTE_PVT.delete_route
(
'1.0',
FND_API.G_TRUE,
FND_API.G_FALSE,
FND_API.G_VALID_LEVEL_FULL,
FND_API.G_FALSE,
'ENIGMA',
x_return_status,
x_msg_count,
x_msg_data,
l_get_latest_route_rev.route_id,
l_get_latest_route_rev.object_version_number
);
'After calling delete_routes'
);
fnd_log.string(fnd_log.level_statement,l_debug_module,'AHL_RM_ROUTE_PVT.delete_route Error');
fnd_log.string(fnd_log.level_statement,l_debug_module,'AHL_RM_ROUTE_PVT.delete_route -> Deleted');
'Inside update'
);
INSERT INTO AHL_RT_OPER_INTERFACE
(
CONTEXT,
PUBLISH_DATE,
ROUTE_ID,
PDF,
REVISION_DATE,
CHANGE_FLAG,
ATA_CODE,
DESCRIPTION,
STATUS,
REASON,
ENIGMA_ID
)
VALUES
(
p_context,
p_pub_date,
p_enigma_route_rec.route_id,
p_enigma_route_rec.pdf,
p_enigma_route_rec.revision_date,
p_enigma_route_rec.change_flag,
p_enigma_route_rec.ata_code,
p_enigma_route_rec.description,
'PENDING',
'Route is in approval pending status',
p_enigma_route_rec.enigma_id
);
'Inserting the operations into the staging table'
);
INSERT INTO AHL_RT_OPER_INTERFACE
(
CONTEXT,
PUBLISH_DATE,
OPERATION_ID,
PARENT_ROUTE_ID,
CHANGE_FLAG,
ATA_CODE,
DESCRIPTION,
STATUS,
REASON,
ENIGMA_ID
)
VALUES
(
p_context,
p_pub_date,
p_enigma_op_tbl(i).operation_id,
p_enigma_op_tbl(i).parent_route_id,
p_enigma_op_tbl(i).change_flag,
p_enigma_op_tbl(i).ata_code,
p_enigma_op_tbl(i).description,
'PENDING',
'Parent Route is in approval pending status',
p_enigma_op_tbl(i).enigma_id
);
-- Update the route revision with file_id
/*
UPDATE
AHL_ROUTES_B
SET
FILE_ID = x_file_id,
OBJECT_VERSION_NUMBER = l_get_latest_route_rev.object_version_number + 1
WHERE
ROUTE_ID = l_get_latest_route_rev.route_id
AND OBJECT_VERSION_NUMBER = l_get_latest_route_rev.object_version_number;
SELECT object_version_number INTO l_ovn from
AHL_ROUTES_V where route_id = x_route_id;
'Before calling process_route in update mode'
);
-- Call the API for update
AHL_RM_ROUTE_PVT.process_route
(
'1.0',
FND_API.G_TRUE,
FND_API.G_FALSE,
FND_API.G_VALID_LEVEL_FULL,
FND_API.G_FALSE,
NULL,
x_return_status,
x_msg_count,
x_msg_data,
p_process_route_input_rec
);
'After calling process_route in update mode'
);
'before insertion into staging table'
);
-- Insert the transaction record into the staging table, with status as success
INSERT INTO AHL_RT_OPER_INTERFACE
(
CONTEXT,
PUBLISH_DATE,
ROUTE_ID,
PDF,
REVISION_DATE,
CHANGE_FLAG,
ATA_CODE,
DESCRIPTION,
STATUS,
REASON,
ENIGMA_ID
)
VALUES
(
p_context,
p_pub_date,
p_enigma_route_rec.route_id,
p_enigma_route_rec.pdf,
p_enigma_route_rec.revision_date,
p_enigma_route_rec.change_flag,
p_enigma_route_rec.ata_code,
p_enigma_route_rec.description,
'SUCCESS',
'Route updated Successfully',
p_enigma_route_rec.enigma_id
);
'After insertion into staging table'
);
-- Call the API for update.
AHL_RM_ROUTE_PVT.process_route
(
'1.0',
FND_API.G_TRUE,
FND_API.G_FALSE,
FND_API.G_VALID_LEVEL_FULL,
FND_API.G_FALSE,
NULL,
x_return_status,
x_msg_count,
x_msg_data,
p_process_route_input_rec
);
INSERT INTO AHL_RT_OPER_INTERFACE
(
CONTEXT,
PUBLISH_DATE,
ROUTE_ID,
PDF,
REVISION_DATE,
CHANGE_FLAG,
ATA_CODE,
DESCRIPTION,
STATUS,
REASON,
ENIGMA_ID
)
VALUES
(
p_context,
p_pub_date,
p_enigma_route_rec.route_id,
p_enigma_route_rec.pdf,
p_enigma_route_rec.revision_date,
p_enigma_route_rec.change_flag,
p_enigma_route_rec.ata_code,
p_enigma_route_rec.description,
'SUCCESS',
'Route updates Successfully',
p_enigma_route_rec.enigma_id
);
-- Call the API for update.
AHL_RM_ROUTE_PVT.process_route
(
'1.0',
FND_API.G_TRUE,
FND_API.G_FALSE,
FND_API.G_VALID_LEVEL_FULL,
FND_API.G_FALSE,
NULL,
x_return_status,
x_msg_count,
x_msg_data,
p_process_route_input_rec
);
'Before inserting into the staging table'
);
INSERT INTO AHL_RT_OPER_INTERFACE
(
CONTEXT,
PUBLISH_DATE,
ROUTE_ID,
PDF,
REVISION_DATE,
CHANGE_FLAG,
ATA_CODE,
DESCRIPTION,
STATUS,
REASON,
ENIGMA_ID
)
VALUES
(
p_context,
p_pub_date,
p_enigma_route_rec.route_id,
p_enigma_route_rec.pdf,
p_enigma_route_rec.revision_date,
p_enigma_route_rec.change_flag,
p_enigma_route_rec.ata_code,
p_enigma_route_rec.description,
'SUCCESS',
'Route created Successfully',
p_enigma_route_rec.enigma_id
);
'After inserting into the staging table'
);
SELECT
operation_id,
object_version_number,
revision_status_code revision_status
FROM AHL_OPERATIONS_B
WHERE UPPER(TRIM(ENIGMA_OP_ID)) = UPPER(TRIM(c_operation_id))
AND REVISION_NUMBER =
( SELECT
MAX( revision_number )
FROM
AHL_OPERATIONS_B
WHERE
UPPER(TRIM(ENIGMA_OP_ID)) = UPPER(TRIM(c_operation_id))
);
-- IF the operation is in Approval Pending status , then insert the operation record into the
-- staging table with status as pending.
IF ( upper(l_get_latest_oper_rev.revision_status) = 'APPROVAL_PENDING' ) THEN
INSERT INTO AHL_RT_OPER_INTERFACE
(
CONTEXT,
PUBLISH_DATE,
OPERATION_ID,
PARENT_ROUTE_ID,
CHANGE_FLAG,
ATA_CODE,
DESCRIPTION,
STATUS,
REASON,
ENIGMA_ID
)
VALUES
(
p_context,
p_pub_date,
p_enigma_op_tbl(i).operation_id,
parent_route_id,
p_enigma_op_tbl(i).change_flag,
p_enigma_op_tbl(i).ata_code,
p_enigma_op_tbl(i).description,
'PENDING',
'Operation is in approval pending status',
p_enigma_op_tbl(i).enigma_id
);
'Inside else , calling delete operation'
);
-- Call the delete operation API
AHL_RM_OPERATION_PVT.delete_operation
(
1.0,
FND_API.G_TRUE,
FND_API.G_FALSE,
FND_API.G_VALID_LEVEL_FULL,
FND_API.G_FALSE,
NULL,
x_return_status,
x_msg_count,
x_msg_data,
l_get_latest_oper_rev.operation_id,
l_get_latest_oper_rev.object_version_number
);
fnd_log.string(fnd_log.level_statement,l_debug_module,'After AHL_RM_OPERATION_PVT.delete_operation');
fnd_log.string(fnd_log.level_statement,l_debug_module,'AHL_RM_OPERATION_PVT.delete_operation Error');
fnd_log.string(fnd_log.level_statement,l_debug_module,'AHL_RM_OPERATION_PVT.delete_operation -> deletion Successful');
-- If the operation is in Approval Pending status , then insert the operation record into the
-- staging table with status as pending.
IF ( upper(l_get_latest_oper_rev.revision_status) = 'APPROVAL_PENDING' ) THEN
INSERT INTO AHL_RT_OPER_INTERFACE
(
CONTEXT,
PUBLISH_DATE,
OPERATION_ID,
PARENT_ROUTE_ID,
CHANGE_FLAG,
ATA_CODE,
DESCRIPTION,
STATUS,
REASON,
ENIGMA_ID
)
VALUES
(
p_context,
p_pub_date,
p_enigma_op_tbl(i).operation_id,
parent_route_id,
p_enigma_op_tbl(i).change_flag,
p_enigma_op_tbl(i).ata_code,
p_enigma_op_tbl(i).description,
'PENDING',
'Operation is in approval pending status',
p_enigma_op_tbl(i).enigma_id
);
-- Call the API for update
AHL_RM_OPERATION_PVT.process_operation
(
'1.0',
FND_API.G_TRUE,
FND_API.G_FALSE,
FND_API.G_VALID_LEVEL_FULL,
FND_API.G_FALSE,
NULL,
x_return_status,
x_msg_count,
x_msg_data,
p_process_oper_input_rec
);
-- Insert the transaction record into the staging table, with status as success
INSERT INTO AHL_RT_OPER_INTERFACE
(
CONTEXT,
PUBLISH_DATE,
OPERATION_ID,
PARENT_ROUTE_ID,
CHANGE_FLAG,
ATA_CODE,
DESCRIPTION,
STATUS,
REASON,
ENIGMA_ID
)
VALUES
(
p_context,
p_pub_date,
p_enigma_op_tbl(i).operation_id,
parent_route_id,
p_enigma_op_tbl(i).change_flag,
p_enigma_op_tbl(i).ata_code,
p_enigma_op_tbl(i).description,
'SUCCESS',
'Operation updated successfully',
p_enigma_op_tbl(i).enigma_id
);
'Update Operation-> Draft'
);
-- Call the API for update
AHL_RM_OPERATION_PVT.process_operation
(
'1.0',
FND_API.G_TRUE,
FND_API.G_FALSE,
FND_API.G_VALID_LEVEL_FULL,
FND_API.G_FALSE,
NULL,
x_return_status,
x_msg_count,
x_msg_data,
p_process_oper_input_rec
);
'Before inserting into the staging table'
);
-- Insert the transaction record into the staging table, with status as success
INSERT INTO AHL_RT_OPER_INTERFACE
(
CONTEXT,
PUBLISH_DATE,
OPERATION_ID,
PARENT_ROUTE_ID,
CHANGE_FLAG,
ATA_CODE,
DESCRIPTION,
STATUS,
REASON,
ENIGMA_ID
)
VALUES
(
p_context,
p_pub_date,
p_enigma_op_tbl(i).operation_id,
parent_route_id,
p_enigma_op_tbl(i).change_flag,
p_enigma_op_tbl(i).ata_code,
p_enigma_op_tbl(i).description,
'SUCCESS',
'Operation updated successfully',
p_enigma_op_tbl(i).enigma_id
);
'After inserting into the staging table'
);
-- Call the API for update
AHL_RM_OPERATION_PVT.process_operation
(
'1.0',
FND_API.G_TRUE,
FND_API.G_FALSE,
FND_API.G_VALID_LEVEL_FULL,
FND_API.G_FALSE,
NULL,
x_return_status,
x_msg_count,
x_msg_data,
p_process_oper_input_rec
);
'before inserting the operations into staging table '
);
-- Insert the transaction record into the staging table, with status as success
INSERT INTO AHL_RT_OPER_INTERFACE
(
CONTEXT,
PUBLISH_DATE,
OPERATION_ID,
PARENT_ROUTE_ID,
CHANGE_FLAG,
ATA_CODE,
DESCRIPTION,
STATUS,
REASON,
ENIGMA_ID
)
VALUES
(
p_context,
p_pub_date,
p_enigma_op_tbl(i).operation_id,
parent_route_id,
p_enigma_op_tbl(i).change_flag,
p_enigma_op_tbl(i).ata_code,
p_enigma_op_tbl(i).description,
'SUCCESS',
'Operation created successfully',
p_enigma_op_tbl(i).enigma_id
);
SELECT route_id INTO p_route_id FROM AHL_ROUTES_B
WHERE ENIGMA_ROUTE_ID = parent_route_id;
select fnd_lobs_s.nextval into seqNo from dual;
insert into fnd_lobs(
file_id,
file_name,
file_content_type,
language,
file_data,
file_format,
upload_date
)
values(seqNo,
p_file_name,
'application/octet-stream',
'US',
l_contentBlob,
'binary',
sysdate
);