55: OPEN c_unique;
56: FETCH c_unique INTO r_unique;
57: IF c_unique%FOUND THEN
58: CLOSE c_unique;
59: FND_MESSAGE.Set_Name('CSF', 'CSF_PLAN_TERRS_NOT_UNIQUE');
60: FND_MESSAGE.Set_Token('P_TERR_ID', p_terr_id);
61: FND_MESSAGE.Set_Token('P_GROUP_ID', p_group_id);
62: APP_EXCEPTION.Raise_Exception;
63: END IF;
56: FETCH c_unique INTO r_unique;
57: IF c_unique%FOUND THEN
58: CLOSE c_unique;
59: FND_MESSAGE.Set_Name('CSF', 'CSF_PLAN_TERRS_NOT_UNIQUE');
60: FND_MESSAGE.Set_Token('P_TERR_ID', p_terr_id);
61: FND_MESSAGE.Set_Token('P_GROUP_ID', p_group_id);
62: APP_EXCEPTION.Raise_Exception;
63: END IF;
64: CLOSE c_unique;
57: IF c_unique%FOUND THEN
58: CLOSE c_unique;
59: FND_MESSAGE.Set_Name('CSF', 'CSF_PLAN_TERRS_NOT_UNIQUE');
60: FND_MESSAGE.Set_Token('P_TERR_ID', p_terr_id);
61: FND_MESSAGE.Set_Token('P_GROUP_ID', p_group_id);
62: APP_EXCEPTION.Raise_Exception;
63: END IF;
64: CLOSE c_unique;
65:
90: OPEN c_terr;
91: FETCH c_terr INTO r_terr;
92: IF c_terr%NOTFOUND THEN
93: CLOSE c_terr;
94: FND_MESSAGE.Set_Name('CSF', 'CSF_PLAN_TERRS_INVALID_TERR');
95: FND_MESSAGE.Set_Token('P_TERR_ID', p_terr_id);
96: APP_EXCEPTION.Raise_Exception;
97: END IF;
98: CLOSE c_terr;
91: FETCH c_terr INTO r_terr;
92: IF c_terr%NOTFOUND THEN
93: CLOSE c_terr;
94: FND_MESSAGE.Set_Name('CSF', 'CSF_PLAN_TERRS_INVALID_TERR');
95: FND_MESSAGE.Set_Token('P_TERR_ID', p_terr_id);
96: APP_EXCEPTION.Raise_Exception;
97: END IF;
98: CLOSE c_terr;
99:
100: OPEN c_group;
101: FETCH c_group INTO r_group;
102: IF c_group%NOTFOUND THEN
103: CLOSE c_group;
104: FND_MESSAGE.Set_Name('CSF', 'CSF_PLAN_TERRS_INVALID_GROUP');
105: FND_MESSAGE.Set_Token('P_GROUP_ID', p_group_id);
106: APP_EXCEPTION.Raise_Exception;
107: END IF;
108: CLOSE c_group;
101: FETCH c_group INTO r_group;
102: IF c_group%NOTFOUND THEN
103: CLOSE c_group;
104: FND_MESSAGE.Set_Name('CSF', 'CSF_PLAN_TERRS_INVALID_GROUP');
105: FND_MESSAGE.Set_Token('P_GROUP_ID', p_group_id);
106: APP_EXCEPTION.Raise_Exception;
107: END IF;
108: CLOSE c_group;
109:
240: OPEN c_plan_terrs;
241: FETCH c_plan_terrs INTO l_object_version_number;
242: IF (c_plan_terrs%NOTFOUND) THEN
243: CLOSE c_plan_terrs;
244: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
245: APP_EXCEPTION.Raise_Exception;
246: END IF;
247: CLOSE c_plan_terrs;
248:
248:
249: IF (l_object_version_number = p_object_version_number) THEN
250: NULL;
251: ELSE
252: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
253: APP_EXCEPTION.Raise_Exception;
254: END IF;
255:
256: END Lock_Row;