583: FETCH C INTO Recinfo;
584:
585: IF (C%NOTFOUND) THEN
586: CLOSE C;
587: FND_MESSAGE.Set_Name('FND','FORM_RECORD_DELETED');
588: FND_MSG_PUB.Add;
589: RAISE FND_API.G_EXC_ERROR;
590: END IF;
591:
597: AND ( (Recinfo.percent = P_SEMI_ANNUAL) OR
598: ((Recinfo.percent IS NULL ) AND (P_SEMI_ANNUAL IS NULL)))) THEN
599: l_lock_row1 := 1;
600: ELSE
601: FND_MESSAGE.Set_Name('FND','FORM_RECORD_CHANGED');
602: FND_MSG_PUB.Add;
603: RAISE FND_API.G_EXC_ERROR;
604: END IF;
605:
606: FETCH C INTO Recinfo;
607:
608: IF (C%NOTFOUND) THEN
609: CLOSE C;
610: FND_MESSAGE.Set_Name('FND','FORM_RECORD_DELETED');
611: FND_MSG_PUB.Add;
612: RAISE FND_API.G_EXC_ERROR;
613: END IF;
614:
620: AND ( (Recinfo.percent = P_QUARTERLY) OR
621: ((Recinfo.percent IS NULL ) AND (P_QUARTERLY IS NULL)))) THEN
622: l_lock_row2 := 1;
623: ELSE
624: FND_MESSAGE.Set_Name('FND','FORM_RECORD_CHANGED');
625: FND_MSG_PUB.Add;
626: RAISE FND_API.G_EXC_ERROR;
627: END IF;
628:
629: FETCH C INTO Recinfo;
630:
631: IF (C%NOTFOUND) THEN
632: CLOSE C;
633: FND_MESSAGE.Set_Name('FND','FORM_RECORD_DELETED');
634: FND_MSG_PUB.Add;
635: RAISE FND_API.G_EXC_ERROR;
636: END IF;
637:
643: AND ( (Recinfo.percent = P_MONTHLY) OR
644: ((Recinfo.percent IS NULL ) AND (P_MONTHLY IS NULL)))) THEN
645: l_lock_row3 := 1;
646: ELSE
647: FND_MESSAGE.Set_Name('FND','FORM_RECORD_CHANGED');
648: FND_MSG_PUB.Add;
649: RAISE FND_API.G_EXC_ERROR;
650: END IF;
651: