[Home] [Help]
337: Who When What
338: (reverse chronological order - newest change first)
339: ----------------------------------------------------------------------------*/
340: BEGIN
341: fnd_file.put_line(fnd_file.log, p_v_parm_type || ' : ' || p_v_parm_code );
342: END log_parameters;
343:
344: --
345: -- Routine to process fee structure data rollover between cal instances
407: log_parameters ( igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX', 'FCAT_STATUS'),
408: p_fee_cat_ci_status );
409: log_parameters ( igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX', 'FCFL_STATUS'),
410: p_fee_liability_status );
411: fnd_file.put_line ( fnd_file.LOG, ' ' );
412:
413: -- End of Addition by Nshee on 26-Apr-2001 during Fee Rollover testing to show the parameters in the log file generated by the concurrent request
414:
415: p_source_cal_type := RTRIM(SUBSTR(p_source_calendar, 102, 10));
452: FETCH c_fss INTO v_s_fee_structure_status;
453: IF (c_fss%NOTFOUND) THEN
454: CLOSE c_fss;
455: v_message_name := 'IGS_GE_INVALID_VALUE';
456: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String ('IGS', v_message_name));
457: p_message_name := v_message_name;
458: RETURN FALSE;
459: ELSE
460: IF (v_s_fee_structure_status = 'INACTIVE') THEN
459: ELSE
460: IF (v_s_fee_structure_status = 'INACTIVE') THEN
461: CLOSE c_fss;
462: v_message_name := 'IGS_FI_STATUS_PARAM_INACTIVE';
463: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String ('IGS', v_message_name));
464: p_message_name := v_message_name;
465: RETURN FALSE;
466: END IF;
467: END IF;
567: -- Check destination calendar instance is a
568: -- product of the source calendar instance
569: IF (v_prior_ci_sequence_number IS NULL OR v_prior_ci_sequence_number <> p_source_sequence_number) THEN
570: v_message_name := 'IGS_FI_DEST_CALINST_NOT_ROLLE';
571: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String ('IGS', v_message_name));
572: END IF;
573:
574: --Get value of Alternate Code and put into Global variable.
575: g_v_alternate_code := igs_ca_gen_001.calp_get_alt_cd(p_source_cal_type,
586: p_dest_sequence_number,
587: p_fee_type_ci_status,
588: v_message_name,
589: v_message_warning) = FALSE) THEN
590: FND_FILE.PUT_LINE (FND_FILE.LOG, FND_MESSAGE.GET_STRING('IGS',v_message_name));
591: RETURN;
592: ELSIF (v_message_warning = cst_warning) THEN
593: RETCODE:=1;
594: END IF;
605: p_fee_liability_status,
606: p_fee_type,
607: v_message_name,
608: v_message_warning) = FALSE) THEN
609: FND_FILE.PUT_LINE (FND_FILE.LOG, FND_MESSAGE.GET_STRING('IGS',v_message_name));
610: RETURN;
611: ELSIF (v_message_warning = cst_warning) THEN
612: RETCODE:=1;
613: END IF;
611: ELSIF (v_message_warning = cst_warning) THEN
612: RETCODE:=1;
613: END IF;
614: END IF;
615: fnd_file.put_line( fnd_file.LOG, RPAD('-', 79, '-') );
616:
617: --Added by Nshee on 26-Apr-2001 during Fee Rollvr Testing to put the rollover completed successfully message in the log file
618: fnd_file.put_line( fnd_file.LOG, ' ' );
619: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String ('IGS', 'IGS_FI_ROLLOVER_COMPL_SUCCESS'));
614: END IF;
615: fnd_file.put_line( fnd_file.LOG, RPAD('-', 79, '-') );
616:
617: --Added by Nshee on 26-Apr-2001 during Fee Rollvr Testing to put the rollover completed successfully message in the log file
618: fnd_file.put_line( fnd_file.LOG, ' ' );
619: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String ('IGS', 'IGS_FI_ROLLOVER_COMPL_SUCCESS'));
620: --End of Addition by Nshee
621:
622: EXCEPTION
615: fnd_file.put_line( fnd_file.LOG, RPAD('-', 79, '-') );
616:
617: --Added by Nshee on 26-Apr-2001 during Fee Rollvr Testing to put the rollover completed successfully message in the log file
618: fnd_file.put_line( fnd_file.LOG, ' ' );
619: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String ('IGS', 'IGS_FI_ROLLOVER_COMPL_SUCCESS'));
620: --End of Addition by Nshee
621:
622: EXCEPTION
623:
634: -- This is incorporated as fix to Bug#1802900
635: ROLLBACK;
636: RETCODE:=2;
637: ERRBUF:=FND_MESSAGE.GET_STRING('IGS','IGS_GE_UNHANDLED_EXCEPTION') || ':' || SQLERRM;
638: fnd_file.put_line(fnd_file.log,SUBSTR(SQLERRM,1,300));
639: IGS_GE_MSG_STACK.CONC_EXCEPTION_HNDL;
640: END;
641: END finp_prc_fee_rollvr;
642: --
818: v_insert_record := FALSE;
819: l_fcfl_exists_ind := TRUE;
820: l_b_records_found := TRUE;
821:
822: fnd_file.put_line( fnd_file.LOG, RPAD('-', 79, '-') );
823: log_parameters ( igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX', 'FEE_TYPE'), v_ftci_fss_rec.fee_type );
824:
825: -- Rollover of Fee Type Calendar Instance is prevented if
826: -- the Charge Method has not been defined at Fee Type Calendar Instance level.
826: -- the Charge Method has not been defined at Fee Type Calendar Instance level.
827: IF v_ftci_fss_rec.s_chg_method_type IS NULL OR v_ftci_fss_rec.rul_sequence_number IS NULL THEN
828: FND_MESSAGE.SET_NAME('IGS', 'IGS_FI_NO_ROLL_CHG_METHOD');
829: FND_MESSAGE.SET_TOKEN('FTCI_FCFL',IGS_FI_GEN_GL.get_lkp_meaning('IGS_FI_LOCKBOX','FTCI'));
830: fnd_file.put_line(fnd_file.log,fnd_message.Get);
831: v_process_next_ftci := TRUE;
832: END IF;
833: -- Check the fee type IS a liablility of the fee category
834: -- when fee category is specified
847: OPEN c_ft(v_ftci_fss_rec.fee_type);
848: FETCH c_ft INTO v_closed_ind, l_s_fee_type;
849: CLOSE c_ft;
850: IF (v_closed_ind = 'Y') THEN
851: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String ('IGS', 'IGS_FI_FEETYPE_CLOSED'));
852: -- process next IGS_FI_F_TYP_CA_INST
853: v_process_next_ftci := TRUE;
854: END IF;
855: END IF;
862: FETCH c_ftci INTO v_dummy;
863: IF (c_ftci%FOUND) THEN
864: CLOSE c_ftci;
865: l_already_rolled := TRUE;
866: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String ('IGS','IGS_FI_FEETYPE_CALINST_ROLL'));
867:
868: v_ftci_exists_ind := TRUE;
869: v_insert_record := FALSE;
870: -- when the FTCI was rolled over, it's IGS_FI_ACC
892: v_valid_dai := FALSE;
893: l_v_token1_val := v_ftci_fss_rec.start_dt_alias ||','||TO_CHAR(v_ftci_fss_rec.start_dai_sequence_number);
894: FND_MESSAGE.SET_NAME('IGS', 'IGS_FI_F_TYP_SDTA_DOSNT_EXST');
895: FND_MESSAGE.SET_TOKEN('TOKEN1',l_v_token1_val);
896: FND_FILE.PUT_LINE(FND_FILE.LOG, fnd_message.get);
897:
898: ELSE
899: CLOSE c_dai;
900: END IF;
911:
912: l_v_token1_val := v_ftci_fss_rec.end_dt_alias ||','||TO_CHAR(v_ftci_fss_rec.end_dai_sequence_number);
913: FND_MESSAGE.SET_NAME('IGS', 'IGS_FI_F_TYP_EDTA_DOSNT_EXST'); --new message
914: FND_MESSAGE.SET_TOKEN('TOKEN1',l_v_token1_val);
915: fnd_file.put_line(fnd_file.log,fnd_message.Get);
916: ELSE
917: CLOSE c_dai;
918: END IF;
919: IF v_ftci_fss_rec.retro_dt_alias IS NOT NULL THEN
929: v_valid_dai := FALSE;
930: l_v_token1_val := v_ftci_fss_rec.retro_dt_alias ||','||TO_CHAR(v_ftci_fss_rec.retro_dai_sequence_number);
931: FND_MESSAGE.SET_NAME('IGS', 'IGS_FI_F_TYP_RDTA_DOSNT_EXST'); --new mwssage
932: FND_MESSAGE.SET_TOKEN('TOKEN1',l_v_token1_val);
933: fnd_file.put_line(fnd_file.log,fnd_message.Get);
934: ELSE
935: CLOSE c_dai;
936: END IF;
937: END IF;
957: v_ftci_fss_rec.rul_sequence_number,
958: v_fee_type_ci_status,
959: v_message_name) = FALSE THEN
960:
961: FND_FILE.PUT_LINE (FND_FILE.LOG, FND_MESSAGE.GET_STRING('IGS',v_message_name));
962:
963: v_process_next_ftci := TRUE;
964: ELSE
965: l_rowid := NULL; -- initialise l_rowid to null before passing into the TBH
999: X_ELM_RNG_ORDER_NAME => v_ftci_fss_rec.elm_rng_order_name,
1000: X_MAX_CHG_ELEMENTS => v_ftci_fss_rec.max_chg_elements
1001: );
1002: v_ftci_inserted_ind := TRUE;
1003: FND_FILE.PUT_LINE (FND_FILE.LOG, FND_MESSAGE.GET_STRING('IGS','IGS_FI_FEETYPE_CALINST_ROLLED'));
1004: END IF;
1005: END IF;
1006:
1007: IF (v_ftci_inserted_ind = TRUE OR v_ftci_exists_ind = TRUE ) THEN
1136: -- To show a message when there are no records available in fee type calendar instance table to rollover
1137: IF (v_insert_record = FALSE OR l_already_rolled) THEN
1138: IF p_fee_cat IS NOT NULL THEN
1139: IF NOT l_fcfl_exists_ind THEN
1140: fnd_file.put_line( fnd_file.LOG, fnd_message.get_string ('IGS', 'IGS_FI_NO_FEE_LIB_FOUND') );
1141: END IF;
1142: -- Removed logging of message IGS_FI_FTCI_NO_REC_FOUND in case the FTCI have already been rolled over
1143: -- as part of Bug 3038365
1144: END IF;
1164: fnd_message.set_name('IGS','IGS_FI_ROLLOVER_FTCI_ERROR');
1165: fnd_message.set_token('FEE_TYPE',p_fee_type);
1166: fnd_message.set_token('FEE_CAL_TYPE',p_source_cal_type);
1167: fnd_message.set_token('ALT_CODE',g_v_alternate_code);
1168: fnd_file.put_line (fnd_file.log, fnd_message.get);
1169:
1170: END;
1171: END finp_ins_roll_ftci;
1172: --
1283: v_fcci_inserted_ind := FALSE;
1284: v_fcci_exists_ind := FALSE;
1285: v_process_next_fcci := FALSE;
1286:
1287: fnd_file.put_line( fnd_file.LOG, RPAD('-', 79, '-') );
1288: log_parameters ( igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX', 'FEE_CAT'), v_fcci_fss_rec.fee_cat );
1289:
1290: -- Check the fee type is a liablility of the fee category
1291: -- when fee type is specified
1304: OPEN c_fcci(v_fcci_fss_rec.fee_cat);
1305: FETCH c_fcci INTO v_fee_cat;
1306: IF (c_fcci%FOUND) THEN
1307: CLOSE c_fcci;
1308: FND_FILE.PUT_LINE (FND_FILE.LOG, FND_MESSAGE.GET_STRING('IGS','IGS_FI_FEECAT_CALINST_ROLL'));
1309: v_fcci_exists_ind := TRUE;
1310: ELSE
1311: CLOSE c_fcci;
1312: -- Check for the existence of the start dai
1321: v_process_next_fcci := TRUE;
1322: l_v_token1_val := v_fcci_fss_rec.start_dt_alias ||','||TO_CHAR(v_fcci_fss_rec.start_dai_sequence_number);
1323: FND_MESSAGE.SET_NAME('IGS', 'IGS_FI_F_CAT_SDTA_DOSNT_EXST'); --new mwssage
1324: FND_MESSAGE.SET_TOKEN('TOKEN1',l_v_token1_val);
1325: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get);
1326: ELSE
1327: CLOSE c_dai;
1328: END IF;
1329: -- Check for the existence of the end dai
1338: v_process_next_fcci := TRUE;
1339: l_v_token1_val := v_fcci_fss_rec.end_dt_alias ||','||TO_CHAR(v_fcci_fss_rec.end_dai_sequence_number);
1340: FND_MESSAGE.SET_NAME('IGS', 'IGS_FI_F_CAT_EDTA_DOSNT_EXST'); --new mwssage
1341: FND_MESSAGE.SET_TOKEN('TOKEN1',l_v_token1_val);
1342: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get);
1343: ELSE
1344: CLOSE c_dai;
1345: END IF;
1346: IF v_fcci_fss_rec.retro_dt_alias IS NOT NULL THEN
1356: v_process_next_fcci := TRUE;
1357: l_v_token1_val := v_fcci_fss_rec.retro_dt_alias ||','||TO_CHAR(v_fcci_fss_rec.retro_dai_sequence_number);
1358: FND_MESSAGE.SET_NAME('IGS', 'IGS_FI_F_CAT_RDTA_DOSNT_EXST'); --new mwssage
1359: FND_MESSAGE.SET_TOKEN('TOKEN1',l_v_token1_val);
1360: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get);
1361:
1362: ELSE
1363: CLOSE c_dai;
1364: END IF;
1372: END IF;
1373: IF IGS_FI_VAL_FCCI.finp_val_fss_closed (
1374: v_fee_cat_ci_status,
1375: v_message_name) = FALSE THEN
1376: FND_FILE.PUT_LINE (FND_FILE.LOG, FND_MESSAGE.GET_STRING('IGS',v_message_name));
1377: v_process_next_fcci := TRUE;
1378: END IF;
1379: IF IGS_FI_VAL_FCCI.finp_val_fcci_active (
1380: v_fee_cat_ci_status,
1381: p_dest_cal_type,
1382: p_dest_sequence_number,
1383: v_message_name) = FALSE THEN
1384:
1385: FND_FILE.PUT_LINE (FND_FILE.LOG, FND_MESSAGE.GET_STRING('IGS',v_message_name));
1386: v_process_next_fcci := TRUE;
1387: END IF;
1388: END IF;
1389: IF (v_process_next_fcci = FALSE AND v_fcci_exists_ind = FALSE) THEN
1403: X_RETRO_DAI_SEQUENCE_NUMBER=>v_fcci_fss_rec.retro_dai_sequence_number,
1404: X_MODE=>'R'
1405: );
1406: v_fcci_inserted_ind := TRUE;
1407: FND_FILE.PUT_LINE (FND_FILE.LOG, FND_MESSAGE.GET_STRING('IGS','IGS_FI_FEECAT_CALINST_ROLLED'));
1408: END IF;
1409: END IF;
1410: IF (v_fcci_inserted_ind = TRUE OR v_fcci_exists_ind = TRUE) THEN
1411:
1451: fnd_message.set_name('IGS','IGS_FI_ROLLOVER_FCCI_ERROR');
1452: fnd_message.set_token('FEE_CAT',p_fee_cat);
1453: fnd_message.set_token('FEE_CAL_TYPE',p_source_cal_type);
1454: fnd_message.set_token('ALT_CODE',g_v_alternate_code);
1455: fnd_file.put_line (fnd_file.log, fnd_message.get);
1456: END;
1457: END finp_ins_roll_fcci;
1458: --
1459:
1577: IF (NVL(v_frtns_source_rec.fee_type, 'NULL') = NVL(v_fee_type, 'NULL') AND
1578: NVL(v_frtns_source_rec.fee_cat, 'NULL') = NVL(v_fee_cat, 'NULL')) THEN
1579: v_record_exists_ind := TRUE;
1580: ELSE
1581: FND_FILE.PUT_LINE (FND_FILE.LOG, FND_MESSAGE.GET_STRING('IGS','IGS_FI_FEE_RETN_SCH_CLASHES'));
1582: END IF;
1583: ELSE
1584: CLOSE c_frtns_dest;
1585: -- check the new schedule will be unique
1589: FETCH c_frtns_dest_u INTO v_sequence_number;
1590: IF (c_frtns_dest_u%FOUND) THEN
1591: CLOSE c_frtns_dest_u;
1592: v_valid_insert := FALSE;
1593: FND_FILE.PUT_LINE (FND_FILE.LOG, FND_MESSAGE.GET_STRING('IGS','IGS_FI_FEE_RETN_SCH_CLASHES'));
1594:
1595: ELSE
1596: CLOSE c_frtns_dest_u;
1597: -- Check for the existence of the IGS_CA_DA_INST
1611: ', SCHEDULE_NUMBER:' || TO_CHAR(v_frtns_source_rec.schedule_number);
1612: FND_MESSAGE.SET_NAME('IGS', 'IGS_FI_F_R_SCH_DTA_DOSNT_EXST'); --new mwssage
1613: FND_MESSAGE.SET_TOKEN('TOKEN1',l_v_token1_val);
1614: FND_MESSAGE.SET_TOKEN('TOKEN2',token2_val);
1615: FND_FILE.PUT_LINE (FND_FILE.LOG, FND_MESSAGE.GET);
1616: ELSE
1617: CLOSE c_dai;
1618: END IF;
1619: END IF;
1651: IF (v_message_name= 'IGS_FI_FEE_RETN_SCH_FEECAT') THEN
1652: fnd_message.set_name('IGS', 'IGS_FI_FRETS_FTCI_FCFL_EXIST');
1653: fnd_message.set_token('SOURCE', igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','FCFL'));
1654: fnd_message.set_token('DESTINATION', igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','FTCI'));
1655: fnd_file.put_line(fnd_file.log, fnd_message.get);
1656: ELSIF (v_message_name= 'IGS_FI_FEE_RETN_SCH_FEETYPE') THEN
1657: fnd_message.set_name('IGS', 'IGS_FI_FRETS_FTCI_FCFL_EXIST');
1658: fnd_message.set_token('SOURCE', igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','FTCI'));
1659: fnd_message.set_token('DESTINATION', igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','FCFL'));
1656: ELSIF (v_message_name= 'IGS_FI_FEE_RETN_SCH_FEETYPE') THEN
1657: fnd_message.set_name('IGS', 'IGS_FI_FRETS_FTCI_FCFL_EXIST');
1658: fnd_message.set_token('SOURCE', igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','FTCI'));
1659: fnd_message.set_token('DESTINATION', igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','FCFL'));
1660: fnd_file.put_line(fnd_file.log, fnd_message.get);
1661: END IF;
1662: p_message_name := cst_warning;
1663: l_b_ftci_fcci_clash_ind := FALSE;
1664: END IF;
1671: fnd_message.set_token('FEE_TYPE',p_fee_type);
1672: fnd_message.set_token('FEE_CAL_TYPE',p_source_cal_type);
1673: fnd_message.set_token('ALT_CODE',g_v_alternate_code);
1674: fnd_message.set_token('DT_ALIAS',v_frtns_source_rec.dt_alias);
1675: fnd_file.put_line (fnd_file.log, fnd_message.get);
1676: END;
1677: END IF;
1678: END IF;
1679: END LOOP;
1678: END IF;
1679: END LOOP;
1680: -- 2. Check IF records rolled over
1681: IF (v_record_exists_ind = TRUE) THEN
1682: FND_FILE.PUT_LINE (FND_FILE.LOG, FND_MESSAGE.GET_STRING('IGS','IGS_FI_FEE_RETN_SCH_ROLLED'));
1683: END IF;
1684: IF (v_record_inserted_ind = TRUE) THEN
1685: FND_FILE.PUT_LINE (FND_FILE.LOG, FND_MESSAGE.GET_STRING('IGS','IGS_FI_FEERET_SCH_ROLLED'));
1686: END IF;
1681: IF (v_record_exists_ind = TRUE) THEN
1682: FND_FILE.PUT_LINE (FND_FILE.LOG, FND_MESSAGE.GET_STRING('IGS','IGS_FI_FEE_RETN_SCH_ROLLED'));
1683: END IF;
1684: IF (v_record_inserted_ind = TRUE) THEN
1685: FND_FILE.PUT_LINE (FND_FILE.LOG, FND_MESSAGE.GET_STRING('IGS','IGS_FI_FEERET_SCH_ROLLED'));
1686: END IF;
1687: RETURN TRUE;
1688: END;
1689:
1818: IF v_fcfl_fss_rec.s_chg_method_type IS NOT NULL OR v_fcfl_fss_rec.rul_sequence_number IS NOT NULL then
1819: l_v_token1_val := IGS_FI_GEN_GL.get_lkp_meaning('IGS_FI_LOCKBOX','FCFL') ;
1820: FND_MESSAGE.SET_NAME('IGS', 'IGS_FI_NO_ROLL_CHG_METHOD');
1821: FND_MESSAGE.SET_TOKEN('FTCI_FCFL',l_v_token1_val);
1822: fnd_file.put_line(fnd_file.log,fnd_message.Get);
1823: v_next_fcfl := TRUE;
1824: END IF;
1825: -- Check for the existence of the IGS_FI_F_CAT_FEE_LBL
1826: -- record under the destination calendar
1830: FETCH c_fcfl INTO v_fee_type;
1831:
1832: IF (c_fcfl%FOUND) THEN
1833: CLOSE c_fcfl;
1834: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String('IGS','IGS_FI_FEECAT_FEE_LIAB_ROLLED'));
1835: v_fcfl_exists_ind := TRUE;
1836: ELSE
1837: CLOSE c_fcfl;
1838: v_next_fcfl := FALSE;
1856: v_fee_liability_status,
1857: p_dest_cal_type,
1858: p_dest_sequence_number,
1859: v_message_name) = FALSE) THEN
1860: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String('IGS',v_message_name));
1861: -- process next IGS_FI_F_CAT_FEE_LBL
1862: v_next_fcfl := TRUE;
1863: END IF;
1864: END IF;
1869: p_fee_cat,
1870: v_fcfl_fss_rec.fee_type,
1871: v_fee_liability_status,
1872: v_message_name) = FALSE) THEN
1873: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String('IGS',v_message_name));
1874: -- process next IGS_FI_F_CAT_FEE_LBL
1875: v_next_fcfl := TRUE;
1876: END IF;
1877: END IF;
1891:
1892: l_v_token1_val := v_fcfl_fss_rec.start_dt_alias ||','||TO_CHAR(v_fcfl_fss_rec.start_dai_sequence_number);
1893: FND_MESSAGE.SET_NAME('IGS', 'IGS_FI_F_CAT_F_LIA_DOSNT_EXST'); --new mwssage
1894: FND_MESSAGE.SET_TOKEN('TOKEN1',l_v_token1_val);
1895: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get);
1896: ELSE
1897: CLOSE c_dai;
1898: END IF;
1899: END IF;
1916: X_MODE=>'R'
1917: );
1918:
1919: v_fcfl_inserted_ind := TRUE;
1920: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String('IGS','IGS_FI_FEECAT_FEELIAB_ROLLED'));
1921: EXCEPTION
1922: WHEN OTHERS THEN
1923: IGS_GE_MSG_STACK.CONC_EXCEPTION_HNDL;
1924: fnd_message.set_name('IGS','IGS_FI_ROLLOVER_FCFL_ERROR');
1925: fnd_message.set_token('FEE_CAT',p_fee_cat);
1926: fnd_message.set_token('FEE_TYPE',v_fcfl_fss_rec.fee_type);
1927: fnd_message.set_token('FEE_CAL_TYPE',p_source_cal_type);
1928: fnd_message.set_token('ALT_CODE',g_v_alternate_code);
1929: fnd_file.put_line (fnd_file.log, fnd_message.get);
1930: END;
1931: END IF;
1932: END IF;
1933: END IF;
2220: IF (v_message_name= 'IGS_FI_ASSRATES_NOT_DEFINED') THEN
2221: fnd_message.set_name('IGS', 'IGS_FI_FAR_FTCI_FCFL_EXIST');
2222: fnd_message.set_token('SOURCE', igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','FCFL'));
2223: fnd_message.set_token('DESTINATION', igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','FTCI'));
2224: fnd_file.put_line(fnd_file.log, fnd_message.get);
2225: ELSIF (v_message_name= 'IGS_FI_ASSRATES_NOT_DFNED_FEE') THEN
2226: fnd_message.set_name('IGS', 'IGS_FI_FAR_FTCI_FCFL_EXIST');
2227: fnd_message.set_token('SOURCE', igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','FTCI'));
2228: fnd_message.set_token('DESTINATION', igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','FCFL'));
2225: ELSIF (v_message_name= 'IGS_FI_ASSRATES_NOT_DFNED_FEE') THEN
2226: fnd_message.set_name('IGS', 'IGS_FI_FAR_FTCI_FCFL_EXIST');
2227: fnd_message.set_token('SOURCE', igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','FTCI'));
2228: fnd_message.set_token('DESTINATION', igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','FCFL'));
2229: fnd_file.put_line(fnd_file.log, fnd_message.get);
2230: END IF;
2231: p_message_name := cst_warning;
2232: l_b_ftci_fcci_clash_ind := FALSE;
2233: END IF;
2240: fnd_message.set_token('FEE_TYPE',p_fee_type);
2241: fnd_message.set_token('FEE_CAL_TYPE',p_source_cal_type);
2242: fnd_message.set_token('ALT_CODE',g_v_alternate_code);
2243: fnd_message.set_token('RATE_NUMBER',v_far_source_rec.rate_number);
2244: fnd_file.put_line (fnd_file.log, fnd_message.get);
2245: END;
2246: END IF;
2247: END LOOP;
2248: -- 2. Check IF records rolled over
2246: END IF;
2247: END LOOP;
2248: -- 2. Check IF records rolled over
2249: IF (v_record_exists_ind = TRUE) THEN
2250: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String('IGS','IGS_FI_FEEASS_RATE_ROLLED'));
2251: END IF;
2252: IF (v_record_inserted_ind = TRUE) THEN
2253: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String('IGS','IGS_FI_FEEASS_RATES_ROLLED'));
2254: END IF;
2249: IF (v_record_exists_ind = TRUE) THEN
2250: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String('IGS','IGS_FI_FEEASS_RATE_ROLLED'));
2251: END IF;
2252: IF (v_record_inserted_ind = TRUE) THEN
2253: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String('IGS','IGS_FI_FEEASS_RATES_ROLLED'));
2254: END IF;
2255: RETURN TRUE;
2256: END;
2257: END finp_ins_roll_far;
2465: FETCH c_serr_exists INTO l_c_v_rates_exist;
2466:
2467: IF c_far_exists%NOTFOUND AND (c_err_exists%FOUND OR c_serr_exists%FOUND) THEN
2468: fnd_message.set_name('IGS', 'IGS_FI_ER_FAR_NOSETUP');
2469: fnd_file.put_line(fnd_file.log, fnd_message.get);
2470: p_message_name := cst_warning;
2471: CLOSE c_serr_exists;
2472: CLOSE c_err_exists;
2473: CLOSE c_far_exists;
2527: fnd_message.set_token('FEE_TYPE',p_fee_type);
2528: fnd_message.set_token('FEE_CAL_TYPE',p_source_cal_type);
2529: fnd_message.set_token('ALT_CODE',g_v_alternate_code);
2530: fnd_message.set_token('RANGE_NUMBER',v_er_source_rec.range_number);
2531: fnd_file.put_line (fnd_file.log, fnd_message.get);
2532: END;
2533: END IF;
2534:
2535: --Added as a part of CPF build . Bug #3392088
2580: fnd_message.set_token('FEE_CAL_TYPE',p_source_cal_type);
2581: fnd_message.set_token('ALT_CODE',g_v_alternate_code);
2582: fnd_message.set_token('RANGE_NUMBER',v_er_source_rec.range_number);
2583: fnd_message.set_token('SUB_RANGE_NUMBER',v_ser_source_rec.sub_range_num);
2584: fnd_file.put_line (fnd_file.log, fnd_message.get);
2585: END;
2586: END IF;
2587:
2588: IF l_sub_er_id IS NOT NULL THEN
2630: fnd_message.set_token('ALT_CODE',g_v_alternate_code);
2631: fnd_message.set_token('RANGE_NUMBER',v_er_source_rec.range_number);
2632: fnd_message.set_token('SUB_RANGE_NUMBER',v_ser_source_rec.sub_range_num);
2633: fnd_message.set_token('RATE_NUMBER',v_sert_rate_number);
2634: fnd_file.put_line (fnd_file.log, fnd_message.get);
2635: END;
2636: END IF;
2637: END LOOP;
2638:
2686: fnd_message.set_token('FEE_CAL_TYPE',p_source_cal_type);
2687: fnd_message.set_token('ALT_CODE',g_v_alternate_code);
2688: fnd_message.set_token('RANGE_NUMBER',v_er_source_rec.range_number);
2689: fnd_message.set_token('RATE_NUMBER',v_err_source_rec.rate_number);
2690: fnd_file.put_line (fnd_file.log, fnd_message.get);
2691: END;
2692: END IF;
2693: END LOOP;
2694: END IF;
2694: END IF;
2695: END LOOP;
2696: -- 2. Check IF records rolled over
2697: IF (v_er_record_exists_ind = TRUE) THEN
2698: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String('IGS','IGS_FI_ELERNG_ROLLED'));
2699: END IF;
2700: IF (v_err_record_exists_ind = TRUE) THEN
2701: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String('IGS','IGS_FI_ELERNG_ALREADY_ROLLED'));
2702: END IF;
2697: IF (v_er_record_exists_ind = TRUE) THEN
2698: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String('IGS','IGS_FI_ELERNG_ROLLED'));
2699: END IF;
2700: IF (v_err_record_exists_ind = TRUE) THEN
2701: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String('IGS','IGS_FI_ELERNG_ALREADY_ROLLED'));
2702: END IF;
2703: IF (v_er_record_inserted_ind = TRUE) THEN
2704: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String('IGS','IGS_FI_ELEMENT_RANGE_ROLLED'));
2705: END IF;
2700: IF (v_err_record_exists_ind = TRUE) THEN
2701: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String('IGS','IGS_FI_ELERNG_ALREADY_ROLLED'));
2702: END IF;
2703: IF (v_er_record_inserted_ind = TRUE) THEN
2704: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String('IGS','IGS_FI_ELEMENT_RANGE_ROLLED'));
2705: END IF;
2706: IF (v_err_record_inserted_ind = TRUE) THEN
2707: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String('IGS','IGS_FI_ELERNG_RATES_ROLLED'));
2708: END IF;
2703: IF (v_er_record_inserted_ind = TRUE) THEN
2704: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String('IGS','IGS_FI_ELEMENT_RANGE_ROLLED'));
2705: END IF;
2706: IF (v_err_record_inserted_ind = TRUE) THEN
2707: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String('IGS','IGS_FI_ELERNG_RATES_ROLLED'));
2708: END IF;
2709:
2710: IF (v_ser_record_exists_ind = TRUE) THEN
2711: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String('IGS','IGS_FI_SER_ALREADY_ROLLED'));
2707: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String('IGS','IGS_FI_ELERNG_RATES_ROLLED'));
2708: END IF;
2709:
2710: IF (v_ser_record_exists_ind = TRUE) THEN
2711: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String('IGS','IGS_FI_SER_ALREADY_ROLLED'));
2712: END IF;
2713: IF (v_sert_record_exists_ind = TRUE) THEN
2714: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String('IGS','IGS_FI_SERT_ALREADY_ROLLED'));
2715: END IF;
2710: IF (v_ser_record_exists_ind = TRUE) THEN
2711: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String('IGS','IGS_FI_SER_ALREADY_ROLLED'));
2712: END IF;
2713: IF (v_sert_record_exists_ind = TRUE) THEN
2714: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String('IGS','IGS_FI_SERT_ALREADY_ROLLED'));
2715: END IF;
2716: IF (v_ser_record_inserted_ind = TRUE) THEN
2717: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String('IGS','IGS_FI_SER_ROLLED'));
2718: END IF;
2713: IF (v_sert_record_exists_ind = TRUE) THEN
2714: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String('IGS','IGS_FI_SERT_ALREADY_ROLLED'));
2715: END IF;
2716: IF (v_ser_record_inserted_ind = TRUE) THEN
2717: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String('IGS','IGS_FI_SER_ROLLED'));
2718: END IF;
2719: IF (v_sert_record_inserted_ind = TRUE) THEN
2720: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String('IGS','IGS_FI_SERT_ROLLED'));
2721: END IF;
2716: IF (v_ser_record_inserted_ind = TRUE) THEN
2717: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String('IGS','IGS_FI_SER_ROLLED'));
2718: END IF;
2719: IF (v_sert_record_inserted_ind = TRUE) THEN
2720: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String('IGS','IGS_FI_SERT_ROLLED'));
2721: END IF;
2722:
2723: RETURN TRUE;
2724: END;
2818: fnd_message.set_token('FEE_TYPE',p_fee_type);
2819: fnd_message.set_token('FEE_CAL_TYPE',p_source_cal_type);
2820: fnd_message.set_token('ALT_CODE',g_v_alternate_code);
2821: fnd_message.set_token('COURSE_TYPE',v_ctft_source_rec.course_type);
2822: fnd_file.put_line (fnd_file.log, fnd_message.get);
2823: END;
2824: END IF;
2825: END LOOP;
2826: -- 2. Check IF records rolled over
2824: END IF;
2825: END LOOP;
2826: -- 2. Check IF records rolled over
2827: IF (v_record_exists_ind = TRUE) THEN
2828: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String('IGS','IGS_FI_PRG_TYPE_FEETRG_ROLLED'));
2829: END IF;
2830: IF (v_record_inserted_ind = TRUE) THEN
2831: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String('IGS','IGS_FI_PRGTYPE_FEETRG_ROLLED'));
2832: END IF;
2827: IF (v_record_exists_ind = TRUE) THEN
2828: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String('IGS','IGS_FI_PRG_TYPE_FEETRG_ROLLED'));
2829: END IF;
2830: IF (v_record_inserted_ind = TRUE) THEN
2831: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String('IGS','IGS_FI_PRGTYPE_FEETRG_ROLLED'));
2832: END IF;
2833: RETURN TRUE;
2834: END;
2835: END finp_ins_roll_ctft;
2928: fnd_message.set_token('FEE_TYPE',p_fee_type);
2929: fnd_message.set_token('FEE_CAL_TYPE',p_source_cal_type);
2930: fnd_message.set_token('ALT_CODE',g_v_alternate_code);
2931: fnd_message.set_token('COURSE_GROUP_CD',v_cgft_source_rec.course_group_cd);
2932: fnd_file.put_line (fnd_file.log, fnd_message.get);
2933: END;
2934: END IF;
2935: END LOOP;
2936: -- 2. Check IF records rolled over
2934: END IF;
2935: END LOOP;
2936: -- 2. Check IF records rolled over
2937: IF (v_record_exists_ind = TRUE) THEN
2938: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String('IGS','IGS_FI_PRG_GRP_FEETRG_ROLLED'));
2939: END IF;
2940: IF (v_record_inserted_ind = TRUE) THEN
2941: v_message_name := 'IGS_FI_PRGGRP_FEETRG_ROLLED';
2942: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String('IGS','IGS_FI_PRGGRP_FEETRG_ROLLED'));
2938: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String('IGS','IGS_FI_PRG_GRP_FEETRG_ROLLED'));
2939: END IF;
2940: IF (v_record_inserted_ind = TRUE) THEN
2941: v_message_name := 'IGS_FI_PRGGRP_FEETRG_ROLLED';
2942: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String('IGS','IGS_FI_PRGGRP_FEETRG_ROLLED'));
2943: END IF;
2944: RETURN TRUE;
2945: END;
2946: END finp_ins_roll_cgft;
3058: fnd_message.set_token('FEE_TYPE',p_fee_type);
3059: fnd_message.set_token('FEE_CAL_TYPE',p_source_cal_type);
3060: fnd_message.set_token('ALT_CODE',g_v_alternate_code);
3061: fnd_message.set_token('COURSE_CD',v_cft_source_rec.course_cd);
3062: fnd_file.put_line (fnd_file.log, fnd_message.get);
3063: END;
3064: END IF;
3065: END LOOP;
3066: -- 2. Check IF records rolled over
3064: END IF;
3065: END LOOP;
3066: -- 2. Check IF records rolled over
3067: IF (v_record_exists_ind = TRUE) THEN
3068: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String('IGS','IGS_FI_PRG_FEETRG_ROLLED'));
3069: END IF;
3070: IF (v_record_inserted_ind = TRUE) THEN
3071: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String('IGS','IGS_FI_PRGFEE_TRG_ROLLED'));
3072: END IF;
3067: IF (v_record_exists_ind = TRUE) THEN
3068: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String('IGS','IGS_FI_PRG_FEETRG_ROLLED'));
3069: END IF;
3070: IF (v_record_inserted_ind = TRUE) THEN
3071: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String('IGS','IGS_FI_PRGFEE_TRG_ROLLED'));
3072: END IF;
3073: RETURN TRUE;
3074: END;
3075: END finp_ins_roll_cft;
3164: IF (c_cur_dest_sgmnts%FOUND) THEN
3165: -- This means that rollover has already happened, no rollover needs to happen
3166: v_sgmnts_record_exists_ind := TRUE;
3167: IF (v_sgmnts_record_exists_ind = TRUE) THEN
3168: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String('IGS','IGS_FI_ANC_SGMNTS_ROLLED'));
3169: END IF;
3170: ELSE
3171: OPEN c_cur_dest_rates;
3172: FETCH c_cur_dest_rates INTO v_cur_dest_rates_rec;
3175: IF (c_cur_dest_rates%FOUND) THEN
3176: -- This means that rollover has already happened, no rollover needs to happen
3177: v_rates_record_exists_ind := TRUE;
3178: IF (v_rates_record_exists_ind = TRUE) THEN
3179: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String('IGS','IGS_FI_ANC_RATES_ROLLED'));
3180: END IF;
3181: ELSE
3182: -- Insert into the table when records exist in the source cursor of rate segments
3183: FOR v_cur_source_sgmnts_rec IN c_cur_source_sgmnts LOOP
3203: fnd_message.set_name('IGS','IGS_FI_ROLLOVER_ANC_ERROR');
3204: fnd_message.set_token('FEE_TYPE',p_fee_type);
3205: fnd_message.set_token('FEE_CAL_TYPE',p_source_cal_type);
3206: fnd_message.set_token('ALT_CODE',g_v_alternate_code);
3207: fnd_file.put_line (fnd_file.log, fnd_message.get);
3208: END;
3209: END LOOP;
3210: -- Exit IF there is no record found in the cursor.
3211:
3211:
3212: IF (v_rt_sgmnts_flag = FALSE) THEN
3213: v_message_name:='IGS_FI_RT_SGMNTS_DS_NT_XS';
3214: p_message_name:=v_message_name;
3215: fnd_file.put_line (fnd_file.LOG, fnd_message.get_string ('IGS', p_message_name));
3216: END IF;
3217: -- Insert into the table when records exist in the source cursor of rates
3218: -- and only insert when segments are defined in the ancillary segments tables
3219: IF v_rt_sgmnts_flag THEN
3253: fnd_message.set_name('IGS','IGS_FI_ROLLOVER_ANC_RT_ERROR');
3254: fnd_message.set_token('FEE_TYPE',p_fee_type);
3255: fnd_message.set_token('FEE_CAL_TYPE',p_source_cal_type);
3256: fnd_message.set_token('ALT_CODE',g_v_alternate_code);
3257: fnd_file.put_line (fnd_file.log, fnd_message.get);
3258: END;
3259: END LOOP;
3260: -- Exit IF there is no record found in the cursor.
3261: IF (v_rates_flag = FALSE) THEN
3260: -- Exit IF there is no record found in the cursor.
3261: IF (v_rates_flag = FALSE) THEN
3262: v_message_name:='IGS_FI_ANC_RTS_DS_NT_XS';
3263: p_message_name:=v_message_name;
3264: fnd_file.put_line (fnd_file.LOG, fnd_message.get_string ('IGS', p_message_name));
3265: END IF;
3266: END IF; -- v_rt_sgmnts_flag IF close
3267: -- Close all open cursors.
3268: CLOSE c_cur_dest_rates;
3270: CLOSE c_cur_dest_sgmnts;
3271: END IF;
3272: -- Only when both the inserts are successful return the message of successful rollover
3273: IF (v_record_inserted_ind = TRUE) THEN
3274: FND_FILE.PUT_LINE (FND_FILE.LOG, Fnd_Message.Get_String('IGS','IGS_FI_ANC_ROLLS'));
3275: END IF;
3276: -- Return True when everything is successful
3277: RETURN TRUE;
3278: END;
3348: fnd_message.set_name('IGS','IGS_FI_ROLLOVER_REVSEG_ERROR');
3349: fnd_message.set_token('FEE_TYPE',p_fee_type);
3350: fnd_message.set_token('FEE_CAL_TYPE',p_source_cal_type);
3351: fnd_message.set_token('ALT_CODE',g_v_alternate_code);
3352: fnd_file.put_line (fnd_file.log, fnd_message.get);
3353: END;
3354: END LOOP;
3355: CLOSE cur_roll_segs;
3356: END IF;
3419: FETCH cur_ftci_accts INTO l_rec_ftci_accts;
3420: IF ( cur_ftci_accts%FOUND )THEN
3421: CLOSE cur_ftci_accts;
3422: fnd_message.set_name ( 'IGS', 'IGS_FI_FTCI_ACCTS_SETUP_EXISTS' );
3423: fnd_file.put_line ( fnd_file.LOG, fnd_message.get );
3424: RETURN TRUE;
3425: END IF;
3426: CLOSE cur_ftci_accts;
3427:
3511: fnd_message.set_name('IGS','IGS_FI_ROLL_FTCI_ACCTS_ERROR');
3512: fnd_message.set_token('FEE_TYPE',p_v_fee_type);
3513: fnd_message.set_token('FEE_CAL_TYPE',p_v_source_cal_type);
3514: fnd_message.set_token('ALT_CODE',g_v_alternate_code);
3515: fnd_file.put_line (fnd_file.log, fnd_message.get);
3516: END;
3517:
3518: END LOOP;
3519:
3519:
3520: IF ( l_b_records_found ) THEN
3521: -- If Rollover is successful then log the same.
3522: fnd_message.set_name ( 'IGS', 'IGS_FI_ROLL_FTCI_ACCTS_SUCCESS' );
3523: fnd_file.put_line ( fnd_file.LOG, fnd_message.get );
3524: ELSE
3525: -- If No Accounting Information is defined at Source FTCI.
3526: fnd_message.set_name ( 'IGS', 'IGS_FI_FTCI_ACCTS_NO_SETUP' );
3527: fnd_file.put_line ( fnd_file.LOG, fnd_message.get );
3523: fnd_file.put_line ( fnd_file.LOG, fnd_message.get );
3524: ELSE
3525: -- If No Accounting Information is defined at Source FTCI.
3526: fnd_message.set_name ( 'IGS', 'IGS_FI_FTCI_ACCTS_NO_SETUP' );
3527: fnd_file.put_line ( fnd_file.LOG, fnd_message.get );
3528: END IF;
3529:
3530: IF ( l_b_inactive_account ) THEN
3531: fnd_file.put_line ( fnd_file.LOG, ' ' );
3527: fnd_file.put_line ( fnd_file.LOG, fnd_message.get );
3528: END IF;
3529:
3530: IF ( l_b_inactive_account ) THEN
3531: fnd_file.put_line ( fnd_file.LOG, ' ' );
3532: fnd_message.set_name ( 'IGS', 'IGS_FI_FTCI_ACCTS_INVALID' );
3533: fnd_file.put_line ( fnd_file.LOG, fnd_message.get );
3534: FOR l_n_cntr IN tab_inactive_acc.FIRST..tab_inactive_acc.LAST LOOP
3535: log_parameters ( igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX', 'SEQUENCE'),
3529:
3530: IF ( l_b_inactive_account ) THEN
3531: fnd_file.put_line ( fnd_file.LOG, ' ' );
3532: fnd_message.set_name ( 'IGS', 'IGS_FI_FTCI_ACCTS_INVALID' );
3533: fnd_file.put_line ( fnd_file.LOG, fnd_message.get );
3534: FOR l_n_cntr IN tab_inactive_acc.FIRST..tab_inactive_acc.LAST LOOP
3535: log_parameters ( igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX', 'SEQUENCE'),
3536: tab_inactive_acc(l_n_cntr));
3537: END LOOP;
3633: fnd_message.set_token('FEE_TYPE',p_fee_type);
3634: fnd_message.set_token('FEE_CAL_TYPE',p_source_cal_type);
3635: fnd_message.set_token('ALT_CODE',g_v_alternate_code);
3636: fnd_message.set_token('FEE_TRIGGER_GROUP_NUMBER',l_trg_grp_source_rec.fee_trigger_group_number);
3637: fnd_file.put_line (fnd_file.log, fnd_message.get);
3638: END;
3639: END IF;
3640: END LOOP;
3641:
3641:
3642: IF (l_b_record_exists_ind = TRUE) THEN
3643: -- Display message that the Fee Trigger Group record already exist
3644: fnd_message.set_name('IGS','IGS_FI_TRG_GRP_EXISTS');
3645: fnd_file.put_line (fnd_file.log, fnd_message.get);
3646: END IF;
3647: IF (l_b_record_inserted_ind = TRUE) THEN
3648: -- Display message that the Fee Trigger Group record have been successfully rolled over
3649: fnd_message.set_name('IGS','IGS_FI_TRG_GRP_ROLLED');
3646: END IF;
3647: IF (l_b_record_inserted_ind = TRUE) THEN
3648: -- Display message that the Fee Trigger Group record have been successfully rolled over
3649: fnd_message.set_name('IGS','IGS_FI_TRG_GRP_ROLLED');
3650: fnd_file.put_line (fnd_file.log, fnd_message.get);
3651: END IF;
3652: RETURN TRUE;
3653:
3654: END finp_ins_roll_trg_grp;
3810: fnd_message.set_token('ALT_CODE',NVL(l_v_alt_code,IGS_FI_GEN_GL.GET_LKP_MEANING('IGS_FI_LOCKBOX','NULL_VALUE')));
3811: fnd_message.set_token('LOC_CD', NVL(l_uft_source_rec.location_cd,IGS_FI_GEN_GL.GET_LKP_MEANING('IGS_FI_LOCKBOX','NULL_VALUE')));
3812: fnd_message.set_token('UNIT_CLASS', NVL(l_uft_source_rec.unit_class,IGS_FI_GEN_GL.GET_LKP_MEANING('IGS_FI_LOCKBOX','NULL_VALUE')));
3813: fnd_message.set_token('CR_DATE',l_uft_source_rec.create_dt);
3814: fnd_file.put_line (fnd_file.log, fnd_message.get);
3815:
3816: END;
3817:
3818: END IF;
3820:
3821: IF (l_b_record_exists_ind = TRUE) THEN
3822: -- Display message that the Unit Triggers already exist
3823: fnd_message.set_name('IGS','IGS_FI_UNIT_TRG_EXISTS');
3824: fnd_file.put_line (fnd_file.log, fnd_message.get);
3825: END IF;
3826: IF (l_b_record_inserted_ind = TRUE) THEN
3827: -- Display message that the Unit Fee Triggers have been successfully rolled over
3828: fnd_message.set_name('IGS','IGS_FI_UNIT_TRG_ROLLED');
3825: END IF;
3826: IF (l_b_record_inserted_ind = TRUE) THEN
3827: -- Display message that the Unit Fee Triggers have been successfully rolled over
3828: fnd_message.set_name('IGS','IGS_FI_UNIT_TRG_ROLLED');
3829: fnd_file.put_line (fnd_file.log, fnd_message.get);
3830: END IF;
3831:
3832: RETURN TRUE;
3833:
3934: fnd_message.set_token('FEE_CAL_TYPE',p_source_cal_type);
3935: fnd_message.set_token('ALT_CODE',g_v_alternate_code);
3936: fnd_message.set_token('UNIT_SET_CD',l_usft_source_rec.unit_set_cd);
3937: fnd_message.set_token('VERSION_NUMBER',l_usft_source_rec.version_number);
3938: fnd_file.put_line (fnd_file.log, fnd_message.get);
3939: END;
3940: END IF;
3941: END LOOP;
3942:
3942:
3943: IF (l_b_record_exists_ind = TRUE) THEN
3944: -- Display message that the Unit Set Triggers already exist
3945: fnd_message.set_name('IGS','IGS_FI_USET_TRG_EXISTS');
3946: fnd_file.put_line (fnd_file.log, fnd_message.get);
3947: END IF;
3948: IF (l_b_record_inserted_ind = TRUE) THEN
3949: -- Display message that the Unit Set Fee Triggers have been successfully rolled over
3950: fnd_message.set_name('IGS','IGS_FI_USET_TRG_ROLLED');
3947: END IF;
3948: IF (l_b_record_inserted_ind = TRUE) THEN
3949: -- Display message that the Unit Set Fee Triggers have been successfully rolled over
3950: fnd_message.set_name('IGS','IGS_FI_USET_TRG_ROLLED');
3951: fnd_file.put_line (fnd_file.log, fnd_message.get);
3952: END IF;
3953: RETURN TRUE;
3954:
3955: END finp_ins_roll_usft;
4109: l_v_teach_alt_cd := igs_ca_gen_001.calp_get_alt_cd(p_cal_type => rec_dist_tp.teach_cal_type,
4110: p_sequence_number => rec_dist_tp.teach_ci_sequence_number);
4111:
4112: -- Log the Teaching Period details in the log file
4113: fnd_file.new_line(fnd_file.log);
4114: fnd_file.put_line(fnd_file.log,
4115: l_v_teach_label||':'||l_v_teach_alt_cd);
4116:
4117: -- Validation for the Rolled Over Instance of the Teaching Period.
4110: p_sequence_number => rec_dist_tp.teach_ci_sequence_number);
4111:
4112: -- Log the Teaching Period details in the log file
4113: fnd_file.new_line(fnd_file.log);
4114: fnd_file.put_line(fnd_file.log,
4115: l_v_teach_label||':'||l_v_teach_alt_cd);
4116:
4117: -- Validation for the Rolled Over Instance of the Teaching Period.
4118: OPEN cur_roll_tp(rec_dist_tp.teach_cal_type,
4123: fnd_message.set_name('IGS',
4124: 'IGS_FI_TPRS_NO_TP_ROLL');
4125: fnd_message.set_token('ALT_CD',
4126: l_v_teach_alt_cd);
4127: fnd_file.put_line(fnd_file.log,
4128: fnd_message.get);
4129: END IF;
4130: CLOSE cur_roll_tp;
4131:
4141: IF cur_ret_schdl%FOUND THEN
4142: l_b_prc_rollover := FALSE;
4143: fnd_message.set_name('IGS',
4144: 'IGS_FI_TP_RET_SCHD_ROLLED');
4145: fnd_file.put_line(fnd_file.log,
4146: fnd_message.get);
4147: END IF;
4148: CLOSE cur_ret_schdl;
4149: END IF;
4168: fnd_message.set_token('TEACH_ALT_CD',
4169: l_v_dest_teach_alt_cd);
4170: fnd_message.set_token('FEE_ALT_CD',
4171: l_v_fp_alt_cd);
4172: fnd_file.put_line(fnd_file.log,
4173: fnd_message.get);
4174: END IF;
4175: CLOSE cur_load_teach;
4176: END IF;
4200: fnd_message.set_token('ALT_CD',
4201: l_v_teach_alt_cd);
4202: fnd_message.set_token('DATE_ALIAS',
4203: rec_ret_schd.dt_alias);
4204: fnd_file.put_line(fnd_file.log,
4205: fnd_message.get);
4206: EXIT;
4207: END IF;
4208: CLOSE cur_dai_exist;
4238: fnd_message.set_token('ALT_CODE',g_v_alternate_code);
4239: fnd_message.set_token('TEACH_CAL_TYPE',rec_dist_tp.teach_cal_type);
4240: fnd_message.set_token('TEACH_CI_ALT_CODE',l_v_teach_alt_cd);
4241: fnd_message.set_token('DT_ALIAS',l_rec_dai.dt_alias);
4242: fnd_file.put_line (fnd_file.log, fnd_message.get);
4243: END;
4244:
4245:
4246: -- If the Rollover validations have failed, then set
4247: -- the status to False else log the success message in the log file
4248: IF l_b_prc_rollover THEN
4249: fnd_message.set_name('IGS',
4250: 'IGS_FI_ROLL_TP_FTCI');
4251: fnd_file.put_line(fnd_file.log,
4252: fnd_message.get);
4253: END IF;
4254: END LOOP;
4255:
4263: EXCEPTION
4264: WHEN OTHERS THEN
4265: ROLLBACK TO SP_ROLLTP_MAIN;
4266: p_b_status := FALSE;
4267: fnd_file.put_line(fnd_file.log,
4268: fnd_message.get_string('IGS',
4269: 'IGS_GE_UNHANDLED_EXCEPTION')||':'||sqlerrm);
4270: END finp_ins_roll_tprs;
4271: