298: retcode := 0;
299: l_cal_type := LTRIM(RTRIM(SUBSTR(p_award_year,1,10)));
300: l_seq_number := TO_NUMBER(SUBSTR(p_award_year,11));
301:
302: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
303: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_cal_type:'||l_cal_type);
304: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_seq_number:'||l_seq_number);
305: END IF;
306:
299: l_cal_type := LTRIM(RTRIM(SUBSTR(p_award_year,1,10)));
300: l_seq_number := TO_NUMBER(SUBSTR(p_award_year,11));
301:
302: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
303: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_cal_type:'||l_cal_type);
304: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_seq_number:'||l_seq_number);
305: END IF;
306:
307: l_error := igf_ap_gen.get_lookup_meaning('IGF_AW_LOOKUPS_MSG','ERROR');
300: l_seq_number := TO_NUMBER(SUBSTR(p_award_year,11));
301:
302: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
303: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_cal_type:'||l_cal_type);
304: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_seq_number:'||l_seq_number);
305: END IF;
306:
307: l_error := igf_ap_gen.get_lookup_meaning('IGF_AW_LOOKUPS_MSG','ERROR');
308: l_chk_profile := igf_ap_gen.check_profile;
348: BEGIN
349: SAVEPOINT sp1;
350: FETCH c_get_records INTO l_get_records;
351: EXIT WHEN c_get_records%NOTFOUND;
352: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
353: l_debug_str := 'Person Number is:' || l_get_records.person_number;
354: END IF;
355:
356: lv_base_id := NULL;
355:
356: lv_base_id := NULL;
357: lv_person_id := NULL;
358: l_create_flag := FALSE;
359: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
360: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','Calling igf_ap_gen.check_person');
361: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_get_records.person_number:'||l_get_records.person_number);
362: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_cal_type:'||l_cal_type);
363: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_seq_number:'||l_seq_number);
356: lv_base_id := NULL;
357: lv_person_id := NULL;
358: l_create_flag := FALSE;
359: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
360: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','Calling igf_ap_gen.check_person');
361: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_get_records.person_number:'||l_get_records.person_number);
362: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_cal_type:'||l_cal_type);
363: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_seq_number:'||l_seq_number);
364: END IF;
357: lv_person_id := NULL;
358: l_create_flag := FALSE;
359: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
360: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','Calling igf_ap_gen.check_person');
361: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_get_records.person_number:'||l_get_records.person_number);
362: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_cal_type:'||l_cal_type);
363: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_seq_number:'||l_seq_number);
364: END IF;
365: igf_ap_gen.check_person(l_get_records.person_number,l_cal_type,l_seq_number,lv_person_id,lv_base_id);
358: l_create_flag := FALSE;
359: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
360: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','Calling igf_ap_gen.check_person');
361: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_get_records.person_number:'||l_get_records.person_number);
362: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_cal_type:'||l_cal_type);
363: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_seq_number:'||l_seq_number);
364: END IF;
365: igf_ap_gen.check_person(l_get_records.person_number,l_cal_type,l_seq_number,lv_person_id,lv_base_id);
366: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
359: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
360: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','Calling igf_ap_gen.check_person');
361: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_get_records.person_number:'||l_get_records.person_number);
362: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_cal_type:'||l_cal_type);
363: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_seq_number:'||l_seq_number);
364: END IF;
365: igf_ap_gen.check_person(l_get_records.person_number,l_cal_type,l_seq_number,lv_person_id,lv_base_id);
366: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
367: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','lv_person_id:'||lv_person_id);
362: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_cal_type:'||l_cal_type);
363: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_seq_number:'||l_seq_number);
364: END IF;
365: igf_ap_gen.check_person(l_get_records.person_number,l_cal_type,l_seq_number,lv_person_id,lv_base_id);
366: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
367: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','lv_person_id:'||lv_person_id);
368: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','lv_base_id:'||lv_base_id);
369: END IF;
370:
363: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_seq_number:'||l_seq_number);
364: END IF;
365: igf_ap_gen.check_person(l_get_records.person_number,l_cal_type,l_seq_number,lv_person_id,lv_base_id);
366: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
367: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','lv_person_id:'||lv_person_id);
368: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','lv_base_id:'||lv_base_id);
369: END IF;
370:
371: IF lv_person_id IS NULL THEN
364: END IF;
365: igf_ap_gen.check_person(l_get_records.person_number,l_cal_type,l_seq_number,lv_person_id,lv_base_id);
366: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
367: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','lv_person_id:'||lv_person_id);
368: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','lv_base_id:'||lv_base_id);
369: END IF;
370:
371: IF lv_person_id IS NULL THEN
372: fnd_message.set_name('IGF','IGF_AP_PE_NOT_EXIST');
377: l_create_flag := TRUE;
378: END IF;
379: END IF;
380:
381: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
382: l_debug_str := l_debug_str || ' Person and Base ID check passed';
383: END IF;
384:
385: l_baseid_exists := NULL;
395: fnd_message.set_name('IGF','IGF_AP_LI_APS_DT_INVALID');
396: fnd_message.set_token('APS_DT',l_get_records.award_process_status_date);
397: add_log_table_process(l_get_records.person_number,l_error,fnd_message.get);
398: l_error_flag := TRUE;
399: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
400: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','Award process status date is invalid');
401: END IF;
402: END IF;
403:
396: fnd_message.set_token('APS_DT',l_get_records.award_process_status_date);
397: add_log_table_process(l_get_records.person_number,l_error,fnd_message.get);
398: l_error_flag := TRUE;
399: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
400: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','Award process status date is invalid');
401: END IF;
402: END IF;
403:
404: -- VALIDATION FOR THE AWARD NOTIFICATION STATUS NULL IS ALSO VALID
406: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
407: fnd_message.set_token('FIELD','AWARD_NOTIFY_STATUS');
408: add_log_table_process(l_get_records.person_number,l_error,fnd_message.get);
409: l_error_flag := TRUE;
410: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
411: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','Award notification status is invalid');
412: END IF;
413: END IF;
414:
407: fnd_message.set_token('FIELD','AWARD_NOTIFY_STATUS');
408: add_log_table_process(l_get_records.person_number,l_error,fnd_message.get);
409: l_error_flag := TRUE;
410: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
411: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','Award notification status is invalid');
412: END IF;
413: END IF;
414:
415: -- VALIDATION FOR AWARD NOTIFICATION STATUS DATE
417: fnd_message.set_name('IGF','IGF_AP_LI_ANS_DT_INVALID');
418: fnd_message.set_token('AWD_NOT_STAT_DT',l_get_records.award_notify_status_date);
419: add_log_table_process(l_get_records.person_number,l_error,fnd_message.get);
420: l_error_flag := TRUE;
421: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
422: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','Award notification status date in invalid');
423: END IF;
424: END IF;
425:
418: fnd_message.set_token('AWD_NOT_STAT_DT',l_get_records.award_notify_status_date);
419: add_log_table_process(l_get_records.person_number,l_error,fnd_message.get);
420: l_error_flag := TRUE;
421: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
422: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','Award notification status date in invalid');
423: END IF;
424: END IF;
425:
426: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
422: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','Award notification status date in invalid');
423: END IF;
424: END IF;
425:
426: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
427: l_debug_str := l_debug_str || ' AWARD PROCESS AND NOTIFICATION STATUS DATE passed';
428: END IF;
429:
430: -- VALIDATION FOR OVERRIDE NSLDS DEFAULT
432: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
433: fnd_message.set_token('FIELD','OVERRIDE_NSLDS_FLAG');
434: add_log_table_process(l_get_records.person_number,l_error,fnd_message.get);
435: l_error_flag := TRUE;
436: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
437: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','Override NSLDS flag value is invalid');
438: END IF;
439: END IF;
440:
433: fnd_message.set_token('FIELD','OVERRIDE_NSLDS_FLAG');
434: add_log_table_process(l_get_records.person_number,l_error,fnd_message.get);
435: l_error_flag := TRUE;
436: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
437: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','Override NSLDS flag value is invalid');
438: END IF;
439: END IF;
440:
441: -- VALIDATION FOR PROFESSIONAL JUDGEMENT
443: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
444: fnd_message.set_token('FIELD','PROFESSIONAL_JUDGMENT_FLAG');
445: add_log_table_process(l_get_records.person_number,l_error,fnd_message.get);
446: l_error_flag := TRUE;
447: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
448: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','Professional Judgement flag value is invalid');
449: END IF;
450: END IF;
451:
444: fnd_message.set_token('FIELD','PROFESSIONAL_JUDGMENT_FLAG');
445: add_log_table_process(l_get_records.person_number,l_error,fnd_message.get);
446: l_error_flag := TRUE;
447: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
448: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','Professional Judgement flag value is invalid');
449: END IF;
450: END IF;
451:
452: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
448: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','Professional Judgement flag value is invalid');
449: END IF;
450: END IF;
451:
452: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
453: l_debug_str := l_debug_str || ' PROFESSIONAL JUDGEMENT passed';
454: END IF;
455:
456: -- VALIDATION FOR VERIFICATION HOLD ON DISBURSEMENT
458: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
459: fnd_message.set_token('FIELD','DISBURSE_VERIFICATION_HOLD');
460: add_log_table_process(l_get_records.person_number,l_error,fnd_message.get);
461: l_error_flag := TRUE;
462: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
463: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','Disburse verification flag value is invalid');
464: END IF;
465: END IF;
466:
459: fnd_message.set_token('FIELD','DISBURSE_VERIFICATION_HOLD');
460: add_log_table_process(l_get_records.person_number,l_error,fnd_message.get);
461: l_error_flag := TRUE;
462: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
463: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','Disburse verification flag value is invalid');
464: END IF;
465: END IF;
466:
467: -- VALIDATION FOR AWARD PROCESS STATUS NULL IS ALSO VALID
469: fnd_message.set_name('IGF','IGF_AP_INV_FLD_VAL');
470: fnd_message.set_token('FIELD','AWARD_PROCESS_STATUS_CODE');
471: add_log_table_process(l_get_records.person_number,l_error,fnd_message.get);
472: l_error_flag := TRUE;
473: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
474: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','award process status is invalid');
475: END IF;
476: END IF;
477:
470: fnd_message.set_token('FIELD','AWARD_PROCESS_STATUS_CODE');
471: add_log_table_process(l_get_records.person_number,l_error,fnd_message.get);
472: l_error_flag := TRUE;
473: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
474: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','award process status is invalid');
475: END IF;
476: END IF;
477:
478: l_process_status := NULL;
479: l_process_date := NULL;
480: IF NOT l_create_flag THEN
481: l_process_status := l_baseid_exists.packaging_status;
482: l_process_date := l_baseid_exists.packaging_status_date;
483: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
484: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_process_status:'||l_process_status);
485: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_process_date:'||l_process_date);
486: END IF;
487: ELSE
480: IF NOT l_create_flag THEN
481: l_process_status := l_baseid_exists.packaging_status;
482: l_process_date := l_baseid_exists.packaging_status_date;
483: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
484: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_process_status:'||l_process_status);
485: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_process_date:'||l_process_date);
486: END IF;
487: ELSE
488: l_process_status := l_get_records.award_process_status_code;
481: l_process_status := l_baseid_exists.packaging_status;
482: l_process_date := l_baseid_exists.packaging_status_date;
483: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
484: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_process_status:'||l_process_status);
485: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_process_date:'||l_process_date);
486: END IF;
487: ELSE
488: l_process_status := l_get_records.award_process_status_code;
489: l_process_date := l_get_records.award_process_status_date;
498: CLOSE c_chk_legacy_awd;
499: IF l_chk_legacy_awd.base_id IS NOT NULL THEN
500: l_process_status := l_get_records.award_process_status_code;
501: l_process_date := l_get_records.award_process_status_date;
502: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
503: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_chk_legacy_awd.base_id:'||l_chk_legacy_awd.base_id);
504: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_process_status:'||l_process_status);
505: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_process_date:'||l_process_date);
506: END IF;
499: IF l_chk_legacy_awd.base_id IS NOT NULL THEN
500: l_process_status := l_get_records.award_process_status_code;
501: l_process_date := l_get_records.award_process_status_date;
502: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
503: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_chk_legacy_awd.base_id:'||l_chk_legacy_awd.base_id);
504: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_process_status:'||l_process_status);
505: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_process_date:'||l_process_date);
506: END IF;
507: END IF;
500: l_process_status := l_get_records.award_process_status_code;
501: l_process_date := l_get_records.award_process_status_date;
502: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
503: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_chk_legacy_awd.base_id:'||l_chk_legacy_awd.base_id);
504: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_process_status:'||l_process_status);
505: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_process_date:'||l_process_date);
506: END IF;
507: END IF;
508: END IF;
501: l_process_date := l_get_records.award_process_status_date;
502: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
503: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_chk_legacy_awd.base_id:'||l_chk_legacy_awd.base_id);
504: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_process_status:'||l_process_status);
505: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_process_date:'||l_process_date);
506: END IF;
507: END IF;
508: END IF;
509: END IF;
507: END IF;
508: END IF;
509: END IF;
510:
511: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
512: l_debug_str := l_debug_str || ' AWARD PROCESS STATUS passed';
513: END IF;
514:
515: IF NOT l_error_flag THEN
513: END IF;
514:
515: IF NOT l_error_flag THEN
516: IF NOT l_create_flag THEN
517: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
518: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_create_flag:FALSE');
519: END IF;
520: -- update the fa base record
521: igf_ap_fa_base_rec_pkg.update_row(
514:
515: IF NOT l_error_flag THEN
516: IF NOT l_create_flag THEN
517: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
518: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_create_flag:FALSE');
519: END IF;
520: -- update the fa base record
521: igf_ap_fa_base_rec_pkg.update_row(
522: x_Mode => 'R' ,
632: x_lock_awd_flag => l_baseid_exists.lock_awd_flag,
633: x_lock_coa_flag => l_baseid_exists.lock_coa_flag
634: );
635: ELSE
636: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
637: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_create_flag:TRUE');
638: END IF;
639: --insert new base record
640: l_base_id := NULL;
633: x_lock_coa_flag => l_baseid_exists.lock_coa_flag
634: );
635: ELSE
636: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
637: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_create_flag:TRUE');
638: END IF;
639: --insert new base record
640: l_base_id := NULL;
641: l_row_id := NULL;
778: );
779:
780: END IF;
781:
782: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
783: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_base_id:'||l_base_id);
784: END IF;
785: END IF;
786: fnd_message.set_name('IGS','IGS_EN_LGCY_SUCCESS');
779:
780: END IF;
781:
782: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
783: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','l_base_id:'||l_base_id);
784: END IF;
785: END IF;
786: fnd_message.set_name('IGS','IGS_EN_LGCY_SUCCESS');
787: add_log_table_process(l_get_records.person_number,' ',fnd_message.get);
802: program_id = fnd_global.conc_program_id,
803: program_application_id = fnd_global.prog_appl_id,
804: program_update_date = SYSDATE
805: WHERE ROWID = l_get_records.ROW_ID;
806: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
807: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','updating igf_ap_li_fa_ints(E) with rowid:'||l_get_records.ROW_ID);
808: END IF;
809: ELSE
810: IF p_del_ind = 'Y' THEN
803: program_application_id = fnd_global.prog_appl_id,
804: program_update_date = SYSDATE
805: WHERE ROWID = l_get_records.ROW_ID;
806: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
807: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','updating igf_ap_li_fa_ints(E) with rowid:'||l_get_records.ROW_ID);
808: END IF;
809: ELSE
810: IF p_del_ind = 'Y' THEN
811: DELETE FROM igf_ap_li_fab_ints
809: ELSE
810: IF p_del_ind = 'Y' THEN
811: DELETE FROM igf_ap_li_fab_ints
812: WHERE ROWID = l_get_records.ROW_ID;
813: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
814: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','deleting igf_ap_li_fa_ints with rowid:'||l_get_records.ROW_ID);
815: END IF;
816: ELSE
817: --update the legacy interface table column import_status to 'I'
810: IF p_del_ind = 'Y' THEN
811: DELETE FROM igf_ap_li_fab_ints
812: WHERE ROWID = l_get_records.ROW_ID;
813: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
814: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','deleting igf_ap_li_fa_ints with rowid:'||l_get_records.ROW_ID);
815: END IF;
816: ELSE
817: --update the legacy interface table column import_status to 'I'
818: UPDATE igf_ap_li_fab_ints
824: program_id = fnd_global.conc_program_id,
825: program_application_id = fnd_global.prog_appl_id,
826: program_update_date = SYSDATE
827: WHERE ROWID = l_get_records.ROW_ID;
828: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
829: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','updating igf_ap_li_fa_ints(I) with rowid:'||l_get_records.ROW_ID);
830: END IF;
831: END IF;
832: END IF;
825: program_application_id = fnd_global.prog_appl_id,
826: program_update_date = SYSDATE
827: WHERE ROWID = l_get_records.ROW_ID;
828: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
829: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','updating igf_ap_li_fa_ints(I) with rowid:'||l_get_records.ROW_ID);
830: END IF;
831: END IF;
832: END IF;
833: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
829: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_ap_li_base_rec_import.main.debug','updating igf_ap_li_fa_ints(I) with rowid:'||l_get_records.ROW_ID);
830: END IF;
831: END IF;
832: END IF;
833: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
834: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_ap_li_base_rec_import.main.debug',l_debug_str);
835: END IF;
836:
837: l_debug_str := NULL;
830: END IF;
831: END IF;
832: END IF;
833: IF FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
834: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'igf.plsql.igf_ap_li_base_rec_import.main.debug',l_debug_str);
835: END IF;
836:
837: l_debug_str := NULL;
838: EXCEPTION
864: fnd_message.set_name('IGS','IGS_GE_TOTAL_REC_FAILED');
865: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' : ' || l_error_record_cnt);
866: EXCEPTION
867: WHEN others THEN
868: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
869: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'igf.plsql.igf_ap_li_base_rec_import.main.exception',SQLERRM);
870: END IF;
871: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
872: fnd_message.set_token('NAME','IGF_AP_LI_BASE_REC_IMPORT.MAIN');
865: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' : ' || l_error_record_cnt);
866: EXCEPTION
867: WHEN others THEN
868: IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
869: FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION,'igf.plsql.igf_ap_li_base_rec_import.main.exception',SQLERRM);
870: END IF;
871: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
872: fnd_message.set_token('NAME','IGF_AP_LI_BASE_REC_IMPORT.MAIN');
873: errbuf := fnd_message.get;