5: --
6: -- Private procedures/functions/variables
7: --
8:
9: --===========================FND_LOG.START=====================================
10: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
11: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
12: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
13: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
6: -- Private procedures/functions/variables
7: --
8:
9: --===========================FND_LOG.START=====================================
10: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
11: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
12: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
13: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
14: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
7: --
8:
9: --===========================FND_LOG.START=====================================
10: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
11: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
12: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
13: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
14: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
15: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
8:
9: --===========================FND_LOG.START=====================================
10: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
11: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
12: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
13: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
14: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
15: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
16: g_path VARCHAR2(50) := 'PSA.PLSQL.PSAMFUTB.PSA_MFAR_UTILS.';
9: --===========================FND_LOG.START=====================================
10: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
11: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
12: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
13: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
14: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
15: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
16: g_path VARCHAR2(50) := 'PSA.PLSQL.PSAMFUTB.PSA_MFAR_UTILS.';
17: --===========================FND_LOG.END=======================================
10: g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
11: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
12: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
13: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
14: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
15: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
16: g_path VARCHAR2(50) := 'PSA.PLSQL.PSAMFUTB.PSA_MFAR_UTILS.';
17: --===========================FND_LOG.END=======================================
18:
11: g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
12: g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
13: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
14: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
15: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
16: g_path VARCHAR2(50) := 'PSA.PLSQL.PSAMFUTB.PSA_MFAR_UTILS.';
17: --===========================FND_LOG.END=======================================
18:
19: FUNCTION GET_MAPPED_ACCOUNT (p_transaction_type IN VARCHAR2,
13: g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
14: g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
15: g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
16: g_path VARCHAR2(50) := 'PSA.PLSQL.PSAMFUTB.PSA_MFAR_UTILS.';
17: --===========================FND_LOG.END=======================================
18:
19: FUNCTION GET_MAPPED_ACCOUNT (p_transaction_type IN VARCHAR2,
20: p_natural_account IN VARCHAR2,
21: p_set_of_books_id IN NUMBER,
36: IS
37: l_count number := 0;
38: l_segment_info FND_FLEX_EXT.SEGMENTARRAY;
39:
40: -- ========================= FND LOG ===========================
41: l_full_path VARCHAR2(1000) := g_path || 'insert_ccid.';
42: -- ========================= FND LOG ===========================
43:
44: BEGIN
38: l_segment_info FND_FLEX_EXT.SEGMENTARRAY;
39:
40: -- ========================= FND LOG ===========================
41: l_full_path VARCHAR2(1000) := g_path || 'insert_ccid.';
42: -- ========================= FND LOG ===========================
43:
44: BEGIN
45: l_count := nvl(ccid_info.count,0) + 1;
46: l_segment_info := p_segment_info;
44: BEGIN
45: l_count := nvl(ccid_info.count,0) + 1;
46: l_segment_info := p_segment_info;
47:
48: -- ========================= FND LOG ===========================
49: psa_utils.debug_other_string(g_state_level,l_full_path,' Inside insert_ccid ');
50: psa_utils.debug_other_string(g_state_level,l_full_path,' PARAMETERS: ');
51: psa_utils.debug_other_string(g_state_level,l_full_path,' =========== ');
52: psa_utils.debug_other_string(g_state_level,l_full_path,' p_ccid --> ' || p_ccid);
90: psa_utils.debug_other_string(g_state_level,l_full_path,' segment'||i||' --> ' ||l_segment_info(i) );
91: END LOOP;
92:
93: psa_utils.debug_other_string(g_state_level,l_full_path,' p_num_segments --> ' || p_num_segments );
94: -- ========================= FND LOG ===========================
95:
96: -- l_count := nvl(ccid_info.count,0) + 1;
97:
98: -- ========================= FND LOG ===========================
94: -- ========================= FND LOG ===========================
95:
96: -- l_count := nvl(ccid_info.count,0) + 1;
97:
98: -- ========================= FND LOG ===========================
99: psa_utils.debug_other_string(g_state_level,l_full_path,' l_count -> ' || l_count);
100: -- ========================= FND LOG ===========================
101:
102: ccid_info(l_count).ccid := p_ccid;
96: -- l_count := nvl(ccid_info.count,0) + 1;
97:
98: -- ========================= FND LOG ===========================
99: psa_utils.debug_other_string(g_state_level,l_full_path,' l_count -> ' || l_count);
100: -- ========================= FND LOG ===========================
101:
102: ccid_info(l_count).ccid := p_ccid;
103: ccid_info(l_count).number_of_segments := p_num_segments;
104:
101:
102: ccid_info(l_count).ccid := p_ccid;
103: ccid_info(l_count).number_of_segments := p_num_segments;
104:
105: -- ========================= FND LOG ===========================
106: psa_utils.debug_other_string(g_state_level,l_full_path,' END - insert ccid ');
107: -- ========================= FND LOG ===========================
108:
109: EXCEPTION
103: ccid_info(l_count).number_of_segments := p_num_segments;
104:
105: -- ========================= FND LOG ===========================
106: psa_utils.debug_other_string(g_state_level,l_full_path,' END - insert ccid ');
107: -- ========================= FND LOG ===========================
108:
109: EXCEPTION
110: WHEN OTHERS THEN
111: -- ========================= FND LOG ===========================
107: -- ========================= FND LOG ===========================
108:
109: EXCEPTION
110: WHEN OTHERS THEN
111: -- ========================= FND LOG ===========================
112: psa_utils.debug_other_string(g_excep_level,l_full_path,'EXCEPTION - OTHERS : ERROR IN PSA_MFAR_UTILS.insert_ccid');
113: psa_utils.debug_other_string(g_excep_level,l_full_path, sqlcode || sqlerrm);
114: psa_utils.debug_unexpected_msg(l_full_path);
115: -- ========================= FND LOG ===========================
111: -- ========================= FND LOG ===========================
112: psa_utils.debug_other_string(g_excep_level,l_full_path,'EXCEPTION - OTHERS : ERROR IN PSA_MFAR_UTILS.insert_ccid');
113: psa_utils.debug_other_string(g_excep_level,l_full_path, sqlcode || sqlerrm);
114: psa_utils.debug_unexpected_msg(l_full_path);
115: -- ========================= FND LOG ===========================
116: APP_EXCEPTION.RAISE_EXCEPTION;
117:
118: End insert_ccid;
119:
133: l_count NUMBER;
134: l_no_match NUMBER;
135: l_segment_info FND_FLEX_EXT.SEGMENTARRAY;
136:
137: -- ========================= FND LOG ===========================
138: l_full_path VARCHAR2(100) := g_path || 'is_ccid_exists.';
139: -- ========================= FND LOG ===========================
140:
141: BEGIN
135: l_segment_info FND_FLEX_EXT.SEGMENTARRAY;
136:
137: -- ========================= FND LOG ===========================
138: l_full_path VARCHAR2(100) := g_path || 'is_ccid_exists.';
139: -- ========================= FND LOG ===========================
140:
141: BEGIN
142:
143: -- ========================= FND LOG ===========================
139: -- ========================= FND LOG ===========================
140:
141: BEGIN
142:
143: -- ========================= FND LOG ===========================
144: psa_utils.debug_other_string(g_state_level,l_full_path,' Inside is_ccid_exists ');
145: psa_utils.debug_other_string(g_state_level,l_full_path,' PARAMETERS: ');
146: psa_utils.debug_other_string(g_state_level,l_full_path,' =========== ');
147: psa_utils.debug_other_string(g_state_level,l_full_path,' x_ccid --> ' || x_ccid);
149: LOOP
150: psa_utils.debug_other_string(g_state_level,l_full_path,' x_segment_info --> ' || x_segment_info(I) );
151: END LOOP;
152: psa_utils.debug_other_string(g_state_level,l_full_path,' x_number_of_segments --> ' || x_number_of_segments );
153: -- ========================= FND LOG ===========================
154:
155: l_count := ccid_info.count;
156:
157: -- ========================= FND LOG ===========================
153: -- ========================= FND LOG ===========================
154:
155: l_count := ccid_info.count;
156:
157: -- ========================= FND LOG ===========================
158: psa_utils.debug_other_string(g_state_level,l_full_path,' l_count -> ' || l_count);
159: -- ========================= FND LOG ===========================
160:
161: IF x_ccid IS NOT NULL THEN
155: l_count := ccid_info.count;
156:
157: -- ========================= FND LOG ===========================
158: psa_utils.debug_other_string(g_state_level,l_full_path,' l_count -> ' || l_count);
159: -- ========================= FND LOG ===========================
160:
161: IF x_ccid IS NOT NULL THEN
162:
163: -- ========================= FND LOG ===========================
159: -- ========================= FND LOG ===========================
160:
161: IF x_ccid IS NOT NULL THEN
162:
163: -- ========================= FND LOG ===========================
164: psa_utils.debug_other_string(g_state_level,l_full_path,' x_ccid IS NOT NULL ');
165: -- ========================= FND LOG ===========================
166:
167: FOR I IN 1..l_count
161: IF x_ccid IS NOT NULL THEN
162:
163: -- ========================= FND LOG ===========================
164: psa_utils.debug_other_string(g_state_level,l_full_path,' x_ccid IS NOT NULL ');
165: -- ========================= FND LOG ===========================
166:
167: FOR I IN 1..l_count
168: LOOP
169:
166:
167: FOR I IN 1..l_count
168: LOOP
169:
170: -- ========================= FND LOG ===========================
171: psa_utils.debug_other_string(g_state_level,l_full_path, nvl(ccid_info(I).ccid,-1) || '=' || x_ccid);
172: -- ========================= FND LOG ===========================
173:
174: IF nvl(ccid_info(I).ccid,-1) = x_ccid THEN
168: LOOP
169:
170: -- ========================= FND LOG ===========================
171: psa_utils.debug_other_string(g_state_level,l_full_path, nvl(ccid_info(I).ccid,-1) || '=' || x_ccid);
172: -- ========================= FND LOG ===========================
173:
174: IF nvl(ccid_info(I).ccid,-1) = x_ccid THEN
175: IF ccid_info(I).segment1 IS NOT NULL THEN x_segment_info(1) := ccid_info(I).segment1; END IF;
176: IF ccid_info(I).segment2 IS NOT NULL THEN x_segment_info(2) := ccid_info(I).segment2; END IF;
204: IF ccid_info(I).segment30 IS NOT NULL THEN x_segment_info(30) := ccid_info(I).segment30; END IF;
205:
206: x_number_of_segments := ccid_info(I).number_of_segments;
207:
208: -- ========================= FND LOG ===========================
209: psa_utils.debug_other_string(g_state_level,l_full_path,' x_number_of_segments -> ' || x_number_of_segments);
210: FOR I IN 1..x_number_of_segments
211: LOOP
212: psa_utils.debug_other_string(g_state_level,l_full_path,' x_segment_info --> ' || x_segment_info(I) );
211: LOOP
212: psa_utils.debug_other_string(g_state_level,l_full_path,' x_segment_info --> ' || x_segment_info(I) );
213: END LOOP;
214: psa_utils.debug_other_string(g_state_level,l_full_path,'RETURN -> TRUE');
215: -- ========================= FND LOG ===========================
216:
217: RETURN TRUE;
218:
219: END IF;
219: END IF;
220:
221: END LOOP;
222:
223: -- ========================= FND LOG ===========================
224: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
225: -- ========================= FND LOG ===========================
226: RETURN FALSE;
227:
221: END LOOP;
222:
223: -- ========================= FND LOG ===========================
224: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN -> FALSE');
225: -- ========================= FND LOG ===========================
226: RETURN FALSE;
227:
228: ELSE
229:
226: RETURN FALSE;
227:
228: ELSE
229:
230: -- ========================= FND LOG ===========================
231: psa_utils.debug_other_string(g_state_level,l_full_path,' x_ccid IS NULL ');
232: -- ========================= FND LOG ===========================
233:
234: l_segment_info := x_segment_info;
228: ELSE
229:
230: -- ========================= FND LOG ===========================
231: psa_utils.debug_other_string(g_state_level,l_full_path,' x_ccid IS NULL ');
232: -- ========================= FND LOG ===========================
233:
234: l_segment_info := x_segment_info;
235:
236: -- ========================= FND LOG ===========================
232: -- ========================= FND LOG ===========================
233:
234: l_segment_info := x_segment_info;
235:
236: -- ========================= FND LOG ===========================
237: psa_utils.debug_other_string(g_state_level,l_full_path,' Number of segments : '||l_segment_info.count);
238: -- ========================= FND LOG ===========================
239:
240: FOR J IN (x_segment_info.count + 1)..30
234: l_segment_info := x_segment_info;
235:
236: -- ========================= FND LOG ===========================
237: psa_utils.debug_other_string(g_state_level,l_full_path,' Number of segments : '||l_segment_info.count);
238: -- ========================= FND LOG ===========================
239:
240: FOR J IN (x_segment_info.count + 1)..30
241: LOOP
242: l_segment_info(J) := NULL;
281:
282: IF l_no_match = 0 THEN
283: x_ccid := ccid_info(I).ccid;
284:
285: -- ========================= FND LOG ===========================
286: psa_utils.debug_other_string(g_state_level,l_full_path, ' x_ccid -> ' || x_ccid);
287: psa_utils.debug_other_string(g_state_level,l_full_path, ' RETURN -> TRUE');
288: -- ========================= FND LOG ===========================
289:
284:
285: -- ========================= FND LOG ===========================
286: psa_utils.debug_other_string(g_state_level,l_full_path, ' x_ccid -> ' || x_ccid);
287: psa_utils.debug_other_string(g_state_level,l_full_path, ' RETURN -> TRUE');
288: -- ========================= FND LOG ===========================
289:
290: RETURN TRUE;
291:
292: END IF;
292: END IF;
293:
294: End Loop;
295:
296: -- ========================= FND LOG ===========================
297: psa_utils.debug_other_string(g_state_level,l_full_path, ' RETURN -> FALSE');
298: -- ========================= FND LOG ===========================
299:
300: RETURN FALSE;
294: End Loop;
295:
296: -- ========================= FND LOG ===========================
297: psa_utils.debug_other_string(g_state_level,l_full_path, ' RETURN -> FALSE');
298: -- ========================= FND LOG ===========================
299:
300: RETURN FALSE;
301:
302: END IF;
304: RETURN FALSE;
305:
306: EXCEPTION
307: WHEN OTHERS THEN
308: -- ========================= FND LOG ===========================
309: psa_utils.debug_other_string(g_excep_level,l_full_path,'EXCEPTION - OTHERS : ERROR IN PSA_MFAR_UTILS.is_ccid_exists');
310: psa_utils.debug_other_string(g_excep_level,l_full_path,'RETURN -> FALSE');
311: psa_utils.debug_other_string(g_excep_level,l_full_path, sqlcode || sqlerrm);
312: psa_utils.debug_unexpected_msg(l_full_path);
309: psa_utils.debug_other_string(g_excep_level,l_full_path,'EXCEPTION - OTHERS : ERROR IN PSA_MFAR_UTILS.is_ccid_exists');
310: psa_utils.debug_other_string(g_excep_level,l_full_path,'RETURN -> FALSE');
311: psa_utils.debug_other_string(g_excep_level,l_full_path, sqlcode || sqlerrm);
312: psa_utils.debug_unexpected_msg(l_full_path);
313: -- ========================= FND LOG ===========================
314: RETURN FALSE;
315:
316: END is_ccid_exists;
317:
341: GET_SEGMENTS_EXCEP EXCEPTION;
342: GET_QUALIFIER_SEGNUM_EXCEP EXCEPTION;
343: GET_COMBINATION_ID_EXCEP EXCEPTION;
344:
345: -- ========================= FND LOG ===========================
346: l_full_path VARCHAR2(100) := g_path || 'override_segments';
347: -- ========================= FND LOG ===========================
348:
349: BEGIN
343: GET_COMBINATION_ID_EXCEP EXCEPTION;
344:
345: -- ========================= FND LOG ===========================
346: l_full_path VARCHAR2(100) := g_path || 'override_segments';
347: -- ========================= FND LOG ===========================
348:
349: BEGIN
350:
351: -- ========================= FND LOG ===========================
347: -- ========================= FND LOG ===========================
348:
349: BEGIN
350:
351: -- ========================= FND LOG ===========================
352: psa_utils.debug_other_string(g_state_level,l_full_path,' Inside override_segments ');
353: psa_utils.debug_other_string(g_state_level,l_full_path,' PARAMETERS: ');
354: psa_utils.debug_other_string(g_state_level,l_full_path,' =========== ');
355: psa_utils.debug_other_string(g_state_level,l_full_path,' p_primary_ccid --> ' || p_primary_ccid);
357: psa_utils.debug_other_string(g_state_level,l_full_path,' p_set_of_books_id --> ' || p_set_of_books_id );
358: psa_utils.debug_other_string(g_state_level,l_full_path,' p_trx_type --> ' || p_trx_type);
359: psa_utils.debug_other_string(g_state_level,l_full_path,' g_chart_of_accounts_id --> ' || g_chart_of_accounts_id);
360:
361: -- ========================= FND LOG ===========================
362:
363: -- Get Chart of Accounts ID
364: IF g_chart_of_accounts_id IS NULL THEN
365:
367: INTO g_chart_of_accounts_id
368: FROM gl_sets_of_books
369: WHERE set_of_books_id = p_set_of_books_id;
370:
371: -- ========================= FND LOG ===========================
372: psa_utils.debug_other_string(g_state_level,l_full_path,' g_chart_of_accounts_id --> ' || g_chart_of_accounts_id);
373: psa_utils.debug_other_string(g_state_level,l_full_path,' Getting org details ');
374: -- ========================= FND LOG ===========================
375:
370:
371: -- ========================= FND LOG ===========================
372: psa_utils.debug_other_string(g_state_level,l_full_path,' g_chart_of_accounts_id --> ' || g_chart_of_accounts_id);
373: psa_utils.debug_other_string(g_state_level,l_full_path,' Getting org details ');
374: -- ========================= FND LOG ===========================
375:
376: PSA_MF_ORG_DETAILS (g_org_details);
377:
378: -- ========================= FND LOG ===========================
374: -- ========================= FND LOG ===========================
375:
376: PSA_MF_ORG_DETAILS (g_org_details);
377:
378: -- ========================= FND LOG ===========================
379: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling FND_FLEX_APIS.GET_QUALIFIER_SEGNUM - balancing segment');
380:
381:
382: -- ========================= FND LOG ===========================
378: -- ========================= FND LOG ===========================
379: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling FND_FLEX_APIS.GET_QUALIFIER_SEGNUM - balancing segment');
380:
381:
382: -- ========================= FND LOG ===========================
383:
384: -- Get balancing segment number
385: IF (NOT FND_FLEX_APIS.GET_QUALIFIER_SEGNUM(
386: APPL_ID => 101,
388: STRUCTURE_NUMBER => g_chart_of_accounts_id,
389: FLEX_QUAL_NAME => 'GL_BALANCING',
390: SEGMENT_NUMBER => g_bal_acct_seg_num)) -- OUT
391: THEN
392: -- ========================= FND LOG ===========================
393: psa_utils.debug_other_string(g_state_level,l_full_path,' g_bal_acct_seg_num --> ' || g_bal_acct_seg_num );
394: psa_utils.debug_other_string(g_state_level,l_full_path,' Raising GET_QUALIFIER_SEGNUM_EXCEP ');
395: -- ========================= FND LOG ===========================
396: RAISE GET_QUALIFIER_SEGNUM_EXCEP;
391: THEN
392: -- ========================= FND LOG ===========================
393: psa_utils.debug_other_string(g_state_level,l_full_path,' g_bal_acct_seg_num --> ' || g_bal_acct_seg_num );
394: psa_utils.debug_other_string(g_state_level,l_full_path,' Raising GET_QUALIFIER_SEGNUM_EXCEP ');
395: -- ========================= FND LOG ===========================
396: RAISE GET_QUALIFIER_SEGNUM_EXCEP;
397: ELSE
398: -- ========================= FND LOG ===========================
399: psa_utils.debug_other_string(g_state_level,l_full_path,' g_bal_acct_seg_num --> ' || g_bal_acct_seg_num );
394: psa_utils.debug_other_string(g_state_level,l_full_path,' Raising GET_QUALIFIER_SEGNUM_EXCEP ');
395: -- ========================= FND LOG ===========================
396: RAISE GET_QUALIFIER_SEGNUM_EXCEP;
397: ELSE
398: -- ========================= FND LOG ===========================
399: psa_utils.debug_other_string(g_state_level,l_full_path,' g_bal_acct_seg_num --> ' || g_bal_acct_seg_num );
400: -- ========================= FND LOG ===========================
401: END IF;
402:
396: RAISE GET_QUALIFIER_SEGNUM_EXCEP;
397: ELSE
398: -- ========================= FND LOG ===========================
399: psa_utils.debug_other_string(g_state_level,l_full_path,' g_bal_acct_seg_num --> ' || g_bal_acct_seg_num );
400: -- ========================= FND LOG ===========================
401: END IF;
402:
403: -- ========================= FND LOG ===========================
404: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling FND_FLEX_APIS.GET_QUALIFIER_SEGNUM - natural account ');
399: psa_utils.debug_other_string(g_state_level,l_full_path,' g_bal_acct_seg_num --> ' || g_bal_acct_seg_num );
400: -- ========================= FND LOG ===========================
401: END IF;
402:
403: -- ========================= FND LOG ===========================
404: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling FND_FLEX_APIS.GET_QUALIFIER_SEGNUM - natural account ');
405: -- ========================= FND LOG ===========================
406:
407: -- Get natural account segment number
401: END IF;
402:
403: -- ========================= FND LOG ===========================
404: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling FND_FLEX_APIS.GET_QUALIFIER_SEGNUM - natural account ');
405: -- ========================= FND LOG ===========================
406:
407: -- Get natural account segment number
408: IF (NOT FND_FLEX_APIS.GET_QUALIFIER_SEGNUM( APPL_ID => 101,
409: KEY_FLEX_CODE => 'GL#',
409: KEY_FLEX_CODE => 'GL#',
410: STRUCTURE_NUMBER => g_chart_of_accounts_id,
411: FLEX_QUAL_NAME => 'GL_ACCOUNT',
412: SEGMENT_NUMBER => g_nat_acct_seg_num)) THEN -- OUT
413: -- ========================= FND LOG ===========================
414: psa_utils.debug_other_string(g_state_level,l_full_path,' g_nat_acct_seg_num --> ' || g_nat_acct_seg_num );
415: psa_utils.debug_other_string(g_state_level,l_full_path,' Raising GET_QUALIFIER_SEGNUM_EXCEP ');
416: -- ========================= FND LOG ===========================
417: RAISE GET_QUALIFIER_SEGNUM_EXCEP;
412: SEGMENT_NUMBER => g_nat_acct_seg_num)) THEN -- OUT
413: -- ========================= FND LOG ===========================
414: psa_utils.debug_other_string(g_state_level,l_full_path,' g_nat_acct_seg_num --> ' || g_nat_acct_seg_num );
415: psa_utils.debug_other_string(g_state_level,l_full_path,' Raising GET_QUALIFIER_SEGNUM_EXCEP ');
416: -- ========================= FND LOG ===========================
417: RAISE GET_QUALIFIER_SEGNUM_EXCEP;
418: ELSE
419: -- ========================= FND LOG ===========================
420: psa_utils.debug_other_string(g_state_level,l_full_path,' g_nat_acct_seg_num --> ' || g_nat_acct_seg_num );
415: psa_utils.debug_other_string(g_state_level,l_full_path,' Raising GET_QUALIFIER_SEGNUM_EXCEP ');
416: -- ========================= FND LOG ===========================
417: RAISE GET_QUALIFIER_SEGNUM_EXCEP;
418: ELSE
419: -- ========================= FND LOG ===========================
420: psa_utils.debug_other_string(g_state_level,l_full_path,' g_nat_acct_seg_num --> ' || g_nat_acct_seg_num );
421: -- ========================= FND LOG ===========================
422: END IF;
423:
417: RAISE GET_QUALIFIER_SEGNUM_EXCEP;
418: ELSE
419: -- ========================= FND LOG ===========================
420: psa_utils.debug_other_string(g_state_level,l_full_path,' g_nat_acct_seg_num --> ' || g_nat_acct_seg_num );
421: -- ========================= FND LOG ===========================
422: END IF;
423:
424: END IF; -- end if for chart of accounts id is null
425:
422: END IF;
423:
424: END IF; -- end if for chart of accounts id is null
425:
426: -- ========================= FND LOG ===========================
427: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling FND_FLEX_EXT.GET_SEGMENTS - primary segment array');
428: -- ========================= FND LOG ===========================
429:
430: -- Get Primary segment array
424: END IF; -- end if for chart of accounts id is null
425:
426: -- ========================= FND LOG ===========================
427: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling FND_FLEX_EXT.GET_SEGMENTS - primary segment array');
428: -- ========================= FND LOG ===========================
429:
430: -- Get Primary segment array
431: l_ccid := P_primary_ccid;
432:
429:
430: -- Get Primary segment array
431: l_ccid := P_primary_ccid;
432:
433: -- ========================= FND LOG ===========================
434: psa_utils.debug_other_string(g_state_level,l_full_path,' l_ccid -> ' || l_ccid);
435: -- ========================= FND LOG ===========================
436:
437: IF NOT (is_ccid_exists (l_ccid, l_primary_segments, l_num_segments)) THEN
431: l_ccid := P_primary_ccid;
432:
433: -- ========================= FND LOG ===========================
434: psa_utils.debug_other_string(g_state_level,l_full_path,' l_ccid -> ' || l_ccid);
435: -- ========================= FND LOG ===========================
436:
437: IF NOT (is_ccid_exists (l_ccid, l_primary_segments, l_num_segments)) THEN
438:
439: -- ========================= FND LOG ===========================
435: -- ========================= FND LOG ===========================
436:
437: IF NOT (is_ccid_exists (l_ccid, l_primary_segments, l_num_segments)) THEN
438:
439: -- ========================= FND LOG ===========================
440: psa_utils.debug_other_string(g_state_level,l_full_path,' is_ccid_exists -> FALSE' );
441: -- ========================= FND LOG ===========================
442:
443: IF (NOT FND_FLEX_EXT.GET_SEGMENTS(
437: IF NOT (is_ccid_exists (l_ccid, l_primary_segments, l_num_segments)) THEN
438:
439: -- ========================= FND LOG ===========================
440: psa_utils.debug_other_string(g_state_level,l_full_path,' is_ccid_exists -> FALSE' );
441: -- ========================= FND LOG ===========================
442:
443: IF (NOT FND_FLEX_EXT.GET_SEGMENTS(
444: APPLICATION_SHORT_NAME => 'SQLGL',
445: KEY_FLEX_CODE => 'GL#',
447: COMBINATION_ID => P_primary_ccid,
448: N_SEGMENTS => l_num_segments, -- OUT
449: SEGMENTS => l_primary_segments)) Then -- OUT
450:
451: -- ========================= FND LOG ===========================
452: psa_utils.debug_other_string(g_state_level,l_full_path,' l_num_segments --> ' || l_num_segments);
453: psa_utils.debug_other_string(g_state_level,l_full_path,' Raising GET_SEGMENTS_EXCEP ');
454: -- ========================= FND LOG ===========================
455: RAISE GET_SEGMENTS_EXCEP;
450:
451: -- ========================= FND LOG ===========================
452: psa_utils.debug_other_string(g_state_level,l_full_path,' l_num_segments --> ' || l_num_segments);
453: psa_utils.debug_other_string(g_state_level,l_full_path,' Raising GET_SEGMENTS_EXCEP ');
454: -- ========================= FND LOG ===========================
455: RAISE GET_SEGMENTS_EXCEP;
456: ELSE
457: -- ========================= FND LOG ===========================
458: psa_utils.debug_other_string(g_state_level,l_full_path,' l_num_segments --> ' || l_num_segments);
453: psa_utils.debug_other_string(g_state_level,l_full_path,' Raising GET_SEGMENTS_EXCEP ');
454: -- ========================= FND LOG ===========================
455: RAISE GET_SEGMENTS_EXCEP;
456: ELSE
457: -- ========================= FND LOG ===========================
458: psa_utils.debug_other_string(g_state_level,l_full_path,' l_num_segments --> ' || l_num_segments);
459: FOR i IN 1..l_num_segments LOOP
460: psa_utils.debug_other_string(g_state_level,l_full_path,' l_primary_segments(i) --> ' || l_primary_segments(i));
461: END LOOP;
458: psa_utils.debug_other_string(g_state_level,l_full_path,' l_num_segments --> ' || l_num_segments);
459: FOR i IN 1..l_num_segments LOOP
460: psa_utils.debug_other_string(g_state_level,l_full_path,' l_primary_segments(i) --> ' || l_primary_segments(i));
461: END LOOP;
462: -- ========================= FND LOG ===========================
463: insert_ccid(l_ccid, l_primary_segments, l_num_segments);
464:
465: END IF;
466:
464:
465: END IF;
466:
467: ELSE
468: -- ========================= FND LOG ===========================
469: psa_utils.debug_other_string(g_state_level,l_full_path,' is_ccid_exists -> TRUE' );
470: -- ========================= FND LOG ===========================
471: END IF;
472:
466:
467: ELSE
468: -- ========================= FND LOG ===========================
469: psa_utils.debug_other_string(g_state_level,l_full_path,' is_ccid_exists -> TRUE' );
470: -- ========================= FND LOG ===========================
471: END IF;
472:
473: -- ========================= FND LOG ===========================
474: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling FND_FLEX_EXT.GET_SEGMENTS - override segment array ');
469: psa_utils.debug_other_string(g_state_level,l_full_path,' is_ccid_exists -> TRUE' );
470: -- ========================= FND LOG ===========================
471: END IF;
472:
473: -- ========================= FND LOG ===========================
474: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling FND_FLEX_EXT.GET_SEGMENTS - override segment array ');
475: -- ========================= FND LOG ===========================
476:
477: -- Get Override segment array
471: END IF;
472:
473: -- ========================= FND LOG ===========================
474: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling FND_FLEX_EXT.GET_SEGMENTS - override segment array ');
475: -- ========================= FND LOG ===========================
476:
477: -- Get Override segment array
478: l_ccid := P_override_ccid ;
479:
476:
477: -- Get Override segment array
478: l_ccid := P_override_ccid ;
479:
480: -- ========================= FND LOG ===========================
481: psa_utils.debug_other_string(g_state_level,l_full_path,' l_ccid -> ' || l_ccid );
482: -- ========================= FND LOG ===========================
483:
484: IF NOT (is_ccid_exists (l_ccid, l_override_segments, l_num_segments)) THEN
478: l_ccid := P_override_ccid ;
479:
480: -- ========================= FND LOG ===========================
481: psa_utils.debug_other_string(g_state_level,l_full_path,' l_ccid -> ' || l_ccid );
482: -- ========================= FND LOG ===========================
483:
484: IF NOT (is_ccid_exists (l_ccid, l_override_segments, l_num_segments)) THEN
485:
486: -- ========================= FND LOG ===========================
482: -- ========================= FND LOG ===========================
483:
484: IF NOT (is_ccid_exists (l_ccid, l_override_segments, l_num_segments)) THEN
485:
486: -- ========================= FND LOG ===========================
487: psa_utils.debug_other_string(g_state_level,l_full_path,' is_ccid_exists -> FALSE' );
488: -- ========================= FND LOG ===========================
489:
490: IF (NOT FND_FLEX_EXT.GET_SEGMENTS(
484: IF NOT (is_ccid_exists (l_ccid, l_override_segments, l_num_segments)) THEN
485:
486: -- ========================= FND LOG ===========================
487: psa_utils.debug_other_string(g_state_level,l_full_path,' is_ccid_exists -> FALSE' );
488: -- ========================= FND LOG ===========================
489:
490: IF (NOT FND_FLEX_EXT.GET_SEGMENTS(
491: APPLICATION_SHORT_NAME => 'SQLGL',
492: KEY_FLEX_CODE => 'GL#',
494: COMBINATION_ID => P_override_ccid,
495: N_SEGMENTS => l_num_segments, -- OUT
496: SEGMENTS => l_override_segments)) Then -- OUT
497:
498: -- ========================= FND LOG ===========================
499: psa_utils.debug_other_string(g_state_level,l_full_path,' l_num_segments --> ' || l_num_segments);
500: psa_utils.debug_other_string(g_state_level,l_full_path,' Raising GET_SEGMENTS_EXCEP ');
501: -- ========================= FND LOG ===========================
502: RAISE GET_SEGMENTS_EXCEP;
497:
498: -- ========================= FND LOG ===========================
499: psa_utils.debug_other_string(g_state_level,l_full_path,' l_num_segments --> ' || l_num_segments);
500: psa_utils.debug_other_string(g_state_level,l_full_path,' Raising GET_SEGMENTS_EXCEP ');
501: -- ========================= FND LOG ===========================
502: RAISE GET_SEGMENTS_EXCEP;
503: ELSE
504: -- ========================= FND LOG ===========================
505: psa_utils.debug_other_string(g_state_level,l_full_path,' l_num_segments --> ' || l_num_segments);
500: psa_utils.debug_other_string(g_state_level,l_full_path,' Raising GET_SEGMENTS_EXCEP ');
501: -- ========================= FND LOG ===========================
502: RAISE GET_SEGMENTS_EXCEP;
503: ELSE
504: -- ========================= FND LOG ===========================
505: psa_utils.debug_other_string(g_state_level,l_full_path,' l_num_segments --> ' || l_num_segments);
506: FOR i IN 1..l_num_segments LOOP
507: psa_utils.debug_other_string(g_state_level,l_full_path,' l_override_segments(i) --> '
508: || l_override_segments(i));
506: FOR i IN 1..l_num_segments LOOP
507: psa_utils.debug_other_string(g_state_level,l_full_path,' l_override_segments(i) --> '
508: || l_override_segments(i));
509: END LOOP;
510: -- ========================= FND LOG ===========================
511: insert_ccid(l_ccid, l_override_segments, l_num_segments);
512: END IF;
513:
514: ELSE
511: insert_ccid(l_ccid, l_override_segments, l_num_segments);
512: END IF;
513:
514: ELSE
515: -- ========================= FND LOG ===========================
516: psa_utils.debug_other_string(g_state_level,l_full_path,' is_ccid_exists -> TRUE' );
517: -- ========================= FND LOG ===========================
518: END IF;
519:
513:
514: ELSE
515: -- ========================= FND LOG ===========================
516: psa_utils.debug_other_string(g_state_level,l_full_path,' is_ccid_exists -> TRUE' );
517: -- ========================= FND LOG ===========================
518: END IF;
519:
520:
521: -- ========================= FND LOG ===========================
517: -- ========================= FND LOG ===========================
518: END IF;
519:
520:
521: -- ========================= FND LOG ===========================
522: psa_utils.debug_other_string(g_state_level,l_full_path,' g_org_details.allocation_method --> '
523: || g_org_details.allocation_method );
524: -- ========================= FND LOG ===========================
525:
520:
521: -- ========================= FND LOG ===========================
522: psa_utils.debug_other_string(g_state_level,l_full_path,' g_org_details.allocation_method --> '
523: || g_org_details.allocation_method );
524: -- ========================= FND LOG ===========================
525:
526: IF g_org_details.allocation_method = 'BAL' THEN
527:
528: -- Override balancing segment
531: l_segments(i) := l_override_segments(i);
532: ELSE
533: l_segments(i) := l_primary_segments(i);
534: END IF;
535: -- ========================= FND LOG ===========================
536: psa_utils.debug_other_string(g_state_level,l_full_path,' l_segments(i) --> ' || l_segments(i) );
537: -- ========================= FND LOG ===========================
538: END LOOP;
539:
533: l_segments(i) := l_primary_segments(i);
534: END IF;
535: -- ========================= FND LOG ===========================
536: psa_utils.debug_other_string(g_state_level,l_full_path,' l_segments(i) --> ' || l_segments(i) );
537: -- ========================= FND LOG ===========================
538: END LOOP;
539:
540: ELSIF g_org_details.allocation_method = 'ACC' THEN
541:
542: -- Override natural account segment
543: l_segments := l_override_segments;
544: l_primary_account := l_primary_segments (g_nat_acct_seg_num);
545: l_segments (g_nat_acct_seg_num) := l_primary_account;
546: -- ========================= FND LOG ===========================
547: psa_utils.debug_other_string(g_state_level,l_full_path,' l_primary_account --> ' || l_primary_account);
548: psa_utils.debug_other_string(g_state_level,l_full_path,' l_segments (l_nat_acct_seg_num) --> '
549: || l_segments (g_nat_acct_seg_num) );
550: -- ========================= FND LOG ===========================
546: -- ========================= FND LOG ===========================
547: psa_utils.debug_other_string(g_state_level,l_full_path,' l_primary_account --> ' || l_primary_account);
548: psa_utils.debug_other_string(g_state_level,l_full_path,' l_segments (l_nat_acct_seg_num) --> '
549: || l_segments (g_nat_acct_seg_num) );
550: -- ========================= FND LOG ===========================
551: END IF;
552:
553: --
554: -- Check account mapping
553: --
554: -- Check account mapping
555: --
556:
557: -- ========================= FND LOG ===========================
558: psa_utils.debug_other_string(g_state_level,l_full_path,' p_trx_type --> ' || p_trx_type );
559: -- ========================= FND LOG ===========================
560:
561: IF p_trx_type IN ('TRX', 'RCT', 'ADJ', 'MISC') THEN
555: --
556:
557: -- ========================= FND LOG ===========================
558: psa_utils.debug_other_string(g_state_level,l_full_path,' p_trx_type --> ' || p_trx_type );
559: -- ========================= FND LOG ===========================
560:
561: IF p_trx_type IN ('TRX', 'RCT', 'ADJ', 'MISC') THEN
562:
563: -- ========================= FND LOG ===========================
559: -- ========================= FND LOG ===========================
560:
561: IF p_trx_type IN ('TRX', 'RCT', 'ADJ', 'MISC') THEN
562:
563: -- ========================= FND LOG ===========================
564: psa_utils.debug_other_string(g_state_level,l_full_path,' g_org_details.mapping_required --> '
565: || g_org_details.mapping_required );
566: -- ========================= FND LOG ===========================
567:
562:
563: -- ========================= FND LOG ===========================
564: psa_utils.debug_other_string(g_state_level,l_full_path,' g_org_details.mapping_required --> '
565: || g_org_details.mapping_required );
566: -- ========================= FND LOG ===========================
567:
568: IF g_org_details.mapping_required = 'Y' THEN
569:
570: --
572: --
573: l_natural_account := l_override_segments (g_nat_acct_seg_num);
574: l_mapped_account := GET_MAPPED_ACCOUNT (p_trx_type, l_natural_account, p_set_of_books_id, g_chart_of_accounts_id);
575:
576: -- ========================= FND LOG ===========================
577: psa_utils.debug_other_string(g_state_level,l_full_path,' l_natural_account --> ' || l_natural_account );
578: psa_utils.debug_other_string(g_state_level,l_full_path,' l_mapped_account --> ' || l_mapped_account );
579: -- ========================= FND LOG ===========================
580:
575:
576: -- ========================= FND LOG ===========================
577: psa_utils.debug_other_string(g_state_level,l_full_path,' l_natural_account --> ' || l_natural_account );
578: psa_utils.debug_other_string(g_state_level,l_full_path,' l_mapped_account --> ' || l_mapped_account );
579: -- ========================= FND LOG ===========================
580:
581: --
582: -- Override natural account using mapped account
583: --
583: --
584:
585: IF l_natural_account <> l_mapped_account THEN
586: l_segments (g_nat_acct_seg_num) := l_mapped_account;
587: -- ========================= FND LOG ===========================
588: psa_utils.debug_other_string(g_state_level,l_full_path,' l_segments (g_nat_acct_seg_num) --> '
589: || l_segments (g_nat_acct_seg_num) );
590: -- ========================= FND LOG ===========================
591: END IF;
586: l_segments (g_nat_acct_seg_num) := l_mapped_account;
587: -- ========================= FND LOG ===========================
588: psa_utils.debug_other_string(g_state_level,l_full_path,' l_segments (g_nat_acct_seg_num) --> '
589: || l_segments (g_nat_acct_seg_num) );
590: -- ========================= FND LOG ===========================
591: END IF;
592: END IF;
593: END IF;
594:
591: END IF;
592: END IF;
593: END IF;
594:
595: -- ========================= FND LOG ===========================
596: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling FND_FLEX_EXT.GET_COMBINATION_ID - overridden segments' );
597: -- ========================= FND LOG ===========================
598:
599: --
593: END IF;
594:
595: -- ========================= FND LOG ===========================
596: psa_utils.debug_other_string(g_state_level,l_full_path,' Calling FND_FLEX_EXT.GET_COMBINATION_ID - overridden segments' );
597: -- ========================= FND LOG ===========================
598:
599: --
600: -- Get ccid for overridden segments
601: --
601: --
602:
603: IF NOT (is_ccid_exists (p_ccid, l_segments, l_num_segments)) THEN
604:
605: -- ========================= FND LOG ===========================
606: psa_utils.debug_other_string(g_state_level,l_full_path,' is_ccid_exists -> FALSE' );
607:
608: FOR I IN 1..l_segments.count
609: LOOP
623: N_SEGMENTS => l_segments.count,
624: SEGMENTS => l_segments,
625: COMBINATION_ID => P_ccid)) Then -- OUT
626:
627: -- ========================= FND LOG ===========================
628: psa_utils.debug_other_string(g_state_level,l_full_path,' P_ccid --> ' || P_ccid );
629: psa_utils.debug_other_string(g_state_level,l_full_path,' Raising GET_COMBINATION_ID_EXCEP ');
630: -- ========================= FND LOG ===========================
631: RAISE GET_COMBINATION_ID_EXCEP;
626:
627: -- ========================= FND LOG ===========================
628: psa_utils.debug_other_string(g_state_level,l_full_path,' P_ccid --> ' || P_ccid );
629: psa_utils.debug_other_string(g_state_level,l_full_path,' Raising GET_COMBINATION_ID_EXCEP ');
630: -- ========================= FND LOG ===========================
631: RAISE GET_COMBINATION_ID_EXCEP;
632: ELSE
633: -- ========================= FND LOG ===========================
634: psa_utils.debug_other_string(g_state_level,l_full_path,' P_ccid --> ' || P_ccid );
629: psa_utils.debug_other_string(g_state_level,l_full_path,' Raising GET_COMBINATION_ID_EXCEP ');
630: -- ========================= FND LOG ===========================
631: RAISE GET_COMBINATION_ID_EXCEP;
632: ELSE
633: -- ========================= FND LOG ===========================
634: psa_utils.debug_other_string(g_state_level,l_full_path,' P_ccid --> ' || P_ccid );
635: -- ========================= FND LOG ===========================
636: insert_ccid(p_ccid, l_segments, l_segments.count);
637: END IF;
631: RAISE GET_COMBINATION_ID_EXCEP;
632: ELSE
633: -- ========================= FND LOG ===========================
634: psa_utils.debug_other_string(g_state_level,l_full_path,' P_ccid --> ' || P_ccid );
635: -- ========================= FND LOG ===========================
636: insert_ccid(p_ccid, l_segments, l_segments.count);
637: END IF;
638: ELSE
639: -- ========================= FND LOG ===========================
635: -- ========================= FND LOG ===========================
636: insert_ccid(p_ccid, l_segments, l_segments.count);
637: END IF;
638: ELSE
639: -- ========================= FND LOG ===========================
640: psa_utils.debug_other_string(g_state_level,l_full_path,' is_ccid_exists -> TRUE' );
641: -- ========================= FND LOG ===========================
642: END IF;
643:
637: END IF;
638: ELSE
639: -- ========================= FND LOG ===========================
640: psa_utils.debug_other_string(g_state_level,l_full_path,' is_ccid_exists -> TRUE' );
641: -- ========================= FND LOG ===========================
642: END IF;
643:
644: -- ========================= FND LOG ===========================
645: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURNING TRUE ');
640: psa_utils.debug_other_string(g_state_level,l_full_path,' is_ccid_exists -> TRUE' );
641: -- ========================= FND LOG ===========================
642: END IF;
643:
644: -- ========================= FND LOG ===========================
645: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURNING TRUE ');
646: -- ========================= FND LOG ===========================
647:
648: RETURN TRUE;
642: END IF;
643:
644: -- ========================= FND LOG ===========================
645: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURNING TRUE ');
646: -- ========================= FND LOG ===========================
647:
648: RETURN TRUE;
649:
650: EXCEPTION
649:
650: EXCEPTION
651:
652: WHEN GET_SEGMENTS_EXCEP THEN
653: -- ========================= FND LOG ===========================
654: psa_utils.debug_other_string(g_state_level,l_full_path,' EXCEPTION - GET_SEGMENTS_EXCEP in override_segments');
655: -- ========================= FND LOG ===========================
656: RETURN FALSE;
657:
651:
652: WHEN GET_SEGMENTS_EXCEP THEN
653: -- ========================= FND LOG ===========================
654: psa_utils.debug_other_string(g_state_level,l_full_path,' EXCEPTION - GET_SEGMENTS_EXCEP in override_segments');
655: -- ========================= FND LOG ===========================
656: RETURN FALSE;
657:
658: WHEN GET_QUALIFIER_SEGNUM_EXCEP THEN
659: -- ========================= FND LOG ===========================
655: -- ========================= FND LOG ===========================
656: RETURN FALSE;
657:
658: WHEN GET_QUALIFIER_SEGNUM_EXCEP THEN
659: -- ========================= FND LOG ===========================
660: psa_utils.debug_other_string(g_state_level,l_full_path,' EXCEPTION - GET_QUALIFIER_SEGNUM_EXCEP in override_segments');
661: -- ========================= FND LOG ===========================
662: RETURN FALSE;
663:
657:
658: WHEN GET_QUALIFIER_SEGNUM_EXCEP THEN
659: -- ========================= FND LOG ===========================
660: psa_utils.debug_other_string(g_state_level,l_full_path,' EXCEPTION - GET_QUALIFIER_SEGNUM_EXCEP in override_segments');
661: -- ========================= FND LOG ===========================
662: RETURN FALSE;
663:
664: WHEN GET_COMBINATION_ID_EXCEP THEN
665: -- ========================= FND LOG ===========================
661: -- ========================= FND LOG ===========================
662: RETURN FALSE;
663:
664: WHEN GET_COMBINATION_ID_EXCEP THEN
665: -- ========================= FND LOG ===========================
666: psa_utils.debug_other_string(g_state_level,l_full_path,' EXCEPTION- GET_COMBINATION_ID_EXCEP in override_segments');
667: -- ========================= FND LOG ===========================
668: BEGIN
669: IF g_segment_delimiter IS NULL THEN
663:
664: WHEN GET_COMBINATION_ID_EXCEP THEN
665: -- ========================= FND LOG ===========================
666: psa_utils.debug_other_string(g_state_level,l_full_path,' EXCEPTION- GET_COMBINATION_ID_EXCEP in override_segments');
667: -- ========================= FND LOG ===========================
668: BEGIN
669: IF g_segment_delimiter IS NULL THEN
670: g_segment_delimiter := fnd_flex_apis.get_segment_delimiter(
671: x_application_id => 101,
700: p_ccid := p_primary_ccid;
701: RETURN TRUE;
702: EXCEPTION
703: WHEN OTHERS THEN
704: -- ========================= FND LOG ===========================
705: psa_utils.debug_other_string(g_state_level,l_full_path,' EXCEPTION in GET_COMBINATION_ID_EXCEP in override_segments');
706: -- ========================= FND LOG ===========================
707: RETURN FALSE;
708: END;
702: EXCEPTION
703: WHEN OTHERS THEN
704: -- ========================= FND LOG ===========================
705: psa_utils.debug_other_string(g_state_level,l_full_path,' EXCEPTION in GET_COMBINATION_ID_EXCEP in override_segments');
706: -- ========================= FND LOG ===========================
707: RETURN FALSE;
708: END;
709:
710: RETURN FALSE;
709:
710: RETURN FALSE;
711:
712: WHEN OTHERS THEN
713: -- ========================= FND LOG ===========================
714: psa_utils.debug_other_string(g_excep_level,l_full_path,'EXCEPTION - OTHERS : ERROR IN PSA_MFAR_UTILS.override_segments');
715: psa_utils.debug_other_string(g_excep_level,l_full_path, sqlcode || sqlerrm);
716: psa_utils.debug_unexpected_msg(l_full_path);
717: -- ========================= FND LOG ===========================
713: -- ========================= FND LOG ===========================
714: psa_utils.debug_other_string(g_excep_level,l_full_path,'EXCEPTION - OTHERS : ERROR IN PSA_MFAR_UTILS.override_segments');
715: psa_utils.debug_other_string(g_excep_level,l_full_path, sqlcode || sqlerrm);
716: psa_utils.debug_unexpected_msg(l_full_path);
717: -- ========================= FND LOG ===========================
718:
719: APP_EXCEPTION.RAISE_EXCEPTION;
720:
721: END override_segments;
818:
819: l_account_code fnd_flex_values.compiled_value_attributes%TYPE;
820: l_mapped_account PSA_MF_ACCOUNT_MAPPING_ALL.target_account%TYPE;
821:
822: -- ========================= FND LOG ===========================
823: l_full_path VARCHAR2(100) := g_path || 'get_mapped_account';
824: -- ========================= FND LOG ===========================
825:
826: BEGIN
820: l_mapped_account PSA_MF_ACCOUNT_MAPPING_ALL.target_account%TYPE;
821:
822: -- ========================= FND LOG ===========================
823: l_full_path VARCHAR2(100) := g_path || 'get_mapped_account';
824: -- ========================= FND LOG ===========================
825:
826: BEGIN
827:
828: -- ========================= FND LOG ===========================
824: -- ========================= FND LOG ===========================
825:
826: BEGIN
827:
828: -- ========================= FND LOG ===========================
829: psa_utils.debug_other_string(g_state_level,l_full_path,' Inside get_mapped_account');
830: psa_utils.debug_other_string(g_state_level,l_full_path,' PARAMETERS: ');
831: psa_utils.debug_other_string(g_state_level,l_full_path,' =========== ');
832: psa_utils.debug_other_string(g_state_level,l_full_path,' p_transaction_type --> ' || p_transaction_type);
832: psa_utils.debug_other_string(g_state_level,l_full_path,' p_transaction_type --> ' || p_transaction_type);
833: psa_utils.debug_other_string(g_state_level,l_full_path,' p_natural_account --> ' || p_natural_account);
834: psa_utils.debug_other_string(g_state_level,l_full_path,' p_set_of_books_id --> ' || p_set_of_books_id );
835: psa_utils.debug_other_string(g_state_level,l_full_path,' p_chart_of_accounts_id --> ' || p_chart_of_accounts_id );
836: -- ========================= FND LOG ===========================
837:
838: OPEN c_account_code;
839: FETCH c_account_code INTO l_account_code;
840: CLOSE c_account_code;
838: OPEN c_account_code;
839: FETCH c_account_code INTO l_account_code;
840: CLOSE c_account_code;
841:
842: -- ========================= FND LOG ===========================
843: psa_utils.debug_other_string(g_state_level,l_full_path,' l_account_code --> ' || l_account_code);
844: -- ========================= FND LOG ===========================
845:
846: OPEN c_mapped_account (l_account_code,
840: CLOSE c_account_code;
841:
842: -- ========================= FND LOG ===========================
843: psa_utils.debug_other_string(g_state_level,l_full_path,' l_account_code --> ' || l_account_code);
844: -- ========================= FND LOG ===========================
845:
846: OPEN c_mapped_account (l_account_code,
847: p_natural_account);
848: FETCH c_mapped_account INTO l_mapped_account;
847: p_natural_account);
848: FETCH c_mapped_account INTO l_mapped_account;
849: CLOSE c_mapped_account;
850:
851: -- ========================= FND LOG ===========================
852: psa_utils.debug_other_string(g_state_level,l_full_path,' l_mapped_account --> ' || l_mapped_account);
853: psa_utils.debug_other_string(g_state_level,l_full_path,' returning --> ' || nvl(l_mapped_account,p_natural_account));
854: -- ========================= FND LOG ===========================
855:
850:
851: -- ========================= FND LOG ===========================
852: psa_utils.debug_other_string(g_state_level,l_full_path,' l_mapped_account --> ' || l_mapped_account);
853: psa_utils.debug_other_string(g_state_level,l_full_path,' returning --> ' || nvl(l_mapped_account,p_natural_account));
854: -- ========================= FND LOG ===========================
855:
856: RETURN nvl(l_mapped_account,p_natural_account);
857:
858: END GET_MAPPED_ACCOUNT;
868: SELECT *
869: FROM psa_implementation_all
870: WHERE org_id = c_org_id;
871:
872: -- ========================= FND LOG ===========================
873: l_full_path VARCHAR2(100) := g_path || 'psa_mf_org_details';
874: -- ========================= FND LOG ===========================
875:
876: BEGIN
870: WHERE org_id = c_org_id;
871:
872: -- ========================= FND LOG ===========================
873: l_full_path VARCHAR2(100) := g_path || 'psa_mf_org_details';
874: -- ========================= FND LOG ===========================
875:
876: BEGIN
877:
878: -- ========================= FND LOG ===========================
874: -- ========================= FND LOG ===========================
875:
876: BEGIN
877:
878: -- ========================= FND LOG ===========================
879: psa_utils.debug_other_string(g_state_level,l_full_path,' Inside PSA_MF_ORG_DETAILS ');
880: -- ========================= FND LOG ===========================
881:
882: FND_PROFILE.GET ('ORG_ID', l_org_id);
876: BEGIN
877:
878: -- ========================= FND LOG ===========================
879: psa_utils.debug_other_string(g_state_level,l_full_path,' Inside PSA_MF_ORG_DETAILS ');
880: -- ========================= FND LOG ===========================
881:
882: FND_PROFILE.GET ('ORG_ID', l_org_id);
883:
884: -- ========================= FND LOG ===========================
880: -- ========================= FND LOG ===========================
881:
882: FND_PROFILE.GET ('ORG_ID', l_org_id);
883:
884: -- ========================= FND LOG ===========================
885: psa_utils.debug_other_string(g_state_level,l_full_path,' l_org_id --> ' || l_org_id);
886: -- ========================= FND LOG ===========================
887:
888: OPEN c_org_details (l_org_id);
882: FND_PROFILE.GET ('ORG_ID', l_org_id);
883:
884: -- ========================= FND LOG ===========================
885: psa_utils.debug_other_string(g_state_level,l_full_path,' l_org_id --> ' || l_org_id);
886: -- ========================= FND LOG ===========================
887:
888: OPEN c_org_details (l_org_id);
889: FETCH c_org_details INTO l_org_details;
890: CLOSE c_org_details;
888: OPEN c_org_details (l_org_id);
889: FETCH c_org_details INTO l_org_details;
890: CLOSE c_org_details;
891:
892: -- ========================= FND LOG ===========================
893: psa_utils.debug_other_string(g_state_level,l_full_path,' Out of PSA_MF_ORG_DETAILS ');
894: -- ========================= FND LOG ===========================
895:
896: END psa_mf_org_details ;
890: CLOSE c_org_details;
891:
892: -- ========================= FND LOG ===========================
893: psa_utils.debug_other_string(g_state_level,l_full_path,' Out of PSA_MF_ORG_DETAILS ');
894: -- ========================= FND LOG ===========================
895:
896: END psa_mf_org_details ;
897:
898:
901: FUNCTION get_ar_sob_id RETURN number
902: IS
903: l_ar_sob_id ar_system_parameters.set_of_books_id%TYPE;
904:
905: -- ========================= FND LOG ===========================
906: l_full_path VARCHAR2(100) := g_path || 'get_ar_sob_id';
907: -- ========================= FND LOG ===========================
908:
909: BEGIN
903: l_ar_sob_id ar_system_parameters.set_of_books_id%TYPE;
904:
905: -- ========================= FND LOG ===========================
906: l_full_path VARCHAR2(100) := g_path || 'get_ar_sob_id';
907: -- ========================= FND LOG ===========================
908:
909: BEGIN
910:
911: -- ========================= FND LOG ===========================
907: -- ========================= FND LOG ===========================
908:
909: BEGIN
910:
911: -- ========================= FND LOG ===========================
912: psa_utils.debug_other_string(g_state_level,l_full_path,' Inside get_ar_sob_id ');
913: -- ========================= FND LOG ===========================
914:
915: SELECT set_of_books_id
909: BEGIN
910:
911: -- ========================= FND LOG ===========================
912: psa_utils.debug_other_string(g_state_level,l_full_path,' Inside get_ar_sob_id ');
913: -- ========================= FND LOG ===========================
914:
915: SELECT set_of_books_id
916: INTO l_ar_sob_id
917: FROM ar_system_parameters;
915: SELECT set_of_books_id
916: INTO l_ar_sob_id
917: FROM ar_system_parameters;
918:
919: -- ========================= FND LOG ===========================
920: psa_utils.debug_other_string(g_state_level,l_full_path,' l_ar_sob_id --> ' || l_ar_sob_id);
921: psa_utils.debug_other_string(g_state_level,l_full_path,' Out of get_ar_sob_id ');
922: -- ========================= FND LOG ===========================
923:
918:
919: -- ========================= FND LOG ===========================
920: psa_utils.debug_other_string(g_state_level,l_full_path,' l_ar_sob_id --> ' || l_ar_sob_id);
921: psa_utils.debug_other_string(g_state_level,l_full_path,' Out of get_ar_sob_id ');
922: -- ========================= FND LOG ===========================
923:
924: RETURN l_ar_sob_id;
925:
926: END get_ar_sob_id ;
940: l_ret_code_combination NUMBER(15);
941: l_prev_trx_id NUMBER(15);
942: l_customer_trx_id NUMBER(15);
943:
944: -- ========================= FND LOG ===========================
945: l_full_path VARCHAR2(100) := g_path || 'get_rec_ccid';
946: -- ========================= FND LOG ===========================
947:
948: BEGIN
942: l_customer_trx_id NUMBER(15);
943:
944: -- ========================= FND LOG ===========================
945: l_full_path VARCHAR2(100) := g_path || 'get_rec_ccid';
946: -- ========================= FND LOG ===========================
947:
948: BEGIN
949:
950: -- ========================= FND LOG ===========================
946: -- ========================= FND LOG ===========================
947:
948: BEGIN
949:
950: -- ========================= FND LOG ===========================
951: psa_utils.debug_other_string(g_state_level,l_full_path,' Inside get_rec_ccid ');
952: psa_utils.debug_other_string(g_state_level,l_full_path,' PARAMETERS: ');
953: psa_utils.debug_other_string(g_state_level,l_full_path,' =========== ');
954: psa_utils.debug_other_string(g_state_level,l_full_path,' p_applied_trx_id --> ' || p_applied_trx_id );
952: psa_utils.debug_other_string(g_state_level,l_full_path,' PARAMETERS: ');
953: psa_utils.debug_other_string(g_state_level,l_full_path,' =========== ');
954: psa_utils.debug_other_string(g_state_level,l_full_path,' p_applied_trx_id --> ' || p_applied_trx_id );
955: psa_utils.debug_other_string(g_state_level,l_full_path,' p_trx_id --> ' || p_trx_id );
956: -- ========================= FND LOG ===========================
957:
958: IF p_applied_trx_id IS NOT NULL THEN
959:
960: OPEN c_prev_trx_id;
960: OPEN c_prev_trx_id;
961: FETCH c_prev_trx_id INTO l_prev_trx_id;
962: CLOSE c_prev_trx_id;
963:
964: -- ========================= FND LOG ===========================
965: psa_utils.debug_other_string(g_state_level,l_full_path,' l_prev_trx_id --> ' || l_prev_trx_id);
966: -- ========================= FND LOG ===========================
967:
968: IF l_prev_trx_id IS NULL THEN -- on account credit memo. RETURN trx_id's A/c
962: CLOSE c_prev_trx_id;
963:
964: -- ========================= FND LOG ===========================
965: psa_utils.debug_other_string(g_state_level,l_full_path,' l_prev_trx_id --> ' || l_prev_trx_id);
966: -- ========================= FND LOG ===========================
967:
968: IF l_prev_trx_id IS NULL THEN -- on account credit memo. RETURN trx_id's A/c
969: l_customer_trx_id := p_trx_id;
970: ELSE
970: ELSE
971: l_customer_trx_id := p_applied_trx_id;
972: END IF;
973:
974: -- ========================= FND LOG ===========================
975: psa_utils.debug_other_string(g_state_level,l_full_path,' l_customer_trx_id --> ' || l_customer_trx_id );
976: -- ========================= FND LOG ===========================
977:
978: ELSE
972: END IF;
973:
974: -- ========================= FND LOG ===========================
975: psa_utils.debug_other_string(g_state_level,l_full_path,' l_customer_trx_id --> ' || l_customer_trx_id );
976: -- ========================= FND LOG ===========================
977:
978: ELSE
979: l_customer_trx_id := p_trx_id;
980: -- ========================= FND LOG ===========================
976: -- ========================= FND LOG ===========================
977:
978: ELSE
979: l_customer_trx_id := p_trx_id;
980: -- ========================= FND LOG ===========================
981: psa_utils.debug_other_string(g_state_level,l_full_path,' ELSE l_customer_trx_id --> ' || l_customer_trx_id );
982: -- ========================= FND LOG ===========================
983: END IF;
984:
978: ELSE
979: l_customer_trx_id := p_trx_id;
980: -- ========================= FND LOG ===========================
981: psa_utils.debug_other_string(g_state_level,l_full_path,' ELSE l_customer_trx_id --> ' || l_customer_trx_id );
982: -- ========================= FND LOG ===========================
983: END IF;
984:
985:
986: SELECT code_combination_id
989: WHERE customer_trx_id = l_customer_trx_id
990: AND account_class = 'REC'
991: AND account_set_flag = 'N';
992:
993: -- ========================= FND LOG ===========================
994: psa_utils.debug_other_string(g_state_level,l_full_path,' l_ret_code_combination --> ' || l_ret_code_combination);
995: -- ========================= FND LOG ===========================
996:
997: RETURN l_ret_code_combination;
991: AND account_set_flag = 'N';
992:
993: -- ========================= FND LOG ===========================
994: psa_utils.debug_other_string(g_state_level,l_full_path,' l_ret_code_combination --> ' || l_ret_code_combination);
995: -- ========================= FND LOG ===========================
996:
997: RETURN l_ret_code_combination;
998:
999: END get_rec_ccid;
1004: RETURN number
1005: IS
1006: l_ret_coa_id NUMBER(15);
1007:
1008: -- ========================= FND LOG ===========================
1009: l_full_path VARCHAR2(100) := g_path || 'get_coa';
1010: -- ========================= FND LOG ===========================
1011:
1012: BEGIN
1006: l_ret_coa_id NUMBER(15);
1007:
1008: -- ========================= FND LOG ===========================
1009: l_full_path VARCHAR2(100) := g_path || 'get_coa';
1010: -- ========================= FND LOG ===========================
1011:
1012: BEGIN
1013:
1014: -- ========================= FND LOG ===========================
1010: -- ========================= FND LOG ===========================
1011:
1012: BEGIN
1013:
1014: -- ========================= FND LOG ===========================
1015: psa_utils.debug_other_string(g_state_level,l_full_path,' Inside get_coa ');
1016: psa_utils.debug_other_string(g_state_level,l_full_path,' PARAMETERS: ');
1017: psa_utils.debug_other_string(g_state_level,l_full_path,' =========== ');
1018: psa_utils.debug_other_string(g_state_level,l_full_path,' sob_id --> ' || sob_id );
1015: psa_utils.debug_other_string(g_state_level,l_full_path,' Inside get_coa ');
1016: psa_utils.debug_other_string(g_state_level,l_full_path,' PARAMETERS: ');
1017: psa_utils.debug_other_string(g_state_level,l_full_path,' =========== ');
1018: psa_utils.debug_other_string(g_state_level,l_full_path,' sob_id --> ' || sob_id );
1019: -- ========================= FND LOG ===========================
1020:
1021: SELECT chart_of_accounts_id
1022: INTO l_ret_coa_id
1023: FROM gl_sets_of_books
1022: INTO l_ret_coa_id
1023: FROM gl_sets_of_books
1024: WHERE set_of_books_id = sob_id;
1025:
1026: -- ========================= FND LOG ===========================
1027: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN l_ret_coa_id --> ' || l_ret_coa_id);
1028: -- ========================= FND LOG ===========================
1029:
1030: RETURN l_ret_coa_id;
1024: WHERE set_of_books_id = sob_id;
1025:
1026: -- ========================= FND LOG ===========================
1027: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN l_ret_coa_id --> ' || l_ret_coa_id);
1028: -- ========================= FND LOG ===========================
1029:
1030: RETURN l_ret_coa_id;
1031:
1032: END;
1037: RETURN VARCHAR2
1038: IS
1039:
1040: l_user_cat_name VARCHAR2(25);
1041: -- ========================= FND LOG ===========================
1042: l_full_path VARCHAR2(100) := g_path || 'get_user_category_name';
1043: -- ========================= FND LOG ===========================
1044:
1045: BEGIN
1039:
1040: l_user_cat_name VARCHAR2(25);
1041: -- ========================= FND LOG ===========================
1042: l_full_path VARCHAR2(100) := g_path || 'get_user_category_name';
1043: -- ========================= FND LOG ===========================
1044:
1045: BEGIN
1046:
1047: -- ========================= FND LOG ===========================
1043: -- ========================= FND LOG ===========================
1044:
1045: BEGIN
1046:
1047: -- ========================= FND LOG ===========================
1048: psa_utils.debug_other_string(g_state_level,l_full_path,' Inside get_user_category_name ');
1049: psa_utils.debug_other_string(g_state_level,l_full_path,' PARAMETERS: ');
1050: psa_utils.debug_other_string(g_state_level,l_full_path,' =========== ');
1051: psa_utils.debug_other_string(g_state_level,l_full_path,' cat_name --> ' || cat_name );
1048: psa_utils.debug_other_string(g_state_level,l_full_path,' Inside get_user_category_name ');
1049: psa_utils.debug_other_string(g_state_level,l_full_path,' PARAMETERS: ');
1050: psa_utils.debug_other_string(g_state_level,l_full_path,' =========== ');
1051: psa_utils.debug_other_string(g_state_level,l_full_path,' cat_name --> ' || cat_name );
1052: -- ========================= FND LOG ===========================
1053:
1054: SELECT user_je_category_name
1055: INTO l_user_cat_name
1056: FROM gl_je_categories
1055: INTO l_user_cat_name
1056: FROM gl_je_categories
1057: WHERE je_category_name = cat_name;
1058:
1059: -- ========================= FND LOG ===========================
1060: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN l_user_cat_name --> ' || l_user_cat_name);
1061: -- ========================= FND LOG ===========================
1062:
1063: RETURN l_user_cat_name;
1057: WHERE je_category_name = cat_name;
1058:
1059: -- ========================= FND LOG ===========================
1060: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN l_user_cat_name --> ' || l_user_cat_name);
1061: -- ========================= FND LOG ===========================
1062:
1063: RETURN l_user_cat_name;
1064:
1065: END get_user_category_name;
1066:
1067: FUNCTION accounting_method
1068: RETURN VARCHAR2
1069: IS
1070: -- ========================= FND LOG ===========================
1071: l_full_path VARCHAR2(100) := g_path || 'accounting_method';
1072: -- ========================= FND LOG ===========================
1073:
1074: BEGIN
1068: RETURN VARCHAR2
1069: IS
1070: -- ========================= FND LOG ===========================
1071: l_full_path VARCHAR2(100) := g_path || 'accounting_method';
1072: -- ========================= FND LOG ===========================
1073:
1074: BEGIN
1075:
1076: -- ========================= FND LOG ===========================
1072: -- ========================= FND LOG ===========================
1073:
1074: BEGIN
1075:
1076: -- ========================= FND LOG ===========================
1077: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN accounting_method --> ' || arp_global.sysparam.accounting_method);
1078: -- ========================= FND LOG ===========================
1079: RETURN arp_global.sysparam.accounting_method;
1080:
1074: BEGIN
1075:
1076: -- ========================= FND LOG ===========================
1077: psa_utils.debug_other_string(g_state_level,l_full_path,' RETURN accounting_method --> ' || arp_global.sysparam.accounting_method);
1078: -- ========================= FND LOG ===========================
1079: RETURN arp_global.sysparam.accounting_method;
1080:
1081: END accounting_method;
1082: