The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT concatenated_segments,grade_control_flag
FROM mtl_system_items_kfv
WHERE inventory_item_id = p_inventory_item_id
AND organization_id = p_organization_id
AND process_quality_enabled_flag = 'Y';
SELECT revision_qty_control_code
FROM mtl_system_items_b
WHERE inventory_item_id = p_inventory_item_id
AND organization_id = p_organization_id;
SELECT 1
FROM mtl_item_revisions
WHERE inventory_item_id = p_inventory_item_id
AND organization_id = p_organization_id
AND revision = p_revision;
SELECT 1
FROM mtl_grades_b
WHERE grade_code = p_grade
AND disable_flag = 'N';
SELECT 1
FROM gmd_qc_status
WHERE status_code = p_spec_status
AND delete_mark = 0
and entity_type = 'S';
SELECT 1
FROM mtl_parameters
WHERE organization_id = p_Organization_id;
SELECT user_name
FROM fnd_user
WHERE user_id = p_owner_id
AND start_date <= SYSDATE
AND nvl(end_date, SYSDATE + 1) >= SYSDATE;
SELECT 1
FROM gmd_specifications_b
WHERE spec_id = p_spec_id
AND spec_status = 700 ;
SELECT test_code,test_method_id,test_type,min_value_num,max_value_num,priority
FROM gmd_qc_tests_b
WHERE test_id = p_test_id
AND delete_mark = 0 ;
SELECT test_method_id,test_replicate
FROM gmd_test_methods_b
WHERE test_method_id = p_test_method_id
AND delete_mark = 0 ;
SELECT 'x' FROM MTL_ACTIONS_B
WHERE action_code = p_action_code
AND disable_flag = 'N';
GMD_API_PUB.Log_Message('GMD_TEST_METHOD_DELETED');
IF (p_operation = 'INSERT' AND spec_vers_exist(p_spec_header.spec_name, p_spec_header.spec_vers)) THEN
-- Ah...Ha, Spec and Version combination is already used
GMD_API_PUB.Log_Message('GMD_SPEC_VERS_EXIST',
'SPEC', p_spec_header.spec_name,
'VERS', p_spec_header.spec_vers);
SELECT organization_code INTO l_owner_organization_code
FROM mtl_parameters
WHERE organization_id = p_spec_header.owner_organization_id;
SELECT 1
FROM gmd_specifications_b
WHERE spec_name = p_spec_name
AND spec_vers = p_spec_vers;
SELECT 1
FROM org_access_view
WHERE responsibility_id = p_responsibility_id
AND organization_id = p_owner_organization_id;
SELECT 1
FROM gmd_spec_tests_b st, mtl_units_of_measure um
WHERE st.spec_id = p_spec_id
AND st.test_id <> p_test_id
AND st.to_qty_uom = um.uom_code
AND um.uom_class =
(select uom_class from mtl_units_of_measure where uom_code = p_to_uom);
SELECT 1
FROM gmd_specifications_b
WHERE spec_name = p_spec_name
AND spec_vers = p_spec_vers;
SELECT text_range_seq
FROM gmd_qc_test_values_b
WHERE test_id = p_test_id
AND value_char = p_value_char ;
SELECT spec_type
FROM gmd_specifications_b
WHERE spec_id = p_spec_id ;
SELECT primary_uom_code,
lot_control_code,
concatenated_segments
INTO l_item.primary_uom_code,
l_item.lot_control_code,
l_item.concatenated_segments
FROM mtl_system_items_kfv
WHERE organization_id = l_specification.owner_organization_id
AND inventory_item_id = l_specification.inventory_item_id;
PROCEDURE NAME: validate_after_insert_all
DESCRIPTION: This procedure validates that atleast one test
should be attached to the spec.
It
===========================================================================*/
PROCEDURE validate_after_insert_all(
p_spec_id IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2) IS
CURSOR cr_expression_tests IS
SELECT a.test_id,a.seq
FROM GMD_SPEC_TESTS_B a , GMD_QC_TESTS_B b
WHERE
a.spec_id = p_spec_id
AND a.test_id = b.test_id
AND b.test_type = 'E' ;
SELECT NVL(COUNT(1),0) INTO l_test_count
FROM GMD_SPEC_TESTS_B
WHERE spec_id = p_spec_id ;
GMD_API_PUB.Log_Message('GMD_API_ERROR','PACKAGE','gmd_spec_grp.validate_after_insert_all',
'ERROR',substr(sqlerrm,1,100),'POSITION','010');
END validate_after_insert_all;
PROCEDURE NAME: validate_before_delete
DESCRIPTION: This procedure validates GMD_SPECIFICATIONS:
a) Primary key supplied
b) Spec is not already delete_marked
c) Status permits update
PARAMETERS:
CHANGE HISTORY: Created 09-JUL-02 KYH
===========================================================================*/
PROCEDURE VALIDATE_BEFORE_DELETE(
p_spec_id IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_message_data OUT NOCOPY VARCHAR2) IS
l_progress VARCHAR2(3);
IF l_spec.delete_mark <> 0
THEN
fnd_message.set_name('GMD','GMD_RECORD_DELETE_MARKED');
fnd_message.set_name('GMD','GMD_SPEC_STATUS_BLOCKS_DELETE');
IF NOT GMD_SPEC_GRP.Record_Updateable_With_Status(l_spec.spec_status)
THEN
fnd_message.set_name('GMD','GMD_SPEC_STATUS_BLOCKS_UPDATE');
FND_MESSAGE.Set_Token('PACKAGE','GMD_SPEC_GRP.VALIDATE_BEFORE_DELETE');
END VALIDATE_BEFORE_DELETE ;
PROCEDURE NAME: validate_before_delete
DESCRIPTION: This procedure validates GMD_SPEC_TEST:
a) Primary key supplied
b) Spec is not already delete_marked
PARAMETERS:
CHANGE HISTORY: Created 09-JUL-02 KYH
===========================================================================*/
PROCEDURE VALIDATE_BEFORE_DELETE(
p_spec_id IN NUMBER,
p_test_id IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_message_data OUT NOCOPY VARCHAR2) IS
l_progress VARCHAR2(3);
l_spec_delete_mark BINARY_INTEGER;
SELECT delete_mark into l_spec_delete_mark
FROM GMD_SPECIFICATIONS_B
WHERE spec_id = p_spec_id ;
IF l_spec_delete_mark <> 0
THEN
fnd_message.set_name('GMD','GMD_RECORD_DELETE_MARKED');
FND_MESSAGE.Set_Token('PACKAGE','GMD_SPEC_GRP.VALIDATE_BEFORE_DELETE');
END VALIDATE_BEFORE_DELETE ;
PROCEDURE validate_after_delete_test(
p_spec_id IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2) IS
BEGIN
x_return_status := FND_API.G_RET_STS_SUCCESS ;
validate_after_insert_all(
p_spec_id => p_spec_id,
x_return_status => x_return_status) ;
END validate_after_delete_test;
SELECT 1 INTO dummy
FROM GMD_SPEC_TESTS_B
WHERE spec_id = p_spec_id
AND seq = p_seq ;
SELECT 1 INTO dummy
FROM GMD_SPEC_TESTS_B
WHERE spec_id = p_spec_id
AND seq = p_seq
AND test_id <> p_exclude_test_id ;
SELECT 1 INTO dummy
FROM GMD_SPEC_TESTS_B
WHERE spec_id = p_spec_id
AND test_id = p_test_id;
SELECT EXPRESSION_REF_TEST_ID
FROM gmd_qc_test_values_b
WHERE test_id = p_exp_test_id;
SELECT 1
FROM GMD_SPEC_TESTS_B
WHERE spec_id = p_spec_id
AND test_id = p_ref_test_id
AND seq < p_exp_test_seq;
SELECT '1'
FROM gmd_qc_test_values_b
WHERE test_id = p_test_id
AND p_value >= nvl(min_num,p_value)
AND p_value <= nvl(max_num,p_value);
FUNCTION record_updateable_with_status(p_status NUMBER)
RETURN BOOLEAN IS
CURSOR c_status (p_status_code NUMBER) IS
SELECT a.updateable
FROM gmd_qc_status a
WHERE a.status_type =
(SELECT status_type
FROM gmd_qc_status b
WHERE b.status_code = p_status_code
and b.entity_type = 'S')
and a.entity_type = 'S'
;
END record_updateable_with_status;
SELECT '1' FROM GMD_SAMPLING_EVENTS a , GMD_ALL_SPEC_VRS b
WHERE
b.spec_id = p_spec_id
AND b.SPEC_VR_ID = a.ORIGINAL_SPEC_VR_ID ; */
SELECT '1' FROM GMD_SAMPLING_EVENTS a , GMD_INVENTORY_SPEC_VRS b,
gmd_qc_status_tl t
WHERE
b.spec_id = p_spec_id
AND b.SPEC_VR_ID = a.ORIGINAL_SPEC_VR_ID
AND b.spec_vr_status = t.status_code AND t.entity_type = 'S'
UNION
SELECT '1' FROM GMD_SAMPLING_EVENTS a , GMD_WIP_SPEC_VRS b,
gmd_qc_status_tl t
WHERE
b.spec_id = p_spec_id
AND b.SPEC_VR_ID = a.ORIGINAL_SPEC_VR_ID
AND b.spec_vr_status = t.status_code AND t.entity_type = 'S'
UNION
SELECT '1' FROM GMD_SAMPLING_EVENTS a , GMD_CUSTOMER_SPEC_VRS b,
gmd_qc_status_tl t
WHERE
b.spec_id = p_spec_id
AND b.SPEC_VR_ID = a.ORIGINAL_SPEC_VR_ID
AND b.spec_vr_status = t.status_code AND t.entity_type = 'S'
UNION
SELECT '1' FROM GMD_SAMPLING_EVENTS a , GMD_SUPPLIER_SPEC_VRS b,
gmd_qc_status_tl t
WHERE
b.spec_id = p_spec_id
AND b.SPEC_VR_ID = a.ORIGINAL_SPEC_VR_ID
AND b.spec_vr_status = t.status_code AND t.entity_type = 'S'
UNION
SELECT '1' FROM GMD_SAMPLING_EVENTS a , GMD_MONITORING_SPEC_VRS b,
gmd_qc_status_tl t
WHERE
b.spec_id = p_spec_id
AND b.SPEC_VR_ID = a.ORIGINAL_SPEC_VR_ID
AND b.spec_vr_status = t.status_code AND t.entity_type = 'S'
UNION
SELECT '1' FROM GMD_SAMPLING_EVENTS a , GMD_STABILITY_SPEC_VRS b,
gmd_qc_status_tl t
WHERE
b.spec_id = p_spec_id
AND b.SPEC_VR_ID = a.ORIGINAL_SPEC_VR_ID
AND b.spec_vr_status = t.status_code AND t.entity_type = 'S';
/*SELECT '1' FROM GMD_SAMPLING_EVENTS a , GMD_COM_SPEC_VRS_VL b,
gmd_qc_status_tl t
WHERE
b.spec_id = p_spec_id
AND b.SPEC_VR_ID = a.ORIGINAL_SPEC_VR_ID
AND b.spec_vr_status = t.status_code AND t.entity_type = 'S'; */
Select b.version_enabled
From gmd_specifications_b a, gmd_qc_status b
Where a.spec_id = p_entity_id
And a.spec_status = b.status_code
and b.entity_type = 'S';
SELECT *
FROM gmd_specifications
WHERE spec_id = p_spec_id ;
SELECT *
FROM gmd_spec_tests
WHERE spec_id = p_spec_id;
SELECT GMD_QC_SPEC_ID_S.NEXTVAL FROM sys.dual;
SELECT MAX(spec_vers) + 1
FROM gmd_specifications_b
WHERE spec_name = X_hdr_rec.spec_name;
/* Insert spec header record */
GMD_SPECIFICATIONS_PVT.INSERT_ROW(
X_ROWID => l_rowid,
X_SPEC_ID => x_spec_id,
X_SPEC_NAME => X_hdr_rec.SPEC_NAME,
X_SPEC_VERS => x_spec_vers,
X_SPEC_TYPE => x_hdr_rec.SPEC_TYPE,
X_OVERLAY_IND => x_hdr_rec.OVERLAY_IND,
X_BASE_SPEC_ID => x_hdr_rec.base_spec_id,
X_INVENTORY_ITEM_ID => X_hdr_rec.INVENTORY_ITEM_ID,
X_REVISION => X_hdr_rec.REVISION,
X_GRADE_CODE => X_hdr_rec.GRADE_CODE,
X_SPEC_STATUS => 100,
X_OWNER_ORGANIZATION_ID => X_hdr_rec.OWNER_ORGANIZATION_ID,
X_OWNER_ID => X_hdr_rec.OWNER_ID,
X_SAMPLE_INV_TRANS_IND => X_hdr_rec.SAMPLE_INV_TRANS_IND,
X_DELETE_MARK => X_hdr_rec.DELETE_MARK,
X_TEXT_CODE => X_hdr_rec.TEXT_CODE,
X_ATTRIBUTE_CATEGORY => X_hdr_rec.ATTRIBUTE_CATEGORY,
X_ATTRIBUTE1 => X_hdr_rec.ATTRIBUTE1,
X_ATTRIBUTE2 => X_hdr_rec.ATTRIBUTE2,
X_ATTRIBUTE3 => X_hdr_rec.ATTRIBUTE3,
X_ATTRIBUTE4 => X_hdr_rec.ATTRIBUTE4,
X_ATTRIBUTE5 => X_hdr_rec.ATTRIBUTE5,
X_ATTRIBUTE6 => X_hdr_rec.ATTRIBUTE6,
X_ATTRIBUTE7 => X_hdr_rec.ATTRIBUTE7,
X_ATTRIBUTE8 => X_hdr_rec.ATTRIBUTE8,
X_ATTRIBUTE9 => X_hdr_rec.ATTRIBUTE9,
X_ATTRIBUTE10 => X_hdr_rec.ATTRIBUTE10,
X_ATTRIBUTE11 => X_hdr_rec.ATTRIBUTE11,
X_ATTRIBUTE12 => X_hdr_rec.ATTRIBUTE12,
X_ATTRIBUTE13 => X_hdr_rec.ATTRIBUTE13,
X_ATTRIBUTE14 => X_hdr_rec.ATTRIBUTE14,
X_ATTRIBUTE15 => X_hdr_rec.ATTRIBUTE15,
X_ATTRIBUTE16 => X_hdr_rec.ATTRIBUTE16,
X_ATTRIBUTE17 => X_hdr_rec.ATTRIBUTE17,
X_ATTRIBUTE18 => X_hdr_rec.ATTRIBUTE18,
X_ATTRIBUTE19 => X_hdr_rec.ATTRIBUTE19,
X_ATTRIBUTE20 => X_hdr_rec.ATTRIBUTE20,
X_ATTRIBUTE21 => X_hdr_rec.ATTRIBUTE21,
X_ATTRIBUTE22 => X_hdr_rec.ATTRIBUTE22,
X_ATTRIBUTE23 => X_hdr_rec.ATTRIBUTE23,
X_ATTRIBUTE24 => X_hdr_rec.ATTRIBUTE24,
X_ATTRIBUTE25 => X_hdr_rec.ATTRIBUTE25,
X_ATTRIBUTE26 => X_hdr_rec.ATTRIBUTE26,
X_ATTRIBUTE27 => X_hdr_rec.ATTRIBUTE27,
X_ATTRIBUTE28 => X_hdr_rec.ATTRIBUTE28,
X_ATTRIBUTE29 => X_hdr_rec.ATTRIBUTE29,
X_ATTRIBUTE30 => X_hdr_rec.ATTRIBUTE30,
X_SPEC_DESC => X_hdr_rec.SPEC_DESC,
X_CREATION_DATE => SYSDATE,
X_CREATED_BY => FND_GLOBAL.USER_ID,
X_LAST_UPDATE_DATE => SYSDATE,
X_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
X_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID);
GMD_SPEC_TESTS_PVT.INSERT_ROW(
X_ROWID => l_rowid,
X_SPEC_ID => x_spec_id,
X_FROM_BASE_IND => x_dtl_tbl(i).FROM_BASE_IND,
X_EXCLUDE_IND => x_dtl_tbl(i).EXCLUDE_IND,
X_MODIFIED_IND => x_dtl_tbl(i).MODIFIED_IND,
X_TEST_ID => X_dtl_tbl(i).TEST_ID,
X_ATTRIBUTE1 => X_dtl_tbl(i).ATTRIBUTE1,
X_ATTRIBUTE2 => X_dtl_tbl(i).ATTRIBUTE2,
X_MIN_VALUE_CHAR => X_dtl_tbl(i).MIN_VALUE_CHAR,
X_TEST_METHOD_ID => X_dtl_tbl(i).TEST_METHOD_ID,
X_SEQ => X_dtl_tbl(i).SEQ,
X_TEST_QTY => X_dtl_tbl(i).TEST_QTY,
X_TEST_QTY_UOM => X_dtl_tbl(i).TEST_QTY_UOM,
X_MIN_VALUE_NUM => X_dtl_tbl(i).MIN_VALUE_NUM,
X_TARGET_VALUE_NUM => X_dtl_tbl(i).TARGET_VALUE_NUM,
X_MAX_VALUE_NUM => X_dtl_tbl(i).MAX_VALUE_NUM,
X_ATTRIBUTE5 => X_dtl_tbl(i).ATTRIBUTE5,
X_ATTRIBUTE6 => X_dtl_tbl(i).ATTRIBUTE6,
X_ATTRIBUTE7 => X_dtl_tbl(i).ATTRIBUTE7,
X_ATTRIBUTE8 => X_dtl_tbl(i).ATTRIBUTE8,
X_ATTRIBUTE9 => X_dtl_tbl(i).ATTRIBUTE9,
X_ATTRIBUTE10 => X_dtl_tbl(i).ATTRIBUTE10,
X_ATTRIBUTE11 => X_dtl_tbl(i).ATTRIBUTE11,
X_ATTRIBUTE12 => X_dtl_tbl(i).ATTRIBUTE12,
X_ATTRIBUTE13 => X_dtl_tbl(i).ATTRIBUTE13,
X_ATTRIBUTE14 => X_dtl_tbl(i).ATTRIBUTE14,
X_ATTRIBUTE15 => X_dtl_tbl(i).ATTRIBUTE15,
X_ATTRIBUTE16 => X_dtl_tbl(i).ATTRIBUTE16,
X_ATTRIBUTE17 => X_dtl_tbl(i).ATTRIBUTE17,
X_ATTRIBUTE18 => X_dtl_tbl(i).ATTRIBUTE18,
X_USE_TO_CONTROL_STEP => X_dtl_tbl(i).USE_TO_CONTROL_STEP,
X_PRINT_SPEC_IND => X_dtl_tbl(i).PRINT_SPEC_IND,
X_PRINT_RESULT_IND => X_dtl_tbl(i).PRINT_RESULT_IND,
X_TEXT_CODE => X_dtl_tbl(i).TEXT_CODE,
X_ATTRIBUTE_CATEGORY => X_dtl_tbl(i).ATTRIBUTE_CATEGORY,
X_ATTRIBUTE3 => X_dtl_tbl(i).ATTRIBUTE3,
X_RETEST_LOT_EXPIRY_IND => X_dtl_tbl(i).RETEST_LOT_EXPIRY_IND,
X_ATTRIBUTE19 => X_dtl_tbl(i).ATTRIBUTE19,
X_ATTRIBUTE20 => X_dtl_tbl(i).ATTRIBUTE20,
X_MAX_VALUE_CHAR => X_dtl_tbl(i).MAX_VALUE_CHAR,
X_TEST_REPLICATE => X_dtl_tbl(i).TEST_REPLICATE,
X_CHECK_RESULT_INTERVAL => X_dtl_tbl(i).CHECK_RESULT_INTERVAL,
X_OUT_OF_SPEC_ACTION => X_dtl_tbl(i).OUT_OF_SPEC_ACTION,
X_EXP_ERROR_TYPE => X_dtl_tbl(i).EXP_ERROR_TYPE,
X_BELOW_SPEC_MIN => X_dtl_tbl(i).BELOW_SPEC_MIN,
X_ABOVE_SPEC_MIN => X_dtl_tbl(i).ABOVE_SPEC_MIN,
X_BELOW_SPEC_MAX => X_dtl_tbl(i).BELOW_SPEC_MAX,
X_ABOVE_SPEC_MAX => X_dtl_tbl(i).ABOVE_SPEC_MAX,
X_BELOW_MIN_ACTION_CODE => X_dtl_tbl(i).BELOW_MIN_ACTION_CODE,
X_ABOVE_MIN_ACTION_CODE => X_dtl_tbl(i).ABOVE_MIN_ACTION_CODE,
X_BELOW_MAX_ACTION_CODE => X_dtl_tbl(i).BELOW_MAX_ACTION_CODE,
X_ABOVE_MAX_ACTION_CODE => X_dtl_tbl(i).ABOVE_MAX_ACTION_CODE,
X_OPTIONAL_IND => X_dtl_tbl(i).OPTIONAL_IND,
X_DISPLAY_PRECISION => X_dtl_tbl(i).DISPLAY_PRECISION,
X_REPORT_PRECISION => X_dtl_tbl(i).REPORT_PRECISION,
X_TEST_PRIORITY => X_dtl_tbl(i).TEST_PRIORITY,
X_PRINT_ON_COA_IND => X_dtl_tbl(i).PRINT_ON_COA_IND,
X_TARGET_VALUE_CHAR => X_dtl_tbl(i).TARGET_VALUE_CHAR,
X_ATTRIBUTE4 => X_dtl_tbl(i).ATTRIBUTE4,
X_ATTRIBUTE21 => X_dtl_tbl(i).ATTRIBUTE21,
X_ATTRIBUTE22 => X_dtl_tbl(i).ATTRIBUTE22,
X_ATTRIBUTE23 => X_dtl_tbl(i).ATTRIBUTE23,
X_ATTRIBUTE24 => X_dtl_tbl(i).ATTRIBUTE24,
X_ATTRIBUTE25 => X_dtl_tbl(i).ATTRIBUTE25,
X_ATTRIBUTE26 => X_dtl_tbl(i).ATTRIBUTE26,
X_ATTRIBUTE27 => X_dtl_tbl(i).ATTRIBUTE27,
X_ATTRIBUTE28 => X_dtl_tbl(i).ATTRIBUTE28,
X_ATTRIBUTE29 => X_dtl_tbl(i).ATTRIBUTE29,
X_ATTRIBUTE30 => X_dtl_tbl(i).ATTRIBUTE30,
X_TEST_DISPLAY => X_dtl_tbl(i).TEST_DISPLAY,
X_CREATION_DATE => SYSDATE,
X_CREATED_BY => FND_GLOBAL.USER_ID,
X_LAST_UPDATE_DATE => SYSDATE,
X_LAST_UPDATED_BY => FND_GLOBAL.USER_ID,
X_LAST_UPDATE_LOGIN => FND_GLOBAL.LOGIN_ID,
X_VIABILITY_DURATION => X_dtl_tbl(i).VIABILITY_DURATION,
X_TEST_EXPIRATION_DAYS => X_dtl_tbl(i).DAYS,
X_TEST_EXPIRATION_HOURS => X_dtl_tbl(i).HOURS,
X_TEST_EXPIRATION_MINUTES => X_dtl_tbl(i).MINUTES,
X_TEST_EXPIRATION_SECONDS => X_dtl_tbl(i).SECONDS,
X_CALC_UOM_CONV_IND => X_dtl_tbl(i).CALC_UOM_CONV_IND,
X_TO_QTY_UOM => X_dtl_tbl(i).TO_QTY_UOM
);
SELECT decode(p_mode, 'S', current_status,
'P', pending_status,
'R', rework_status,
'A', target_status)
FROM gmd_qc_status_next
WHERE current_status = p_current_status
AND target_status = p_target_status
AND entity_type = p_entity_type
;
l_sql_stmt := 'UPDATE GMD_SPECIFICATIONS_B' ||
' SET spec_status = :l_status' ||
' WHERE spec_id = :p_id';
l_sql_stmt := 'UPDATE GMD_STABILITY_STUDIES_B' ||
' SET status = :l_status' ||
' WHERE ss_id = :p_id';
l_sql_stmt := 'UPDATE ' || p_table_name ||
' SET spec_vr_status = :l_status' ||
' WHERE spec_vr_id = :p_id';
SELECT
user_id
FROM
fnd_user
WHERE
user_name = p_user_name;