454: IF ( crqrec.Chg_Status_Type_Code = 'IN PROGRESS' ) THEN
455: --
456: -- Another change request is in progress; cannot proceed
457: --
458: FND_MESSAGE.SET_NAME('OKE' , 'OKE_CHGREQ_OTHER_CRQ_IMPL');
459: FND_MESSAGE.SET_TOKEN('REQNUM' , crqrec.Chg_Request_Num);
460: RETURN ( 'N' );
461: ELSE
462: --
455: --
456: -- Another change request is in progress; cannot proceed
457: --
458: FND_MESSAGE.SET_NAME('OKE' , 'OKE_CHGREQ_OTHER_CRQ_IMPL');
459: FND_MESSAGE.SET_TOKEN('REQNUM' , crqrec.Chg_Request_Num);
460: RETURN ( 'N' );
461: ELSE
462: --
463: -- Earlier change request exists, warn
461: ELSE
462: --
463: -- Earlier change request exists, warn
464: --
465: FND_MESSAGE.SET_NAME('OKE' , 'OKE_CHGREQ_EARLY_CRQ_EXISTS');
466: RETURN ( 'W' );
467: END IF;
468:
469: EXCEPTION
467: END IF;
468:
469: EXCEPTION
470: WHEN OTHERS THEN
471: FND_MESSAGE.SET_NAME('OKE' , 'OKE_CHGREQ_IMPLCHK_ERROR');
472: FND_MESSAGE.SET_TOKEN('ERROR' , sqlerrm);
473: RETURN ( 'N' );
474:
475: END OK_To_Implement;
468:
469: EXCEPTION
470: WHEN OTHERS THEN
471: FND_MESSAGE.SET_NAME('OKE' , 'OKE_CHGREQ_IMPLCHK_ERROR');
472: FND_MESSAGE.SET_TOKEN('ERROR' , sqlerrm);
473: RETURN ( 'N' );
474:
475: END OK_To_Implement;
476:
521: ELSE
522: --
523: -- Later completed change request exists, cannot proceed
524: --
525: FND_MESSAGE.SET_NAME('OKE' , 'OKE_CHGREQ_OTHER_CRQ_COMP');
526: FND_MESSAGE.SET_TOKEN('COUNT' , crqrec.ChgReq_Count);
527: RETURN ( 'N' );
528: END IF;
529:
522: --
523: -- Later completed change request exists, cannot proceed
524: --
525: FND_MESSAGE.SET_NAME('OKE' , 'OKE_CHGREQ_OTHER_CRQ_COMP');
526: FND_MESSAGE.SET_TOKEN('COUNT' , crqrec.ChgReq_Count);
527: RETURN ( 'N' );
528: END IF;
529:
530: EXCEPTION
528: END IF;
529:
530: EXCEPTION
531: WHEN OTHERS THEN
532: FND_MESSAGE.SET_NAME('OKE' , 'OKE_CHGREQ_UNDOCHK_ERROR');
533: FND_MESSAGE.SET_TOKEN('ERROR' , sqlerrm);
534: RETURN ( 'N' );
535:
536: END OK_To_Undo;
529:
530: EXCEPTION
531: WHEN OTHERS THEN
532: FND_MESSAGE.SET_NAME('OKE' , 'OKE_CHGREQ_UNDOCHK_ERROR');
533: FND_MESSAGE.SET_TOKEN('ERROR' , sqlerrm);
534: RETURN ( 'N' );
535:
536: END OK_To_Undo;
537: