27: WHERE upper(hold_lookup_code) = upper(X_Hold_Lookup_Code)
28: AND ((X_Rowid IS NULL) OR (rowid <> X_Rowid));
29:
30: IF (Dummy >= 1) then
31: FND_MESSAGE.SET_NAME('SQLAP', 'AP_ALL_DUPLICATE_VALUE');
32: APP_EXCEPTION.RAISE_EXCEPTION;
33: END IF;
34:
35: EXCEPTION
34:
35: EXCEPTION
36: WHEN OTHERS THEN
37: IF (SQLCODE <> -20001) THEN
38: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
39: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
40: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
41: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
42: ', HOLD_LOOKUP_CODE = ' || X_Hold_Lookup_Code);
35: EXCEPTION
36: WHEN OTHERS THEN
37: IF (SQLCODE <> -20001) THEN
38: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
39: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
40: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
41: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
42: ', HOLD_LOOKUP_CODE = ' || X_Hold_Lookup_Code);
43: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
36: WHEN OTHERS THEN
37: IF (SQLCODE <> -20001) THEN
38: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
39: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
40: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
41: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
42: ', HOLD_LOOKUP_CODE = ' || X_Hold_Lookup_Code);
43: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
44: END IF;
37: IF (SQLCODE <> -20001) THEN
38: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
39: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
40: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
41: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
42: ', HOLD_LOOKUP_CODE = ' || X_Hold_Lookup_Code);
43: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
44: END IF;
45: APP_EXCEPTION.RAISE_EXCEPTION;
39: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
40: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
41: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
42: ', HOLD_LOOKUP_CODE = ' || X_Hold_Lookup_Code);
43: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
44: END IF;
45: APP_EXCEPTION.RAISE_EXCEPTION;
46:
47: END CHECK_UNIQUE;
221:
222: EXCEPTION
223: WHEN OTHERS THEN
224: IF (SQLCODE <> -20001) THEN
225: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
226: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
227: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
228: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
229: ', HOLD_LOOKUP_CODE = ' || X_Hold_Lookup_Code);
222: EXCEPTION
223: WHEN OTHERS THEN
224: IF (SQLCODE <> -20001) THEN
225: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
226: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
227: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
228: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
229: ', HOLD_LOOKUP_CODE = ' || X_Hold_Lookup_Code);
230: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
223: WHEN OTHERS THEN
224: IF (SQLCODE <> -20001) THEN
225: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
226: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
227: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
228: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
229: ', HOLD_LOOKUP_CODE = ' || X_Hold_Lookup_Code);
230: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
231: END IF;
224: IF (SQLCODE <> -20001) THEN
225: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
226: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
227: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
228: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
229: ', HOLD_LOOKUP_CODE = ' || X_Hold_Lookup_Code);
230: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
231: END IF;
232: APP_EXCEPTION.RAISE_EXCEPTION;
226: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
227: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
228: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
229: ', HOLD_LOOKUP_CODE = ' || X_Hold_Lookup_Code);
230: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
231: END IF;
232: APP_EXCEPTION.RAISE_EXCEPTION;
233:
234: END Insert_Row;
288:
289: FETCH C INTO Recinfo;
290: if (C%NOTFOUND) then
291: CLOSE C;
292: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
293: APP_EXCEPTION.Raise_Exception;
294: end if;
295:
296: debug_info := 'Close cursor C';
328: AND (X_hold_instruction IS NULL)))
329: ) then
330: return;
331: else
332: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
333: APP_EXCEPTION.Raise_Exception;
334: end if;
335:
336: EXCEPTION
336: EXCEPTION
337: WHEN OTHERS THEN
338: IF (SQLCODE <> -20001) THEN
339: IF (SQLCODE = -54) THEN
340: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
341: ELSE
342: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
343: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
344: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
338: IF (SQLCODE <> -20001) THEN
339: IF (SQLCODE = -54) THEN
340: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
341: ELSE
342: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
343: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
344: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
345: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
346: ', HOLD_LOOKUP_CODE = ' || X_Hold_Lookup_Code);
339: IF (SQLCODE = -54) THEN
340: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
341: ELSE
342: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
343: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
344: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
345: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
346: ', HOLD_LOOKUP_CODE = ' || X_Hold_Lookup_Code);
347: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
340: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
341: ELSE
342: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
343: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
344: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
345: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
346: ', HOLD_LOOKUP_CODE = ' || X_Hold_Lookup_Code);
347: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
348: END IF;
341: ELSE
342: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
343: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
344: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
345: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
346: ', HOLD_LOOKUP_CODE = ' || X_Hold_Lookup_Code);
347: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
348: END IF;
349: END IF;
343: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
344: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
345: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
346: ', HOLD_LOOKUP_CODE = ' || X_Hold_Lookup_Code);
347: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
348: END IF;
349: END IF;
350: APP_EXCEPTION.RAISE_EXCEPTION;
351:
432:
433: EXCEPTION
434: WHEN OTHERS THEN
435: IF (SQLCODE <> -20001) THEN
436: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
437: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
438: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
439: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
440: ', HOLD_LOOKUP_CODE = ' || X_Hold_Lookup_Code);
433: EXCEPTION
434: WHEN OTHERS THEN
435: IF (SQLCODE <> -20001) THEN
436: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
437: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
438: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
439: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
440: ', HOLD_LOOKUP_CODE = ' || X_Hold_Lookup_Code);
441: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
434: WHEN OTHERS THEN
435: IF (SQLCODE <> -20001) THEN
436: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
437: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
438: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
439: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
440: ', HOLD_LOOKUP_CODE = ' || X_Hold_Lookup_Code);
441: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
442: END IF;
435: IF (SQLCODE <> -20001) THEN
436: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
437: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
438: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
439: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
440: ', HOLD_LOOKUP_CODE = ' || X_Hold_Lookup_Code);
441: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
442: END IF;
443: APP_EXCEPTION.RAISE_EXCEPTION;
437: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
438: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
439: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
440: ', HOLD_LOOKUP_CODE = ' || X_Hold_Lookup_Code);
441: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
442: END IF;
443: APP_EXCEPTION.RAISE_EXCEPTION;
444:
445: END Update_Row;