PACKAGE BODY: APPS.IGS_RU_VAL_FDFR

Source

1 PACKAGE BODY IGS_RU_VAL_FDFR AS
2 /* $Header: IGSRU06B.pls 115.5 2002/02/12 17:30:50 pkm ship    $ */
3 
4   /* call stub to rule engine for fee disbursement */
5   FUNCTION rulp_val_disb_frml(
6   p_person_id IN NUMBER ,
7   p_course_cd IN VARCHAR2 ,
8   p_fee_type IN VARCHAR2 ,
9   p_fee_call_type IN VARCHAR2 ,
10   p_fee_ci_sequence_number IN NUMBER ,
11   p_formula_number IN NUMBER )
12   RETURN BOOLEAN IS
13 /*
14 fee disbursement call stub to senna
15 */
16   v_message	VARCHAR2(2000);
17 /*
18   rulp_val_disb_frml
19 */
20   BEGIN
21   	IF IGS_RU_GEN_001.RULP_VAL_SENNA(p_message=>v_message,
22   		p_rule_call_name=>'FDFR-1',
23   		p_person_id=>p_person_id,
24   		p_course_cd=>p_course_cd,
25   		p_param_1=>p_fee_type,
26   		p_param_2=>p_fee_call_type,
27   		p_param_3=>p_fee_ci_sequence_number,
28   		p_param_4=>p_formula_number ) = 'true'
29   	THEN
30   		RETURN TRUE;
31   	END IF;
32   	RETURN FALSE;
33   END rulp_val_disb_frml;
34 
35 END IGS_RU_VAL_FDFR;