[Home] [Help]
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;