1: PACKAGE BODY ARP_TRX_UTIL AS
2: /* $Header: ARTUTILB.pls 120.7.12010000.2 2008/11/13 15:43:17 rmanikan ship $ */
3:
4: pg_base_curr_code gl_sets_of_books.currency_code%type;
5: pg_base_precision fnd_currencies.precision%type;
118:
119:
120: BEGIN
121:
122: arp_util.debug('arp_trx_util.lock_transaction()+');
123:
124: -- check form version to determine if it is compatible with the
125: -- entity handler.
126: -- arp_trx_validate.ar_entity_version_check(p_form_name, p_form_version);
135: arp_ps_pkg.lock_f_ct_id(p_customer_trx_id);
136: arp_adjustments_pkg.lock_f_ct_id(p_customer_trx_id);
137:
138:
139: arp_util.debug('arp_trx_util.lock_transaction()-');
140:
141: EXCEPTION
142: WHEN OTHERS THEN
143: arp_util.debug('EXCEPTION: arp_trx_util.delete_lock()');
139: arp_util.debug('arp_trx_util.lock_transaction()-');
140:
141: EXCEPTION
142: WHEN OTHERS THEN
143: arp_util.debug('EXCEPTION: arp_trx_util.delete_lock()');
144: rollback to savepoint ar_lock_transaction_1;
145: RAISE;
146:
147: END;
187:
188:
189: BEGIN
190:
191: arp_util.debug('arp_trx_util.set_term_in_use_flag()+');
192:
193: -- check form version to determine if it is compatible with the
194: -- entity handler.
195: -- arp_trx_validate.ar_entity_version_check(p_form_name, p_form_version);
207: WHERE term_id = p_term_id
208: AND in_use = 'N';
209: END IF;
210:
211: arp_util.debug('arp_trx_util.set_term_in_use_flag()-');
212:
213: EXCEPTION
214: WHEN NO_DATA_FOUND THEN
215: null;
213: EXCEPTION
214: WHEN NO_DATA_FOUND THEN
215: null;
216: WHEN OTHERS THEN
217: arp_util.debug('EXCEPTION: arp_trx_util.set_term_in_use_flag()');
218: RAISE;
219:
220: END;
221:
253: l_posted_flag varchar2(2);
254:
255: BEGIN
256:
257: arp_util.debug('arp_trx_util.set_posted_flag()+');
258:
259: SELECT decode(max(dummy),
260: NULL, 'N',
261: 'Y')
274: THEN p_posted_flag := TRUE;
275: ELSE p_posted_flag := FALSE;
276: END IF;
277:
278: arp_util.debug('arp_trx_util.set_posted_flag()-');
279:
280: EXCEPTION
281: WHEN OTHERS THEN
282: arp_util.debug('EXCEPTION: arp_trx_util.set_posted_flag()');
278: arp_util.debug('arp_trx_util.set_posted_flag()-');
279:
280: EXCEPTION
281: WHEN OTHERS THEN
282: arp_util.debug('EXCEPTION: arp_trx_util.set_posted_flag()');
283: RAISE;
284:
285: END;
286:
325: return(l_result);
326:
327: EXCEPTION
328: WHEN OTHERS THEN
329: arp_util.debug('EXCEPTION: arp_trx_util.boolean_to_varchar2()');
330: RAISE;
331:
332: END;
333:
370:
371: l_result varchar2(2);
372:
373: BEGIN
374: arp_util.debug('arp_trx_util.detect_freight_only_rules_case()+');
375:
376:
377: SELECT DECODE( MAX(t.customer_trx_id),
378: NULL, 'N',
395: RETURN(TRUE);
396: ELSE RETURN FALSE;
397: END IF;
398:
399: arp_util.debug('arp_trx_util.detect_freight_only_rules_case()-');
400:
401: EXCEPTION
402: WHEN OTHERS THEN
403: arp_util.debug('EXCEPTION: arp_trx_util.detect_freight_only_rules_case()');
399: arp_util.debug('arp_trx_util.detect_freight_only_rules_case()-');
400:
401: EXCEPTION
402: WHEN OTHERS THEN
403: arp_util.debug('EXCEPTION: arp_trx_util.detect_freight_only_rules_case()');
404: RAISE;
405:
406: END;
407:
527: ) IS
528:
529:
530: BEGIN
531: arp_util.debug('arp_trx_util.transaction_balances()+');
532:
533: arp_bal_util.transaction_balances(
534: p_customer_trx_id,
535: p_open_receivables_flag,
606: );
607:
608:
609:
610: arp_util.debug('arp_trx_util.transaction_balances()-');
611:
612: EXCEPTION
613: WHEN OTHERS THEN
614: arp_util.debug('EXCEPTION: arp_trx_util.transaction_balances()');
610: arp_util.debug('arp_trx_util.transaction_balances()-');
611:
612: EXCEPTION
613: WHEN OTHERS THEN
614: arp_util.debug('EXCEPTION: arp_trx_util.transaction_balances()');
615: RAISE;
616:
617: END;
618:
674: l_dummy NUMBER;
675:
676:
677: BEGIN
678: arp_util.debug('arp_trx_util.get_summary_trx_balances()+');
679:
680: arp_bal_util.get_summary_trx_balances( p_customer_trx_id,
681: p_open_receivables_flag,
682: p_line_original,
689: p_charges_remaining,
690: p_total_original,
691: p_total_remaining );
692:
693: arp_util.debug('arp_trx_util.get_summary_trx_balances()-');
694:
695: EXCEPTION
696: WHEN OTHERS THEN
697: arp_util.debug('EXCEPTION: arp_trx_util.get_summary_trx_balances()');
693: arp_util.debug('arp_trx_util.get_summary_trx_balances()-');
694:
695: EXCEPTION
696: WHEN OTHERS THEN
697: arp_util.debug('EXCEPTION: arp_trx_util.get_summary_trx_balances()');
698: RAISE;
699:
700: END;
701:
792: arp_standard.debug ('p_object_type = '||p_object_type || ', p_object_id = '||p_object_id);
793: END IF;
794:
795: l_out_status := 'F';
796: is_enabled := ARP_TRX_UTIL.IS_FV_ENABLED();
797:
798: IF PG_DEBUG in ('Y', 'C') THEN
799: arp_standard.debug ('is_enabled = '||is_enabled);
800: END IF;
875: END init;
876:
877: BEGIN
878: init;
879: END ARP_TRX_UTIL;