[Home] [Help]
131:
132: FND_MESSAGE.SET_NAME('IGS','IGS_FI_CAL_BALANCES_LOG');
133: FND_MESSAGE.SET_TOKEN('PARAMETER_NAME',p_msg_name);
134: FND_MESSAGE.SET_TOKEN('PARAMETER_VAL' ,p_msg_val) ;
135: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
136:
137: END log_messages ;
138:
139: /* Removed the function sub_name as a part of Subaccount removal Build. Bug # 2564643 */
390: igs_fi_com_rec_interface.chk_manage_account ( p_v_manage_acc => l_v_manage_accounts,
391: p_v_message_name => l_v_message_name );
392: IF l_v_manage_accounts IS NULL OR l_v_manage_accounts = 'OTHER' THEN
393: fnd_message.set_name ( 'IGS', l_v_message_name );
394: fnd_file.put_line ( fnd_file.LOG, fnd_message.get );
395: RAISE l_validation_exp;
396: END IF;
397:
398: /** Only person id or group id should be passed to the process
400:
401: IF (p_n_person_id IS NOT NULL AND p_n_pers_id_grp_id IS NOT NULL) THEN
402: FND_MESSAGE.SET_NAME('IGS','IGS_FI_NO_PERS_PGRP');
403: IGS_GE_MSG_STACK.ADD;
404: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
405: l_valid := FALSE;
406: END IF;
407:
408: -- Bug# 5018036, Either of the two parameters must be specified.
408: -- Bug# 5018036, Either of the two parameters must be specified.
409: IF (p_n_person_id IS NULL AND p_n_pers_id_grp_id IS NULL) THEN
410: fnd_message.set_name ( 'IGS', 'IGS_FI_PRS_PRSIDGRP_NULL') ;
411: igs_ge_msg_stack.ADD;
412: fnd_file.put_line(fnd_file.LOG, fnd_message.get);
413: l_valid := FALSE;
414: END IF;
415:
416: /** Validating whether the Person Id Group passed to parameter p_n_pers_id_grp_id
423: IF c_grp_id%NOTFOUND THEN
424: CLOSE c_grp_id;
425: FND_MESSAGE.SET_NAME('IGS','IGS_FI_INVPERS_ID_GRP');
426: IGS_GE_MSG_STACK.ADD;
427: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
428: l_valid := FALSE;
429: END IF;
430: CLOSE c_grp_id;
431:
442: IF c_per_id%NOTFOUND THEN
443: CLOSE c_per_id;
444: FND_MESSAGE.SET_NAME('IGS','IGS_FI_INVALID_PERSON_ID');
445: IGS_GE_MSG_STACK.ADD;
446: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
447: l_valid := FALSE;
448: END IF;
449: CLOSE c_per_id;
450:
455:
456: IF p_c_action NOT IN ('WAIVE','RELEASE') THEN
457: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE');
458: IGS_GE_MSG_STACK.ADD;
459: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
460: l_valid := FALSE;
461: END IF;
462:
463: /** Validating whether the start date has been provided in case the action is 'WAIVE'
466: IF p_c_action = 'WAIVE' THEN
467: IF l_start_dt IS NULL THEN
468: FND_MESSAGE.SET_NAME('IGS','IGS_FI_WV_STRT_DT');
469: IGS_GE_MSG_STACK.ADD;
470: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
471: l_valid := FALSE;
472: ELSIF TRUNC(l_start_dt) < TRUNC(SYSDATE) THEN
473: FND_MESSAGE.SET_NAME('IGS','IGS_FI_ST_NOT_LT_CURRDT');
474: IGS_GE_MSG_STACK.ADD;
471: l_valid := FALSE;
472: ELSIF TRUNC(l_start_dt) < TRUNC(SYSDATE) THEN
473: FND_MESSAGE.SET_NAME('IGS','IGS_FI_ST_NOT_LT_CURRDT');
474: IGS_GE_MSG_STACK.ADD;
475: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
476: l_valid := FALSE;
477: END IF;
478:
479: --Added the If Condtion to log a message when Waiver Release date is mentioned
480: --and the Action Type is WAIVE.
481: IF l_release_dt IS NOT NULL THEN
482: FND_MESSAGE.SET_NAME('IGS','IGS_FI_RL_DT_NR');
483: IGS_GE_MSG_STACK.ADD;
484: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
485: END IF;
486:
487:
488: END IF;
493: IF p_c_action = 'WAIVE' THEN
494: IF l_end_dt IS NOT NULL AND l_end_dt < l_start_dt THEN
495: FND_MESSAGE.SET_NAME('IGS','IGS_GE_END_DT_GE_ST_DATE');
496: IGS_GE_MSG_STACK.ADD;
497: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
498: l_valid := FALSE;
499: END IF;
500: END IF;
501:
508:
509: IF l_end_dt IS NOT NULL OR l_start_dt IS NOT NULL THEN
510: FND_MESSAGE.SET_NAME('IGS','IGS_FI_WR_DTS_NR');
511: IGS_GE_MSG_STACK.ADD;
512: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
513: END IF;
514:
515: IF l_release_dt IS NULL THEN
516: --Removed the Default Intiallization to Sysdate
516: --Removed the Default Intiallization to Sysdate
517: --and Logged the Error Message and Errored Out
518: FND_MESSAGE.SET_NAME('IGS','IGS_FI_RLS_DT');
519: IGS_GE_MSG_STACK.ADD;
520: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
521: l_valid := FALSE;
522: ELSIF TRUNC(l_release_dt) < TRUNC(SYSDATE) THEN
523: FND_MESSAGE.SET_NAME('IGS','IGS_FI_RLS_CRR_DT');
524: IGS_GE_MSG_STACK.ADD;
521: l_valid := FALSE;
522: ELSIF TRUNC(l_release_dt) < TRUNC(SYSDATE) THEN
523: FND_MESSAGE.SET_NAME('IGS','IGS_FI_RLS_CRR_DT');
524: IGS_GE_MSG_STACK.ADD;
525: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
526: l_valid := FALSE;
527: END IF;
528: END IF;
529:
538: IF c_cal_per%NOTFOUND THEN
539: CLOSE c_cal_per;
540: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE');
541: IGS_GE_MSG_STACK.ADD;
542: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
543: l_valid := FALSE;
544: END IF;
545: CLOSE c_cal_per;
546:
549:
550: IF p_c_bal_type = 'STANDARD' THEN
551: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE');
552: IGS_GE_MSG_STACK.ADD;
553: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
554: l_valid := FALSE;
555: END IF;
556:
557: --if any of the parameter validation fails,process logs the error messages and error out.
585:
586: FND_MESSAGE.SET_NAME('IGS','IGS_FI_PROC_PERSON');
587: FND_MESSAGE.SET_TOKEN('NUMBER',l_v_per_id.person_number);
588: FND_MESSAGE.SET_TOKEN('NAME',l_v_per_id.full_name);
589: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
590:
591: CLOSE c_per_id;
592: /* Removed the logging of subaccount related information, as a part of Bug # 2564643 */
593: l_msg_str := RPAD(lookup_desc('IGS_FI_LOCKBOX','INVOICE_NUMBER'),62) ||
593: l_msg_str := RPAD(lookup_desc('IGS_FI_LOCKBOX','INVOICE_NUMBER'),62) ||
594: RPAD(lookup_desc('IGS_FI_LOCKBOX','FEE_TYPE'),12) ||
595: LPAD(lookup_desc('IGS_FI_LOCKBOX','INVOICE_AMOUNT'),22);
596:
597: FND_FILE.PUT_LINE(FND_FILE.LOG,l_msg_str);
598:
599:
600: /** Looping thru all identified charges for a person for the Ad Hoc Group Waiver Process **/
601:
617: l_msg_str := RPAD(l_rec_per_chg.invoice_number,62) ||
618: RPAD(l_rec_per_chg.fee_type,12) ||
619: LPAD(TO_CHAR(l_rec_per_chg.invoice_amount),22);
620:
621: FND_FILE.PUT_LINE(FND_FILE.LOG,l_msg_str);
622:
623: /** For every charge found for a person , inserting a waiver record in the table
624: igs_fi_inv_wav_det if Test Mode is NO.
625: This record is created for an identified charge and the balance type passed in
651: END IF;
652:
653: EXCEPTION
654: WHEN OTHERS THEN
655: FND_FILE.PUT_LINE(FND_FILE.LOG,FND_MESSAGE.GET);
656: END ;
657:
658: ELSIF p_c_action = 'RELEASE' THEN
659:
680: l_msg_str := RPAD(l_rec_per_chg.invoice_number,62) ||
681: RPAD(l_rec_per_chg.fee_type,12) ||
682: LPAD(TO_CHAR(l_rec_per_chg.invoice_amount),22);
683:
684: FND_FILE.PUT_LINE(FND_FILE.LOG,l_msg_str);
685:
686: IF p_c_test_flag = 'N' THEN
687:
688: IF l_chg_wav.start_dt > l_release_dt THEN