316: WHEN Foreign_Key_Error THEN
317: ROLLBACK TO SAVEPOINT Insert_Row;
318: x_return_status := l_return_status;
319: x_oracle_error := l_oracle_error;
320: FND_MESSAGE.SET_NAME('GMI', 'IC_FOREIGN_KEY_ERROR');
321: FND_MESSAGE.SET_TOKEN('TEXT', l_msg_data);
322: IF FND_API.To_Boolean(p_called_by_form) THEN
323: APP_EXCEPTION.Raise_Exception;
324: ELSE
317: ROLLBACK TO SAVEPOINT Insert_Row;
318: x_return_status := l_return_status;
319: x_oracle_error := l_oracle_error;
320: FND_MESSAGE.SET_NAME('GMI', 'IC_FOREIGN_KEY_ERROR');
321: FND_MESSAGE.SET_TOKEN('TEXT', l_msg_data);
322: IF FND_API.To_Boolean(p_called_by_form) THEN
323: APP_EXCEPTION.Raise_Exception;
324: ELSE
325: x_msg_data := FND_MESSAGE.Get;
321: FND_MESSAGE.SET_TOKEN('TEXT', l_msg_data);
322: IF FND_API.To_Boolean(p_called_by_form) THEN
323: APP_EXCEPTION.Raise_Exception;
324: ELSE
325: x_msg_data := FND_MESSAGE.Get;
326: END IF;
327: WHEN Transfer_Exists_Error THEN
328: ROLLBACK TO SAVEPOINT Insert_Row;
329: x_return_status := 'E';
327: WHEN Transfer_Exists_Error THEN
328: ROLLBACK TO SAVEPOINT Insert_Row;
329: x_return_status := 'E';
330: x_oracle_error := l_oracle_error;
331: FND_MESSAGE.SET_NAME('GMA', 'SY_DUPKEYINSERT');
332: IF FND_API.To_Boolean(p_called_by_form) THEN
333: APP_EXCEPTION.Raise_Exception;
334: ELSE
335: x_msg_data := FND_MESSAGE.Get;
331: FND_MESSAGE.SET_NAME('GMA', 'SY_DUPKEYINSERT');
332: IF FND_API.To_Boolean(p_called_by_form) THEN
333: APP_EXCEPTION.Raise_Exception;
334: ELSE
335: x_msg_data := FND_MESSAGE.Get;
336: END IF;
337: WHEN Row_Missing_Error THEN
338: ROLLBACK TO SAVEPOINT Insert_Row;
339: x_return_status := 'E';
337: WHEN Row_Missing_Error THEN
338: ROLLBACK TO SAVEPOINT Insert_Row;
339: x_return_status := 'E';
340: x_oracle_error := l_oracle_error;
341: FND_MESSAGE.SET_NAME('GMI', 'IC_NO_RECORD_INSERTED');
342: FND_MESSAGE.SET_TOKEN('CODE', p_orgn_code||' '||p_transfer_no);
343: IF FND_API.To_Boolean(p_called_by_form) THEN
344: APP_EXCEPTION.Raise_Exception;
345: ELSE
338: ROLLBACK TO SAVEPOINT Insert_Row;
339: x_return_status := 'E';
340: x_oracle_error := l_oracle_error;
341: FND_MESSAGE.SET_NAME('GMI', 'IC_NO_RECORD_INSERTED');
342: FND_MESSAGE.SET_TOKEN('CODE', p_orgn_code||' '||p_transfer_no);
343: IF FND_API.To_Boolean(p_called_by_form) THEN
344: APP_EXCEPTION.Raise_Exception;
345: ELSE
346: x_msg_data := FND_MESSAGE.Get;
342: FND_MESSAGE.SET_TOKEN('CODE', p_orgn_code||' '||p_transfer_no);
343: IF FND_API.To_Boolean(p_called_by_form) THEN
344: APP_EXCEPTION.Raise_Exception;
345: ELSE
346: x_msg_data := FND_MESSAGE.Get;
347: END IF;
348: WHEN OTHERS THEN
349: ROLLBACK TO SAVEPOINT Insert_Row;
350: x_return_status := 'U';
349: ROLLBACK TO SAVEPOINT Insert_Row;
350: x_return_status := 'U';
351: x_oracle_error := l_oracle_error;
352: l_msg_data := sqlerrm;
353: FND_MESSAGE.SET_NAME('GMI', 'IC_UNEXPECTED_ERROR');
354: FND_MESSAGE.SET_TOKEN('TEXT', l_msg_data);
355: IF FND_API.To_Boolean(p_called_by_form) THEN
356: APP_EXCEPTION.Raise_Exception;
357: ELSE
350: x_return_status := 'U';
351: x_oracle_error := l_oracle_error;
352: l_msg_data := sqlerrm;
353: FND_MESSAGE.SET_NAME('GMI', 'IC_UNEXPECTED_ERROR');
354: FND_MESSAGE.SET_TOKEN('TEXT', l_msg_data);
355: IF FND_API.To_Boolean(p_called_by_form) THEN
356: APP_EXCEPTION.Raise_Exception;
357: ELSE
358: x_msg_data := FND_MESSAGE.Get;
354: FND_MESSAGE.SET_TOKEN('TEXT', l_msg_data);
355: IF FND_API.To_Boolean(p_called_by_form) THEN
356: APP_EXCEPTION.Raise_Exception;
357: ELSE
358: x_msg_data := FND_MESSAGE.Get;
359: END IF;
360: END Insert_Row;
361:
362: /*###############################################################
569: WHEN Foreign_Key_Error THEN
570: ROLLBACK TO SAVEPOINT Update_Row;
571: x_return_status := l_return_status;
572: x_oracle_error := l_oracle_error;
573: FND_MESSAGE.SET_NAME('GMI', 'IC_FOREIGN_KEY_ERROR');
574: FND_MESSAGE.SET_TOKEN('TEXT', l_msg_data);
575: IF FND_API.To_Boolean(p_called_by_form) THEN
576: APP_EXCEPTION.Raise_Exception;
577: ELSE
570: ROLLBACK TO SAVEPOINT Update_Row;
571: x_return_status := l_return_status;
572: x_oracle_error := l_oracle_error;
573: FND_MESSAGE.SET_NAME('GMI', 'IC_FOREIGN_KEY_ERROR');
574: FND_MESSAGE.SET_TOKEN('TEXT', l_msg_data);
575: IF FND_API.To_Boolean(p_called_by_form) THEN
576: APP_EXCEPTION.Raise_Exception;
577: ELSE
578: x_msg_data := FND_MESSAGE.Get;
574: FND_MESSAGE.SET_TOKEN('TEXT', l_msg_data);
575: IF FND_API.To_Boolean(p_called_by_form) THEN
576: APP_EXCEPTION.Raise_Exception;
577: ELSE
578: x_msg_data := FND_MESSAGE.Get;
579: END IF;
580: WHEN Row_Missing_Error THEN
581: ROLLBACK TO SAVEPOINT Update_Row;
582: x_return_status := 'E';
580: WHEN Row_Missing_Error THEN
581: ROLLBACK TO SAVEPOINT Update_Row;
582: x_return_status := 'E';
583: x_oracle_error := l_oracle_error;
584: FND_MESSAGE.SET_NAME('GMI',
585: 'IC_RECORD_MISSING');
586: FND_MESSAGE.SET_TOKEN('CODE', p_transfer_no);
587: IF FND_API.To_Boolean(p_called_by_form) THEN
588: APP_EXCEPTION.Raise_Exception;
582: x_return_status := 'E';
583: x_oracle_error := l_oracle_error;
584: FND_MESSAGE.SET_NAME('GMI',
585: 'IC_RECORD_MISSING');
586: FND_MESSAGE.SET_TOKEN('CODE', p_transfer_no);
587: IF FND_API.To_Boolean(p_called_by_form) THEN
588: APP_EXCEPTION.Raise_Exception;
589: ELSE
590: x_msg_data := FND_MESSAGE.Get;
586: FND_MESSAGE.SET_TOKEN('CODE', p_transfer_no);
587: IF FND_API.To_Boolean(p_called_by_form) THEN
588: APP_EXCEPTION.Raise_Exception;
589: ELSE
590: x_msg_data := FND_MESSAGE.Get;
591: END IF;
592: WHEN OTHERS THEN
593: ROLLBACK TO SAVEPOINT Update_Row;
594: x_return_status := 'U';
593: ROLLBACK TO SAVEPOINT Update_Row;
594: x_return_status := 'U';
595: x_oracle_error := l_oracle_error;
596: l_msg_data := sqlerrm;
597: FND_MESSAGE.SET_NAME('GMI', 'IC_UNEXPECTED_ERROR');
598: FND_MESSAGE.SET_TOKEN('TEXT', l_msg_data);
599: IF FND_API.To_Boolean(p_called_by_form) THEN
600: APP_EXCEPTION.Raise_Exception;
601: ELSE
594: x_return_status := 'U';
595: x_oracle_error := l_oracle_error;
596: l_msg_data := sqlerrm;
597: FND_MESSAGE.SET_NAME('GMI', 'IC_UNEXPECTED_ERROR');
598: FND_MESSAGE.SET_TOKEN('TEXT', l_msg_data);
599: IF FND_API.To_Boolean(p_called_by_form) THEN
600: APP_EXCEPTION.Raise_Exception;
601: ELSE
602: x_msg_data := FND_MESSAGE.Get;
598: FND_MESSAGE.SET_TOKEN('TEXT', l_msg_data);
599: IF FND_API.To_Boolean(p_called_by_form) THEN
600: APP_EXCEPTION.Raise_Exception;
601: ELSE
602: x_msg_data := FND_MESSAGE.Get;
603: END IF;
604: END Update_Row;
605:
606: /*###############################################################
670: EXCEPTION
671: WHEN No_Data_Found_Error THEN
672: ROLLBACK TO SAVEPOINT Lock_Row;
673: X_return_status := 'E';
674: FND_MESSAGE.SET_NAME('GMI', 'IC_RECORD_NOT_FOUND');
675: FND_MESSAGE.SET_TOKEN('CODE',p_rowid,FALSE);
676: IF FND_API.To_Boolean(p_called_by_form) THEN
677: APP_EXCEPTION.Raise_Exception;
678: ELSE
671: WHEN No_Data_Found_Error THEN
672: ROLLBACK TO SAVEPOINT Lock_Row;
673: X_return_status := 'E';
674: FND_MESSAGE.SET_NAME('GMI', 'IC_RECORD_NOT_FOUND');
675: FND_MESSAGE.SET_TOKEN('CODE',p_rowid,FALSE);
676: IF FND_API.To_Boolean(p_called_by_form) THEN
677: APP_EXCEPTION.Raise_Exception;
678: ELSE
679: X_msg_data := FND_MESSAGE.Get;
675: FND_MESSAGE.SET_TOKEN('CODE',p_rowid,FALSE);
676: IF FND_API.To_Boolean(p_called_by_form) THEN
677: APP_EXCEPTION.Raise_Exception;
678: ELSE
679: X_msg_data := FND_MESSAGE.Get;
680: END IF;
681: WHEN RECORD_CHANGED_ERROR THEN
682: ROLLBACK TO SAVEPOINT Lock_Row;
683: X_return_status := 'E';
680: END IF;
681: WHEN RECORD_CHANGED_ERROR THEN
682: ROLLBACK TO SAVEPOINT Lock_Row;
683: X_return_status := 'E';
684: FND_MESSAGE.SET_NAME('FND','FORM_RECORD_CHANGED');
685: IF FND_API.To_Boolean(p_called_by_form) THEN
686: APP_EXCEPTION.Raise_Exception;
687: ELSE
688: X_msg_data := FND_MESSAGE.Get;
684: FND_MESSAGE.SET_NAME('FND','FORM_RECORD_CHANGED');
685: IF FND_API.To_Boolean(p_called_by_form) THEN
686: APP_EXCEPTION.Raise_Exception;
687: ELSE
688: X_msg_data := FND_MESSAGE.Get;
689: END IF;
690: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
691: ROLLBACK TO SAVEPOINT Lock_Row;
692: X_return_status := 'L';
691: ROLLBACK TO SAVEPOINT Lock_Row;
692: X_return_status := 'L';
693: X_oracle_error := APP_EXCEPTION.Get_Code;
694: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
695: FND_MESSAGE.SET_NAME('GMI', 'IC_ROW_IS_LOCKED');
696: X_msg_data := FND_MESSAGE.Get;
697: END IF;
698: WHEN OTHERS THEN
699: ROLLBACK TO SAVEPOINT Lock_Row;
692: X_return_status := 'L';
693: X_oracle_error := APP_EXCEPTION.Get_Code;
694: IF NOT (FND_API.To_Boolean(p_called_by_form)) THEN
695: FND_MESSAGE.SET_NAME('GMI', 'IC_ROW_IS_LOCKED');
696: X_msg_data := FND_MESSAGE.Get;
697: END IF;
698: WHEN OTHERS THEN
699: ROLLBACK TO SAVEPOINT Lock_Row;
700: X_return_status := 'U';
699: ROLLBACK TO SAVEPOINT Lock_Row;
700: X_return_status := 'U';
701: X_oracle_error := APP_EXCEPTION.Get_Code;
702: l_msg_data := APP_EXCEPTION.Get_Text;
703: FND_MESSAGE.SET_NAME('GMI', 'IC_UNEXPECTED_ERROR');
704: FND_MESSAGE.SET_TOKEN('TEXT', l_msg_data);
705: IF FND_API.To_Boolean(p_called_by_form) THEN
706: APP_EXCEPTION.Raise_Exception;
707: ELSE
700: X_return_status := 'U';
701: X_oracle_error := APP_EXCEPTION.Get_Code;
702: l_msg_data := APP_EXCEPTION.Get_Text;
703: FND_MESSAGE.SET_NAME('GMI', 'IC_UNEXPECTED_ERROR');
704: FND_MESSAGE.SET_TOKEN('TEXT', l_msg_data);
705: IF FND_API.To_Boolean(p_called_by_form) THEN
706: APP_EXCEPTION.Raise_Exception;
707: ELSE
708: X_msg_data := FND_MESSAGE.Get;
704: FND_MESSAGE.SET_TOKEN('TEXT', l_msg_data);
705: IF FND_API.To_Boolean(p_called_by_form) THEN
706: APP_EXCEPTION.Raise_Exception;
707: ELSE
708: X_msg_data := FND_MESSAGE.Get;
709: END IF;
710: END Lock_Row;
711:
712: /*###############################################################
772: OPEN Cur_get_orgn_code;
773: FETCH Cur_get_orgn_code INTO OrgnRecord;
774: IF Cur_get_orgn_code%NOTFOUND THEN
775: x_return_status := 'E';
776: FND_MESSAGE.SET_NAME('GMI', 'IC_RECORD_NOT_FOUND');
777: FND_MESSAGE.SET_TOKEN('CODE', p_orgn_code);
778: l_msg_data := l_msg_data || ' ' || FND_MESSAGE.Get;
779: END IF;
780: CLOSE Cur_get_orgn_code;
773: FETCH Cur_get_orgn_code INTO OrgnRecord;
774: IF Cur_get_orgn_code%NOTFOUND THEN
775: x_return_status := 'E';
776: FND_MESSAGE.SET_NAME('GMI', 'IC_RECORD_NOT_FOUND');
777: FND_MESSAGE.SET_TOKEN('CODE', p_orgn_code);
778: l_msg_data := l_msg_data || ' ' || FND_MESSAGE.Get;
779: END IF;
780: CLOSE Cur_get_orgn_code;
781: END IF;
774: IF Cur_get_orgn_code%NOTFOUND THEN
775: x_return_status := 'E';
776: FND_MESSAGE.SET_NAME('GMI', 'IC_RECORD_NOT_FOUND');
777: FND_MESSAGE.SET_TOKEN('CODE', p_orgn_code);
778: l_msg_data := l_msg_data || ' ' || FND_MESSAGE.Get;
779: END IF;
780: CLOSE Cur_get_orgn_code;
781: END IF;
782:
788: WHEN OTHERS THEN
789: ROLLBACK TO SAVEPOINT check_foreign_keys;
790: x_return_status := 'U';
791: l_msg_data := sqlerrm;
792: FND_MESSAGE.SET_NAME('GMI', 'IC_UNEXPECTED_ERROR');
793: FND_MESSAGE.SET_TOKEN('TEXT', l_msg_data);
794: x_msg_data := FND_MESSAGE.Get;
795: END check_foreign_keys;
796:
789: ROLLBACK TO SAVEPOINT check_foreign_keys;
790: x_return_status := 'U';
791: l_msg_data := sqlerrm;
792: FND_MESSAGE.SET_NAME('GMI', 'IC_UNEXPECTED_ERROR');
793: FND_MESSAGE.SET_TOKEN('TEXT', l_msg_data);
794: x_msg_data := FND_MESSAGE.Get;
795: END check_foreign_keys;
796:
797: /*###############################################################
790: x_return_status := 'U';
791: l_msg_data := sqlerrm;
792: FND_MESSAGE.SET_NAME('GMI', 'IC_UNEXPECTED_ERROR');
793: FND_MESSAGE.SET_TOKEN('TEXT', l_msg_data);
794: x_msg_data := FND_MESSAGE.Get;
795: END check_foreign_keys;
796:
797: /*###############################################################
798: # NAME
846:
847: EXCEPTION
848: WHEN Others THEN
849: l_msg_data := sqlerrm;
850: FND_MESSAGE.SET_NAME('GMI', 'IC_UNEXPECTED_ERROR');
851: FND_MESSAGE.SET_TOKEN('TEXT',l_msg_data);
852: IF FND_API.To_Boolean(p_called_by_form) THEN
853: APP_EXCEPTION.Raise_Exception;
854: END IF;
847: EXCEPTION
848: WHEN Others THEN
849: l_msg_data := sqlerrm;
850: FND_MESSAGE.SET_NAME('GMI', 'IC_UNEXPECTED_ERROR');
851: FND_MESSAGE.SET_TOKEN('TEXT',l_msg_data);
852: IF FND_API.To_Boolean(p_called_by_form) THEN
853: APP_EXCEPTION.Raise_Exception;
854: END IF;
855: END Check_Primary_Key;