286: p_x_mr_route_rec.route_number=FND_API.G_MISS_CHAR) and
287: p_x_mr_route_rec.dml_operation<>'D'
288: THEN
289: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_ROUTE_NUMBR_NULL');
290: FND_MSG_PUB.ADD;
291: ELSE
292: OPEN get_route_frm(p_x_mr_route_rec.route_number,p_x_mr_route_rec.route_revision_number);
293: FETCH get_route_frm INTO l_route_rec;
294:
295: IF get_route_frm%NOTFOUND
296: THEN
297: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_ROUTE_NUMBR_INVALID');
298: FND_MESSAGE.SET_TOKEN('FIELD',p_x_mr_route_rec.route_number,false);
299: FND_MSG_PUB.ADD;
300: ELSE
301: p_x_mr_route_rec.ROUTE_ID:=l_route_rec.route_id;
302: END IF;
303: CLOSE get_route_frm;
339:
340: IF G_APPLN_USAGE IS NULL
341: THEN
342: FND_MESSAGE.SET_NAME('AHL','AHL_COM_APP_PRFL_UNDEF');
343: FND_MSG_PUB.ADD;
344: RETURN;
345: END IF;
346:
347: -- AHL_FMP_MR_SELCT_RT_FROM_LOV (ROUTE_NUMBER
368: IF l_counter >1
369: THEN
370: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_SELCT_RT_FROM_LOV');
371: FND_MESSAGE.SET_TOKEN('ROUTE_NUMBER',p_mr_route_rec.route_number,false);
372: FND_MSG_PUB.ADD;
373: END IF;
374: END IF;
375:
376:
376:
377: IF (p_mr_route_rec.MR_HEADER_ID IS NULL OR p_mr_route_rec.MR_HEADER_ID=FND_API.G_MISS_NUM) AND p_mr_route_rec.dml_operation<>'D'
378: THEN
379: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_HEADER_ID_NULL');
380: FND_MSG_PUB.ADD;
381: ELSE
382: OPEN GetMrDet(p_mr_route_rec.MR_HEADER_ID);
383:
384: FETCH GetMrDet into l_mr_rec;
385:
386: IF GetMrDet%NOTFOUND
387: THEN
388: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_EDIT_STATUS_INVALID');
389: FND_MSG_PUB.ADD;
390: ELSE
391: -- PM Code
392: IF G_APPLN_USAGE='PM'
393: THEN
393: THEN
394: IF l_mr_rec.TYPE_CODE='PROGRAM'
395: THEN
396: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_TYPE_CODE_PROGRAM');
397: FND_MSG_PUB.ADD;
398: END IF;
399: END IF;
400: END IF;
401: CLOSE GetMrDet;
404: IF (p_mr_route_rec.OBJECT_VERSION_NUMBER IS NULL OR p_mr_route_rec.OBJECT_VERSION_NUMBER=FND_API.G_MISS_num) and p_mr_route_rec.dml_operation<>'C'
405: THEN
406: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MRR_OBJ_VERSION_NULL');
407: FND_MESSAGE.SET_TOKEN('RECORD',p_mr_route_rec.route_number,false);
408: FND_MSG_PUB.ADD;
409: END IF;
410:
411: IF (p_mr_route_rec.MR_ROUTE_ID IS NULL OR p_mr_route_rec.MR_ROUTE_ID=FND_API.G_MISS_NUM) AND p_mr_route_rec.dml_operation<>'C'
412: THEN
411: IF (p_mr_route_rec.MR_ROUTE_ID IS NULL OR p_mr_route_rec.MR_ROUTE_ID=FND_API.G_MISS_NUM) AND p_mr_route_rec.dml_operation<>'C'
412: THEN
413: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_ROUTE_ID_NULL');
414: FND_MESSAGE.SET_TOKEN('RECORD',p_mr_route_rec.ROUTE_NUMBER,false);
415: FND_MSG_PUB.ADD;
416: END IF;
417:
418: -- Tamal [MEL/CDL] -- Begin changes
419: IF (p_mr_route_rec.dml_operation <> 'D')
435: THEN
436: FND_MESSAGE.SET_NAME('AHL', 'AHL_FMP_MR_ROUTE_TYPE_INV');
437: -- Cannot associate route "&RECORD" of non (M), (O) procedure type to maintenance requirement of (M) and (O) procedure program type.
438: FND_MESSAGE.SET_TOKEN('RECORD', p_mr_route_rec.ROUTE_NUMBER, false);
439: FND_MSG_PUB.ADD;
440: END IF;
441: END IF;
442: -- Tamal [MEL/CDL] -- End changes
443: END;
486:
487: -- Initialize message list if p_init_msg_list is set to TRUE.
488:
489: IF FND_API.to_boolean(p_init_msg_list) THEN
490: FND_MSG_PUB.initialize;
491: END IF;
492:
493: -- Enable Debug
494:
567: END IF;
568: END IF;
569: END LOOP;
570:
571: l_msg_count := FND_MSG_PUB.count_msg;
572: IF l_msg_count > 0 THEN
573: X_msg_count := l_msg_count;
574: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
575: RAISE FND_API.G_EXC_ERROR;
600:
601: IF sql%rowcount=0 then
602: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_RECORD_CHANGED');
603: FND_MESSAGE.SET_TOKEN('FIELD',p_x_mr_route_tbl(i).route_number,false);
604: FND_MSG_PUB.ADD;
605: END IF;
606:
607: ELSIF P_X_MR_ROUTE_TBL(i).DML_operation='U' then
608:
682: THEN
683: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_INV_STAGE_CRT');
684: FND_MESSAGE.SET_TOKEN('ROUTE',P_X_MR_ROUTE_TBL(i).route_number, false);
685: FND_MESSAGE.SET_TOKEN('MAX',l_max_route_num, false);
686: FND_MSG_PUB.ADD;
687: END IF;
688: ELSE
689: AHL_FMP_MR_ROUTE_SEQNCE_PVT.VALIDATE_ROUTE_STAGE_SEQ(P_X_MR_ROUTE_TBL(i).MR_ROUTE_ID, true);
690: END IF;
693: THEN
694: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_INV_STAGE_CRT');
695: FND_MESSAGE.SET_TOKEN('ROUTE',P_X_MR_ROUTE_TBL(i).route_number, false);
696: FND_MESSAGE.SET_TOKEN('MAX',l_max_route_num, false);
697: FND_MSG_PUB.ADD;
698: END IF;
699: END LOOP;
700: END IF;
701: -- TAMAL
699: END LOOP;
700: END IF;
701: -- TAMAL
702:
703: l_msg_count := FND_MSG_PUB.count_msg;
704: IF l_msg_count > 0 THEN
705: X_msg_count := l_msg_count;
706: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
707: RAISE FND_API.G_EXC_ERROR;
719: EXCEPTION
720: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
721: ROLLBACK TO PROCESS_MR_ROUTES_PVT;
722: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
723: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
724: p_count => x_msg_count,
725: p_data => x_msg_data);
726: IF G_DEBUG='Y' THEN
727: AHL_DEBUG_PUB.disable_debug;
730:
731: WHEN FND_API.G_EXC_ERROR THEN
732: ROLLBACK TO PROCESS_MR_ROUTES_PVT;
733: X_return_status := FND_API.G_RET_STS_ERROR;
734: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
735: p_count => x_msg_count,
736: p_data => X_msg_data);
737: IF G_DEBUG='Y' THEN
738: AHL_DEBUG_PUB.disable_debug;
740:
741: WHEN OTHERS THEN
742: ROLLBACK TO PROCESS_MR_ROUTES_PVT;
743: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
744: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
745: THEN
746: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_FMP_MR_ROUTE_PVT',
747: p_procedure_name => 'PROCESS_MR_ROUTE',
748: p_error_text => SUBSTR(SQLERRM,1,240));
742: ROLLBACK TO PROCESS_MR_ROUTES_PVT;
743: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
744: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
745: THEN
746: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_FMP_MR_ROUTE_PVT',
747: p_procedure_name => 'PROCESS_MR_ROUTE',
748: p_error_text => SUBSTR(SQLERRM,1,240));
749: END IF;
750: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
746: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_FMP_MR_ROUTE_PVT',
747: p_procedure_name => 'PROCESS_MR_ROUTE',
748: p_error_text => SUBSTR(SQLERRM,1,240));
749: END IF;
750: FND_MSG_PUB.count_and_get( p_encoded =>FND_API.G_FALSE,
751: p_count => x_msg_count,
752: p_data => X_msg_data);
753: IF G_DEBUG='Y' THEN
754: AHL_DEBUG_PUB.disable_debug;