[Home] [Help]
152: 'F',
153: l_rowid,
154: l_key_exists);
155:
156: IF FND_API.To_Boolean(l_key_exists) THEN
157: RAISE Label_Exists_Error;
158: END IF;
159:
160: INSERT INTO gr_recipient_info
271: 'F',
272: l_rowid,
273: l_key_exists);
274:
275: IF FND_API.To_Boolean(l_key_exists) THEN
276: x_rowid := l_rowid;
277: ELSE
278: RAISE Row_Missing_Error;
279: END IF;
279: END IF;
280:
281: /* Check the commit flag and if set, then commit the work. */
282:
283: IF FND_API.To_Boolean(p_commit) THEN
284: COMMIT WORK;
285: END IF;
286:
287: EXCEPTION
294: 'GR_FOREIGN_KEY_ERROR');
295: FND_MESSAGE.SET_TOKEN('TEXT',
296: l_msg_data,
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;
309: 'GR_RECORD_EXISTS');
310: FND_MESSAGE.SET_TOKEN('CODE',
311: p_recipient_code,
312: FALSE);
313: IF FND_API.To_Boolean(p_called_by_form) THEN
314: APP_EXCEPTION.Raise_Exception;
315: ELSE
316: x_msg_data := FND_MESSAGE.Get;
317: END IF;
324: 'GR_NO_RECORD_INSERTED');
325: FND_MESSAGE.SET_TOKEN('CODE',
326: p_recipient_code,
327: FALSE);
328: IF FND_API.To_Boolean(p_called_by_form) THEN
329: APP_EXCEPTION.Raise_Exception;
330: ELSE
331: x_msg_data := FND_MESSAGE.Get;
332: END IF;
340: 'GR_UNEXPECTED_ERROR');
341: FND_MESSAGE.SET_TOKEN('TEXT',
342: l_msg_data,
343: FALSE);
344: IF FND_API.To_Boolean(p_called_by_form) THEN
345: APP_EXCEPTION.Raise_Exception;
346: ELSE
347: x_msg_data := FND_MESSAGE.Get;
348: END IF;
550: END IF;
551:
552: /* Check the commit flag and if set, then commit the work. */
553:
554: IF FND_API.To_Boolean(p_commit) THEN
555: COMMIT WORK;
556: END IF;
557:
558: EXCEPTION
565: 'GR_FOREIGN_KEY_ERROR');
566: FND_MESSAGE.SET_TOKEN('TEXT',
567: l_msg_data,
568: FALSE);
569: IF FND_API.To_Boolean(p_called_by_form) THEN
570: APP_EXCEPTION.Raise_Exception;
571: ELSE
572: x_msg_data := FND_MESSAGE.Get;
573: END IF;
580: 'GR_NO_RECORD_INSERTED');
581: FND_MESSAGE.SET_TOKEN('CODE',
582: p_recipient_code,
583: FALSE);
584: IF FND_API.To_Boolean(p_called_by_form) THEN
585: APP_EXCEPTION.Raise_Exception;
586: ELSE
587: x_msg_data := FND_MESSAGE.Get;
588: END IF;
596: 'GR_UNEXPECTED_ERROR');
597: FND_MESSAGE.SET_TOKEN('TEXT',
598: l_msg_data,
599: FALSE);
600: IF FND_API.To_Boolean(p_called_by_form) THEN
601: APP_EXCEPTION.Raise_Exception;
602: ELSE
603: x_msg_data := FND_MESSAGE.Get;
604: END IF;
713: IF LockRecipientRcd.last_update_date <> p_last_update_date THEN
714: RAISE RECORD_CHANGED_ERROR;
715: END IF;
716:
717: IF FND_API.To_Boolean(p_commit) THEN
718: COMMIT WORK;
719: END IF;
720:
721: EXCEPTION
727: 'GR_RECORD_NOT_FOUND');
728: FND_MESSAGE.SET_TOKEN('CODE',
729: p_recipient_code,
730: FALSE);
731: IF FND_API.To_Boolean(p_called_by_form) THEN
732: APP_EXCEPTION.Raise_Exception;
733: ELSE
734: x_msg_data := FND_MESSAGE.Get;
735: END IF;
738: ROLLBACK TO SAVEPOINT Lock_Row;
739: X_return_status := 'E';
740: FND_MESSAGE.SET_NAME('FND',
741: 'FORM_RECORD_CHANGED');
742: IF FND_API.To_Boolean(p_called_by_form) THEN
743: APP_EXCEPTION.Raise_Exception;
744: ELSE
745: x_msg_data := FND_MESSAGE.Get;
746: END IF;
747: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
748: ROLLBACK TO SAVEPOINT Lock_Row;
749: x_return_status := 'L';
750: x_oracle_error := APP_EXCEPTION.Get_Code;
751: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
752: FND_MESSAGE.SET_NAME('GR',
753: 'GR_ROW_IS_LOCKED');
754: x_msg_data := FND_MESSAGE.Get;
755: END IF;
763: 'GR_UNEXPECTED_ERROR');
764: FND_MESSAGE.SET_TOKEN('TEXT',
765: l_msg_data,
766: FALSE);
767: IF FND_API.To_Boolean(p_called_by_form) THEN
768: APP_EXCEPTION.Raise_Exception;
769: ELSE
770: x_msg_data := FND_MESSAGE.Get;
771: END IF;
922: WHERE rowid = p_rowid;
923:
924: /* Check the commit flag and if set, then commit the work. */
925:
926: IF FND_API.TO_Boolean(p_commit) THEN
927: COMMIT WORK;
928: END IF;
929:
930: EXCEPTION
932: WHEN Check_Integrity_Error THEN
933: ROLLBACK TO SAVEPOINT Delete_Row;
934: x_return_status := l_return_status;
935: x_oracle_error := l_oracle_error;
936: IF FND_API.To_Boolean(p_called_by_form) THEN
937: APP_EXCEPTION.Raise_Exception;
938: ELSE
939: x_msg_data := FND_MESSAGE.Get;
940: END IF;
947: 'GR_RECORD_NOT_FOUND');
948: FND_MESSAGE.SET_TOKEN('CODE',
949: p_recipient_code,
950: FALSE);
951: IF FND_API.To_Boolean(p_called_by_form) THEN
952: APP_EXCEPTION.Raise_Exception;
953: ELSE
954: x_msg_data := FND_MESSAGE.Get;
955: END IF;
964: 'GR_UNEXPECTED_ERROR');
965: FND_MESSAGE.SET_TOKEN('TEXT',
966: l_msg_data,
967: FALSE);
968: IF FND_API.To_Boolean(p_called_by_form) THEN
969: APP_EXCEPTION.Raise_Exception;
970: ELSE
971: x_msg_data := FND_MESSAGE.Get;
972: END IF;
1070: 'F',
1071: l_rowid,
1072: l_key_exists);
1073:
1074: IF NOT FND_API.To_Boolean(l_key_exists) THEN
1075: x_return_status := 'E';
1076: FND_MESSAGE.SET_NAME('GR',
1077: 'GR_RECORD_NOT_FOUND');
1078: FND_MESSAGE.SET_TOKEN('CODE',
1090: 'F',
1091: l_rowid,
1092: l_key_exists);
1093:
1094: IF NOT FND_API.To_Boolean(l_key_exists) THEN
1095: x_return_status := 'E';
1096: FND_MESSAGE.SET_NAME('GR',
1097: 'GR_RECORD_NOT_FOUND');
1098: FND_MESSAGE.SET_TOKEN('CODE',
1276: 'GR_UNEXPECTED_ERROR');
1277: FND_MESSAGE.SET_TOKEN('TEXT',
1278: l_msg_data,
1279: FALSE);
1280: IF FND_API.To_Boolean(p_called_by_form) THEN
1281: APP_EXCEPTION.Raise_Exception;
1282: ELSE
1283: x_msg_data := FND_MESSAGE.Get;
1284: END IF;
1332: 'GR_UNEXPECTED_ERROR');
1333: FND_MESSAGE.SET_TOKEN('TEXT',
1334: l_msg_data,
1335: FALSE);
1336: IF FND_API.To_Boolean(p_called_by_form) THEN
1337: APP_EXCEPTION.Raise_Exception;
1338: END IF;
1339:
1340: END Check_Primary_Key;