1 PACKAGE pn_mo_cache_utils AS
2 /* $Header: PNMOCSHS.pls 120.7 2007/09/11 16:25:04 rthumma ship $ */
3
4 --
5 -- Define a record type that encapsulates one row of operating
6 -- unit attributes
7 --
8
9 g_MOAC_enabled BOOLEAN := TRUE;
10
11 TYPE GlobalsRecord IS RECORD (
12
13 set_of_books_name gl_sets_of_books.name%TYPE,
14 chart_of_accounts_id gl_sets_of_books.chart_of_accounts_id%TYPE,
15 legal_entity_name hr_legal_entities.name%TYPE,
16 functional_currency_code fnd_currencies.currency_code%TYPE,
17 set_of_books_id pn_system_setup_options.set_of_books_id%TYPE,
18 accounting_option pn_system_setup_options.accounting_option%TYPE,
19 default_currency_conv_type pn_system_setup_options.default_currency_conv_type%TYPE,
20 space_assign_sysdate_optn pn_system_setup_options.space_assign_sysdate_optn%TYPE,
21 multiple_tenancy_lease pn_system_setup_options.multiple_tenancy_lease%TYPE,
22 auto_comp_num_gen pn_system_setup_options.auto_comp_num_gen%TYPE,
23 auto_index_num_gen pn_system_setup_options.auto_index_num_gen%TYPE,
24 auto_lease_num_gen pn_system_setup_options.auto_lease_num_gen%TYPE,
25 auto_space_distribution pn_system_setup_options.auto_space_distribution%TYPE,
26 auto_var_rent_num_gen pn_system_setup_options.auto_var_rent_num_gen%TYPE,
27 auto_rec_agr_num_flag pn_system_setup_options.auto_rec_agr_num_flag%TYPE,
28 auto_rec_exp_num_flag pn_system_setup_options.auto_rec_exp_num_flag%TYPE,
29 auto_rec_arcl_num_flag pn_system_setup_options.auto_rec_arcl_num_flag%TYPE,
30 auto_rec_expcl_num_flag pn_system_setup_options.auto_rec_expcl_num_flag%TYPE,
31 cons_rec_agrterms_flag pn_system_setup_options.cons_rec_agrterms_flag%TYPE,
32 location_code_separator pn_system_setup_options.location_code_separator%TYPE,
33 default_locn_area_flag pn_system_setup_options.default_locn_area_flag%TYPE,
34 grouping_rule_id pn_system_setup_options.grouping_rule_id%TYPE,
35 gl_transfer_mode pn_system_setup_options.gl_transfer_mode%TYPE,
36 submit_journal_import_flag pn_system_setup_options.submit_journal_import_flag%TYPE,
37 legacy_data_cutoff_date pn_system_setup_options.legacy_data_cutoff_date%TYPE,
38 default_user_view_code pn_system_setup_options.default_user_view_code%TYPE,
39 extend_indexrent_term_flag pn_system_setup_options.extend_indexrent_term_flag%TYPE,
40 sysdate_for_adj_flag pn_system_setup_options.sysdate_for_adj_flag%TYPE,
41 sysdate_as_trx_date_flag pn_system_setup_options.sysdate_as_trx_date_flag%TYPE,
42 renorm_adj_acc_all_draft_flag pn_system_setup_options.renorm_adj_acc_all_draft_flag%TYPE,
43 consolidate_adj_items_flag pn_system_setup_options.consolidate_adj_items_flag%TYPE,
44 calc_annualized_basis_code pn_system_setup_options.calc_annualized_basis_code%TYPE,
45 allow_tenancy_overlap_flag pn_system_setup_options.allow_tenancy_overlap_flag%TYPE,
46 recalc_ir_on_acc_chg_flag pn_system_setup_options.recalc_ir_on_acc_chg_flag%TYPE,
47 smallest_term_amount pn_system_setup_options.smallest_term_amount%TYPE,--#@#Bug4291907
48 incl_terms_by_default_flag pn_system_setup_options.incl_terms_by_default_flag%TYPE
49 );
50
51 TYPE OrgIDTable IS TABLE OF hr_organization_information.organization_id %TYPE;
52 TYPE SetOfBooksNameTable IS TABLE OF gl_sets_of_books.name%TYPE;
53 TYPE ChartOfAccountsIDTable IS TABLE OF gl_sets_of_books.chart_of_accounts_id%TYPE;
54 TYPE LegalEntityNameTable IS TABLE OF hr_legal_entities.name%TYPE;
55 TYPE FunctionalCurrencyCodeTable IS TABLE OF fnd_currencies.currency_code%TYPE;
56 TYPE SetOfBooksIDTable IS TABLE OF pn_system_setup_options.set_of_books_id%TYPE;
57 TYPE AccountingOptionTable IS TABLE OF pn_system_setup_options.accounting_option%TYPE;
58 TYPE DefaultCurrencyConvTypeTable IS TABLE OF pn_system_setup_options.default_currency_conv_type%TYPE;
59 TYPE SpaceAssignSysdateOptnTable IS TABLE OF pn_system_setup_options.space_assign_sysdate_optn%TYPE;
60 TYPE MultipleTenancyLeaseTable IS TABLE OF pn_system_setup_options.multiple_tenancy_lease%TYPE;
61 TYPE AutoSpaceDistributionTable IS TABLE OF pn_system_setup_options.auto_space_distribution%TYPE;
62 TYPE AutoCompNumGenTable IS TABLE OF pn_system_setup_options.auto_comp_num_gen%TYPE;
63 TYPE AutoIndexNumGenTable IS TABLE OF pn_system_setup_options.auto_index_num_gen%TYPE;
64 TYPE AutoLeaseNumGenTable IS TABLE OF pn_system_setup_options.auto_lease_num_gen%TYPE;
65 TYPE AutoVarRentNumGenTable IS TABLE OF pn_system_setup_options.auto_var_rent_num_gen%TYPE;
66 TYPE AutoRecAgrNumFlag IS TABLE OF pn_system_setup_options.auto_rec_agr_num_flag%TYPE;
67 TYPE AutoRecExpNumFlag IS TABLE OF pn_system_setup_options.auto_rec_exp_num_flag%TYPE;
68 TYPE AutoRecArclNumFlag IS TABLE OF pn_system_setup_options.auto_rec_arcl_num_flag%TYPE;
69 TYPE AutoRecExpclNumFlag IS TABLE OF pn_system_setup_options.auto_rec_expcl_num_flag%TYPE;
70 TYPE ConsRecAgrtermsFlag IS TABLE OF pn_system_setup_options.cons_rec_agrterms_flag%TYPE;
71 TYPE LocationCodeSeparator IS TABLE OF pn_system_setup_options.location_code_separator%TYPE;
72 TYPE DefaultLocnAreaFlag IS TABLE OF pn_system_setup_options.default_locn_area_flag%TYPE;
73 TYPE GroupingRuleId IS TABLE OF pn_system_setup_options.grouping_rule_id%TYPE;
74 TYPE GlTransferMode IS TABLE OF pn_system_setup_options.gl_transfer_mode%TYPE;
75 TYPE SubmitJournalImportFlag IS TABLE OF pn_system_setup_options.submit_journal_import_flag%TYPE;
76 TYPE LegacyDataCutOffDate IS TABLE OF pn_system_setup_options.legacy_data_cutoff_date%TYPE;
77 TYPE DefaultUserViewCode IS TABLE OF pn_system_setup_options.default_user_view_code%TYPE;
78 TYPE ExtendIndexrentTermFlag IS TABLE OF pn_system_setup_options.extend_indexrent_term_flag%TYPE;
79 TYPE SysdateForAdjFlag IS TABLE OF pn_system_setup_options.sysdate_for_adj_flag%TYPE;
80 TYPE SysdateAsTrxDateFlag IS TABLE OF pn_system_setup_options.sysdate_as_trx_date_flag%TYPE;
81 TYPE RenormAdjAccAllDraftFlag IS TABLE OF pn_system_setup_options.renorm_adj_acc_all_draft_flag%TYPE;
82 TYPE ConsolidateAdjItemsFlag IS TABLE OF pn_system_setup_options.consolidate_adj_items_flag%TYPE;
83 TYPE CalcAnnualizedBasisCode IS TABLE OF pn_system_setup_options.calc_annualized_basis_code%TYPE;
84 TYPE AllowTenancyOverlapFlag IS TABLE OF pn_system_setup_options.allow_tenancy_overlap_flag%TYPE;
85 TYPE RecalcIrOnAccChgFlag IS TABLE of pn_system_setup_options.recalc_ir_on_acc_chg_flag%TYPE;
86 TYPE SmallestTermAmount IS TABLE of pn_system_setup_options.Smallest_Term_Amount%TYPE; --#@#Bug4291907
87 TYPE InclTermsByDefaultFlag IS TABLE of pn_system_setup_options.incl_terms_by_default_flag%TYPE;
88
89 -- Define a record type that encapsulates multiple rows of
90 -- operating unit attributes:
91 --
92
93 TYPE GlobalsTable IS RECORD(
94 org_id_t OrgIDTable,
95 set_of_books_name_t SetOfBooksNameTable,
96 chart_of_accounts_id_t ChartOfAccountsIDTable,
97 legal_entity_name_t LegalEntityNameTable,
98 functional_currency_code_t FunctionalCurrencyCodeTable,
99 set_of_books_id_t SetOfBooksIDTable,
100 accounting_option_t AccountingOptionTable,
101 default_currency_conv_type_t DefaultCurrencyConvTypeTable,
102 space_assign_sysdate_optn_t SpaceAssignSysdateOptnTable,
103 multiple_tenancy_lease_t MultipleTenancyLeaseTable,
104 auto_comp_num_gen_t AutoCompNumGenTable,
105 auto_index_num_gen_t AutoIndexNumGenTable,
106 auto_lease_num_gen_t AutoLeaseNumGenTable,
107 auto_space_distribution_t AutoSpaceDistributionTable,
108 auto_var_rent_num_gen_t AutoVarRentNumGenTable,
109 auto_rec_agr_num_flag_t AutoRecAgrNumFlag,
110 auto_rec_exp_num_flag_t AutoRecExpNumFlag,
111 auto_rec_arcl_num_flag_t AutoRecArclNumFlag,
112 auto_rec_expcl_num_flag_t AutoRecExpclNumFlag,
113 cons_rec_agrterms_flag_t ConsRecAgrtermsFlag,
114 location_code_separator_t LocationCodeSeparator,
115 default_locn_area_flag_t DefaultLocnAreaFlag,
116 grouping_rule_id_t GroupingRuleId,
117 gl_transfer_mode_t GlTransferMode,
118 submit_journal_import_flag_t SubmitJournalImportFlag,
119 legacy_data_cutoff_date_t LegacyDataCutOffDate,
120 default_user_view_code_t DefaultUserViewCode,
121 extend_indexrent_term_flag_t ExtendIndexrentTermFlag,
122 sysdate_for_adj_flag_t SysdateForAdjFlag,
123 sysdate_as_trx_date_flag_t SysdateAsTrxDateFlag,
124 renorm_acc_all_draft_flag_t RenormAdjAccAllDraftFlag,
125 consolidate_adj_items_flag_t ConsolidateAdjItemsFlag,
126 calc_annualized_basis_code_t CalcAnnualizedBasisCode,
127 allow_tenancy_overlap_flag_t AllowTenancyOverlapFlag,
128 recalc_ir_on_acc_chg_flag_t RecalcIrOnAccChgFlag,
129 smallest_term_amount_t SmallestTermAmount,
130 incl_terms_by_default_flag_t InclTermsByDefaultFlag
131 );
132
133 --
134 -- This procedure retrieves operating unit attributes from the
135 -- database and stores them into the specified data structure
136 --
137
138 PROCEDURE retrieve_globals(p_globals OUT NOCOPY GlobalsTable);
139
140 FUNCTION get_profile_value (p_profile_name IN VARCHAR2,
141 p_org_id IN NUMBER DEFAULT NULL) RETURN VARCHAR2;
142
143 FUNCTION check_access (p_org_id NUMBER) RETURN VARCHAR2;
144
145 FUNCTION check_valid_org (p_org_id NUMBER) RETURN VARCHAR2;
146
147 FUNCTION get_multi_org_flag RETURN VARCHAR2;
148
149 FUNCTION is_MOAC_enabled RETURN BOOLEAN;
150
151 FUNCTION is_MOAC_enabled_char RETURN VARCHAR2;
152
153 PROCEDURE mo_global_init(p_appl_short_name IN VARCHAR2);
154
155 PROCEDURE fnd_req_set_org_id(p_org_id IN NUMBER);
156
157 FUNCTION get_current_org_id RETURN NUMBER;
158
159 END pn_mo_cache_utils;
[Home] [Help]