1: PACKAGE BODY ARP_NON_DB_PKG AS
2: /* $Header: ARXNODBB.pls 120.7 2005/10/30 04:28:06 appldev ship $ */
3:
4: /***************************************************************************
5: Declare Private Procedures
27: l_message_name VARCHAR2(50);
28:
29: BEGIN
30: IF PG_DEBUG in ('Y', 'C') THEN
31: arp_standard.debug('raise_error: ' || 'arp_non_db_pkg.check_natural_application(1)+');
32: END IF;
33: arp_non_db_pkg.check_natural_application(
34: p_creation_sign,
35: p_allow_overapplication_flag,
29: BEGIN
30: IF PG_DEBUG in ('Y', 'C') THEN
31: arp_standard.debug('raise_error: ' || 'arp_non_db_pkg.check_natural_application(1)+');
32: END IF;
33: arp_non_db_pkg.check_natural_application(
34: p_creation_sign,
35: p_allow_overapplication_flag,
36: p_natural_app_only_flag,
37: p_sign_of_ps,
45: p_lockbox_record);
46:
47: IF ( l_message_name IS NOT NULL)
48: THEN
49: arp_non_db_pkg.raise_error( l_message_name );
50: END IF;
51: IF PG_DEBUG in ('Y', 'C') THEN
52: arp_standard.debug('raise_error: ' || 'arp_non_db_pkg.check_natural_application(1)-');
53: END IF;
48: THEN
49: arp_non_db_pkg.raise_error( l_message_name );
50: END IF;
51: IF PG_DEBUG in ('Y', 'C') THEN
52: arp_standard.debug('raise_error: ' || 'arp_non_db_pkg.check_natural_application(1)-');
53: END IF;
54:
55: EXCEPTION
56: WHEN OTHERS THEN
99: l_message_name VARCHAR2(50); /*Bug 3842116*/
100:
101: BEGIN
102: IF PG_DEBUG in ('Y', 'C') THEN
103: arp_standard.debug('raise_error: ' || 'arp_non_db_pkg.check_natural_application(2)+');
104: END IF;
105:
106: p_message_name := NULL;
107:
212: -- check the creation_sign. The amount changed should only make the
213: -- amount_due_remaining go to where the creation_sign allows
214: --
215:
216: arp_non_db_pkg.check_creation_sign( p_creation_sign,
217: l_payment_amount, event,
218: l_message_name); /*Bug 3842116*/
219: IF l_message_name IS NOT NULL /*Bug 3842116*/
220: THEN
249: END IF;
250: END IF;
251:
252: IF PG_DEBUG in ('Y', 'C') THEN
253: arp_standard.debug('raise_error: ' || 'arp_non_db_pkg.check_natural_application(2)-'|| p_message_name);
254: END IF;
255:
256: END check_natural_application;
257:
262: event IN VARCHAR2,
263: p_message_name OUT NOCOPY VARCHAR2) IS
264: BEGIN
265: IF PG_DEBUG in ('Y', 'C') THEN
266: arp_standard.debug('raise_error: ' || 'arp_non_db_pkg.check_creation_sign(1)+');
267: END IF;
268: p_message_name := NULL;
269:
270: IF ( p_creation_sign = 'A' ) THEN
280: ELSE
281: p_message_name := 'AR_CKAP_INV_CT_SIGN';
282: END IF;
283: IF PG_DEBUG in ('Y', 'C') THEN
284: arp_standard.debug('raise_error: ' || 'arp_non_db_pkg.check_creation_sign(1)-');
285: END IF;
286: END check_creation_sign;
287:
288:
294: l_message_name VARCHAR2(50);
295:
296: BEGIN
297: IF PG_DEBUG in ('Y', 'C') THEN
298: arp_standard.debug('raise_error: ' || 'arp_non_db_pkg.check_creation_sign(2)+');
299: END IF;
300: check_creation_sign(
301: p_creation_sign,
302: p_amount,
304: l_message_name );
305:
306: IF ( l_message_name IS NOT NULL )
307: THEN
308: arp_non_db_pkg.raise_error(l_message_name);
309: END IF;
310:
311: IF PG_DEBUG in ('Y', 'C') THEN
312: arp_standard.debug('raise_error: ' || 'arp_non_db_pkg.check_creation_sign(2)-');
308: arp_non_db_pkg.raise_error(l_message_name);
309: END IF;
310:
311: IF PG_DEBUG in ('Y', 'C') THEN
312: arp_standard.debug('raise_error: ' || 'arp_non_db_pkg.check_creation_sign(2)-');
313: END IF;
314: END check_creation_sign;
315:
316:
334: app_exception.raise_exception;
335:
336: END raise_error;
337:
338: END ARP_NON_DB_PKG;