1: package body AR_DUNNING_LETTERS_CUSTOM_PKG as
2: /* $Header: ARPDLCSB.pls 120.2.12000000.2 2007/05/16 11:37:36 tthangav ship $ */
3: procedure INSERT_ROW (
4: X_ROWID in out NOCOPY VARCHAR2,
5: X_DUNNING_LETTER_ID in NUMBER,
201: begin
202:
203: user_id := fnd_load_util.owner_id(X_OWNER);
204:
205: AR_DUNNING_LETTERS_CUSTOM_PKG.UPDATE_ROW (
206: X_DUNNING_LETTER_ID => X_DUNNING_LETTER_ID,
207: X_PARAGRAPH_NUMBER => X_PARAGRAPH_NUMBER,
208: X_PARAGRAPH_TEXT => X_PARAGRAPH_TEXT,
209: X_LAST_UPDATE_DATE => sysdate,
211: X_LAST_UPDATE_LOGIN => 0);
212:
213: exception
214: when NO_DATA_FOUND then
215: AR_DUNNING_LETTERS_CUSTOM_PKG.INSERT_ROW (
216: X_ROWID => row_id,
217: X_DUNNING_LETTER_ID => X_DUNNING_LETTER_ID,
218: X_PARAGRAPH_NUMBER => X_PARAGRAPH_NUMBER,
219: X_PARAGRAPH_TEXT => X_PARAGRAPH_TEXT,
246: and userenv('LANG') in (language, source_lang);
247:
248: end TRANSLATE_ROW;
249:
250: end AR_DUNNING_LETTERS_CUSTOM_PKG;