DBA Data[Home] [Help]

APPS.AR_INTEREST_HEADERS_PKG dependencies on AR_INTEREST_HEADERS

Line 1: PACKAGE BODY AR_INTEREST_HEADERS_PKG AS

1: PACKAGE BODY AR_INTEREST_HEADERS_PKG AS
2: /*$Header: ARIIINVB.pls 120.3 2006/03/28 06:10:23 hyu noship $*/
3:
4: g_current_version NUMBER;
5: g_not VARCHAR2(30):= ARPT_SQL_FUNC_UTIL.get_lookup_meaning ('AR_PROCESS_STATUS','N');

Line 18: ar_interest_headers ii

14: IS
15: CURSOR c IS
16: SELECT SUM(NVL(iil.INTEREST_CHARGED,0))
17: FROM ar_interest_lines iil,
18: ar_interest_headers ii
19: WHERE ii.interest_header_id = iil.interest_header_id
20: AND ii.interest_header_id = p_interest_header_id;
21: l_header_amount number;
22: BEGIN

Line 91: FROM AR_INTEREST_HEADERS

87: x_msg_data OUT NOCOPY VARCHAR2)
88: IS
89: CURSOR C IS
90: SELECT *
91: FROM AR_INTEREST_HEADERS
92: WHERE interest_header_id = p_interest_header_id
93: FOR UPDATE OF interest_header_Id NOWAIT;
94: Recinfo C%ROWTYPE;
95: l_continue VARCHAR2(1) := 'Y';

Line 182: p_old_rec IN ar_interest_headers%ROWTYPE,

178:
179:
180: PROCEDURE validate_header
181: (p_action IN VARCHAR2,
182: p_old_rec IN ar_interest_headers%ROWTYPE,
183: p_new_rec IN ar_interest_headers%ROWTYPE,
184: p_updated_by_program IN VARCHAR2 DEFAULT 'ARIINR',
185: x_return_status IN OUT NOCOPY VARCHAR2)
186: IS

Line 183: p_new_rec IN ar_interest_headers%ROWTYPE,

179:
180: PROCEDURE validate_header
181: (p_action IN VARCHAR2,
182: p_old_rec IN ar_interest_headers%ROWTYPE,
183: p_new_rec IN ar_interest_headers%ROWTYPE,
184: p_updated_by_program IN VARCHAR2 DEFAULT 'ARIINR',
185: x_return_status IN OUT NOCOPY VARCHAR2)
186: IS
187: CURSOR c IS

Line 267: FROM ar_interest_headers

263: x_msg_data OUT NOCOPY VARCHAR2)
264: IS
265: CURSOR c IS
266: SELECT *
267: FROM ar_interest_headers
268: WHERE interest_header_id = P_INTEREST_header_ID
269: FOR UPDATE OF INTEREST_header_ID;
270: l_rec ar_interest_headers%ROWTYPE;
271: l_new_rec ar_interest_headers%ROWTYPE;

Line 270: l_rec ar_interest_headers%ROWTYPE;

266: SELECT *
267: FROM ar_interest_headers
268: WHERE interest_header_id = P_INTEREST_header_ID
269: FOR UPDATE OF INTEREST_header_ID;
270: l_rec ar_interest_headers%ROWTYPE;
271: l_new_rec ar_interest_headers%ROWTYPE;
272: BEGIN
273: arp_util.debug('update_header +');
274: SAVEPOINT update_header;

Line 271: l_new_rec ar_interest_headers%ROWTYPE;

267: FROM ar_interest_headers
268: WHERE interest_header_id = P_INTEREST_header_ID
269: FOR UPDATE OF INTEREST_header_ID;
270: l_rec ar_interest_headers%ROWTYPE;
271: l_new_rec ar_interest_headers%ROWTYPE;
272: BEGIN
273: arp_util.debug('update_header +');
274: SAVEPOINT update_header;
275:

Line 288: fnd_message.set_token('RECORD', 'ar_interest_headers');

284: CLOSE c;
285:
286: IF l_rec.INTEREST_header_ID IS NULL THEN
287: fnd_message.set_name('AR', 'HZ_API_NO_RECORD');
288: fnd_message.set_token('RECORD', 'ar_interest_headers');
289: fnd_message.set_token('VALUE',
290: NVL(TO_CHAR(P_INTEREST_header_ID), 'null'));
291: fnd_msg_pub.add;
292: RAISE fnd_api.g_exc_error;

Line 323: UPDATE AR_INTEREST_HEADERS

319: END IF;
320:
321: x_object_version_number := NVL(x_object_version_number,1) + 1;
322:
323: UPDATE AR_INTEREST_HEADERS
324: SET
325: PROCESS_MESSAGE = P_PROCESS_MESSAGE ,
326: PROCESS_STATUS = P_PROCESS_STATUS ,
327: LAST_UPDATE_DATE = SYSDATE,

Line 343: arp_util.debug('EXCEPTION AR_INTEREST_HEADERS_PKG.update_header :'||x_msg_data);

339: p_data => x_msg_data);
340: IF x_msg_count > 1 THEN
341: x_msg_data := FND_MSG_PUB.Get(FND_MSG_PUB.G_LAST,FND_API.G_FALSE );
342: END IF;
343: arp_util.debug('EXCEPTION AR_INTEREST_HEADERS_PKG.update_header :'||x_msg_data);
344: WHEN OTHERS THEN
345: ROLLBACK TO SAVEPOINT Update_header;
346: x_return_status := fnd_api.g_ret_sts_unexp_error;
347: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');

Line 353: arp_util.debug('EXCEPTION OTHERS AR_INTEREST_HEADERS_PKG.update_header :'||SQLERRM);

349: fnd_msg_pub.add;
350: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
351: p_count => x_msg_count,
352: p_data => x_msg_data);
353: arp_util.debug('EXCEPTION OTHERS AR_INTEREST_HEADERS_PKG.update_header :'||SQLERRM);
354: END Update_header;
355:
356: PROCEDURE Delete_header
357: (p_init_msg_list IN VARCHAR2 := fnd_api.g_false,

Line 366: FROM ar_interest_headers

362: x_msg_data OUT NOCOPY VARCHAR2)
363: IS
364: CURSOR c IS
365: SELECT *
366: FROM ar_interest_headers
367: WHERE interest_header_id = P_INTEREST_header_ID
368: FOR UPDATE OF INTEREST_header_ID;
369: l_rec ar_interest_headers%ROWTYPE;
370: l_new_rec ar_interest_headers%ROWTYPE;

Line 369: l_rec ar_interest_headers%ROWTYPE;

365: SELECT *
366: FROM ar_interest_headers
367: WHERE interest_header_id = P_INTEREST_header_ID
368: FOR UPDATE OF INTEREST_header_ID;
369: l_rec ar_interest_headers%ROWTYPE;
370: l_new_rec ar_interest_headers%ROWTYPE;
371: BEGIN
372: SAVEPOINT delete_header;
373:

Line 370: l_new_rec ar_interest_headers%ROWTYPE;

366: FROM ar_interest_headers
367: WHERE interest_header_id = P_INTEREST_header_ID
368: FOR UPDATE OF INTEREST_header_ID;
369: l_rec ar_interest_headers%ROWTYPE;
370: l_new_rec ar_interest_headers%ROWTYPE;
371: BEGIN
372: SAVEPOINT delete_header;
373:
374: IF fnd_api.to_boolean(p_init_msg_list) THEN

Line 386: fnd_message.set_token('RECORD', 'ar_interest_headers');

382: CLOSE c;
383:
384: IF l_rec.INTEREST_header_ID IS NULL THEN
385: fnd_message.set_name('AR', 'HZ_API_NO_RECORD');
386: fnd_message.set_token('RECORD', 'ar_interest_headers');
387: fnd_message.set_token('VALUE',
388: NVL(TO_CHAR(P_INTEREST_header_ID), 'null'));
389: fnd_msg_pub.add;
390: RAISE fnd_api.g_exc_error;

Line 406: DELETE FROM AR_INTEREST_HEADERS

402:
403: DELETE FROM ar_interest_lines
404: WHERE interest_header_id = p_interest_header_id;
405:
406: DELETE FROM AR_INTEREST_HEADERS
407: WHERE interest_header_id = p_interest_header_id;
408:
409: EXCEPTION
410: WHEN fnd_api.g_exc_error THEN

Line 419: arp_util.debug('EXCEPTION AR_INTEREST_HEADERS_PKG.delete_header :'||x_msg_data);

415: p_data => x_msg_data);
416: IF x_msg_count > 1 THEN
417: x_msg_data := FND_MSG_PUB.Get(FND_MSG_PUB.G_LAST,FND_API.G_FALSE );
418: END IF;
419: arp_util.debug('EXCEPTION AR_INTEREST_HEADERS_PKG.delete_header :'||x_msg_data);
420: WHEN OTHERS THEN
421: ROLLBACK TO SAVEPOINT Update_header;
422: x_return_status := fnd_api.g_ret_sts_unexp_error;
423: fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');

Line 429: arp_util.debug('EXCEPTION OTHERS AR_INTEREST_HEADERS_PKG.delete_header :'||SQLERRM);

425: fnd_msg_pub.add;
426: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false,
427: p_count => x_msg_count,
428: p_data => x_msg_data);
429: arp_util.debug('EXCEPTION OTHERS AR_INTEREST_HEADERS_PKG.delete_header :'||SQLERRM);
430: END Delete_header;
431:
432:
433: END AR_INTEREST_HEADERS_PKG;

Line 433: END AR_INTEREST_HEADERS_PKG;

429: arp_util.debug('EXCEPTION OTHERS AR_INTEREST_HEADERS_PKG.delete_header :'||SQLERRM);
430: END Delete_header;
431:
432:
433: END AR_INTEREST_HEADERS_PKG;