[Home] [Help]
124: l_v_planned_credits_ind := igs_fi_gen_001.finp_get_planned_credits_ind(l_v_pln_cr_message);
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;
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:
316: --1
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;
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;
410: l_credit_subac := l_credit_subac + NVL(l_credit_amnt_rec.amount,0) ;
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;
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;
431: p_start_date => NULL,
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;
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
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());
454: END IF;
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());
454: END IF;
455: RETURN FALSE;
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());
454: END IF;
455: RETURN FALSE;
456: END IF;
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 ;
463: -- for a fee type hold plan level, fee type is mandatory
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:
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
490: l_final_balance := NVL(l_final_balance,0) + NVL(l_invoice_amnt_rec.invoice_amount_due,0) ;
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;
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;
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());
512: END IF;
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());
512: END IF;
513: RETURN FALSE;
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());
512: END IF;
513: RETURN FALSE;
514: END IF;
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
638: OPEN c_hold_exist;
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;
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;
652: IF NOT (igs_en_val_pen.enrp_val_prsn_encmb(p_person_id,p_hold_type,TRUNC(p_hold_start_date), Null,l_message_name))
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;
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;
694: 'IGS_EN_PERS_ENRL_COURSE',
695: 'IGS_EN_CANT_APPLY_ENCUM_EFFEC',
696: 'IGS_EN_DISCON_STUD_ENRL',
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,' ');
695: 'IGS_EN_CANT_APPLY_ENCUM_EFFEC',
696: 'IGS_EN_DISCON_STUD_ENRL',
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:
696: 'IGS_EN_DISCON_STUD_ENRL',
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
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;
714: null,
715: l_message_name,
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
715: l_message_name,
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;
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;
860:
861: BEGIN
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
861: BEGIN
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');
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');
871: fnd_file.put_line(fnd_file.log,' ');
872: RETURN FALSE;
873: END IF;
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');
871: fnd_file.put_line(fnd_file.log,' ');
872: RETURN FALSE;
873: END IF;
874:
879: p_n_version_number => l_version_number );
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;
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:
887: END IF;
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
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
896: -- Exit if the passed person_id is not valid
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;
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;
908: -- Exit if the passed person group id is not valid
909: OPEN c_person_group_id;
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;
909: OPEN c_person_group_id;
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;
919: END IF;
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:
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
931: OPEN c_hold_plan_name;
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;
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:
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
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;
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;
950: --To check for hold plan name validity
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;
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;
964: IF l_hold_plan_name_rec.hold_plan_level = 'S' THEN
965: -- If hold plan is defined at Account level, then process_start_Date cannot be before the
966: -- last_conversion_date of the latest active balance rule for 'HOLDS' type
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,' ');
965: -- If hold plan is defined at Account level, then process_start_Date cannot be before the
966: -- last_conversion_date of the latest active balance rule for 'HOLDS' type
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;
966: -- last_conversion_date of the latest active balance rule for 'HOLDS' type
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;
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:
974: END IF;
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;
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
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
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;
997: IF p_fee_cal_type IS NOT NULL AND p_fee_ci_sequence_number IS NOT NULL THEN
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;
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;
1145: CLOSE c_person;
1146: END IF;
1147:
1148: --TO print the passed parameter values at the starting of log
1149: fnd_message.set_name('IGS','IGS_FI_APPLY_HOLD_PARAM');
1150: fnd_message.set_token('PERSON_NUMBER', l_person_number);
1151: fnd_message.set_token('PERSON_GROUP',igs_fi_gen_005.finp_get_prsid_grp_code(p_person_id_group));
1152: fnd_message.set_token('PROCESS_START_DATE',p_process_start_date);
1153: fnd_message.set_token('PROCESS_END_DATE',p_process_end_date);
1146: END IF;
1147:
1148: --TO print the passed parameter values at the starting of log
1149: fnd_message.set_name('IGS','IGS_FI_APPLY_HOLD_PARAM');
1150: fnd_message.set_token('PERSON_NUMBER', l_person_number);
1151: fnd_message.set_token('PERSON_GROUP',igs_fi_gen_005.finp_get_prsid_grp_code(p_person_id_group));
1152: fnd_message.set_token('PROCESS_START_DATE',p_process_start_date);
1153: fnd_message.set_token('PROCESS_END_DATE',p_process_end_date);
1154: fnd_message.set_token('HOLD_PLAN_NAME',p_hold_plan_name);
1147:
1148: --TO print the passed parameter values at the starting of log
1149: fnd_message.set_name('IGS','IGS_FI_APPLY_HOLD_PARAM');
1150: fnd_message.set_token('PERSON_NUMBER', l_person_number);
1151: fnd_message.set_token('PERSON_GROUP',igs_fi_gen_005.finp_get_prsid_grp_code(p_person_id_group));
1152: fnd_message.set_token('PROCESS_START_DATE',p_process_start_date);
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);
1148: --TO print the passed parameter values at the starting of log
1149: fnd_message.set_name('IGS','IGS_FI_APPLY_HOLD_PARAM');
1150: fnd_message.set_token('PERSON_NUMBER', l_person_number);
1151: fnd_message.set_token('PERSON_GROUP',igs_fi_gen_005.finp_get_prsid_grp_code(p_person_id_group));
1152: fnd_message.set_token('PROCESS_START_DATE',p_process_start_date);
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);
1149: fnd_message.set_name('IGS','IGS_FI_APPLY_HOLD_PARAM');
1150: fnd_message.set_token('PERSON_NUMBER', l_person_number);
1151: fnd_message.set_token('PERSON_GROUP',igs_fi_gen_005.finp_get_prsid_grp_code(p_person_id_group));
1152: fnd_message.set_token('PROCESS_START_DATE',p_process_start_date);
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());
1150: fnd_message.set_token('PERSON_NUMBER', l_person_number);
1151: fnd_message.set_token('PERSON_GROUP',igs_fi_gen_005.finp_get_prsid_grp_code(p_person_id_group));
1152: fnd_message.set_token('PROCESS_START_DATE',p_process_start_date);
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,' ');
1151: fnd_message.set_token('PERSON_GROUP',igs_fi_gen_005.finp_get_prsid_grp_code(p_person_id_group));
1152: fnd_message.set_token('PROCESS_START_DATE',p_process_start_date);
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:
1152: fnd_message.set_token('PROCESS_START_DATE',p_process_start_date);
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
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.
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;
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;
1175: igs_fi_gen_007.finp_get_conv_prc_run_ind( p_n_conv_process_run_ind => l_process_run_ind,
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;
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;
1184: END IF;
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;
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;
1216: l_v_person_name,
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;
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;
1244: l_n_offset_days,
1245: l_n_student_plan_id,
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;
1245: l_n_student_plan_id,
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
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:
1270: p_test_run,
1271: l_n_student_plan_id,
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;
1271: l_n_student_plan_id,
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
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:
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');
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());
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,' ');
1292: END IF;
1293:
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);
1353: l_count := l_count +1;
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');
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());
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,' ');
1364: END IF;
1365:
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);
1378: IF c_person%ISOPEN THEN
1379: CLOSE c_person;
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
1379: CLOSE c_person;
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;
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);
1444: l_count := l_count +1;
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');
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());
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,' ');
1455: END IF;
1456:
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);
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:
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
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;
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;
1496:
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;
1496:
1497:
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
1509: EXCEPTION
1510: WHEN OTHERS THEN
1511: ROLLBACK;
1512: retcode := 2;
1513: errbuf := fnd_message.get_string('IGS','IGS_GE_UNHANDLED_EXCEPTION')||SUBSTR(sqlerrm,1,40);
1514: igs_ge_msg_stack.add;
1515: igs_ge_msg_stack.conc_exception_hndl;
1516: END finp_apply_holds;
1517:
1558:
1559: IF (p_person_id IS NOT NULL AND p_person_id_group IS NOT NULL) THEN
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;
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:
1570:
1571: OPEN c_person(p_person_id);
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;
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;
1584: -- Exit if the passed person group id is not valid
1585: OPEN c_person_group_id;
1586: FETCH c_person_group_id INTO l_person_group_id_rec;
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,' ');
1585: OPEN c_person_group_id;
1586: FETCH c_person_group_id INTO l_person_group_id_rec;
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;
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;
1599: IF p_hold_plan_name IS NOT NULL THEN
1600: OPEN c_hold_plan_name;
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;
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;
1835: FETCH c_hold_type INTO l_hold_type_rec;
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;
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;
1919: l_non_ex_amnt_each_sc:= l_non_ex_amnt_each_sc + NVL(l_credit_amount_rec.amount,0);
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;
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;
1944: IF l_v_pln_cr_message IS NOT NULL THEN
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;
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;
1991: l_final_balance_amnt := NVL(l_final_balance_amnt,0) + NVL(l_total_balance_rec.invoice_amount_due,0);
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;
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:
2036: -- Assigning of l_release_ind to out parameter p_release
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);
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;
2062: --If this function returns false then log error,skip this record and move to next hold type
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:
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
2080: --If this function returns false then log error,skip this record and move to next hold type
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:
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
2111: IF l_c_message_name IS NOT NULL THEN
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;
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;
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;
2163: IF l_release_ind = 1 THEN
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;
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);
2202: CLOSE c_hold_type;
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;
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
2299: CLOSE c_person;
2300: END IF;
2301:
2302: --TO display passed parameter values in the log
2303: fnd_message.set_name('IGS','IGS_FI_RELEASE_HOLD_PARAM');
2304:
2305: fnd_message.set_token('PERSON_NUMBER',l_person_number);
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);
2301:
2302: --TO display passed parameter values in the log
2303: fnd_message.set_name('IGS','IGS_FI_RELEASE_HOLD_PARAM');
2304:
2305: fnd_message.set_token('PERSON_NUMBER',l_person_number);
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:
2302: --TO display passed parameter values in the log
2303: fnd_message.set_name('IGS','IGS_FI_RELEASE_HOLD_PARAM');
2304:
2305: fnd_message.set_token('PERSON_NUMBER',l_person_number);
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());
2303: fnd_message.set_name('IGS','IGS_FI_RELEASE_HOLD_PARAM');
2304:
2305: fnd_message.set_token('PERSON_NUMBER',l_person_number);
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,' ');
2304:
2305: fnd_message.set_token('PERSON_NUMBER',l_person_number);
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:
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.
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;
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;
2328: igs_fi_gen_007.finp_get_conv_prc_run_ind( p_n_conv_process_run_ind => l_process_run_ind,
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;
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;
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';
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;
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:
2374: --Function to check whether holds has to be released
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:
2374: --Function to check whether holds has to be released
2375: IF NOT validate_holds(p_person_id,
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,
2384: p_message_name := 'IGS_FI_HOLD_NOT_RELSD';
2385: ELSE
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
2385: ELSE
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
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
2402: IF l_release > 0 THEN
2403: l_count := l_count +1;
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;
2403: l_count := l_count +1;
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
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);
2427: FETCH c_person INTO l_person_rec;
2428: l_person_number := l_person_rec.person_number;
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,
2428: l_person_number := l_person_rec.person_number;
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,
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,
2439: l_message_name,
2440: NULL,
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;
2440: NULL,
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
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
2449: IF l_release > 0 THEN
2450: l_count := l_count +1;
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;
2450: l_count := l_count +1;
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
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
2477: -- To count the total records fetched
2478: l_n_total_count := c_person_hold%ROWCOUNT;
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,
2478: l_n_total_count := c_person_hold%ROWCOUNT;
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,
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,
2488: l_message_name,
2489: NULL,
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;
2489: NULL,
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
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
2498: IF l_release > 0 THEN
2499: l_count := l_count +1;
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;
2499: l_count := l_count +1;
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
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
2529: IF p_test_run = 'N' THEN
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:
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
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
2541: p_message_name := 'IGS_FI_FEW_HOLDS_REL_ERR';
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());
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:
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');
2552: fnd_message.set_token('COUNT',l_count);
2553: fnd_file.put_line(fnd_file.log,fnd_message.get());
2554: END IF;
2555:
2548: END IF;
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
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
2630: EXCEPTION
2631: WHEN OTHERS THEN
2632: ROLLBACK;
2633: retcode := 2;
2634: errbuf := fnd_message.get_string('IGS','IGS_GE_UNHANDLED_EXCEPTION')||SUBSTR(sqlerrm,1,40);
2635: igs_ge_msg_stack.add;
2636: igs_ge_msg_stack.conc_exception_hndl;
2637: END finp_release_holds;
2638: