124: LOOP
125: -- Verify DML operation flag is right...
126: IF (p_x_repair_category_tbl(i).dml_operation NOT IN ( 'C', 'D', 'U'))
127: THEN
128: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_COM_INVALID_DML');
129: FND_MESSAGE.SET_TOKEN('FIELD', p_x_repair_category_tbl(i).dml_operation);
130: FND_MESSAGE.SET_TOKEN('RECORD', p_x_repair_category_tbl(i).incident_urgency_name||' - '||p_x_repair_category_tbl(i).repair_time);
131: FND_MSG_PUB.ADD;
132: RAISE FND_API.G_EXC_ERROR;
125: -- Verify DML operation flag is right...
126: IF (p_x_repair_category_tbl(i).dml_operation NOT IN ( 'C', 'D', 'U'))
127: THEN
128: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_COM_INVALID_DML');
129: FND_MESSAGE.SET_TOKEN('FIELD', p_x_repair_category_tbl(i).dml_operation);
130: FND_MESSAGE.SET_TOKEN('RECORD', p_x_repair_category_tbl(i).incident_urgency_name||' - '||p_x_repair_category_tbl(i).repair_time);
131: FND_MSG_PUB.ADD;
132: RAISE FND_API.G_EXC_ERROR;
133: END IF;
126: IF (p_x_repair_category_tbl(i).dml_operation NOT IN ( 'C', 'D', 'U'))
127: THEN
128: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_COM_INVALID_DML');
129: FND_MESSAGE.SET_TOKEN('FIELD', p_x_repair_category_tbl(i).dml_operation);
130: FND_MESSAGE.SET_TOKEN('RECORD', p_x_repair_category_tbl(i).incident_urgency_name||' - '||p_x_repair_category_tbl(i).repair_time);
131: FND_MSG_PUB.ADD;
132: RAISE FND_API.G_EXC_ERROR;
133: END IF;
134:
153: FROM cs_incident_urgencies_vl cssr , ahl_repair_categories repcat
154: WHERE repcat.sr_urgency_id = cssr.incident_urgency_id AND
155: repcat.repair_category_id = p_x_repair_category_tbl(i).repair_category_id;
156:
157: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_MEL_CDL_REPCAT_ATASEQ_DEL');
158: FND_MESSAGE.SET_TOKEN('SRNAME', p_x_repair_category_tbl(i).incident_urgency_name);
159: FND_MSG_PUB.ADD;
160: END IF;
161: CLOSE check_repcat_assoc;
154: WHERE repcat.sr_urgency_id = cssr.incident_urgency_id AND
155: repcat.repair_category_id = p_x_repair_category_tbl(i).repair_category_id;
156:
157: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_MEL_CDL_REPCAT_ATASEQ_DEL');
158: FND_MESSAGE.SET_TOKEN('SRNAME', p_x_repair_category_tbl(i).incident_urgency_name);
159: FND_MSG_PUB.ADD;
160: END IF;
161: CLOSE check_repcat_assoc;
162:
187: OPEN get_srurg_id_from_name (p_x_repair_category_tbl(i).incident_urgency_name);
188: FETCH get_srurg_id_from_name INTO p_x_repair_category_tbl(i).incident_urgency_id;
189: IF (get_srurg_id_from_name%NOTFOUND)
190: THEN
191: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_MEL_CDL_SRURG_INV');
192: FND_MESSAGE.SET_TOKEN('SRNAME', p_x_repair_category_tbl(i).incident_urgency_name);
193: FND_MSG_PUB.ADD;
194: END IF;
195: CLOSE get_srurg_id_from_name;
188: FETCH get_srurg_id_from_name INTO p_x_repair_category_tbl(i).incident_urgency_id;
189: IF (get_srurg_id_from_name%NOTFOUND)
190: THEN
191: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_MEL_CDL_SRURG_INV');
192: FND_MESSAGE.SET_TOKEN('SRNAME', p_x_repair_category_tbl(i).incident_urgency_name);
193: FND_MSG_PUB.ADD;
194: END IF;
195: CLOSE get_srurg_id_from_name;
196: ELSIF (p_x_repair_category_tbl(i).incident_urgency_id IS NOT NULL AND p_x_repair_category_tbl(i).incident_urgency_id <> FND_API.G_MISS_NUM)
198: OPEN check_srurg_exists (p_x_repair_category_tbl(i).incident_urgency_id);
199: FETCH check_srurg_exists INTO p_x_repair_category_tbl(i).incident_urgency_name;
200: IF (check_srurg_exists%NOTFOUND)
201: THEN
202: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_MEL_CDL_SRURG_INV');
203: FND_MESSAGE.SET_TOKEN('SRNAME', p_x_repair_category_tbl(i).incident_urgency_id);
204: FND_MSG_PUB.ADD;
205: RAISE FND_API.G_EXC_ERROR;
206: END IF;
199: FETCH check_srurg_exists INTO p_x_repair_category_tbl(i).incident_urgency_name;
200: IF (check_srurg_exists%NOTFOUND)
201: THEN
202: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_MEL_CDL_SRURG_INV');
203: FND_MESSAGE.SET_TOKEN('SRNAME', p_x_repair_category_tbl(i).incident_urgency_id);
204: FND_MSG_PUB.ADD;
205: RAISE FND_API.G_EXC_ERROR;
206: END IF;
207: CLOSE check_srurg_exists;
205: RAISE FND_API.G_EXC_ERROR;
206: END IF;
207: CLOSE check_srurg_exists;
208: ELSE
209: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_MEL_CDL_SRURG_MAND');
210: FND_MSG_PUB.ADD;
211: END IF;
212:
213: -- Trim the urgency name passed in
217: OPEN check_srurg_chg_for_upd (p_x_repair_category_tbl(i).repair_category_id, p_x_repair_category_tbl(i).incident_urgency_id);
218: FETCH check_srurg_chg_for_upd INTO l_dummy_varchar;
219: IF (check_srurg_chg_for_upd%NOTFOUND)
220: THEN
221: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_SRURG_UPD_NOCHG');
222: FND_MESSAGE.SET_TOKEN('SRNAME', p_x_repair_category_tbl(i).incident_urgency_name);
223: FND_MSG_PUB.ADD;
224: END IF;
225: CLOSE check_srurg_chg_for_upd;
218: FETCH check_srurg_chg_for_upd INTO l_dummy_varchar;
219: IF (check_srurg_chg_for_upd%NOTFOUND)
220: THEN
221: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_SRURG_UPD_NOCHG');
222: FND_MESSAGE.SET_TOKEN('SRNAME', p_x_repair_category_tbl(i).incident_urgency_name);
223: FND_MSG_PUB.ADD;
224: END IF;
225: CLOSE check_srurg_chg_for_upd;
226:
226:
227: -- Validate repair time is valid
228: IF (p_x_repair_category_tbl(i).repair_time <= 0 )
229: THEN
230: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_MEL_CDL_SRURG_TIME_INV');
231: FND_MESSAGE.SET_TOKEN('SRNAME', p_x_repair_category_tbl(i).incident_urgency_name);
232: FND_MSG_PUB.ADD;
233: END IF;
234:
227: -- Validate repair time is valid
228: IF (p_x_repair_category_tbl(i).repair_time <= 0 )
229: THEN
230: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_MEL_CDL_SRURG_TIME_INV');
231: FND_MESSAGE.SET_TOKEN('SRNAME', p_x_repair_category_tbl(i).incident_urgency_name);
232: FND_MSG_PUB.ADD;
233: END IF;
234:
235: -- Validate repair time already does not exist for another record
236: OPEN check_reptime_exists(p_x_repair_category_tbl(i).repair_time, p_x_repair_category_tbl(i).repair_category_id);
237: FETCH check_reptime_exists INTO l_dummy_varchar;
238: IF (check_reptime_exists%FOUND)
239: THEN
240: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_SRURG_TIME_EXISTS');
241: FND_MESSAGE.SET_TOKEN('TIME', p_x_repair_category_tbl(i).repair_time);
242: FND_MSG_PUB.ADD;
243: END IF;
244: CLOSE check_reptime_exists;
237: FETCH check_reptime_exists INTO l_dummy_varchar;
238: IF (check_reptime_exists%FOUND)
239: THEN
240: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_SRURG_TIME_EXISTS');
241: FND_MESSAGE.SET_TOKEN('TIME', p_x_repair_category_tbl(i).repair_time);
242: FND_MSG_PUB.ADD;
243: END IF;
244: CLOSE check_reptime_exists;
245:
302: OPEN get_srurg_id_from_name (p_x_repair_category_tbl(i).incident_urgency_name);
303: FETCH get_srurg_id_from_name INTO p_x_repair_category_tbl(i).incident_urgency_id;
304: IF (get_srurg_id_from_name%NOTFOUND)
305: THEN
306: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_MEL_CDL_SRURG_INV');
307: FND_MESSAGE.SET_TOKEN('SRNAME', p_x_repair_category_tbl(i).incident_urgency_name);
308: FND_MSG_PUB.ADD;
309: END IF;
310: CLOSE get_srurg_id_from_name;
303: FETCH get_srurg_id_from_name INTO p_x_repair_category_tbl(i).incident_urgency_id;
304: IF (get_srurg_id_from_name%NOTFOUND)
305: THEN
306: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_MEL_CDL_SRURG_INV');
307: FND_MESSAGE.SET_TOKEN('SRNAME', p_x_repair_category_tbl(i).incident_urgency_name);
308: FND_MSG_PUB.ADD;
309: END IF;
310: CLOSE get_srurg_id_from_name;
311: ELSIF (p_x_repair_category_tbl(i).incident_urgency_id IS NOT NULL AND p_x_repair_category_tbl(i).incident_urgency_id <> FND_API.G_MISS_NUM)
313: OPEN check_srurg_exists (p_x_repair_category_tbl(i).incident_urgency_id);
314: FETCH check_srurg_exists INTO p_x_repair_category_tbl(i).incident_urgency_name;
315: IF (check_srurg_exists%NOTFOUND)
316: THEN
317: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_MEL_CDL_SRURG_INV');
318: FND_MESSAGE.SET_TOKEN('SRNAME', p_x_repair_category_tbl(i).incident_urgency_id);
319: FND_MSG_PUB.ADD;
320: RAISE FND_API.G_EXC_ERROR;
321: END IF;
314: FETCH check_srurg_exists INTO p_x_repair_category_tbl(i).incident_urgency_name;
315: IF (check_srurg_exists%NOTFOUND)
316: THEN
317: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_MEL_CDL_SRURG_INV');
318: FND_MESSAGE.SET_TOKEN('SRNAME', p_x_repair_category_tbl(i).incident_urgency_id);
319: FND_MSG_PUB.ADD;
320: RAISE FND_API.G_EXC_ERROR;
321: END IF;
322: CLOSE check_srurg_exists;
320: RAISE FND_API.G_EXC_ERROR;
321: END IF;
322: CLOSE check_srurg_exists;
323: ELSE
324: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_MEL_CDL_SRURG_MAND');
325: FND_MSG_PUB.ADD;
326: END IF;
327:
328: -- Trim the urgency name passed in
332: OPEN check_repcat_exists(p_x_repair_category_tbl(i).incident_urgency_id);
333: FETCH check_repcat_exists INTO l_dummy_varchar;
334: IF (check_repcat_exists%FOUND)
335: THEN
336: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_SRURG_EXISTS');
337: FND_MESSAGE.SET_TOKEN('SRNAME', p_x_repair_category_tbl(i).incident_urgency_name);
338: FND_MSG_PUB.ADD;
339: END IF;
340: CLOSE check_repcat_exists;
333: FETCH check_repcat_exists INTO l_dummy_varchar;
334: IF (check_repcat_exists%FOUND)
335: THEN
336: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_SRURG_EXISTS');
337: FND_MESSAGE.SET_TOKEN('SRNAME', p_x_repair_category_tbl(i).incident_urgency_name);
338: FND_MSG_PUB.ADD;
339: END IF;
340: CLOSE check_repcat_exists;
341:
341:
342: -- Validate repair time is valid
343: IF (p_x_repair_category_tbl(i).repair_time <= 0 )
344: THEN
345: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_MEL_CDL_SRURG_TIME_INV');
346: FND_MESSAGE.SET_TOKEN('SRNAME', p_x_repair_category_tbl(i).incident_urgency_name);
347: FND_MSG_PUB.ADD;
348: END IF;
349:
342: -- Validate repair time is valid
343: IF (p_x_repair_category_tbl(i).repair_time <= 0 )
344: THEN
345: FND_MESSAGE.Set_Name(G_APP_NAME, 'AHL_MEL_CDL_SRURG_TIME_INV');
346: FND_MESSAGE.SET_TOKEN('SRNAME', p_x_repair_category_tbl(i).incident_urgency_name);
347: FND_MSG_PUB.ADD;
348: END IF;
349:
350: -- Validate repair time already does not exist for another record
351: OPEN check_reptime_exists(p_x_repair_category_tbl(i).repair_time, null);
352: FETCH check_reptime_exists INTO l_dummy_varchar;
353: IF (check_reptime_exists%FOUND)
354: THEN
355: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_SRURG_TIME_EXISTS');
356: FND_MESSAGE.SET_TOKEN('TIME', p_x_repair_category_tbl(i).repair_time);
357: FND_MSG_PUB.ADD;
358: END IF;
359: CLOSE check_reptime_exists;
352: FETCH check_reptime_exists INTO l_dummy_varchar;
353: IF (check_reptime_exists%FOUND)
354: THEN
355: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_SRURG_TIME_EXISTS');
356: FND_MESSAGE.SET_TOKEN('TIME', p_x_repair_category_tbl(i).repair_time);
357: FND_MSG_PUB.ADD;
358: END IF;
359: CLOSE check_reptime_exists;
360:
530:
531: IF (check_rep_cat_exists%NOTFOUND)
532: THEN
533: CLOSE check_rep_cat_exists;
534: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_REPCAT_NOTFOUND');
535: FND_MSG_PUB.ADD;
536: RAISE FND_API.G_EXC_ERROR;
537: ELSIF (p_object_ver_num <> l_dummy_number)
538: THEN
536: RAISE FND_API.G_EXC_ERROR;
537: ELSIF (p_object_ver_num <> l_dummy_number)
538: THEN
539: CLOSE check_rep_cat_exists;
540: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_COM_RECORD_CHANGED');
541: FND_MSG_PUB.ADD;
542: RAISE FND_API.G_EXC_ERROR;
543: END IF;
544: CLOSE check_rep_cat_exists;