DBA Data[Home] [Help]

APPS.IGF_GR_RFMS_DISB_ORIG dependencies on IGF_GR_GEN

Line 18: -- passed parameter, in igf_gr_gen.{get_pell_trailer, get_pell_header} procedures.

14: -- ugummall 06-NOV-2003 Bug 3102439. FA 126 Multiple FA Offices.
15: -- 1. Added two extra parameters to main and rfms_disb_orig procedures.
16: -- 2. Modified cursor cur_rfms_disb to include reporting and attending pell ids.
17: -- 3. Removed l_rep_pell_id and its references. Used p_reporting_pell, newly
18: -- passed parameter, in igf_gr_gen.{get_pell_trailer, get_pell_header} procedures.
19: -- 4. New cursor cur_attending_pell to check attending pell is a child of reporting
20: -- pell or not.
21: -- 5. In rfms_disb_orig prcodure processed only those records for which attending
22: -- pell is a child of reporting pell id.

Line 25: -- Added two extra parameters in call to igf_gr_gen.get_pell_header

21: -- 5. In rfms_disb_orig prcodure processed only those records for which attending
22: -- pell is a child of reporting pell id.
23: ------------------------------------------------------------------------------
24: -- ugummall 03-NOV-2003 Bug 3102439. FA 126 - Multiple FA Offices.
25: -- Added two extra parameters in call to igf_gr_gen.get_pell_header
26: ------------------------------------------------------------------------------
27: -- cdcruz 16-Aug-2003 Bug BUG FA121-3085558
28: -- Check added to check for Transaction Number
29: -- Match against Payment ISIR.

Line 40: -- sjadhav Bug 2383690 added igf_gr_gen.send_orig_disb call

36: -- added invalid_version expcetion
37: -- modified for 03-04 compliance
38: -- output file in UPPERCASE
39: ------------------------------------------------------------------------------
40: -- sjadhav Bug 2383690 added igf_gr_gen.send_orig_disb call
41: ------------------------------------------------------------------------------
42: -- sjadhav FEB13th,2002 BUG 2216956
43: -- Removed flag and disbursement number parameters
44: -- Added Award Year parameter to main_ack

Line 229: fnd_message.set_token('PER_NUM',igf_gr_gen.get_per_num(p_rfms_rec.base_id));

225: p_rfms_rec.db_cr_flag IS NULL OR
226: p_rfms_rec.disb_amt IS NULL THEN
227: fnd_file.new_line(fnd_file.log,1);
228: fnd_message.set_name('IGF','IGF_GR_ORIG_DATA_REQD');
229: fnd_message.set_token('PER_NUM',igf_gr_gen.get_per_num(p_rfms_rec.base_id));
230: fnd_file.put_line(fnd_file.log,fnd_message.get);
231: fnd_file.put_line(fnd_file.log, RPAD(igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','DISB_REF_NUM'),50) || ' : ' ||p_rfms_rec.disb_ref_num);
232: fnd_file.put_line(fnd_file.log, RPAD(igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','DB_CR_FLAG'),50) || ' : ' ||p_rfms_rec.db_cr_flag);
233: fnd_file.put_line(fnd_file.log, RPAD(igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','DISB_AMT'),50) || ' : ' ||p_rfms_rec.disb_amt);

Line 257: NVL(igf_gr_gen.get_min_pell_disb ( p_rfms_rec.origination_id ),0) THEN

253: -- log message
254: --
255:
256: IF NVL(p_rfms_rec.disb_ref_num,0) <>
257: NVL(igf_gr_gen.get_min_pell_disb ( p_rfms_rec.origination_id ),0) THEN
258: IF igf_gr_gen.send_orig_disb( p_rfms_rec.origination_id) THEN
259:
260: IF (g_header_written = 'N') THEN
261: fnd_file.put_line(fnd_file.output, UPPER(g_header));

Line 258: IF igf_gr_gen.send_orig_disb( p_rfms_rec.origination_id) THEN

254: --
255:
256: IF NVL(p_rfms_rec.disb_ref_num,0) <>
257: NVL(igf_gr_gen.get_min_pell_disb ( p_rfms_rec.origination_id ),0) THEN
258: IF igf_gr_gen.send_orig_disb( p_rfms_rec.origination_id) THEN
259:
260: IF (g_header_written = 'N') THEN
261: fnd_file.put_line(fnd_file.output, UPPER(g_header));
262: g_header_written := 'Y';

Line 294: RAISE igf_gr_gen.no_file_version;

290: END IF;
291:
292:
293: ELSE
294: RAISE igf_gr_gen.no_file_version;
295: END IF;
296: END IF;
297:
298:

Line 301: WHEN igf_gr_gen.no_file_version THEN

297:
298:
299: EXCEPTION
300:
301: WHEN igf_gr_gen.no_file_version THEN
302: RAISE;
303:
304: WHEN OTHERS THEN
305: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');

Line 521: -- Added two extra parameters in call to igf_gr_gen.get_pell_header

517: -- is a child of reporting pell. If not skipped Context Student's records.
518: -- 3. Parameters are shown in log file irrespective of wether cur_rfms
519: -- fetches the records or not. This is done for clarity.
520: -- ugummall 03-NOV-2003 Bug 3102439. FA 126 - Multiple FA Offices.
521: -- Added two extra parameters in call to igf_gr_gen.get_pell_header
522: -- rasahoo 16-Oct-2003 FA121-Bug# 3085558 cur_pymnt_isir_rec is initialised to null
523: -- cdcruz 16-Sep-03 FA121-Bug# 3085558 New Cursor added cur_pymnt_isir
524: -- That checks for the Transaction Number
525: -- On the Payment ISIR

Line 608: g_header := igf_gr_gen.get_pell_header(g_ver_num,

604: END IF;
605: END IF;
606:
607: -- since the table has data, prepare a header record
608: g_header := igf_gr_gen.get_pell_header(g_ver_num,
609: l_cy_yr,
610: p_reporting_pell,
611: '#D',
612: p_rfmb_id,

Line 730: l_trailer := igf_gr_gen.get_pell_trailer(g_ver_num,

726: END LOOP;
727:
728: CLOSE cur_rfms_disb;
729: -- since the table has data, prepare a trailer record
730: l_trailer := igf_gr_gen.get_pell_trailer(g_ver_num,
731: l_cy_yr,
732: p_reporting_pell,
733: '#D',
734: l_num_of_rec,

Line 752: WHEN igf_gr_gen.no_file_version THEN

748: RAISE batch_not_created;
749: END IF;
750:
751: EXCEPTION
752: WHEN igf_gr_gen.no_file_version THEN
753: RAISE;
754: WHEN batch_not_created THEN
755: RAISE;
756: WHEN no_data_in_table THEN

Line 813: igf_gr_gen.process_pell_ack (g_ver_num,

809: l_rfmb_id igf_gr_rfms_batch.rfmb_id%TYPE;
810: --end -Bug #2938258
811: BEGIN
812:
813: igf_gr_gen.process_pell_ack (g_ver_num,
814: 'GR_RFMS_DISB_ORIG',
815: l_number_rec,
816: l_last_gldr_id,
817: l_batch_id);

Line 829: igf_gr_gen.match_file_version (g_ver_num, l_batch_id, lv_message);

825: --end -Bug #2938258
826: --
827: -- Check the award year matches with the award year in PELL setup.
828: --
829: igf_gr_gen.match_file_version (g_ver_num, l_batch_id, lv_message);
830:
831: IF lv_message = 'IGF_GR_VRSN_MISMTCH' THEN
832: fnd_message.set_name('IGF','IGF_GR_VRSN_MISMTCH');
833: fnd_message.set_token('CYCL',SUBSTR(l_batch_id,3,4));

Line 907: RAISE igf_gr_gen.no_file_version;

903: l_rfms.edit_code := LTRIM(RTRIM(SUBSTR(rec_data.record_data,108,75)));
904: l_rfms.ed_use_flags := LTRIM(RTRIM(SUBSTR(rec_data.record_data,183,10)));
905:
906: ELSE
907: RAISE igf_gr_gen.no_file_version;
908: END IF;
909:
910:
911: EXCEPTION

Line 925: RAISE igf_gr_gen.skip_this_record;

921: fnd_message.set_name('IGF','IGF_SL_SKIPPING');
922: fnd_file.put_line(fnd_file.log,fnd_message.get);
923: fnd_file.put_line(fnd_file.log, ' ' );
924:
925: RAISE igf_gr_gen.skip_this_record;
926:
927: END;
928:
929: OPEN cur_award(l_rfms.origination_id);

Line 935: RAISE igf_gr_gen.skip_this_record;

931:
932: IF cur_award%NOTFOUND THEN
933: CLOSE cur_award;
934: log_message(l_batch_id,l_rfms.origination_id);
935: RAISE igf_gr_gen.skip_this_record;
936: END IF;
937:
938: OPEN cur_disb_orig(l_rfms.origination_id,l_disb_ref_num);
939: FETCH cur_disb_orig INTO rec_disb_orig;

Line 948: RAISE igf_gr_gen.skip_this_record;

944: fnd_message.set_name('IGF','IGF_GR_NO_RFMS_ORIG');
945: fnd_file.put_line(fnd_file.log,fnd_message.get);
946: --write to log file
947: log_message(l_batch_id,LTRIM(RTRIM(SUBSTR(rec_data.record_data,1,23))));
948: RAISE igf_gr_gen.skip_this_record;
949: END IF;
950:
951: ----Bug #2938258
952: IF l_rfmb_id<>rec_disb_orig.rfmb_id THEN

Line 959: RAISE igf_gr_gen.skip_this_record;

955: fnd_message.set_token('BATCH_ID',l_batch_id);
956: fnd_message.set_token('DISB_ID',l_rfms.origination_id );
957: fnd_file.put_line(fnd_file.log,fnd_message.get);
958: fnd_file.new_line(fnd_file.log,1);
959: RAISE igf_gr_gen.skip_this_record;
960: END IF;
961:
962: IF rec_disb_orig.disb_ack_act_status <> 'S' THEN
963:

Line 972: RAISE igf_gr_gen.skip_this_record;

968: fnd_message.set_token('SYS_STATUS',SYSTEM_STATUS );
969: fnd_file.put_line(fnd_file.log,fnd_message.get);
970: fnd_file.new_line(fnd_file.log,1);
971:
972: RAISE igf_gr_gen.skip_this_record;
973: END IF;
974:
975: --end -Bug #2938258
976:

Line 1020: igf_gr_gen.insert_sys_holds(rec_award.award_id,rec_disb_orig.disb_ref_num,'PELL');

1016: l_rfms.edit_code);
1017:
1018: IF l_rfms.disb_accpt_amt <> l_rfms.disb_amt THEN
1019:
1020: igf_gr_gen.insert_sys_holds(rec_award.award_id,rec_disb_orig.disb_ref_num,'PELL');
1021: fnd_message.set_name('IGF','IGF_GR_DIFF_PELL_DISB');
1022: fnd_message.set_token('ORIG_ID',l_rfms.origination_id);
1023: fnd_message.set_token('DISB_NUM',l_rfms.disb_ref_num);
1024: fnd_file.put_line(fnd_file.log,fnd_message.get);

Line 1042: WHEN igf_gr_gen.skip_this_record THEN

1038: CLOSE cur_disb_orig;
1039:
1040: EXCEPTION
1041:
1042: WHEN igf_gr_gen.skip_this_record THEN
1043: IF cur_award%ISOPEN THEN
1044: CLOSE cur_award;
1045: END IF;
1046: IF cur_disb_orig%ISOPEN THEN

Line 1057: RAISE igf_gr_gen.file_not_loaded;

1053:
1054: IF l_actual_rec <> l_number_rec THEN
1055: fnd_message.set_name('IGF','IGF_GE_RECORD_NUM_NOT_MATCH');
1056: igs_ge_msg_stack.add;
1057: RAISE igf_gr_gen.file_not_loaded;
1058: END IF;
1059:
1060: END; -- Inner Begin
1061:

Line 1082: WHEN igf_gr_gen.no_file_version THEN

1078: EXCEPTION
1079:
1080: WHEN invalid_version THEN
1081: RAISE;
1082: WHEN igf_gr_gen.no_file_version THEN
1083: RAISE;
1084: WHEN igf_gr_gen.corrupt_data_file THEN
1085: RAISE;
1086: WHEN no_data_in_table THEN

Line 1084: WHEN igf_gr_gen.corrupt_data_file THEN

1080: WHEN invalid_version THEN
1081: RAISE;
1082: WHEN igf_gr_gen.no_file_version THEN
1083: RAISE;
1084: WHEN igf_gr_gen.corrupt_data_file THEN
1085: RAISE;
1086: WHEN no_data_in_table THEN
1087: RAISE;
1088: WHEN igf_gr_gen.batch_not_in_system THEN

Line 1088: WHEN igf_gr_gen.batch_not_in_system THEN

1084: WHEN igf_gr_gen.corrupt_data_file THEN
1085: RAISE;
1086: WHEN no_data_in_table THEN
1087: RAISE;
1088: WHEN igf_gr_gen.batch_not_in_system THEN
1089: -- Bug # 4008991
1090: fnd_message.set_name('IGF','IGF_SL_GR_BATCH_DOES_NO_EXIST');
1091: fnd_message.set_token('BATCH_ID',l_batch_id);
1092: RAISE;

Line 1093: WHEN igf_gr_gen.file_not_loaded THEN

1089: -- Bug # 4008991
1090: fnd_message.set_name('IGF','IGF_SL_GR_BATCH_DOES_NO_EXIST');
1091: fnd_message.set_token('BATCH_ID',l_batch_id);
1092: RAISE;
1093: WHEN igf_gr_gen.file_not_loaded THEN
1094: RAISE;
1095: WHEN OTHERS THEN
1096: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1097: fnd_message.set_token('NAME','IGF_GR_RFMS_DISB_ORIG.RFMS_DISB_ACK');

Line 1236: l_cy_yr := igf_gr_gen.get_cycle_year(l_ci_cal_type,l_ci_sequence_number);

1232:
1233: --
1234: -- Get the Cycle Year
1235: --
1236: l_cy_yr := igf_gr_gen.get_cycle_year(l_ci_cal_type,l_ci_sequence_number);
1237:
1238: IF g_ver_num ='NULL' THEN
1239: RAISE igf_gr_gen.no_file_version;
1240: END IF;

Line 1239: RAISE igf_gr_gen.no_file_version;

1235: --
1236: l_cy_yr := igf_gr_gen.get_cycle_year(l_ci_cal_type,l_ci_sequence_number);
1237:
1238: IF g_ver_num ='NULL' THEN
1239: RAISE igf_gr_gen.no_file_version;
1240: END IF;
1241:
1242: -- show parameter 1 - award year
1243: l_msg_str_1 := RPAD(igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','AWARD_YEAR'),20) || RPAD(igf_gr_gen.get_alt_code(l_ci_cal_type,l_ci_sequence_number),20);

Line 1243: l_msg_str_1 := RPAD(igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','AWARD_YEAR'),20) || RPAD(igf_gr_gen.get_alt_code(l_ci_cal_type,l_ci_sequence_number),20);

1239: RAISE igf_gr_gen.no_file_version;
1240: END IF;
1241:
1242: -- show parameter 1 - award year
1243: l_msg_str_1 := RPAD(igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','AWARD_YEAR'),20) || RPAD(igf_gr_gen.get_alt_code(l_ci_cal_type,l_ci_sequence_number),20);
1244: fnd_file.put_line(fnd_file.log,l_msg_str_1);
1245:
1246: -- show parameter 2 - report pell id
1247: l_msg_str_3 := RPAD(igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS', 'REPORT_PELL'),20) || p_reporting_pell;

Line 1262: l_msg_str_2 := RPAD(igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','BASE_ID'),20) || RPAD(igf_gr_gen.get_per_num(base_id),20);

1258: fnd_file.put_line(fnd_file.log,l_msg_str_6);
1259:
1260: -- show parameter 4 - base id
1261: IF (base_id IS NOT NULL) THEN
1262: l_msg_str_2 := RPAD(igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','BASE_ID'),20) || RPAD(igf_gr_gen.get_per_num(base_id),20);
1263: fnd_file.put_line(fnd_file.log,l_msg_str_2);
1264: END IF;
1265:
1266: -- show parameter 5 - person id group

Line 1338: WHEN igf_gr_gen.no_file_version THEN

1334:
1335: COMMIT;
1336:
1337: EXCEPTION
1338: WHEN igf_gr_gen.no_file_version THEN
1339: ROLLBACK;
1340: retcode := 2;
1341: errbuf := fnd_message.get_string('IGF','IGF_GR_VERSION_NOTFOUND');
1342: fnd_file.put_line(fnd_file.log,errbuf);

Line 1419: g_alt_code := igf_gr_gen.get_alt_code(l_ci_cal_type,l_ci_sequence_number);

1415: -- Get the Flat File Version and then Proceed
1416: --
1417:
1418: g_ver_num := igf_aw_gen.get_ver_num(l_ci_cal_type,l_ci_sequence_number,'P');
1419: g_alt_code := igf_gr_gen.get_alt_code(l_ci_cal_type,l_ci_sequence_number);
1420: l_cy_yr := igf_gr_gen.get_cycle_year(l_ci_cal_type,l_ci_sequence_number);
1421:
1422: IF g_ver_num ='NULL' THEN
1423: RAISE igf_gr_gen.no_file_version;

Line 1420: l_cy_yr := igf_gr_gen.get_cycle_year(l_ci_cal_type,l_ci_sequence_number);

1416: --
1417:
1418: g_ver_num := igf_aw_gen.get_ver_num(l_ci_cal_type,l_ci_sequence_number,'P');
1419: g_alt_code := igf_gr_gen.get_alt_code(l_ci_cal_type,l_ci_sequence_number);
1420: l_cy_yr := igf_gr_gen.get_cycle_year(l_ci_cal_type,l_ci_sequence_number);
1421:
1422: IF g_ver_num ='NULL' THEN
1423: RAISE igf_gr_gen.no_file_version;
1424: ELSE

Line 1423: RAISE igf_gr_gen.no_file_version;

1419: g_alt_code := igf_gr_gen.get_alt_code(l_ci_cal_type,l_ci_sequence_number);
1420: l_cy_yr := igf_gr_gen.get_cycle_year(l_ci_cal_type,l_ci_sequence_number);
1421:
1422: IF g_ver_num ='NULL' THEN
1423: RAISE igf_gr_gen.no_file_version;
1424: ELSE
1425: rfms_disb_ack;
1426: END IF;
1427:

Line 1436: WHEN igf_gr_gen.no_file_version THEN

1432: WHEN invalid_version THEN
1433: ROLLBACK;
1434: retcode := 2;
1435:
1436: WHEN igf_gr_gen.no_file_version THEN
1437: ROLLBACK;
1438: retcode := 2;
1439: errbuf := fnd_message.get_string('IGF','IGF_GR_VERSION_NOTFOUND');
1440: fnd_file.put_line(fnd_file.log,errbuf);

Line 1451: WHEN igf_gr_gen.corrupt_data_file THEN

1447: retcode := 2;
1448: errbuf := fnd_message.get_string('IGF','IGF_AW_PARAM_ERR');
1449: fnd_file.put_line(fnd_file.log,errbuf);
1450:
1451: WHEN igf_gr_gen.corrupt_data_file THEN
1452: ROLLBACK;
1453: retcode := 2;
1454: errbuf := fnd_message.get_string('IGF','IGF_GR_CORRUPT_DATA_FILE');
1455: fnd_file.put_line(fnd_file.log,errbuf);

Line 1457: WHEN igf_gr_gen.batch_not_in_system THEN

1453: retcode := 2;
1454: errbuf := fnd_message.get_string('IGF','IGF_GR_CORRUPT_DATA_FILE');
1455: fnd_file.put_line(fnd_file.log,errbuf);
1456:
1457: WHEN igf_gr_gen.batch_not_in_system THEN
1458: ROLLBACK;
1459: retcode := 2;
1460: errbuf := fnd_message.get; -- Bug # 4008991
1461: fnd_file.put_line(fnd_file.log,errbuf);

Line 1463: WHEN igf_gr_gen.file_not_loaded THEN

1459: retcode := 2;
1460: errbuf := fnd_message.get; -- Bug # 4008991
1461: fnd_file.put_line(fnd_file.log,errbuf);
1462:
1463: WHEN igf_gr_gen.file_not_loaded THEN
1464: ROLLBACK;
1465: retcode := 2;
1466: errbuf := fnd_message.get_string('IGF','IGF_GE_FILE_NOT_LOADED');
1467: fnd_file.put_line(fnd_file.log,errbuf);