[Home] [Help]
PACKAGE BODY: APPS.GL_CONS_FLEX_MAP_PKG
Source
1 PACKAGE BODY GL_CONS_FLEX_MAP_PKG as
2 /* $Header: glicofrb.pls 120.4 2005/05/05 01:04:53 kvora ship $ */
3
4 --
5 -- PUBLIC FUNCTIONS
6 --
7
8 PROCEDURE Check_Overlap(X_Coa_Mapping_Id NUMBER,
9 row_id VARCHAR2,
10 X_Segment1_Low VARCHAR2,
11 X_Segment1_High VARCHAR2,
12 X_Segment2_Low VARCHAR2,
13 X_Segment2_High VARCHAR2,
14 X_Segment3_Low VARCHAR2,
15 X_Segment3_High VARCHAR2,
16 X_Segment4_Low VARCHAR2,
17 X_Segment4_High VARCHAR2,
18 X_Segment5_Low VARCHAR2,
19 X_Segment5_High VARCHAR2,
20 X_Segment6_Low VARCHAR2,
21 X_Segment6_High VARCHAR2,
22 X_Segment7_Low VARCHAR2,
23 X_Segment7_High VARCHAR2,
24 X_Segment8_Low VARCHAR2,
25 X_Segment8_High VARCHAR2,
26 X_Segment9_Low VARCHAR2,
27 X_Segment9_High VARCHAR2,
28 X_Segment10_Low VARCHAR2,
29 X_Segment10_High VARCHAR2,
30 X_Segment11_Low VARCHAR2,
31 X_Segment11_High VARCHAR2,
32 X_Segment12_Low VARCHAR2,
33 X_Segment12_High VARCHAR2,
34 X_Segment13_Low VARCHAR2,
35 X_Segment13_High VARCHAR2,
36 X_Segment14_Low VARCHAR2,
37 X_Segment14_High VARCHAR2,
38 X_Segment15_Low VARCHAR2,
39 X_Segment15_High VARCHAR2,
40 X_Segment16_Low VARCHAR2,
41 X_Segment16_High VARCHAR2,
42 X_Segment17_Low VARCHAR2,
43 X_Segment17_High VARCHAR2,
44 X_Segment18_Low VARCHAR2,
45 X_Segment18_High VARCHAR2,
46 X_Segment19_Low VARCHAR2,
47 X_Segment19_High VARCHAR2,
48 X_Segment20_Low VARCHAR2,
49 X_Segment20_High VARCHAR2,
50 X_Segment21_Low VARCHAR2,
51 X_Segment21_High VARCHAR2,
52 X_Segment22_Low VARCHAR2,
53 X_Segment22_High VARCHAR2,
54 X_Segment23_Low VARCHAR2,
55 X_Segment23_High VARCHAR2,
56 X_Segment24_Low VARCHAR2,
57 X_Segment24_High VARCHAR2,
58 X_Segment25_Low VARCHAR2,
59 X_Segment25_High VARCHAR2,
60 X_Segment26_Low VARCHAR2,
61 X_Segment26_High VARCHAR2,
62 X_Segment27_Low VARCHAR2,
63 X_Segment27_High VARCHAR2,
64 X_Segment28_Low VARCHAR2,
65 X_Segment28_High VARCHAR2,
66 X_Segment29_Low VARCHAR2,
67 X_Segment29_High VARCHAR2,
68 X_Segment30_Low VARCHAR2,
69 X_Segment30_High VARCHAR2
70 ) IS
71
72 CURSOR C1 IS SELECT 'Overlapping'
73 FROM DUAL
74 WHERE EXISTS
75 (SELECT 'X' FROM GL_CONS_FLEXFIELD_MAP fm
76 WHERE COA_MAPPING_ID = X_Coa_Mapping_Id
77 AND (row_id IS null OR fm.rowid <> row_id)
78 AND (nvl(segment30_low, 'X') <= nvl(X_Segment30_High,'X')
79 AND nvl(segment30_high,'X') >= nvl(X_Segment30_Low, 'X')
80 AND nvl(segment29_low, 'X') <= nvl(X_Segment29_High,'X')
81 AND nvl(segment29_high,'X') >= nvl(X_Segment29_Low, 'X')
82 AND nvl(segment28_low, 'X') <= nvl(X_Segment28_High,'X')
83 AND nvl(segment28_high,'X') >= nvl(X_Segment28_Low, 'X')
84 AND nvl(segment27_low, 'X') <= nvl(X_Segment27_High,'X')
85 AND nvl(segment27_high,'X') >= nvl(X_Segment27_Low, 'X')
86 AND nvl(segment26_low, 'X') <= nvl(X_Segment26_High,'X')
87 AND nvl(segment26_high,'X') >= nvl(X_Segment26_Low, 'X')
88 AND nvl(segment25_low, 'X') <= nvl(X_Segment25_High,'X')
89 AND nvl(segment25_high,'X') >= nvl(X_Segment25_Low, 'X')
90 AND nvl(segment24_low, 'X') <= nvl(X_Segment24_High,'X')
91 AND nvl(segment24_high,'X') >= nvl(X_Segment24_Low, 'X')
92 AND nvl(segment23_low, 'X') <= nvl(X_Segment23_High,'X')
93 AND nvl(segment23_high,'X') >= nvl(X_Segment23_Low, 'X')
94 AND nvl(segment22_low, 'X') <= nvl(X_Segment22_High,'X')
95 AND nvl(segment22_high,'X') >= nvl(X_Segment22_Low, 'X')
96 AND nvl(segment21_low, 'X') <= nvl(X_Segment21_High,'X')
97 AND nvl(segment21_high,'X') >= nvl(X_Segment21_Low, 'X')
98 AND nvl(segment20_low, 'X') <= nvl(X_Segment20_High,'X')
99 AND nvl(segment20_high,'X') >= nvl(X_Segment20_Low, 'X')
100 AND nvl(segment19_low, 'X') <= nvl(X_Segment19_High,'X')
101 AND nvl(segment19_high,'X') >= nvl(X_Segment19_Low, 'X')
102 AND nvl(segment18_low, 'X') <= nvl(X_Segment18_High,'X')
103 AND nvl(segment18_high,'X') >= nvl(X_Segment18_Low, 'X')
104 AND nvl(segment17_low, 'X') <= nvl(X_Segment17_High,'X')
105 AND nvl(segment17_high,'X') >= nvl(X_Segment17_Low, 'X')
106 AND nvl(segment16_low, 'X') <= nvl(X_Segment16_High,'X')
107 AND nvl(segment16_high,'X') >= nvl(X_Segment16_Low, 'X')
108 AND nvl(segment15_low, 'X') <= nvl(X_Segment15_High,'X')
109 AND nvl(segment15_high,'X') >= nvl(X_Segment15_Low, 'X'))
110 AND nvl(segment14_low, 'X') <= nvl(X_Segment14_High,'X')
111 AND nvl(segment14_high,'X') >= nvl(X_Segment14_Low, 'X')
112 AND nvl(segment13_low, 'X') <= nvl(X_Segment13_High,'X')
113 AND nvl(segment13_high,'X') >= nvl(X_Segment13_Low, 'X')
114 AND nvl(segment12_low, 'X') <= nvl(X_Segment12_High,'X')
115 AND nvl(segment12_high,'X') >= nvl(X_Segment12_Low, 'X')
116 AND nvl(segment11_low, 'X') <= nvl(X_Segment11_High,'X')
117 AND nvl(segment11_high,'X') >= nvl(X_Segment11_Low, 'X')
118 AND nvl(segment10_low, 'X') <= nvl(X_Segment10_High,'X')
119 AND nvl(segment10_high,'X') >= nvl(X_Segment10_Low, 'X')
120 AND nvl( segment9_low, 'X') <= nvl(X_Segment9_High, 'X')
121 AND nvl(segment9_high, 'X') >= nvl( X_Segment9_Low, 'X')
122 AND nvl( segment8_low, 'X') <= nvl(X_Segment8_High, 'X')
123 AND nvl(segment8_high, 'X') >= nvl( X_Segment8_Low, 'X')
124 AND nvl( segment7_low, 'X') <= nvl(X_Segment7_High, 'X')
125 AND nvl(segment7_high, 'X') >= nvl( X_Segment7_Low, 'X')
126 AND nvl( segment6_low, 'X') <= nvl(X_Segment6_High, 'X')
127 AND nvl(segment6_high, 'X') >= nvl( X_Segment6_Low, 'X')
128 AND nvl( segment5_low, 'X') <= nvl(X_Segment5_High, 'X')
129 AND nvl(segment5_high, 'X') >= nvl( X_Segment5_Low, 'X')
130 AND nvl( segment4_low, 'X') <= nvl(X_Segment4_High, 'X')
131 AND nvl(segment4_high, 'X') >= nvl( X_Segment4_Low, 'X')
132 AND nvl( segment3_low, 'X') <= nvl(X_Segment3_High, 'X')
133 AND nvl(segment3_high, 'X') >= nvl( X_Segment3_Low, 'X')
134 AND nvl( segment2_low, 'X') <= nvl(X_Segment2_High, 'X')
135 AND nvl(segment2_high, 'X') >= nvl( X_Segment2_Low, 'X')
136 AND nvl( segment1_low, 'X') <= nvl(X_Segment1_High, 'X')
137 AND nvl(segment1_high, 'X') >= nvl( X_Segment1_Low, 'X'));
138
139 V1 VARCHAR2(11);
140
141 BEGIN
142 OPEN C1;
143 FETCH C1 INTO V1;
144 IF (C1%FOUND) THEN
145 CLOSE C1;
146 fnd_message.set_name('SQLGL', 'GL_CONS_OVERLAPPING_RANGES');
147 app_exception.raise_exception;
148 END IF;
149
150 CLOSE C1;
151 END Check_Overlap;
152
153 PROCEDURE Get_New_Id(next_val IN OUT NOCOPY NUMBER) IS
154
155 BEGIN
156 select GL_CONS_FLEXFIELD_MAP_S.NEXTVAL
157 into next_val
158 from dual;
159
160 IF (next_val is NULL) THEN
161 fnd_message.set_name('SQLGL', 'GL_SEQUENCE_NOT_FOUND');
162 fnd_message.set_token('TAB_S', 'GL_CONS_FLEXFIELD_MAP_S');
163 app_exception.raise_exception;
164 END IF;
165 END Get_New_Id;
166
167 END GL_CONS_FLEX_MAP_PKG;