63: 'F',
64: l_rowid,
65: l_key_exists);
66:
67: IF FND_API.To_Boolean(l_key_exists) THEN
68: RAISE Item_Exists_Error;
69: END IF;
70:
71: INSERT INTO gr_hazard_groups
92: 'F',
93: l_rowid,
94: l_key_exists);
95:
96: IF FND_API.To_Boolean(l_key_exists) THEN
97: x_rowid := l_rowid;
98: ELSE
99: RAISE Row_Missing_Error;
100: END IF;
100: END IF;
101:
102: /* Check the commit flag and if set, then commit the work. */
103:
104: IF FND_API.To_Boolean(p_commit) THEN
105: COMMIT WORK;
106: END IF;
107:
108: EXCEPTION
115: 'GR_FOREIGN_KEY_ERROR');
116: FND_MESSAGE.SET_TOKEN('TEXT',
117: l_msg_data,
118: FALSE);
119: IF FND_API.To_Boolean(p_called_by_form) THEN
120: APP_EXCEPTION.Raise_Exception;
121: ELSE
122: x_msg_data := FND_MESSAGE.Get;
123: END IF;
130: 'GR_RECORD_EXISTS');
131: FND_MESSAGE.SET_TOKEN('CODE',
132: p_hazard_group_code,
133: FALSE);
134: IF FND_API.To_Boolean(p_called_by_form) THEN
135: APP_EXCEPTION.Raise_Exception;
136: ELSE
137: x_msg_data := FND_MESSAGE.Get;
138: END IF;
145: 'GR_NO_RECORD_INSERTED');
146: FND_MESSAGE.SET_TOKEN('CODE',
147: p_hazard_group_code,
148: FALSE);
149: IF FND_API.To_Boolean(p_called_by_form) THEN
150: APP_EXCEPTION.Raise_Exception;
151: ELSE
152: x_msg_data := FND_MESSAGE.Get;
153: END IF;
161: 'GR_UNEXPECTED_ERROR');
162: FND_MESSAGE.SET_TOKEN('TEXT',
163: l_msg_data,
164: FALSE);
165: IF FND_API.To_Boolean(p_called_by_form) THEN
166: APP_EXCEPTION.Raise_Exception;
167: ELSE
168: x_msg_data := FND_MESSAGE.Get;
169: END IF;
236: END IF;
237:
238: /* Check the commit flag and if set, then commit the work. */
239:
240: IF FND_API.To_Boolean(p_commit) THEN
241: COMMIT WORK;
242: END IF;
243:
244: EXCEPTION
251: 'GR_FOREIGN_KEY_ERROR');
252: FND_MESSAGE.SET_TOKEN('TEXT',
253: l_msg_data,
254: FALSE);
255: IF FND_API.To_Boolean(p_called_by_form) THEN
256: APP_EXCEPTION.Raise_Exception;
257: ELSE
258: x_msg_data := FND_MESSAGE.Get;
259: END IF;
266: 'GR_NO_RECORD_INSERTED');
267: FND_MESSAGE.SET_TOKEN('CODE',
268: p_hazard_group_code,
269: FALSE);
270: IF FND_API.To_Boolean(p_called_by_form) THEN
271: APP_EXCEPTION.Raise_Exception;
272: ELSE
273: x_msg_data := FND_MESSAGE.Get;
274: END IF;
282: 'GR_UNEXPECTED_ERROR');
283: FND_MESSAGE.SET_TOKEN('TEXT',
284: l_msg_data,
285: FALSE);
286: IF FND_API.To_Boolean(p_called_by_form) THEN
287: APP_EXCEPTION.Raise_Exception;
288: ELSE
289: x_msg_data := FND_MESSAGE.Get;
290: END IF;
349: RAISE No_Data_Found_Error;
350: END IF;
351: CLOSE c_lock_hazard_groups;
352:
353: IF FND_API.To_Boolean(p_commit) THEN
354: COMMIT WORK;
355: END IF;
356:
357: EXCEPTION
363: 'GR_RECORD_NOT_FOUND');
364: FND_MESSAGE.SET_TOKEN('CODE',
365: p_hazard_group_code,
366: FALSE);
367: IF FND_API.To_Boolean(p_called_by_form) THEN
368: APP_EXCEPTION.Raise_Exception;
369: ELSE
370: x_msg_data := FND_MESSAGE.Get;
371: END IF;
375: x_return_status := 'E';
376: x_oracle_error := APP_EXCEPTION.Get_Code;
377: FND_MESSAGE.SET_NAME('GR',
378: 'GR_ROW_IS_LOCKED');
379: IF FND_API.To_Boolean(p_called_by_form) THEN
380: APP_EXCEPTION.Raise_Exception;
381: ELSE
382: x_msg_data := FND_MESSAGE.Get;
383: END IF;
391: 'GR_UNEXPECTED_ERROR');
392: FND_MESSAGE.SET_TOKEN('TEXT',
393: l_msg_data,
394: FALSE);
395: IF FND_API.To_Boolean(p_called_by_form) THEN
396: APP_EXCEPTION.Raise_Exception;
397: ELSE
398: x_msg_data := FND_MESSAGE.Get;
399: END IF;
459: WHERE rowid = p_rowid;
460:
461: /* Check the commit flag and if set, then commit the work. */
462:
463: IF FND_API.TO_Boolean(p_commit) THEN
464: COMMIT WORK;
465: END IF;
466:
467: EXCEPTION
469: WHEN Check_Integrity_Error THEN
470: ROLLBACK TO SAVEPOINT Delete_Row;
471: x_return_status := l_return_status;
472: x_oracle_error := l_oracle_error;
473: IF FND_API.To_Boolean(p_called_by_form) THEN
474: APP_EXCEPTION.Raise_Exception;
475: ELSE
476: x_msg_data := FND_MESSAGE.Get;
477: END IF;
484: 'GR_RECORD_NOT_FOUND');
485: FND_MESSAGE.SET_TOKEN('CODE',
486: p_hazard_group_code,
487: FALSE);
488: IF FND_API.To_Boolean(p_called_by_form) THEN
489: APP_EXCEPTION.Raise_Exception;
490: ELSE
491: x_msg_data := FND_MESSAGE.Get;
492: END IF;
501: 'GR_UNEXPECTED_ERROR');
502: FND_MESSAGE.SET_TOKEN('TEXT',
503: l_msg_data,
504: FALSE);
505: IF FND_API.To_Boolean(p_called_by_form) THEN
506: APP_EXCEPTION.Raise_Exception;
507: ELSE
508: x_msg_data := FND_MESSAGE.Get;
509: END IF;
634: FALSE);
635: FND_MESSAGE.SET_TOKEN('TABLES',
636: l_msg_data,
637: FALSE);
638: IF FND_API.To_Boolean(p_called_by_form) THEN
639: APP_EXCEPTION.Raise_Exception;
640: ELSE
641: x_msg_data := FND_MESSAGE.Get;
642: END IF;
649: 'GR_UNEXPECTED_ERROR');
650: FND_MESSAGE.SET_TOKEN('TEXT',
651: l_msg_data,
652: FALSE);
653: IF FND_API.To_Boolean(p_called_by_form) THEN
654: APP_EXCEPTION.Raise_Exception;
655: ELSE
656: x_msg_data := FND_MESSAGE.Get;
657: END IF;
704: 'GR_UNEXPECTED_ERROR');
705: FND_MESSAGE.SET_TOKEN('TEXT',
706: l_msg_data,
707: FALSE);
708: IF FND_API.To_Boolean(p_called_by_form) THEN
709: APP_EXCEPTION.Raise_Exception;
710: END IF;
711:
712: END Check_Primary_Key;