PACKAGE BODY: APPS.AR_FIRSTPARTY_UTILS

Source

1 PACKAGE BODY AR_FIRSTPARTY_UTILS AS
2 /* $Header: ARXLESTB.pls 120.1 2004/03/01 19:15:12 mraymond noship $ */
3 
4 
5 -----------------------------------------------------------------
6 -- PROCEDURE GET_LEGAL_ENTITY_ID_OU
7 -- Use this instead of XLE_FIRSTPARTY_UTILS.GET_LEGAL_ENTITY_ID_OU
8 --  to retrieve the value of legal_entity_id for org_id
9 -----------------------------------------------------------------
10 PG_DEBUG varchar2(1) := NVL(FND_PROFILE.value('AFLOG_ENABLED'), 'N');
11 
12 PROCEDURE GET_LEGAL_ENTITY_ID_OU
13 	(p_operating_unit   IN number,
14 	 p_legal_entity_id  OUT NOCOPY number
15 	) is
16 l_legal_entity_id number;
17 BEGIN
18  p_legal_entity_id := p_operating_unit;
19  --Above call will be replaced by XLE_FIRSTPARTY_UTILS.GET_LEGAL_ENTITY_ID_OU
20  -- as commented below
21 /*
22 XLE_FIRSTPARTY_UTILS.GET_LEGAL_ENTITY_ID_OU(p_operating_unit,l_legal_entity_id);
23 p_legal_entity_id := l_legal_entity_id;
24 */
25 EXCEPTION
26  when no_data_found then
27    IF PG_DEBUG in ('Y', 'C') THEN
28     arp_standard.debug('EXCEPTION: XLE_FIRSTPARTY_UTILS.GET_LEGAL_ENTITY_ID_OU no_data_found');
29     RAISE;
30    END IF;
31  when others then
32    IF PG_DEBUG in ('Y', 'C') THEN
33     arp_standard.debug('EXCEPTION: XLE_FIRSTPARTY_UTILS.GET_LEGAL_ENTITY_ID_OU others');
34     RAISE;
35    END IF;
36 END GET_LEGAL_ENTITY_ID_OU;
37 
38 
39 
40 END AR_FIRSTPARTY_UTILS;