143: OPEN C;
144: FETCH C INTO Recinfo;
145: If (C%NOTFOUND) then
146: CLOSE C;
147: FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
148: APP_EXCEPTION.RAISE_EXCEPTION;
149: End If;
150: CLOSE C;
151: if (
200: AND ( p_SECURITY_GROUP_ID IS NULL )))
201: ) then
202: return;
203: else
204: FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
205: APP_EXCEPTION.RAISE_EXCEPTION;
206: End If;
207: END Lock_Row;
208:
257: , x_end_date => l_period_end_date );
258:
259: IF NOT l_errflag THEN
260: l_errcnt := l_errcnt + 1;
261: fnd_message.set_name('ASF','ASF_FRCSTACT_LOG_PERIOD');
262: fnd_message.set_token('PERIOD_NAME',p_period_name);
263: l_log_msg := l_log_msg || fnd_message.get ;
264: END IF;
265:
258:
259: IF NOT l_errflag THEN
260: l_errcnt := l_errcnt + 1;
261: fnd_message.set_name('ASF','ASF_FRCSTACT_LOG_PERIOD');
262: fnd_message.set_token('PERIOD_NAME',p_period_name);
263: l_log_msg := l_log_msg || fnd_message.get ;
264: END IF;
265:
266: EXCEPTION
259: IF NOT l_errflag THEN
260: l_errcnt := l_errcnt + 1;
261: fnd_message.set_name('ASF','ASF_FRCSTACT_LOG_PERIOD');
262: fnd_message.set_token('PERIOD_NAME',p_period_name);
263: l_log_msg := l_log_msg || fnd_message.get ;
264: END IF;
265:
266: EXCEPTION
267: WHEN OTHERS THEN
278: , x_forecast_category_id => l_forecast_category_id ) ;
279:
280: IF NVL(l_forecast_category_id,0) = 0 THEN
281: l_errcnt := l_errcnt + 1;
282: fnd_message.set_name('ASF','ASF_FRCSTACT_LOG_FRCSTCAT');
283: fnd_message.set_token('FORECASTCATEGORY',p_forecast_category_name);
284: l_log_msg := l_log_msg || fnd_message.get ;
285: END IF;
286:
279:
280: IF NVL(l_forecast_category_id,0) = 0 THEN
281: l_errcnt := l_errcnt + 1;
282: fnd_message.set_name('ASF','ASF_FRCSTACT_LOG_FRCSTCAT');
283: fnd_message.set_token('FORECASTCATEGORY',p_forecast_category_name);
284: l_log_msg := l_log_msg || fnd_message.get ;
285: END IF;
286:
287: EXCEPTION
280: IF NVL(l_forecast_category_id,0) = 0 THEN
281: l_errcnt := l_errcnt + 1;
282: fnd_message.set_name('ASF','ASF_FRCSTACT_LOG_FRCSTCAT');
283: fnd_message.set_token('FORECASTCATEGORY',p_forecast_category_name);
284: l_log_msg := l_log_msg || fnd_message.get ;
285: END IF;
286:
287: EXCEPTION
288: WHEN OTHERS THEN
297: , x_credit_type_id => l_credit_type_id );
298:
299: IF NVL(l_credit_type_id,0) = 0 THEN
300: l_errcnt := l_errcnt + 1;
301: fnd_message.set_name('ASF','ASF_FRCSTACT_LOG_CREDITTYPE');
302: fnd_message.set_token('CREDITTYPE',p_credit_type_name);
303: l_log_msg := l_log_msg || fnd_message.get ;
304: END IF;
305:
298:
299: IF NVL(l_credit_type_id,0) = 0 THEN
300: l_errcnt := l_errcnt + 1;
301: fnd_message.set_name('ASF','ASF_FRCSTACT_LOG_CREDITTYPE');
302: fnd_message.set_token('CREDITTYPE',p_credit_type_name);
303: l_log_msg := l_log_msg || fnd_message.get ;
304: END IF;
305:
306: EXCEPTION
299: IF NVL(l_credit_type_id,0) = 0 THEN
300: l_errcnt := l_errcnt + 1;
301: fnd_message.set_name('ASF','ASF_FRCSTACT_LOG_CREDITTYPE');
302: fnd_message.set_token('CREDITTYPE',p_credit_type_name);
303: l_log_msg := l_log_msg || fnd_message.get ;
304: END IF;
305:
306: EXCEPTION
307: WHEN OTHERS THEN
319: ) ;
320:
321: IF NVL(l_sales_group_id,0) = 0 THEN
322: l_errcnt := l_errcnt + 1;
323: fnd_message.set_name('ASF','ASF_FRCSTACT_LOG_SLSGRP');
324: fnd_message.set_token('SALESGROUP',p_sales_group_number);
325: l_log_msg := l_log_msg || fnd_message.get ;
326: END IF;
327:
320:
321: IF NVL(l_sales_group_id,0) = 0 THEN
322: l_errcnt := l_errcnt + 1;
323: fnd_message.set_name('ASF','ASF_FRCSTACT_LOG_SLSGRP');
324: fnd_message.set_token('SALESGROUP',p_sales_group_number);
325: l_log_msg := l_log_msg || fnd_message.get ;
326: END IF;
327:
328: EXCEPTION
321: IF NVL(l_sales_group_id,0) = 0 THEN
322: l_errcnt := l_errcnt + 1;
323: fnd_message.set_name('ASF','ASF_FRCSTACT_LOG_SLSGRP');
324: fnd_message.set_token('SALESGROUP',p_sales_group_number);
325: l_log_msg := l_log_msg || fnd_message.get ;
326: END IF;
327:
328: EXCEPTION
329: WHEN OTHERS THEN
346: ) ;
347:
348: IF NVL(l_salesforce_id,0) = 0 THEN
349: l_errcnt := l_errcnt + 1;
350: fnd_message.set_name('ASF','ASF_FRCSTACT_LOG_SLSPERSON');
351: fnd_message.set_token('SALESPERSON',p_salesforce_number);
352: l_log_msg := l_log_msg || fnd_message.get ;
353: END IF;
354: END IF; -- sales group
347:
348: IF NVL(l_salesforce_id,0) = 0 THEN
349: l_errcnt := l_errcnt + 1;
350: fnd_message.set_name('ASF','ASF_FRCSTACT_LOG_SLSPERSON');
351: fnd_message.set_token('SALESPERSON',p_salesforce_number);
352: l_log_msg := l_log_msg || fnd_message.get ;
353: END IF;
354: END IF; -- sales group
355: END IF;
348: IF NVL(l_salesforce_id,0) = 0 THEN
349: l_errcnt := l_errcnt + 1;
350: fnd_message.set_name('ASF','ASF_FRCSTACT_LOG_SLSPERSON');
351: fnd_message.set_token('SALESPERSON',p_salesforce_number);
352: l_log_msg := l_log_msg || fnd_message.get ;
353: END IF;
354: END IF; -- sales group
355: END IF;
356: EXCEPTION
366: , x_currency_flag => l_errflag);
367:
368: IF NOT l_errflag THEN
369: l_errcnt := l_errcnt + 1;
370: fnd_message.set_name('ASF','ASF_FRCSTACT_LOG_CURR');
371: fnd_message.set_token('CURRENCY',p_currency_code);
372: l_log_msg := l_log_msg || fnd_message.get ;
373: END IF;
374:
367:
368: IF NOT l_errflag THEN
369: l_errcnt := l_errcnt + 1;
370: fnd_message.set_name('ASF','ASF_FRCSTACT_LOG_CURR');
371: fnd_message.set_token('CURRENCY',p_currency_code);
372: l_log_msg := l_log_msg || fnd_message.get ;
373: END IF;
374:
375: EXCEPTION
368: IF NOT l_errflag THEN
369: l_errcnt := l_errcnt + 1;
370: fnd_message.set_name('ASF','ASF_FRCSTACT_LOG_CURR');
371: fnd_message.set_token('CURRENCY',p_currency_code);
372: l_log_msg := l_log_msg || fnd_message.get ;
373: END IF;
374:
375: EXCEPTION
376: WHEN OTHERS THEN
447:
448: END IF; -- if forecast actual ID is obtained
449:
450: ELSE -- error in validating IDs
451: fnd_message.set_name('ASF','ASF_FRCSTACT_LOG_LINE');
452: fnd_message.set_token('LINE',p_line_number);
453: l_log_msg := fnd_message.get||l_log_msg;
454: UTL_FILE.PUT_LINE(p_filehandle, l_log_msg) ;
455: l_log_msg := l_log_msg;
448: END IF; -- if forecast actual ID is obtained
449:
450: ELSE -- error in validating IDs
451: fnd_message.set_name('ASF','ASF_FRCSTACT_LOG_LINE');
452: fnd_message.set_token('LINE',p_line_number);
453: l_log_msg := fnd_message.get||l_log_msg;
454: UTL_FILE.PUT_LINE(p_filehandle, l_log_msg) ;
455: l_log_msg := l_log_msg;
456: create_loglob(l_log_msg
449:
450: ELSE -- error in validating IDs
451: fnd_message.set_name('ASF','ASF_FRCSTACT_LOG_LINE');
452: fnd_message.set_token('LINE',p_line_number);
453: l_log_msg := fnd_message.get||l_log_msg;
454: UTL_FILE.PUT_LINE(p_filehandle, l_log_msg) ;
455: l_log_msg := l_log_msg;
456: create_loglob(l_log_msg
457: ,null
792: ,p_file_id
793: ,'W'
794: ,FALSE);
795: end;
796: fnd_message.set_name('ASF','ASF_FRCSTACT_LOG_HDR');
797: fnd_message.set_token('DATETIME',to_Char(sysdate, 'DD-MON-RR HH24:MI:SS'));
798: fnd_message.set_token('USER',p_created_by);
799: fnd_message.set_token('FILENAME', l_file_name);
800: l_header := fnd_message.get;
793: ,'W'
794: ,FALSE);
795: end;
796: fnd_message.set_name('ASF','ASF_FRCSTACT_LOG_HDR');
797: fnd_message.set_token('DATETIME',to_Char(sysdate, 'DD-MON-RR HH24:MI:SS'));
798: fnd_message.set_token('USER',p_created_by);
799: fnd_message.set_token('FILENAME', l_file_name);
800: l_header := fnd_message.get;
801: UTL_FILE.PUT_LINE(l_file_handle, l_header);
794: ,FALSE);
795: end;
796: fnd_message.set_name('ASF','ASF_FRCSTACT_LOG_HDR');
797: fnd_message.set_token('DATETIME',to_Char(sysdate, 'DD-MON-RR HH24:MI:SS'));
798: fnd_message.set_token('USER',p_created_by);
799: fnd_message.set_token('FILENAME', l_file_name);
800: l_header := fnd_message.get;
801: UTL_FILE.PUT_LINE(l_file_handle, l_header);
802: UTL_FILE.NEW_LINE(l_file_handle, 1);
795: end;
796: fnd_message.set_name('ASF','ASF_FRCSTACT_LOG_HDR');
797: fnd_message.set_token('DATETIME',to_Char(sysdate, 'DD-MON-RR HH24:MI:SS'));
798: fnd_message.set_token('USER',p_created_by);
799: fnd_message.set_token('FILENAME', l_file_name);
800: l_header := fnd_message.get;
801: UTL_FILE.PUT_LINE(l_file_handle, l_header);
802: UTL_FILE.NEW_LINE(l_file_handle, 1);
803:
796: fnd_message.set_name('ASF','ASF_FRCSTACT_LOG_HDR');
797: fnd_message.set_token('DATETIME',to_Char(sysdate, 'DD-MON-RR HH24:MI:SS'));
798: fnd_message.set_token('USER',p_created_by);
799: fnd_message.set_token('FILENAME', l_file_name);
800: l_header := fnd_message.get;
801: UTL_FILE.PUT_LINE(l_file_handle, l_header);
802: UTL_FILE.NEW_LINE(l_file_handle, 1);
803:
804: create_loglob(l_header
925:
926: end if;
927: exception
928: when others then
929: fnd_message.set_name('ASF','ASF_FRCSTACT_LOG_LINE');
930: fnd_message.set_token('LINE',l_line_number);
931: UTL_FILE.PUT_LINE(l_file_handle, fnd_message.get||sqlerrm) ;
932: l_exception := fnd_message.get||sqlerrm;
933: create_loglob(l_exception
926: end if;
927: exception
928: when others then
929: fnd_message.set_name('ASF','ASF_FRCSTACT_LOG_LINE');
930: fnd_message.set_token('LINE',l_line_number);
931: UTL_FILE.PUT_LINE(l_file_handle, fnd_message.get||sqlerrm) ;
932: l_exception := fnd_message.get||sqlerrm;
933: create_loglob(l_exception
934: ,null
927: exception
928: when others then
929: fnd_message.set_name('ASF','ASF_FRCSTACT_LOG_LINE');
930: fnd_message.set_token('LINE',l_line_number);
931: UTL_FILE.PUT_LINE(l_file_handle, fnd_message.get||sqlerrm) ;
932: l_exception := fnd_message.get||sqlerrm;
933: create_loglob(l_exception
934: ,null
935: ,'W'
928: when others then
929: fnd_message.set_name('ASF','ASF_FRCSTACT_LOG_LINE');
930: fnd_message.set_token('LINE',l_line_number);
931: UTL_FILE.PUT_LINE(l_file_handle, fnd_message.get||sqlerrm) ;
932: l_exception := fnd_message.get||sqlerrm;
933: create_loglob(l_exception
934: ,null
935: ,'W'
936: ,FALSE);
986: lv_amount_var := l_lob_len;
987: End if;
988: l_lob_data := '';
989: END LOOP;
990: fnd_message.set_name('ASF','ASF_FRCSTACT_LOG_FOOTER');
991: fnd_message.set_token('DATETIME',to_Char(sysdate, 'DD-MON-RR HH24:MI:SS'));
992: fnd_message.set_token('LINE',l_line_number);
993: fnd_message.set_token('ERROR',g_line_error);
994: l_footer := fnd_message.get;
987: End if;
988: l_lob_data := '';
989: END LOOP;
990: fnd_message.set_name('ASF','ASF_FRCSTACT_LOG_FOOTER');
991: fnd_message.set_token('DATETIME',to_Char(sysdate, 'DD-MON-RR HH24:MI:SS'));
992: fnd_message.set_token('LINE',l_line_number);
993: fnd_message.set_token('ERROR',g_line_error);
994: l_footer := fnd_message.get;
995: UTL_FILE.NEW_LINE(l_file_handle, 1);
988: l_lob_data := '';
989: END LOOP;
990: fnd_message.set_name('ASF','ASF_FRCSTACT_LOG_FOOTER');
991: fnd_message.set_token('DATETIME',to_Char(sysdate, 'DD-MON-RR HH24:MI:SS'));
992: fnd_message.set_token('LINE',l_line_number);
993: fnd_message.set_token('ERROR',g_line_error);
994: l_footer := fnd_message.get;
995: UTL_FILE.NEW_LINE(l_file_handle, 1);
996: UTL_FILE.PUT_LINE(l_file_handle, l_footer ) ;
989: END LOOP;
990: fnd_message.set_name('ASF','ASF_FRCSTACT_LOG_FOOTER');
991: fnd_message.set_token('DATETIME',to_Char(sysdate, 'DD-MON-RR HH24:MI:SS'));
992: fnd_message.set_token('LINE',l_line_number);
993: fnd_message.set_token('ERROR',g_line_error);
994: l_footer := fnd_message.get;
995: UTL_FILE.NEW_LINE(l_file_handle, 1);
996: UTL_FILE.PUT_LINE(l_file_handle, l_footer ) ;
997: l_footer := l_footer;
990: fnd_message.set_name('ASF','ASF_FRCSTACT_LOG_FOOTER');
991: fnd_message.set_token('DATETIME',to_Char(sysdate, 'DD-MON-RR HH24:MI:SS'));
992: fnd_message.set_token('LINE',l_line_number);
993: fnd_message.set_token('ERROR',g_line_error);
994: l_footer := fnd_message.get;
995: UTL_FILE.NEW_LINE(l_file_handle, 1);
996: UTL_FILE.PUT_LINE(l_file_handle, l_footer ) ;
997: l_footer := l_footer;
998: create_loglob(l_footer