DBA Data[Home] [Help]

APPS.AR_INTEREST_BATCHES_PKG dependencies on FND_API

Line 60: x_return_status := fnd_api.g_ret_sts_success;

56: l_continue VARCHAR2(1) := 'Y';
57: BEGIN
58: arp_util.debug('AR_INTEREST_BATCHES_PKG.Lock_batch+');
59: arp_util.debug(' p_Interest_Batch_Id :'||p_Interest_Batch_Id);
60: x_return_status := fnd_api.g_ret_sts_success;
61: OPEN C;
62: FETCH C INTO Recinfo;
63: IF (C%NOTFOUND) THEN
64: CLOSE C;

Line 66: x_return_status := fnd_api.g_ret_sts_error;

62: FETCH C INTO Recinfo;
63: IF (C%NOTFOUND) THEN
64: CLOSE C;
65: l_continue := 'N';
66: x_return_status := fnd_api.g_ret_sts_error;
67: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
68: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
69: p_count => x_msg_count,
70: p_data => x_msg_data);

Line 68: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,

64: CLOSE C;
65: l_continue := 'N';
66: x_return_status := fnd_api.g_ret_sts_error;
67: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
68: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
69: p_count => x_msg_count,
70: p_data => x_msg_data);
71: END IF;
72: CLOSE C;

Line 85: x_return_status := fnd_api.g_ret_sts_error;

81: AND (NVL(Recinfo.org_id,-99) = NVL(p_Org_Id,-99))
82: THEN
83: RETURN;
84: ELSE
85: x_return_status := fnd_api.g_ret_sts_error;
86: FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
87: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
88: p_count => x_msg_count,
89: p_data => x_msg_data);

Line 87: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,

83: RETURN;
84: ELSE
85: x_return_status := fnd_api.g_ret_sts_error;
86: FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
87: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
88: p_count => x_msg_count,
89: p_data => x_msg_data);
90: END IF;
91: END IF;

Line 119: x_return_status := FND_API.G_RET_STS_ERROR;

115: THEN
116: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
117: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'BATCH_STATUS' );
118: FND_MSG_PUB.ADD;
119: x_return_status := FND_API.G_RET_STS_ERROR;
120: END IF;
121:
122: IF p_old_batch_rec.transferred_status IS NULL OR p_new_batch_rec.transferred_status IS NULL
123: THEN

Line 127: x_return_status := FND_API.G_RET_STS_ERROR;

123: THEN
124: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
125: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'TRANSFERRED_STATUS' );
126: FND_MSG_PUB.ADD;
127: x_return_status := FND_API.G_RET_STS_ERROR;
128: END IF;
129:
130: IF p_new_batch_rec.batch_status NOT IN ('D','F') OR
131: p_old_batch_rec.batch_status NOT IN ('D','F')

Line 138: x_return_status := FND_API.G_RET_STS_ERROR;

134: FND_MESSAGE.SET_NAME( 'AR', 'AR_ONLY_VALUE_ALLOWED' );
135: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'BATCH_STATUS' );
136: FND_MESSAGE.SET_TOKEN( 'VALUES', g_draft||','||g_final);
137: FND_MSG_PUB.ADD;
138: x_return_status := FND_API.G_RET_STS_ERROR;
139: END IF;
140:
141: IF p_new_batch_rec.transferred_status NOT IN ('N','E','S','P') OR
142: p_old_batch_rec.transferred_status NOT IN ('N','E','S','P')

Line 149: x_return_status := FND_API.G_RET_STS_ERROR;

145: FND_MESSAGE.SET_NAME( 'AR', 'AR_ONLY_VALUE_ALLOWED' );
146: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'TRANSFERRED_STATUS' );
147: FND_MESSAGE.SET_TOKEN( 'VALUES', g_not||','||g_error||','||g_success);
148: FND_MSG_PUB.ADD;
149: x_return_status := FND_API.G_RET_STS_ERROR;
150: END IF;
151:
152:
153: IF p_old_batch_rec.batch_status = 'F' AND p_new_batch_rec.batch_status <> 'F'

Line 159: x_return_status := FND_API.G_RET_STS_ERROR;

155: arp_util.debug('Can not update the batch status as it is F');
156: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_NONUPDATEABLE_COLUMN' );
157: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'batch_status');
158: FND_MSG_PUB.ADD;
159: x_return_status := FND_API.G_RET_STS_ERROR;
160: END IF;
161:
162:
163: IF p_updated_by_program = 'ARIINR' THEN

Line 167: x_return_status := fnd_api.g_ret_sts_error;

163: IF p_updated_by_program = 'ARIINR' THEN
164: IF p_new_batch_rec.transferred_status NOT IN ('N')
165: AND p_new_batch_rec.transferred_status <> p_old_batch_rec.transferred_status
166: THEN
167: x_return_status := fnd_api.g_ret_sts_error;
168: fnd_message.set_name('AR', 'AR_STATUS_RESERVE_FOR_SRS');
169: fnd_msg_pub.add;
170: END IF;
171: END IF;

Line 180: x_return_status := FND_API.G_RET_STS_ERROR;

176: FND_MESSAGE.SET_NAME( 'AR', 'AR_ONLY_VALUE_ALLOWED' );
177: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'TRANSFERRED_STATUS' );
178: FND_MESSAGE.SET_TOKEN( 'VALUES', g_not);
179: FND_MSG_PUB.ADD;
180: x_return_status := FND_API.G_RET_STS_ERROR;
181: END IF;
182:
183:
184: IF p_old_batch_rec.transferred_status = 'S' AND p_new_batch_rec.transferred_status <> 'S' THEN

Line 189: x_return_status := FND_API.G_RET_STS_ERROR;

185: arp_util.debug('Can not update a successfull batch transferred status');
186: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_NONUPDATEABLE_COLUMN' );
187: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'transferred_status' );
188: FND_MSG_PUB.ADD;
189: x_return_status := FND_API.G_RET_STS_ERROR;
190: END IF;
191:
192: IF p_old_batch_rec.transferred_status <> 'N' AND p_new_batch_rec.transferred_status ='N' THEN
193: x_cascade_update := 'Y';

Line 196: IF p_new_batch_rec.gl_date = fnd_api.g_miss_date THEN

192: IF p_old_batch_rec.transferred_status <> 'N' AND p_new_batch_rec.transferred_status ='N' THEN
193: x_cascade_update := 'Y';
194: END IF;
195:
196: IF p_new_batch_rec.gl_date = fnd_api.g_miss_date THEN
197: arp_util.debug('Gl Date can not be null');
198: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
199: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'gl_date' );
200: FND_MSG_PUB.ADD;

Line 201: x_return_status := FND_API.G_RET_STS_ERROR;

197: arp_util.debug('Gl Date can not be null');
198: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_MISSING_COLUMN' );
199: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'gl_date' );
200: FND_MSG_PUB.ADD;
201: x_return_status := FND_API.G_RET_STS_ERROR;
202: END IF;
203:
204: IF (p_new_batch_rec.gl_date <> fnd_api.g_miss_date) AND
205: (p_old_batch_rec.gl_date <> p_new_batch_rec.gl_date)

Line 204: IF (p_new_batch_rec.gl_date <> fnd_api.g_miss_date) AND

200: FND_MSG_PUB.ADD;
201: x_return_status := FND_API.G_RET_STS_ERROR;
202: END IF;
203:
204: IF (p_new_batch_rec.gl_date <> fnd_api.g_miss_date) AND
205: (p_old_batch_rec.gl_date <> p_new_batch_rec.gl_date)
206: THEN
207: IF p_new_batch_rec.transferred_status <> 'N' THEN
208: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_NONUPDATEABLE_COLUMN' );

Line 211: x_return_status := FND_API.G_RET_STS_ERROR;

207: IF p_new_batch_rec.transferred_status <> 'N' THEN
208: FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_NONUPDATEABLE_COLUMN' );
209: FND_MESSAGE.SET_TOKEN( 'COLUMN', 'GL_DATE' );
210: FND_MSG_PUB.ADD;
211: x_return_status := FND_API.G_RET_STS_ERROR;
212: END IF;
213: END IF;
214:
215:

Line 221: x_return_status := FND_API.G_RET_STS_ERROR;

217:
218: IF p_action = 'DELETE' THEN
219: IF p_old_batch_rec.batch_status <> 'D' THEN
220: arp_util.debug('Only Draft batches are delateable');
221: x_return_status := FND_API.G_RET_STS_ERROR;
222: FND_MESSAGE.SET_NAME( 'AR', 'AR_DRAFT_BATCH_DELETABLE' );
223: FND_MSG_PUB.ADD;
224: END IF;
225: END IF;

Line 231: ( p_init_msg_list IN VARCHAR2 := fnd_api.g_false,

227: arp_util.debug(' Validate_batch -');
228: END;
229:
230: PROCEDURE Delete_batch
231: ( p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
232: p_interest_batch_id IN NUMBER,
233: x_object_version_number IN NUMBER,
234: x_return_status OUT NOCOPY VARCHAR2,
235: x_msg_count OUT NOCOPY NUMBER,

Line 260: IF fnd_api.to_boolean(p_init_msg_list) THEN

256: BEGIN
257: arp_util.debug('Delete_Batch +');
258: arp_util.debug(' p_interest_batch_id : '||p_interest_batch_id);
259:
260: IF fnd_api.to_boolean(p_init_msg_list) THEN
261: fnd_msg_pub.initialize;
262: END IF;
263:
264: x_return_status := fnd_api.G_RET_STS_SUCCESS;

Line 264: x_return_status := fnd_api.G_RET_STS_SUCCESS;

260: IF fnd_api.to_boolean(p_init_msg_list) THEN
261: fnd_msg_pub.initialize;
262: END IF;
263:
264: x_return_status := fnd_api.G_RET_STS_SUCCESS;
265:
266: OPEN c;
267: FETCH c INTO
268: l_rec.INTEREST_BATCH_ID ,

Line 286: RAISE fnd_api.g_exc_error;

282: fnd_message.set_token('RECORD', 'ar_interest_batches');
283: fnd_message.set_token('VALUE',
284: NVL(TO_CHAR(P_INTEREST_BATCH_ID), 'null'));
285: fnd_msg_pub.add;
286: RAISE fnd_api.g_exc_error;
287: END IF;
288:
289: IF NOT ((x_object_version_number IS NULL AND
290: l_rec.OBJECT_VERSION_NUMBER IS NULL) OR

Line 298: RAISE fnd_api.g_exc_error;

294: THEN
295: fnd_message.set_name('AR', 'HZ_API_RECORD_CHANGED');
296: fnd_message.set_token('TABLE', 'ar_interest_batches');
297: fnd_msg_pub.add;
298: RAISE fnd_api.g_exc_error;
299: END IF;
300:
301: Validate_batch
302: ( p_action => 'DELETE',

Line 308: IF x_return_status <> fnd_api.g_ret_sts_success THEN

304: p_new_batch_rec => l_new_rec,
305: x_cascade_update => x_cascade_update,
306: x_return_status => x_return_status);
307:
308: IF x_return_status <> fnd_api.g_ret_sts_success THEN
309: RAISE fnd_api.g_exc_error;
310: END IF;
311:
312: DELETE FROM ar_interest_lines iil

Line 309: RAISE fnd_api.g_exc_error;

305: x_cascade_update => x_cascade_update,
306: x_return_status => x_return_status);
307:
308: IF x_return_status <> fnd_api.g_ret_sts_success THEN
309: RAISE fnd_api.g_exc_error;
310: END IF;
311:
312: DELETE FROM ar_interest_lines iil
313: WHERE EXISTS

Line 327: WHEN fnd_api.g_exc_error THEN

323: WHERE interest_batch_id = p_interest_batch_id ;
324:
325: arp_util.debug('Delete_Batch -');
326: EXCEPTION
327: WHEN fnd_api.g_exc_error THEN
328: x_return_status := fnd_api.g_ret_sts_error;
329: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
330: p_count => x_msg_count,
331: p_data => x_msg_data);

Line 328: x_return_status := fnd_api.g_ret_sts_error;

324:
325: arp_util.debug('Delete_Batch -');
326: EXCEPTION
327: WHEN fnd_api.g_exc_error THEN
328: x_return_status := fnd_api.g_ret_sts_error;
329: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
330: p_count => x_msg_count,
331: p_data => x_msg_data);
332:

Line 329: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,

325: arp_util.debug('Delete_Batch -');
326: EXCEPTION
327: WHEN fnd_api.g_exc_error THEN
328: x_return_status := fnd_api.g_ret_sts_error;
329: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
330: p_count => x_msg_count,
331: p_data => x_msg_data);
332:
333: IF x_msg_count > 1 THEN

Line 334: x_msg_data := FND_MSG_PUB.Get(FND_MSG_PUB.G_LAST,FND_API.G_FALSE );

330: p_count => x_msg_count,
331: p_data => x_msg_data);
332:
333: IF x_msg_count > 1 THEN
334: x_msg_data := FND_MSG_PUB.Get(FND_MSG_PUB.G_LAST,FND_API.G_FALSE );
335: END IF;
336: WHEN OTHERS THEN
337: x_return_status := fnd_api.g_ret_sts_unexp_error;
338: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');

Line 337: x_return_status := fnd_api.g_ret_sts_unexp_error;

333: IF x_msg_count > 1 THEN
334: x_msg_data := FND_MSG_PUB.Get(FND_MSG_PUB.G_LAST,FND_API.G_FALSE );
335: END IF;
336: WHEN OTHERS THEN
337: x_return_status := fnd_api.g_ret_sts_unexp_error;
338: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
339: fnd_message.set_token('ERROR' ,SQLERRM);
340: fnd_msg_pub.add;
341: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,

Line 341: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,

337: x_return_status := fnd_api.g_ret_sts_unexp_error;
338: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
339: fnd_message.set_token('ERROR' ,SQLERRM);
340: fnd_msg_pub.add;
341: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
342: p_count => x_msg_count,
343: p_data => x_msg_data);
344:
345: END Delete_batch;

Line 349: (p_init_msg_list IN VARCHAR2 := fnd_api.g_false,

345: END Delete_batch;
346:
347:
348: PROCEDURE update_batch
349: (p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
350: P_INTEREST_BATCH_ID IN NUMBER,
351: P_BATCH_STATUS IN VARCHAR2,
352: P_TRANSFERRED_status IN VARCHAR2,
353: p_gl_date IN DATE DEFAULT NULL,

Line 385: IF fnd_api.to_boolean(p_init_msg_list) THEN

381: arp_util.debug(' p_interest_batch_id : '||p_interest_batch_id);
382:
383: savepoint update_batch;
384:
385: IF fnd_api.to_boolean(p_init_msg_list) THEN
386: fnd_msg_pub.initialize;
387: END IF;
388:
389: x_return_status := fnd_api.G_RET_STS_SUCCESS;

Line 389: x_return_status := fnd_api.G_RET_STS_SUCCESS;

385: IF fnd_api.to_boolean(p_init_msg_list) THEN
386: fnd_msg_pub.initialize;
387: END IF;
388:
389: x_return_status := fnd_api.G_RET_STS_SUCCESS;
390:
391: OPEN c;
392: FETCH c INTO
393: l_rec.INTEREST_BATCH_ID ,

Line 411: RAISE fnd_api.g_exc_error;

407: fnd_message.set_token('RECORD', 'ar_interest_batches');
408: fnd_message.set_token('VALUE',
409: NVL(TO_CHAR(P_INTEREST_BATCH_ID), 'null'));
410: fnd_msg_pub.add;
411: RAISE fnd_api.g_exc_error;
412: END IF;
413:
414: IF NOT ((x_object_version_number IS NULL AND
415: l_rec.OBJECT_VERSION_NUMBER IS NULL) OR

Line 423: RAISE fnd_api.g_exc_error;

419: THEN
420: fnd_message.set_name('AR', 'HZ_API_RECORD_CHANGED');
421: fnd_message.set_token('TABLE', 'ar_interest_batches');
422: fnd_msg_pub.add;
423: RAISE fnd_api.g_exc_error;
424: END IF;
425:
426: l_new_rec.INTEREST_BATCH_ID := P_INTEREST_BATCH_ID;
427: l_new_rec.BATCH_STATUS := P_BATCH_STATUS;

Line 439: IF x_return_status <> fnd_api.g_ret_sts_success THEN

435: p_new_batch_rec => l_new_rec,
436: x_cascade_update => x_cascade_update,
437: x_return_status => x_return_status);
438:
439: IF x_return_status <> fnd_api.g_ret_sts_success THEN
440: RAISE fnd_api.g_exc_error;
441: END IF;
442:
443: x_OBJECT_VERSION_NUMBER := NVL(x_OBJECT_VERSION_NUMBER,1) + 1;

Line 440: RAISE fnd_api.g_exc_error;

436: x_cascade_update => x_cascade_update,
437: x_return_status => x_return_status);
438:
439: IF x_return_status <> fnd_api.g_ret_sts_success THEN
440: RAISE fnd_api.g_exc_error;
441: END IF;
442:
443: x_OBJECT_VERSION_NUMBER := NVL(x_OBJECT_VERSION_NUMBER,1) + 1;
444:

Line 478: WHEN fnd_api.g_exc_error THEN

474: WHERE interest_batch_id = P_INTEREST_BATCH_ID;
475:
476: arp_util.debug('update_batch -');
477: EXCEPTION
478: WHEN fnd_api.g_exc_error THEN
479: rollback to update_batch;
480: x_return_status := fnd_api.g_ret_sts_error;
481:
482: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,

Line 480: x_return_status := fnd_api.g_ret_sts_error;

476: arp_util.debug('update_batch -');
477: EXCEPTION
478: WHEN fnd_api.g_exc_error THEN
479: rollback to update_batch;
480: x_return_status := fnd_api.g_ret_sts_error;
481:
482: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
483: p_count => x_msg_count,
484: p_data => x_msg_data);

Line 482: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,

478: WHEN fnd_api.g_exc_error THEN
479: rollback to update_batch;
480: x_return_status := fnd_api.g_ret_sts_error;
481:
482: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
483: p_count => x_msg_count,
484: p_data => x_msg_data);
485: IF x_msg_count > 1 THEN
486: x_msg_data := FND_MSG_PUB.Get(FND_MSG_PUB.G_LAST,FND_API.G_FALSE );

Line 486: x_msg_data := FND_MSG_PUB.Get(FND_MSG_PUB.G_LAST,FND_API.G_FALSE );

482: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
483: p_count => x_msg_count,
484: p_data => x_msg_data);
485: IF x_msg_count > 1 THEN
486: x_msg_data := FND_MSG_PUB.Get(FND_MSG_PUB.G_LAST,FND_API.G_FALSE );
487: END IF;
488:
489: WHEN OTHERS THEN
490: rollback to update_batch;

Line 491: x_return_status := fnd_api.g_ret_sts_unexp_error;

487: END IF;
488:
489: WHEN OTHERS THEN
490: rollback to update_batch;
491: x_return_status := fnd_api.g_ret_sts_unexp_error;
492: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
493: fnd_message.set_token('ERROR' ,SQLERRM);
494: fnd_msg_pub.add;
495: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,

Line 495: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,

491: x_return_status := fnd_api.g_ret_sts_unexp_error;
492: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
493: fnd_message.set_token('ERROR' ,SQLERRM);
494: fnd_msg_pub.add;
495: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
496: p_count => x_msg_count,
497: p_data => x_msg_data);
498: END;
499: