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);
234: fnd_file.new_line(fnd_file.log,1);
235: ELSE
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);
234: fnd_file.new_line(fnd_file.log,1);
235: ELSE
236: IF g_ver_num IN ('2002-2003','2003-2004','2004-2005') THEN
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);
234: fnd_file.new_line(fnd_file.log,1);
235: ELSE
236: IF g_ver_num IN ('2002-2003','2003-2004','2004-2005') THEN
237: l_data := RPAD(p_rfms_rec.origination_id,23) ||
268:
269: ELSE
270:
271: fnd_message.set_name('IGF','IGF_GR_VERF_STAT_W');
272: fnd_message.set_token('ORIG_ID',igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','ORIGINATION_ID') ||
273: ' : ' || p_rfms_rec.origination_id ||
274: ' , ' || igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','DISB_REF_NUM') ||
275: ' : ' || p_rfms_rec.disb_ref_num);
276:
270:
271: fnd_message.set_name('IGF','IGF_GR_VERF_STAT_W');
272: fnd_message.set_token('ORIG_ID',igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','ORIGINATION_ID') ||
273: ' : ' || p_rfms_rec.origination_id ||
274: ' , ' || igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','DISB_REF_NUM') ||
275: ' : ' || p_rfms_rec.disb_ref_num);
276:
277: fnd_file.put_line(fnd_file.log,fnd_message.get);
278: END IF;
330: l_msg_str_0 VARCHAR2(1000);
331: l_msg_str_1 VARCHAR2(1000);
332: BEGIN
333:
334: l_msg_str_0 := RPAD(igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','BATCH_ID'),50) ||
335: RPAD(igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','ORIGINATION_ID'),50);
336: l_msg_str_1 := RPAD(p_batch_id,50) ||
337: RPAD(p_origination_id,50);
338:
331: l_msg_str_1 VARCHAR2(1000);
332: BEGIN
333:
334: l_msg_str_0 := RPAD(igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','BATCH_ID'),50) ||
335: RPAD(igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','ORIGINATION_ID'),50);
336: l_msg_str_1 := RPAD(p_batch_id,50) ||
337: RPAD(p_origination_id,50);
338:
339: fnd_file.put_line(fnd_file.log,'');
376: l_msg_str_1 VARCHAR2(1000);
377:
378: BEGIN
379:
380: l_msg_str_0 := RPAD(igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','ORIGINATION_ID'),50) ||
381: RPAD(igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','DISB_REF_NUM'),50);
382:
383: l_msg_str_1 := RPAD(p_origination_id,30) ||
384: RPAD(p_disb_ref_num,30);
377:
378: BEGIN
379:
380: l_msg_str_0 := RPAD(igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','ORIGINATION_ID'),50) ||
381: RPAD(igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','DISB_REF_NUM'),50);
382:
383: l_msg_str_1 := RPAD(p_origination_id,30) ||
384: RPAD(p_disb_ref_num,30);
385:
444: fnd_file.new_line(fnd_file.log,1);
445: fnd_message.set_name('IGF','IGF_GR_REC_CONTAIN_EDIT_CODES');
446: fnd_file.put_line(fnd_file.log,fnd_message.get);
447:
448: l_msg_str_0 := RPAD(igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','ORIGINATION_ID'),50) ||
449: RPAD(igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','DISB_REF_NUM'),50);
450:
451: l_msg_str_1 := RPAD(p_origination_id,30) ||
452: RPAD(p_disb_ref_num,30);
445: fnd_message.set_name('IGF','IGF_GR_REC_CONTAIN_EDIT_CODES');
446: fnd_file.put_line(fnd_file.log,fnd_message.get);
447:
448: l_msg_str_0 := RPAD(igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','ORIGINATION_ID'),50) ||
449: RPAD(igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','DISB_REF_NUM'),50);
450:
451: l_msg_str_1 := RPAD(p_origination_id,30) ||
452: RPAD(p_disb_ref_num,30);
453:
451: l_msg_str_1 := RPAD(p_origination_id,30) ||
452: RPAD(p_disb_ref_num,30);
453:
454:
455: l_msg_str_2 := RPAD(igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','EDIT_CODE'),50);
456: fnd_file.put_line(fnd_file.log,l_msg_str_0);
457: fnd_file.put_line(fnd_file.log,RPAD('-',100,'-'));
458: fnd_file.put_line(fnd_file.log,l_msg_str_1);
459: fnd_file.put_line(fnd_file.log,' ');
620: -- Header(above line) will be written in prepare_data procedure just before first
621: -- data record is written. by ugummall.
622:
623: fnd_file.new_line(fnd_file.log,1);
624: fnd_file.put_line(fnd_file.log,RPAD(igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS','BATCH_ID'),10)||' :'
625: ||' '|| l_batch_id);
626: fnd_file.new_line(fnd_file.log,1);
627:
628: l_amount_total := 0;
963:
964:
965: fnd_message.set_name('IGF','IGF_GR_DISB_NOT_IN_SENT');
966: fnd_message.set_token('DISB_ID',l_rfms.origination_id );
967: SYSTEM_STATUS := igf_aw_gen.lookup_desc('IGF_GR_ORIG_STATUS',rec_disb_orig.disb_ack_act_status);
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:
1129: -- Know limitations, enhancements or remarks
1130: -- Change History
1131: -- Who When What
1132: -- ridas 08-FEB-2006 Bug #5021084. Added new parameter 'lv_group_type' in call to igf_ap_ss_pkg.get_pid
1133: -- tsailaja 13/Jan/2006 Bug 4947880 Added invocation of igf_aw_gen.set_org_id(NULL);
1134: -- ugummall 08-JAN-2004 Bug 3318202. Changed the order of parameters and removed p_org_id
1135: -- ugummall 06-NOV-2003 Bug 3102439. FA 126 - Multiple FA Offices.
1136: -- 1. Added two parameters to this procedure namely
1137: -- p_reporting_pell and p_attending_pell
1186: l_cod_year_flag BOOLEAN;
1187: lv_group_type igs_pe_persid_group_v.group_type%TYPE;
1188:
1189: BEGIN
1190: igf_aw_gen.set_org_id(NULL);
1191: retcode := 0;
1192:
1193: ln_base_id := base_id;
1194: l_ci_cal_type := LTRIM(RTRIM(SUBSTR(award_year,1,10)));
1227: END IF;
1228: --
1229: -- Get the Flat File Version and then Proceed
1230: --
1231: g_ver_num := igf_aw_gen.get_ver_num(l_ci_cal_type,l_ci_sequence_number,'P');
1232:
1233: --
1234: -- Get the Cycle Year
1235: --
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;
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;
1248: fnd_file.put_line(fnd_file.log,l_msg_str_3);
1249:
1250: -- show parameter 3 - attend pell id
1251: IF (p_attending_pell IS NOT NULL) THEN
1248: fnd_file.put_line(fnd_file.log,l_msg_str_3);
1249:
1250: -- show parameter 3 - attend pell id
1251: IF (p_attending_pell IS NOT NULL) THEN
1252: l_msg_str_4 := RPAD(igf_aw_gen.lookup_desc('IGF_GR_LOOKUPS', 'ATTEND_PELL'),20) || p_attending_pell;
1253: fnd_file.put_line(fnd_file.log,l_msg_str_4);
1254: END IF;
1255:
1256: -- show trans_type parameter
1253: fnd_file.put_line(fnd_file.log,l_msg_str_4);
1254: END IF;
1255:
1256: -- show trans_type parameter
1257: l_msg_str_6 := RPAD(igf_aw_gen.lookup_desc('IGF_GE_PARAMETERS', 'TRANS_TYPE'),20) || igf_aw_gen.lookup_desc('IGF_GR_TRANS_TYPE',p_trans_type);
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
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
1267: IF p_pers_id_grp IS NOT NULL THEN
1268: OPEN c_pers_id_grp_name(p_pers_id_grp);
1269: FETCH c_pers_id_grp_name INTO l_pers_id_grp_name;
1270: CLOSE c_pers_id_grp_name;
1271: l_msg_str_5 := RPAD(igf_aw_gen.lookup_desc('IGF_GE_PARAMETERS','PERSON_ID_GROUP'),20) || l_pers_id_grp_name.group_name;
1272: fnd_file.put_line(fnd_file.log,l_msg_str_5);
1273: END IF;
1274: fnd_file.new_line(fnd_file.log,1);
1275:
1390:
1391: BEGIN
1392:
1393: retcode := 0;
1394: igf_aw_gen.set_org_id(p_org_id);
1395: l_ci_cal_type := LTRIM(RTRIM(SUBSTR(p_awd_yr,1,10)));
1396: l_ci_sequence_number := TO_NUMBER(SUBSTR(p_awd_yr,11));
1397:
1398: IF l_ci_cal_type IS NULL OR l_ci_sequence_number IS NULL THEN
1414: --
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