1277: PROCEDURE validate_qa_inspection_type
1278: (
1279: x_return_status OUT NOCOPY VARCHAR2,
1280: x_msg_data OUT NOCOPY VARCHAR2,
1281: p_qa_inspection_type_desc IN QA_CHAR_VALUE_LOOKUPS_V.description%TYPE,
1282: p_x_qa_inspection_type IN OUT NOCOPY QA_CHAR_VALUE_LOOKUPS_V.short_code%TYPE
1283: )
1284: IS
1285:
1278: (
1279: x_return_status OUT NOCOPY VARCHAR2,
1280: x_msg_data OUT NOCOPY VARCHAR2,
1281: p_qa_inspection_type_desc IN QA_CHAR_VALUE_LOOKUPS_V.description%TYPE,
1282: p_x_qa_inspection_type IN OUT NOCOPY QA_CHAR_VALUE_LOOKUPS_V.short_code%TYPE
1283: )
1284: IS
1285:
1286: l_qa_inspection_type QA_CHAR_VALUE_LOOKUPS_V.short_code%TYPE;
1282: p_x_qa_inspection_type IN OUT NOCOPY QA_CHAR_VALUE_LOOKUPS_V.short_code%TYPE
1283: )
1284: IS
1285:
1286: l_qa_inspection_type QA_CHAR_VALUE_LOOKUPS_V.short_code%TYPE;
1287:
1288: CURSOR get_rec_from_value ( c_qa_inspection_type_desc QA_CHAR_VALUE_LOOKUPS_V.description%TYPE )
1289: IS
1290: SELECT DISTINCT short_code
1284: IS
1285:
1286: l_qa_inspection_type QA_CHAR_VALUE_LOOKUPS_V.short_code%TYPE;
1287:
1288: CURSOR get_rec_from_value ( c_qa_inspection_type_desc QA_CHAR_VALUE_LOOKUPS_V.description%TYPE )
1289: IS
1290: SELECT DISTINCT short_code
1291: FROM QA_CHAR_VALUE_LOOKUPS_V
1292: WHERE description = c_qa_inspection_type_desc;
1287:
1288: CURSOR get_rec_from_value ( c_qa_inspection_type_desc QA_CHAR_VALUE_LOOKUPS_V.description%TYPE )
1289: IS
1290: SELECT DISTINCT short_code
1291: FROM QA_CHAR_VALUE_LOOKUPS_V
1292: WHERE description = c_qa_inspection_type_desc;
1293:
1294: CURSOR get_rec_from_id ( c_qa_inspection_type QA_CHAR_VALUE_LOOKUPS_V.short_code%TYPE )
1295: IS
1290: SELECT DISTINCT short_code
1291: FROM QA_CHAR_VALUE_LOOKUPS_V
1292: WHERE description = c_qa_inspection_type_desc;
1293:
1294: CURSOR get_rec_from_id ( c_qa_inspection_type QA_CHAR_VALUE_LOOKUPS_V.short_code%TYPE )
1295: IS
1296: SELECT DISTINCT short_code
1297: FROM QA_CHAR_VALUE_LOOKUPS_V
1298: WHERE short_code = c_qa_inspection_type;
1293:
1294: CURSOR get_rec_from_id ( c_qa_inspection_type QA_CHAR_VALUE_LOOKUPS_V.short_code%TYPE )
1295: IS
1296: SELECT DISTINCT short_code
1297: FROM QA_CHAR_VALUE_LOOKUPS_V
1298: WHERE short_code = c_qa_inspection_type;
1299:
1300: BEGIN
1301: x_return_status := FND_API.G_RET_STS_SUCCESS;