355:
356: EXCEPTION
357: WHEN OTHERS THEN
358: if (SQLCODE <> -20001) then
359: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
360: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
361: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
362: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Rowid = '||X_Rowid
363: ||', Recurring_payment_id = '||TO_CHAR(X_Recurring_Payment_Id)
356: EXCEPTION
357: WHEN OTHERS THEN
358: if (SQLCODE <> -20001) then
359: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
360: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
361: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
362: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Rowid = '||X_Rowid
363: ||', Recurring_payment_id = '||TO_CHAR(X_Recurring_Payment_Id)
364: );
357: WHEN OTHERS THEN
358: if (SQLCODE <> -20001) then
359: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
360: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
361: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
362: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Rowid = '||X_Rowid
363: ||', Recurring_payment_id = '||TO_CHAR(X_Recurring_Payment_Id)
364: );
365: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
358: if (SQLCODE <> -20001) then
359: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
360: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
361: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
362: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Rowid = '||X_Rowid
363: ||', Recurring_payment_id = '||TO_CHAR(X_Recurring_Payment_Id)
364: );
365: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
366: end if;
361: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
362: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Rowid = '||X_Rowid
363: ||', Recurring_payment_id = '||TO_CHAR(X_Recurring_Payment_Id)
364: );
365: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
366: end if;
367: APP_EXCEPTION.RAISE_EXCEPTION;
368:
369:
493: FETCH C INTO Recinfo;
494: if (C%NOTFOUND) then
495: debug_info := 'Close cursor C - ROW NOTFOUND';
496: CLOSE C;
497: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
498: APP_EXCEPTION.Raise_Exception;
499: end if;
500: debug_info := 'Close cursor C';
501: CLOSE C;
619: --End bug#8640313
620:
621: null;
622: else
623: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
624: APP_EXCEPTION.Raise_Exception;
625: end if;
626:
627: if(
783:
784: )then
785: return;
786: else
787: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
788: APP_EXCEPTION.Raise_Exception;
789: end if;
790:
791: EXCEPTION
791: EXCEPTION
792: WHEN OTHERS THEN
793: if (SQLCODE <> -20001) then
794: IF (SQLCODE = -54) THEN
795: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
796: ELSE
797: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
798: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
799: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
793: if (SQLCODE <> -20001) then
794: IF (SQLCODE = -54) THEN
795: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
796: ELSE
797: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
798: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
799: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
800: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Rowid = '||X_Rowid
801: ||', Recurring_payment_id = '||TO_CHAR(X_Recurring_Payment_Id)
794: IF (SQLCODE = -54) THEN
795: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
796: ELSE
797: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
798: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
799: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
800: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Rowid = '||X_Rowid
801: ||', Recurring_payment_id = '||TO_CHAR(X_Recurring_Payment_Id)
802: );
795: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
796: ELSE
797: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
798: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
799: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
800: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Rowid = '||X_Rowid
801: ||', Recurring_payment_id = '||TO_CHAR(X_Recurring_Payment_Id)
802: );
803: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
796: ELSE
797: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
798: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
799: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
800: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Rowid = '||X_Rowid
801: ||', Recurring_payment_id = '||TO_CHAR(X_Recurring_Payment_Id)
802: );
803: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
804: END IF;
799: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
800: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Rowid = '||X_Rowid
801: ||', Recurring_payment_id = '||TO_CHAR(X_Recurring_Payment_Id)
802: );
803: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
804: END IF;
805: end if;
806: APP_EXCEPTION.RAISE_EXCEPTION;
807: END Lock_Row;
1034:
1035: EXCEPTION
1036: WHEN OTHERS THEN
1037: if (SQLCODE <> -20001) then
1038: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1039: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1040: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1041: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Rowid = '||X_Rowid
1042: ||', Recurring_payment_id = '||TO_CHAR(X_Recurring_Payment_Id)
1035: EXCEPTION
1036: WHEN OTHERS THEN
1037: if (SQLCODE <> -20001) then
1038: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1039: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1040: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1041: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Rowid = '||X_Rowid
1042: ||', Recurring_payment_id = '||TO_CHAR(X_Recurring_Payment_Id)
1043: );
1036: WHEN OTHERS THEN
1037: if (SQLCODE <> -20001) then
1038: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1039: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1040: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1041: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Rowid = '||X_Rowid
1042: ||', Recurring_payment_id = '||TO_CHAR(X_Recurring_Payment_Id)
1043: );
1044: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1037: if (SQLCODE <> -20001) then
1038: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1039: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1040: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1041: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Rowid = '||X_Rowid
1042: ||', Recurring_payment_id = '||TO_CHAR(X_Recurring_Payment_Id)
1043: );
1044: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1045: end if;
1040: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1041: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Rowid = '||X_Rowid
1042: ||', Recurring_payment_id = '||TO_CHAR(X_Recurring_Payment_Id)
1043: );
1044: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1045: end if;
1046: APP_EXCEPTION.RAISE_EXCEPTION;
1047:
1048: END Update_Row;
1070:
1071: EXCEPTION
1072: WHEN OTHERS THEN
1073: if (SQLCODE <> -20001) then
1074: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1075: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1076: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1077: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Rowid = '||X_Rowid);
1078: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1071: EXCEPTION
1072: WHEN OTHERS THEN
1073: if (SQLCODE <> -20001) then
1074: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1075: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1076: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1077: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Rowid = '||X_Rowid);
1078: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1079: end if;
1072: WHEN OTHERS THEN
1073: if (SQLCODE <> -20001) then
1074: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1075: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1076: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1077: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Rowid = '||X_Rowid);
1078: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1079: end if;
1080: APP_EXCEPTION.RAISE_EXCEPTION;
1073: if (SQLCODE <> -20001) then
1074: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1075: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1076: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1077: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Rowid = '||X_Rowid);
1078: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1079: end if;
1080: APP_EXCEPTION.RAISE_EXCEPTION;
1081:
1074: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1075: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1076: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1077: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Rowid = '||X_Rowid);
1078: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1079: end if;
1080: APP_EXCEPTION.RAISE_EXCEPTION;
1081:
1082: END Delete_Row;