65: 'F',
66: l_rowid,
67: l_key_exists);
68:
69: IF FND_API.To_Boolean(l_key_exists) THEN
70: RAISE Item_Exists_Error;
71: END IF;
72:
73: INSERT INTO gr_sub_headings_b
96: 'F',
97: l_rowid,
98: l_key_exists);
99:
100: IF FND_API.To_Boolean(l_key_exists) THEN
101: x_rowid := l_rowid;
102: ELSE
103: RAISE Row_Missing_Error;
104: END IF;
104: END IF;
105:
106: /* Check the commit flag and if set, then commit the work. */
107:
108: IF FND_API.To_Boolean(p_commit) THEN
109: COMMIT WORK;
110: END IF;
111:
112: EXCEPTION
119: 'GR_FOREIGN_KEY_ERROR');
120: FND_MESSAGE.SET_TOKEN('TEXT',
121: l_msg_data,
122: FALSE);
123: IF FND_API.To_Boolean(p_called_by_form) THEN
124: APP_EXCEPTION.Raise_Exception;
125: ELSE
126: x_msg_data := FND_MESSAGE.Get;
127: END IF;
135: 'GR_RECORD_EXISTS');
136: FND_MESSAGE.SET_TOKEN('CODE',
137: l_msg_token,
138: FALSE);
139: IF FND_API.To_Boolean(p_called_by_form) THEN
140: APP_EXCEPTION.Raise_Exception;
141: ELSE
142: x_msg_data := FND_MESSAGE.Get;
143: END IF;
151: 'GR_NO_RECORD_INSERTED');
152: FND_MESSAGE.SET_TOKEN('CODE',
153: l_msg_token,
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;
168: 'GR_UNEXPECTED_ERROR');
169: FND_MESSAGE.SET_TOKEN('TEXT',
170: l_msg_token,
171: FALSE);
172: IF FND_API.To_Boolean(p_called_by_form) THEN
173: APP_EXCEPTION.Raise_Exception;
174: ELSE
175: x_msg_data := FND_MESSAGE.Get;
176: END IF;
248: END IF;
249:
250: /* Check the commit flag and if set, then commit the work. */
251:
252: IF FND_API.To_Boolean(p_commit) THEN
253: COMMIT WORK;
254: END IF;
255:
256: EXCEPTION
263: 'GR_FOREIGN_KEY_ERROR');
264: FND_MESSAGE.SET_TOKEN('TEXT',
265: l_msg_data,
266: FALSE);
267: IF FND_API.To_Boolean(p_called_by_form) THEN
268: APP_EXCEPTION.Raise_Exception;
269: ELSE
270: x_msg_data := FND_MESSAGE.Get;
271: END IF;
278: 'GR_NO_RECORD_INSERTED');
279: FND_MESSAGE.SET_TOKEN('CODE',
280: l_msg_token,
281: FALSE);
282: IF FND_API.To_Boolean(p_called_by_form) THEN
283: APP_EXCEPTION.Raise_Exception;
284: ELSE
285: x_msg_data := FND_MESSAGE.Get;
286: END IF;
294: 'GR_UNEXPECTED_ERROR');
295: FND_MESSAGE.SET_TOKEN('TEXT',
296: l_msg_token,
297: FALSE);
298: IF FND_API.To_Boolean(p_called_by_form) THEN
299: APP_EXCEPTION.Raise_Exception;
300: ELSE
301: x_msg_data := FND_MESSAGE.Get;
302: END IF;
369: RAISE No_Data_Found_Error;
370: END IF;
371: CLOSE c_lock_sub_hdg_b;
372:
373: IF FND_API.To_Boolean(p_commit) THEN
374: COMMIT WORK;
375: END IF;
376:
377: EXCEPTION
383: 'GR_RECORD_NOT_FOUND');
384: FND_MESSAGE.SET_TOKEN('CODE',
385: l_msg_token,
386: FALSE);
387: IF FND_API.To_Boolean(p_called_by_form) THEN
388: APP_EXCEPTION.Raise_Exception;
389: ELSE
390: x_msg_data := FND_MESSAGE.Get;
391: END IF;
395: x_return_status := 'E';
396: x_oracle_error := APP_EXCEPTION.Get_Code;
397: FND_MESSAGE.SET_NAME('GR',
398: 'GR_ROW_IS_LOCKED');
399: IF FND_API.To_Boolean(p_called_by_form) THEN
400: APP_EXCEPTION.Raise_Exception;
401: ELSE
402: x_msg_data := FND_MESSAGE.Get;
403: END IF;
411: 'GR_UNEXPECTED_ERROR');
412: FND_MESSAGE.SET_TOKEN('TEXT',
413: l_msg_token,
414: FALSE);
415: IF FND_API.To_Boolean(p_called_by_form) THEN
416: APP_EXCEPTION.Raise_Exception;
417: ELSE
418: x_msg_data := FND_MESSAGE.Get;
419: END IF;
486: WHERE rowid = p_rowid;
487:
488: /* Check the commit flag and if set, then commit the work. */
489:
490: IF FND_API.TO_Boolean(p_commit) THEN
491: COMMIT WORK;
492: END IF;
493:
494: EXCEPTION
496: WHEN Check_Integrity_Error THEN
497: ROLLBACK TO SAVEPOINT Delete_Row;
498: x_return_status := l_return_status;
499: x_oracle_error := l_oracle_error;
500: IF FND_API.To_Boolean(p_called_by_form) THEN
501: APP_EXCEPTION.Raise_Exception;
502: ELSE
503: x_msg_data := FND_MESSAGE.Get;
504: END IF;
511: 'GR_RECORD_NOT_FOUND');
512: FND_MESSAGE.SET_TOKEN('CODE',
513: l_msg_token,
514: FALSE);
515: IF FND_API.To_Boolean(p_called_by_form) THEN
516: APP_EXCEPTION.Raise_Exception;
517: ELSE
518: x_msg_data := FND_MESSAGE.Get;
519: END IF;
527: 'GR_UNEXPECTED_ERROR');
528: FND_MESSAGE.SET_TOKEN('TEXT',
529: l_msg_data,
530: FALSE);
531: IF FND_API.To_Boolean(p_called_by_form) THEN
532: APP_EXCEPTION.Raise_Exception;
533: ELSE
534: x_msg_data := FND_MESSAGE.Get;
535: END IF;
693: FALSE);
694: FND_MESSAGE.SET_TOKEN('TABLES',
695: SUBSTR(l_msg_data,1,LENGTH(l_msg_data)-1),
696: FALSE);
697: IF FND_API.To_Boolean(p_called_by_form) THEN
698: APP_EXCEPTION.Raise_Exception;
699: ELSE
700: x_msg_data := FND_MESSAGE.Get;
701: END IF;
702: WHEN OTHERS THEN
703: ROLLBACK TO SAVEPOINT Check_Integrity;
704: x_return_status := 'U';
705: x_oracle_error := APP_EXCEPTION.Get_Code;
706: IF FND_API.To_Boolean(p_called_by_form) THEN
707: RAISE;
708: ELSE
709: x_msg_data := FND_MESSAGE.Get;
710: END IF;
759: 'GR_UNEXPECTED_ERROR');
760: FND_MESSAGE.SET_TOKEN('TEXT',
761: l_msg_data,
762: FALSE);
763: IF FND_API.To_Boolean(p_called_by_form) THEN
764: APP_EXCEPTION.Raise_Exception;
765: END IF;
766:
767: END Check_Primary_Key;