128: where business_group_id = p_business_group_id;
129:
130: select decode(p_mode, 'V', 'Validate', 'Update') into l_mode from dual;
131:
132: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Business Group Name : '|| l_business_group_name);
133: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Running Mode : '|| l_mode);
134:
135: OPEN get_dimension_asg_le_ytd;
136: FETCH get_dimension_asg_le_ytd into l_balance_dimension_id;
129:
130: select decode(p_mode, 'V', 'Validate', 'Update') into l_mode from dual;
131:
132: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Business Group Name : '|| l_business_group_name);
133: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Running Mode : '|| l_mode);
134:
135: OPEN get_dimension_asg_le_ytd;
136: FETCH get_dimension_asg_le_ytd into l_balance_dimension_id;
137: CLOSE get_dimension_asg_le_ytd;
146: t_allowance_balance(cnt).balance_name := rec_allowance_balance.balance_name;
147: t_allowance_balance(cnt).defined_balance_id := rec_allowance_balance.defined_balance_id;
148: t_allowance_balance(cnt).balance_type_id := rec_allowance_balance.balance_type_id;
149:
150: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Allowance balance name to be upgraded is '||t_allowance_balance(cnt).balance_name);
151: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Allowance defined_balance_id to be upgraded is '||t_allowance_balance(cnt).defined_balance_id);
152: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Allowance balance_type_id to be upgraded is '||t_allowance_balance(cnt).balance_type_id);
153:
154: /* finding balance with missing dimension */
147: t_allowance_balance(cnt).defined_balance_id := rec_allowance_balance.defined_balance_id;
148: t_allowance_balance(cnt).balance_type_id := rec_allowance_balance.balance_type_id;
149:
150: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Allowance balance name to be upgraded is '||t_allowance_balance(cnt).balance_name);
151: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Allowance defined_balance_id to be upgraded is '||t_allowance_balance(cnt).defined_balance_id);
152: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Allowance balance_type_id to be upgraded is '||t_allowance_balance(cnt).balance_type_id);
153:
154: /* finding balance with missing dimension */
155: FOR rec_chk_bal_dim IN check_balance_dimension(rec_allowance_balance.balance_type_id) LOOP
148: t_allowance_balance(cnt).balance_type_id := rec_allowance_balance.balance_type_id;
149:
150: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Allowance balance name to be upgraded is '||t_allowance_balance(cnt).balance_name);
151: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Allowance defined_balance_id to be upgraded is '||t_allowance_balance(cnt).defined_balance_id);
152: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Allowance balance_type_id to be upgraded is '||t_allowance_balance(cnt).balance_type_id);
153:
154: /* finding balance with missing dimension */
155: FOR rec_chk_bal_dim IN check_balance_dimension(rec_allowance_balance.balance_type_id) LOOP
156: IF rec_chk_bal_dim.dim_count < 2 THEN
186: END LOOP;
187: CLOSE get_allowance_balance_lst;
188:
189: IF (t_chk_bal.count > 0) or (t_chk_bal_lst.count > 0) THEN -- for balances with missing dimensions
190: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
191: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
192: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'----------------------------------------------------------------------------');
193: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Allowance Balance(s) with missing _ASG_LE_YTD and/or _ASG_LE_RUN dimension(s)');
194: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'----------------------------------------------------------------------------');
187: CLOSE get_allowance_balance_lst;
188:
189: IF (t_chk_bal.count > 0) or (t_chk_bal_lst.count > 0) THEN -- for balances with missing dimensions
190: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
191: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
192: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'----------------------------------------------------------------------------');
193: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Allowance Balance(s) with missing _ASG_LE_YTD and/or _ASG_LE_RUN dimension(s)');
194: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'----------------------------------------------------------------------------');
195:
188:
189: IF (t_chk_bal.count > 0) or (t_chk_bal_lst.count > 0) THEN -- for balances with missing dimensions
190: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
191: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
192: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'----------------------------------------------------------------------------');
193: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Allowance Balance(s) with missing _ASG_LE_YTD and/or _ASG_LE_RUN dimension(s)');
194: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'----------------------------------------------------------------------------');
195:
196: IF t_chk_bal.count > 0 THEN
189: IF (t_chk_bal.count > 0) or (t_chk_bal_lst.count > 0) THEN -- for balances with missing dimensions
190: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
191: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
192: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'----------------------------------------------------------------------------');
193: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Allowance Balance(s) with missing _ASG_LE_YTD and/or _ASG_LE_RUN dimension(s)');
194: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'----------------------------------------------------------------------------');
195:
196: IF t_chk_bal.count > 0 THEN
197: FOR i in t_chk_bal.first .. t_chk_bal.last LOOP
190: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
191: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
192: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'----------------------------------------------------------------------------');
193: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Allowance Balance(s) with missing _ASG_LE_YTD and/or _ASG_LE_RUN dimension(s)');
194: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'----------------------------------------------------------------------------');
195:
196: IF t_chk_bal.count > 0 THEN
197: FOR i in t_chk_bal.first .. t_chk_bal.last LOOP
198:
195:
196: IF t_chk_bal.count > 0 THEN
197: FOR i in t_chk_bal.first .. t_chk_bal.last LOOP
198:
199: FND_FILE.PUT_LINE(FND_FILE.LOG, 'The missing dimensions for "'||t_chk_bal(i).balance_name ||'" balance');
200: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, t_chk_bal(i).balance_name);
201:
202: END LOOP;
203: END IF;
196: IF t_chk_bal.count > 0 THEN
197: FOR i in t_chk_bal.first .. t_chk_bal.last LOOP
198:
199: FND_FILE.PUT_LINE(FND_FILE.LOG, 'The missing dimensions for "'||t_chk_bal(i).balance_name ||'" balance');
200: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, t_chk_bal(i).balance_name);
201:
202: END LOOP;
203: END IF;
204:
204:
205: IF t_chk_bal_lst.count > 0 THEN
206: FOR i in t_chk_bal_lst.first .. t_chk_bal_lst.last LOOP
207:
208: FND_FILE.PUT_LINE(FND_FILE.LOG, '*The missing dimensions for "'||t_chk_bal_lst(i).balance_name ||'" balance');
209: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, t_chk_bal_lst(i).balance_name);
210:
211: END LOOP;
212: END IF;
205: IF t_chk_bal_lst.count > 0 THEN
206: FOR i in t_chk_bal_lst.first .. t_chk_bal_lst.last LOOP
207:
208: FND_FILE.PUT_LINE(FND_FILE.LOG, '*The missing dimensions for "'||t_chk_bal_lst(i).balance_name ||'" balance');
209: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, t_chk_bal_lst(i).balance_name);
210:
211: END LOOP;
212: END IF;
213:
210:
211: END LOOP;
212: END IF;
213:
214: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ***** Dimension(s) Missing ERROR ***** ');
215: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'* Check above balance(s) for missing dimensions required in End of Year process before progressing further');
216: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'* After adding the missing dimension(s), re-run the concurrent program');
217:
218: ELSE
211: END LOOP;
212: END IF;
213:
214: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ***** Dimension(s) Missing ERROR ***** ');
215: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'* Check above balance(s) for missing dimensions required in End of Year process before progressing further');
216: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'* After adding the missing dimension(s), re-run the concurrent program');
217:
218: ELSE
219:
212: END IF;
213:
214: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ***** Dimension(s) Missing ERROR ***** ');
215: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'* Check above balance(s) for missing dimensions required in End of Year process before progressing further');
216: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'* After adding the missing dimension(s), re-run the concurrent program');
217:
218: ELSE
219:
220: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
216: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'* After adding the missing dimension(s), re-run the concurrent program');
217:
218: ELSE
219:
220: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
221: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
222: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------------------------------------------------------');
223: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'1. List of Allowance balance for Balance Attribute Upgrade');
224: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------------------------------------------------------');
217:
218: ELSE
219:
220: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
221: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
222: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------------------------------------------------------');
223: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'1. List of Allowance balance for Balance Attribute Upgrade');
224: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------------------------------------------------------');
225: FND_FILE.PUT_LINE(FND_FILE.LOG, '1 =====>');
218: ELSE
219:
220: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
221: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
222: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------------------------------------------------------');
223: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'1. List of Allowance balance for Balance Attribute Upgrade');
224: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------------------------------------------------------');
225: FND_FILE.PUT_LINE(FND_FILE.LOG, '1 =====>');
226:
219:
220: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
221: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
222: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------------------------------------------------------');
223: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'1. List of Allowance balance for Balance Attribute Upgrade');
224: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------------------------------------------------------');
225: FND_FILE.PUT_LINE(FND_FILE.LOG, '1 =====>');
226:
227: /* Call for Balance Attribute Upgrade */
220: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
221: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
222: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------------------------------------------------------');
223: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'1. List of Allowance balance for Balance Attribute Upgrade');
224: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------------------------------------------------------');
225: FND_FILE.PUT_LINE(FND_FILE.LOG, '1 =====>');
226:
227: /* Call for Balance Attribute Upgrade */
228: upgrade_ba (cnt, t_allowance_balance, p_business_group_id, p_mode);
221: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
222: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------------------------------------------------------');
223: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'1. List of Allowance balance for Balance Attribute Upgrade');
224: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------------------------------------------------------');
225: FND_FILE.PUT_LINE(FND_FILE.LOG, '1 =====>');
226:
227: /* Call for Balance Attribute Upgrade */
228: upgrade_ba (cnt, t_allowance_balance, p_business_group_id, p_mode);
229:
226:
227: /* Call for Balance Attribute Upgrade */
228: upgrade_ba (cnt, t_allowance_balance, p_business_group_id, p_mode);
229:
230: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
231: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
232: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'---------------------------------------------------------------');
233: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'2. List of Allowance balance for Group Level Run dimension Upgrade');
234: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'---------------------------------------------------------------');
227: /* Call for Balance Attribute Upgrade */
228: upgrade_ba (cnt, t_allowance_balance, p_business_group_id, p_mode);
229:
230: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
231: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
232: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'---------------------------------------------------------------');
233: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'2. List of Allowance balance for Group Level Run dimension Upgrade');
234: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'---------------------------------------------------------------');
235: FND_FILE.PUT_LINE(FND_FILE.LOG, '2 =====>');
228: upgrade_ba (cnt, t_allowance_balance, p_business_group_id, p_mode);
229:
230: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
231: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
232: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'---------------------------------------------------------------');
233: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'2. List of Allowance balance for Group Level Run dimension Upgrade');
234: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'---------------------------------------------------------------');
235: FND_FILE.PUT_LINE(FND_FILE.LOG, '2 =====>');
236:
229:
230: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
231: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
232: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'---------------------------------------------------------------');
233: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'2. List of Allowance balance for Group Level Run dimension Upgrade');
234: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'---------------------------------------------------------------');
235: FND_FILE.PUT_LINE(FND_FILE.LOG, '2 =====>');
236:
237: /* Call for Group Level Run dimension upgrade */
230: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
231: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
232: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'---------------------------------------------------------------');
233: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'2. List of Allowance balance for Group Level Run dimension Upgrade');
234: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'---------------------------------------------------------------');
235: FND_FILE.PUT_LINE(FND_FILE.LOG, '2 =====>');
236:
237: /* Call for Group Level Run dimension upgrade */
238: upgrade_glr ( t_allowance_balance, tl_allowance_balance, l_business_group_name, p_mode);
231: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
232: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'---------------------------------------------------------------');
233: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'2. List of Allowance balance for Group Level Run dimension Upgrade');
234: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'---------------------------------------------------------------');
235: FND_FILE.PUT_LINE(FND_FILE.LOG, '2 =====>');
236:
237: /* Call for Group Level Run dimension upgrade */
238: upgrade_glr ( t_allowance_balance, tl_allowance_balance, l_business_group_name, p_mode);
239:
236:
237: /* Call for Group Level Run dimension upgrade */
238: upgrade_glr ( t_allowance_balance, tl_allowance_balance, l_business_group_name, p_mode);
239:
240: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
241: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
242: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'---------------------------------------------------------------');
243: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'3. List of Allowance balance which has not been enabled for Assignment Level Run and Group Level Run');
244: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'---------------------------------------------------------------');
237: /* Call for Group Level Run dimension upgrade */
238: upgrade_glr ( t_allowance_balance, tl_allowance_balance, l_business_group_name, p_mode);
239:
240: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
241: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
242: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'---------------------------------------------------------------');
243: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'3. List of Allowance balance which has not been enabled for Assignment Level Run and Group Level Run');
244: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'---------------------------------------------------------------');
245: FND_FILE.PUT_LINE(FND_FILE.LOG, '3 =====>');
238: upgrade_glr ( t_allowance_balance, tl_allowance_balance, l_business_group_name, p_mode);
239:
240: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
241: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
242: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'---------------------------------------------------------------');
243: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'3. List of Allowance balance which has not been enabled for Assignment Level Run and Group Level Run');
244: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'---------------------------------------------------------------');
245: FND_FILE.PUT_LINE(FND_FILE.LOG, '3 =====>');
246:
239:
240: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
241: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
242: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'---------------------------------------------------------------');
243: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'3. List of Allowance balance which has not been enabled for Assignment Level Run and Group Level Run');
244: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'---------------------------------------------------------------');
245: FND_FILE.PUT_LINE(FND_FILE.LOG, '3 =====>');
246:
247: /* Call for checking Run balances and upgrade if not exists */
240: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
241: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
242: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'---------------------------------------------------------------');
243: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'3. List of Allowance balance which has not been enabled for Assignment Level Run and Group Level Run');
244: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'---------------------------------------------------------------');
245: FND_FILE.PUT_LINE(FND_FILE.LOG, '3 =====>');
246:
247: /* Call for checking Run balances and upgrade if not exists */
248: check_run (t_allowance_balance, tl_allowance_balance, p_mode);
241: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
242: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'---------------------------------------------------------------');
243: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'3. List of Allowance balance which has not been enabled for Assignment Level Run and Group Level Run');
244: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'---------------------------------------------------------------');
245: FND_FILE.PUT_LINE(FND_FILE.LOG, '3 =====>');
246:
247: /* Call for checking Run balances and upgrade if not exists */
248: check_run (t_allowance_balance, tl_allowance_balance, p_mode);
249:
249:
250: IF p_mode = 'V' THEN -- validate mode
251: null;
252: ELSE
253: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
254: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
255: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------------------------------------------------------------------------');
256: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'4. List of Allowance balance that will be reported in the Payment Summary');
257: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------------------------------------------------------------------------');
250: IF p_mode = 'V' THEN -- validate mode
251: null;
252: ELSE
253: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
254: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
255: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------------------------------------------------------------------------');
256: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'4. List of Allowance balance that will be reported in the Payment Summary');
257: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------------------------------------------------------------------------');
258:
251: null;
252: ELSE
253: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
254: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
255: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------------------------------------------------------------------------');
256: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'4. List of Allowance balance that will be reported in the Payment Summary');
257: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------------------------------------------------------------------------');
258:
259: FOR rec_allowance_balance_lst in get_allowance_balance_lst(p_business_group_id) LOOP
252: ELSE
253: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
254: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
255: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------------------------------------------------------------------------');
256: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'4. List of Allowance balance that will be reported in the Payment Summary');
257: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------------------------------------------------------------------------');
258:
259: FOR rec_allowance_balance_lst in get_allowance_balance_lst(p_business_group_id) LOOP
260:
253: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
254: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
255: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------------------------------------------------------------------------');
256: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'4. List of Allowance balance that will be reported in the Payment Summary');
257: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------------------------------------------------------------------------');
258:
259: FOR rec_allowance_balance_lst in get_allowance_balance_lst(p_business_group_id) LOOP
260:
261: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rec_allowance_balance_lst.balance_name);
257: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'-------------------------------------------------------------------------');
258:
259: FOR rec_allowance_balance_lst in get_allowance_balance_lst(p_business_group_id) LOOP
260:
261: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rec_allowance_balance_lst.balance_name);
262:
263: END LOOP;
264: END IF;
265:
272:
273: error_code :=SQLCODE;
274: error_message := SQLERRM ;
275:
276: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ***** ERRORS ***** ');
277: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Report to Oracle Support.');
278: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,error_code ||' : '||error_message);
279:
280: raise;
273: error_code :=SQLCODE;
274: error_message := SQLERRM ;
275:
276: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ***** ERRORS ***** ');
277: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Report to Oracle Support.');
278: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,error_code ||' : '||error_message);
279:
280: raise;
281:
274: error_message := SQLERRM ;
275:
276: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ***** ERRORS ***** ');
277: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Report to Oracle Support.');
278: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,error_code ||' : '||error_message);
279:
280: raise;
281:
282: END upgrade_allowance_bar;
303:
304: BEGIN
305:
306: IF (p_cnt = 1) THEN
307: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'There is NO balance to be upgraded.');
308: ELSIF p_allowance_balance.count > 0 THEN -- balances for ba upgrade
309:
310: OPEN get_balance_attribute;
311: FETCH get_balance_attribute into l_attribute_id;
312: IF get_balance_attribute%NOTFOUND THEN
313: raise e_bad_global;
314: END IF;
315:
316: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Attribute ID for AU_EOY_ALLOWANCE : '||l_attribute_id);
317:
318: CLOSE get_balance_attribute;
319:
320: FOR i IN p_allowance_balance.first .. p_allowance_balance.last LOOP
318: CLOSE get_balance_attribute;
319:
320: FOR i IN p_allowance_balance.first .. p_allowance_balance.last LOOP
321:
322: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Defined Balance ID parameter : '|| t_allowance_balance(i).defined_balance_id);
323:
324: IF p_mode = 'V' THEN -- validate mode
325: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, p_allowance_balance(i).balance_name);
326: ELSE -- update mode
321:
322: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Defined Balance ID parameter : '|| t_allowance_balance(i).defined_balance_id);
323:
324: IF p_mode = 'V' THEN -- validate mode
325: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, p_allowance_balance(i).balance_name);
326: ELSE -- update mode
327: PAY_BALANCE_ATTRIBUTE_API.create_balance_attribute
328: (p_validate => l_validate
329: ,p_attribute_id => l_attribute_id
332: ,p_balance_attribute_id => l_balance_attribute_id
333: );
334:
335: IF l_balance_attribute_id is not null THEN
336: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, p_allowance_balance(i).balance_name);
337:
338: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Successful Upgrade for '|| p_allowance_balance(i).balance_name);
339: ELSE
340: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, p_allowance_balance(i).balance_name||' => Unsuccessful *****');
334:
335: IF l_balance_attribute_id is not null THEN
336: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, p_allowance_balance(i).balance_name);
337:
338: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Successful Upgrade for '|| p_allowance_balance(i).balance_name);
339: ELSE
340: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, p_allowance_balance(i).balance_name||' => Unsuccessful *****');
341:
342: FND_FILE.PUT_LINE(FND_FILE.LOG, 'UnSuccessful Upgrade for '|| p_allowance_balance(i).balance_name);
336: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, p_allowance_balance(i).balance_name);
337:
338: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Successful Upgrade for '|| p_allowance_balance(i).balance_name);
339: ELSE
340: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, p_allowance_balance(i).balance_name||' => Unsuccessful *****');
341:
342: FND_FILE.PUT_LINE(FND_FILE.LOG, 'UnSuccessful Upgrade for '|| p_allowance_balance(i).balance_name);
343: END IF;
344: END IF;
338: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Successful Upgrade for '|| p_allowance_balance(i).balance_name);
339: ELSE
340: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, p_allowance_balance(i).balance_name||' => Unsuccessful *****');
341:
342: FND_FILE.PUT_LINE(FND_FILE.LOG, 'UnSuccessful Upgrade for '|| p_allowance_balance(i).balance_name);
343: END IF;
344: END IF;
345:
346: END LOOP;
350: exception
351: when e_bad_global then
352:
353: close get_balance_attribute;
354: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ***** No Balance Attribute ERROR ***** ');
355: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Report to Oracle Support.');
356: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ***** No Balance Attribute ERROR ***** ');
357:
358: raise;
351: when e_bad_global then
352:
353: close get_balance_attribute;
354: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ***** No Balance Attribute ERROR ***** ');
355: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Report to Oracle Support.');
356: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ***** No Balance Attribute ERROR ***** ');
357:
358: raise;
359:
352:
353: close get_balance_attribute;
354: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ***** No Balance Attribute ERROR ***** ');
355: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Report to Oracle Support.');
356: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ***** No Balance Attribute ERROR ***** ');
357:
358: raise;
359:
360: when others then
361:
362: error_code :=SQLCODE;
363: error_message := SQLERRM ;
364:
365: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ***** ERRORS ***** ');
366: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Report to Oracle Support.');
367: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,error_code ||' : '||error_message);
368:
369: raise;
362: error_code :=SQLCODE;
363: error_message := SQLERRM ;
364:
365: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ***** ERRORS ***** ');
366: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Report to Oracle Support.');
367: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,error_code ||' : '||error_message);
368:
369: raise;
370:
363: error_message := SQLERRM ;
364:
365: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ***** ERRORS ***** ');
366: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Report to Oracle Support.');
367: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,error_code ||' : '||error_message);
368:
369: raise;
370:
371: end upgrade_ba;
411:
412: open get_dimension_le_ytd (p_t_allowance_balance(i).balance_type_id);
413: fetch get_dimension_le_ytd into l_defined_balance_id;
414: IF get_dimension_le_ytd%NOTFOUND THEN
415: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad(substr(p_t_allowance_balance(i).balance_name,1,30),30,' ') ||' : _LE_YTD' );
416: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Balance : '|| p_t_allowance_balance(i).balance_name||' without _LE_YTD');
417: l_exist := l_exist + 1;
418: END IF;
419: close get_dimension_le_ytd;
412: open get_dimension_le_ytd (p_t_allowance_balance(i).balance_type_id);
413: fetch get_dimension_le_ytd into l_defined_balance_id;
414: IF get_dimension_le_ytd%NOTFOUND THEN
415: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad(substr(p_t_allowance_balance(i).balance_name,1,30),30,' ') ||' : _LE_YTD' );
416: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Balance : '|| p_t_allowance_balance(i).balance_name||' without _LE_YTD');
417: l_exist := l_exist + 1;
418: END IF;
419: close get_dimension_le_ytd;
420:
420:
421: open get_dimension_le_run (p_t_allowance_balance(i).balance_type_id);
422: fetch get_dimension_le_run into l_defined_balance_id;
423: IF get_dimension_le_run%NOTFOUND THEN
424: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad(substr(p_t_allowance_balance(i).balance_name,1,30),30,' ') ||' : _LE_RUN' );
425: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Balance : '|| p_t_allowance_balance(i).balance_name||' without _LE_RUN');
426: l_exist := l_exist + 1;
427: END IF;
428: close get_dimension_le_run;
421: open get_dimension_le_run (p_t_allowance_balance(i).balance_type_id);
422: fetch get_dimension_le_run into l_defined_balance_id;
423: IF get_dimension_le_run%NOTFOUND THEN
424: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad(substr(p_t_allowance_balance(i).balance_name,1,30),30,' ') ||' : _LE_RUN' );
425: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Balance : '|| p_t_allowance_balance(i).balance_name||' without _LE_RUN');
426: l_exist := l_exist + 1;
427: END IF;
428: close get_dimension_le_run;
429:
437:
438: open get_dimension_le_ytd (p_tl_allowance_balance(i).balance_type_id);
439: fetch get_dimension_le_ytd into l_defined_balance_id;
440: IF get_dimension_le_ytd%NOTFOUND THEN
441: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad(substr(p_tl_allowance_balance(i).balance_name,1,30),30,' ') ||' : _LE_YTD' );
442: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Balance : '|| p_tl_allowance_balance(i).balance_name||' without _LE_YTD');
443: l_exist := l_exist + 1;
444: END IF;
445: close get_dimension_le_ytd;
438: open get_dimension_le_ytd (p_tl_allowance_balance(i).balance_type_id);
439: fetch get_dimension_le_ytd into l_defined_balance_id;
440: IF get_dimension_le_ytd%NOTFOUND THEN
441: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad(substr(p_tl_allowance_balance(i).balance_name,1,30),30,' ') ||' : _LE_YTD' );
442: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Balance : '|| p_tl_allowance_balance(i).balance_name||' without _LE_YTD');
443: l_exist := l_exist + 1;
444: END IF;
445: close get_dimension_le_ytd;
446:
446:
447: open get_dimension_le_run (p_tl_allowance_balance(i).balance_type_id);
448: fetch get_dimension_le_run into l_defined_balance_id;
449: IF get_dimension_le_run%NOTFOUND THEN
450: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad(substr(p_tl_allowance_balance(i).balance_name,1,30),30,' ') ||' : _LE_RUN' );
451: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Balance : '|| p_tl_allowance_balance(i).balance_name||' without _LE_RUN');
452: l_exist := l_exist + 1;
453: END IF;
454: close get_dimension_le_run;
447: open get_dimension_le_run (p_tl_allowance_balance(i).balance_type_id);
448: fetch get_dimension_le_run into l_defined_balance_id;
449: IF get_dimension_le_run%NOTFOUND THEN
450: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad(substr(p_tl_allowance_balance(i).balance_name,1,30),30,' ') ||' : _LE_RUN' );
451: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Balance : '|| p_tl_allowance_balance(i).balance_name||' without _LE_RUN');
452: l_exist := l_exist + 1;
453: END IF;
454: close get_dimension_le_run;
455:
465:
466: open get_dimension_le_ytd (p_t_allowance_balance(i).balance_type_id);
467: fetch get_dimension_le_ytd into l_defined_balance_id;
468: IF get_dimension_le_ytd%NOTFOUND THEN
469: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Balance : '|| p_t_allowance_balance(i).balance_name||' without _LE_YTD');
470: pay_db_pay_setup.create_defined_balance(
471: p_balance_name => p_t_allowance_balance(i).balance_name,
472: p_balance_dimension => '_LE_YTD',
473: p_business_group_name => p_business_group_name
471: p_balance_name => p_t_allowance_balance(i).balance_name,
472: p_balance_dimension => '_LE_YTD',
473: p_business_group_name => p_business_group_name
474: );
475: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad(substr(p_t_allowance_balance(i).balance_name,1,30),30,' ') ||' : _LE_YTD' );
476: l_exist := l_exist + 1;
477: END IF;
478: close get_dimension_le_ytd;
479:
479:
480: open get_dimension_le_run (p_t_allowance_balance(i).balance_type_id);
481: fetch get_dimension_le_run into l_defined_balance_id;
482: IF get_dimension_le_run%NOTFOUND THEN
483: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Balance : '|| p_t_allowance_balance(i).balance_name||' without _LE_RUN');
484: pay_db_pay_setup.create_defined_balance(
485: p_balance_name => p_t_allowance_balance(i).balance_name,
486: p_balance_dimension => '_LE_RUN',
487: p_business_group_name => p_business_group_name
485: p_balance_name => p_t_allowance_balance(i).balance_name,
486: p_balance_dimension => '_LE_RUN',
487: p_business_group_name => p_business_group_name
488: );
489: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad(substr(p_t_allowance_balance(i).balance_name,1,30),30,' ') ||' : _LE_RUN' );
490: l_exist := l_exist + 1;
491: END IF;
492: close get_dimension_le_run;
493:
501:
502: open get_dimension_le_ytd (p_tl_allowance_balance(i).balance_type_id);
503: fetch get_dimension_le_ytd into l_defined_balance_id;
504: IF get_dimension_le_ytd%NOTFOUND THEN
505: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Balance : '|| p_tl_allowance_balance(i).balance_name||' without _LE_YTD');
506: pay_db_pay_setup.create_defined_balance(
507: p_balance_name => p_tl_allowance_balance(i).balance_name,
508: p_balance_dimension => '_LE_YTD',
509: p_business_group_name => p_business_group_name
507: p_balance_name => p_tl_allowance_balance(i).balance_name,
508: p_balance_dimension => '_LE_YTD',
509: p_business_group_name => p_business_group_name
510: );
511: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad(substr(p_tl_allowance_balance(i).balance_name,1,30),30,' ') ||' : _LE_YTD' );
512: l_exist := l_exist + 1;
513: END IF;
514: close get_dimension_le_ytd;
515:
515:
516: open get_dimension_le_run (p_tl_allowance_balance(i).balance_type_id);
517: fetch get_dimension_le_run into l_defined_balance_id;
518: IF get_dimension_le_run%NOTFOUND THEN
519: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Balance : '|| p_tl_allowance_balance(i).balance_name||' without _LE_RUN');
520: pay_db_pay_setup.create_defined_balance(
521: p_balance_name => p_tl_allowance_balance(i).balance_name,
522: p_balance_dimension => '_LE_RUN',
523: p_business_group_name => p_business_group_name
521: p_balance_name => p_tl_allowance_balance(i).balance_name,
522: p_balance_dimension => '_LE_RUN',
523: p_business_group_name => p_business_group_name
524: );
525: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad(substr(p_tl_allowance_balance(i).balance_name,1,30),30,' ') ||' : _LE_RUN' );
526: l_exist := l_exist + 1;
527: END IF;
528: close get_dimension_le_run;
529:
533:
534: END IF;
535:
536: IF l_exist = 0 THEN
537: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'There is NO balance to be upgraded.');
538: END IF;
539:
540: exception
541:
543:
544: error_code :=SQLCODE;
545: error_message := SQLERRM ;
546:
547: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ***** ERRORS ***** ');
548: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Report to Oracle Support.');
549: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,error_code ||' : '||error_message);
550:
551: raise;
544: error_code :=SQLCODE;
545: error_message := SQLERRM ;
546:
547: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ***** ERRORS ***** ');
548: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Report to Oracle Support.');
549: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,error_code ||' : '||error_message);
550:
551: raise;
552:
545: error_message := SQLERRM ;
546:
547: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ***** ERRORS ***** ');
548: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Report to Oracle Support.');
549: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,error_code ||' : '||error_message);
550:
551: raise;
552:
553: end upgrade_glr;
584:
585: FOR i in p_t_allowance_balance.first .. p_t_allowance_balance.last LOOP
586:
587: FOR rec_run_balance in get_run_balance (p_t_allowance_balance(i).balance_type_id) LOOP
588: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad(substr(p_t_allowance_balance(i).balance_name,1,30),30,' ') ||' : '||rec_run_balance.dimension_name);
589: l_found := l_found + 1;
590: END LOOP;
591:
592: END LOOP;
597:
598: FOR i in p_tl_allowance_balance.first .. p_tl_allowance_balance.last LOOP
599:
600: FOR rec_run_balance in get_run_balance (p_tl_allowance_balance(i).balance_type_id) LOOP
601: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad(substr(p_tl_allowance_balance(i).balance_name,1,30),30,' ') ||' : '||rec_run_balance.dimension_name);
602: l_found := l_found + 1;
603: END LOOP;
604:
605: END LOOP;
612:
613: FOR i in p_t_allowance_balance.first .. p_t_allowance_balance.last LOOP
614:
615: FOR rec_run_balance in get_run_balance (p_t_allowance_balance(i).balance_type_id) LOOP
616: FND_FILE.PUT_LINE(FND_FILE.LOG,p_t_allowance_balance(i).balance_name||' with '||rec_run_balance.dimension_name||'('||rec_run_balance.defined_balance_id||') : '||rec_run_balance.save_run_balance);
617: l_found := l_found + 1;
618:
619: UPDATE pay_defined_balances
620: SET save_run_balance = 'Y'
620: SET save_run_balance = 'Y'
621: WHERE defined_balance_id = rec_run_balance.defined_balance_id;
622:
623: IF SQL%FOUND THEN
624: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad(substr(p_t_allowance_balance(i).balance_name,1,30),30,' ') ||' : '||rec_run_balance.dimension_name);
625: END IF;
626:
627:
628: END LOOP;
635:
636: FOR i in p_tl_allowance_balance.first .. p_tl_allowance_balance.last LOOP
637:
638: FOR rec_run_balance in get_run_balance (p_tl_allowance_balance(i).balance_type_id) LOOP
639: FND_FILE.PUT_LINE(FND_FILE.LOG,p_tl_allowance_balance(i).balance_name||' with '||rec_run_balance.dimension_name||'('||rec_run_balance.defined_balance_id||') : '||rec_run_balance.save_run_balance);
640: l_found := l_found + 1;
641:
642: UPDATE pay_defined_balances
643: SET save_run_balance = 'Y'
643: SET save_run_balance = 'Y'
644: WHERE defined_balance_id = rec_run_balance.defined_balance_id;
645:
646: IF SQL%FOUND THEN
647: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad(substr(p_tl_allowance_balance(i).balance_name,1,30),30,' ') ||' : '||rec_run_balance.dimension_name);
648: END IF;
649: END LOOP;
650:
651: END LOOP;
654:
655: END IF;
656:
657: IF l_found = 1 THEN
658: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'There is NO balance to be upgraded.');
659: END IF;
660:
661: exception
662:
664:
665: error_code :=SQLCODE;
666: error_message := SQLERRM ;
667:
668: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ***** ERRORS ***** ');
669: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Report to Oracle Support.');
670: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,error_code ||' : '||error_message);
671:
672: raise;
665: error_code :=SQLCODE;
666: error_message := SQLERRM ;
667:
668: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ***** ERRORS ***** ');
669: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Report to Oracle Support.');
670: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,error_code ||' : '||error_message);
671:
672: raise;
673:
666: error_message := SQLERRM ;
667:
668: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' ***** ERRORS ***** ');
669: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Report to Oracle Support.');
670: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,error_code ||' : '||error_message);
671:
672: raise;
673:
674: end check_run;
730: where business_group_id = p_business_group_id;
731:
732: select decode(p_mode, 'V', 'Validate', 'Update') into l_mode from dual;
733:
734: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business Group Name : '|| l_business_group_name);
735: FND_FILE.PUT_LINE(FND_FILE.LOG,'Running Mode : '|| l_mode);
736: FND_FILE.NEW_LINE(FND_FILE.LOG);
737: FND_FILE.PUT_LINE(FND_FILE.LOG,'-------------------------------------------------------------------------');
738: FND_FILE.NEW_LINE(FND_FILE.LOG);
731:
732: select decode(p_mode, 'V', 'Validate', 'Update') into l_mode from dual;
733:
734: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business Group Name : '|| l_business_group_name);
735: FND_FILE.PUT_LINE(FND_FILE.LOG,'Running Mode : '|| l_mode);
736: FND_FILE.NEW_LINE(FND_FILE.LOG);
737: FND_FILE.PUT_LINE(FND_FILE.LOG,'-------------------------------------------------------------------------');
738: FND_FILE.NEW_LINE(FND_FILE.LOG);
739:
732: select decode(p_mode, 'V', 'Validate', 'Update') into l_mode from dual;
733:
734: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business Group Name : '|| l_business_group_name);
735: FND_FILE.PUT_LINE(FND_FILE.LOG,'Running Mode : '|| l_mode);
736: FND_FILE.NEW_LINE(FND_FILE.LOG);
737: FND_FILE.PUT_LINE(FND_FILE.LOG,'-------------------------------------------------------------------------');
738: FND_FILE.NEW_LINE(FND_FILE.LOG);
739:
740: l_check := 0;
733:
734: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business Group Name : '|| l_business_group_name);
735: FND_FILE.PUT_LINE(FND_FILE.LOG,'Running Mode : '|| l_mode);
736: FND_FILE.NEW_LINE(FND_FILE.LOG);
737: FND_FILE.PUT_LINE(FND_FILE.LOG,'-------------------------------------------------------------------------');
738: FND_FILE.NEW_LINE(FND_FILE.LOG);
739:
740: l_check := 0;
741:
734: FND_FILE.PUT_LINE(FND_FILE.LOG,'Business Group Name : '|| l_business_group_name);
735: FND_FILE.PUT_LINE(FND_FILE.LOG,'Running Mode : '|| l_mode);
736: FND_FILE.NEW_LINE(FND_FILE.LOG);
737: FND_FILE.PUT_LINE(FND_FILE.LOG,'-------------------------------------------------------------------------');
738: FND_FILE.NEW_LINE(FND_FILE.LOG);
739:
740: l_check := 0;
741:
742: FOR rec_addr in csr_get_auglb_adress loop
783: IF l_check_1 <> 0 or l_check_2 <> 0 or l_check_3 <> 0 or
784: l_check_4 <> 0 or l_check_5 <> 0 or l_check_6 <> 0 THEN
785:
786: for rec_person in csr_get_person (rec_addr.person_id, rec_addr.date_from) loop
787: FND_FILE.PUT_LINE(FND_FILE.LOG,rec_person.full_name ||'('||rec_person.employee_number||') has invalid/incomplete Australian address data effective from '||rec_addr.date_from);
788: if l_check_1 = 1 then FND_FILE.PUT_LINE(FND_FILE.LOG,' Address Line 1 is NULL or has more than 38 characters'); end if;
789: if l_check_2 = 1 then FND_FILE.PUT_LINE(FND_FILE.LOG,' Address Line 2 together with Address Line 3 has more than 38 characters'); end if;
790: if l_check_3 = 1 then FND_FILE.PUT_LINE(FND_FILE.LOG,' City is NULL or has more than 27 characters'); end if;
791: if l_check_4 = 1 then FND_FILE.PUT_LINE(FND_FILE.LOG,' State is NULL or has invalid value'); end if;
784: l_check_4 <> 0 or l_check_5 <> 0 or l_check_6 <> 0 THEN
785:
786: for rec_person in csr_get_person (rec_addr.person_id, rec_addr.date_from) loop
787: FND_FILE.PUT_LINE(FND_FILE.LOG,rec_person.full_name ||'('||rec_person.employee_number||') has invalid/incomplete Australian address data effective from '||rec_addr.date_from);
788: if l_check_1 = 1 then FND_FILE.PUT_LINE(FND_FILE.LOG,' Address Line 1 is NULL or has more than 38 characters'); end if;
789: if l_check_2 = 1 then FND_FILE.PUT_LINE(FND_FILE.LOG,' Address Line 2 together with Address Line 3 has more than 38 characters'); end if;
790: if l_check_3 = 1 then FND_FILE.PUT_LINE(FND_FILE.LOG,' City is NULL or has more than 27 characters'); end if;
791: if l_check_4 = 1 then FND_FILE.PUT_LINE(FND_FILE.LOG,' State is NULL or has invalid value'); end if;
792: if l_check_5 = 1 then FND_FILE.PUT_LINE(FND_FILE.LOG,' Postal Code is NULL or 9999'); end if;
785:
786: for rec_person in csr_get_person (rec_addr.person_id, rec_addr.date_from) loop
787: FND_FILE.PUT_LINE(FND_FILE.LOG,rec_person.full_name ||'('||rec_person.employee_number||') has invalid/incomplete Australian address data effective from '||rec_addr.date_from);
788: if l_check_1 = 1 then FND_FILE.PUT_LINE(FND_FILE.LOG,' Address Line 1 is NULL or has more than 38 characters'); end if;
789: if l_check_2 = 1 then FND_FILE.PUT_LINE(FND_FILE.LOG,' Address Line 2 together with Address Line 3 has more than 38 characters'); end if;
790: if l_check_3 = 1 then FND_FILE.PUT_LINE(FND_FILE.LOG,' City is NULL or has more than 27 characters'); end if;
791: if l_check_4 = 1 then FND_FILE.PUT_LINE(FND_FILE.LOG,' State is NULL or has invalid value'); end if;
792: if l_check_5 = 1 then FND_FILE.PUT_LINE(FND_FILE.LOG,' Postal Code is NULL or 9999'); end if;
793: if l_check_6 = 1 then FND_FILE.PUT_LINE(FND_FILE.LOG,' Country is NULL or NOT Australia'); end if;
786: for rec_person in csr_get_person (rec_addr.person_id, rec_addr.date_from) loop
787: FND_FILE.PUT_LINE(FND_FILE.LOG,rec_person.full_name ||'('||rec_person.employee_number||') has invalid/incomplete Australian address data effective from '||rec_addr.date_from);
788: if l_check_1 = 1 then FND_FILE.PUT_LINE(FND_FILE.LOG,' Address Line 1 is NULL or has more than 38 characters'); end if;
789: if l_check_2 = 1 then FND_FILE.PUT_LINE(FND_FILE.LOG,' Address Line 2 together with Address Line 3 has more than 38 characters'); end if;
790: if l_check_3 = 1 then FND_FILE.PUT_LINE(FND_FILE.LOG,' City is NULL or has more than 27 characters'); end if;
791: if l_check_4 = 1 then FND_FILE.PUT_LINE(FND_FILE.LOG,' State is NULL or has invalid value'); end if;
792: if l_check_5 = 1 then FND_FILE.PUT_LINE(FND_FILE.LOG,' Postal Code is NULL or 9999'); end if;
793: if l_check_6 = 1 then FND_FILE.PUT_LINE(FND_FILE.LOG,' Country is NULL or NOT Australia'); end if;
794: end loop;
787: FND_FILE.PUT_LINE(FND_FILE.LOG,rec_person.full_name ||'('||rec_person.employee_number||') has invalid/incomplete Australian address data effective from '||rec_addr.date_from);
788: if l_check_1 = 1 then FND_FILE.PUT_LINE(FND_FILE.LOG,' Address Line 1 is NULL or has more than 38 characters'); end if;
789: if l_check_2 = 1 then FND_FILE.PUT_LINE(FND_FILE.LOG,' Address Line 2 together with Address Line 3 has more than 38 characters'); end if;
790: if l_check_3 = 1 then FND_FILE.PUT_LINE(FND_FILE.LOG,' City is NULL or has more than 27 characters'); end if;
791: if l_check_4 = 1 then FND_FILE.PUT_LINE(FND_FILE.LOG,' State is NULL or has invalid value'); end if;
792: if l_check_5 = 1 then FND_FILE.PUT_LINE(FND_FILE.LOG,' Postal Code is NULL or 9999'); end if;
793: if l_check_6 = 1 then FND_FILE.PUT_LINE(FND_FILE.LOG,' Country is NULL or NOT Australia'); end if;
794: end loop;
795:
788: if l_check_1 = 1 then FND_FILE.PUT_LINE(FND_FILE.LOG,' Address Line 1 is NULL or has more than 38 characters'); end if;
789: if l_check_2 = 1 then FND_FILE.PUT_LINE(FND_FILE.LOG,' Address Line 2 together with Address Line 3 has more than 38 characters'); end if;
790: if l_check_3 = 1 then FND_FILE.PUT_LINE(FND_FILE.LOG,' City is NULL or has more than 27 characters'); end if;
791: if l_check_4 = 1 then FND_FILE.PUT_LINE(FND_FILE.LOG,' State is NULL or has invalid value'); end if;
792: if l_check_5 = 1 then FND_FILE.PUT_LINE(FND_FILE.LOG,' Postal Code is NULL or 9999'); end if;
793: if l_check_6 = 1 then FND_FILE.PUT_LINE(FND_FILE.LOG,' Country is NULL or NOT Australia'); end if;
794: end loop;
795:
796: ELSE
789: if l_check_2 = 1 then FND_FILE.PUT_LINE(FND_FILE.LOG,' Address Line 2 together with Address Line 3 has more than 38 characters'); end if;
790: if l_check_3 = 1 then FND_FILE.PUT_LINE(FND_FILE.LOG,' City is NULL or has more than 27 characters'); end if;
791: if l_check_4 = 1 then FND_FILE.PUT_LINE(FND_FILE.LOG,' State is NULL or has invalid value'); end if;
792: if l_check_5 = 1 then FND_FILE.PUT_LINE(FND_FILE.LOG,' Postal Code is NULL or 9999'); end if;
793: if l_check_6 = 1 then FND_FILE.PUT_LINE(FND_FILE.LOG,' Country is NULL or NOT Australia'); end if;
794: end loop;
795:
796: ELSE
797:
795:
796: ELSE
797:
798: for rec_person in csr_get_person (rec_addr.person_id, rec_addr.date_from) loop
799: FND_FILE.PUT_LINE(FND_FILE.LOG,rec_person.full_name ||'('||rec_person.employee_number||') has valid Australian address data effective from '||rec_addr.date_from);
800: end loop;
801:
802: END IF;
803:
807:
808: END LOOP;
809:
810: if p_mode = 'V' and l_check = 0 then
811: FND_FILE.NEW_LINE(FND_FILE.LOG);
812: FND_FILE.PUT_LINE(FND_FILE.LOG,'-------------------------------------------------------------------------');
813: FND_FILE.PUT_LINE(FND_FILE.LOG,'No Invalid / Incomplete Australia (International) address is found');
814: end if;
815:
808: END LOOP;
809:
810: if p_mode = 'V' and l_check = 0 then
811: FND_FILE.NEW_LINE(FND_FILE.LOG);
812: FND_FILE.PUT_LINE(FND_FILE.LOG,'-------------------------------------------------------------------------');
813: FND_FILE.PUT_LINE(FND_FILE.LOG,'No Invalid / Incomplete Australia (International) address is found');
814: end if;
815:
816: IF p_mode <> 'V' and l_check = 0 THEN /* Update mode */
809:
810: if p_mode = 'V' and l_check = 0 then
811: FND_FILE.NEW_LINE(FND_FILE.LOG);
812: FND_FILE.PUT_LINE(FND_FILE.LOG,'-------------------------------------------------------------------------');
813: FND_FILE.PUT_LINE(FND_FILE.LOG,'No Invalid / Incomplete Australia (International) address is found');
814: end if;
815:
816: IF p_mode <> 'V' and l_check = 0 THEN /* Update mode */
817:
822: SET style = 'AU', address_line2 = rec_addr.address_line2||' '||rec_addr.address_line3, address_line3 = null
823: WHERE address_id = rec_addr.address_id;
824:
825: for rec_person in csr_get_person (rec_addr.person_id, rec_addr.date_from) loop
826: FND_FILE.PUT_LINE(FND_FILE.LOG,rec_person.full_name ||'('||rec_person.employee_number||') - address style is updated to Australia effective from '||rec_addr.date_from);
827: end loop;
828:
829: l_count := l_count + 1;
830:
829: l_count := l_count + 1;
830:
831: END LOOP;
832:
833: FND_FILE.NEW_LINE(FND_FILE.LOG);
834: FND_FILE.PUT_LINE(FND_FILE.LOG,'-------------------------------------------------------------------------');
835: FND_FILE.PUT_LINE(FND_FILE.LOG,l_count||' Australia (International) address styles are updated to Australia address style');
836:
837: END IF;
830:
831: END LOOP;
832:
833: FND_FILE.NEW_LINE(FND_FILE.LOG);
834: FND_FILE.PUT_LINE(FND_FILE.LOG,'-------------------------------------------------------------------------');
835: FND_FILE.PUT_LINE(FND_FILE.LOG,l_count||' Australia (International) address styles are updated to Australia address style');
836:
837: END IF;
838:
831: END LOOP;
832:
833: FND_FILE.NEW_LINE(FND_FILE.LOG);
834: FND_FILE.PUT_LINE(FND_FILE.LOG,'-------------------------------------------------------------------------');
835: FND_FILE.PUT_LINE(FND_FILE.LOG,l_count||' Australia (International) address styles are updated to Australia address style');
836:
837: END IF;
838:
839: exception
839: exception
840:
841: when e_bad_address then
842:
843: FND_FILE.PUT_LINE(FND_FILE.LOG,'There exist invalid/incomplete Australia (International) address data under the current business group.');
844: FND_FILE.PUT_LINE(FND_FILE.LOG,'Please run the concurrent program in Validate mode and correct the data first.');
845:
846: raise;
847:
840:
841: when e_bad_address then
842:
843: FND_FILE.PUT_LINE(FND_FILE.LOG,'There exist invalid/incomplete Australia (International) address data under the current business group.');
844: FND_FILE.PUT_LINE(FND_FILE.LOG,'Please run the concurrent program in Validate mode and correct the data first.');
845:
846: raise;
847:
848: when others then
849:
850: error_code :=SQLCODE;
851: error_message := SQLERRM ;
852:
853: FND_FILE.PUT_LINE(FND_FILE.LOG,' ***** ERRORS ***** ');
854: FND_FILE.PUT_LINE(FND_FILE.LOG,' Report to Oracle Support.');
855: FND_FILE.PUT_LINE(FND_FILE.LOG,error_code ||' : '||error_message);
856:
857: raise;
850: error_code :=SQLCODE;
851: error_message := SQLERRM ;
852:
853: FND_FILE.PUT_LINE(FND_FILE.LOG,' ***** ERRORS ***** ');
854: FND_FILE.PUT_LINE(FND_FILE.LOG,' Report to Oracle Support.');
855: FND_FILE.PUT_LINE(FND_FILE.LOG,error_code ||' : '||error_message);
856:
857: raise;
858:
851: error_message := SQLERRM ;
852:
853: FND_FILE.PUT_LINE(FND_FILE.LOG,' ***** ERRORS ***** ');
854: FND_FILE.PUT_LINE(FND_FILE.LOG,' Report to Oracle Support.');
855: FND_FILE.PUT_LINE(FND_FILE.LOG,error_code ||' : '||error_message);
856:
857: raise;
858:
859: end upgrade_AU_address_style;