305: IF (p_x_mr_route_rec.route_number IS NULL or
306: p_x_mr_route_rec.route_number=FND_API.G_MISS_CHAR) and
307: p_x_mr_route_rec.dml_operation<>'D'
308: THEN
309: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_ROUTE_NUMBR_NULL');
310: FND_MSG_PUB.ADD;
311: ELSE
312: OPEN get_route_frm(p_x_mr_route_rec.route_number,p_x_mr_route_rec.route_revision_number);
313: FETCH get_route_frm INTO l_route_rec;
313: FETCH get_route_frm INTO l_route_rec;
314:
315: IF get_route_frm%NOTFOUND
316: THEN
317: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_ROUTE_NUMBR_INVALID');
318: FND_MESSAGE.SET_TOKEN('FIELD',p_x_mr_route_rec.route_number,false);
319: FND_MSG_PUB.ADD;
320: ELSE
321: p_x_mr_route_rec.ROUTE_ID:=l_route_rec.route_id;
314:
315: IF get_route_frm%NOTFOUND
316: THEN
317: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_ROUTE_NUMBR_INVALID');
318: FND_MESSAGE.SET_TOKEN('FIELD',p_x_mr_route_rec.route_number,false);
319: FND_MSG_PUB.ADD;
320: ELSE
321: p_x_mr_route_rec.ROUTE_ID:=l_route_rec.route_id;
322: END IF;
363: x_return_status:=FND_API.G_RET_STS_SUCCESS;
364:
365: IF G_APPLN_USAGE IS NULL
366: THEN
367: FND_MESSAGE.SET_NAME('AHL','AHL_COM_APP_PRFL_UNDEF');
368: FND_MSG_PUB.ADD;
369: RETURN;
370: END IF;
371:
391: and revision_status_code='COMPLETE'
392: and NVL(end_date_active,SYSDATE+1)>SYSDATE;*/
393: IF l_counter >1
394: THEN
395: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_SELCT_RT_FROM_LOV');
396: FND_MESSAGE.SET_TOKEN('ROUTE_NUMBER',p_x_mr_route_rec.route_number,false);
397: FND_MSG_PUB.ADD;
398: END IF;
399: END IF;
392: and NVL(end_date_active,SYSDATE+1)>SYSDATE;*/
393: IF l_counter >1
394: THEN
395: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_SELCT_RT_FROM_LOV');
396: FND_MESSAGE.SET_TOKEN('ROUTE_NUMBER',p_x_mr_route_rec.route_number,false);
397: FND_MSG_PUB.ADD;
398: END IF;
399: END IF;
400:
400:
401:
402: IF (p_x_mr_route_rec.MR_HEADER_ID IS NULL OR p_x_mr_route_rec.MR_HEADER_ID=FND_API.G_MISS_NUM) AND p_x_mr_route_rec.dml_operation<>'D'
403: THEN
404: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_HEADER_ID_NULL');
405: FND_MSG_PUB.ADD;
406: ELSE
407: OPEN GetMrDet(p_x_mr_route_rec.MR_HEADER_ID);
408:
409: FETCH GetMrDet into l_mr_rec;
410:
411: IF GetMrDet%NOTFOUND
412: THEN
413: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_EDIT_STATUS_INVALID');
414: FND_MSG_PUB.ADD;
415: ELSE
416: -- PM Code
417: IF G_APPLN_USAGE='PM'
417: IF G_APPLN_USAGE='PM'
418: THEN
419: IF l_mr_rec.TYPE_CODE='PROGRAM'
420: THEN
421: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_TYPE_CODE_PROGRAM');
422: FND_MSG_PUB.ADD;
423: END IF;
424: END IF;
425: END IF;
427: END IF;
428:
429: IF (p_x_mr_route_rec.OBJECT_VERSION_NUMBER IS NULL OR p_x_mr_route_rec.OBJECT_VERSION_NUMBER=FND_API.G_MISS_num) and p_x_mr_route_rec.dml_operation<>'C'
430: THEN
431: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MRR_OBJ_VERSION_NULL');
432: FND_MESSAGE.SET_TOKEN('RECORD',p_x_mr_route_rec.route_number,false);
433: FND_MSG_PUB.ADD;
434: END IF;
435:
428:
429: IF (p_x_mr_route_rec.OBJECT_VERSION_NUMBER IS NULL OR p_x_mr_route_rec.OBJECT_VERSION_NUMBER=FND_API.G_MISS_num) and p_x_mr_route_rec.dml_operation<>'C'
430: THEN
431: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MRR_OBJ_VERSION_NULL');
432: FND_MESSAGE.SET_TOKEN('RECORD',p_x_mr_route_rec.route_number,false);
433: FND_MSG_PUB.ADD;
434: END IF;
435:
436: IF (p_x_mr_route_rec.MR_ROUTE_ID IS NULL OR p_x_mr_route_rec.MR_ROUTE_ID=FND_API.G_MISS_NUM) AND p_x_mr_route_rec.dml_operation<>'C'
434: END IF;
435:
436: IF (p_x_mr_route_rec.MR_ROUTE_ID IS NULL OR p_x_mr_route_rec.MR_ROUTE_ID=FND_API.G_MISS_NUM) AND p_x_mr_route_rec.dml_operation<>'C'
437: THEN
438: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_ROUTE_ID_NULL');
439: FND_MESSAGE.SET_TOKEN('RECORD',p_x_mr_route_rec.ROUTE_NUMBER,false);
440: FND_MSG_PUB.ADD;
441: END IF;
442:
435:
436: IF (p_x_mr_route_rec.MR_ROUTE_ID IS NULL OR p_x_mr_route_rec.MR_ROUTE_ID=FND_API.G_MISS_NUM) AND p_x_mr_route_rec.dml_operation<>'C'
437: THEN
438: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_ROUTE_ID_NULL');
439: FND_MESSAGE.SET_TOKEN('RECORD',p_x_mr_route_rec.ROUTE_NUMBER,false);
440: FND_MSG_PUB.ADD;
441: END IF;
442:
443: -- Tamal [MEL/CDL] -- Begin changes
457: END IF;
458:
459: IF (l_mr_prog_type = 'MO_PROC' AND nvl(l_route_type, 'X') NOT IN ('M_PROC','O_PROC'))
460: THEN
461: FND_MESSAGE.SET_NAME('AHL', 'AHL_FMP_MR_ROUTE_TYPE_INV');
462: -- Cannot associate route "" of non (M), (O) procedure type to maintenance requirement of (M) and (O) procedure program type.
463: FND_MESSAGE.SET_TOKEN('RECORD', p_x_mr_route_rec.ROUTE_NUMBER, false);
464: FND_MSG_PUB.ADD;
465: END IF;
459: IF (l_mr_prog_type = 'MO_PROC' AND nvl(l_route_type, 'X') NOT IN ('M_PROC','O_PROC'))
460: THEN
461: FND_MESSAGE.SET_NAME('AHL', 'AHL_FMP_MR_ROUTE_TYPE_INV');
462: -- Cannot associate route "" of non (M), (O) procedure type to maintenance requirement of (M) and (O) procedure program type.
463: FND_MESSAGE.SET_TOKEN('RECORD', p_x_mr_route_rec.ROUTE_NUMBER, false);
464: FND_MSG_PUB.ADD;
465: END IF;
466: END IF;
467: -- Tamal [MEL/CDL] -- End changes
482: );
483:
484: IF ( NVL(x_return_status, 'X') <> FND_API.G_RET_STS_SUCCESS ) THEN
485: IF ( l_msg_data = 'AHL_COM_INVALID_LOOKUP' ) THEN
486: FND_MESSAGE.set_name( 'AHL', 'AHL_VWP_INVALID_STAGE_TYPE' );
487: ELSIF ( l_msg_data = 'AHL_COM_TOO_MANY_LOOKUPS' ) THEN
488: FND_MESSAGE.set_name( 'AHL', 'AHL_VWP_TOO_MANY_STAGE_TYPES' );
489: ELSE
490: FND_MESSAGE.set_name( 'AHL', l_msg_data );
484: IF ( NVL(x_return_status, 'X') <> FND_API.G_RET_STS_SUCCESS ) THEN
485: IF ( l_msg_data = 'AHL_COM_INVALID_LOOKUP' ) THEN
486: FND_MESSAGE.set_name( 'AHL', 'AHL_VWP_INVALID_STAGE_TYPE' );
487: ELSIF ( l_msg_data = 'AHL_COM_TOO_MANY_LOOKUPS' ) THEN
488: FND_MESSAGE.set_name( 'AHL', 'AHL_VWP_TOO_MANY_STAGE_TYPES' );
489: ELSE
490: FND_MESSAGE.set_name( 'AHL', l_msg_data );
491: END IF;
492:
486: FND_MESSAGE.set_name( 'AHL', 'AHL_VWP_INVALID_STAGE_TYPE' );
487: ELSIF ( l_msg_data = 'AHL_COM_TOO_MANY_LOOKUPS' ) THEN
488: FND_MESSAGE.set_name( 'AHL', 'AHL_VWP_TOO_MANY_STAGE_TYPES' );
489: ELSE
490: FND_MESSAGE.set_name( 'AHL', l_msg_data );
491: END IF;
492:
493: IF ( p_x_mr_route_rec.stage_type_meaning IS NULL OR
494: p_x_mr_route_rec.stage_type_meaning = FND_API.G_MISS_CHAR ) THEN
491: END IF;
492:
493: IF ( p_x_mr_route_rec.stage_type_meaning IS NULL OR
494: p_x_mr_route_rec.stage_type_meaning = FND_API.G_MISS_CHAR ) THEN
495: FND_MESSAGE.set_token( 'FIELD', p_x_mr_route_rec.stage_type_code );
496: ELSE
497: FND_MESSAGE.set_token( 'FIELD', p_x_mr_route_rec.stage_type_meaning );
498: END IF;
499:
493: IF ( p_x_mr_route_rec.stage_type_meaning IS NULL OR
494: p_x_mr_route_rec.stage_type_meaning = FND_API.G_MISS_CHAR ) THEN
495: FND_MESSAGE.set_token( 'FIELD', p_x_mr_route_rec.stage_type_code );
496: ELSE
497: FND_MESSAGE.set_token( 'FIELD', p_x_mr_route_rec.stage_type_meaning );
498: END IF;
499:
500: FND_MSG_PUB.add;
501: END IF;
514:
515: IF ( (p_x_mr_route_rec.dml_operation = 'C' AND p_x_mr_route_rec.stage IS NOT NULL) OR
516: (p_x_mr_route_rec.dml_operation = 'U' AND p_x_mr_route_rec.stage_type_code IS NULL AND
517: l_curr_stage_number <> l_passed_stage_number) ) THEN
518: FND_MESSAGE.set_name('AHL', 'AHL_VWP_STAGE_NUM_NO_UPD');
519: FND_MSG_PUB.add;
520: END IF;
521: END;
522:
678: where MR_ROUTE_ID =p_x_MR_ROUTE_TBL(i).MR_ROUTE_ID
679: and OBJECT_VERSION_NUMBER=p_x_MR_ROUTE_TBL(i).object_version_number;
680:
681: IF sql%rowcount=0 then
682: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_RECORD_CHANGED');
683: FND_MESSAGE.SET_TOKEN('FIELD',p_x_mr_route_tbl(i).route_number,false);
684: FND_MSG_PUB.ADD;
685: END IF;
686:
679: and OBJECT_VERSION_NUMBER=p_x_MR_ROUTE_TBL(i).object_version_number;
680:
681: IF sql%rowcount=0 then
682: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_RECORD_CHANGED');
683: FND_MESSAGE.SET_TOKEN('FIELD',p_x_mr_route_tbl(i).route_number,false);
684: FND_MSG_PUB.ADD;
685: END IF;
686:
687: ELSIF P_X_MR_ROUTE_TBL(i).DML_operation='U' then
765: IF (check_route_seq_exists%NOTFOUND)
766: THEN
767: IF (P_X_MR_ROUTE_TBL(i).stage < 1 OR P_X_MR_ROUTE_TBL(i).stage > l_max_route_num)
768: THEN
769: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_INV_STAGE_CRT');
770: FND_MESSAGE.SET_TOKEN('ROUTE',P_X_MR_ROUTE_TBL(i).route_number, false);
771: FND_MESSAGE.SET_TOKEN('MAX',l_max_route_num, false);
772: FND_MSG_PUB.ADD;
773: END IF;
766: THEN
767: IF (P_X_MR_ROUTE_TBL(i).stage < 1 OR P_X_MR_ROUTE_TBL(i).stage > l_max_route_num)
768: THEN
769: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_INV_STAGE_CRT');
770: FND_MESSAGE.SET_TOKEN('ROUTE',P_X_MR_ROUTE_TBL(i).route_number, false);
771: FND_MESSAGE.SET_TOKEN('MAX',l_max_route_num, false);
772: FND_MSG_PUB.ADD;
773: END IF;
774: ELSE
767: IF (P_X_MR_ROUTE_TBL(i).stage < 1 OR P_X_MR_ROUTE_TBL(i).stage > l_max_route_num)
768: THEN
769: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_INV_STAGE_CRT');
770: FND_MESSAGE.SET_TOKEN('ROUTE',P_X_MR_ROUTE_TBL(i).route_number, false);
771: FND_MESSAGE.SET_TOKEN('MAX',l_max_route_num, false);
772: FND_MSG_PUB.ADD;
773: END IF;
774: ELSE
775: AHL_FMP_MR_ROUTE_SEQNCE_PVT.VALIDATE_ROUTE_STAGE_SEQ(P_X_MR_ROUTE_TBL(i).MR_ROUTE_ID, true);
776: END IF;
777: CLOSE check_route_seq_exists;
778: ELSIF (P_X_MR_ROUTE_TBL(i).dml_operation = 'C' AND (P_X_MR_ROUTE_TBL(i).stage < 1 OR P_X_MR_ROUTE_TBL(i).stage > l_max_route_num))
779: THEN
780: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_INV_STAGE_CRT');
781: FND_MESSAGE.SET_TOKEN('ROUTE',P_X_MR_ROUTE_TBL(i).route_number, false);
782: FND_MESSAGE.SET_TOKEN('MAX',l_max_route_num, false);
783: FND_MSG_PUB.ADD;
784: END IF;
777: CLOSE check_route_seq_exists;
778: ELSIF (P_X_MR_ROUTE_TBL(i).dml_operation = 'C' AND (P_X_MR_ROUTE_TBL(i).stage < 1 OR P_X_MR_ROUTE_TBL(i).stage > l_max_route_num))
779: THEN
780: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_INV_STAGE_CRT');
781: FND_MESSAGE.SET_TOKEN('ROUTE',P_X_MR_ROUTE_TBL(i).route_number, false);
782: FND_MESSAGE.SET_TOKEN('MAX',l_max_route_num, false);
783: FND_MSG_PUB.ADD;
784: END IF;
785: END LOOP;
778: ELSIF (P_X_MR_ROUTE_TBL(i).dml_operation = 'C' AND (P_X_MR_ROUTE_TBL(i).stage < 1 OR P_X_MR_ROUTE_TBL(i).stage > l_max_route_num))
779: THEN
780: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_INV_STAGE_CRT');
781: FND_MESSAGE.SET_TOKEN('ROUTE',P_X_MR_ROUTE_TBL(i).route_number, false);
782: FND_MESSAGE.SET_TOKEN('MAX',l_max_route_num, false);
783: FND_MSG_PUB.ADD;
784: END IF;
785: END LOOP;
786: END IF;