29: AND ((p_ROWID is null) OR
30: (rowid <> p_ROWID));
31:
32: IF (dummy >= 1) THEN
33: fnd_message.set_name('SQLAP','AP_ALL_DUPLICATE_VALUE');
34: app_exception.raise_exception;
35: END IF;
36:
37: EXCEPTION
36:
37: EXCEPTION
38: WHEN OTHERS THEN
39: IF (SQLCODE <> -20001) THEN
40: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
41: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
42: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
43: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Rowid = '||p_ROWID
44: ||', Invoice Id = '||p_INVOICE_ID
37: EXCEPTION
38: WHEN OTHERS THEN
39: IF (SQLCODE <> -20001) THEN
40: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
41: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
42: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
43: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Rowid = '||p_ROWID
44: ||', Invoice Id = '||p_INVOICE_ID
45: ||', Invoice line number = '||
38: WHEN OTHERS THEN
39: IF (SQLCODE <> -20001) THEN
40: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
41: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
42: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
43: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Rowid = '||p_ROWID
44: ||', Invoice Id = '||p_INVOICE_ID
45: ||', Invoice line number = '||
46: p_line_number);
39: IF (SQLCODE <> -20001) THEN
40: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
41: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
42: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
43: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Rowid = '||p_ROWID
44: ||', Invoice Id = '||p_INVOICE_ID
45: ||', Invoice line number = '||
46: p_line_number);
47: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
43: FND_MESSAGE.SET_TOKEN('PARAMETERS', 'Rowid = '||p_ROWID
44: ||', Invoice Id = '||p_INVOICE_ID
45: ||', Invoice line number = '||
46: p_line_number);
47: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
48: END IF;
49: APP_EXCEPTION.RAISE_EXCEPTION;
50: END CHECK_UNIQUE;
51:
610:
611: EXCEPTION
612: WHEN OTHERS THEN
613: IF (SQLCODE <> -20001) THEN
614: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
615: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
616: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
617: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
618: END IF;
611: EXCEPTION
612: WHEN OTHERS THEN
613: IF (SQLCODE <> -20001) THEN
614: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
615: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
616: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
617: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
618: END IF;
619: APP_EXCEPTION.RAISE_EXCEPTION;
612: WHEN OTHERS THEN
613: IF (SQLCODE <> -20001) THEN
614: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
615: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
616: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
617: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
618: END IF;
619: APP_EXCEPTION.RAISE_EXCEPTION;
620:
613: IF (SQLCODE <> -20001) THEN
614: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
615: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
616: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
617: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
618: END IF;
619: APP_EXCEPTION.RAISE_EXCEPTION;
620:
621: END Insert_Row;
978: FETCH C INTO Recinfo;
979: IF (C%NOTFOUND) THEN
980: debug_info := 'Close cursor C - ROW NOTFOUND';
981: CLOSE C;
982: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
983: APP_EXCEPTION.Raise_Exception;
984: END IF;
985: debug_info := 'Close cursor C';
986: CLOSE C;
1052: OR ( (Recinfo.attribute13 IS NULL)
1053: AND (P_Attribute13 IS NULL)))) THEN
1054: NULL;
1055: ELSE
1056: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
1057: APP_EXCEPTION.Raise_Exception;
1058: END IF;
1059: IF (
1060: ( (Recinfo.attribute14 = P_Attribute14)
1169: OR ( (Recinfo.country_of_supply IS NULL)
1170: AND (P_Country_Of_Supply IS NULL)))) THEN
1171: NULL;
1172: ELSE
1173: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
1174: APP_EXCEPTION.Raise_Exception;
1175: END IF;
1176: IF (
1177: ( (Recinfo.global_attribute_category =
1475: AND (P_TAX_CLASSIFICATION_CODE IS NULL)))
1476: ) THEN
1477: RETURN;
1478: ELSE
1479: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
1480: APP_EXCEPTION.Raise_Exception;
1481: END IF;
1482:
1483: EXCEPTION
1483: EXCEPTION
1484: WHEN OTHERS THEN
1485: IF (SQLCODE <> -20001) THEN
1486: IF (SQLCODE = -54) THEN
1487: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
1488: ELSE
1489: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1490: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1491: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1485: IF (SQLCODE <> -20001) THEN
1486: IF (SQLCODE = -54) THEN
1487: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
1488: ELSE
1489: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1490: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1491: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1492: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1493: END IF;
1486: IF (SQLCODE = -54) THEN
1487: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
1488: ELSE
1489: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1490: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1491: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1492: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1493: END IF;
1494: END IF;
1487: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
1488: ELSE
1489: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1490: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1491: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1492: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1493: END IF;
1494: END IF;
1495: APP_EXCEPTION.RAISE_EXCEPTION;
1488: ELSE
1489: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1490: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1491: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1492: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1493: END IF;
1494: END IF;
1495: APP_EXCEPTION.RAISE_EXCEPTION;
1496:
1863:
1864: EXCEPTION
1865: WHEN OTHERS THEN
1866: IF (SQLCODE <> -20001) THEN
1867: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1868: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1869: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1870: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1871: END IF;
1864: EXCEPTION
1865: WHEN OTHERS THEN
1866: IF (SQLCODE <> -20001) THEN
1867: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1868: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1869: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1870: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1871: END IF;
1872: APP_EXCEPTION.RAISE_EXCEPTION;
1865: WHEN OTHERS THEN
1866: IF (SQLCODE <> -20001) THEN
1867: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1868: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1869: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1870: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1871: END IF;
1872: APP_EXCEPTION.RAISE_EXCEPTION;
1873:
1866: IF (SQLCODE <> -20001) THEN
1867: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1868: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1869: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1870: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1871: END IF;
1872: APP_EXCEPTION.RAISE_EXCEPTION;
1873:
1874: END Update_Row;
1911:
1912: EXCEPTION
1913: WHEN OTHERS THEN
1914: IF (SQLCODE <> -20001) THEN
1915: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1916: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1917: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1918: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1919: END IF;
1912: EXCEPTION
1913: WHEN OTHERS THEN
1914: IF (SQLCODE <> -20001) THEN
1915: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1916: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1917: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1918: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1919: END IF;
1920: APP_EXCEPTION.RAISE_EXCEPTION;
1913: WHEN OTHERS THEN
1914: IF (SQLCODE <> -20001) THEN
1915: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1916: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1917: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1918: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1919: END IF;
1920: APP_EXCEPTION.RAISE_EXCEPTION;
1921:
1914: IF (SQLCODE <> -20001) THEN
1915: FND_MESSAGE.SET_NAME('SQLAP', 'AP_DEBUG');
1916: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
1917: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', current_calling_sequence);
1918: FND_MESSAGE.SET_TOKEN('DEBUG_INFO', debug_info);
1919: END IF;
1920: APP_EXCEPTION.RAISE_EXCEPTION;
1921:
1922: END Delete_Row;