PACKAGE BODY: APPS.ARP_TRX_GLOBAL

Source

1 PACKAGE BODY arp_trx_global AS
2 /* $Header: ARTUGBLB.pls 120.3 2005/11/14 07:03:01 apandit ship $ */
3 
4 ------------------------------------------------------------------------
5 -- Private types
6 ------------------------------------------------------------------------
7 
8 --
9 -- Covers
10 --
11 PROCEDURE debug(  line in varchar2 ) is
12 BEGIN
13     arp_util.debug( line );
14 END;
15 --begin anuj
16 /* Multi-Org Access Control Changes for SSA;Begin;anukumar;11/01/2002*/
17 Procedure init is
18 --
19 -- Constructor code
20 --
21 BEGIN
22 
23     --
24     -- System info
25     --
26     BEGIN
27 
28         system_info.system_parameters := arp_global.sysparam;
29         system_info.chart_of_accounts_id := arp_global.chart_of_accounts_id;
30         system_info.period_set_name := arp_global.period_set_name;
31         system_info.base_currency := arp_global.functional_currency;
32 	system_info.base_precision := arp_global.base_precision;
33 	system_info.base_min_acc_unit := arp_global.base_min_acc_unit;
34 
35 
36     EXCEPTION
37         WHEN OTHERS THEN
38             debug('Error getting system information');
39             RAISE;
40     END;
41 
42 
43     --
44     -- Profiles
45     --
46     BEGIN
47 
48         IF( arp_global.program_application_id IS NULL ) THEN
49             profile_info.application_id := -1;
50         ELSE
51             profile_info.application_id := arp_global.program_application_id;
52         END IF;
53 
54         IF( arp_global.program_id IS NULL ) THEN
55             profile_info.conc_program_id := -1;
56         ELSE
57             profile_info.conc_program_id := arp_global.program_id;
58         END IF;
59 
60         IF( arp_global.last_update_login IS NULL ) THEN
61             profile_info.conc_login_id := -1;
62         ELSE
63             profile_info.conc_login_id := arp_global.last_update_login;
64         END IF;
65 
66         IF( arp_global.user_id IS NULL ) THEN
67             profile_info.user_id := -1;
68         ELSE
69             profile_info.user_id := arp_global.user_id;
70         END IF;
71 
72 	profile_info.request_id := arp_global.request_id;
73 
74         fnd_profile.get( 'AR_USE_INV_ACCT_FOR_CM_FLAG',
75                           profile_info.use_inv_acct_for_cm_flag );
76 
77         -- OE/OM change
78         -- fnd_profile.get( 'SO_ORGANIZATION_ID',
79         --                 profile_info.so_organization_id );
80 
81         --Bug 4272915 : apandit
82         --removed caching of the profile SO_ORGANIZATION_ID
83         --where ever required we will directly get the value
84         --by call to oe_profile.value()
85         --
86         --oe_profile.get( 'SO_ORGANIZATION_ID',
87         --                 profile_info.so_organization_id );
88         -- Fix 1324548
89         --profile_info.so_organization_id := nvl(profile_info.so_organization_id,0);
90 
91     EXCEPTION
92         WHEN OTHERS THEN
93             debug('Error getting profile information');
94             RAISE;
95     END;
96 
97     --
98     -- Acct flex info
99     --
100     BEGIN
101 
102         flex_info.delim :=
103             arp_flex.expand(arp_flex.gl, 'FIRST', '', '%SEPARATOR%');
104         flex_info.number_segments :=
105             arp_flex.active_segments(arp_flex.gl);
106 
107     EXCEPTION
108         WHEN OTHERS THEN
109             debug('Error getting acct flex information');
110             RAISE;
111     END;
112 end init;
113 
114 Begin
115 init;
116 /* Multi-Org Access Control Changes for SSA;Begin;anukumar;11/01/2002*/
117 --end anuj
118 
119 
120 
121 END arp_trx_global;