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;
274:
275: FETCH C INTO Recinfo;
276: if (C%NOTFOUND) then
277: CLOSE C;
278: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
279: APP_EXCEPTION.Raise_Exception;
280: end if;
281:
282: debug_info := 'Close cursor C';
314: AND (X_hold_instruction IS NULL)))
315: ) then
316: return;
317: else
318: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
319: APP_EXCEPTION.Raise_Exception;
320: end if;
321:
322: EXCEPTION
322: EXCEPTION
323: WHEN OTHERS THEN
324: IF (SQLCODE <> -20001) THEN
325: IF (SQLCODE = -54) THEN
326: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
327: ELSE
328: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
329: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
330: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
324: IF (SQLCODE <> -20001) THEN
325: IF (SQLCODE = -54) THEN
326: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
327: ELSE
328: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
329: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
330: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
331: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
332: ', HOLD_LOOKUP_CODE = ' || X_Hold_Lookup_Code);
325: IF (SQLCODE = -54) THEN
326: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
327: ELSE
328: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
329: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
330: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
331: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
332: ', HOLD_LOOKUP_CODE = ' || X_Hold_Lookup_Code);
333: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
326: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
327: ELSE
328: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
329: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
330: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
331: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
332: ', HOLD_LOOKUP_CODE = ' || X_Hold_Lookup_Code);
333: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
334: END IF;
327: ELSE
328: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
329: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
330: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
331: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
332: ', HOLD_LOOKUP_CODE = ' || X_Hold_Lookup_Code);
333: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
334: END IF;
335: END IF;
329: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
330: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
331: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
332: ', HOLD_LOOKUP_CODE = ' || X_Hold_Lookup_Code);
333: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
334: END IF;
335: END IF;
336: APP_EXCEPTION.RAISE_EXCEPTION;
337:
418:
419: EXCEPTION
420: WHEN OTHERS THEN
421: IF (SQLCODE <> -20001) THEN
422: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
423: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
424: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
425: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
426: ', HOLD_LOOKUP_CODE = ' || X_Hold_Lookup_Code);
419: EXCEPTION
420: WHEN OTHERS THEN
421: IF (SQLCODE <> -20001) THEN
422: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
423: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
424: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
425: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
426: ', HOLD_LOOKUP_CODE = ' || X_Hold_Lookup_Code);
427: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
420: WHEN OTHERS THEN
421: IF (SQLCODE <> -20001) THEN
422: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
423: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
424: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
425: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
426: ', HOLD_LOOKUP_CODE = ' || X_Hold_Lookup_Code);
427: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
428: END IF;
421: IF (SQLCODE <> -20001) THEN
422: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
423: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
424: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
425: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
426: ', HOLD_LOOKUP_CODE = ' || X_Hold_Lookup_Code);
427: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
428: END IF;
429: APP_EXCEPTION.RAISE_EXCEPTION;
423: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
424: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
425: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
426: ', HOLD_LOOKUP_CODE = ' || X_Hold_Lookup_Code);
427: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
428: END IF;
429: APP_EXCEPTION.RAISE_EXCEPTION;
430:
431: END Update_Row;