106: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
107: ', ENTRY_ID = ' || X_Entry_Id);
108: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
109: END IF;
110: APP_EXCEPTION.RAISE_EXCEPTION;
111:
112: END Insert_Row;
113:
114:
154: if (C%NOTFOUND) then
155: debug_info := 'Close cursor C - DATA NOT FOUND';
156: CLOSE C;
157: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
158: APP_EXCEPTION.Raise_Exception;
159: end if;
160: debug_info := 'Close cursor C';
161: CLOSE C;
162: if (
210: ) then
211: return;
212: else
213: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
214: APP_EXCEPTION.Raise_Exception;
215: end if;
216:
217: EXCEPTION
218: WHEN OTHERS THEN
227: ', ENTRY_ID = ' || X_Entry_Id);
228: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
229: END IF;
230: END IF;
231: APP_EXCEPTION.RAISE_EXCEPTION;
232:
233: END Lock_Row;
234:
235:
305: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid ||
306: ', ENTRY_ID = ' || X_Entry_Id);
307: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
308: END IF;
309: APP_EXCEPTION.RAISE_EXCEPTION;
310:
311: END Update_Row;
312:
313: PROCEDURE Delete_Row(X_Rowid VARCHAR2,
340: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
341: FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_Rowid);
342: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
343: END IF;
344: APP_EXCEPTION.RAISE_EXCEPTION;
345:
346: END Delete_Row;
347:
348: