72: IF (C%NOTFOUND)
73: THEN
74: debug_info := 'Close cursor C - DATA NOTFOUND';
75: CLOSE C;
76: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
77: APP_EXCEPTION.Raise_Exception;
78: END IF;
79: debug_info := 'Close cursor C';
80: CLOSE C;
128: )
129: THEN
130: return;
131: ELSE
132: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
133: APP_EXCEPTION.Raise_Exception;
134: END IF;
135:
136: EXCEPTION
136: EXCEPTION
137: WHEN OTHERS THEN
138: IF (SQLCODE <> -20001) THEN
139: IF (SQLCODE = -54) THEN
140: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
141: ELSE
142: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
143: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
144: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',NULL);
138: IF (SQLCODE <> -20001) THEN
139: IF (SQLCODE = -54) THEN
140: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
141: ELSE
142: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
143: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
144: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',NULL);
145: FND_MESSAGE.SET_TOKEN('PARAMETERS',NULL);
146: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
139: IF (SQLCODE = -54) THEN
140: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
141: ELSE
142: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
143: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
144: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',NULL);
145: FND_MESSAGE.SET_TOKEN('PARAMETERS',NULL);
146: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
147: END IF;
140: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
141: ELSE
142: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
143: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
144: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',NULL);
145: FND_MESSAGE.SET_TOKEN('PARAMETERS',NULL);
146: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
147: END IF;
148: END IF;
141: ELSE
142: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
143: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
144: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',NULL);
145: FND_MESSAGE.SET_TOKEN('PARAMETERS',NULL);
146: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
147: END IF;
148: END IF;
149: APP_EXCEPTION.RAISE_EXCEPTION;
142: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
143: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
144: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',NULL);
145: FND_MESSAGE.SET_TOKEN('PARAMETERS',NULL);
146: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
147: END IF;
148: END IF;
149: APP_EXCEPTION.RAISE_EXCEPTION;
150: END Lock_Row;