285: IF (p_x_mr_route_rec.route_number IS NULL or
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;
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;
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;
338: x_return_status:=FND_API.G_RET_STS_SUCCESS;
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:
366: and revision_status_code='COMPLETE'
367: and NVL(end_date_active,SYSDATE+1)>SYSDATE;*/
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;
367: and NVL(end_date_active,SYSDATE+1)>SYSDATE;*/
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:
375:
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'
392: IF G_APPLN_USAGE='PM'
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;
402: END IF;
403:
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:
403:
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'
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
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:
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
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
432: END IF;
433:
434: IF (l_mr_prog_type = 'MO_PROC' AND nvl(l_route_type, 'X') NOT IN ('M_PROC','O_PROC'))
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;
434: IF (l_mr_prog_type = 'MO_PROC' AND nvl(l_route_type, 'X') NOT IN ('M_PROC','O_PROC'))
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
598: where MR_ROUTE_ID =p_x_MR_ROUTE_TBL(i).MR_ROUTE_ID
599: and OBJECT_VERSION_NUMBER=p_x_MR_ROUTE_TBL(i).object_version_number;
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:
599: and OBJECT_VERSION_NUMBER=p_x_MR_ROUTE_TBL(i).object_version_number;
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
679: IF (check_route_seq_exists%NOTFOUND)
680: THEN
681: IF (P_X_MR_ROUTE_TBL(i).stage < 1 OR P_X_MR_ROUTE_TBL(i).stage > l_max_route_num)
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;
680: THEN
681: IF (P_X_MR_ROUTE_TBL(i).stage < 1 OR P_X_MR_ROUTE_TBL(i).stage > l_max_route_num)
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
681: IF (P_X_MR_ROUTE_TBL(i).stage < 1 OR P_X_MR_ROUTE_TBL(i).stage > l_max_route_num)
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;
691: CLOSE check_route_seq_exists;
692: 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))
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;
691: CLOSE check_route_seq_exists;
692: 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))
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;
692: 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))
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;