The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE ROUTING_UPDATE
(
X_org_id IN NUMBER,
X_eng_item_id IN NUMBER,
X_designator_option IN NUMBER,
X_transfer_option IN NUMBER,
X_alt_rtg_designator IN VARCHAR2,
X_effectivity_date IN DATE
)
IS
X_stmt_num NUMBER;
UPDATE BOM_OPERATIONAL_ROUTINGS
SET ROUTING_TYPE = 1
WHERE ORGANIZATION_ID = X_org_id
AND ASSEMBLY_ITEM_ID = X_eng_item_id
AND ((X_designator_option = 2 AND
ALTERNATE_ROUTING_DESIGNATOR IS NULL)
OR
(X_designator_option = 3 AND
ALTERNATE_ROUTING_DESIGNATOR = X_alt_rtg_designator)
OR
X_designator_option = 1);
DELETE FROM BOM_OPERATION_SEQUENCES BOS
WHERE ((X_transfer_option = 2
AND (BOS.EFFECTIVITY_DATE > X_effectivity_date
OR NVL(BOS.DISABLE_DATE, X_effectivity_date+1) <
X_effectivity_date))
OR (X_transfer_option = 3
AND NVL(BOS.DISABLE_DATE, X_effectivity_date + 1) <
X_effectivity_date))
AND EXISTS (SELECT 'X'
FROM BOM_OPERATIONAL_ROUTINGS BOR
WHERE ORGANIZATION_ID = X_org_id
AND ASSEMBLY_ITEM_ID = X_eng_item_id
AND ROUTING_TYPE = 1
AND BOS.ROUTING_SEQUENCE_ID = BOR.ROUTING_SEQUENCE_ID
AND ((X_designator_option = 2 AND ALTERNATE_ROUTING_DESIGNATOR IS NULL)
OR (X_designator_option = 3 AND ALTERNATE_ROUTING_DESIGNATOR = X_alt_rtg_designator)
OR (X_designator_option = 1)));
ENG_BOM_RTG_TRANSFER_PKG.RAISE_ERROR(func_name => 'ROUTING_UPDATE',
stmt_num => X_stmt_num,
message_name => 'ENG_ENUBRT_ERROR',
token => SQLERRM);
END ROUTING_UPDATE;
SELECT ROUTING_SEQUENCE_ID, ALTERNATE_ROUTING_DESIGNATOR
FROM BOM_OPERATIONAL_ROUTINGS
WHERE ORGANIZATION_ID = X_org_id
AND ASSEMBLY_ITEM_ID = X_mfg_item_id
AND COMMON_ROUTING_SEQUENCE_ID = ROUTING_SEQUENCE_ID;
SELECT ROUTING_SEQUENCE_ID, ALTERNATE_ROUTING_DESIGNATOR
FROM BOM_OPERATIONAL_ROUTINGS BOR
WHERE ORGANIZATION_ID = X_org_id
AND ASSEMBLY_ITEM_ID = X_mfg_item_id
AND COMMON_ROUTING_SEQUENCE_ID = ROUTING_SEQUENCE_ID
AND ((X_designator_option = 2 AND
BOR.ALTERNATE_ROUTING_DESIGNATOR IS NULL)
OR
(X_designator_option = 3 AND
BOR.ALTERNATE_ROUTING_DESIGNATOR = X_alt_rtg_designator)
OR
X_designator_option = 1);
INSERT INTO BOM_OPERATIONAL_ROUTINGS(
ROUTING_SEQUENCE_ID,
ASSEMBLY_ITEM_ID,
ORGANIZATION_ID,
ALTERNATE_ROUTING_DESIGNATOR,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
ROUTING_TYPE,
COMMON_ASSEMBLY_ITEM_ID,
COMMON_ROUTING_SEQUENCE_ID,
ROUTING_COMMENT,
COMPLETION_SUBINVENTORY,
COMPLETION_LOCATOR_ID,
ATTRIBUTE_CATEGORY,
ATTRIBUTE1,
ATTRIBUTE2,
ATTRIBUTE3,
ATTRIBUTE4,
ATTRIBUTE5,
ATTRIBUTE6,
ATTRIBUTE7,
ATTRIBUTE8,
ATTRIBUTE9,
ATTRIBUTE10,
ATTRIBUTE11,
ATTRIBUTE12,
ATTRIBUTE13,
ATTRIBUTE14,
ATTRIBUTE15,
LINE_ID,
CFM_ROUTING_FLAG,
MIXED_MODEL_MAP_FLAG,
PRIORITY,
TOTAL_PRODUCT_CYCLE_TIME,
CTP_FLAG,
PROJECT_ID,
TASK_ID,
PENDING_FROM_ECN,
ORIGINAL_SYSTEM_REFERENCE,
SERIALIZATION_START_OP)
SELECT
BOM_OPERATIONAL_ROUTINGS_S.NEXTVAL,
X_mfg_item_id,
BOR.ORGANIZATION_ID,
BOR.ALTERNATE_ROUTING_DESIGNATOR,
SYSDATE,
to_number(Fnd_Profile.Value('USER_ID')),
SYSDATE,
to_number(Fnd_Profile.Value('USER_ID')),
to_number(Fnd_Profile.Value('LOGIN_ID')),
1,
BOR.COMMON_ASSEMBLY_ITEM_ID,
DECODE(BOR.COMMON_ROUTING_SEQUENCE_ID,BOR.ROUTING_SEQUENCE_ID,BOM_OPERATIONAL_ROUTINGS_S.CURRVAL,BOR.COMMON_ROUTING_SEQUENCE_ID),
BOR.ROUTING_COMMENT,
BOR.COMPLETION_SUBINVENTORY,
BOR.COMPLETION_LOCATOR_ID,
BOR.ATTRIBUTE_CATEGORY,
BOR.ATTRIBUTE1,
BOR.ATTRIBUTE2,
BOR.ATTRIBUTE3,
BOR.ATTRIBUTE4,
BOR.ATTRIBUTE5,
BOR.ATTRIBUTE6,
BOR.ATTRIBUTE7,
BOR.ATTRIBUTE8,
BOR.ATTRIBUTE9,
BOR.ATTRIBUTE10,
BOR.ATTRIBUTE11,
BOR.ATTRIBUTE12,
BOR.ATTRIBUTE13,
BOR.ATTRIBUTE14,
BOR.ATTRIBUTE15,
LINE_ID,
CFM_ROUTING_FLAG,
MIXED_MODEL_MAP_FLAG,
PRIORITY,
TOTAL_PRODUCT_CYCLE_TIME,
CTP_FLAG,
PROJECT_ID,
TASK_ID,
PENDING_FROM_ECN,
ORIGINAL_SYSTEM_REFERENCE,
SERIALIZATION_START_OP
FROM BOM_OPERATIONAL_ROUTINGS BOR
WHERE ORGANIZATION_ID = X_org_id
AND ASSEMBLY_ITEM_ID = X_eng_item_id
AND ((X_designator_option = 2 AND
BOR.ALTERNATE_ROUTING_DESIGNATOR IS NULL)
OR
(X_designator_option = 3 AND
BOR.ALTERNATE_ROUTING_DESIGNATOR = X_alt_rtg_designator)
OR
X_designator_option = 1);
SELECT ROUTING_SEQUENCE_ID
INTO X_from_rtg_sequence_id
FROM BOM_OPERATIONAL_ROUTINGS
WHERE ORGANIZATION_ID = X_org_id
AND ASSEMBLY_ITEM_ID = X_eng_item_id
AND NVL(ALTERNATE_ROUTING_DESIGNATOR,'NONE') = NVL(RTG.ALTERNATE_ROUTING_DESIGNATOR,'NONE');
UPDATE BOM_OPERATIONAL_ROUTINGS
SET ALTERNATE_ROUTING_DESIGNATOR = NULL
WHERE ROUTING_SEQUENCE_ID = RTG.ROUTING_SEQUENCE_ID;