116: WHEN Foreign_Key_Error THEN
117: ROLLBACK TO SAVEPOINT Insert_Row;
118: x_return_status := l_return_status;
119: x_oracle_error := l_oracle_error;
120: FND_MESSAGE.SET_NAME('GR',
121: 'GR_FOREIGN_KEY_ERROR');
122: FND_MESSAGE.SET_TOKEN('TEXT',
123: l_msg_data,
124: FALSE);
118: x_return_status := l_return_status;
119: x_oracle_error := l_oracle_error;
120: FND_MESSAGE.SET_NAME('GR',
121: 'GR_FOREIGN_KEY_ERROR');
122: FND_MESSAGE.SET_TOKEN('TEXT',
123: l_msg_data,
124: FALSE);
125: IF FND_API.To_Boolean(p_called_by_form) THEN
126: APP_EXCEPTION.Raise_Exception;
124: FALSE);
125: IF FND_API.To_Boolean(p_called_by_form) THEN
126: APP_EXCEPTION.Raise_Exception;
127: ELSE
128: x_msg_data := FND_MESSAGE.Get;
129: END IF;
130:
131: WHEN Key_Exists_Error THEN
132: ROLLBACK TO SAVEPOINT Insert_Row;
131: WHEN Key_Exists_Error THEN
132: ROLLBACK TO SAVEPOINT Insert_Row;
133: x_return_status := 'E';
134: x_oracle_error := APP_EXCEPTION.Get_Code;
135: FND_MESSAGE.SET_NAME('GR',
136: 'GR_RECORD_EXISTS');
137: FND_MESSAGE.SET_TOKEN('CODE',
138: p_sequence_number || ',' || p_risk_phrase_code,
139: FALSE);
133: x_return_status := 'E';
134: x_oracle_error := APP_EXCEPTION.Get_Code;
135: FND_MESSAGE.SET_NAME('GR',
136: 'GR_RECORD_EXISTS');
137: FND_MESSAGE.SET_TOKEN('CODE',
138: p_sequence_number || ',' || p_risk_phrase_code,
139: FALSE);
140: IF FND_API.To_Boolean(p_called_by_form) THEN
141: APP_EXCEPTION.Raise_Exception;
139: FALSE);
140: IF FND_API.To_Boolean(p_called_by_form) THEN
141: APP_EXCEPTION.Raise_Exception;
142: ELSE
143: x_msg_data := FND_MESSAGE.Get;
144: END IF;
145:
146: WHEN Row_Missing_Error THEN
147: ROLLBACK TO SAVEPOINT Insert_Row;
146: WHEN Row_Missing_Error THEN
147: ROLLBACK TO SAVEPOINT Insert_Row;
148: x_return_status := 'E';
149: x_oracle_error := APP_EXCEPTION.Get_Code;
150: FND_MESSAGE.SET_NAME('GR',
151: 'GR_NO_RECORD_INSERTED');
152: FND_MESSAGE.SET_TOKEN('CODE',
153: p_sequence_number || ',' || p_risk_phrase_code,
154: FALSE);
148: x_return_status := 'E';
149: x_oracle_error := APP_EXCEPTION.Get_Code;
150: FND_MESSAGE.SET_NAME('GR',
151: 'GR_NO_RECORD_INSERTED');
152: FND_MESSAGE.SET_TOKEN('CODE',
153: p_sequence_number || ',' || p_risk_phrase_code,
154: FALSE);
155: IF FND_API.To_Boolean(p_called_by_form) THEN
156: APP_EXCEPTION.Raise_Exception;
154: FALSE);
155: IF FND_API.To_Boolean(p_called_by_form) THEN
156: APP_EXCEPTION.Raise_Exception;
157: ELSE
158: x_msg_data := FND_MESSAGE.Get;
159: END IF;
160:
161: WHEN OTHERS THEN
162: ROLLBACK TO SAVEPOINT Insert_Row;
162: ROLLBACK TO SAVEPOINT Insert_Row;
163: x_return_status := 'U';
164: x_oracle_error := SQLCODE;
165: l_msg_data := SUBSTR(SQLERRM, 1, 200);
166: FND_MESSAGE.SET_NAME('GR',
167: 'GR_UNEXPECTED_ERROR');
168: FND_MESSAGE.SET_TOKEN('TEXT',
169: l_msg_data,
170: FALSE);
164: x_oracle_error := SQLCODE;
165: l_msg_data := SUBSTR(SQLERRM, 1, 200);
166: FND_MESSAGE.SET_NAME('GR',
167: 'GR_UNEXPECTED_ERROR');
168: FND_MESSAGE.SET_TOKEN('TEXT',
169: l_msg_data,
170: FALSE);
171: IF FND_API.To_Boolean(p_called_by_form) THEN
172: APP_EXCEPTION.Raise_Exception;
170: FALSE);
171: IF FND_API.To_Boolean(p_called_by_form) THEN
172: APP_EXCEPTION.Raise_Exception;
173: ELSE
174: x_msg_data := FND_MESSAGE.Get;
175: END IF;
176:
177: END Insert_Row;
178:
222: OPEN c_get_risk_phrase;
223: FETCH c_get_risk_phrase INTO RiskPhraseRcd;
224: IF c_get_risk_phrase%NOTFOUND THEN
225: x_return_status := 'E';
226: FND_MESSAGE.SET_NAME('GR',
227: 'GR_RECORD_NOT_FOUND');
228: FND_MESSAGE.SET_TOKEN('CODE',
229: p_risk_phrase_code,
230: FALSE);
224: IF c_get_risk_phrase%NOTFOUND THEN
225: x_return_status := 'E';
226: FND_MESSAGE.SET_NAME('GR',
227: 'GR_RECORD_NOT_FOUND');
228: FND_MESSAGE.SET_TOKEN('CODE',
229: p_risk_phrase_code,
230: FALSE);
231: l_msg_data := l_msg_data || FND_MESSAGE.Get || ' ';
232: END IF;
227: 'GR_RECORD_NOT_FOUND');
228: FND_MESSAGE.SET_TOKEN('CODE',
229: p_risk_phrase_code,
230: FALSE);
231: l_msg_data := l_msg_data || FND_MESSAGE.Get || ' ';
232: END IF;
233: CLOSE c_get_risk_phrase;
234:
235:
243: ROLLBACK TO SAVEPOINT Check_Foreign_Keys;
244: x_return_status := 'U';
245: x_oracle_error := SQLCODE;
246: l_msg_data := SUBSTR(SQLERRM, 1, 200);
247: FND_MESSAGE.SET_NAME('GR',
248: 'GR_UNEXPECTED_ERROR');
249: FND_MESSAGE.SET_TOKEN('TEXT',
250: l_msg_data,
251: FALSE);
245: x_oracle_error := SQLCODE;
246: l_msg_data := SUBSTR(SQLERRM, 1, 200);
247: FND_MESSAGE.SET_NAME('GR',
248: 'GR_UNEXPECTED_ERROR');
249: FND_MESSAGE.SET_TOKEN('TEXT',
250: l_msg_data,
251: FALSE);
252: x_msg_data := FND_MESSAGE.Get;
253:
248: 'GR_UNEXPECTED_ERROR');
249: FND_MESSAGE.SET_TOKEN('TEXT',
250: l_msg_data,
251: FALSE);
252: x_msg_data := FND_MESSAGE.Get;
253:
254: END Check_Foreign_Keys;
255:
256:
317: x_oracle_error := l_oracle_error;
318: IF FND_API.To_Boolean(p_called_by_form) THEN
319: APP_EXCEPTION.Raise_Exception;
320: ELSE
321: x_msg_data := FND_MESSAGE.Get;
322: END IF;
323:
324: WHEN Row_Missing_Error THEN
325: ROLLBACK TO SAVEPOINT Delete_Row;
324: WHEN Row_Missing_Error THEN
325: ROLLBACK TO SAVEPOINT Delete_Row;
326: x_return_status := 'E';
327: x_oracle_error := APP_EXCEPTION.Get_Code;
328: FND_MESSAGE.SET_NAME('GR',
329: 'GR_RECORD_NOT_FOUND');
330: FND_MESSAGE.SET_TOKEN('CODE',
331: p_sequence_number || ', '
332: || p_risk_phrase_code,
326: x_return_status := 'E';
327: x_oracle_error := APP_EXCEPTION.Get_Code;
328: FND_MESSAGE.SET_NAME('GR',
329: 'GR_RECORD_NOT_FOUND');
330: FND_MESSAGE.SET_TOKEN('CODE',
331: p_sequence_number || ', '
332: || p_risk_phrase_code,
333: FALSE);
334: IF FND_API.To_Boolean(p_called_by_form) THEN
333: FALSE);
334: IF FND_API.To_Boolean(p_called_by_form) THEN
335: APP_EXCEPTION.Raise_Exception;
336: ELSE
337: x_msg_data := FND_MESSAGE.Get;
338: END IF;
339:
340: WHEN OTHERS THEN
341: ROLLBACK TO SAVEPOINT Delete_Row;
341: ROLLBACK TO SAVEPOINT Delete_Row;
342: x_return_status := 'U';
343: x_oracle_error := SQLCODE;
344: l_msg_data := SUBSTR(SQLERRM, 1, 200);
345: FND_MESSAGE.SET_NAME('GR',
346: 'GR_UNEXPECTED_ERROR');
347: FND_MESSAGE.SET_TOKEN('TEXT',
348: l_msg_data,
349: FALSE);
343: x_oracle_error := SQLCODE;
344: l_msg_data := SUBSTR(SQLERRM, 1, 200);
345: FND_MESSAGE.SET_NAME('GR',
346: 'GR_UNEXPECTED_ERROR');
347: FND_MESSAGE.SET_TOKEN('TEXT',
348: l_msg_data,
349: FALSE);
350: IF FND_API.To_Boolean(p_called_by_form) THEN
351: APP_EXCEPTION.Raise_Exception;
349: FALSE);
350: IF FND_API.To_Boolean(p_called_by_form) THEN
351: APP_EXCEPTION.Raise_Exception;
352: ELSE
353: x_msg_data := FND_MESSAGE.Get;
354: END IF;
355:
356: END Delete_Row;
357:
402: EXCEPTION
403:
404: WHEN Others THEN
405: l_msg_data := SUBSTR(SQLERRM, 1, 200);
406: FND_MESSAGE.SET_NAME('GR',
407: 'GR_UNEXPECTED_ERROR');
408: FND_MESSAGE.SET_TOKEN('TEXT',
409: l_msg_data,
410: FALSE);
404: WHEN Others THEN
405: l_msg_data := SUBSTR(SQLERRM, 1, 200);
406: FND_MESSAGE.SET_NAME('GR',
407: 'GR_UNEXPECTED_ERROR');
408: FND_MESSAGE.SET_TOKEN('TEXT',
409: l_msg_data,
410: FALSE);
411: IF FND_API.To_Boolean(p_called_by_form) THEN
412: APP_EXCEPTION.Raise_Exception;