[Home] [Help]
PACKAGE: APPS.PQH_GL_POSTING
Source
1 PACKAGE pqh_gl_posting AUTHID CURRENT_USER AS
2 /* $Header: pqglpost.pkh 120.1.12010000.1 2008/07/28 12:57:13 appldev ship $ */
3
4 -- Type to hold mapped segments and values
5 TYPE t_map_struct_type IS RECORD
6 (
7 gl_segment_name VARCHAR2(30),
8 cost_segment_name VARCHAR2(30),
9 segment_value VARCHAR2(100)
10 );
11
12 -- PL / SQL table based on the above structure
13 TYPE t_map_tab IS TABLE OF t_map_struct_type
14 INDEX BY BINARY_INTEGER;
15
16 -- Type to hold segments and values
17 TYPE t_seg_val_type IS RECORD
18 (
19 cost_segment_name VARCHAR2(30),
20 segment_value VARCHAR2(100)
21 );
22
23 -- PL / SQL table based on the above structure
24 TYPE t_seg_val_tab IS TABLE OF t_seg_val_type
25 INDEX BY BINARY_INTEGER;
26
27 -- Type to hold period_name and amounts
28 TYPE t_period_amt_type IS RECORD
29 (
30 period_id NUMBER(15),
31 period_name VARCHAR2(30),
32 accounting_date DATE,
33 cost_allocation_keyflex_id NUMBER(15),
34 project_id NUMBER(15),
35 award_id NUMBER(15),
36 task_id NUMBER(15),
37 expenditure_type VARCHAR2(30),
38 organization_id NUMBER(15),
39 code_combination_id NUMBER(15),
40 amount1 NUMBER,
41 amount2 NUMBER,
42 amount3 NUMBER
43 );
44
45 -- PL / SQL table based on the above structure
46 TYPE t_period_amt_tab IS TABLE OF t_period_amt_type
47 INDEX BY BINARY_INTEGER;
48
49 -- global variables for the PL/SQL table of record defined above
50 g_map_tab t_map_tab;
51 g_seg_val_tab t_seg_val_tab;
52 g_period_amt_tab t_period_amt_tab;
53
54
55 PROCEDURE post_budget
56 (
57 p_budget_version_id IN pqh_budget_versions.budget_version_id%TYPE,
58 p_validate IN boolean default false,
59 p_status OUT NOCOPY varchar2
60 );
61
62 PROCEDURE conc_post_budget
63 (
64 errbuf OUT NOCOPY VARCHAR2,
65 retcode OUT NOCOPY VARCHAR2,
66 p_budget_version_id IN pqh_budget_versions.budget_version_id%TYPE,
67 p_validate IN varchar2 default 'N'
68 );
69
70 PROCEDURE populate_globals
71 (
72 p_budget_version_id IN pqh_budget_versions.budget_version_id%TYPE
73 );
74
75 PROCEDURE populate_period_amt_tab
76 (
77 p_budget_detail_id IN pqh_budget_details.budget_detail_id%TYPE
78 );
79
80 PROCEDURE update_period_amt_tab
81 (
82 p_budget_detail_id IN pqh_budget_details.budget_detail_id%TYPE
83 );
84
85 PROCEDURE populate_pqh_gl_interface
86 (
87 p_budget_detail_id IN pqh_budget_details.budget_detail_id%TYPE
88 );
89
90 PROCEDURE insert_pqh_gl_interface
91 (
92 p_budget_detail_id IN pqh_gl_interface.budget_detail_id%TYPE,
93 p_period_name IN pqh_gl_interface.period_name%TYPE,
94 p_accounting_date IN pqh_gl_interface.accounting_date%TYPE,
95 p_code_combination_id IN pqh_gl_interface.code_combination_id%TYPE,
96 p_cost_allocation_keyflex_id IN pqh_gl_interface.cost_allocation_keyflex_id%TYPE,
97 p_amount IN pqh_gl_interface.amount_dr%TYPE,
98 p_currency_code IN pqh_gl_interface.currency_code%TYPE
99 );
100
101 PROCEDURE update_pqh_gl_interface
102 (
103 p_budget_detail_id IN pqh_gl_interface.budget_detail_id%TYPE,
104 p_period_name IN pqh_gl_interface.period_name%TYPE,
105 p_accounting_date IN pqh_gl_interface.accounting_date%TYPE,
106 p_code_combination_id IN pqh_gl_interface.code_combination_id%TYPE,
107 p_cost_allocation_keyflex_id IN pqh_gl_interface.cost_allocation_keyflex_id%TYPE,
108 p_amount IN pqh_gl_interface.amount_dr%TYPE,
109 p_currency_code IN pqh_gl_interface.currency_code%TYPE
110 );
111
112 PROCEDURE populate_gl_tables;
113
114 PROCEDURE update_gl_status;
115
116 PROCEDURE get_gl_ccid
117 (
118 p_budget_detail_id IN pqh_budget_details.budget_detail_id%TYPE,
119 p_budget_period_id IN pqh_budget_periods.budget_period_id%TYPE,
120 p_cost_allocation_keyflex_id IN pay_cost_allocation_keyflex.cost_allocation_keyflex_id%TYPE,
121 p_code_combination_id OUT NOCOPY gl_code_combinations.code_combination_id%TYPE
122 );
123
124 FUNCTION get_value_from_array ( p_segment_name IN varchar2 )
125 RETURN VARCHAR2;
126
127
128 PROCEDURE get_gl_period
129 (
130 p_budget_period_id IN pqh_budget_periods.budget_period_id%TYPE,
131 p_gl_period_statuses_rec OUT NOCOPY gl_period_statuses%ROWTYPE
132 );
133
134 FUNCTION get_amt1 ( p_budget_fund_src_id IN pqh_budget_fund_srcs.budget_fund_src_id%TYPE )
135 RETURN NUMBER;
136
137 FUNCTION get_amt2 ( p_budget_fund_src_id IN pqh_budget_fund_srcs.budget_fund_src_id%TYPE )
138 RETURN NUMBER;
139
140 FUNCTION get_amt3 ( p_budget_fund_src_id IN pqh_budget_fund_srcs.budget_fund_src_id%TYPE )
141 RETURN NUMBER;
142
143 PROCEDURE end_log;
144
145 PROCEDURE set_bdt_log_context
146 (
147 p_budget_detail_id IN pqh_budget_details.budget_detail_id%TYPE,
148 p_log_context OUT NOCOPY pqh_process_log.log_context%TYPE
149 );
150
151 PROCEDURE set_bpr_log_context
152 (
153 p_budget_period_id IN pqh_budget_periods.budget_period_id%TYPE,
154 p_log_context OUT NOCOPY pqh_process_log.log_context%TYPE
155 );
156
157 PROCEDURE set_bfs_log_context
158 (
159 p_cost_allocation_keyflex_id IN pay_cost_allocation_keyflex.cost_allocation_keyflex_id%TYPE,
160 p_log_context OUT NOCOPY pqh_process_log.log_context%TYPE
161 );
162
163 PROCEDURE populate_budget_gl_map
164 (
165 p_budget_id IN pqh_budgets.budget_id%TYPE
166 );
167
168 PROCEDURE reverse_budget_details
169 (
170 p_period_name IN pqh_gl_interface.period_name%TYPE,
171 p_currency_code IN pqh_gl_interface.currency_code%TYPE,
172 p_code_combination_id IN pqh_gl_interface.code_combination_id%TYPE
173 );
174
175 PROCEDURE populate_period_enc_tab
176 (
177 p_budget_detail_id IN pqh_budget_details.budget_detail_id%TYPE
178 );
179 -- Type to hold old budget detail records
180 TYPE t_old_bdgt_dtls_type IS RECORD
181 (
182 budget_version_id NUMBER(15),
183 budget_detail_id NUMBER(15),
184 period_name VARCHAR2(30),
185 accounting_date DATE,
186 cost_allocation_keyflex_id NUMBER(15),
187 code_combination_id NUMBER(15),
188 project_id NUMBER(15),
189 award_id NUMBER(15),
190 task_id NUMBER(15),
191 expenditure_type VARCHAR2(30),
192 organization_id NUMBER(15),
193 currency_code VARCHAR2(30),
194 amount_dr NUMBER,
195 amount_cr NUMBER,
196 reverse_flag VARCHAR2(30)
197 );
198
199 -- PL / SQL table based on the above structure
200 TYPE t_old_bdgt_dtls_tab IS TABLE OF t_old_bdgt_dtls_type
201 INDEX BY BINARY_INTEGER;
202
203 -- global variables for the PL/SQL table of record defined above
204 g_old_bdgt_dtls_tab t_old_bdgt_dtls_tab;
205
206 -- Type to hold Records to be imorted in to Grants
207 TYPE t_gms_import_rec is RECORD
208 (
209 PERIOD_NAME VARCHAR2(30),
210 PROJECT_ID NUMBER,
211 TASK_ID NUMBER,
212 AWARD_ID NUMBER,
213 EXPENDITURE_TYPE VARCHAR2(30),
214 ORGANIZATION_ID NUMBER,
215 EXPENDITURE_ENDING_DATE DATE,
216 ORGANIZATION_NAME pa_transaction_interface_all.ORGANIZATION_NAME%TYPE,
217 EXPENDITURE_ITEM_DATE DATE,
218 PROJECT_NUMBER pa_transaction_interface_all.PROJECT_NUMBER%TYPE,
219 TASK_NUMBER pa_transaction_interface_all.TASK_NUMBER%TYPE,
220 QUANTITY NUMBER,
221 ORIG_TRANSACTION_REFERENCE varchar2(30) ,
222 ORG_ID NUMBER,
223 DENOM_CURRENCY_CODE VARCHAR2(15),
224 Amount NUMBER,
225 TRANSACTION_SOURCE VARCHAR2(30)
226
227 );
228 -- PL / SQL table based on the above structure
229 TYPE t_gms_import_tab IS TABLE OF t_gms_import_rec
230 INDEX BY BINARY_INTEGER;
231
232 -- global variables for the PL/SQL table of record defined above
233 g_gms_import_tab t_gms_import_tab;
234
235 PROCEDURE build_old_bdgt_dtls_tab
236 (
237 p_budget_detail_id IN pqh_budget_details.budget_detail_id%TYPE
238 );
239
240 PROCEDURE compare_old_bdgt_dtls_tab;
241
242 PROCEDURE reverse_old_bdgt_dtls_tab
243 (
244 p_budget_detail_id IN pqh_budget_details.budget_detail_id%TYPE
245 );
246
247 PROCEDURE get_default_currency;
248
249 PROCEDURE get_payroll_defaults
250 (
251 p_budget_detail_id IN pqh_budget_details.budget_detail_id%TYPE
252 );
253
254 PROCEDURE get_element_link_defaults
255 (
256 p_budget_detail_id IN pqh_budget_details.budget_detail_id%TYPE,
257 p_budget_period_id IN pqh_budget_periods.budget_period_id%TYPE
258 );
259
260 PROCEDURE get_organization_defaults
261 (
262 p_budget_detail_id IN pqh_budget_details.budget_detail_id%TYPE
263 );
264
265 PROCEDURE reverse_prev_posted_version;
266
267
268 --
269 -- Added the foll wrapper function and calling it from commitment posting
270 --
271
272 PROCEDURE get_ccid_for_commitment(
273 p_budget_id IN pqh_budgets.budget_id%type,
274 p_chart_of_accounts_id IN gl_interface.chart_of_accounts_id%TYPE,
275 p_budget_detail_id IN pqh_budget_details.budget_detail_id%TYPE,
276 p_budget_period_id IN pqh_budget_periods.budget_period_id%TYPE,
277 p_cost_allocation_keyflex_id IN pay_cost_allocation_keyflex.cost_allocation_keyflex_id%TYPE,
278 p_code_combination_id OUT NOCOPY gl_code_combinations.code_combination_id%TYPE);
279 --
280
281 --
282 -- Added the foll wrapper function and calling it from commitment posting
283 --
284
285 PROCEDURE end_commitment_log(p_status OUT NOCOPY varchar2);
286 FUNCTION chk_budget_details(p_budget_version_id in pqh_budget_details.budget_version_id%TYPE) return varchar2;
287
288 function get_gms_rejection_msg (p_rejection_code in varchar2) return varchar2;
289
290 END pqh_gl_posting;