91: Raise NO_DATA_FOUND;
92: end if;
93: EXCEPTION WHEN OTHERS THEN
94: IF (SQLCODE <> -20001) THEN
95: FND_MESSAGE.SET_NAME('SQLGL','GL_DEBUG');
96: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
97: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',CURRENT_CALLING_SEQUENCE);
98: FND_MESSAGE.SET_TOKEN('PARAMETERS','Rowid = '||X_Rowid);
99: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',DEBUG_INFO);
92: end if;
93: EXCEPTION WHEN OTHERS THEN
94: IF (SQLCODE <> -20001) THEN
95: FND_MESSAGE.SET_NAME('SQLGL','GL_DEBUG');
96: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
97: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',CURRENT_CALLING_SEQUENCE);
98: FND_MESSAGE.SET_TOKEN('PARAMETERS','Rowid = '||X_Rowid);
99: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',DEBUG_INFO);
100: END IF;
93: EXCEPTION WHEN OTHERS THEN
94: IF (SQLCODE <> -20001) THEN
95: FND_MESSAGE.SET_NAME('SQLGL','GL_DEBUG');
96: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
97: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',CURRENT_CALLING_SEQUENCE);
98: FND_MESSAGE.SET_TOKEN('PARAMETERS','Rowid = '||X_Rowid);
99: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',DEBUG_INFO);
100: END IF;
101: APP_EXCEPTION.RAISE_EXCEPTION;
94: IF (SQLCODE <> -20001) THEN
95: FND_MESSAGE.SET_NAME('SQLGL','GL_DEBUG');
96: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
97: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',CURRENT_CALLING_SEQUENCE);
98: FND_MESSAGE.SET_TOKEN('PARAMETERS','Rowid = '||X_Rowid);
99: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',DEBUG_INFO);
100: END IF;
101: APP_EXCEPTION.RAISE_EXCEPTION;
102: END Update_Row;
95: FND_MESSAGE.SET_NAME('SQLGL','GL_DEBUG');
96: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
97: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',CURRENT_CALLING_SEQUENCE);
98: FND_MESSAGE.SET_TOKEN('PARAMETERS','Rowid = '||X_Rowid);
99: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',DEBUG_INFO);
100: END IF;
101: APP_EXCEPTION.RAISE_EXCEPTION;
102: END Update_Row;
103:
114: RAISE NO_DATA_FOUND;
115: end if;
116: EXCEPTION WHEN OTHERS THEN
117: IF (SQLCODE <> -20001) THEN
118: FND_MESSAGE.SET_NAME('SQLGL','GL_DEBUG');
119: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
120: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',CURRENT_CALLING_SEQUENCE);
121: FND_MESSAGE.SET_TOKEN('PARAMETERS','FILE_CONTROL = '||X_ROWID);
122: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',DEBUG_INFO);
115: end if;
116: EXCEPTION WHEN OTHERS THEN
117: IF (SQLCODE <> -20001) THEN
118: FND_MESSAGE.SET_NAME('SQLGL','GL_DEBUG');
119: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
120: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',CURRENT_CALLING_SEQUENCE);
121: FND_MESSAGE.SET_TOKEN('PARAMETERS','FILE_CONTROL = '||X_ROWID);
122: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',DEBUG_INFO);
123: END IF;
116: EXCEPTION WHEN OTHERS THEN
117: IF (SQLCODE <> -20001) THEN
118: FND_MESSAGE.SET_NAME('SQLGL','GL_DEBUG');
119: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
120: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',CURRENT_CALLING_SEQUENCE);
121: FND_MESSAGE.SET_TOKEN('PARAMETERS','FILE_CONTROL = '||X_ROWID);
122: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',DEBUG_INFO);
123: END IF;
124: APP_EXCEPTION.RAISE_EXCEPTION;
117: IF (SQLCODE <> -20001) THEN
118: FND_MESSAGE.SET_NAME('SQLGL','GL_DEBUG');
119: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
120: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',CURRENT_CALLING_SEQUENCE);
121: FND_MESSAGE.SET_TOKEN('PARAMETERS','FILE_CONTROL = '||X_ROWID);
122: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',DEBUG_INFO);
123: END IF;
124: APP_EXCEPTION.RAISE_EXCEPTION;
125: END Delete_Row;
118: FND_MESSAGE.SET_NAME('SQLGL','GL_DEBUG');
119: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
120: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',CURRENT_CALLING_SEQUENCE);
121: FND_MESSAGE.SET_TOKEN('PARAMETERS','FILE_CONTROL = '||X_ROWID);
122: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',DEBUG_INFO);
123: END IF;
124: APP_EXCEPTION.RAISE_EXCEPTION;
125: END Delete_Row;
126:
186: FETCH C INTO Recinfo;
187: IF (C%NOTFOUND) THEN
188: debug_info := 'Close cursor C - DATA NOTFOUND';
189: CLOSE C;
190: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
191: APP_EXCEPTION.Raise_Exception;
192: END IF;
193: debug_info := 'Close cursor C';
194: CLOSE C;
276: OR ((Recinfo.created_by IS NULL)
277: AND (X_Created_By IS NULL)))) THEN
278: return;
279: ELSE
280: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
281: APP_EXCEPTION.Raise_Exception;
282: END IF;
283: --
284: EXCEPTION
284: EXCEPTION
285: WHEN OTHERS THEN
286: IF (SQLCODE <> -20001) THEN
287: IF (SQLCODE = -54) THEN
288: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
289: ELSE
290: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
291: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
292: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
286: IF (SQLCODE <> -20001) THEN
287: IF (SQLCODE = -54) THEN
288: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
289: ELSE
290: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
291: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
292: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
293: FND_MESSAGE.SET_TOKEN('PARAMETERS','FILE_CONTROL = ' ||
294: X_FILE_CONTROL);
287: IF (SQLCODE = -54) THEN
288: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
289: ELSE
290: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
291: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
292: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
293: FND_MESSAGE.SET_TOKEN('PARAMETERS','FILE_CONTROL = ' ||
294: X_FILE_CONTROL);
295: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
288: FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
289: ELSE
290: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
291: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
292: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
293: FND_MESSAGE.SET_TOKEN('PARAMETERS','FILE_CONTROL = ' ||
294: X_FILE_CONTROL);
295: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
296: END IF;
289: ELSE
290: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
291: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
292: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
293: FND_MESSAGE.SET_TOKEN('PARAMETERS','FILE_CONTROL = ' ||
294: X_FILE_CONTROL);
295: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
296: END IF;
297: END IF;
291: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
292: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
293: FND_MESSAGE.SET_TOKEN('PARAMETERS','FILE_CONTROL = ' ||
294: X_FILE_CONTROL);
295: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
296: END IF;
297: END IF;
298: APP_EXCEPTION.RAISE_EXCEPTION;
299: --