174:
175: -- Verify DML operation flag is right...
176: IF (p_x_ata_sequences_tbl(l_rec_idx).dml_operation NOT IN ('C', 'U', 'D'))
177: THEN
178: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_COM_INVALID_DML_REC');
179: -- Invalid DML operation FIELD specified
180: FND_MESSAGE.SET_TOKEN('FIELD', p_x_ata_sequences_tbl(l_rec_idx).dml_operation);
181: FND_MSG_PUB.ADD;
182: RAISE FND_API.G_EXC_ERROR;
176: IF (p_x_ata_sequences_tbl(l_rec_idx).dml_operation NOT IN ('C', 'U', 'D'))
177: THEN
178: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_COM_INVALID_DML_REC');
179: -- Invalid DML operation FIELD specified
180: FND_MESSAGE.SET_TOKEN('FIELD', p_x_ata_sequences_tbl(l_rec_idx).dml_operation);
181: FND_MSG_PUB.ADD;
182: RAISE FND_API.G_EXC_ERROR;
183: END IF;
184:
263: CLOSE get_ata_details;
264:
265: IF (l_ata_code <> p_x_ata_sequences_tbl(l_rec_idx).ata_code)
266: THEN
267: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_ATA_CHG_UPD');
268: -- Cannot modify System Sequence from "OLDATA" to "ATA" for existing record
269: FND_MESSAGE.SET_TOKEN('OLDATA', l_ata_code);
270: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
271: FND_MSG_PUB.ADD;
265: IF (l_ata_code <> p_x_ata_sequences_tbl(l_rec_idx).ata_code)
266: THEN
267: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_ATA_CHG_UPD');
268: -- Cannot modify System Sequence from "OLDATA" to "ATA" for existing record
269: FND_MESSAGE.SET_TOKEN('OLDATA', l_ata_code);
270: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
271: FND_MSG_PUB.ADD;
272: RAISE FND_API.G_EXC_ERROR;
273: END IF;
266: THEN
267: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_ATA_CHG_UPD');
268: -- Cannot modify System Sequence from "OLDATA" to "ATA" for existing record
269: FND_MESSAGE.SET_TOKEN('OLDATA', l_ata_code);
270: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
271: FND_MSG_PUB.ADD;
272: RAISE FND_API.G_EXC_ERROR;
273: END IF;
274: END IF;
279: --amsriniv. Bug 6659422
280: /*
281: IF (p_x_ata_sequences_tbl(l_rec_idx).installed_number IS NULL OR p_x_ata_sequences_tbl(l_rec_idx).installed_number = FND_API.G_MISS_NUM)
282: THEN
283: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_INST_NUM_MAND');
284: -- Installed Number for System Sequence "ATA" is invalid
285: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
286: FND_MSG_PUB.ADD;
287: END IF;
281: IF (p_x_ata_sequences_tbl(l_rec_idx).installed_number IS NULL OR p_x_ata_sequences_tbl(l_rec_idx).installed_number = FND_API.G_MISS_NUM)
282: THEN
283: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_INST_NUM_MAND');
284: -- Installed Number for System Sequence "ATA" is invalid
285: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
286: FND_MSG_PUB.ADD;
287: END IF;
288:
289: IF (p_x_ata_sequences_tbl(l_rec_idx).dispatch_number IS NULL OR p_x_ata_sequences_tbl(l_rec_idx).dispatch_number = FND_API.G_MISS_NUM)
287: END IF;
288:
289: IF (p_x_ata_sequences_tbl(l_rec_idx).dispatch_number IS NULL OR p_x_ata_sequences_tbl(l_rec_idx).dispatch_number = FND_API.G_MISS_NUM)
290: THEN
291: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_DISP_NUM_MAND');
292: -- Dispatch Number for System Sequence "ATA" is invalid
293: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
294: FND_MSG_PUB.ADD;
295: END IF;
289: IF (p_x_ata_sequences_tbl(l_rec_idx).dispatch_number IS NULL OR p_x_ata_sequences_tbl(l_rec_idx).dispatch_number = FND_API.G_MISS_NUM)
290: THEN
291: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_DISP_NUM_MAND');
292: -- Dispatch Number for System Sequence "ATA" is invalid
293: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
294: FND_MSG_PUB.ADD;
295: END IF;
296: */
297: IF ((p_x_ata_sequences_tbl(l_rec_idx).dispatch_number IS NOT NULL
298: AND p_x_ata_sequences_tbl(l_rec_idx).dispatch_number < 0)
299: OR (p_x_ata_sequences_tbl(l_rec_idx).installed_number IS NOT NULL
300: AND p_x_ata_sequences_tbl(l_rec_idx).installed_number < 0))
301: THEN
302: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_DISP_INST_LESS_0');
303: -- Both Dispatch Number "DISP" and Installed Number "INST" for System Sequence "ATA" should be positive integers
304: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
305: FND_MESSAGE.SET_TOKEN('DISP', p_x_ata_sequences_tbl(l_rec_idx).dispatch_number);
306: FND_MESSAGE.SET_TOKEN('INST', p_x_ata_sequences_tbl(l_rec_idx).installed_number);
300: AND p_x_ata_sequences_tbl(l_rec_idx).installed_number < 0))
301: THEN
302: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_DISP_INST_LESS_0');
303: -- Both Dispatch Number "DISP" and Installed Number "INST" for System Sequence "ATA" should be positive integers
304: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
305: FND_MESSAGE.SET_TOKEN('DISP', p_x_ata_sequences_tbl(l_rec_idx).dispatch_number);
306: FND_MESSAGE.SET_TOKEN('INST', p_x_ata_sequences_tbl(l_rec_idx).installed_number);
307: FND_MSG_PUB.ADD;
308: END IF;
301: THEN
302: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_DISP_INST_LESS_0');
303: -- Both Dispatch Number "DISP" and Installed Number "INST" for System Sequence "ATA" should be positive integers
304: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
305: FND_MESSAGE.SET_TOKEN('DISP', p_x_ata_sequences_tbl(l_rec_idx).dispatch_number);
306: FND_MESSAGE.SET_TOKEN('INST', p_x_ata_sequences_tbl(l_rec_idx).installed_number);
307: FND_MSG_PUB.ADD;
308: END IF;
309:
302: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_DISP_INST_LESS_0');
303: -- Both Dispatch Number "DISP" and Installed Number "INST" for System Sequence "ATA" should be positive integers
304: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
305: FND_MESSAGE.SET_TOKEN('DISP', p_x_ata_sequences_tbl(l_rec_idx).dispatch_number);
306: FND_MESSAGE.SET_TOKEN('INST', p_x_ata_sequences_tbl(l_rec_idx).installed_number);
307: FND_MSG_PUB.ADD;
308: END IF;
309:
310: IF (p_x_ata_sequences_tbl(l_rec_idx).dispatch_number IS NOT NULL AND
310: IF (p_x_ata_sequences_tbl(l_rec_idx).dispatch_number IS NOT NULL AND
311: p_x_ata_sequences_tbl(l_rec_idx).installed_number IS NOT NULL AND
312: p_x_ata_sequences_tbl(l_rec_idx).dispatch_number > p_x_ata_sequences_tbl(l_rec_idx).installed_number)
313: THEN
314: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_DISP_MORE_INST');
315: -- Dispatch Number "DISP" for System Sequence "ATA" should be less than Installed Number "INST"
316: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
317: FND_MESSAGE.SET_TOKEN('DISP', p_x_ata_sequences_tbl(l_rec_idx).dispatch_number);
318: FND_MESSAGE.SET_TOKEN('INST', p_x_ata_sequences_tbl(l_rec_idx).installed_number);
312: p_x_ata_sequences_tbl(l_rec_idx).dispatch_number > p_x_ata_sequences_tbl(l_rec_idx).installed_number)
313: THEN
314: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_DISP_MORE_INST');
315: -- Dispatch Number "DISP" for System Sequence "ATA" should be less than Installed Number "INST"
316: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
317: FND_MESSAGE.SET_TOKEN('DISP', p_x_ata_sequences_tbl(l_rec_idx).dispatch_number);
318: FND_MESSAGE.SET_TOKEN('INST', p_x_ata_sequences_tbl(l_rec_idx).installed_number);
319: FND_MSG_PUB.ADD;
320: END IF;
313: THEN
314: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_DISP_MORE_INST');
315: -- Dispatch Number "DISP" for System Sequence "ATA" should be less than Installed Number "INST"
316: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
317: FND_MESSAGE.SET_TOKEN('DISP', p_x_ata_sequences_tbl(l_rec_idx).dispatch_number);
318: FND_MESSAGE.SET_TOKEN('INST', p_x_ata_sequences_tbl(l_rec_idx).installed_number);
319: FND_MSG_PUB.ADD;
320: END IF;
321: -- Fix for Bug# 8591484 Start
314: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_DISP_MORE_INST');
315: -- Dispatch Number "DISP" for System Sequence "ATA" should be less than Installed Number "INST"
316: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
317: FND_MESSAGE.SET_TOKEN('DISP', p_x_ata_sequences_tbl(l_rec_idx).dispatch_number);
318: FND_MESSAGE.SET_TOKEN('INST', p_x_ata_sequences_tbl(l_rec_idx).installed_number);
319: FND_MSG_PUB.ADD;
320: END IF;
321: -- Fix for Bug# 8591484 Start
322: /*
322: /*
323: IF (p_x_ata_sequences_tbl(l_rec_idx).dispatch_number IS NOT NULL AND
324: p_x_ata_sequences_tbl(l_rec_idx).installed_number IS NULL)
325: THEN
326: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_INST_MISSING');
327: -- Installed Number should be entered when Required(Dispatch) Number is entered.
328: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
329: FND_MESSAGE.SET_TOKEN('DISP', p_x_ata_sequences_tbl(l_rec_idx).dispatch_number);
330: FND_MESSAGE.SET_TOKEN('INST', p_x_ata_sequences_tbl(l_rec_idx).installed_number);
324: p_x_ata_sequences_tbl(l_rec_idx).installed_number IS NULL)
325: THEN
326: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_INST_MISSING');
327: -- Installed Number should be entered when Required(Dispatch) Number is entered.
328: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
329: FND_MESSAGE.SET_TOKEN('DISP', p_x_ata_sequences_tbl(l_rec_idx).dispatch_number);
330: FND_MESSAGE.SET_TOKEN('INST', p_x_ata_sequences_tbl(l_rec_idx).installed_number);
331: FND_MSG_PUB.ADD;
332: END IF;
325: THEN
326: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_INST_MISSING');
327: -- Installed Number should be entered when Required(Dispatch) Number is entered.
328: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
329: FND_MESSAGE.SET_TOKEN('DISP', p_x_ata_sequences_tbl(l_rec_idx).dispatch_number);
330: FND_MESSAGE.SET_TOKEN('INST', p_x_ata_sequences_tbl(l_rec_idx).installed_number);
331: FND_MSG_PUB.ADD;
332: END IF;
333: */
326: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_INST_MISSING');
327: -- Installed Number should be entered when Required(Dispatch) Number is entered.
328: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
329: FND_MESSAGE.SET_TOKEN('DISP', p_x_ata_sequences_tbl(l_rec_idx).dispatch_number);
330: FND_MESSAGE.SET_TOKEN('INST', p_x_ata_sequences_tbl(l_rec_idx).installed_number);
331: FND_MSG_PUB.ADD;
332: END IF;
333: */
334: -- Fix for Bug# 8591484 End
529: --amsriniv. Bug 6659422
530: /*
531: IF (p_x_ata_sequences_tbl(l_rec_idx).installed_number IS NULL OR p_x_ata_sequences_tbl(l_rec_idx).installed_number = FND_API.G_MISS_NUM)
532: THEN
533: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_INST_NUM_MAND');
534: -- Installed Number for System Sequence "ATA" is invalid
535: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
536: FND_MSG_PUB.ADD;
537: END IF;
531: IF (p_x_ata_sequences_tbl(l_rec_idx).installed_number IS NULL OR p_x_ata_sequences_tbl(l_rec_idx).installed_number = FND_API.G_MISS_NUM)
532: THEN
533: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_INST_NUM_MAND');
534: -- Installed Number for System Sequence "ATA" is invalid
535: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
536: FND_MSG_PUB.ADD;
537: END IF;
538:
539: IF (p_x_ata_sequences_tbl(l_rec_idx).dispatch_number IS NULL OR p_x_ata_sequences_tbl(l_rec_idx).dispatch_number = FND_API.G_MISS_NUM)
537: END IF;
538:
539: IF (p_x_ata_sequences_tbl(l_rec_idx).dispatch_number IS NULL OR p_x_ata_sequences_tbl(l_rec_idx).dispatch_number = FND_API.G_MISS_NUM)
540: THEN
541: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_DISP_NUM_MAND');
542: -- Dispatch Number for System Sequence "ATA" is invalid
543: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
544: FND_MSG_PUB.ADD;
545: END IF;
539: IF (p_x_ata_sequences_tbl(l_rec_idx).dispatch_number IS NULL OR p_x_ata_sequences_tbl(l_rec_idx).dispatch_number = FND_API.G_MISS_NUM)
540: THEN
541: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_DISP_NUM_MAND');
542: -- Dispatch Number for System Sequence "ATA" is invalid
543: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
544: FND_MSG_PUB.ADD;
545: END IF;
546: */
547: IF ((p_x_ata_sequences_tbl(l_rec_idx).dispatch_number IS NOT NULL AND
548: p_x_ata_sequences_tbl(l_rec_idx).dispatch_number < 0) OR
549: (p_x_ata_sequences_tbl(l_rec_idx).installed_number IS NOT NULL
550: AND p_x_ata_sequences_tbl(l_rec_idx).installed_number < 0))
551: THEN
552: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_DISP_INST_LESS_0');
553: -- Both Dispatch Number "DISP" and Installed Number "INST" for System Sequence "ATA" should be positive integers
554: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
555: FND_MESSAGE.SET_TOKEN('DISP', p_x_ata_sequences_tbl(l_rec_idx).dispatch_number);
556: FND_MESSAGE.SET_TOKEN('INST', p_x_ata_sequences_tbl(l_rec_idx).installed_number);
550: AND p_x_ata_sequences_tbl(l_rec_idx).installed_number < 0))
551: THEN
552: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_DISP_INST_LESS_0');
553: -- Both Dispatch Number "DISP" and Installed Number "INST" for System Sequence "ATA" should be positive integers
554: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
555: FND_MESSAGE.SET_TOKEN('DISP', p_x_ata_sequences_tbl(l_rec_idx).dispatch_number);
556: FND_MESSAGE.SET_TOKEN('INST', p_x_ata_sequences_tbl(l_rec_idx).installed_number);
557: FND_MSG_PUB.ADD;
558: END IF;
551: THEN
552: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_DISP_INST_LESS_0');
553: -- Both Dispatch Number "DISP" and Installed Number "INST" for System Sequence "ATA" should be positive integers
554: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
555: FND_MESSAGE.SET_TOKEN('DISP', p_x_ata_sequences_tbl(l_rec_idx).dispatch_number);
556: FND_MESSAGE.SET_TOKEN('INST', p_x_ata_sequences_tbl(l_rec_idx).installed_number);
557: FND_MSG_PUB.ADD;
558: END IF;
559:
552: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_DISP_INST_LESS_0');
553: -- Both Dispatch Number "DISP" and Installed Number "INST" for System Sequence "ATA" should be positive integers
554: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
555: FND_MESSAGE.SET_TOKEN('DISP', p_x_ata_sequences_tbl(l_rec_idx).dispatch_number);
556: FND_MESSAGE.SET_TOKEN('INST', p_x_ata_sequences_tbl(l_rec_idx).installed_number);
557: FND_MSG_PUB.ADD;
558: END IF;
559:
560: IF (p_x_ata_sequences_tbl(l_rec_idx).dispatch_number IS NOT NULL AND
560: IF (p_x_ata_sequences_tbl(l_rec_idx).dispatch_number IS NOT NULL AND
561: p_x_ata_sequences_tbl(l_rec_idx).installed_number IS NOT NULL AND
562: p_x_ata_sequences_tbl(l_rec_idx).dispatch_number > p_x_ata_sequences_tbl(l_rec_idx).installed_number)
563: THEN
564: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_DISP_MORE_INST');
565: -- Dispatch Number "DISP" for System Sequence "ATA" should be less than Installed Number "INST"
566: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
567: FND_MESSAGE.SET_TOKEN('DISP', p_x_ata_sequences_tbl(l_rec_idx).dispatch_number);
568: FND_MESSAGE.SET_TOKEN('INST', p_x_ata_sequences_tbl(l_rec_idx).installed_number);
562: p_x_ata_sequences_tbl(l_rec_idx).dispatch_number > p_x_ata_sequences_tbl(l_rec_idx).installed_number)
563: THEN
564: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_DISP_MORE_INST');
565: -- Dispatch Number "DISP" for System Sequence "ATA" should be less than Installed Number "INST"
566: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
567: FND_MESSAGE.SET_TOKEN('DISP', p_x_ata_sequences_tbl(l_rec_idx).dispatch_number);
568: FND_MESSAGE.SET_TOKEN('INST', p_x_ata_sequences_tbl(l_rec_idx).installed_number);
569: FND_MSG_PUB.ADD;
570: END IF;
563: THEN
564: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_DISP_MORE_INST');
565: -- Dispatch Number "DISP" for System Sequence "ATA" should be less than Installed Number "INST"
566: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
567: FND_MESSAGE.SET_TOKEN('DISP', p_x_ata_sequences_tbl(l_rec_idx).dispatch_number);
568: FND_MESSAGE.SET_TOKEN('INST', p_x_ata_sequences_tbl(l_rec_idx).installed_number);
569: FND_MSG_PUB.ADD;
570: END IF;
571: -- Fix for Bug# 8591484 Start
564: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_DISP_MORE_INST');
565: -- Dispatch Number "DISP" for System Sequence "ATA" should be less than Installed Number "INST"
566: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
567: FND_MESSAGE.SET_TOKEN('DISP', p_x_ata_sequences_tbl(l_rec_idx).dispatch_number);
568: FND_MESSAGE.SET_TOKEN('INST', p_x_ata_sequences_tbl(l_rec_idx).installed_number);
569: FND_MSG_PUB.ADD;
570: END IF;
571: -- Fix for Bug# 8591484 Start
572: /*
572: /*
573: IF (p_x_ata_sequences_tbl(l_rec_idx).dispatch_number IS NOT NULL AND
574: p_x_ata_sequences_tbl(l_rec_idx).installed_number IS NULL)
575: THEN
576: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_INST_MISSING');
577: -- Installed Number should be entered when Required(Dispatch) Number is entered.
578: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
579: FND_MESSAGE.SET_TOKEN('DISP', p_x_ata_sequences_tbl(l_rec_idx).dispatch_number);
580: FND_MESSAGE.SET_TOKEN('INST', p_x_ata_sequences_tbl(l_rec_idx).installed_number);
574: p_x_ata_sequences_tbl(l_rec_idx).installed_number IS NULL)
575: THEN
576: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_INST_MISSING');
577: -- Installed Number should be entered when Required(Dispatch) Number is entered.
578: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
579: FND_MESSAGE.SET_TOKEN('DISP', p_x_ata_sequences_tbl(l_rec_idx).dispatch_number);
580: FND_MESSAGE.SET_TOKEN('INST', p_x_ata_sequences_tbl(l_rec_idx).installed_number);
581: FND_MSG_PUB.ADD;
582: END IF;
575: THEN
576: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_INST_MISSING');
577: -- Installed Number should be entered when Required(Dispatch) Number is entered.
578: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
579: FND_MESSAGE.SET_TOKEN('DISP', p_x_ata_sequences_tbl(l_rec_idx).dispatch_number);
580: FND_MESSAGE.SET_TOKEN('INST', p_x_ata_sequences_tbl(l_rec_idx).installed_number);
581: FND_MSG_PUB.ADD;
582: END IF;
583: */
576: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_INST_MISSING');
577: -- Installed Number should be entered when Required(Dispatch) Number is entered.
578: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
579: FND_MESSAGE.SET_TOKEN('DISP', p_x_ata_sequences_tbl(l_rec_idx).dispatch_number);
580: FND_MESSAGE.SET_TOKEN('INST', p_x_ata_sequences_tbl(l_rec_idx).installed_number);
581: FND_MSG_PUB.ADD;
582: END IF;
583: */
584: -- Fix for Bug# 8591484 End
589: OPEN check_ata_unique(p_x_ata_sequences_tbl(l_rec_idx).mel_cdl_header_id, p_x_ata_sequences_tbl(l_rec_idx).ata_code);
590: FETCH check_ata_unique INTO l_dummy_varchar;
591: IF (check_ata_unique%FOUND)
592: THEN
593: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_ATA_EXISTS');
594: -- System Sequence "ATA" is already associated with the MEL/CDL
595: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
596: FND_MSG_PUB.ADD;
597: END IF;
591: IF (check_ata_unique%FOUND)
592: THEN
593: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_ATA_EXISTS');
594: -- System Sequence "ATA" is already associated with the MEL/CDL
595: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_tbl(l_rec_idx).ata_code);
596: FND_MSG_PUB.ADD;
597: END IF;
598: CLOSE check_ata_unique;
599:
958:
959: -- Verify DML operation flag is right...
960: IF (p_x_mo_procedures_tbl(l_rec_idx).dml_operation NOT IN ( 'C', 'D'))
961: THEN
962: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_COM_INVALID_DML_REC');
963: -- Invalid DML operation FIELD specified
964: FND_MESSAGE.SET_TOKEN('FIELD', p_x_mo_procedures_tbl(l_rec_idx).dml_operation);
965: FND_MSG_PUB.ADD;
966: RAISE FND_API.G_EXC_ERROR;
960: IF (p_x_mo_procedures_tbl(l_rec_idx).dml_operation NOT IN ( 'C', 'D'))
961: THEN
962: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_COM_INVALID_DML_REC');
963: -- Invalid DML operation FIELD specified
964: FND_MESSAGE.SET_TOKEN('FIELD', p_x_mo_procedures_tbl(l_rec_idx).dml_operation);
965: FND_MSG_PUB.ADD;
966: RAISE FND_API.G_EXC_ERROR;
967: END IF;
968:
992: FETCH validate_mr_header_id INTO l_dummy_varchar;
993:
994: IF (validate_mr_header_id%NOTFOUND)
995: THEN
996: FND_MESSAGE.Set_Name('AHL','AHL_MEL_CDL_MO_MR_NOTMO_INV');
997: FND_MESSAGE.SET_TOKEN('MRTITLE',p_x_mo_procedures_tbl(l_rec_idx).mr_title);
998: FND_MSG_PUB.ADD;
999: END IF;
1000: CLOSE validate_mr_header_id;
993:
994: IF (validate_mr_header_id%NOTFOUND)
995: THEN
996: FND_MESSAGE.Set_Name('AHL','AHL_MEL_CDL_MO_MR_NOTMO_INV');
997: FND_MESSAGE.SET_TOKEN('MRTITLE',p_x_mo_procedures_tbl(l_rec_idx).mr_title);
998: FND_MSG_PUB.ADD;
999: END IF;
1000: CLOSE validate_mr_header_id;
1001:
1004: FETCH validate_mr_header_status INTO l_status;
1005:
1006: IF (validate_mr_header_status%NOTFOUND)
1007: THEN
1008: FND_MESSAGE.Set_Name('AHL','AHL_MEL_CDL_MO_STATUS_INV');
1009: FND_MESSAGE.SET_TOKEN('MRTITLE',p_x_mo_procedures_tbl(l_rec_idx).mr_title);
1010: FND_MSG_PUB.ADD;
1011: END IF;
1012: CLOSE validate_mr_header_status;
1005:
1006: IF (validate_mr_header_status%NOTFOUND)
1007: THEN
1008: FND_MESSAGE.Set_Name('AHL','AHL_MEL_CDL_MO_STATUS_INV');
1009: FND_MESSAGE.SET_TOKEN('MRTITLE',p_x_mo_procedures_tbl(l_rec_idx).mr_title);
1010: FND_MSG_PUB.ADD;
1011: END IF;
1012: CLOSE validate_mr_header_status;
1013:
1014: ELSIF (p_x_mo_procedures_tbl(l_rec_idx).mr_header_id IS NULL or p_x_mo_procedures_tbl(l_rec_idx).mr_header_id = FND_API.G_MISS_NUM)
1015: THEN
1016: IF (p_x_mo_procedures_tbl(l_rec_idx).mr_title IS NULL OR p_x_mo_procedures_tbl(l_rec_idx).mr_version_number IS NULL )
1017: THEN
1018: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_MO_MR_MAND');
1019: FND_MSG_PUB.ADD;
1020: ELSE
1021: --Get Mr Header Id using the Title and Version Number
1022: OPEN get_mr_header_id ( p_x_mo_procedures_tbl(l_rec_idx).mr_title, p_x_mo_procedures_tbl(l_rec_idx).mr_version_number );
1023: FETCH get_mr_header_id INTO p_x_mo_procedures_tbl(l_rec_idx).mr_header_id;
1024:
1025: IF (get_mr_header_id%NOTFOUND)
1026: THEN
1027: FND_MESSAGE.Set_Name('AHL','AHL_MEL_CDL_MO_INV');
1028: FND_MESSAGE.SET_TOKEN('MRTITLE',p_x_mo_procedures_tbl(l_rec_idx).mr_title);
1029: FND_MSG_PUB.ADD;
1030: END IF;
1031: CLOSE get_mr_header_id;
1024:
1025: IF (get_mr_header_id%NOTFOUND)
1026: THEN
1027: FND_MESSAGE.Set_Name('AHL','AHL_MEL_CDL_MO_INV');
1028: FND_MESSAGE.SET_TOKEN('MRTITLE',p_x_mo_procedures_tbl(l_rec_idx).mr_title);
1029: FND_MSG_PUB.ADD;
1030: END IF;
1031: CLOSE get_mr_header_id;
1032: END IF;
1040: FETCH validate_ata_seq INTO l_dummy_varchar;
1041:
1042: IF(validate_ata_seq%NOTFOUND)
1043: THEN
1044: FND_MESSAGE.Set_Name('AHL','AHL_MEL_CDL_ATA_INV');
1045: FND_MSG_PUB.ADD;
1046: END IF;
1047: CLOSE validate_ata_seq;
1048:
1052: CLOSE val_mel_cdl_status;
1053:
1054: IF (l_status NOT IN ('DRAFT', 'APPROVAL_REJECTED'))
1055: THEN
1056: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_UPDATA_STS_INV');
1057: -- Cannot process if MEL/CDL is not in draft or approval rejected status
1058: FND_MSG_PUB.ADD;
1059: RAISE FND_API.G_EXC_ERROR;
1060: END IF;
1071: AND mr_header_id = p_x_mo_procedures_tbl(l_rec_idx).mr_header_id);
1072:
1073: EXCEPTION
1074: WHEN NO_DATA_FOUND THEN
1075: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_MO_EXISTS');
1076: -- MO Proc Assocaition Already Exists for the ATA Seq
1077: FND_MESSAGE.SET_TOKEN('MRTitle', p_x_mo_procedures_tbl(l_rec_idx).mr_title);
1078: FND_MSG_PUB.ADD;
1079: END;
1073: EXCEPTION
1074: WHEN NO_DATA_FOUND THEN
1075: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_MO_EXISTS');
1076: -- MO Proc Assocaition Already Exists for the ATA Seq
1077: FND_MESSAGE.SET_TOKEN('MRTitle', p_x_mo_procedures_tbl(l_rec_idx).mr_title);
1078: FND_MSG_PUB.ADD;
1079: END;
1080:
1081: -- Check Error Message stack.
1349: -- Verify DML operation flag is right...
1350: IF (p_x_ata_relations_tbl(l_rec_idx).dml_operation NOT IN ( 'C', 'D'))
1351: THEN
1352:
1353: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_COM_INVALID_DML_REC');
1354: -- Invalid DML operation FIELD specified
1355: FND_MESSAGE.SET_TOKEN('FIELD', p_x_ata_relations_tbl(l_rec_idx).dml_operation);
1356: FND_MSG_PUB.ADD;
1357: RAISE FND_API.G_EXC_ERROR;
1351: THEN
1352:
1353: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_COM_INVALID_DML_REC');
1354: -- Invalid DML operation FIELD specified
1355: FND_MESSAGE.SET_TOKEN('FIELD', p_x_ata_relations_tbl(l_rec_idx).dml_operation);
1356: FND_MSG_PUB.ADD;
1357: RAISE FND_API.G_EXC_ERROR;
1358: END IF;
1359:
1389:
1390: --Check if Ata Sequence Id is null , as its a mandatory field
1391: IF (p_x_ata_relations_tbl(l_rec_idx).ata_sequence_id IS NULL)
1392: THEN
1393: FND_MESSAGE.Set_Name('AHL', 'AHL_MEL_CDL_ATA_MAND');
1394: FND_MSG_PUB.ADD;
1395: END IF;
1396:
1397: --Check for the Related Ata Sequence Id, It is also a mandatory Field
1396:
1397: --Check for the Related Ata Sequence Id, It is also a mandatory Field
1398: IF (p_x_ata_relations_tbl(l_rec_idx).related_ata_sequence_id IS NULL)
1399: THEN
1400: FND_MESSAGE.Set_Name('AHL', 'AHL_MEL_CDL_RELN_MAND');
1401: FND_MSG_PUB.ADD;
1402:
1403: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
1404: THEN
1418: FETCH validate_ata_seq INTO l_dummy_varchar;
1419:
1420: IF(validate_ata_seq%NOTFOUND)
1421: THEN
1422: FND_MESSAGE.Set_Name('AHL','AHL_MEL_CDL_ATA_INV');
1423: FND_MSG_PUB.ADD;
1424: END IF;
1425: CLOSE validate_ata_seq;
1426:
1430: CLOSE val_mel_cdl_status;
1431:
1432: IF (l_status NOT IN ('DRAFT', 'APPROVAL_REJECTED'))
1433: THEN
1434: FND_MESSAGE.SET_NAME(G_APP_NAME, ' AHL_MEL_CDL_UPDATA_STS_INV');
1435: -- Cannot process if MEL/CDL is not in draft or approval rejected status
1436: FND_MSG_PUB.ADD;
1437: RAISE FND_API.G_EXC_ERROR;
1438: END IF;
1445: FETCH validate_ata_seq INTO l_dummy_varchar;
1446:
1447: IF(validate_ata_seq%NOTFOUND)
1448: THEN
1449: FND_MESSAGE.Set_Name('AHL','AHL_MEL_CDL_ATA_INV');
1450: FND_MSG_PUB.ADD;
1451: END IF;
1452: CLOSE validate_ata_seq;
1453: END IF;
1472: FETCH Check_Reln_Exists INTO l_dummy_varchar;
1473:
1474: IF (Check_Reln_Exists%FOUND)
1475: THEN
1476: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_RELN_EXISTS');
1477: -- Interrelation alredy Exists for ATA Sequence
1478: FND_MESSAGE.SET_TOKEN('ATA',l_ata_mng);
1479: FND_MSG_PUB.ADD;
1480: END IF;
1474: IF (Check_Reln_Exists%FOUND)
1475: THEN
1476: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_RELN_EXISTS');
1477: -- Interrelation alredy Exists for ATA Sequence
1478: FND_MESSAGE.SET_TOKEN('ATA',l_ata_mng);
1479: FND_MSG_PUB.ADD;
1480: END IF;
1481: CLOSE Check_Reln_Exists;
1482:
1485: FETCH Validate_For_Same_Mel_Cdl INTO l_dummy_varchar;
1486:
1487: IF (Validate_For_Same_Mel_Cdl%NOTFOUND)
1488: THEN
1489: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_RELN_DIFF');
1490: FND_MESSAGE.SET_TOKEN('ATA', l_ata_mng);
1491: FND_MESSAGE.SET_TOKEN('RELATA', l_reln_ata_mng);
1492: FND_MSG_PUB.ADD;
1493: END IF;
1486:
1487: IF (Validate_For_Same_Mel_Cdl%NOTFOUND)
1488: THEN
1489: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_RELN_DIFF');
1490: FND_MESSAGE.SET_TOKEN('ATA', l_ata_mng);
1491: FND_MESSAGE.SET_TOKEN('RELATA', l_reln_ata_mng);
1492: FND_MSG_PUB.ADD;
1493: END IF;
1494: CLOSE Validate_For_Same_Mel_Cdl;
1487: IF (Validate_For_Same_Mel_Cdl%NOTFOUND)
1488: THEN
1489: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_RELN_DIFF');
1490: FND_MESSAGE.SET_TOKEN('ATA', l_ata_mng);
1491: FND_MESSAGE.SET_TOKEN('RELATA', l_reln_ata_mng);
1492: FND_MSG_PUB.ADD;
1493: END IF;
1494: CLOSE Validate_For_Same_Mel_Cdl;
1495:
1500: p_x_ata_relations_tbl(l_rec_idx).ata_sequence_id <> FND_API.G_MISS_NUM AND p_x_ata_relations_tbl(l_rec_idx).related_ata_sequence_id <> FND_API.G_MISS_NUM )
1501: THEN
1502: IF (p_x_ata_relations_tbl(l_rec_idx).ata_sequence_id = p_x_ata_relations_tbl(l_rec_idx).related_ata_sequence_id )
1503: THEN
1504: FND_MESSAGE.Set_Name('AHL','AHL_MEL_CDL_RELN_CYCLIC');
1505: FND_MSG_PUB.ADD;
1506: END IF;
1507:
1508: END IF;
1904: FETCH check_exists INTO l_ovn;
1905: IF (check_exists%NOTFOUND)
1906: THEN
1907: CLOSE check_exists;
1908: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_ATA_NOTFOUND');
1909: -- System Sequence is not found
1910: FND_MSG_PUB.ADD;
1911: RAISE FND_API.G_EXC_ERROR;
1912: ELSE
1912: ELSE
1913: CLOSE check_exists;
1914: IF (l_ovn <> p_ata_object_version)
1915: THEN
1916: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_COM_RECORD_CHANGED');
1917: -- Record has been modified by another user
1918: FND_MSG_PUB.ADD;
1919: RAISE FND_API.G_EXC_ERROR;
1920: END IF;
1953:
1954: -- Convert value-to-id for ata_code
1955: IF (p_x_ata_sequences_rec.ata_code IS NULL OR p_x_ata_sequences_rec.ata_code = FND_API.G_MISS_CHAR)
1956: THEN
1957: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_ATA_MAND');
1958: -- System Sequence is mandatory
1959: FND_MSG_PUB.ADD;
1960: ELSIF NOT (AHL_UTIL_MC_PKG.Validate_Lookup_Code('AHL_ATA_CODE', p_x_ata_sequences_rec.ata_code))
1961: THEN
1958: -- System Sequence is mandatory
1959: FND_MSG_PUB.ADD;
1960: ELSIF NOT (AHL_UTIL_MC_PKG.Validate_Lookup_Code('AHL_ATA_CODE', p_x_ata_sequences_rec.ata_code))
1961: THEN
1962: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_ATA_INV');
1963: -- System Sequence is invalid
1964: FND_MSG_PUB.ADD;
1965: END IF;
1966:
1968: IF (p_x_ata_sequences_rec.repair_category_id IS NULL OR p_x_ata_sequences_rec.repair_category_id = FND_API.G_MISS_NUM)
1969: THEN
1970: IF (p_x_ata_sequences_rec.repair_category_name IS NULL OR p_x_ata_sequences_rec.repair_category_name = FND_API.G_MISS_CHAR)
1971: THEN
1972: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_REPCAT_MAND');
1973: -- Repair Category for System Sequence "ATA" is mandatory
1974: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_rec.ata_code);
1975: FND_MSG_PUB.ADD;
1976: ELSE
1970: IF (p_x_ata_sequences_rec.repair_category_name IS NULL OR p_x_ata_sequences_rec.repair_category_name = FND_API.G_MISS_CHAR)
1971: THEN
1972: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_REPCAT_MAND');
1973: -- Repair Category for System Sequence "ATA" is mandatory
1974: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_rec.ata_code);
1975: FND_MSG_PUB.ADD;
1976: ELSE
1977: OPEN convert_repcat(p_x_ata_sequences_rec.repair_category_name);
1978: FETCH convert_repcat INTO p_x_ata_sequences_rec.repair_category_id;
1977: OPEN convert_repcat(p_x_ata_sequences_rec.repair_category_name);
1978: FETCH convert_repcat INTO p_x_ata_sequences_rec.repair_category_id;
1979: IF (convert_repcat%NOTFOUND)
1980: THEN
1981: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_REPCAT_INV');
1982: -- Repair Category for System Sequence "ATA" is invalid
1983: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_rec.ata_code);
1984: FND_MSG_PUB.ADD;
1985: END IF;
1979: IF (convert_repcat%NOTFOUND)
1980: THEN
1981: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_REPCAT_INV');
1982: -- Repair Category for System Sequence "ATA" is invalid
1983: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_rec.ata_code);
1984: FND_MSG_PUB.ADD;
1985: END IF;
1986: CLOSE convert_repcat;
1987: END IF;
1989: OPEN validate_repcat(p_x_ata_sequences_rec.repair_category_id);
1990: FETCH validate_repcat INTO l_dummy_varchar;
1991: IF (validate_repcat%NOTFOUND)
1992: THEN
1993: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_REPCAT_INV');
1994: -- Repair Category for System Sequence "ATA" is invalid
1995: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_rec.ata_code);
1996: FND_MSG_PUB.ADD;
1997: END IF;
1991: IF (validate_repcat%NOTFOUND)
1992: THEN
1993: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_REPCAT_INV');
1994: -- Repair Category for System Sequence "ATA" is invalid
1995: FND_MESSAGE.SET_TOKEN('ATA', p_x_ata_sequences_rec.ata_code);
1996: FND_MSG_PUB.ADD;
1997: END IF;
1998: CLOSE validate_repcat;
1999: END IF;
2037: OPEN get_ata_mel_cdl_status;
2038: FETCH get_ata_mel_cdl_status INTO l_status, l_mel_cdl_header_id;
2039: CLOSE get_ata_mel_cdl_status;
2040: ELSE
2041: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_HDR_MAND');
2042: -- MEL/CDL information is mandatory for processing System Sequence(s)
2043: FND_MSG_PUB.ADD;
2044: RAISE FND_API.G_EXC_ERROR;
2045: END IF;
2045: END IF;
2046:
2047: IF (l_status NOT IN ('DRAFT', 'APPROVAL_REJECTED'))
2048: THEN
2049: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_NOT_DRAFT_ATA');
2050: -- Cannot process System Sequence(s) for MEL/CDL not in draft or approval rejected status
2051: FND_MSG_PUB.ADD;
2052: RAISE FND_API.G_EXC_ERROR;
2053: ELSIF (l_status = 'APPROVAL_REJECTED')
2084: FETCH check_exists INTO l_ovn;
2085: IF (check_exists%NOTFOUND)
2086: THEN
2087: CLOSE check_exists;
2088: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_MO_PROC_NOTFOUND');
2089: -- MO Procedure is not found
2090: FND_MSG_PUB.ADD;
2091: RAISE FND_API.G_EXC_ERROR;
2092: ELSE
2092: ELSE
2093: CLOSE check_exists;
2094: IF (l_ovn <> p_mo_proc_object_version)
2095: THEN
2096: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_COM_RECORD_CHANGED');
2097: -- Record has been modified by another user
2098: FND_MSG_PUB.ADD;
2099: RAISE FND_API.G_EXC_ERROR;
2100: END IF;
2128: IF (check_exists%NOTFOUND)
2129: THEN
2130: CLOSE check_exists;
2131:
2132: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_MEL_CDL_REL_NOTFOUND');
2133: -- MO Procedure is not found
2134: FND_MSG_PUB.ADD;
2135: RAISE FND_API.G_EXC_ERROR;
2136:
2138: CLOSE check_exists;
2139:
2140: IF (l_ovn <> p_rel_object_version)
2141: THEN
2142: FND_MESSAGE.SET_NAME(G_APP_NAME, 'AHL_COM_RECORD_CHANGED');
2143: -- Record has been modified by another user
2144: FND_MSG_PUB.ADD;
2145: RAISE FND_API.G_EXC_ERROR;
2146: END IF;