DBA Data[Home] [Help]

APPS.IGI_EFC_UPGRADE dependencies on GL_BUDGET_ASSIGNMENT_RANGES

Line 5: TYPE budget_type IS TABLE OF gl_budget_assignment_ranges.funding_budget_version_id%TYPE;

1: PACKAGE BODY IGI_EFC_UPGRADE AS
2: -- $Header: igiefupb.pls 120.0.12010000.2 2009/04/24 08:17:28 gaprasad ship $
3:
4: -- Stores the budget id
5: TYPE budget_type IS TABLE OF gl_budget_assignment_ranges.funding_budget_version_id%TYPE;
6:
7: -- Stores the value SEGMENT_LOW and SEGMENT_HIGH of a particular segment
8: TYPE segment_range_rec IS RECORD (segment_low VARCHAR2(25),
9: segment_high VARCHAR2(25),

Line 17: -- Record corresponding to table gl_budget_assignment_ranges

13:
14: -- Array of segment ranges. Array index indicates the Segment number.
15: TYPE segment_range_type IS VARRAY(30) OF segment_range_rec;
16:
17: -- Record corresponding to table gl_budget_assignment_ranges
18: TYPE budget_range_rec IS RECORD (range_id gl_budget_assignment_ranges.range_id%TYPE,
19: ledger_id gl_budget_assignment_ranges.ledger_id%TYPE,
20: segment_range_tab SEGMENT_RANGE_TYPE,
21: budget_tab BUDGET_TYPE);

Line 18: TYPE budget_range_rec IS RECORD (range_id gl_budget_assignment_ranges.range_id%TYPE,

14: -- Array of segment ranges. Array index indicates the Segment number.
15: TYPE segment_range_type IS VARRAY(30) OF segment_range_rec;
16:
17: -- Record corresponding to table gl_budget_assignment_ranges
18: TYPE budget_range_rec IS RECORD (range_id gl_budget_assignment_ranges.range_id%TYPE,
19: ledger_id gl_budget_assignment_ranges.ledger_id%TYPE,
20: segment_range_tab SEGMENT_RANGE_TYPE,
21: budget_tab BUDGET_TYPE);
22:

Line 19: ledger_id gl_budget_assignment_ranges.ledger_id%TYPE,

15: TYPE segment_range_type IS VARRAY(30) OF segment_range_rec;
16:
17: -- Record corresponding to table gl_budget_assignment_ranges
18: TYPE budget_range_rec IS RECORD (range_id gl_budget_assignment_ranges.range_id%TYPE,
19: ledger_id gl_budget_assignment_ranges.ledger_id%TYPE,
20: segment_range_tab SEGMENT_RANGE_TYPE,
21: budget_tab BUDGET_TYPE);
22:
23:

Line 26: -- gl_budget_assignment_ranges

22:
23:
24:
25: -- Table of Budget Assignment Ranges. Corresponds to table
26: -- gl_budget_assignment_ranges
27: TYPE budget_range_type IS TABLE OF budget_range_rec;
28:
29: -- Stores information for a particular segment. Used by Splitting and Merging
30: -- logic

Line 57: TYPE budget_entity_rec IS RECORD (budget_entity_id gl_budget_assignment_ranges.budget_entity_id%TYPE, ledger_id gl_budget_assignment_ranges.ledger_id%TYPE);

53: -- g_debug_enable stores 0 or 1 and is used for logging purpose
54: g_debug_enabled NUMBER;
55:
56: -- PLSQL record to store the Budget Organization that is processed
57: TYPE budget_entity_rec IS RECORD (budget_entity_id gl_budget_assignment_ranges.budget_entity_id%TYPE, ledger_id gl_budget_assignment_ranges.ledger_id%TYPE);
58:
59: -- PLSQL record to store the list of Budget Organizations that are processed
60: TYPE budget_entity_type IS TABLE OF budget_entity_rec;
61:

Line 72: PROCEDURE INSERT_ENTITY(p_ledger_id gl_budget_assignment_ranges.budget_entity_id%TYPE,

68: -- Procedure INSERT_ENTITY stores the list of ledgers and entities processed by
69: -- LOOP_AND_PROCESS. This is stored in the table budget_entity_tab.
70: -- This procedure ensures that duplicate entries are not inserted into the
71: -- table.
72: PROCEDURE INSERT_ENTITY(p_ledger_id gl_budget_assignment_ranges.budget_entity_id%TYPE,
73: p_entity_id gl_budget_assignment_ranges.ledger_id%TYPE,
74: errbuf OUT NOCOPY VARCHAR2,
75: retcode OUT NOCOPY NUMBER)
76:

Line 73: p_entity_id gl_budget_assignment_ranges.ledger_id%TYPE,

69: -- LOOP_AND_PROCESS. This is stored in the table budget_entity_tab.
70: -- This procedure ensures that duplicate entries are not inserted into the
71: -- table.
72: PROCEDURE INSERT_ENTITY(p_ledger_id gl_budget_assignment_ranges.budget_entity_id%TYPE,
73: p_entity_id gl_budget_assignment_ranges.ledger_id%TYPE,
74: errbuf OUT NOCOPY VARCHAR2,
75: retcode OUT NOCOPY NUMBER)
76:
77: IS

Line 1418: -- of the GL sequence gl_budget_assignment_ranges_s

1414: l_final_budget_ranges BUDGET_RANGE_TYPE;
1415:
1416: -- This is a local variable used to emulate the behavior of a sequence
1417: -- A local sequence emulation is used to avoid unnecessary increment
1418: -- of the GL sequence gl_budget_assignment_ranges_s
1419: l_range_id_seq NUMBER(38);
1420:
1421: -- Local variable to store the sequence number of the budget ranges
1422: -- This is used in Step 3

Line 1441: SELECT gl_budget_assignment_ranges_s.NEXTVAL

1437:
1438: l_data_type := p_data_type;
1439: fnd_file.put_line(fnd_file.output,'Ledger - Budget Organization - Currency - Range From - Range To ');
1440: BEGIN
1441: SELECT gl_budget_assignment_ranges_s.NEXTVAL
1442: INTO l_range_id_seq
1443: FROM dual;
1444: l_range_id_seq := l_range_id_seq + 1;
1445: EXCEPTION

Line 1447: fnd_file.put_line(fnd_file.output, 'Error fetching sequence value from gl_budget_assignment_ranges_s');

1443: FROM dual;
1444: l_range_id_seq := l_range_id_seq + 1;
1445: EXCEPTION
1446: WHEN OTHERS THEN
1447: fnd_file.put_line(fnd_file.output, 'Error fetching sequence value from gl_budget_assignment_ranges_s');
1448: fnd_file.put_line(fnd_file.log, 'Module: LOOP_AND_PROCESS =>'||'Error fetching sequence value
1449: from gl_budget_assignment_ranges_s');
1450: errbuf := 'Module: LOOP_AND_PROCESS => Error fetching sequence value from gl_budget_assignment_ranges_s';
1451: retcode := -1;

Line 1449: from gl_budget_assignment_ranges_s');

1445: EXCEPTION
1446: WHEN OTHERS THEN
1447: fnd_file.put_line(fnd_file.output, 'Error fetching sequence value from gl_budget_assignment_ranges_s');
1448: fnd_file.put_line(fnd_file.log, 'Module: LOOP_AND_PROCESS =>'||'Error fetching sequence value
1449: from gl_budget_assignment_ranges_s');
1450: errbuf := 'Module: LOOP_AND_PROCESS => Error fetching sequence value from gl_budget_assignment_ranges_s';
1451: retcode := -1;
1452: RETURN;
1453: END;

Line 1450: errbuf := 'Module: LOOP_AND_PROCESS => Error fetching sequence value from gl_budget_assignment_ranges_s';

1446: WHEN OTHERS THEN
1447: fnd_file.put_line(fnd_file.output, 'Error fetching sequence value from gl_budget_assignment_ranges_s');
1448: fnd_file.put_line(fnd_file.log, 'Module: LOOP_AND_PROCESS =>'||'Error fetching sequence value
1449: from gl_budget_assignment_ranges_s');
1450: errbuf := 'Module: LOOP_AND_PROCESS => Error fetching sequence value from gl_budget_assignment_ranges_s';
1451: retcode := -1;
1452: RETURN;
1453: END;
1454:

Line 1474: SELECT gl_budget_assignment_ranges_s.NEXTVAL

1470:
1471: FOR i IN 1..lc_non_overlapping_ranges.COUNT LOOP
1472: IF p_mode = 1 THEN
1473: BEGIN
1474: SELECT gl_budget_assignment_ranges_s.NEXTVAL
1475: INTO l_actual_range_id
1476: FROM dual;
1477: EXCEPTION
1478: WHEN OTHERS THEN

Line 1479: fnd_file.put_line(fnd_file.output, 'Error fetching sequence value from gl_budget_assignment_ranges_s');

1475: INTO l_actual_range_id
1476: FROM dual;
1477: EXCEPTION
1478: WHEN OTHERS THEN
1479: fnd_file.put_line(fnd_file.output, 'Error fetching sequence value from gl_budget_assignment_ranges_s');
1480: fnd_file.put_line(fnd_file.log, 'Module: LOOP_AND_PROCESS (overlap) =>'
1481: ||'Error fetching sequence value from gl_budget_assignment_ranges_s');
1482: errbuf := 'Module: LOOP_AND_PROCESS (overlap) => Error fetching sequence value from gl_budget_assignment_ranges_s';
1483: retcode := -1;

Line 1481: ||'Error fetching sequence value from gl_budget_assignment_ranges_s');

1477: EXCEPTION
1478: WHEN OTHERS THEN
1479: fnd_file.put_line(fnd_file.output, 'Error fetching sequence value from gl_budget_assignment_ranges_s');
1480: fnd_file.put_line(fnd_file.log, 'Module: LOOP_AND_PROCESS (overlap) =>'
1481: ||'Error fetching sequence value from gl_budget_assignment_ranges_s');
1482: errbuf := 'Module: LOOP_AND_PROCESS (overlap) => Error fetching sequence value from gl_budget_assignment_ranges_s';
1483: retcode := -1;
1484: RETURN;
1485: END;

Line 1482: errbuf := 'Module: LOOP_AND_PROCESS (overlap) => Error fetching sequence value from gl_budget_assignment_ranges_s';

1478: WHEN OTHERS THEN
1479: fnd_file.put_line(fnd_file.output, 'Error fetching sequence value from gl_budget_assignment_ranges_s');
1480: fnd_file.put_line(fnd_file.log, 'Module: LOOP_AND_PROCESS (overlap) =>'
1481: ||'Error fetching sequence value from gl_budget_assignment_ranges_s');
1482: errbuf := 'Module: LOOP_AND_PROCESS (overlap) => Error fetching sequence value from gl_budget_assignment_ranges_s';
1483: retcode := -1;
1484: RETURN;
1485: END;
1486:

Line 1501: INSERT INTO GL_BUDGET_ASSIGNMENT_RANGES

1497: BEGIN
1498:
1499: INSERT INTO IGI_EFC_UPG_BACKUP_INFO (range_id) VALUES (l_actual_range_id);
1500:
1501: INSERT INTO GL_BUDGET_ASSIGNMENT_RANGES
1502: (
1503: BUDGET_ENTITY_ID,
1504: LEDGER_ID,
1505: CURRENCY_CODE,

Line 2257: FROM GL_BUDGET_ASSIGNMENT_RANGES

2253: budget_entity_id = lc_merge_range2.budget_entity_id;
2254:
2255: SELECT max(sequence_number)+1
2256: INTO l_seq_number2
2257: FROM GL_BUDGET_ASSIGNMENT_RANGES
2258: WHERE
2259: budget_entity_id = lc_merge_range2.budget_entity_id;
2260:
2261: IF l_seq_number1 IS NULL and l_seq_number2 IS NULL THEN

Line 2571: FROM GL_BUDGET_ASSIGNMENT_RANGES

2567: budget_entity_id = lc_merge_range1.budget_entity_id;
2568:
2569: SELECT max(sequence_number)+1
2570: INTO l_seq_number2
2571: FROM GL_BUDGET_ASSIGNMENT_RANGES
2572: WHERE
2573: budget_entity_id = lc_merge_range1.budget_entity_id;
2574:
2575: IF l_seq_number1 IS NULL and l_seq_number2 IS NULL THEN

Line 2979: SELECT 1 FROM GL_BUDGET_ASSIGNMENT_RANGES BA1

2975: -- This is used to determine whether to proceed with the upgrade or not
2976: CURSOR C_OVERLAPPING_RANGE_EXISTS IS
2977: SELECT 1 FROM DUAL WHERE EXISTS
2978: (
2979: SELECT 1 FROM GL_BUDGET_ASSIGNMENT_RANGES BA1
2980: WHERE EXISTS
2981: (SELECT 1 FROM
2982: GL_BUDGET_ASSIGNMENT_RANGES BA2
2983: WHERE

Line 2982: GL_BUDGET_ASSIGNMENT_RANGES BA2

2978: (
2979: SELECT 1 FROM GL_BUDGET_ASSIGNMENT_RANGES BA1
2980: WHERE EXISTS
2981: (SELECT 1 FROM
2982: GL_BUDGET_ASSIGNMENT_RANGES BA2
2983: WHERE
2984: BA2.ledger_id = BA1.ledger_id
2985: AND BA2.currency_code = BA1.currency_code
2986: AND BA1.RANGE_ID <> BA2.RANGE_ID

Line 3049: SELECT RANGE_ID FROM GL_BUDGET_ASSIGNMENT_RANGES BA3

3045: AND NVL(BA1.SEGMENT30_LOW,'X') <= NVL(BA2.SEGMENT30_HIGH,'X')
3046: AND NVL(BA1.SEGMENT30_HIGH,'X') >= NVL(BA2.SEGMENT30_LOW,'X')
3047: )
3048: AND BA1.RANGE_ID NOT IN (
3049: SELECT RANGE_ID FROM GL_BUDGET_ASSIGNMENT_RANGES BA3
3050: WHERE
3051: BA3.LEDGER_ID = BA1.LEDGER_ID AND
3052: BA3.CURRENCY_CODE = BA1.CURRENCY_CODE AND
3053: EXISTS

Line 3055: GL_BUDGET_ASSIGNMENT_RANGES BA4

3051: BA3.LEDGER_ID = BA1.LEDGER_ID AND
3052: BA3.CURRENCY_CODE = BA1.CURRENCY_CODE AND
3053: EXISTS
3054: (SELECT 1 FROM
3055: GL_BUDGET_ASSIGNMENT_RANGES BA4
3056: WHERE
3057: BA4.ledger_id = BA3.ledger_id
3058: AND BA4.currency_code = BA3.currency_code
3059: AND BA3.RANGE_ID <> BA4.RANGE_ID

Line 3452: FROM GL_BUDGET_ASSIGNMENT_RANGES gar

3448: ATTRIBUTE12,
3449: ATTRIBUTE13,
3450: ATTRIBUTE14,
3451: ATTRIBUTE15
3452: FROM GL_BUDGET_ASSIGNMENT_RANGES gar
3453: WHERE exists (SELECT 1
3454: FROM gl_budget_entities glent
3455: WHERE
3456: gar.ledger_id = glent.ledger_id AND

Line 3810: FROM GL_BUDGET_ASSIGNMENT_RANGES gar

3806: ATTRIBUTE12,
3807: ATTRIBUTE13,
3808: ATTRIBUTE14,
3809: ATTRIBUTE15
3810: FROM GL_BUDGET_ASSIGNMENT_RANGES gar
3811: WHERE exists (SELECT 1
3812: FROM GL_BUDGET_ENTITIES glent
3813: WHERE
3814: gar.ledger_id = glent.ledger_id AND

Line 3889: DELETE FROM GL_BUDGET_ASSIGNMENT_RANGES

3885: (SELECT range_id
3886: FROM
3887: IGI_EFC_BUDGET_ASSIGNMENT_BCK);
3888:
3889: DELETE FROM GL_BUDGET_ASSIGNMENT_RANGES
3890: WHERE range_id IN
3891: (SELECT range_id
3892: FROM
3893: IGI_EFC_BUDGET_ASSIGNMENT_BCK);