[Home] [Help]
125:
126: IF l_v_pln_cr_message IS NOT NULL THEN
127: --Log error message and raise exception
128: fnd_message.set_name('IGS',l_v_pln_cr_message);
129: fnd_file.put_line(fnd_file.log,fnd_message.get());
130: fnd_file.put_line(fnd_file.log,' ');
131: app_exception.raise_exception;
132: END IF;
133:
126: IF l_v_pln_cr_message IS NOT NULL THEN
127: --Log error message and raise exception
128: fnd_message.set_name('IGS',l_v_pln_cr_message);
129: fnd_file.put_line(fnd_file.log,fnd_message.get());
130: fnd_file.put_line(fnd_file.log,' ');
131: app_exception.raise_exception;
132: END IF;
133:
134: RETURN l_v_planned_credits_ind;
317: l_message_name := NULL;
318: IF NOT igs_en_val_etde.enrp_val_et_closed(l_hold_plan_rec.hold_type,l_message_name)
319: AND (l_message_name = 'IGS_EN_ENCUMB_TYPE_CLOSED') THEN
320: fnd_message.set_name('IGS','IGS_EN_ENCUMB_TYPE_CLOSED');
321: fnd_file.put_line(fnd_file.log,fnd_message.get());
322: fnd_file.put_line(fnd_file.log,' ');
323: CLOSE c_hold_plan;
324: RETURN FALSE;
325: END IF;
318: IF NOT igs_en_val_etde.enrp_val_et_closed(l_hold_plan_rec.hold_type,l_message_name)
319: AND (l_message_name = 'IGS_EN_ENCUMB_TYPE_CLOSED') THEN
320: fnd_message.set_name('IGS','IGS_EN_ENCUMB_TYPE_CLOSED');
321: fnd_file.put_line(fnd_file.log,fnd_message.get());
322: fnd_file.put_line(fnd_file.log,' ');
323: CLOSE c_hold_plan;
324: RETURN FALSE;
325: END IF;
326: --1
411: ELSIF l_message_name IS NOT NULL THEN
412: --Log the eror message in the log when message is returned with FALSE
413: IF p_test_run = 'Y' THEN
414: fnd_message.set_name('IGS',l_message_name);
415: fnd_file.put_line(fnd_file.log,fnd_message.get());
416: fnd_file.put_line(fnd_file.log,' ');
417: END IF;
418: END IF;
419: END IF;
412: --Log the eror message in the log when message is returned with FALSE
413: IF p_test_run = 'Y' THEN
414: fnd_message.set_name('IGS',l_message_name);
415: fnd_file.put_line(fnd_file.log,fnd_message.get());
416: fnd_file.put_line(fnd_file.log,' ');
417: END IF;
418: END IF;
419: END IF;
420: --5
432: p_end_date => l_payment_due_date,
433: p_message_name => l_v_pln_cr_message);
434: IF l_v_pln_cr_message IS NOT NULL THEN
435: fnd_message.set_name('IGS',l_v_pln_cr_message);
436: fnd_file.put_line(fnd_file.log,fnd_message.get());
437: fnd_file.put_line(fnd_file.log,' ');
438: RETURN FALSE;
439: END IF;
440: -- When no errors sum up the planned credits also with the actual credits
433: p_message_name => l_v_pln_cr_message);
434: IF l_v_pln_cr_message IS NOT NULL THEN
435: fnd_message.set_name('IGS',l_v_pln_cr_message);
436: fnd_file.put_line(fnd_file.log,fnd_message.get());
437: fnd_file.put_line(fnd_file.log,' ');
438: RETURN FALSE;
439: END IF;
440: -- When no errors sum up the planned credits also with the actual credits
441: l_tot_credits := l_tot_credits + NVL(l_n_planned_credit,0);
444:
445: --If this amount is Zero i.e holds balance is zero then we need not proceed further
446: IF l_holds_balance = 0 THEN
447: IF p_test_run = 'Y' THEN
448: fnd_file.put_line(fnd_file.log,g_v_person_number ||' : '||p_person_number);
449: fnd_file.put_line(fnd_file.log,g_v_person_name ||' : '||l_person_rec.full_name);
450: fnd_message.set_name('IGS','IGS_FI_NO_BALANCE');
451: fnd_message.set_token('PERSON',p_person_number);
452: fnd_message.set_token('PROCESS_START_DT',p_process_start_date);
445: --If this amount is Zero i.e holds balance is zero then we need not proceed further
446: IF l_holds_balance = 0 THEN
447: IF p_test_run = 'Y' THEN
448: fnd_file.put_line(fnd_file.log,g_v_person_number ||' : '||p_person_number);
449: fnd_file.put_line(fnd_file.log,g_v_person_name ||' : '||l_person_rec.full_name);
450: fnd_message.set_name('IGS','IGS_FI_NO_BALANCE');
451: fnd_message.set_token('PERSON',p_person_number);
452: fnd_message.set_token('PROCESS_START_DT',p_process_start_date);
453: fnd_file.put_line(fnd_file.log,fnd_message.get());
449: fnd_file.put_line(fnd_file.log,g_v_person_name ||' : '||l_person_rec.full_name);
450: fnd_message.set_name('IGS','IGS_FI_NO_BALANCE');
451: fnd_message.set_token('PERSON',p_person_number);
452: fnd_message.set_token('PROCESS_START_DT',p_process_start_date);
453: fnd_file.put_line(fnd_file.log,fnd_message.get());
454: END IF;
455: RETURN FALSE;
456: END IF;
457: l_final_balance := l_holds_balance - l_tot_credits ;
464: -- if no fee type if found attached to fee type hold plan level
465: -- an error is raised
466: IF l_hold_plan_rec.fee_type IS NULL THEN
467: fnd_message.set_name('IGS','IGS_FI_HLD_CRITERIA_NT_DEFIND');
468: fnd_file.put_line(fnd_file.log,fnd_message.get());
469: RETURN FALSE;
470: END IF;
471:
472: --Get the charges records for the person FROM the charges table IGS_FI_INV_INT as on the p_process_start_date by getting the fee types for the passed hold plan
491: ELSIF l_message_name IS NOT NULL THEN
492: --Log the eror message in the log when message is returned with FALSE
493: IF p_test_run = 'Y' THEN
494: fnd_message.set_name('IGS',l_message_name);
495: fnd_file.put_line(fnd_file.log,fnd_message.get());
496: fnd_file.put_line(fnd_file.log,' ');
497: END IF;
498: END IF;
499: END IF;
492: --Log the eror message in the log when message is returned with FALSE
493: IF p_test_run = 'Y' THEN
494: fnd_message.set_name('IGS',l_message_name);
495: fnd_file.put_line(fnd_file.log,fnd_message.get());
496: fnd_file.put_line(fnd_file.log,' ');
497: END IF;
498: END IF;
499: END IF;
500: END LOOP;
502:
503: --If this amount is Zero i.e charges sum for all the fee types is zero then we need not proceed further
504: IF NVL(l_charges,0) = 0 THEN
505: IF p_test_run = 'Y' THEN
506: fnd_file.put_line(fnd_file.log,g_v_person_number ||' : '||p_person_number);
507: fnd_file.put_line(fnd_file.log,g_v_person_name ||' : '||l_person_rec.full_name);
508: fnd_message.set_name('IGS','IGS_FI_NO_BALANCE');
509: fnd_message.set_token('PERSON',p_person_number);
510: fnd_message.set_token('PROCESS_START_DT',p_process_start_date);
503: --If this amount is Zero i.e charges sum for all the fee types is zero then we need not proceed further
504: IF NVL(l_charges,0) = 0 THEN
505: IF p_test_run = 'Y' THEN
506: fnd_file.put_line(fnd_file.log,g_v_person_number ||' : '||p_person_number);
507: fnd_file.put_line(fnd_file.log,g_v_person_name ||' : '||l_person_rec.full_name);
508: fnd_message.set_name('IGS','IGS_FI_NO_BALANCE');
509: fnd_message.set_token('PERSON',p_person_number);
510: fnd_message.set_token('PROCESS_START_DT',p_process_start_date);
511: fnd_file.put_line(fnd_file.log,fnd_message.get());
507: fnd_file.put_line(fnd_file.log,g_v_person_name ||' : '||l_person_rec.full_name);
508: fnd_message.set_name('IGS','IGS_FI_NO_BALANCE');
509: fnd_message.set_token('PERSON',p_person_number);
510: fnd_message.set_token('PROCESS_START_DT',p_process_start_date);
511: fnd_file.put_line(fnd_file.log,fnd_message.get());
512: END IF;
513: RETURN FALSE;
514: END IF;
515: -- the non-excluded invoice amount and invoice amount_due has been assigned to OUT parameters
639: FETCH c_hold_exist INTO l_hold_exist_rec;
640: IF c_hold_exist%FOUND THEN
641: IF p_test_run = 'Y' THEN
642: fnd_message.set_name('IGS','IGS_FI_HOLD_NOT_VALID');
643: fnd_file.put_line(fnd_file.log,fnd_message.get());
644: fnd_file.put_line(fnd_file.log,' ');
645: END IF;
646: CLOSE c_hold_exist;
647: RETURN FALSE;
640: IF c_hold_exist%FOUND THEN
641: IF p_test_run = 'Y' THEN
642: fnd_message.set_name('IGS','IGS_FI_HOLD_NOT_VALID');
643: fnd_file.put_line(fnd_file.log,fnd_message.get());
644: fnd_file.put_line(fnd_file.log,' ');
645: END IF;
646: CLOSE c_hold_exist;
647: RETURN FALSE;
648: END IF;
653: AND
654: (l_message_name IN ('IGS_EN_ENCUMB_TYPE_NOTAPPLIED','IGS_EN_ENCUMBTYPE_DIFF_LVLS','IGS_EN_ENCUMBTYPE_INV_COMBI','IGS_EN_ENCUMBTYPE_PRG_INVALID') ) THEN
655: IF p_test_run = 'Y' THEN
656: fnd_message.set_name('IGS','IGS_EN_ENCUMBTYPE_DIFF_LVLS');
657: fnd_file.put_line(fnd_file.log,fnd_message.get());
658: fnd_file.put_line(fnd_file.log,' ');
659: END IF;
660: RETURN FALSE;
661: END IF;
654: (l_message_name IN ('IGS_EN_ENCUMB_TYPE_NOTAPPLIED','IGS_EN_ENCUMBTYPE_DIFF_LVLS','IGS_EN_ENCUMBTYPE_INV_COMBI','IGS_EN_ENCUMBTYPE_PRG_INVALID') ) THEN
655: IF p_test_run = 'Y' THEN
656: fnd_message.set_name('IGS','IGS_EN_ENCUMBTYPE_DIFF_LVLS');
657: fnd_file.put_line(fnd_file.log,fnd_message.get());
658: fnd_file.put_line(fnd_file.log,' ');
659: END IF;
660: RETURN FALSE;
661: END IF;
662:
697: 'IGS_EN_PERS_ENRL_EXCL_COURSE') THEN
698: fnd_message.set_name('IGS','IGS_FI_ACTIVE_ENRLLM_DISCONT');
699: fnd_message.set_token('HOLD_TYPE',p_hold_type);
700: fnd_message.set_token('PERSON',p_person_number);
701: fnd_file.put_line(fnd_file.log,fnd_message.get());
702: fnd_file.put_line(fnd_file.log,' ');
703:
704: --TO rollback the previous insert
705: ROLLBACK;
698: fnd_message.set_name('IGS','IGS_FI_ACTIVE_ENRLLM_DISCONT');
699: fnd_message.set_token('HOLD_TYPE',p_hold_type);
700: fnd_message.set_token('PERSON',p_person_number);
701: fnd_file.put_line(fnd_file.log,fnd_message.get());
702: fnd_file.put_line(fnd_file.log,' ');
703:
704: --TO rollback the previous insert
705: ROLLBACK;
706: RETURN FALSE;
716: l_message_string);
717: IF l_message_name IS NOT NULL THEN
718: fnd_message.set_name('IGS','IGS_FI_DEFAULT_HOLD_EFFECTS');
719: fnd_message.set_token('HOLD_TYPE',p_hold_type);
720: fnd_file.put_line(fnd_file.log,fnd_message.get());
721: fnd_file.put_line(fnd_file.log,' ');
722: --TO rollback the previous insert
723: ROLLBACK;
724: RETURN FALSE;
717: IF l_message_name IS NOT NULL THEN
718: fnd_message.set_name('IGS','IGS_FI_DEFAULT_HOLD_EFFECTS');
719: fnd_message.set_token('HOLD_TYPE',p_hold_type);
720: fnd_file.put_line(fnd_file.log,fnd_message.get());
721: fnd_file.put_line(fnd_file.log,' ');
722: --TO rollback the previous insert
723: ROLLBACK;
724: RETURN FALSE;
725: END IF;
862: --Check for mandatory parameters
863: IF p_process_start_date IS NULL THEN
864: fnd_message.set_name('IGS','IGS_FI_INVALID_PARAMETER');
865: fnd_message.set_token('PARAMETER','P_PROCESS_START_DATE');
866: fnd_file.put_line(fnd_file.log,' ');
867: RETURN FALSE;
868: ELSIF p_hold_plan_name IS NULL THEN
869: fnd_message.set_name('IGS','IGS_FI_INVALID_PARAMETER');
870: fnd_message.set_token('PARAMETER','P_HOLD_PLAN_NAME');
867: RETURN FALSE;
868: ELSIF p_hold_plan_name IS NULL THEN
869: fnd_message.set_name('IGS','IGS_FI_INVALID_PARAMETER');
870: fnd_message.set_token('PARAMETER','P_HOLD_PLAN_NAME');
871: fnd_file.put_line(fnd_file.log,' ');
872: RETURN FALSE;
873: END IF;
874:
875: igs_fi_gen_007.finp_get_balance_rule ( p_v_balance_type => 'HOLDS',
880:
881: IF l_version_number = 0 THEN
882: -- Exit if balance rule is not defined
883: fnd_message.set_name('IGS','IGS_FI_BR_CANNOT_APP_HLDS');
884: fnd_file.put_line(fnd_file.log,fnd_message.get());
885: fnd_file.put_line(fnd_file.log,' ');
886: RETURN FALSE;
887: END IF;
888:
881: IF l_version_number = 0 THEN
882: -- Exit if balance rule is not defined
883: fnd_message.set_name('IGS','IGS_FI_BR_CANNOT_APP_HLDS');
884: fnd_file.put_line(fnd_file.log,fnd_message.get());
885: fnd_file.put_line(fnd_file.log,' ');
886: RETURN FALSE;
887: END IF;
888:
889: IF (p_person_id IS NOT NULL AND p_person_id_group IS NOT NULL) THEN
888:
889: IF (p_person_id IS NOT NULL AND p_person_id_group IS NOT NULL) THEN
890: -- Exit if the value of both the parameters p_person_id AND p_person_id_group are not NUll
891: fnd_message.set_name('IGS','IGS_FI_NO_PERS_PGRP');
892: fnd_file.put_line(fnd_file.log,fnd_message.get());
893: fnd_file.put_line(fnd_file.log,' ');
894: RETURN FALSE;
895: ELSIF p_person_id IS NOT NULL AND p_person_id_group IS NULL THEN
896: -- Exit if the passed person_id is not valid
889: IF (p_person_id IS NOT NULL AND p_person_id_group IS NOT NULL) THEN
890: -- Exit if the value of both the parameters p_person_id AND p_person_id_group are not NUll
891: fnd_message.set_name('IGS','IGS_FI_NO_PERS_PGRP');
892: fnd_file.put_line(fnd_file.log,fnd_message.get());
893: fnd_file.put_line(fnd_file.log,' ');
894: RETURN FALSE;
895: ELSIF p_person_id IS NOT NULL AND p_person_id_group IS NULL THEN
896: -- Exit if the passed person_id is not valid
897: OPEN c_person(p_person_id);
897: OPEN c_person(p_person_id);
898: FETCH c_person INTO l_person_rec;
899: IF c_person%NOTFOUND THEN
900: fnd_message.set_name('IGS','IGS_FI_INVALID_PERSON_ID');
901: fnd_file.put_line(fnd_file.log,fnd_message.get());
902: fnd_file.put_line(fnd_file.log,' ');
903: CLOSE c_person;
904: RETURN FALSE;
905: END IF;
898: FETCH c_person INTO l_person_rec;
899: IF c_person%NOTFOUND THEN
900: fnd_message.set_name('IGS','IGS_FI_INVALID_PERSON_ID');
901: fnd_file.put_line(fnd_file.log,fnd_message.get());
902: fnd_file.put_line(fnd_file.log,' ');
903: CLOSE c_person;
904: RETURN FALSE;
905: END IF;
906: CLOSE c_person;
910: FETCH c_person_group_id INTO l_person_group_id_rec;
911: IF c_person_group_id%NOTFOUND THEN
912: fnd_message.set_name('IGS','IGS_FI_INVALID_PARAMETER');
913: fnd_message.set_token('PARAMETER','P_PERSON_ID_GROUP');
914: fnd_file.put_line(fnd_file.log,' ');
915: CLOSE c_person_group_id;
916: RETURN FALSE;
917: END IF;
918: CLOSE c_person_group_id;
920:
921: --To check for p_process_start_date validity
922: IF TRUNC(p_process_start_date) > TRUNC(SYSDATE) THEN
923: fnd_message.set_name('IGS','IGS_FI_PR_ST_DT');
924: fnd_file.put_line(fnd_file.log,fnd_message.get());
925: fnd_file.put_line(fnd_file.log,' ');
926: RETURN FALSE;
927:
928: -- If p_process_end_date is not NULL then (process_end_date +offset days) should not be greater THEN
921: --To check for p_process_start_date validity
922: IF TRUNC(p_process_start_date) > TRUNC(SYSDATE) THEN
923: fnd_message.set_name('IGS','IGS_FI_PR_ST_DT');
924: fnd_file.put_line(fnd_file.log,fnd_message.get());
925: fnd_file.put_line(fnd_file.log,' ');
926: RETURN FALSE;
927:
928: -- If p_process_end_date is not NULL then (process_end_date +offset days) should not be greater THEN
929: --sysdate
932: FETCH c_hold_plan_name INTO l_hold_plan_name_rec;
933: CLOSE c_hold_plan_name;
934: IF (TRUNC(p_process_end_date) + NVL(l_hold_plan_name_rec.offset_days,0)) > TRUNC(SYSDATE) THEN
935: fnd_message.set_name('IGS','IGS_FI_PR_EN_OFF_DT');
936: fnd_file.put_line(fnd_file.log,fnd_message.get());
937: fnd_file.put_line(fnd_file.log,' ');
938: RETURN FALSE;
939: END IF;
940:
933: CLOSE c_hold_plan_name;
934: IF (TRUNC(p_process_end_date) + NVL(l_hold_plan_name_rec.offset_days,0)) > TRUNC(SYSDATE) THEN
935: fnd_message.set_name('IGS','IGS_FI_PR_EN_OFF_DT');
936: fnd_file.put_line(fnd_file.log,fnd_message.get());
937: fnd_file.put_line(fnd_file.log,' ');
938: RETURN FALSE;
939: END IF;
940:
941: --If p_process_end_date is not NULL then process_end_date should not be less than process_start_date
940:
941: --If p_process_end_date is not NULL then process_end_date should not be less than process_start_date
942: IF TRUNC(p_process_start_date) > TRUNC(p_process_end_date) THEN
943: fnd_message.set_name('IGS','IGS_FI_PR_EN_DT');
944: fnd_file.put_line(fnd_file.log,fnd_message.get());
945: fnd_file.put_line(fnd_file.log,' ');
946: RETURN FALSE;
947: END IF;
948: END IF;
941: --If p_process_end_date is not NULL then process_end_date should not be less than process_start_date
942: IF TRUNC(p_process_start_date) > TRUNC(p_process_end_date) THEN
943: fnd_message.set_name('IGS','IGS_FI_PR_EN_DT');
944: fnd_file.put_line(fnd_file.log,fnd_message.get());
945: fnd_file.put_line(fnd_file.log,' ');
946: RETURN FALSE;
947: END IF;
948: END IF;
949:
951: OPEN c_hold_plan_name;
952: FETCH c_hold_plan_name INTO l_hold_plan_name_rec;
953: IF c_hold_plan_name%NOTFOUND THEN
954: fnd_message.set_name('IGS','IGS_FI_INVALID_HP');
955: fnd_file.put_line(fnd_file.log,fnd_message.get());
956: fnd_file.put_line(fnd_file.log,' ');
957: CLOSE c_hold_plan_name;
958: RETURN FALSE;
959: END IF;
952: FETCH c_hold_plan_name INTO l_hold_plan_name_rec;
953: IF c_hold_plan_name%NOTFOUND THEN
954: fnd_message.set_name('IGS','IGS_FI_INVALID_HP');
955: fnd_file.put_line(fnd_file.log,fnd_message.get());
956: fnd_file.put_line(fnd_file.log,' ');
957: CLOSE c_hold_plan_name;
958: RETURN FALSE;
959: END IF;
960: CLOSE c_hold_plan_name;
967: IF (TRUNC(p_process_start_date) < TRUNC(l_last_conv_dt)) THEN
968: fnd_message.set_name('IGS','IGS_FI_FINAPP_HLDS_DT');
969: fnd_message.set_token('DATE1',p_process_start_date);
970: fnd_message.set_token('DATE2',l_last_conv_dt);
971: fnd_file.put_line(fnd_file.log,fnd_message.get());
972: fnd_file.put_line(fnd_file.log,' ');
973: RETURN FALSE;
974: END IF;
975:
968: fnd_message.set_name('IGS','IGS_FI_FINAPP_HLDS_DT');
969: fnd_message.set_token('DATE1',p_process_start_date);
970: fnd_message.set_token('DATE2',l_last_conv_dt);
971: fnd_file.put_line(fnd_file.log,fnd_message.get());
972: fnd_file.put_line(fnd_file.log,' ');
973: RETURN FALSE;
974: END IF;
975:
976: --If the hold plan is defined at Account/student level then the parameter p_process_end_date is mandatory
975:
976: --If the hold plan is defined at Account/student level then the parameter p_process_end_date is mandatory
977: IF p_process_end_date IS NULL THEN
978: fnd_message.set_name('IGS','IGS_FI_PROCESS_ENDDT_NULL');
979: fnd_file.put_line(fnd_file.log,fnd_message.get());
980: fnd_file.put_line(fnd_file.log,' ');
981: RETURN FALSE;
982: END IF;
983: ELSIF l_hold_plan_name_rec.hold_plan_level = 'F' THEN
976: --If the hold plan is defined at Account/student level then the parameter p_process_end_date is mandatory
977: IF p_process_end_date IS NULL THEN
978: fnd_message.set_name('IGS','IGS_FI_PROCESS_ENDDT_NULL');
979: fnd_file.put_line(fnd_file.log,fnd_message.get());
980: fnd_file.put_line(fnd_file.log,' ');
981: RETURN FALSE;
982: END IF;
983: ELSIF l_hold_plan_name_rec.hold_plan_level = 'F' THEN
984: --To check if the mandatory parameters p_fee_cal_type AND p_fee_ci_sequence_number are specified
985: --if the hold_plan_level SELECTed above is 'F'.
986: --6
987: IF p_fee_cal_type IS NULL AND p_fee_ci_sequence_number IS NULL THEN
988: fnd_message.set_name('IGS','IGS_FI_FEE_PERIOD_NOT_NULL');
989: fnd_file.put_line(fnd_file.log,fnd_message.get());
990: fnd_file.put_line(fnd_file.log,' ');
991: RETURN FALSE;
992: --6
993: END IF;
986: --6
987: IF p_fee_cal_type IS NULL AND p_fee_ci_sequence_number IS NULL THEN
988: fnd_message.set_name('IGS','IGS_FI_FEE_PERIOD_NOT_NULL');
989: fnd_file.put_line(fnd_file.log,fnd_message.get());
990: fnd_file.put_line(fnd_file.log,' ');
991: RETURN FALSE;
992: --6
993: END IF;
994: END IF;
998: OPEN c_fee_type;
999: FETCH c_fee_type INTO l_fee_type_rec;
1000: IF c_fee_type%NOTFOUND THEN
1001: fnd_message.set_name('IGS','IGS_FI_FTCI_NOTFOUND');
1002: fnd_file.put_line(fnd_file.log,fnd_message.get());
1003: fnd_file.put_line(fnd_file.log,' ');
1004: CLOSE c_fee_type;
1005: RETURN FALSE;
1006: END IF;
999: FETCH c_fee_type INTO l_fee_type_rec;
1000: IF c_fee_type%NOTFOUND THEN
1001: fnd_message.set_name('IGS','IGS_FI_FTCI_NOTFOUND');
1002: fnd_file.put_line(fnd_file.log,fnd_message.get());
1003: fnd_file.put_line(fnd_file.log,' ');
1004: CLOSE c_fee_type;
1005: RETURN FALSE;
1006: END IF;
1007: CLOSE c_fee_type;
1153: fnd_message.set_token('PROCESS_END_DATE',p_process_end_date);
1154: fnd_message.set_token('HOLD_PLAN_NAME',p_hold_plan_name);
1155: fnd_message.set_token('FEE_PERIOD',p_fee_period);
1156: fnd_message.set_token('TEST_RUN',p_test_run);
1157: fnd_file.put_line(fnd_file.log,fnd_message.get());
1158: fnd_file.put_line(fnd_file.log,' ');
1159:
1160: -- Obtain the value of manage_accounts in the System Options form
1161: -- If it is null or 'OTHER', then this process is not available, so error out.
1154: fnd_message.set_token('HOLD_PLAN_NAME',p_hold_plan_name);
1155: fnd_message.set_token('FEE_PERIOD',p_fee_period);
1156: fnd_message.set_token('TEST_RUN',p_test_run);
1157: fnd_file.put_line(fnd_file.log,fnd_message.get());
1158: fnd_file.put_line(fnd_file.log,' ');
1159:
1160: -- Obtain the value of manage_accounts in the System Options form
1161: -- If it is null or 'OTHER', then this process is not available, so error out.
1162: igs_fi_com_rec_interface.chk_manage_account( p_v_manage_acc => l_v_manage_acc,
1163: p_v_message_name => l_v_message_name
1164: );
1165: IF (l_v_manage_acc = 'OTHER') OR (l_v_manage_acc IS NULL) THEN
1166: fnd_message.set_name('IGS',l_v_message_name);
1167: fnd_file.put_line(fnd_file.log,fnd_message.get());
1168: fnd_file.new_line(fnd_file.log);
1169: retcode := 2; -- error out
1170: RETURN;
1171: END IF;
1164: );
1165: IF (l_v_manage_acc = 'OTHER') OR (l_v_manage_acc IS NULL) THEN
1166: fnd_message.set_name('IGS',l_v_message_name);
1167: fnd_file.put_line(fnd_file.log,fnd_message.get());
1168: fnd_file.new_line(fnd_file.log);
1169: retcode := 2; -- error out
1170: RETURN;
1171: END IF;
1172:
1176: p_v_message_name => l_message_name_1) ;
1177:
1178: IF l_message_name_1 IS NOT NULL THEN
1179: fnd_message.set_name('IGS',l_message_name_1);
1180: fnd_file.put_line(fnd_file.log,fnd_message.get());
1181: fnd_file.new_line(fnd_file.log);
1182: retcode := 2; -- error out
1183: RETURN;
1184: END IF;
1177:
1178: IF l_message_name_1 IS NOT NULL THEN
1179: fnd_message.set_name('IGS',l_message_name_1);
1180: fnd_file.put_line(fnd_file.log,fnd_message.get());
1181: fnd_file.new_line(fnd_file.log);
1182: retcode := 2; -- error out
1183: RETURN;
1184: END IF;
1185:
1185:
1186: IF l_process_run_ind = 1 THEN
1187: -- Stop further processing as the holds conversion process is running
1188: fnd_message.set_name('IGS','IGS_FI_REASS_BAL_PRC_RUN');
1189: fnd_file.put_line(fnd_file.log,fnd_message.get());
1190: fnd_file.put_line(fnd_file.log,' ');
1191: retcode := 2; -- error out
1192: RETURN;
1193: END IF;
1186: IF l_process_run_ind = 1 THEN
1187: -- Stop further processing as the holds conversion process is running
1188: fnd_message.set_name('IGS','IGS_FI_REASS_BAL_PRC_RUN');
1189: fnd_file.put_line(fnd_file.log,fnd_message.get());
1190: fnd_file.put_line(fnd_file.log,' ');
1191: retcode := 2; -- error out
1192: RETURN;
1193: END IF;
1194:
1217: l_v_msg_name);
1218:
1219: IF l_v_msg_name IS NOT NULL THEN
1220: FND_MESSAGE.SET_NAME('IGS',l_v_msg_name);
1221: fnd_file.put_line(fnd_file.log,fnd_message.get());
1222: fnd_file.put_line(fnd_file.log,' ');
1223: retcode := 2;
1224: RETURN;
1225: END IF;
1218:
1219: IF l_v_msg_name IS NOT NULL THEN
1220: FND_MESSAGE.SET_NAME('IGS',l_v_msg_name);
1221: fnd_file.put_line(fnd_file.log,fnd_message.get());
1222: fnd_file.put_line(fnd_file.log,' ');
1223: retcode := 2;
1224: RETURN;
1225: END IF;
1226:
1246: l_d_last_inst_due_date
1247: ) THEN
1248: fnd_message.set_name('IGS','IGS_FI_HOLD_NOT_APPLY');
1249: fnd_message.set_token('PERSON',l_person_number);
1250: fnd_file.put_line(fnd_file.log,fnd_message.get());
1251: fnd_file.put_line(fnd_file.log,' ');
1252: RETURN;
1253: ELSE
1254:
1247: ) THEN
1248: fnd_message.set_name('IGS','IGS_FI_HOLD_NOT_APPLY');
1249: fnd_message.set_token('PERSON',l_person_number);
1250: fnd_file.put_line(fnd_file.log,fnd_message.get());
1251: fnd_file.put_line(fnd_file.log,' ');
1252: RETURN;
1253: ELSE
1254:
1255: --Call a private function for validating the values to apply holds for the person,toinsert data into holds table AND to print
1272: l_d_last_inst_due_date
1273: ) THEN
1274: fnd_message.set_name('IGS','IGS_FI_HOLD_NOT_APPLY');
1275: fnd_message.set_token('PERSON', l_person_number);
1276: fnd_file.put_line(fnd_file.log,fnd_message.get());
1277: fnd_file.put_line(fnd_file.log,' ');
1278: RETURN;
1279: ELSE
1280:
1273: ) THEN
1274: fnd_message.set_name('IGS','IGS_FI_HOLD_NOT_APPLY');
1275: fnd_message.set_token('PERSON', l_person_number);
1276: fnd_file.put_line(fnd_file.log,fnd_message.get());
1277: fnd_file.put_line(fnd_file.log,' ');
1278: RETURN;
1279: ELSE
1280:
1281: --count of persons on whom holds is applied
1282: l_count := l_count +1;
1283: --To print the log file for both the cases of test_run parameter value
1284: IF p_test_run = 'Y' AND l_count = 1 THEN
1285: fnd_message.set_name('IGS','IGS_FI_HOLDS_APPLY');
1286: fnd_file.put_line(fnd_file.log,fnd_message.get());
1287: fnd_file.put_line(fnd_file.log,' ');
1288: ELSIF p_test_run = 'N' AND l_count = 1 THEN
1289: fnd_message.set_name('IGS','IGS_FI_HLDS_HV_APP');
1290: fnd_file.put_line(fnd_file.log,fnd_message.get());
1283: --To print the log file for both the cases of test_run parameter value
1284: IF p_test_run = 'Y' AND l_count = 1 THEN
1285: fnd_message.set_name('IGS','IGS_FI_HOLDS_APPLY');
1286: fnd_file.put_line(fnd_file.log,fnd_message.get());
1287: fnd_file.put_line(fnd_file.log,' ');
1288: ELSIF p_test_run = 'N' AND l_count = 1 THEN
1289: fnd_message.set_name('IGS','IGS_FI_HLDS_HV_APP');
1290: fnd_file.put_line(fnd_file.log,fnd_message.get());
1291: fnd_file.put_line(fnd_file.log,' ');
1286: fnd_file.put_line(fnd_file.log,fnd_message.get());
1287: fnd_file.put_line(fnd_file.log,' ');
1288: ELSIF p_test_run = 'N' AND l_count = 1 THEN
1289: fnd_message.set_name('IGS','IGS_FI_HLDS_HV_APP');
1290: fnd_file.put_line(fnd_file.log,fnd_message.get());
1291: fnd_file.put_line(fnd_file.log,' ');
1292: END IF;
1293:
1294: fnd_file.put_line(fnd_file.log,g_v_person_number ||' : '||l_person_number);
1287: fnd_file.put_line(fnd_file.log,' ');
1288: ELSIF p_test_run = 'N' AND l_count = 1 THEN
1289: fnd_message.set_name('IGS','IGS_FI_HLDS_HV_APP');
1290: fnd_file.put_line(fnd_file.log,fnd_message.get());
1291: fnd_file.put_line(fnd_file.log,' ');
1292: END IF;
1293:
1294: fnd_file.put_line(fnd_file.log,g_v_person_number ||' : '||l_person_number);
1295: fnd_file.put_line(fnd_file.log,g_v_person_name ||' : '||l_person_name);
1290: fnd_file.put_line(fnd_file.log,fnd_message.get());
1291: fnd_file.put_line(fnd_file.log,' ');
1292: END IF;
1293:
1294: fnd_file.put_line(fnd_file.log,g_v_person_number ||' : '||l_person_number);
1295: fnd_file.put_line(fnd_file.log,g_v_person_name ||' : '||l_person_name);
1296: fnd_file.put_line(fnd_file.log,g_n_holds_bal ||' : '||TO_CHAR(l_holds_charges));
1297: fnd_file.put_line(fnd_file.log,g_n_overdue_bal ||' : '||TO_CHAR(l_holds_final_balance));
1298: fnd_file.put_line(fnd_file.log,g_v_hold_type ||' : '||l_hold_type);
1291: fnd_file.put_line(fnd_file.log,' ');
1292: END IF;
1293:
1294: fnd_file.put_line(fnd_file.log,g_v_person_number ||' : '||l_person_number);
1295: fnd_file.put_line(fnd_file.log,g_v_person_name ||' : '||l_person_name);
1296: fnd_file.put_line(fnd_file.log,g_n_holds_bal ||' : '||TO_CHAR(l_holds_charges));
1297: fnd_file.put_line(fnd_file.log,g_n_overdue_bal ||' : '||TO_CHAR(l_holds_final_balance));
1298: fnd_file.put_line(fnd_file.log,g_v_hold_type ||' : '||l_hold_type);
1299: fnd_file.put_line(fnd_file.log,' ');
1292: END IF;
1293:
1294: fnd_file.put_line(fnd_file.log,g_v_person_number ||' : '||l_person_number);
1295: fnd_file.put_line(fnd_file.log,g_v_person_name ||' : '||l_person_name);
1296: fnd_file.put_line(fnd_file.log,g_n_holds_bal ||' : '||TO_CHAR(l_holds_charges));
1297: fnd_file.put_line(fnd_file.log,g_n_overdue_bal ||' : '||TO_CHAR(l_holds_final_balance));
1298: fnd_file.put_line(fnd_file.log,g_v_hold_type ||' : '||l_hold_type);
1299: fnd_file.put_line(fnd_file.log,' ');
1300: END IF;
1293:
1294: fnd_file.put_line(fnd_file.log,g_v_person_number ||' : '||l_person_number);
1295: fnd_file.put_line(fnd_file.log,g_v_person_name ||' : '||l_person_name);
1296: fnd_file.put_line(fnd_file.log,g_n_holds_bal ||' : '||TO_CHAR(l_holds_charges));
1297: fnd_file.put_line(fnd_file.log,g_n_overdue_bal ||' : '||TO_CHAR(l_holds_final_balance));
1298: fnd_file.put_line(fnd_file.log,g_v_hold_type ||' : '||l_hold_type);
1299: fnd_file.put_line(fnd_file.log,' ');
1300: END IF;
1301: --3
1294: fnd_file.put_line(fnd_file.log,g_v_person_number ||' : '||l_person_number);
1295: fnd_file.put_line(fnd_file.log,g_v_person_name ||' : '||l_person_name);
1296: fnd_file.put_line(fnd_file.log,g_n_holds_bal ||' : '||TO_CHAR(l_holds_charges));
1297: fnd_file.put_line(fnd_file.log,g_n_overdue_bal ||' : '||TO_CHAR(l_holds_final_balance));
1298: fnd_file.put_line(fnd_file.log,g_v_hold_type ||' : '||l_hold_type);
1299: fnd_file.put_line(fnd_file.log,' ');
1300: END IF;
1301: --3
1302: END IF;
1295: fnd_file.put_line(fnd_file.log,g_v_person_name ||' : '||l_person_name);
1296: fnd_file.put_line(fnd_file.log,g_n_holds_bal ||' : '||TO_CHAR(l_holds_charges));
1297: fnd_file.put_line(fnd_file.log,g_n_overdue_bal ||' : '||TO_CHAR(l_holds_final_balance));
1298: fnd_file.put_line(fnd_file.log,g_v_hold_type ||' : '||l_hold_type);
1299: fnd_file.put_line(fnd_file.log,' ');
1300: END IF;
1301: --3
1302: END IF;
1303: --2
1354:
1355: --To print the log file for both the cases of test_run parameter value
1356: IF p_test_run = 'Y' AND l_count = 1 THEN
1357: fnd_message.set_name('IGS','IGS_FI_HOLDS_APPLY');
1358: fnd_file.put_line(fnd_file.log,fnd_message.get());
1359: fnd_file.put_line(fnd_file.log,' ');
1360: ELSIF p_test_run = 'N' AND l_count = 1 THEN
1361: fnd_message.set_name('IGS','IGS_FI_HLDS_HV_APP');
1362: fnd_file.put_line(fnd_file.log,fnd_message.get());
1355: --To print the log file for both the cases of test_run parameter value
1356: IF p_test_run = 'Y' AND l_count = 1 THEN
1357: fnd_message.set_name('IGS','IGS_FI_HOLDS_APPLY');
1358: fnd_file.put_line(fnd_file.log,fnd_message.get());
1359: fnd_file.put_line(fnd_file.log,' ');
1360: ELSIF p_test_run = 'N' AND l_count = 1 THEN
1361: fnd_message.set_name('IGS','IGS_FI_HLDS_HV_APP');
1362: fnd_file.put_line(fnd_file.log,fnd_message.get());
1363: fnd_file.put_line(fnd_file.log,' ');
1358: fnd_file.put_line(fnd_file.log,fnd_message.get());
1359: fnd_file.put_line(fnd_file.log,' ');
1360: ELSIF p_test_run = 'N' AND l_count = 1 THEN
1361: fnd_message.set_name('IGS','IGS_FI_HLDS_HV_APP');
1362: fnd_file.put_line(fnd_file.log,fnd_message.get());
1363: fnd_file.put_line(fnd_file.log,' ');
1364: END IF;
1365:
1366: fnd_file.put_line(fnd_file.log,g_v_person_number ||' : '||l_person_rec.person_number);
1359: fnd_file.put_line(fnd_file.log,' ');
1360: ELSIF p_test_run = 'N' AND l_count = 1 THEN
1361: fnd_message.set_name('IGS','IGS_FI_HLDS_HV_APP');
1362: fnd_file.put_line(fnd_file.log,fnd_message.get());
1363: fnd_file.put_line(fnd_file.log,' ');
1364: END IF;
1365:
1366: fnd_file.put_line(fnd_file.log,g_v_person_number ||' : '||l_person_rec.person_number);
1367: fnd_file.put_line(fnd_file.log,g_v_person_name ||' : '||l_person_rec.full_name);
1362: fnd_file.put_line(fnd_file.log,fnd_message.get());
1363: fnd_file.put_line(fnd_file.log,' ');
1364: END IF;
1365:
1366: fnd_file.put_line(fnd_file.log,g_v_person_number ||' : '||l_person_rec.person_number);
1367: fnd_file.put_line(fnd_file.log,g_v_person_name ||' : '||l_person_rec.full_name);
1368: fnd_file.put_line(fnd_file.log,g_n_holds_bal ||' : '||TO_CHAR(l_holds_charges));
1369: fnd_file.put_line(fnd_file.log,g_n_overdue_bal ||' : '||TO_CHAR(l_holds_final_balance));
1370: fnd_file.put_line(fnd_file.log,g_v_hold_type ||' : '||l_hold_type);
1363: fnd_file.put_line(fnd_file.log,' ');
1364: END IF;
1365:
1366: fnd_file.put_line(fnd_file.log,g_v_person_number ||' : '||l_person_rec.person_number);
1367: fnd_file.put_line(fnd_file.log,g_v_person_name ||' : '||l_person_rec.full_name);
1368: fnd_file.put_line(fnd_file.log,g_n_holds_bal ||' : '||TO_CHAR(l_holds_charges));
1369: fnd_file.put_line(fnd_file.log,g_n_overdue_bal ||' : '||TO_CHAR(l_holds_final_balance));
1370: fnd_file.put_line(fnd_file.log,g_v_hold_type ||' : '||l_hold_type);
1371: fnd_file.put_line(fnd_file.log,' ');
1364: END IF;
1365:
1366: fnd_file.put_line(fnd_file.log,g_v_person_number ||' : '||l_person_rec.person_number);
1367: fnd_file.put_line(fnd_file.log,g_v_person_name ||' : '||l_person_rec.full_name);
1368: fnd_file.put_line(fnd_file.log,g_n_holds_bal ||' : '||TO_CHAR(l_holds_charges));
1369: fnd_file.put_line(fnd_file.log,g_n_overdue_bal ||' : '||TO_CHAR(l_holds_final_balance));
1370: fnd_file.put_line(fnd_file.log,g_v_hold_type ||' : '||l_hold_type);
1371: fnd_file.put_line(fnd_file.log,' ');
1372: END IF;
1365:
1366: fnd_file.put_line(fnd_file.log,g_v_person_number ||' : '||l_person_rec.person_number);
1367: fnd_file.put_line(fnd_file.log,g_v_person_name ||' : '||l_person_rec.full_name);
1368: fnd_file.put_line(fnd_file.log,g_n_holds_bal ||' : '||TO_CHAR(l_holds_charges));
1369: fnd_file.put_line(fnd_file.log,g_n_overdue_bal ||' : '||TO_CHAR(l_holds_final_balance));
1370: fnd_file.put_line(fnd_file.log,g_v_hold_type ||' : '||l_hold_type);
1371: fnd_file.put_line(fnd_file.log,' ');
1372: END IF;
1373: --4
1366: fnd_file.put_line(fnd_file.log,g_v_person_number ||' : '||l_person_rec.person_number);
1367: fnd_file.put_line(fnd_file.log,g_v_person_name ||' : '||l_person_rec.full_name);
1368: fnd_file.put_line(fnd_file.log,g_n_holds_bal ||' : '||TO_CHAR(l_holds_charges));
1369: fnd_file.put_line(fnd_file.log,g_n_overdue_bal ||' : '||TO_CHAR(l_holds_final_balance));
1370: fnd_file.put_line(fnd_file.log,g_v_hold_type ||' : '||l_hold_type);
1371: fnd_file.put_line(fnd_file.log,' ');
1372: END IF;
1373: --4
1374: END IF;
1367: fnd_file.put_line(fnd_file.log,g_v_person_name ||' : '||l_person_rec.full_name);
1368: fnd_file.put_line(fnd_file.log,g_n_holds_bal ||' : '||TO_CHAR(l_holds_charges));
1369: fnd_file.put_line(fnd_file.log,g_n_overdue_bal ||' : '||TO_CHAR(l_holds_final_balance));
1370: fnd_file.put_line(fnd_file.log,g_v_hold_type ||' : '||l_hold_type);
1371: fnd_file.put_line(fnd_file.log,' ');
1372: END IF;
1373: --4
1374: END IF;
1375:
1380: END IF;
1381:
1382: fnd_message.set_name('IGS','IGS_FI_HOLD_NOT_APPLY');
1383: fnd_message.set_token('PERSON',l_person_rec.person_number);
1384: fnd_file.put_line(fnd_file.log,fnd_message.get());
1385: fnd_file.put_line(fnd_file.log,' ');
1386: WHEN OTHERS THEN
1387: ROLLBACK;
1388: fnd_file.put_line(fnd_file.log,sqlerrm);
1381:
1382: fnd_message.set_name('IGS','IGS_FI_HOLD_NOT_APPLY');
1383: fnd_message.set_token('PERSON',l_person_rec.person_number);
1384: fnd_file.put_line(fnd_file.log,fnd_message.get());
1385: fnd_file.put_line(fnd_file.log,' ');
1386: WHEN OTHERS THEN
1387: ROLLBACK;
1388: fnd_file.put_line(fnd_file.log,sqlerrm);
1389: fnd_file.put_line(fnd_file.log,' ');
1384: fnd_file.put_line(fnd_file.log,fnd_message.get());
1385: fnd_file.put_line(fnd_file.log,' ');
1386: WHEN OTHERS THEN
1387: ROLLBACK;
1388: fnd_file.put_line(fnd_file.log,sqlerrm);
1389: fnd_file.put_line(fnd_file.log,' ');
1390: END;
1391: END LOOP;
1392: CLOSE c_person_group;
1385: fnd_file.put_line(fnd_file.log,' ');
1386: WHEN OTHERS THEN
1387: ROLLBACK;
1388: fnd_file.put_line(fnd_file.log,sqlerrm);
1389: fnd_file.put_line(fnd_file.log,' ');
1390: END;
1391: END LOOP;
1392: CLOSE c_person_group;
1393: --2
1445:
1446: --To print the log file for both the cases of test_run parameter value
1447: IF p_test_run = 'Y' AND l_count = 1 THEN
1448: fnd_message.set_name('IGS','IGS_FI_HOLDS_APPLY');
1449: fnd_file.put_line(fnd_file.log,fnd_message.get());
1450: fnd_file.put_line(fnd_file.log,' ');
1451: ELSIF p_test_run = 'N' AND l_count = 1 THEN
1452: fnd_message.set_name('IGS','IGS_FI_HLDS_HV_APP');
1453: fnd_file.put_line(fnd_file.log,fnd_message.get());
1446: --To print the log file for both the cases of test_run parameter value
1447: IF p_test_run = 'Y' AND l_count = 1 THEN
1448: fnd_message.set_name('IGS','IGS_FI_HOLDS_APPLY');
1449: fnd_file.put_line(fnd_file.log,fnd_message.get());
1450: fnd_file.put_line(fnd_file.log,' ');
1451: ELSIF p_test_run = 'N' AND l_count = 1 THEN
1452: fnd_message.set_name('IGS','IGS_FI_HLDS_HV_APP');
1453: fnd_file.put_line(fnd_file.log,fnd_message.get());
1454: fnd_file.put_line(fnd_file.log,' ');
1449: fnd_file.put_line(fnd_file.log,fnd_message.get());
1450: fnd_file.put_line(fnd_file.log,' ');
1451: ELSIF p_test_run = 'N' AND l_count = 1 THEN
1452: fnd_message.set_name('IGS','IGS_FI_HLDS_HV_APP');
1453: fnd_file.put_line(fnd_file.log,fnd_message.get());
1454: fnd_file.put_line(fnd_file.log,' ');
1455: END IF;
1456:
1457: fnd_file.put_line(fnd_file.log,g_v_person_number ||' : '||l_person_rec.person_number);
1450: fnd_file.put_line(fnd_file.log,' ');
1451: ELSIF p_test_run = 'N' AND l_count = 1 THEN
1452: fnd_message.set_name('IGS','IGS_FI_HLDS_HV_APP');
1453: fnd_file.put_line(fnd_file.log,fnd_message.get());
1454: fnd_file.put_line(fnd_file.log,' ');
1455: END IF;
1456:
1457: fnd_file.put_line(fnd_file.log,g_v_person_number ||' : '||l_person_rec.person_number);
1458: fnd_file.put_line(fnd_file.log,g_v_person_name ||' : '||l_person_rec.full_name);
1453: fnd_file.put_line(fnd_file.log,fnd_message.get());
1454: fnd_file.put_line(fnd_file.log,' ');
1455: END IF;
1456:
1457: fnd_file.put_line(fnd_file.log,g_v_person_number ||' : '||l_person_rec.person_number);
1458: fnd_file.put_line(fnd_file.log,g_v_person_name ||' : '||l_person_rec.full_name);
1459: fnd_file.put_line(fnd_file.log,g_n_holds_bal ||' : '||TO_CHAR(l_holds_charges));
1460: fnd_file.put_line(fnd_file.log,g_n_overdue_bal ||' : '||TO_CHAR(l_holds_final_balance));
1461: fnd_file.put_line(fnd_file.log,g_v_hold_type ||' : '||l_hold_type);
1454: fnd_file.put_line(fnd_file.log,' ');
1455: END IF;
1456:
1457: fnd_file.put_line(fnd_file.log,g_v_person_number ||' : '||l_person_rec.person_number);
1458: fnd_file.put_line(fnd_file.log,g_v_person_name ||' : '||l_person_rec.full_name);
1459: fnd_file.put_line(fnd_file.log,g_n_holds_bal ||' : '||TO_CHAR(l_holds_charges));
1460: fnd_file.put_line(fnd_file.log,g_n_overdue_bal ||' : '||TO_CHAR(l_holds_final_balance));
1461: fnd_file.put_line(fnd_file.log,g_v_hold_type ||' : '||l_hold_type);
1462: fnd_file.put_line(fnd_file.log,' ');
1455: END IF;
1456:
1457: fnd_file.put_line(fnd_file.log,g_v_person_number ||' : '||l_person_rec.person_number);
1458: fnd_file.put_line(fnd_file.log,g_v_person_name ||' : '||l_person_rec.full_name);
1459: fnd_file.put_line(fnd_file.log,g_n_holds_bal ||' : '||TO_CHAR(l_holds_charges));
1460: fnd_file.put_line(fnd_file.log,g_n_overdue_bal ||' : '||TO_CHAR(l_holds_final_balance));
1461: fnd_file.put_line(fnd_file.log,g_v_hold_type ||' : '||l_hold_type);
1462: fnd_file.put_line(fnd_file.log,' ');
1463: END IF;
1456:
1457: fnd_file.put_line(fnd_file.log,g_v_person_number ||' : '||l_person_rec.person_number);
1458: fnd_file.put_line(fnd_file.log,g_v_person_name ||' : '||l_person_rec.full_name);
1459: fnd_file.put_line(fnd_file.log,g_n_holds_bal ||' : '||TO_CHAR(l_holds_charges));
1460: fnd_file.put_line(fnd_file.log,g_n_overdue_bal ||' : '||TO_CHAR(l_holds_final_balance));
1461: fnd_file.put_line(fnd_file.log,g_v_hold_type ||' : '||l_hold_type);
1462: fnd_file.put_line(fnd_file.log,' ');
1463: END IF;
1464: --5
1457: fnd_file.put_line(fnd_file.log,g_v_person_number ||' : '||l_person_rec.person_number);
1458: fnd_file.put_line(fnd_file.log,g_v_person_name ||' : '||l_person_rec.full_name);
1459: fnd_file.put_line(fnd_file.log,g_n_holds_bal ||' : '||TO_CHAR(l_holds_charges));
1460: fnd_file.put_line(fnd_file.log,g_n_overdue_bal ||' : '||TO_CHAR(l_holds_final_balance));
1461: fnd_file.put_line(fnd_file.log,g_v_hold_type ||' : '||l_hold_type);
1462: fnd_file.put_line(fnd_file.log,' ');
1463: END IF;
1464: --5
1465: END IF;
1458: fnd_file.put_line(fnd_file.log,g_v_person_name ||' : '||l_person_rec.full_name);
1459: fnd_file.put_line(fnd_file.log,g_n_holds_bal ||' : '||TO_CHAR(l_holds_charges));
1460: fnd_file.put_line(fnd_file.log,g_n_overdue_bal ||' : '||TO_CHAR(l_holds_final_balance));
1461: fnd_file.put_line(fnd_file.log,g_v_hold_type ||' : '||l_hold_type);
1462: fnd_file.put_line(fnd_file.log,' ');
1463: END IF;
1464: --5
1465: END IF;
1466:
1467: EXCEPTION
1468: WHEN skip THEN
1469: fnd_message.set_name('IGS','IGS_FI_HOLD_NOT_APPLY');
1470: fnd_message.set_token('PERSON',l_person_rec.person_number);
1471: fnd_file.put_line(fnd_file.log,fnd_message.get());
1472: fnd_file.put_line(fnd_file.log,' ');
1473:
1474: IF c_person%ISOPEN THEN
1475: CLOSE c_person;
1468: WHEN skip THEN
1469: fnd_message.set_name('IGS','IGS_FI_HOLD_NOT_APPLY');
1470: fnd_message.set_token('PERSON',l_person_rec.person_number);
1471: fnd_file.put_line(fnd_file.log,fnd_message.get());
1472: fnd_file.put_line(fnd_file.log,' ');
1473:
1474: IF c_person%ISOPEN THEN
1475: CLOSE c_person;
1476: END IF;
1475: CLOSE c_person;
1476: END IF;
1477: WHEN OTHERS THEN
1478: ROLLBACK;
1479: fnd_file.put_line(fnd_file.log,sqlerrm);
1480: fnd_file.put_line(fnd_file.log,' ');
1481: END;
1482: END LOOP;
1483: CLOSE c_person_inv_int;
1476: END IF;
1477: WHEN OTHERS THEN
1478: ROLLBACK;
1479: fnd_file.put_line(fnd_file.log,sqlerrm);
1480: fnd_file.put_line(fnd_file.log,' ');
1481: END;
1482: END LOOP;
1483: CLOSE c_person_inv_int;
1484: --2
1487: END IF;
1488:
1489: --to display the count of persons on whom holds is applied
1490: IF p_test_run = 'N' THEN
1491: fnd_file.put_line(fnd_file.log,' ');
1492: fnd_message.set_name('IGS','IGS_FI_TOTAL_HOLDS_APPLY');
1493: fnd_message.set_token('COUNT',l_count);
1494: fnd_file.put_line(fnd_file.log,fnd_message.get());
1495: END IF;
1490: IF p_test_run = 'N' THEN
1491: fnd_file.put_line(fnd_file.log,' ');
1492: fnd_message.set_name('IGS','IGS_FI_TOTAL_HOLDS_APPLY');
1493: fnd_message.set_token('COUNT',l_count);
1494: fnd_file.put_line(fnd_file.log,fnd_message.get());
1495: END IF;
1496:
1497:
1498: -- It is possible to do a test run which does not change
1560:
1561: -- Exit if the value of both the parameters p_person_id and p_person_id_group are not NULL
1562: fnd_message.set_name('IGS','IGS_FI_NO_PERS_PGRP');
1563: p_message_name := 'IGS_FI_NO_PERS_PGRP';
1564: fnd_file.put_line(fnd_file.log,fnd_message.get());
1565: fnd_file.put_line(fnd_file.log,' ');
1566: RETURN FALSE;
1567: ELSIF ( p_person_id IS NOT NULL AND p_person_id_group IS NULL) THEN
1568:
1561: -- Exit if the value of both the parameters p_person_id and p_person_id_group are not NULL
1562: fnd_message.set_name('IGS','IGS_FI_NO_PERS_PGRP');
1563: p_message_name := 'IGS_FI_NO_PERS_PGRP';
1564: fnd_file.put_line(fnd_file.log,fnd_message.get());
1565: fnd_file.put_line(fnd_file.log,' ');
1566: RETURN FALSE;
1567: ELSIF ( p_person_id IS NOT NULL AND p_person_id_group IS NULL) THEN
1568:
1569: -- Exit if the passed person_id is not valid
1572: FETCH c_person INTO l_person_rec;
1573: IF c_person%NOTFOUND THEN
1574: fnd_message.set_name('IGS','IGS_FI_INVALID_PERSON_ID');
1575: p_message_name := 'IGS_FI_INVALID_PERSON_ID';
1576: fnd_file.put_line(fnd_file.log,fnd_message.get());
1577: fnd_file.put_line(fnd_file.log,' ');
1578: CLOSE c_person;
1579: RETURN FALSE;
1580: END IF;
1573: IF c_person%NOTFOUND THEN
1574: fnd_message.set_name('IGS','IGS_FI_INVALID_PERSON_ID');
1575: p_message_name := 'IGS_FI_INVALID_PERSON_ID';
1576: fnd_file.put_line(fnd_file.log,fnd_message.get());
1577: fnd_file.put_line(fnd_file.log,' ');
1578: CLOSE c_person;
1579: RETURN FALSE;
1580: END IF;
1581: CLOSE c_person;
1587: IF c_person_group_id%NOTFOUND THEN
1588: fnd_message.set_name('IGS','IGS_FI_INVALID_PARAMETER');
1589: fnd_message.set_token('PARAMETER','P_PERSON_ID_GROUP');
1590: p_message_name := 'IGS_GE_INVALID_VALUE';
1591: fnd_file.put_line(fnd_file.log,fnd_message.get());
1592: fnd_file.put_line(fnd_file.log,' ');
1593: CLOSE c_person_group_id;
1594: RETURN FALSE;
1595: END IF;
1588: fnd_message.set_name('IGS','IGS_FI_INVALID_PARAMETER');
1589: fnd_message.set_token('PARAMETER','P_PERSON_ID_GROUP');
1590: p_message_name := 'IGS_GE_INVALID_VALUE';
1591: fnd_file.put_line(fnd_file.log,fnd_message.get());
1592: fnd_file.put_line(fnd_file.log,' ');
1593: CLOSE c_person_group_id;
1594: RETURN FALSE;
1595: END IF;
1596: CLOSE c_person_group_id;
1601: FETCH c_hold_plan_name INTO l_hold_plan_name_rec;
1602: IF c_hold_plan_name%NOTFOUND THEN
1603: fnd_message.set_name('IGS','IGS_FI_INVALID_HP');
1604: p_message_name := 'IGS_FI_INVALID_HP';
1605: fnd_file.put_line(fnd_file.log,fnd_message.get());
1606: fnd_file.put_line(fnd_file.log,' ');
1607: CLOSE c_hold_plan_name;
1608: RETURN FALSE;
1609: END IF;
1602: IF c_hold_plan_name%NOTFOUND THEN
1603: fnd_message.set_name('IGS','IGS_FI_INVALID_HP');
1604: p_message_name := 'IGS_FI_INVALID_HP';
1605: fnd_file.put_line(fnd_file.log,fnd_message.get());
1606: fnd_file.put_line(fnd_file.log,' ');
1607: CLOSE c_hold_plan_name;
1608: RETURN FALSE;
1609: END IF;
1610: CLOSE c_hold_plan_name;
1836: --1
1837: IF c_hold_type%NOTFOUND AND c_hold_type%ROWCOUNT = 0 THEN
1838: IF p_test_run = 'Y' THEN
1839: fnd_message.set_name('IGS','IGS_FI_NO_ACT_HOLDS');
1840: fnd_file.put_line(fnd_file.log,fnd_message.get());
1841: END IF;
1842: p_message_name := 'IGS_FI_NO_ACT_HOLDS';
1843: CLOSE c_hold_type;
1844: RETURN FALSE;
1920: ELSIF l_message_name IS NOT NULL THEN
1921: --Log the eror message in the log when message is returned with FALSE
1922: IF p_test_run = 'Y' THEN
1923: fnd_message.set_name('IGS',l_message_name);
1924: fnd_file.put_line(fnd_file.log,fnd_message.get());
1925: fnd_file.put_line(fnd_file.log,' ');
1926: END IF;
1927: END IF;
1928: END IF;
1921: --Log the eror message in the log when message is returned with FALSE
1922: IF p_test_run = 'Y' THEN
1923: fnd_message.set_name('IGS',l_message_name);
1924: fnd_file.put_line(fnd_file.log,fnd_message.get());
1925: fnd_file.put_line(fnd_file.log,' ');
1926: END IF;
1927: END IF;
1928: END IF;
1929: --5
1945: -- Log messages in the log file only if invoked from concurrent process
1946: -- Messages should not be logged if called for Automatic release of holds
1947: IF p_release_credit_id IS NULL THEN
1948: fnd_message.set_name('IGS',l_v_pln_cr_message);
1949: fnd_file.put_line(fnd_file.log,fnd_message.get());
1950: fnd_file.put_line(fnd_file.log,' ');
1951: END IF;
1952: RAISE skip;
1953: END IF;
1946: -- Messages should not be logged if called for Automatic release of holds
1947: IF p_release_credit_id IS NULL THEN
1948: fnd_message.set_name('IGS',l_v_pln_cr_message);
1949: fnd_file.put_line(fnd_file.log,fnd_message.get());
1950: fnd_file.put_line(fnd_file.log,' ');
1951: END IF;
1952: RAISE skip;
1953: END IF;
1954: -- When no errors sum up the planned credits also with the actual credits
1992: ELSIF l_message_name IS NOT NULL THEN
1993: --Log the eror message in the log when message is returned with FALSE
1994: IF p_test_run = 'Y' THEN
1995: fnd_message.set_name('IGS',l_message_name);
1996: fnd_file.put_line(fnd_file.log,fnd_message.get());
1997: fnd_file.put_line(fnd_file.log,' ');
1998: END IF;
1999: END IF;
2000:
1993: --Log the eror message in the log when message is returned with FALSE
1994: IF p_test_run = 'Y' THEN
1995: fnd_message.set_name('IGS',l_message_name);
1996: fnd_file.put_line(fnd_file.log,fnd_message.get());
1997: fnd_file.put_line(fnd_file.log,' ');
1998: END IF;
1999: END IF;
2000:
2001: END IF;
2037: -- was added as part of FICR102 Build.
2038: p_release := l_release_ind ;
2039: IF l_release_ind = 1 THEN
2040: fnd_message.set_name('IGS','IGS_FI_HOLDS_RLS');
2041: fnd_file.put_line(fnd_file.log,fnd_message.get());
2042: fnd_file.put_line(fnd_file.log,' ');
2043: END IF;
2044: OPEN c_person(p_person_id);
2045: FETCH c_person INTO l_person_rec;
2038: p_release := l_release_ind ;
2039: IF l_release_ind = 1 THEN
2040: fnd_message.set_name('IGS','IGS_FI_HOLDS_RLS');
2041: fnd_file.put_line(fnd_file.log,fnd_message.get());
2042: fnd_file.put_line(fnd_file.log,' ');
2043: END IF;
2044: OPEN c_person(p_person_id);
2045: FETCH c_person INTO l_person_rec;
2046: --To print indvidual person logs repeated for each record
2043: END IF;
2044: OPEN c_person(p_person_id);
2045: FETCH c_person INTO l_person_rec;
2046: --To print indvidual person logs repeated for each record
2047: fnd_file.put_line(fnd_file.log,g_v_person_number ||' : '||l_person_rec.person_number);
2048: fnd_file.put_line(fnd_file.log,g_v_person_name ||' : '||l_person_rec.full_name);
2049: fnd_file.put_line(fnd_file.log,g_v_hold_plan ||' : '||l_hold_type_rec.hold_plan_name);
2050: fnd_file.put_line(fnd_file.log,g_n_holds_bal ||' : '||TO_CHAR(l_total_charges));
2051: fnd_file.put_line(fnd_file.log,g_n_overdue_bal ||' : '||TO_CHAR(l_final_balance_amnt));
2044: OPEN c_person(p_person_id);
2045: FETCH c_person INTO l_person_rec;
2046: --To print indvidual person logs repeated for each record
2047: fnd_file.put_line(fnd_file.log,g_v_person_number ||' : '||l_person_rec.person_number);
2048: fnd_file.put_line(fnd_file.log,g_v_person_name ||' : '||l_person_rec.full_name);
2049: fnd_file.put_line(fnd_file.log,g_v_hold_plan ||' : '||l_hold_type_rec.hold_plan_name);
2050: fnd_file.put_line(fnd_file.log,g_n_holds_bal ||' : '||TO_CHAR(l_total_charges));
2051: fnd_file.put_line(fnd_file.log,g_n_overdue_bal ||' : '||TO_CHAR(l_final_balance_amnt));
2052: fnd_file.put_line(fnd_file.log,g_v_hold_type ||' : '||l_hold_type_rec.hold_type);
2045: FETCH c_person INTO l_person_rec;
2046: --To print indvidual person logs repeated for each record
2047: fnd_file.put_line(fnd_file.log,g_v_person_number ||' : '||l_person_rec.person_number);
2048: fnd_file.put_line(fnd_file.log,g_v_person_name ||' : '||l_person_rec.full_name);
2049: fnd_file.put_line(fnd_file.log,g_v_hold_plan ||' : '||l_hold_type_rec.hold_plan_name);
2050: fnd_file.put_line(fnd_file.log,g_n_holds_bal ||' : '||TO_CHAR(l_total_charges));
2051: fnd_file.put_line(fnd_file.log,g_n_overdue_bal ||' : '||TO_CHAR(l_final_balance_amnt));
2052: fnd_file.put_line(fnd_file.log,g_v_hold_type ||' : '||l_hold_type_rec.hold_type);
2053: fnd_file.put_line(fnd_file.log,' ');
2046: --To print indvidual person logs repeated for each record
2047: fnd_file.put_line(fnd_file.log,g_v_person_number ||' : '||l_person_rec.person_number);
2048: fnd_file.put_line(fnd_file.log,g_v_person_name ||' : '||l_person_rec.full_name);
2049: fnd_file.put_line(fnd_file.log,g_v_hold_plan ||' : '||l_hold_type_rec.hold_plan_name);
2050: fnd_file.put_line(fnd_file.log,g_n_holds_bal ||' : '||TO_CHAR(l_total_charges));
2051: fnd_file.put_line(fnd_file.log,g_n_overdue_bal ||' : '||TO_CHAR(l_final_balance_amnt));
2052: fnd_file.put_line(fnd_file.log,g_v_hold_type ||' : '||l_hold_type_rec.hold_type);
2053: fnd_file.put_line(fnd_file.log,' ');
2054: CLOSE c_person;
2047: fnd_file.put_line(fnd_file.log,g_v_person_number ||' : '||l_person_rec.person_number);
2048: fnd_file.put_line(fnd_file.log,g_v_person_name ||' : '||l_person_rec.full_name);
2049: fnd_file.put_line(fnd_file.log,g_v_hold_plan ||' : '||l_hold_type_rec.hold_plan_name);
2050: fnd_file.put_line(fnd_file.log,g_n_holds_bal ||' : '||TO_CHAR(l_total_charges));
2051: fnd_file.put_line(fnd_file.log,g_n_overdue_bal ||' : '||TO_CHAR(l_final_balance_amnt));
2052: fnd_file.put_line(fnd_file.log,g_v_hold_type ||' : '||l_hold_type_rec.hold_type);
2053: fnd_file.put_line(fnd_file.log,' ');
2054: CLOSE c_person;
2055:
2048: fnd_file.put_line(fnd_file.log,g_v_person_name ||' : '||l_person_rec.full_name);
2049: fnd_file.put_line(fnd_file.log,g_v_hold_plan ||' : '||l_hold_type_rec.hold_plan_name);
2050: fnd_file.put_line(fnd_file.log,g_n_holds_bal ||' : '||TO_CHAR(l_total_charges));
2051: fnd_file.put_line(fnd_file.log,g_n_overdue_bal ||' : '||TO_CHAR(l_final_balance_amnt));
2052: fnd_file.put_line(fnd_file.log,g_v_hold_type ||' : '||l_hold_type_rec.hold_type);
2053: fnd_file.put_line(fnd_file.log,' ');
2054: CLOSE c_person;
2055:
2056: ELSIF l_release_hold = 'Y' AND p_test_run = 'N' THEN
2049: fnd_file.put_line(fnd_file.log,g_v_hold_plan ||' : '||l_hold_type_rec.hold_plan_name);
2050: fnd_file.put_line(fnd_file.log,g_n_holds_bal ||' : '||TO_CHAR(l_total_charges));
2051: fnd_file.put_line(fnd_file.log,g_n_overdue_bal ||' : '||TO_CHAR(l_final_balance_amnt));
2052: fnd_file.put_line(fnd_file.log,g_v_hold_type ||' : '||l_hold_type_rec.hold_type);
2053: fnd_file.put_line(fnd_file.log,' ');
2054: CLOSE c_person;
2055:
2056: ELSIF l_release_hold = 'Y' AND p_test_run = 'N' THEN
2057:
2063: -- Log messages in the log file only if invoked from concurrent process
2064: -- Messages should not be logged if called for Automatic release of holds
2065: IF p_release_credit_id IS NULL THEN
2066: fnd_message.set_name('IGS','IGS_EN_DT_NOT_LT_CURR_DT');
2067: fnd_file.put_line(fnd_file.log,fnd_message.get());
2068: fnd_file.put_line(fnd_file.log,' ');
2069: END IF;
2070:
2071: --To set the message for the form
2064: -- Messages should not be logged if called for Automatic release of holds
2065: IF p_release_credit_id IS NULL THEN
2066: fnd_message.set_name('IGS','IGS_EN_DT_NOT_LT_CURR_DT');
2067: fnd_file.put_line(fnd_file.log,fnd_message.get());
2068: fnd_file.put_line(fnd_file.log,' ');
2069: END IF;
2070:
2071: --To set the message for the form
2072: p_message_name := 'IGS_FI_HOLD_NOT_RELSD';
2081: -- Log messages in the log file only if invoked from concurrent process
2082: -- Messages should not be logged if called for Automatic release of holds
2083: IF p_release_credit_id IS NULL THEN
2084: fnd_message.set_name('IGS','IGS_EN_EXPDT_GE_STDT');
2085: fnd_file.put_line(fnd_file.log,fnd_message.get());
2086: fnd_file.put_line(fnd_file.log,' ');
2087: END IF;
2088:
2089: --To set the message for the form
2082: -- Messages should not be logged if called for Automatic release of holds
2083: IF p_release_credit_id IS NULL THEN
2084: fnd_message.set_name('IGS','IGS_EN_EXPDT_GE_STDT');
2085: fnd_file.put_line(fnd_file.log,fnd_message.get());
2086: fnd_file.put_line(fnd_file.log,' ');
2087: END IF;
2088:
2089: --To set the message for the form
2090: p_message_name := 'IGS_FI_HOLD_NOT_RELSD';
2112: -- Log messages in the log file only if invoked from concurrent process
2113: -- Messages should not be logged if called for Automatic release of holds
2114: IF p_release_credit_id IS NULL THEN
2115: fnd_message.set_name('IGS',l_c_message_name);
2116: fnd_file.put_line(fnd_file.log,fnd_message.get());
2117: fnd_file.put_line(fnd_file.log,' ');
2118: END IF;
2119: app_exception.raise_exception;
2120: END IF;
2113: -- Messages should not be logged if called for Automatic release of holds
2114: IF p_release_credit_id IS NULL THEN
2115: fnd_message.set_name('IGS',l_c_message_name);
2116: fnd_file.put_line(fnd_file.log,fnd_message.get());
2117: fnd_file.put_line(fnd_file.log,' ');
2118: END IF;
2119: app_exception.raise_exception;
2120: END IF;
2121:
2151:
2152: -- Log messages in the log file only if invoked from concurrent process
2153: -- Messages should not be logged if called for Automatic release of holds
2154: IF p_release_credit_id IS NULL THEN
2155: fnd_file.put_line(fnd_file.log,fnd_message.get());
2156: fnd_file.put_line(fnd_file.log,' ');
2157: END IF;
2158: RAISE skip;
2159: END;
2152: -- Log messages in the log file only if invoked from concurrent process
2153: -- Messages should not be logged if called for Automatic release of holds
2154: IF p_release_credit_id IS NULL THEN
2155: fnd_file.put_line(fnd_file.log,fnd_message.get());
2156: fnd_file.put_line(fnd_file.log,' ');
2157: END IF;
2158: RAISE skip;
2159: END;
2160:
2164: -- Log messages in the log file only if invoked from concurrent process
2165: -- Messages should not be logged if called for Automatic release of holds
2166: IF p_release_credit_id IS NULL THEN
2167: fnd_message.set_name('IGS','IGS_FI_HLDS_HV_RLS');
2168: fnd_file.put_line(fnd_file.log,fnd_message.get());
2169: fnd_file.put_line(fnd_file.log,' ');
2170: END IF;
2171: END IF;
2172: OPEN c_person(p_person_id);
2165: -- Messages should not be logged if called for Automatic release of holds
2166: IF p_release_credit_id IS NULL THEN
2167: fnd_message.set_name('IGS','IGS_FI_HLDS_HV_RLS');
2168: fnd_file.put_line(fnd_file.log,fnd_message.get());
2169: fnd_file.put_line(fnd_file.log,' ');
2170: END IF;
2171: END IF;
2172: OPEN c_person(p_person_id);
2173: FETCH c_person INTO l_person_rec;
2175: -- Log messages in the log file only if invoked from concurrent process
2176: -- Messages should not be logged if called for Automatic release of holds
2177: IF p_release_credit_id IS NULL THEN
2178: --To print indvidual person logs repeated for each record
2179: fnd_file.put_line(fnd_file.log,g_v_person_number ||' : '||l_person_rec.person_number);
2180: fnd_file.put_line(fnd_file.log,g_v_person_name ||' : '||l_person_rec.full_name);
2181: fnd_file.put_line(fnd_file.log,g_v_hold_plan ||' : '||l_hold_type_rec.hold_plan_name);
2182: fnd_file.put_line(fnd_file.log,g_n_holds_bal ||' : '||TO_CHAR(l_total_charges));
2183: fnd_file.put_line(fnd_file.log,g_n_overdue_bal ||' : '||TO_CHAR(l_final_balance_amnt));
2176: -- Messages should not be logged if called for Automatic release of holds
2177: IF p_release_credit_id IS NULL THEN
2178: --To print indvidual person logs repeated for each record
2179: fnd_file.put_line(fnd_file.log,g_v_person_number ||' : '||l_person_rec.person_number);
2180: fnd_file.put_line(fnd_file.log,g_v_person_name ||' : '||l_person_rec.full_name);
2181: fnd_file.put_line(fnd_file.log,g_v_hold_plan ||' : '||l_hold_type_rec.hold_plan_name);
2182: fnd_file.put_line(fnd_file.log,g_n_holds_bal ||' : '||TO_CHAR(l_total_charges));
2183: fnd_file.put_line(fnd_file.log,g_n_overdue_bal ||' : '||TO_CHAR(l_final_balance_amnt));
2184: fnd_file.put_line(fnd_file.log,g_v_hold_type ||' : '||l_hold_type_rec.hold_type);
2177: IF p_release_credit_id IS NULL THEN
2178: --To print indvidual person logs repeated for each record
2179: fnd_file.put_line(fnd_file.log,g_v_person_number ||' : '||l_person_rec.person_number);
2180: fnd_file.put_line(fnd_file.log,g_v_person_name ||' : '||l_person_rec.full_name);
2181: fnd_file.put_line(fnd_file.log,g_v_hold_plan ||' : '||l_hold_type_rec.hold_plan_name);
2182: fnd_file.put_line(fnd_file.log,g_n_holds_bal ||' : '||TO_CHAR(l_total_charges));
2183: fnd_file.put_line(fnd_file.log,g_n_overdue_bal ||' : '||TO_CHAR(l_final_balance_amnt));
2184: fnd_file.put_line(fnd_file.log,g_v_hold_type ||' : '||l_hold_type_rec.hold_type);
2185: fnd_file.put_line(fnd_file.log,' ');
2178: --To print indvidual person logs repeated for each record
2179: fnd_file.put_line(fnd_file.log,g_v_person_number ||' : '||l_person_rec.person_number);
2180: fnd_file.put_line(fnd_file.log,g_v_person_name ||' : '||l_person_rec.full_name);
2181: fnd_file.put_line(fnd_file.log,g_v_hold_plan ||' : '||l_hold_type_rec.hold_plan_name);
2182: fnd_file.put_line(fnd_file.log,g_n_holds_bal ||' : '||TO_CHAR(l_total_charges));
2183: fnd_file.put_line(fnd_file.log,g_n_overdue_bal ||' : '||TO_CHAR(l_final_balance_amnt));
2184: fnd_file.put_line(fnd_file.log,g_v_hold_type ||' : '||l_hold_type_rec.hold_type);
2185: fnd_file.put_line(fnd_file.log,' ');
2186: END IF;
2179: fnd_file.put_line(fnd_file.log,g_v_person_number ||' : '||l_person_rec.person_number);
2180: fnd_file.put_line(fnd_file.log,g_v_person_name ||' : '||l_person_rec.full_name);
2181: fnd_file.put_line(fnd_file.log,g_v_hold_plan ||' : '||l_hold_type_rec.hold_plan_name);
2182: fnd_file.put_line(fnd_file.log,g_n_holds_bal ||' : '||TO_CHAR(l_total_charges));
2183: fnd_file.put_line(fnd_file.log,g_n_overdue_bal ||' : '||TO_CHAR(l_final_balance_amnt));
2184: fnd_file.put_line(fnd_file.log,g_v_hold_type ||' : '||l_hold_type_rec.hold_type);
2185: fnd_file.put_line(fnd_file.log,' ');
2186: END IF;
2187: CLOSE c_person;
2180: fnd_file.put_line(fnd_file.log,g_v_person_name ||' : '||l_person_rec.full_name);
2181: fnd_file.put_line(fnd_file.log,g_v_hold_plan ||' : '||l_hold_type_rec.hold_plan_name);
2182: fnd_file.put_line(fnd_file.log,g_n_holds_bal ||' : '||TO_CHAR(l_total_charges));
2183: fnd_file.put_line(fnd_file.log,g_n_overdue_bal ||' : '||TO_CHAR(l_final_balance_amnt));
2184: fnd_file.put_line(fnd_file.log,g_v_hold_type ||' : '||l_hold_type_rec.hold_type);
2185: fnd_file.put_line(fnd_file.log,' ');
2186: END IF;
2187: CLOSE c_person;
2188:
2181: fnd_file.put_line(fnd_file.log,g_v_hold_plan ||' : '||l_hold_type_rec.hold_plan_name);
2182: fnd_file.put_line(fnd_file.log,g_n_holds_bal ||' : '||TO_CHAR(l_total_charges));
2183: fnd_file.put_line(fnd_file.log,g_n_overdue_bal ||' : '||TO_CHAR(l_final_balance_amnt));
2184: fnd_file.put_line(fnd_file.log,g_v_hold_type ||' : '||l_hold_type_rec.hold_type);
2185: fnd_file.put_line(fnd_file.log,' ');
2186: END IF;
2187: CLOSE c_person;
2188:
2189: END IF;
2203:
2204: --Code added for Bug 3049184
2205: IF l_b_ret_amt_grt_msg_flag=TRUE AND p_test_run='Y' THEN
2206: fnd_message.set_name('IGS','IGS_FI_BAL_AMT_GT_THRS_AMT');
2207: fnd_file.put_line(fnd_file.log,fnd_message.get());
2208: END IF;
2209:
2210: RETURN TRUE;
2211: EXCEPTION
2306: fnd_message.set_token('PERSON_GROUP_ID',igs_fi_gen_005.finp_get_prsid_grp_code(p_person_id_group));
2307: fnd_message.set_token('HOLD_PLAN_NAME',p_hold_plan_name);
2308: fnd_message.set_token('TEST_RUN',p_test_run);
2309:
2310: fnd_file.put_line(fnd_file.log,fnd_message.get());
2311: fnd_file.put_line(fnd_file.log,' ');
2312:
2313: -- Obtain the value of manage_accounts in the System Options form
2314: -- If it is null or 'OTHER', then this process is not available, so error out.
2307: fnd_message.set_token('HOLD_PLAN_NAME',p_hold_plan_name);
2308: fnd_message.set_token('TEST_RUN',p_test_run);
2309:
2310: fnd_file.put_line(fnd_file.log,fnd_message.get());
2311: fnd_file.put_line(fnd_file.log,' ');
2312:
2313: -- Obtain the value of manage_accounts in the System Options form
2314: -- If it is null or 'OTHER', then this process is not available, so error out.
2315: igs_fi_com_rec_interface.chk_manage_account( p_v_manage_acc => l_v_manage_acc,
2316: p_v_message_name => l_v_message_name
2317: );
2318: IF (l_v_manage_acc = 'OTHER') OR (l_v_manage_acc IS NULL) THEN
2319: fnd_message.set_name('IGS',l_v_message_name);
2320: fnd_file.put_line(fnd_file.log,fnd_message.get());
2321: fnd_file.new_line(fnd_file.log);
2322: p_message_name := l_v_message_name;
2323: RETURN;
2324: END IF;
2317: );
2318: IF (l_v_manage_acc = 'OTHER') OR (l_v_manage_acc IS NULL) THEN
2319: fnd_message.set_name('IGS',l_v_message_name);
2320: fnd_file.put_line(fnd_file.log,fnd_message.get());
2321: fnd_file.new_line(fnd_file.log);
2322: p_message_name := l_v_message_name;
2323: RETURN;
2324: END IF;
2325:
2329: p_v_message_name => l_message_name_1) ;
2330:
2331: IF l_message_name_1 IS NOT NULL THEN
2332: fnd_message.set_name('IGS',l_message_name_1);
2333: fnd_file.put_line(fnd_file.log,fnd_message.get());
2334: fnd_file.put_line(fnd_file.log,' ');
2335: -- pass message name to calling proc
2336: p_message_name := l_message_name_1;
2337: RETURN;
2330:
2331: IF l_message_name_1 IS NOT NULL THEN
2332: fnd_message.set_name('IGS',l_message_name_1);
2333: fnd_file.put_line(fnd_file.log,fnd_message.get());
2334: fnd_file.put_line(fnd_file.log,' ');
2335: -- pass message name to calling proc
2336: p_message_name := l_message_name_1;
2337: RETURN;
2338: END IF;
2339:
2340: IF l_process_run_ind = 1 THEN
2341: -- Stop further processing as the conversion process is running
2342: fnd_message.set_name('IGS','IGS_FI_REASS_BAL_PRC_RUN');
2343: fnd_file.put_line(fnd_file.log,fnd_message.get());
2344: fnd_file.put_line(fnd_file.log,' ');
2345: -- pass message name to calling proc
2346: p_message_name := 'IGS_FI_REASS_BAL_PRC_RUN';
2347: RETURN;
2340: IF l_process_run_ind = 1 THEN
2341: -- Stop further processing as the conversion process is running
2342: fnd_message.set_name('IGS','IGS_FI_REASS_BAL_PRC_RUN');
2343: fnd_file.put_line(fnd_file.log,fnd_message.get());
2344: fnd_file.put_line(fnd_file.log,' ');
2345: -- pass message name to calling proc
2346: p_message_name := 'IGS_FI_REASS_BAL_PRC_RUN';
2347: RETURN;
2348: END IF;
2365: --2
2366: IF p_person_id IS NOT NULL THEN
2367: l_message_name := NULL;
2368: --Code added for Bug 3049184
2369: fnd_file.put_line(fnd_file.log,l_v_line_sepr);
2370: fnd_message.set_name('IGS','IGS_FI_END_DATE');
2371: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_HOLDS','PERSON_NUMBER')||': '|| l_person_number);
2372: fnd_file.put_line(fnd_file.log,fnd_message.get);
2373:
2368: --Code added for Bug 3049184
2369: fnd_file.put_line(fnd_file.log,l_v_line_sepr);
2370: fnd_message.set_name('IGS','IGS_FI_END_DATE');
2371: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_HOLDS','PERSON_NUMBER')||': '|| l_person_number);
2372: fnd_file.put_line(fnd_file.log,fnd_message.get);
2373:
2374: --Function to check whether holds has to be released
2375: IF NOT validate_holds(p_person_id,
2376: l_hold_plan_name,
2386: p_message_name := l_message_name;
2387: END IF;
2388: fnd_message.set_name('IGS','IGS_FI_HLD_PERSON_NOT_RELSD');
2389: fnd_message.set_token('PERSON',l_person_number);
2390: fnd_file.put_line(fnd_file.log,fnd_message.get());
2391: RETURN;
2392: ELSE
2393: --This is to display the correct message back to the form
2394: IF l_release > 0 AND l_message_name IS NOT NULL THEN
2404: ELSIF l_release = 0 THEN
2405: IF p_test_run = 'Y' THEN
2406: fnd_message.set_name('IGS','IGS_FI_HLD_PERSON_NOT_RELSD');
2407: fnd_message.set_token('PERSON',l_person_number);
2408: fnd_file.put_line(fnd_file.log,fnd_message.get());
2409: END IF;
2410: END IF;
2411: --Code added for Bug 3049184
2412: fnd_file.put_line(fnd_file.log,l_v_line_sepr);
2408: fnd_file.put_line(fnd_file.log,fnd_message.get());
2409: END IF;
2410: END IF;
2411: --Code added for Bug 3049184
2412: fnd_file.put_line(fnd_file.log,l_v_line_sepr);
2413: END IF;
2414: --2
2415: ELSIF p_person_id_group IS NOT NULL THEN
2416: fnd_file.put_line(fnd_file.log,l_v_line_sepr);
2412: fnd_file.put_line(fnd_file.log,l_v_line_sepr);
2413: END IF;
2414: --2
2415: ELSIF p_person_id_group IS NOT NULL THEN
2416: fnd_file.put_line(fnd_file.log,l_v_line_sepr);
2417: OPEN c_person_group;
2418: LOOP
2419: FETCH c_person_group INTO l_person_group_rec;
2420: -- To count the total records fetched
2429: CLOSE c_person;
2430: --Code added for Bug 3049184
2431: fnd_message.set_name('IGS','IGS_FI_END_DATE');
2432: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_HOLDS','PERSON_NUMBER')||': '|| l_person_number);
2433: fnd_file.put_line(fnd_file.log,fnd_message.get);
2434:
2435: IF NOT validate_holds(l_person_group_rec.person_id,
2436: l_hold_plan_name,
2437: P_test_run,
2441: NULL) THEN
2442: IF p_test_run = 'Y' THEN
2443: fnd_message.set_name('IGS','IGS_FI_HLD_PERSON_NOT_RELSD');
2444: fnd_message.set_token('PERSON',l_person_number);
2445: fnd_file.put_line(fnd_file.log,fnd_message.get());
2446: END IF;
2447: RAISE skip;
2448: ELSE
2449: IF l_release > 0 THEN
2451: ELSIF l_release = 0 THEN
2452: IF p_test_run = 'Y' THEN
2453: fnd_message.set_name('IGS','IGS_FI_HLD_PERSON_NOT_RELSD');
2454: fnd_message.set_token('PERSON',l_person_number);
2455: fnd_file.put_line(fnd_file.log,fnd_message.get());
2456: END IF;
2457: END IF;
2458: END IF; --4
2459: EXCEPTION
2463: p_message_name := 'IGS_GE_UNHANDLED_EXCEPTION';
2464: RAISE;
2465: END;
2466: --Code added for Bug 3049184
2467: fnd_file.put_line(fnd_file.log,l_v_line_sepr);
2468: END LOOP;
2469: CLOSE c_person_group;
2470: --2
2471: ELSE
2469: CLOSE c_person_group;
2470: --2
2471: ELSE
2472: --Both person_id and person_group_code are NULL
2473: fnd_file.put_line(fnd_file.log,l_v_line_sepr);
2474: OPEN c_person_hold ;
2475: LOOP
2476: FETCH c_person_hold INTO l_person_hold_rec;
2477: -- To count the total records fetched
2479: BEGIN
2480: EXIT WHEN c_person_hold%NOTFOUND;
2481: fnd_message.set_name('IGS','IGS_FI_END_DATE');
2482: fnd_message.set_token('END_DATE',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_HOLDS','PERSON_NUMBER')||': '|| l_person_hold_rec.person_number);
2483: fnd_file.put_line(fnd_file.log,fnd_message.get);
2484: IF NOT validate_holds(l_person_hold_rec.person_id,
2485: l_hold_plan_name,
2486: p_test_run,
2487: l_release,
2490: NULL) THEN
2491: IF p_test_run = 'Y' THEN
2492: fnd_message.set_name('IGS','IGS_FI_HLD_PERSON_NOT_RELSD');
2493: fnd_message.set_token('PERSON',l_person_hold_rec.person_number);
2494: fnd_file.put_line(fnd_file.log,fnd_message.get());
2495: END IF;
2496: RAISE skip;
2497: ELSE
2498: IF l_release > 0 THEN
2500: ELSIF l_release = 0 THEN
2501: IF p_test_run = 'Y' THEN
2502: fnd_message.set_name('IGS','IGS_FI_HLD_PERSON_NOT_RELSD');
2503: fnd_message.set_token('PERSON',l_person_hold_rec.person_number);
2504: fnd_file.put_line(fnd_file.log,fnd_message.get());
2505: END IF;
2506: END IF;
2507: END IF; --4
2508: EXCEPTION
2511: WHEN OTHERS THEN
2512: p_message_name := 'IGS_GE_UNHANDLED_EXCEPTION';
2513: RAISE;
2514: END;
2515: fnd_file.put_line(fnd_file.log,l_v_line_sepr);
2516: END LOOP;
2517: CLOSE c_person_hold;
2518: --2
2519: END IF;
2530: --TO display the message for no active holds if due to some invalid hold plan name or person group passed,
2531: --the further execution of process does not take place for any person
2532: IF l_count =0 AND l_message_name = 'IGS_FI_NO_ACT_HOLDS' THEN
2533: fnd_message.set_name('IGS','IGS_FI_NO_ACT_HOLDS');
2534: fnd_file.put_line(fnd_file.log,fnd_message.get());
2535: END IF;
2536: fnd_file.put_line(fnd_file.log,' ');
2537:
2538: -- If holds have not been released for some students, log message
2532: IF l_count =0 AND l_message_name = 'IGS_FI_NO_ACT_HOLDS' THEN
2533: fnd_message.set_name('IGS','IGS_FI_NO_ACT_HOLDS');
2534: fnd_file.put_line(fnd_file.log,fnd_message.get());
2535: END IF;
2536: fnd_file.put_line(fnd_file.log,' ');
2537:
2538: -- If holds have not been released for some students, log message
2539: -- indicating that the release of holds failed for certain students.
2540: IF (l_n_total_count > l_count) OR (g_b_hold_skipped = TRUE) THEN
2542: fnd_message.set_name('IGS','IGS_FI_FEW_HOLDS_REL_ERR');
2543: -- If only one person was processed, the above message need not be
2544: -- shown in the log file.
2545: IF l_n_total_count > 1 THEN
2546: fnd_file.put_line(fnd_file.log,fnd_message.get());
2547: fnd_file.put_line(fnd_file.log,' ');
2548: END IF;
2549: END IF;
2550:
2543: -- If only one person was processed, the above message need not be
2544: -- shown in the log file.
2545: IF l_n_total_count > 1 THEN
2546: fnd_file.put_line(fnd_file.log,fnd_message.get());
2547: fnd_file.put_line(fnd_file.log,' ');
2548: END IF;
2549: END IF;
2550:
2551: fnd_message.set_name('IGS','IGS_FI_TOTAL_HOLDS_RELEASE');
2549: END IF;
2550:
2551: fnd_message.set_name('IGS','IGS_FI_TOTAL_HOLDS_RELEASE');
2552: fnd_message.set_token('COUNT',l_count);
2553: fnd_file.put_line(fnd_file.log,fnd_message.get());
2554: END IF;
2555:
2556: --To commit the data based on the test run parameter value passed to it
2557: IF (p_test_run = 'N') THEN