132:
133: EXCEPTION
134: WHEN OTHERS THEN
135: IF (SQLCODE <> -20001) THEN
136: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
137: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
138: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
139: FND_MESSAGE.SET_TOKEN('PARAMETERS',
140: ' ship_from_code = ' || X_ship_from_code ||
133: EXCEPTION
134: WHEN OTHERS THEN
135: IF (SQLCODE <> -20001) THEN
136: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
137: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
138: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
139: FND_MESSAGE.SET_TOKEN('PARAMETERS',
140: ' ship_from_code = ' || X_ship_from_code ||
141: ' ship_to_segment_id = ' || X_ship_to_segment_id ||
134: WHEN OTHERS THEN
135: IF (SQLCODE <> -20001) THEN
136: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
137: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
138: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
139: FND_MESSAGE.SET_TOKEN('PARAMETERS',
140: ' ship_from_code = ' || X_ship_from_code ||
141: ' ship_to_segment_id = ' || X_ship_to_segment_id ||
142: ' tax_category_id = ' || X_tax_category_id ||
135: IF (SQLCODE <> -20001) THEN
136: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
137: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
138: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
139: FND_MESSAGE.SET_TOKEN('PARAMETERS',
140: ' ship_from_code = ' || X_ship_from_code ||
141: ' ship_to_segment_id = ' || X_ship_to_segment_id ||
142: ' tax_category_id = ' || X_tax_category_id ||
143: ' end_date_active = ' || X_end_date_active );
140: ' ship_from_code = ' || X_ship_from_code ||
141: ' ship_to_segment_id = ' || X_ship_to_segment_id ||
142: ' tax_category_id = ' || X_tax_category_id ||
143: ' end_date_active = ' || X_end_date_active );
144: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
145: END IF;
146: APP_EXCEPTION.RAISE_EXCEPTION;
147:
148: END Insert_Row;
211: FETCH C INTO Recinfo;
212: IF (C%NOTFOUND) THEN
213: debug_info := 'Close cursor C - DATA NOTFOUND';
214: CLOSE C;
215: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
216: APP_EXCEPTION.Raise_Exception;
217: END IF;
218: debug_info := 'Close cursor C';
219: CLOSE C;
297: ((Recinfo.attribute15 IS NULL) AND
298: (X_attribute15 IS NULL)))) THEN
299: return;
300: ELSE
301: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
302: APP_EXCEPTION.Raise_Exception;
303: END IF;
304:
305: EXCEPTION
305: EXCEPTION
306: WHEN OTHERS THEN
307: IF (SQLCODE <> -20001) THEN
308: IF (SQLCODE = -54) THEN
309: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
310: ELSE
311: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
312: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
313: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
307: IF (SQLCODE <> -20001) THEN
308: IF (SQLCODE = -54) THEN
309: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
310: ELSE
311: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
312: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
313: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
314: FND_MESSAGE.SET_TOKEN('PARAMETERS',
315: ' ship_from_code = ' || X_ship_from_code ||
308: IF (SQLCODE = -54) THEN
309: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
310: ELSE
311: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
312: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
313: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
314: FND_MESSAGE.SET_TOKEN('PARAMETERS',
315: ' ship_from_code = ' || X_ship_from_code ||
316: ' ship_to_segment_id = ' || X_ship_to_segment_id ||
309: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
310: ELSE
311: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
312: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
313: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
314: FND_MESSAGE.SET_TOKEN('PARAMETERS',
315: ' ship_from_code = ' || X_ship_from_code ||
316: ' ship_to_segment_id = ' || X_ship_to_segment_id ||
317: ' tax_category_id = ' || X_tax_category_id ||
310: ELSE
311: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
312: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
313: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
314: FND_MESSAGE.SET_TOKEN('PARAMETERS',
315: ' ship_from_code = ' || X_ship_from_code ||
316: ' ship_to_segment_id = ' || X_ship_to_segment_id ||
317: ' tax_category_id = ' || X_tax_category_id ||
318: ' end_date_active = ' || X_end_date_active );
315: ' ship_from_code = ' || X_ship_from_code ||
316: ' ship_to_segment_id = ' || X_ship_to_segment_id ||
317: ' tax_category_id = ' || X_tax_category_id ||
318: ' end_date_active = ' || X_end_date_active );
319: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
320: END IF;
321: END IF;
322: APP_EXCEPTION.RAISE_EXCEPTION;
323: END Lock_Row;
436: AND org_id = X_org_id
437: AND ((X_rowid IS NULL) OR (rowid <> X_rowid));
438:
439: IF (l_dummy >=1) THEN
440: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
441: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
442: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
443: FND_MESSAGE.SET_TOKEN('PARAMETERS',
444: ' ship_from_code = ' || X_ship_from_code ||
437: AND ((X_rowid IS NULL) OR (rowid <> X_rowid));
438:
439: IF (l_dummy >=1) THEN
440: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
441: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
442: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
443: FND_MESSAGE.SET_TOKEN('PARAMETERS',
444: ' ship_from_code = ' || X_ship_from_code ||
445: ' ship_to_segment_id = ' || X_ship_to_segment_id ||
438:
439: IF (l_dummy >=1) THEN
440: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
441: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
442: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
443: FND_MESSAGE.SET_TOKEN('PARAMETERS',
444: ' ship_from_code = ' || X_ship_from_code ||
445: ' ship_to_segment_id = ' || X_ship_to_segment_id ||
446: ' tax_category_id = ' || X_tax_category_id ||
439: IF (l_dummy >=1) THEN
440: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
441: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
442: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
443: FND_MESSAGE.SET_TOKEN('PARAMETERS',
444: ' ship_from_code = ' || X_ship_from_code ||
445: ' ship_to_segment_id = ' || X_ship_to_segment_id ||
446: ' tax_category_id = ' || X_tax_category_id ||
447: ' end_date_active = ' || X_end_date_active );
444: ' ship_from_code = ' || X_ship_from_code ||
445: ' ship_to_segment_id = ' || X_ship_to_segment_id ||
446: ' tax_category_id = ' || X_tax_category_id ||
447: ' end_date_active = ' || X_end_date_active );
448: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
449: APP_EXCEPTION.RAISE_EXCEPTION;
450: END IF;
451: END Check_Unique;
452:
484: a.end_date_active >= X_end_date_active))
485: AND ((X_rowid IS NULL) OR (a.rowid <> X_rowid));
486:
487: IF (l_dummy >=1) THEN
488: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
489: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
490: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
491: FND_MESSAGE.SET_TOKEN('PARAMETERS',
492: ' ship_from_code = ' || X_ship_from_code ||
485: AND ((X_rowid IS NULL) OR (a.rowid <> X_rowid));
486:
487: IF (l_dummy >=1) THEN
488: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
489: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
490: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
491: FND_MESSAGE.SET_TOKEN('PARAMETERS',
492: ' ship_from_code = ' || X_ship_from_code ||
493: ' ship_to_segment_id = ' || X_ship_to_segment_id ||
486:
487: IF (l_dummy >=1) THEN
488: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
489: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
490: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
491: FND_MESSAGE.SET_TOKEN('PARAMETERS',
492: ' ship_from_code = ' || X_ship_from_code ||
493: ' ship_to_segment_id = ' || X_ship_to_segment_id ||
494: ' tax_category_id = ' || X_tax_category_id ||
487: IF (l_dummy >=1) THEN
488: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
489: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
490: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
491: FND_MESSAGE.SET_TOKEN('PARAMETERS',
492: ' ship_from_code = ' || X_ship_from_code ||
493: ' ship_to_segment_id = ' || X_ship_to_segment_id ||
494: ' tax_category_id = ' || X_tax_category_id ||
495: ' end_date_active = ' || X_end_date_active );
492: ' ship_from_code = ' || X_ship_from_code ||
493: ' ship_to_segment_id = ' || X_ship_to_segment_id ||
494: ' tax_category_id = ' || X_tax_category_id ||
495: ' end_date_active = ' || X_end_date_active );
496: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
497: APP_EXCEPTION.RAISE_EXCEPTION;
498: END IF;
499: END Check_Overlapped_Dates;
500:
559: AND ((X_rowid IS NULL) OR (a.rowid <> X_rowid))
560: AND org_id = X_org_id;
561:
562: IF (l_dummy2 <> 0) THEN
563: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
564: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
565: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
566: FND_MESSAGE.SET_TOKEN('PARAMETERS',
567: ' ship_from_code = ' || X_ship_from_code ||
560: AND org_id = X_org_id;
561:
562: IF (l_dummy2 <> 0) THEN
563: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
564: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
565: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
566: FND_MESSAGE.SET_TOKEN('PARAMETERS',
567: ' ship_from_code = ' || X_ship_from_code ||
568: ' ship_to_segment_id = ' || X_ship_to_segment_id ||
561:
562: IF (l_dummy2 <> 0) THEN
563: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
564: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
565: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
566: FND_MESSAGE.SET_TOKEN('PARAMETERS',
567: ' ship_from_code = ' || X_ship_from_code ||
568: ' ship_to_segment_id = ' || X_ship_to_segment_id ||
569: ' tax_category_id = ' || X_tax_category_id ||
562: IF (l_dummy2 <> 0) THEN
563: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
564: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
565: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
566: FND_MESSAGE.SET_TOKEN('PARAMETERS',
567: ' ship_from_code = ' || X_ship_from_code ||
568: ' ship_to_segment_id = ' || X_ship_to_segment_id ||
569: ' tax_category_id = ' || X_tax_category_id ||
570: ' end_date_active = ' || X_end_date_active );
567: ' ship_from_code = ' || X_ship_from_code ||
568: ' ship_to_segment_id = ' || X_ship_to_segment_id ||
569: ' tax_category_id = ' || X_tax_category_id ||
570: ' end_date_active = ' || X_end_date_active );
571: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
572: APP_EXCEPTION.RAISE_EXCEPTION;
573: END IF;
574: END;
575: END IF;