91: OPEN C_UPG_GL_BUDGET_ASSIGNMENT(p_range_id);
92: FETCH C_UPG_GL_BUDGET_ASSIGNMENT INTO lc_upg_gl_bud;
93: CLOSE C_UPG_GL_BUDGET_ASSIGNMENT;
94:
95: fnd_file.put(fnd_file.output,lc_upg_gl_bud.LEDGER_NAME||' ');
96: fnd_file.put(fnd_file.output,lc_upg_gl_bud.BUDGET_NAME||' ');
97:
98: fnd_file.put(fnd_file.output,lc_upg_gl_bud.CURRENCY_CODE||' ');
99:
92: FETCH C_UPG_GL_BUDGET_ASSIGNMENT INTO lc_upg_gl_bud;
93: CLOSE C_UPG_GL_BUDGET_ASSIGNMENT;
94:
95: fnd_file.put(fnd_file.output,lc_upg_gl_bud.LEDGER_NAME||' ');
96: fnd_file.put(fnd_file.output,lc_upg_gl_bud.BUDGET_NAME||' ');
97:
98: fnd_file.put(fnd_file.output,lc_upg_gl_bud.CURRENCY_CODE||' ');
99:
100: IF lc_upg_gl_bud.SEGMENT1_LOW IS NOT NULL THEN
94:
95: fnd_file.put(fnd_file.output,lc_upg_gl_bud.LEDGER_NAME||' ');
96: fnd_file.put(fnd_file.output,lc_upg_gl_bud.BUDGET_NAME||' ');
97:
98: fnd_file.put(fnd_file.output,lc_upg_gl_bud.CURRENCY_CODE||' ');
99:
100: IF lc_upg_gl_bud.SEGMENT1_LOW IS NOT NULL THEN
101: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT1_LOW||'-');
102: END IF;
97:
98: fnd_file.put(fnd_file.output,lc_upg_gl_bud.CURRENCY_CODE||' ');
99:
100: IF lc_upg_gl_bud.SEGMENT1_LOW IS NOT NULL THEN
101: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT1_LOW||'-');
102: END IF;
103:
104: IF lc_upg_gl_bud.SEGMENT2_LOW IS NOT NULL THEN
105: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT2_LOW||'-');
101: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT1_LOW||'-');
102: END IF;
103:
104: IF lc_upg_gl_bud.SEGMENT2_LOW IS NOT NULL THEN
105: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT2_LOW||'-');
106: END IF;
107:
108: IF lc_upg_gl_bud.SEGMENT3_LOW IS NOT NULL THEN
109: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT3_LOW||'-');
105: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT2_LOW||'-');
106: END IF;
107:
108: IF lc_upg_gl_bud.SEGMENT3_LOW IS NOT NULL THEN
109: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT3_LOW||'-');
110: END IF;
111:
112: IF lc_upg_gl_bud.SEGMENT4_LOW IS NOT NULL THEN
113: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT4_LOW||'-');
109: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT3_LOW||'-');
110: END IF;
111:
112: IF lc_upg_gl_bud.SEGMENT4_LOW IS NOT NULL THEN
113: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT4_LOW||'-');
114: END IF;
115:
116: IF lc_upg_gl_bud.SEGMENT5_LOW IS NOT NULL THEN
117: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT5_LOW||'-');
113: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT4_LOW||'-');
114: END IF;
115:
116: IF lc_upg_gl_bud.SEGMENT5_LOW IS NOT NULL THEN
117: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT5_LOW||'-');
118: END IF;
119:
120: IF lc_upg_gl_bud.SEGMENT6_LOW IS NOT NULL THEN
121: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT6_LOW||'-');
117: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT5_LOW||'-');
118: END IF;
119:
120: IF lc_upg_gl_bud.SEGMENT6_LOW IS NOT NULL THEN
121: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT6_LOW||'-');
122: END IF;
123:
124: IF lc_upg_gl_bud.SEGMENT7_LOW IS NOT NULL THEN
125: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT7_LOW||'-');
121: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT6_LOW||'-');
122: END IF;
123:
124: IF lc_upg_gl_bud.SEGMENT7_LOW IS NOT NULL THEN
125: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT7_LOW||'-');
126: END IF;
127:
128: IF lc_upg_gl_bud.SEGMENT8_LOW IS NOT NULL THEN
129: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT8_LOW||'-');
125: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT7_LOW||'-');
126: END IF;
127:
128: IF lc_upg_gl_bud.SEGMENT8_LOW IS NOT NULL THEN
129: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT8_LOW||'-');
130: END IF;
131:
132: IF lc_upg_gl_bud.SEGMENT9_LOW IS NOT NULL THEN
133: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT9_LOW||'-');
129: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT8_LOW||'-');
130: END IF;
131:
132: IF lc_upg_gl_bud.SEGMENT9_LOW IS NOT NULL THEN
133: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT9_LOW||'-');
134: END IF;
135:
136: IF lc_upg_gl_bud.SEGMENT10_LOW IS NOT NULL THEN
137: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT10_LOW||'-');
133: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT9_LOW||'-');
134: END IF;
135:
136: IF lc_upg_gl_bud.SEGMENT10_LOW IS NOT NULL THEN
137: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT10_LOW||'-');
138: END IF;
139:
140: IF lc_upg_gl_bud.SEGMENT11_LOW IS NOT NULL THEN
141: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT11_LOW||'-');
137: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT10_LOW||'-');
138: END IF;
139:
140: IF lc_upg_gl_bud.SEGMENT11_LOW IS NOT NULL THEN
141: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT11_LOW||'-');
142: END IF;
143:
144: IF lc_upg_gl_bud.SEGMENT12_LOW IS NOT NULL THEN
145: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT12_LOW||'-');
141: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT11_LOW||'-');
142: END IF;
143:
144: IF lc_upg_gl_bud.SEGMENT12_LOW IS NOT NULL THEN
145: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT12_LOW||'-');
146: END IF;
147:
148: IF lc_upg_gl_bud.SEGMENT13_LOW IS NOT NULL THEN
149: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT13_LOW||'-');
145: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT12_LOW||'-');
146: END IF;
147:
148: IF lc_upg_gl_bud.SEGMENT13_LOW IS NOT NULL THEN
149: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT13_LOW||'-');
150: END IF;
151:
152: IF lc_upg_gl_bud.SEGMENT14_LOW IS NOT NULL THEN
153: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT14_LOW||'-');
149: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT13_LOW||'-');
150: END IF;
151:
152: IF lc_upg_gl_bud.SEGMENT14_LOW IS NOT NULL THEN
153: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT14_LOW||'-');
154: END IF;
155:
156: IF lc_upg_gl_bud.SEGMENT15_LOW IS NOT NULL THEN
157: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT15_LOW||'-');
153: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT14_LOW||'-');
154: END IF;
155:
156: IF lc_upg_gl_bud.SEGMENT15_LOW IS NOT NULL THEN
157: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT15_LOW||'-');
158: END IF;
159:
160: IF lc_upg_gl_bud.SEGMENT16_LOW IS NOT NULL THEN
161: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT16_LOW||'-');
157: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT15_LOW||'-');
158: END IF;
159:
160: IF lc_upg_gl_bud.SEGMENT16_LOW IS NOT NULL THEN
161: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT16_LOW||'-');
162: END IF;
163:
164: IF lc_upg_gl_bud.SEGMENT17_LOW IS NOT NULL THEN
165: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT17_LOW||'-');
161: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT16_LOW||'-');
162: END IF;
163:
164: IF lc_upg_gl_bud.SEGMENT17_LOW IS NOT NULL THEN
165: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT17_LOW||'-');
166: END IF;
167:
168: IF lc_upg_gl_bud.SEGMENT18_LOW IS NOT NULL THEN
169: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT18_LOW||'-');
165: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT17_LOW||'-');
166: END IF;
167:
168: IF lc_upg_gl_bud.SEGMENT18_LOW IS NOT NULL THEN
169: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT18_LOW||'-');
170: END IF;
171: IF lc_upg_gl_bud.SEGMENT19_LOW IS NOT NULL THEN
172: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT19_LOW||'-');
173: END IF;
168: IF lc_upg_gl_bud.SEGMENT18_LOW IS NOT NULL THEN
169: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT18_LOW||'-');
170: END IF;
171: IF lc_upg_gl_bud.SEGMENT19_LOW IS NOT NULL THEN
172: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT19_LOW||'-');
173: END IF;
174:
175: IF lc_upg_gl_bud.SEGMENT20_LOW IS NOT NULL THEN
176: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT20_LOW||'-');
172: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT19_LOW||'-');
173: END IF;
174:
175: IF lc_upg_gl_bud.SEGMENT20_LOW IS NOT NULL THEN
176: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT20_LOW||'-');
177: END IF;
178:
179: IF lc_upg_gl_bud.SEGMENT21_LOW IS NOT NULL THEN
180: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT21_LOW||'-');
176: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT20_LOW||'-');
177: END IF;
178:
179: IF lc_upg_gl_bud.SEGMENT21_LOW IS NOT NULL THEN
180: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT21_LOW||'-');
181: END IF;
182:
183: IF lc_upg_gl_bud.SEGMENT22_LOW IS NOT NULL THEN
184: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT22_LOW||'-');
180: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT21_LOW||'-');
181: END IF;
182:
183: IF lc_upg_gl_bud.SEGMENT22_LOW IS NOT NULL THEN
184: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT22_LOW||'-');
185: END IF;
186:
187: IF lc_upg_gl_bud.SEGMENT23_LOW IS NOT NULL THEN
188: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT23_LOW||'-');
184: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT22_LOW||'-');
185: END IF;
186:
187: IF lc_upg_gl_bud.SEGMENT23_LOW IS NOT NULL THEN
188: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT23_LOW||'-');
189: END IF;
190:
191: IF lc_upg_gl_bud.SEGMENT24_LOW IS NOT NULL THEN
192: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT24_LOW||'-');
188: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT23_LOW||'-');
189: END IF;
190:
191: IF lc_upg_gl_bud.SEGMENT24_LOW IS NOT NULL THEN
192: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT24_LOW||'-');
193: END IF;
194:
195: IF lc_upg_gl_bud.SEGMENT25_LOW IS NOT NULL THEN
196: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT25_LOW||'-');
192: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT24_LOW||'-');
193: END IF;
194:
195: IF lc_upg_gl_bud.SEGMENT25_LOW IS NOT NULL THEN
196: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT25_LOW||'-');
197: END IF;
198:
199: IF lc_upg_gl_bud.SEGMENT26_LOW IS NOT NULL THEN
200: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT26_LOW||'-');
196: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT25_LOW||'-');
197: END IF;
198:
199: IF lc_upg_gl_bud.SEGMENT26_LOW IS NOT NULL THEN
200: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT26_LOW||'-');
201: END IF;
202:
203: IF lc_upg_gl_bud.SEGMENT27_LOW IS NOT NULL THEN
204: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT27_LOW||'-');
200: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT26_LOW||'-');
201: END IF;
202:
203: IF lc_upg_gl_bud.SEGMENT27_LOW IS NOT NULL THEN
204: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT27_LOW||'-');
205: END IF;
206:
207: IF lc_upg_gl_bud.SEGMENT28_LOW IS NOT NULL THEN
208: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT28_LOW||'-');
204: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT27_LOW||'-');
205: END IF;
206:
207: IF lc_upg_gl_bud.SEGMENT28_LOW IS NOT NULL THEN
208: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT28_LOW||'-');
209: END IF;
210:
211: IF lc_upg_gl_bud.SEGMENT29_LOW IS NOT NULL THEN
212: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT29_LOW||'-');
208: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT28_LOW||'-');
209: END IF;
210:
211: IF lc_upg_gl_bud.SEGMENT29_LOW IS NOT NULL THEN
212: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT29_LOW||'-');
213: END IF;
214:
215: IF lc_upg_gl_bud.SEGMENT30_LOW IS NOT NULL THEN
216: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT30_LOW||'-');
212: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT29_LOW||'-');
213: END IF;
214:
215: IF lc_upg_gl_bud.SEGMENT30_LOW IS NOT NULL THEN
216: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT30_LOW||'-');
217: END IF;
218:
219: fnd_file.put(fnd_file.output,' to ');
220:
215: IF lc_upg_gl_bud.SEGMENT30_LOW IS NOT NULL THEN
216: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT30_LOW||'-');
217: END IF;
218:
219: fnd_file.put(fnd_file.output,' to ');
220:
221: IF lc_upg_gl_bud.SEGMENT1_HIGH IS NOT NULL THEN
222: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT1_HIGH||'-');
223: END IF;
218:
219: fnd_file.put(fnd_file.output,' to ');
220:
221: IF lc_upg_gl_bud.SEGMENT1_HIGH IS NOT NULL THEN
222: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT1_HIGH||'-');
223: END IF;
224:
225: IF lc_upg_gl_bud.SEGMENT2_HIGH IS NOT NULL THEN
226: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT2_HIGH||'-');
222: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT1_HIGH||'-');
223: END IF;
224:
225: IF lc_upg_gl_bud.SEGMENT2_HIGH IS NOT NULL THEN
226: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT2_HIGH||'-');
227: END IF;
228:
229: IF lc_upg_gl_bud.SEGMENT3_HIGH IS NOT NULL THEN
230: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT3_HIGH||'-');
226: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT2_HIGH||'-');
227: END IF;
228:
229: IF lc_upg_gl_bud.SEGMENT3_HIGH IS NOT NULL THEN
230: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT3_HIGH||'-');
231: END IF;
232:
233: IF lc_upg_gl_bud.SEGMENT4_HIGH IS NOT NULL THEN
234: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT4_HIGH||'-');
230: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT3_HIGH||'-');
231: END IF;
232:
233: IF lc_upg_gl_bud.SEGMENT4_HIGH IS NOT NULL THEN
234: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT4_HIGH||'-');
235: END IF;
236:
237: IF lc_upg_gl_bud.SEGMENT5_HIGH IS NOT NULL THEN
238: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT5_HIGH||'-');
234: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT4_HIGH||'-');
235: END IF;
236:
237: IF lc_upg_gl_bud.SEGMENT5_HIGH IS NOT NULL THEN
238: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT5_HIGH||'-');
239: END IF;
240:
241: IF lc_upg_gl_bud.SEGMENT6_HIGH IS NOT NULL THEN
242: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT6_HIGH||'-');
238: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT5_HIGH||'-');
239: END IF;
240:
241: IF lc_upg_gl_bud.SEGMENT6_HIGH IS NOT NULL THEN
242: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT6_HIGH||'-');
243: END IF;
244:
245: IF lc_upg_gl_bud.SEGMENT7_HIGH IS NOT NULL THEN
246: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT7_HIGH||'-');
242: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT6_HIGH||'-');
243: END IF;
244:
245: IF lc_upg_gl_bud.SEGMENT7_HIGH IS NOT NULL THEN
246: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT7_HIGH||'-');
247: END IF;
248:
249: IF lc_upg_gl_bud.SEGMENT8_HIGH IS NOT NULL THEN
250: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT8_HIGH||'-');
246: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT7_HIGH||'-');
247: END IF;
248:
249: IF lc_upg_gl_bud.SEGMENT8_HIGH IS NOT NULL THEN
250: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT8_HIGH||'-');
251: END IF;
252:
253: IF lc_upg_gl_bud.SEGMENT9_HIGH IS NOT NULL THEN
254: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT9_HIGH||'-');
250: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT8_HIGH||'-');
251: END IF;
252:
253: IF lc_upg_gl_bud.SEGMENT9_HIGH IS NOT NULL THEN
254: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT9_HIGH||'-');
255: END IF;
256:
257: IF lc_upg_gl_bud.SEGMENT10_HIGH IS NOT NULL THEN
258: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT10_HIGH||'-');
254: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT9_HIGH||'-');
255: END IF;
256:
257: IF lc_upg_gl_bud.SEGMENT10_HIGH IS NOT NULL THEN
258: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT10_HIGH||'-');
259: END IF;
260:
261: IF lc_upg_gl_bud.SEGMENT11_HIGH IS NOT NULL THEN
262: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT11_HIGH||'-');
258: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT10_HIGH||'-');
259: END IF;
260:
261: IF lc_upg_gl_bud.SEGMENT11_HIGH IS NOT NULL THEN
262: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT11_HIGH||'-');
263: END IF;
264:
265: IF lc_upg_gl_bud.SEGMENT12_HIGH IS NOT NULL THEN
266: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT12_HIGH||'-');
262: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT11_HIGH||'-');
263: END IF;
264:
265: IF lc_upg_gl_bud.SEGMENT12_HIGH IS NOT NULL THEN
266: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT12_HIGH||'-');
267: END IF;
268:
269: IF lc_upg_gl_bud.SEGMENT13_HIGH IS NOT NULL THEN
270: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT13_HIGH||'-');
266: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT12_HIGH||'-');
267: END IF;
268:
269: IF lc_upg_gl_bud.SEGMENT13_HIGH IS NOT NULL THEN
270: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT13_HIGH||'-');
271: END IF;
272:
273: IF lc_upg_gl_bud.SEGMENT14_HIGH IS NOT NULL THEN
274: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT14_HIGH||'-');
270: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT13_HIGH||'-');
271: END IF;
272:
273: IF lc_upg_gl_bud.SEGMENT14_HIGH IS NOT NULL THEN
274: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT14_HIGH||'-');
275: END IF;
276:
277: IF lc_upg_gl_bud.SEGMENT15_HIGH IS NOT NULL THEN
278: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT15_HIGH||'-');
274: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT14_HIGH||'-');
275: END IF;
276:
277: IF lc_upg_gl_bud.SEGMENT15_HIGH IS NOT NULL THEN
278: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT15_HIGH||'-');
279: END IF;
280:
281: IF lc_upg_gl_bud.SEGMENT16_HIGH IS NOT NULL THEN
282: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT16_HIGH||'-');
278: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT15_HIGH||'-');
279: END IF;
280:
281: IF lc_upg_gl_bud.SEGMENT16_HIGH IS NOT NULL THEN
282: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT16_HIGH||'-');
283: END IF;
284:
285: IF lc_upg_gl_bud.SEGMENT17_HIGH IS NOT NULL THEN
286: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT17_HIGH||'-');
282: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT16_HIGH||'-');
283: END IF;
284:
285: IF lc_upg_gl_bud.SEGMENT17_HIGH IS NOT NULL THEN
286: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT17_HIGH||'-');
287: END IF;
288:
289: IF lc_upg_gl_bud.SEGMENT18_HIGH IS NOT NULL THEN
290: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT18_HIGH||'-');
286: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT17_HIGH||'-');
287: END IF;
288:
289: IF lc_upg_gl_bud.SEGMENT18_HIGH IS NOT NULL THEN
290: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT18_HIGH||'-');
291: END IF;
292: IF lc_upg_gl_bud.SEGMENT19_HIGH IS NOT NULL THEN
293: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT19_HIGH||'-');
294: END IF;
289: IF lc_upg_gl_bud.SEGMENT18_HIGH IS NOT NULL THEN
290: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT18_HIGH||'-');
291: END IF;
292: IF lc_upg_gl_bud.SEGMENT19_HIGH IS NOT NULL THEN
293: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT19_HIGH||'-');
294: END IF;
295:
296: IF lc_upg_gl_bud.SEGMENT20_HIGH IS NOT NULL THEN
297: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT20_HIGH||'-');
293: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT19_HIGH||'-');
294: END IF;
295:
296: IF lc_upg_gl_bud.SEGMENT20_HIGH IS NOT NULL THEN
297: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT20_HIGH||'-');
298: END IF;
299:
300: IF lc_upg_gl_bud.SEGMENT21_HIGH IS NOT NULL THEN
301: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT21_HIGH||'-');
297: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT20_HIGH||'-');
298: END IF;
299:
300: IF lc_upg_gl_bud.SEGMENT21_HIGH IS NOT NULL THEN
301: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT21_HIGH||'-');
302: END IF;
303:
304: IF lc_upg_gl_bud.SEGMENT22_HIGH IS NOT NULL THEN
305: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT22_HIGH||'-');
301: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT21_HIGH||'-');
302: END IF;
303:
304: IF lc_upg_gl_bud.SEGMENT22_HIGH IS NOT NULL THEN
305: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT22_HIGH||'-');
306: END IF;
307:
308: IF lc_upg_gl_bud.SEGMENT23_HIGH IS NOT NULL THEN
309: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT23_HIGH||'-');
305: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT22_HIGH||'-');
306: END IF;
307:
308: IF lc_upg_gl_bud.SEGMENT23_HIGH IS NOT NULL THEN
309: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT23_HIGH||'-');
310: END IF;
311:
312: IF lc_upg_gl_bud.SEGMENT24_HIGH IS NOT NULL THEN
313: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT24_HIGH||'-');
309: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT23_HIGH||'-');
310: END IF;
311:
312: IF lc_upg_gl_bud.SEGMENT24_HIGH IS NOT NULL THEN
313: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT24_HIGH||'-');
314: END IF;
315:
316: IF lc_upg_gl_bud.SEGMENT25_HIGH IS NOT NULL THEN
317: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT25_HIGH||'-');
313: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT24_HIGH||'-');
314: END IF;
315:
316: IF lc_upg_gl_bud.SEGMENT25_HIGH IS NOT NULL THEN
317: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT25_HIGH||'-');
318: END IF;
319:
320: IF lc_upg_gl_bud.SEGMENT26_HIGH IS NOT NULL THEN
321: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT26_HIGH||'-');
317: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT25_HIGH||'-');
318: END IF;
319:
320: IF lc_upg_gl_bud.SEGMENT26_HIGH IS NOT NULL THEN
321: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT26_HIGH||'-');
322: END IF;
323:
324: IF lc_upg_gl_bud.SEGMENT27_HIGH IS NOT NULL THEN
325: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT27_HIGH||'-');
321: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT26_HIGH||'-');
322: END IF;
323:
324: IF lc_upg_gl_bud.SEGMENT27_HIGH IS NOT NULL THEN
325: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT27_HIGH||'-');
326: END IF;
327:
328: IF lc_upg_gl_bud.SEGMENT28_HIGH IS NOT NULL THEN
329: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT28_HIGH||'-');
325: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT27_HIGH||'-');
326: END IF;
327:
328: IF lc_upg_gl_bud.SEGMENT28_HIGH IS NOT NULL THEN
329: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT28_HIGH||'-');
330: END IF;
331:
332: IF lc_upg_gl_bud.SEGMENT29_HIGH IS NOT NULL THEN
333: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT29_HIGH||'-');
329: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT28_HIGH||'-');
330: END IF;
331:
332: IF lc_upg_gl_bud.SEGMENT29_HIGH IS NOT NULL THEN
333: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT29_HIGH||'-');
334: END IF;
335:
336: IF lc_upg_gl_bud.SEGMENT30_HIGH IS NOT NULL THEN
337: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT30_HIGH||'-');
333: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT29_HIGH||'-');
334: END IF;
335:
336: IF lc_upg_gl_bud.SEGMENT30_HIGH IS NOT NULL THEN
337: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT30_HIGH||'-');
338: END IF;
339:
340: fnd_file.put_line(fnd_file.output,' ');
341:
336: IF lc_upg_gl_bud.SEGMENT30_HIGH IS NOT NULL THEN
337: fnd_file.put(fnd_file.output,lc_upg_gl_bud.SEGMENT30_HIGH||'-');
338: END IF;
339:
340: fnd_file.put_line(fnd_file.output,' ');
341:
342: fnd_file.put(fnd_file.output,'Associated Budgets are ');
343:
344: OPEN C_BC_OPTIONS(p_range_id);
338: END IF;
339:
340: fnd_file.put_line(fnd_file.output,' ');
341:
342: fnd_file.put(fnd_file.output,'Associated Budgets are ');
343:
344: OPEN C_BC_OPTIONS(p_range_id);
345: FETCH C_BC_OPTIONS BULK COLLECT INTO lc_bc_options;
346: CLOSE C_BC_OPTIONS;
345: FETCH C_BC_OPTIONS BULK COLLECT INTO lc_bc_options;
346: CLOSE C_BC_OPTIONS;
347:
348: FOR i IN 1..lc_bc_options.COUNT LOOP
349: fnd_file.put(fnd_file.output,lc_bc_options(i).budget_name||', ');
350: END LOOP;
351:
352: fnd_file.put_line(fnd_file.output,' ');
353:
348: FOR i IN 1..lc_bc_options.COUNT LOOP
349: fnd_file.put(fnd_file.output,lc_bc_options(i).budget_name||', ');
350: END LOOP;
351:
352: fnd_file.put_line(fnd_file.output,' ');
353:
354: EXCEPTION
355: WHEN OTHERS THEN
356: fnd_file.put_line(fnd_file.output, 'Module: PRINT_BUDGET_INFO => '||SQLERRM);
352: fnd_file.put_line(fnd_file.output,' ');
353:
354: EXCEPTION
355: WHEN OTHERS THEN
356: fnd_file.put_line(fnd_file.output, 'Module: PRINT_BUDGET_INFO => '||SQLERRM);
357: errbuf := 'Module: PRINT_BUDGET_INFO => '||SQLERRM;
358: retcode := -1;
359: RETURN;
360: END;
516: l_segment2 := p_segment1;
517: END IF;
518:
519: IF g_debug_enabled = 1 THEN
520: fnd_file.put_line(fnd_file.log, 'l_segment1.segment_low = '||l_segment1.segment_low);
521: fnd_file.put_line(fnd_file.log, 'l_segment1.segment_high = '||l_segment1.segment_high);
522: fnd_file.put_line(fnd_file.log, 'l_segment2.segment_low = '||l_segment2.segment_low);
523: fnd_file.put_line(fnd_file.log, 'l_segment2.segment_high = '||l_segment2.segment_high);
524: END IF;
517: END IF;
518:
519: IF g_debug_enabled = 1 THEN
520: fnd_file.put_line(fnd_file.log, 'l_segment1.segment_low = '||l_segment1.segment_low);
521: fnd_file.put_line(fnd_file.log, 'l_segment1.segment_high = '||l_segment1.segment_high);
522: fnd_file.put_line(fnd_file.log, 'l_segment2.segment_low = '||l_segment2.segment_low);
523: fnd_file.put_line(fnd_file.log, 'l_segment2.segment_high = '||l_segment2.segment_high);
524: END IF;
525:
518:
519: IF g_debug_enabled = 1 THEN
520: fnd_file.put_line(fnd_file.log, 'l_segment1.segment_low = '||l_segment1.segment_low);
521: fnd_file.put_line(fnd_file.log, 'l_segment1.segment_high = '||l_segment1.segment_high);
522: fnd_file.put_line(fnd_file.log, 'l_segment2.segment_low = '||l_segment2.segment_low);
523: fnd_file.put_line(fnd_file.log, 'l_segment2.segment_high = '||l_segment2.segment_high);
524: END IF;
525:
526: IF l_segment1.segment_number <> l_segment2.segment_number THEN
519: IF g_debug_enabled = 1 THEN
520: fnd_file.put_line(fnd_file.log, 'l_segment1.segment_low = '||l_segment1.segment_low);
521: fnd_file.put_line(fnd_file.log, 'l_segment1.segment_high = '||l_segment1.segment_high);
522: fnd_file.put_line(fnd_file.log, 'l_segment2.segment_low = '||l_segment2.segment_low);
523: fnd_file.put_line(fnd_file.log, 'l_segment2.segment_high = '||l_segment2.segment_high);
524: END IF;
525:
526: IF l_segment1.segment_number <> l_segment2.segment_number THEN
527:
524: END IF;
525:
526: IF l_segment1.segment_number <> l_segment2.segment_number THEN
527:
528: fnd_file.put_line(fnd_file.log, 'Module: SPLIT_RANGES '||'Splitting failed as segment_numbers do not match');
529: errbuf := 'Module: SPLIT_RANGES '||'Splitting failed as segment_numbers do not match';
530: retcode := -1;
531: RETURN;
532: END IF;
541: p_segment_tab(p_segment_tab.COUNT).segment_low := l_segment2.segment_low;
542: p_segment_tab(p_segment_tab.COUNT).segment_high := PREVIOUS_VALUE(l_segment1.segment_low,l_segment1.data_type);
543:
544: IF p_segment_tab(p_segment_tab.COUNT).segment_high IS NULL THEN
545: fnd_file.put_line(fnd_file.log, 'Module: SPLIT_RANGES '||'Null value retured ');
546: errbuf := 'Module: SPLIT_RANGES '||'Null value retured for PREVIOUS_VALUE(l_segment1.segment_low,l_segment1.data_type);';
547: retcode := -1;
548: RETURN;
549: END IF;
563: p_segment_tab(p_segment_tab.COUNT).budget_tab := BUDGET_TYPE();
564: p_segment_tab(p_segment_tab.COUNT).budget_tab := MERGE_BUDGETS(l_segment1.budget_tab,l_segment2.budget_tab);
565:
566: IF p_segment_tab(p_segment_tab.COUNT).budget_tab IS NULL THEN
567: fnd_file.put_line(fnd_file.log, 'Module: SPLIT_RANGES '||'Null value retured ');
568: errbuf := 'Module: SPLIT_RANGES '||'Null value retured for p_segment_tab(p_segment_tab.COUNT).budget_tab';
569: retcode := -1;
570: RETURN;
571: END IF;
576: p_segment_tab(p_segment_tab.COUNT).segment_number := l_segment1.segment_number;
577: p_segment_tab(p_segment_tab.COUNT).segment_low := NEXT_VALUE(l_segment2.segment_high,l_segment2.data_type);
578:
579: IF p_segment_tab(p_segment_tab.COUNT).segment_low IS NULL THEN
580: fnd_file.put_line(fnd_file.log, 'Module: SPLIT_RANGES '||'Null value retured ');
581: errbuf := 'Module: SPLIT_RANGES '||'Null value retured for NEXT_VALUE(l_segment2.segment_high,l_segment2.data_type);';
582: retcode := -1;
583: RETURN;
584: END IF;
598: p_segment_tab(p_segment_tab.COUNT).budget_tab := BUDGET_TYPE();
599: p_segment_tab(p_segment_tab.COUNT).budget_tab := MERGE_BUDGETS(l_segment1.budget_tab,l_segment2.budget_tab);
600:
601: IF p_segment_tab(p_segment_tab.COUNT).budget_tab IS NULL THEN
602: fnd_file.put_line(fnd_file.log, 'Module: SPLIT_RANGES '||'Null value retured ');
603: errbuf := 'Module: SPLIT_RANGES '||'Null value retured for p_segment_tab(p_segment_tab.COUNT).budget_tab';
604: retcode := -1;
605: RETURN;
606: END IF;
610: p_segment_tab(p_segment_tab.COUNT).segment_number := l_segment1.segment_number;
611: p_segment_tab(p_segment_tab.COUNT).segment_low := NEXT_VALUE(l_segment1.segment_high,l_segment1.data_type);
612:
613: IF p_segment_tab(p_segment_tab.COUNT).segment_low IS NULL THEN
614: fnd_file.put_line(fnd_file.log, 'Module: SPLIT_RANGES '||'Null value retured ');
615: errbuf := 'Module: SPLIT_RANGES '||'Null value retured for NEXT_VALUE(l_segment2.segment_high,l_segment2.data_type);';
616: retcode := -1;
617: RETURN;
618: END IF;
628: END IF;
629:
630: EXCEPTION
631: WHEN OTHERS THEN
632: fnd_file.put_line(fnd_file.log, 'Module: SPLIT_RANGES '||'Splitting failed '||SQLERRM);
633: errbuf := 'Module: SPLIT_RANGES '||'Splitting failed '||SQLERRM;
634: retcode := -1;
635: RETURN;
636: END;
659: l_errbuf VARCHAR2(2000);
660: l_retcode NUMBER;
661: BEGIN
662: IF p_no_of_segments < p_current_segment_index THEN
663: fnd_file.put_line(fnd_file.log, 'Module: RECURSIVE_MERGE '||'p_no_of_segments < p_current_segment_index');
664: errbuf := 'Module: RECURSIVE_MERGE '||'p_no_of_segments < p_current_segment_index';
665: retcode := -1;
666: RETURN;
667: END IF;
835: l_errbuf VARCHAR2(2000);
836: l_retcode VARCHAR2(2000);
837: BEGIN
838: IF p_budget_range1.range_id IS NULL THEN
839: fnd_file.put_line(fnd_file.log, 'p_budget_range1.range_id is NULL');
840: errbuf := 'p_budget_range1.range_id is NULL';
841: retcode := -1;
842: RETURN;
843: END IF;
861: FOR i IN 1..p_final_budget_ranges.COUNT LOOP
862:
863: FOR k IN 1..p_final_budget_ranges(i).segment_range_tab.COUNT LOOP
864: IF p_final_budget_ranges(i).segment_range_tab(k).segment_low IS NOT NULL THEN
865: fnd_file.put(fnd_file.log, '-'||p_final_budget_ranges(i).segment_range_tab(k).segment_low);
866: END IF;
867: END LOOP;
868: fnd_file.put(fnd_file.log, ' to ');
869:
864: IF p_final_budget_ranges(i).segment_range_tab(k).segment_low IS NOT NULL THEN
865: fnd_file.put(fnd_file.log, '-'||p_final_budget_ranges(i).segment_range_tab(k).segment_low);
866: END IF;
867: END LOOP;
868: fnd_file.put(fnd_file.log, ' to ');
869:
870: FOR k IN 1..p_final_budget_ranges(i).segment_range_tab.COUNT LOOP
871: IF p_final_budget_ranges(i).segment_range_tab(k).segment_high IS NOT NULL THEN
872: fnd_file.put(fnd_file.log, '-'||p_final_budget_ranges(i).segment_range_tab(k).segment_high);
868: fnd_file.put(fnd_file.log, ' to ');
869:
870: FOR k IN 1..p_final_budget_ranges(i).segment_range_tab.COUNT LOOP
871: IF p_final_budget_ranges(i).segment_range_tab(k).segment_high IS NOT NULL THEN
872: fnd_file.put(fnd_file.log, '-'||p_final_budget_ranges(i).segment_range_tab(k).segment_high);
873: END IF;
874: END LOOP;
875:
876: FOR j IN 1..p_final_budget_ranges(i).budget_tab.COUNT LOOP
873: END IF;
874: END LOOP;
875:
876: FOR j IN 1..p_final_budget_ranges(i).budget_tab.COUNT LOOP
877: fnd_file.put(fnd_file.log, ' '||p_final_budget_ranges(i).budget_tab(j));
878: END LOOP;
879: fnd_file.put_line(fnd_file.log, '');
880: END LOOP;
881: END PRINT_MERGE_INFO;
875:
876: FOR j IN 1..p_final_budget_ranges(i).budget_tab.COUNT LOOP
877: fnd_file.put(fnd_file.log, ' '||p_final_budget_ranges(i).budget_tab(j));
878: END LOOP;
879: fnd_file.put_line(fnd_file.log, '');
880: END LOOP;
881: END PRINT_MERGE_INFO;
882:
883: PROCEDURE PRINT_SPLIT_INFO (p_segment_tab segment_type)
883: PROCEDURE PRINT_SPLIT_INFO (p_segment_tab segment_type)
884: IS
885: BEGIN
886: FOR i IN 1..p_segment_tab.COUNT LOOP
887: fnd_file.put(fnd_file.log, p_segment_tab(i).segment_low||' to '||p_segment_tab(i).segment_high||' ');
888: FOR j IN 1..p_segment_tab(i).budget_tab.COUNT LOOP
889: fnd_file.put(fnd_file.log,p_segment_tab(i).budget_tab(j));
890: fnd_file.put(fnd_file.log,'');
891: END LOOP;
885: BEGIN
886: FOR i IN 1..p_segment_tab.COUNT LOOP
887: fnd_file.put(fnd_file.log, p_segment_tab(i).segment_low||' to '||p_segment_tab(i).segment_high||' ');
888: FOR j IN 1..p_segment_tab(i).budget_tab.COUNT LOOP
889: fnd_file.put(fnd_file.log,p_segment_tab(i).budget_tab(j));
890: fnd_file.put(fnd_file.log,'');
891: END LOOP;
892: fnd_file.put_line(fnd_file.log,'');
893: END LOOP;
886: FOR i IN 1..p_segment_tab.COUNT LOOP
887: fnd_file.put(fnd_file.log, p_segment_tab(i).segment_low||' to '||p_segment_tab(i).segment_high||' ');
888: FOR j IN 1..p_segment_tab(i).budget_tab.COUNT LOOP
889: fnd_file.put(fnd_file.log,p_segment_tab(i).budget_tab(j));
890: fnd_file.put(fnd_file.log,'');
891: END LOOP;
892: fnd_file.put_line(fnd_file.log,'');
893: END LOOP;
894:
888: FOR j IN 1..p_segment_tab(i).budget_tab.COUNT LOOP
889: fnd_file.put(fnd_file.log,p_segment_tab(i).budget_tab(j));
890: fnd_file.put(fnd_file.log,'');
891: END LOOP;
892: fnd_file.put_line(fnd_file.log,'');
893: END LOOP;
894:
895: END PRINT_SPLIT_INFO;
896:
897:
898: PROCEDURE DEBUG_LOG (p_log_message VARCHAR2, p_module VARCHAR2)
899: IS
900: BEGIN
901: fnd_file.put_line(fnd_file.log,'Module:'||p_module||' => '||p_log_message);
902: END;
903:
904:
905: PROCEDURE PRINT_OUTPUT (p_output_message VARCHAR2)
904:
905: PROCEDURE PRINT_OUTPUT (p_output_message VARCHAR2)
906: IS
907: BEGIN
908: fnd_file.put_line(fnd_file.log,p_output_message);
909: END;
910:
911:
912:
1186:
1187: BEGIN
1188:
1189: l_data_type := p_data_type;
1190: fnd_file.put_line(fnd_file.output,'Ledger - Budget Organization - Currency - Range From - Range To ');
1191: BEGIN
1192: SELECT gl_budget_assignment_ranges_s.NEXTVAL
1193: INTO l_range_id_seq
1194: FROM dual;
1194: FROM dual;
1195: l_range_id_seq := l_range_id_seq + 1;
1196: EXCEPTION
1197: WHEN OTHERS THEN
1198: fnd_file.put_line(fnd_file.output, 'Error fetching sequence value from gl_budget_assignment_ranges_s');
1199: fnd_file.put_line(fnd_file.log, 'Module: LOOP_AND_PROCESS =>'||'Error fetching sequence value
1200: from gl_budget_assignment_ranges_s');
1201: errbuf := 'Module: LOOP_AND_PROCESS => Error fetching sequence value from gl_budget_assignment_ranges_s';
1202: retcode := -1;
1195: l_range_id_seq := l_range_id_seq + 1;
1196: EXCEPTION
1197: WHEN OTHERS THEN
1198: fnd_file.put_line(fnd_file.output, 'Error fetching sequence value from gl_budget_assignment_ranges_s');
1199: fnd_file.put_line(fnd_file.log, 'Module: LOOP_AND_PROCESS =>'||'Error fetching sequence value
1200: from gl_budget_assignment_ranges_s');
1201: errbuf := 'Module: LOOP_AND_PROCESS => Error fetching sequence value from gl_budget_assignment_ranges_s';
1202: retcode := -1;
1203: RETURN;
1222: INTO l_actual_range_id
1223: FROM dual;
1224: EXCEPTION
1225: WHEN OTHERS THEN
1226: fnd_file.put_line(fnd_file.output, 'Error fetching sequence value from gl_budget_assignment_ranges_s');
1227: fnd_file.put_line(fnd_file.log, 'Module: LOOP_AND_PROCESS (overlap) =>'
1228: ||'Error fetching sequence value from gl_budget_assignment_ranges_s');
1229: errbuf := 'Module: LOOP_AND_PROCESS (overlap) => Error fetching sequence value from gl_budget_assignment_ranges_s';
1230: retcode := -1;
1223: FROM dual;
1224: EXCEPTION
1225: WHEN OTHERS THEN
1226: fnd_file.put_line(fnd_file.output, 'Error fetching sequence value from gl_budget_assignment_ranges_s');
1227: fnd_file.put_line(fnd_file.log, 'Module: LOOP_AND_PROCESS (overlap) =>'
1228: ||'Error fetching sequence value from gl_budget_assignment_ranges_s');
1229: errbuf := 'Module: LOOP_AND_PROCESS (overlap) => Error fetching sequence value from gl_budget_assignment_ranges_s';
1230: retcode := -1;
1231: RETURN;
1481:
1482:
1483: EXCEPTION
1484: WHEN OTHERS THEN
1485: fnd_file.put_line(fnd_file.output, 'Error processing demerged data');
1486: fnd_file.put_line(fnd_file.log, 'Module: LOOP_AND_PROCESS =>'||'Error processing demerged data =>'||SQLERRM);
1487: errbuf := 'Module: LOOP_AND_PROCESS =>'||'Error processing demerged data =>'||SQLERRM;
1488: retcode := -1;
1489: RETURN;
1482:
1483: EXCEPTION
1484: WHEN OTHERS THEN
1485: fnd_file.put_line(fnd_file.output, 'Error processing demerged data');
1486: fnd_file.put_line(fnd_file.log, 'Module: LOOP_AND_PROCESS =>'||'Error processing demerged data =>'||SQLERRM);
1487: errbuf := 'Module: LOOP_AND_PROCESS =>'||'Error processing demerged data =>'||SQLERRM;
1488: retcode := -1;
1489: RETURN;
1490: END;
1505:
1506: DELETE FROM IGI_UPG_GL_BUDGET_ASSIGNMENT WHERE RANGE_ID = lc_non_overlapping_ranges(i).range_id;
1507: EXCEPTION
1508: WHEN OTHERS THEN
1509: fnd_file.put_line(fnd_file.output, 'Error processing demerged data - prelim mode');
1510: fnd_file.put_line(fnd_file.log, 'Module: LOOP_AND_PROCESS =>'
1511: ||'Error processing demerged data - prelim mode =>'||SQLERRM);
1512: errbuf := 'Module: LOOP_AND_PROCESS =>'||'Error processing demerged data - prelim mode =>'||SQLERRM;
1513: retcode := -1;
1506: DELETE FROM IGI_UPG_GL_BUDGET_ASSIGNMENT WHERE RANGE_ID = lc_non_overlapping_ranges(i).range_id;
1507: EXCEPTION
1508: WHEN OTHERS THEN
1509: fnd_file.put_line(fnd_file.output, 'Error processing demerged data - prelim mode');
1510: fnd_file.put_line(fnd_file.log, 'Module: LOOP_AND_PROCESS =>'
1511: ||'Error processing demerged data - prelim mode =>'||SQLERRM);
1512: errbuf := 'Module: LOOP_AND_PROCESS =>'||'Error processing demerged data - prelim mode =>'||SQLERRM;
1513: retcode := -1;
1514: RETURN;
1520: OPEN C_ALL_RANGES;
1521: FETCH C_ALL_RANGES INTO lc_exact_merge_range1;
1522: IF C_ALL_RANGES%NOTFOUND THEN
1523: CLOSE C_ALL_RANGES;
1524: fnd_file.put_line(fnd_file.log, 'Module: LOOP_AND_PROCESS => Processing completed');
1525: EXIT;
1526: END IF;
1527: CLOSE C_ALL_RANGES;
1528:
1549: DELETE FROM IGI_UPG_GL_BUDGET_ASSIGNMENT WHERE RANGE_ID = lc_exact_merge_range2.range_id;
1550:
1551: EXCEPTION
1552: WHEN OTHERS THEN
1553: fnd_file.put_line(fnd_file.output, 'Error merging data which overlaps exactly');
1554: fnd_file.put_line(fnd_file.log, 'Module: LOOP_AND_PROCESS =>'
1555: ||'Error merging data which overlaps exactly =>'||SQLERRM);
1556: errbuf := 'Module: LOOP_AND_PROCESS =>'||'Error merging data which overlaps exactly =>'||SQLERRM;
1557: retcode := -1;
1550:
1551: EXCEPTION
1552: WHEN OTHERS THEN
1553: fnd_file.put_line(fnd_file.output, 'Error merging data which overlaps exactly');
1554: fnd_file.put_line(fnd_file.log, 'Module: LOOP_AND_PROCESS =>'
1555: ||'Error merging data which overlaps exactly =>'||SQLERRM);
1556: errbuf := 'Module: LOOP_AND_PROCESS =>'||'Error merging data which overlaps exactly =>'||SQLERRM;
1557: retcode := -1;
1558: RETURN;
1567: OPEN C_ALL_RANGES;
1568: FETCH C_ALL_RANGES INTO lc_merge_range1;
1569: IF C_ALL_RANGES%NOTFOUND THEN
1570: CLOSE C_ALL_RANGES;
1571: fnd_file.put_line(fnd_file.log, 'Module: LOOP_AND_PROCESS => Processing completed');
1572: EXIT;
1573: END IF;
1574: IF C_ALL_RANGES%FOUND AND l_data_type <> 0 THEN
1575: CLOSE C_ALL_RANGES;
1572: EXIT;
1573: END IF;
1574: IF C_ALL_RANGES%FOUND AND l_data_type <> 0 THEN
1575: CLOSE C_ALL_RANGES;
1576: fnd_file.put_line(fnd_file.output, 'Module: LOOP_AND_PROCESS - You have segment ranges which merge with other segment ranges
1577: for the same ledger and currency. This upgrade script does
1578: not support merging segment ranges for segments which have variable
1579: non numeric values. Merging segment ranges are supported only if your
1580: segment contains fixed length numeric values. Please contact Oracle Support for help');
1577: for the same ledger and currency. This upgrade script does
1578: not support merging segment ranges for segments which have variable
1579: non numeric values. Merging segment ranges are supported only if your
1580: segment contains fixed length numeric values. Please contact Oracle Support for help');
1581: fnd_file.put_line(fnd_file.log, 'Module: LOOP_AND_PROCESS - You have segment ranges which merge with other segment ranges
1582: for the same ledger and currency code. This upgrade script does
1583: not support merging segment ranges for segments which have variable
1584: non numeric values. Merging segment ranges are supported only if your
1585: segment contains fixed length numeric values. Please contact Oracle Support for help');
2186: lc_merge_range2.attribute15
2187: );
2188: EXCEPTION
2189: WHEN OTHERS THEN
2190: fnd_file.put_line(fnd_file.output, 'Error inserting records into IGI_UPG_GL_BUDGET_ASSIGNMENT Location 1');
2191: fnd_file.put_line(fnd_file.log, 'Module: LOOP_AND_PROCESS =>'
2192: ||'Error inserting records into IGI_UPG_GL_BUDGET_ASSIGNMENT Location 1 '||SQLERRM);
2193: errbuf := 'Module: LOOP_AND_PROCESS =>'||'Error inserting records into IGI_UPG_GL_BUDGET_ASSIGNMENT Location 1 '||SQLERRM;
2194: retcode := -1;
2187: );
2188: EXCEPTION
2189: WHEN OTHERS THEN
2190: fnd_file.put_line(fnd_file.output, 'Error inserting records into IGI_UPG_GL_BUDGET_ASSIGNMENT Location 1');
2191: fnd_file.put_line(fnd_file.log, 'Module: LOOP_AND_PROCESS =>'
2192: ||'Error inserting records into IGI_UPG_GL_BUDGET_ASSIGNMENT Location 1 '||SQLERRM);
2193: errbuf := 'Module: LOOP_AND_PROCESS =>'||'Error inserting records into IGI_UPG_GL_BUDGET_ASSIGNMENT Location 1 '||SQLERRM;
2194: retcode := -1;
2195: RETURN;
2225: sysdate
2226: );
2227: EXCEPTION
2228: WHEN OTHERS THEN
2229: fnd_file.put_line(fnd_file.output, 'Error inserting records into IGI_UPG_GL_BUDORG_BC_OPTIONS Location 1');
2230: fnd_file.put_line(fnd_file.log, 'Module: LOOP_AND_PROCESS =>'
2231: ||'Error inserting records into IGI_UPG_GL_BUDORG_BC_OPTIONS Location 1 '||SQLERRM);
2232: errbuf := 'Module: LOOP_AND_PROCESS =>'||'Error inserting records into
2233: IGI_UPG_GL_BUDORG_BC_OPTIONS Location 1 '||SQLERRM;
2226: );
2227: EXCEPTION
2228: WHEN OTHERS THEN
2229: fnd_file.put_line(fnd_file.output, 'Error inserting records into IGI_UPG_GL_BUDORG_BC_OPTIONS Location 1');
2230: fnd_file.put_line(fnd_file.log, 'Module: LOOP_AND_PROCESS =>'
2231: ||'Error inserting records into IGI_UPG_GL_BUDORG_BC_OPTIONS Location 1 '||SQLERRM);
2232: errbuf := 'Module: LOOP_AND_PROCESS =>'||'Error inserting records into
2233: IGI_UPG_GL_BUDORG_BC_OPTIONS Location 1 '||SQLERRM;
2234: retcode := -1;
2486: );
2487:
2488: EXCEPTION
2489: WHEN OTHERS THEN
2490: fnd_file.put_line(fnd_file.output, 'Error inserting records into IGI_UPG_GL_BUDGET_ASSIGNMENT Location 2');
2491: fnd_file.put_line(fnd_file.log, 'Module: LOOP_AND_PROCESS =>'
2492: ||'Error inserting records into IGI_UPG_GL_BUDGET_ASSIGNMENT Location 2 '||SQLERRM);
2493: errbuf := 'Module: LOOP_AND_PROCESS =>'||'Error inserting records into
2494: IGI_UPG_GL_BUDGET_ASSIGNMENT Location 2 '||SQLERRM;
2487:
2488: EXCEPTION
2489: WHEN OTHERS THEN
2490: fnd_file.put_line(fnd_file.output, 'Error inserting records into IGI_UPG_GL_BUDGET_ASSIGNMENT Location 2');
2491: fnd_file.put_line(fnd_file.log, 'Module: LOOP_AND_PROCESS =>'
2492: ||'Error inserting records into IGI_UPG_GL_BUDGET_ASSIGNMENT Location 2 '||SQLERRM);
2493: errbuf := 'Module: LOOP_AND_PROCESS =>'||'Error inserting records into
2494: IGI_UPG_GL_BUDGET_ASSIGNMENT Location 2 '||SQLERRM;
2495: retcode := -1;
2528: sysdate
2529: );
2530: EXCEPTION
2531: WHEN OTHERS THEN
2532: fnd_file.put_line(fnd_file.output, 'Error inserting records into
2533: IGI_UPG_GL_BUDORG_BC_OPTIONS Location 2');
2534: fnd_file.put_line(fnd_file.log, 'Module: LOOP_AND_PROCESS =>'||'Error inserting records into
2535: IGI_UPG_GL_BUDORG_BC_OPTIONS Location 2 '||SQLERRM);
2536: errbuf := 'Module: LOOP_AND_PROCESS =>'||'Error inserting records into
2530: EXCEPTION
2531: WHEN OTHERS THEN
2532: fnd_file.put_line(fnd_file.output, 'Error inserting records into
2533: IGI_UPG_GL_BUDORG_BC_OPTIONS Location 2');
2534: fnd_file.put_line(fnd_file.log, 'Module: LOOP_AND_PROCESS =>'||'Error inserting records into
2535: IGI_UPG_GL_BUDORG_BC_OPTIONS Location 2 '||SQLERRM);
2536: errbuf := 'Module: LOOP_AND_PROCESS =>'||'Error inserting records into
2537: IGI_UPG_GL_BUDORG_BC_OPTIONS Location 2 '||SQLERRM;
2538: retcode := -1;
2570: sysdate
2571: );
2572: EXCEPTION
2573: WHEN OTHERS THEN
2574: fnd_file.put_line(fnd_file.output, 'Error inserting records into
2575: IGI_UPG_GL_BUDORG_BC_OPTIONS Location 3');
2576: fnd_file.put_line(fnd_file.log, 'Module: LOOP_AND_PROCESS =>'||'Error inserting records into
2577: IGI_UPG_GL_BUDORG_BC_OPTIONS Location 3 '||SQLERRM);
2578: errbuf := 'Module: LOOP_AND_PROCESS =>'||'Error inserting records into
2572: EXCEPTION
2573: WHEN OTHERS THEN
2574: fnd_file.put_line(fnd_file.output, 'Error inserting records into
2575: IGI_UPG_GL_BUDORG_BC_OPTIONS Location 3');
2576: fnd_file.put_line(fnd_file.log, 'Module: LOOP_AND_PROCESS =>'||'Error inserting records into
2577: IGI_UPG_GL_BUDORG_BC_OPTIONS Location 3 '||SQLERRM);
2578: errbuf := 'Module: LOOP_AND_PROCESS =>'||'Error inserting records into
2579: IGI_UPG_GL_BUDORG_BC_OPTIONS Location 3 '||SQLERRM;
2580: retcode := -1;
2598: range_id = lc_merge_range2.range_id OR
2599: range_id = lc_merge_range1.range_id;
2600: EXCEPTION
2601: WHEN OTHERS THEN
2602: fnd_file.put_line(fnd_file.output, 'Error deleting data');
2603: fnd_file.put_line(fnd_file.log, 'Module: LOOP_AND_PROCESS =>'||'Error deleting data'||SQLERRM);
2604: errbuf := 'Module: LOOP_AND_PROCESS =>'||'Error deleting data'||SQLERRM;
2605: retcode := -1;
2606: RETURN;
2599: range_id = lc_merge_range1.range_id;
2600: EXCEPTION
2601: WHEN OTHERS THEN
2602: fnd_file.put_line(fnd_file.output, 'Error deleting data');
2603: fnd_file.put_line(fnd_file.log, 'Module: LOOP_AND_PROCESS =>'||'Error deleting data'||SQLERRM);
2604: errbuf := 'Module: LOOP_AND_PROCESS =>'||'Error deleting data'||SQLERRM;
2605: retcode := -1;
2606: RETURN;
2607: END;
2811: OPEN c_ledger_info;
2812: FETCH c_ledger_info INTO lc_c_ledger_info;
2813: IF c_ledger_info%NOTFOUND THEN
2814: CLOSE c_ledger_info;
2815: fnd_file.put_line(fnd_file.output, 'No EFC Ledgers Found');
2816: fnd_file.put_line(fnd_file.log, 'Module: START_EFC_UPGRADE =>'||'No EFC Ledgers Found');
2817: errbuf := 'No EFC Ledgers Found';
2818: retcode := -1;
2819: RETURN;
2812: FETCH c_ledger_info INTO lc_c_ledger_info;
2813: IF c_ledger_info%NOTFOUND THEN
2814: CLOSE c_ledger_info;
2815: fnd_file.put_line(fnd_file.output, 'No EFC Ledgers Found');
2816: fnd_file.put_line(fnd_file.log, 'Module: START_EFC_UPGRADE =>'||'No EFC Ledgers Found');
2817: errbuf := 'No EFC Ledgers Found';
2818: retcode := -1;
2819: RETURN;
2820: END IF;
2825: OPEN C_OVERLAPPING_RANGE_EXISTS;
2826: FETCH C_OVERLAPPING_RANGE_EXISTS INTO lc_overlapping_range_exists;
2827: IF C_OVERLAPPING_RANGE_EXISTS%FOUND AND p_data_type <> 0 THEN
2828: CLOSE C_OVERLAPPING_RANGE_EXISTS;
2829: fnd_file.put_line(fnd_file.output, 'You have segment ranges which merge with other segment ranges
2830: for the same ledger and currency. This upgrade script does
2831: not support merging segment ranges for segments which have variable
2832: non numeric values. Merging segment ranges are supported only if your
2833: segment contains fixed length numeric values. Please contact Oracle Support for help');
2830: for the same ledger and currency. This upgrade script does
2831: not support merging segment ranges for segments which have variable
2832: non numeric values. Merging segment ranges are supported only if your
2833: segment contains fixed length numeric values. Please contact Oracle Support for help');
2834: fnd_file.put_line(fnd_file.log, 'You have segment ranges which merge with other segment ranges
2835: for the same ledger and currency code. This upgrade script does
2836: not support merging segment ranges for segments which have variable
2837: non numeric values. Merging segment ranges are supported only if your
2838: segment contains fixed length numeric values. Please contact Oracle Support for help');
2843: CLOSE C_OVERLAPPING_RANGE_EXISTS;
2844: END IF;
2845:
2846: IF p_mode = 1 THEN
2847: fnd_file.put_line(fnd_file.output, 'Running EFC Upgrade in Final Mode');
2848: fnd_file.put_line(fnd_file.log, 'Module: START_EFC_UPGRADE =>'||'Running EFC Upgrade in Final Mode');
2849: ELSE
2850: fnd_file.put_line(fnd_file.output, 'Running EFC Upgrade in Preliminary Mode');
2851: fnd_file.put_line(fnd_file.log, 'Module: START_EFC_UPGRADE =>'||'Running EFC Upgrade in Preliminary Mode');
2844: END IF;
2845:
2846: IF p_mode = 1 THEN
2847: fnd_file.put_line(fnd_file.output, 'Running EFC Upgrade in Final Mode');
2848: fnd_file.put_line(fnd_file.log, 'Module: START_EFC_UPGRADE =>'||'Running EFC Upgrade in Final Mode');
2849: ELSE
2850: fnd_file.put_line(fnd_file.output, 'Running EFC Upgrade in Preliminary Mode');
2851: fnd_file.put_line(fnd_file.log, 'Module: START_EFC_UPGRADE =>'||'Running EFC Upgrade in Preliminary Mode');
2852: END IF;
2846: IF p_mode = 1 THEN
2847: fnd_file.put_line(fnd_file.output, 'Running EFC Upgrade in Final Mode');
2848: fnd_file.put_line(fnd_file.log, 'Module: START_EFC_UPGRADE =>'||'Running EFC Upgrade in Final Mode');
2849: ELSE
2850: fnd_file.put_line(fnd_file.output, 'Running EFC Upgrade in Preliminary Mode');
2851: fnd_file.put_line(fnd_file.log, 'Module: START_EFC_UPGRADE =>'||'Running EFC Upgrade in Preliminary Mode');
2852: END IF;
2853:
2854: BEGIN
2847: fnd_file.put_line(fnd_file.output, 'Running EFC Upgrade in Final Mode');
2848: fnd_file.put_line(fnd_file.log, 'Module: START_EFC_UPGRADE =>'||'Running EFC Upgrade in Final Mode');
2849: ELSE
2850: fnd_file.put_line(fnd_file.output, 'Running EFC Upgrade in Preliminary Mode');
2851: fnd_file.put_line(fnd_file.log, 'Module: START_EFC_UPGRADE =>'||'Running EFC Upgrade in Preliminary Mode');
2852: END IF;
2853:
2854: BEGIN
2855:
2857: DELETE FROM IGI_UPG_GL_BUDORG_BC_OPTIONS;
2858:
2859: EXCEPTION
2860: WHEN OTHERS THEN
2861: fnd_file.put_line(fnd_file.output, 'Purging of tables failed');
2862: fnd_file.put_line(fnd_file.log, 'Module: START_EFC_UPGRADE =>'||'Purging of tables failed =>'||SQLERRM);
2863: errbuf := 'Purging of tables failed'||SQLERRM;
2864: retcode := -1;
2865: RETURN;
2858:
2859: EXCEPTION
2860: WHEN OTHERS THEN
2861: fnd_file.put_line(fnd_file.output, 'Purging of tables failed');
2862: fnd_file.put_line(fnd_file.log, 'Module: START_EFC_UPGRADE =>'||'Purging of tables failed =>'||SQLERRM);
2863: errbuf := 'Purging of tables failed'||SQLERRM;
2864: retcode := -1;
2865: RETURN;
2866: END;
2872: FETCH c_backup_exists INTO lc_backup_exists;
2873: IF c_backup_exists%FOUND THEN
2874: --Error final mode run twice
2875: CLOSE c_backup_exists;
2876: fnd_file.put_line(fnd_file.output, 'Upgrade Script has been run in Final Mode and thus cannot be run in Final Mode again');
2877: fnd_file.put_line(fnd_file.log, 'Module: START_EFC_UPGRADE =>'||'Upgrade Script has been run in Final Mode');
2878: errbuf := 'Upgrade Script has been run in Final Mode and thus cannot be run again';
2879: retcode := -1;
2880: RETURN;
2873: IF c_backup_exists%FOUND THEN
2874: --Error final mode run twice
2875: CLOSE c_backup_exists;
2876: fnd_file.put_line(fnd_file.output, 'Upgrade Script has been run in Final Mode and thus cannot be run in Final Mode again');
2877: fnd_file.put_line(fnd_file.log, 'Module: START_EFC_UPGRADE =>'||'Upgrade Script has been run in Final Mode');
2878: errbuf := 'Upgrade Script has been run in Final Mode and thus cannot be run again';
2879: retcode := -1;
2880: RETURN;
2881: END IF;
3094: ));
3095:
3096: EXCEPTION
3097: WHEN OTHERS THEN
3098: fnd_file.put_line(fnd_file.output, 'Unexpected Error: Please check the log');
3099: fnd_file.put_line(fnd_file.log, 'Module: START_EFC_UPGRADE =>'||'Error while inserting into
3100: IGI_EFC_BUDGET_ASSIGNMENT_BCK =>'||SQLERRM);
3101: errbuf := 'Module: START_EFC_UPGRADE =>'||'Error while inserting into
3102: IGI_EFC_BUDGET_ASSIGNMENT_BCK =>'||SQLERRM;
3095:
3096: EXCEPTION
3097: WHEN OTHERS THEN
3098: fnd_file.put_line(fnd_file.output, 'Unexpected Error: Please check the log');
3099: fnd_file.put_line(fnd_file.log, 'Module: START_EFC_UPGRADE =>'||'Error while inserting into
3100: IGI_EFC_BUDGET_ASSIGNMENT_BCK =>'||SQLERRM);
3101: errbuf := 'Module: START_EFC_UPGRADE =>'||'Error while inserting into
3102: IGI_EFC_BUDGET_ASSIGNMENT_BCK =>'||SQLERRM;
3103: retcode := -1;
3137: IGI_EFC_BUDGET_ASSIGNMENT_BCK);
3138:
3139: EXCEPTION
3140: WHEN OTHERS THEN
3141: fnd_file.put_line(fnd_file.output, 'Unexpected Error: Please check the log');
3142: fnd_file.put_line(fnd_file.log, 'Module: START_EFC_UPGRADE =>'||'Error while inserting into
3143: IGI_BUDORG_BC_OPTIONS_BCK =>'||SQLERRM);
3144: errbuf := 'Module: START_EFC_UPGRADE =>'||'Error while inserting into
3145: IGI_BUDORG_BC_OPTIONS_BCK =>'||SQLERRM;
3138:
3139: EXCEPTION
3140: WHEN OTHERS THEN
3141: fnd_file.put_line(fnd_file.output, 'Unexpected Error: Please check the log');
3142: fnd_file.put_line(fnd_file.log, 'Module: START_EFC_UPGRADE =>'||'Error while inserting into
3143: IGI_BUDORG_BC_OPTIONS_BCK =>'||SQLERRM);
3144: errbuf := 'Module: START_EFC_UPGRADE =>'||'Error while inserting into
3145: IGI_BUDORG_BC_OPTIONS_BCK =>'||SQLERRM;
3146: retcode := -1;
3220: IGI_EFC_BUDGET_ASSIGNMENT_BCK);
3221:
3222: EXCEPTION
3223: WHEN OTHERS THEN
3224: fnd_file.put_line(fnd_file.output, 'Unexpected Error: Please check the log');
3225: fnd_file.put_line(fnd_file.log, 'Module: START_EFC_UPGRADE =>'||'Error while inserting into
3226: IGI_GL_BUDGET_ASSIGN_BCK =>'||SQLERRM);
3227: errbuf := 'Module: START_EFC_UPGRADE =>'||'Error while inserting into
3228: IGI_GL_BUDGET_ASSIGN_BCK =>'||SQLERRM;
3221:
3222: EXCEPTION
3223: WHEN OTHERS THEN
3224: fnd_file.put_line(fnd_file.output, 'Unexpected Error: Please check the log');
3225: fnd_file.put_line(fnd_file.log, 'Module: START_EFC_UPGRADE =>'||'Error while inserting into
3226: IGI_GL_BUDGET_ASSIGN_BCK =>'||SQLERRM);
3227: errbuf := 'Module: START_EFC_UPGRADE =>'||'Error while inserting into
3228: IGI_GL_BUDGET_ASSIGN_BCK =>'||SQLERRM;
3229: retcode := -1;
3444: ));
3445:
3446: EXCEPTION
3447: WHEN OTHERS THEN
3448: fnd_file.put_line(fnd_file.output, 'Unexpected Error: Please check the log');
3449: fnd_file.put_line(fnd_file.log, 'Module: START_EFC_UPGRADE =>'||'Error while inserting into
3450: IGI_UPG_GL_BUDGET_ASSIGNMENT =>'||SQLERRM);
3451: errbuf := 'Module: START_EFC_UPGRADE =>'||'Error while inserting into
3452: IGI_UPG_GL_BUDGET_ASSIGNMENT =>'||SQLERRM;
3445:
3446: EXCEPTION
3447: WHEN OTHERS THEN
3448: fnd_file.put_line(fnd_file.output, 'Unexpected Error: Please check the log');
3449: fnd_file.put_line(fnd_file.log, 'Module: START_EFC_UPGRADE =>'||'Error while inserting into
3450: IGI_UPG_GL_BUDGET_ASSIGNMENT =>'||SQLERRM);
3451: errbuf := 'Module: START_EFC_UPGRADE =>'||'Error while inserting into
3452: IGI_UPG_GL_BUDGET_ASSIGNMENT =>'||SQLERRM;
3453: retcode := -1;
3488: IGI_UPG_GL_BUDGET_ASSIGNMENT);
3489:
3490: EXCEPTION
3491: WHEN OTHERS THEN
3492: fnd_file.put_line(fnd_file.output, 'Unexpected Error: Please check the log');
3493: fnd_file.put_line(fnd_file.log, 'Module: START_EFC_UPGRADE =>'||'Error while inserting into
3494: IGI_UPG_GL_BUDORG_BC_OPTIONS =>'||SQLERRM);
3495: errbuf := 'Module: START_EFC_UPGRADE =>'||'Error while inserting into
3496: IGI_UPG_GL_BUDORG_BC_OPTIONS =>'||SQLERRM;
3489:
3490: EXCEPTION
3491: WHEN OTHERS THEN
3492: fnd_file.put_line(fnd_file.output, 'Unexpected Error: Please check the log');
3493: fnd_file.put_line(fnd_file.log, 'Module: START_EFC_UPGRADE =>'||'Error while inserting into
3494: IGI_UPG_GL_BUDORG_BC_OPTIONS =>'||SQLERRM);
3495: errbuf := 'Module: START_EFC_UPGRADE =>'||'Error while inserting into
3496: IGI_UPG_GL_BUDORG_BC_OPTIONS =>'||SQLERRM;
3497: retcode := -1;
3521: IGI_EFC_BUDGET_ASSIGNMENT_BCK);
3522:
3523: EXCEPTION
3524: WHEN OTHERS THEN
3525: fnd_file.put_line(fnd_file.output, 'Unexpected Error: Please check the log');
3526: fnd_file.put_line(fnd_file.log, 'Module: START_EFC_UPGRADE =>'||'Error while deletion =>'||SQLERRM);
3527: errbuf := 'Module: START_EFC_UPGRADE =>'||'Error while deletion =>'||SQLERRM;
3528: retcode := -1;
3529: RETURN;
3522:
3523: EXCEPTION
3524: WHEN OTHERS THEN
3525: fnd_file.put_line(fnd_file.output, 'Unexpected Error: Please check the log');
3526: fnd_file.put_line(fnd_file.log, 'Module: START_EFC_UPGRADE =>'||'Error while deletion =>'||SQLERRM);
3527: errbuf := 'Module: START_EFC_UPGRADE =>'||'Error while deletion =>'||SQLERRM;
3528: retcode := -1;
3529: RETURN;
3530: END;
3535:
3536: IF l_retcode IS NOT NULL AND l_retcode = -1 THEN
3537: errbuf := l_errbuf;
3538: retcode := l_retcode;
3539: fnd_file.put_line(fnd_file.output, 'Unexpected Error: Please check the log');
3540: fnd_file.put_line(fnd_file.log, 'Module: START_EFC_UPGRADE =>'|| l_errbuf);
3541: ROLLBACK TO EFC_UPGRADE_START;
3542: fnd_file.put_line(fnd_file.log, 'Rollback Completed');
3543: ELSE
3536: IF l_retcode IS NOT NULL AND l_retcode = -1 THEN
3537: errbuf := l_errbuf;
3538: retcode := l_retcode;
3539: fnd_file.put_line(fnd_file.output, 'Unexpected Error: Please check the log');
3540: fnd_file.put_line(fnd_file.log, 'Module: START_EFC_UPGRADE =>'|| l_errbuf);
3541: ROLLBACK TO EFC_UPGRADE_START;
3542: fnd_file.put_line(fnd_file.log, 'Rollback Completed');
3543: ELSE
3544: IF p_mode = 1 THEN
3538: retcode := l_retcode;
3539: fnd_file.put_line(fnd_file.output, 'Unexpected Error: Please check the log');
3540: fnd_file.put_line(fnd_file.log, 'Module: START_EFC_UPGRADE =>'|| l_errbuf);
3541: ROLLBACK TO EFC_UPGRADE_START;
3542: fnd_file.put_line(fnd_file.log, 'Rollback Completed');
3543: ELSE
3544: IF p_mode = 1 THEN
3545: COMMIT;
3546: fnd_file.put_line(fnd_file.output, 'Process completed successfully in Final Mode');
3542: fnd_file.put_line(fnd_file.log, 'Rollback Completed');
3543: ELSE
3544: IF p_mode = 1 THEN
3545: COMMIT;
3546: fnd_file.put_line(fnd_file.output, 'Process completed successfully in Final Mode');
3547: fnd_file.put_line(fnd_file.log, 'Process completed successfully in Final Mode');
3548: ELSE
3549: ROLLBACK TO EFC_UPGRADE_START;
3550: fnd_file.put_line(fnd_file.output, 'Process completed successfully in Preliminary Mode');
3543: ELSE
3544: IF p_mode = 1 THEN
3545: COMMIT;
3546: fnd_file.put_line(fnd_file.output, 'Process completed successfully in Final Mode');
3547: fnd_file.put_line(fnd_file.log, 'Process completed successfully in Final Mode');
3548: ELSE
3549: ROLLBACK TO EFC_UPGRADE_START;
3550: fnd_file.put_line(fnd_file.output, 'Process completed successfully in Preliminary Mode');
3551: fnd_file.put_line(fnd_file.log, 'Process completed successfully in Preliminary Mode');
3546: fnd_file.put_line(fnd_file.output, 'Process completed successfully in Final Mode');
3547: fnd_file.put_line(fnd_file.log, 'Process completed successfully in Final Mode');
3548: ELSE
3549: ROLLBACK TO EFC_UPGRADE_START;
3550: fnd_file.put_line(fnd_file.output, 'Process completed successfully in Preliminary Mode');
3551: fnd_file.put_line(fnd_file.log, 'Process completed successfully in Preliminary Mode');
3552: END IF;
3553:
3554: END IF;
3547: fnd_file.put_line(fnd_file.log, 'Process completed successfully in Final Mode');
3548: ELSE
3549: ROLLBACK TO EFC_UPGRADE_START;
3550: fnd_file.put_line(fnd_file.output, 'Process completed successfully in Preliminary Mode');
3551: fnd_file.put_line(fnd_file.log, 'Process completed successfully in Preliminary Mode');
3552: END IF;
3553:
3554: END IF;
3555: