[Home] [Help]
PACKAGE BODY: APPS.PN_MO_GLOBAL_CACHE
Source
1 PACKAGE BODY pn_mo_global_cache AS
2 -- $Header: PNMOGLCB.pls 120.1 2005/10/04 22:40:18 appldev noship $
3
4 -- This index-by table is used to store rows of operating unit attributes
5
6 TYPE GlobalsCache IS TABLE OF pn_mo_cache_utils.GlobalsRecord
7 INDEX BY BINARY_INTEGER;
8
9 -- This private variable is used as the cache
10
11 g_cache GlobalsCache;
12
13 /*===========================================================================+
14 |
15 | PROCEDURE
16 | populate
17 |
18 | DESCRIPTION
19 | This procedure retrieves operating unit attributes and stores
20 | them in the cache
21 |
22 | SCOPE -
23 | PUBLIC
24 |
25 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED
26 |
27 | ARGUMENTS : IN:
28 |
29 | OUT:
30 | None
31 |
32 | RETURNS : NONE
33 |
34 | NOTES
35 |
36 | MODIFICATION HISTORY
37 | 16-JUN-02 Daniel Thota o Created
38 | 17-SEP-02 ftanudja o incorporated new profile options
39 | space_assign ... and multiple_tenanc...
40 | 29-MAR-05 piagrawa o Updated the procedure to match the fields in
41 | GlobalsTable
42 | 15-SEP-05 pikhar o Inserted recalc_ir_on_acc_chg_flag in Procedure
43 | populate.
44 +===========================================================================*/
45
46 PROCEDURE populate IS
47 i PLS_INTEGER;
48 l_gt pn_mo_cache_utils.GlobalsTable;
49
50 BEGIN
51
52 -- First, remove existing records (if any)
53 g_cache.DELETE;
54 -- Next, get the data from the server
55 pn_mo_cache_utils.retrieve_globals(l_gt);
56
57 -- Finally, store the data in the cache
58 IF l_gt.org_id_t.COUNT > 0 THEN
59 FOR i IN 1..l_gt.org_id_t.LAST LOOP
60 g_cache(l_gt.org_id_t(i)).set_of_books_name := l_gt.set_of_books_id_t(i);
61 g_cache(l_gt.org_id_t(i)).chart_of_accounts_id := l_gt.chart_of_accounts_id_t(i);
62 g_cache(l_gt.org_id_t(i)).legal_entity_name := l_gt.legal_entity_name_t(i);
63 g_cache(l_gt.org_id_t(i)).functional_currency_code := l_gt.functional_currency_code_t(i);
64 g_cache(l_gt.org_id_t(i)).set_of_books_id := l_gt.set_of_books_id_t(i);
65 g_cache(l_gt.org_id_t(i)).accounting_option := l_gt.accounting_option_t(i);
66 g_cache(l_gt.org_id_t(i)).default_currency_conv_type := l_gt.default_currency_conv_type_t(i);
67 g_cache(l_gt.org_id_t(i)).space_assign_sysdate_optn := l_gt.space_assign_sysdate_optn_t(i);
68 g_cache(l_gt.org_id_t(i)).multiple_tenancy_lease := l_gt.multiple_tenancy_lease_t(i);
69 g_cache(l_gt.org_id_t(i)).auto_comp_num_gen := l_gt.auto_comp_num_gen_t(i);
70 g_cache(l_gt.org_id_t(i)).auto_index_num_gen := l_gt.auto_index_num_gen_t(i);
71 g_cache(l_gt.org_id_t(i)).auto_lease_num_gen := l_gt.auto_lease_num_gen_t(i);
72 g_cache(l_gt.org_id_t(i)).auto_space_distribution := l_gt.auto_space_distribution_t(i);
73 g_cache(l_gt.org_id_t(i)).auto_var_rent_num_gen := l_gt.auto_var_rent_num_gen_t(i);
74 g_cache(l_gt.org_id_t(i)).auto_rec_agr_num_flag := l_gt.auto_rec_agr_num_flag_t(i);
75 g_cache(l_gt.org_id_t(i)).auto_rec_exp_num_flag := l_gt.auto_rec_exp_num_flag_t(i);
76 g_cache(l_gt.org_id_t(i)).auto_rec_arcl_num_flag := l_gt.auto_rec_arcl_num_flag_t(i);
77 g_cache(l_gt.org_id_t(i)).auto_rec_expcl_num_flag := l_gt.auto_rec_expcl_num_flag_t(i);
78 g_cache(l_gt.org_id_t(i)).cons_rec_agrterms_flag := l_gt.cons_rec_agrterms_flag_t(i);
79 g_cache(l_gt.org_id_t(i)).location_code_separator := l_gt.location_code_separator_t(i);
80 g_cache(l_gt.org_id_t(i)).default_locn_area_flag := l_gt.default_locn_area_flag_t(i);
81 g_cache(l_gt.org_id_t(i)).grouping_rule_id := l_gt.grouping_rule_id_t(i);
82 g_cache(l_gt.org_id_t(i)).gl_transfer_mode := l_gt.gl_transfer_mode_t(i);
83 g_cache(l_gt.org_id_t(i)).submit_journal_import_flag := l_gt.submit_journal_import_flag_t(i);
84 g_cache(l_gt.org_id_t(i)).legacy_data_cutoff_date := l_gt.legacy_data_cutoff_date_t(i);
85 g_cache(l_gt.org_id_t(i)).default_user_view_code := l_gt.default_user_view_code_t(i);
86 g_cache(l_gt.org_id_t(i)).extend_indexrent_term_flag := l_gt.extend_indexrent_term_flag_t(i);
87 g_cache(l_gt.org_id_t(i)).sysdate_for_adj_flag := l_gt.sysdate_for_adj_flag_t(i);
88 g_cache(l_gt.org_id_t(i)).sysdate_as_trx_date_flag := l_gt.sysdate_as_trx_date_flag_t(i);
89 g_cache(l_gt.org_id_t(i)).renorm_adj_acc_all_draft_flag:= l_gt.renorm_acc_all_draft_flag_t(i);
90 g_cache(l_gt.org_id_t(i)).consolidate_adj_items_flag := l_gt.consolidate_adj_items_flag_t(i);
91 g_cache(l_gt.org_id_t(i)).calc_annualized_basis_code := l_gt.calc_annualized_basis_code_t(i);
92 g_cache(l_gt.org_id_t(i)).allow_tenancy_overlap_flag := l_gt.allow_tenancy_overlap_flag_t(i);
93 g_cache(l_gt.org_id_t(i)).recalc_ir_on_acc_chg_flag := l_gt.recalc_ir_on_acc_chg_flag_t(i);
94 END LOOP;
95 END IF;
96 END populate;
97
98 /*===========================================================================+
99 |
100 | FUNCTION
101 | get_org_attributes
102 |
103 | DESCRIPTION
104 | This function returns one row of cached data.
105 |
106 | SCOPE -
107 | PUBLIC
108 |
109 | EXETERNAL PROCEDURES/FUNCTIONS ACCESSED
110 |
111 | ARGUMENTS : IN:
112 |
113 | OUT:
114 | None
115 |
116 | RETURNS : NONE
117 |
118 | NOTES
119 |
120 | MODIFICATION HISTORY
121 | 16-JUN-2002 Daniel Thota Created
122 |
123 +===========================================================================*/
124
125 FUNCTION get_org_attributes(p_org_id NUMBER)
126 RETURN pn_mo_cache_utils.GlobalsRecord
127 IS
128 BEGIN
129 RETURN g_cache(p_org_id);
130
131 EXCEPTION
132 WHEN NO_DATA_FOUND THEN
133 app_exception.raise_exception;
134 END get_org_attributes;
135
136 END pn_mo_global_cache;