1: PACKAGE BODY XTR_FPS3_P as
2: /* $Header: xtrfps3b.pls 120.8 2005/06/29 07:52:08 badiredd ship $ */
3: ----------------------------------------------------------------------------------------------------------------
4: -- Procedure to validate foreign key value/query for deal
5: -- subtype entered
614: v_date:= p_date;
615: LOOP
616: -- keep on subtracting a day until it's not a holiday or weekend
617: v_date := v_date + 1;
618: XTR_fps3_P.CHK_HOLIDAY (v_date,
619: p_ccy,
620: v_err_code,
621: v_level);
622: EXIT WHEN v_err_code is null;
671:
672: LOOP
673: -- keep on adding a day until it's not a holiday or weekend
674: v_date:=v_date - 1;
675: XTR_fps3_P.CHK_HOLIDAY (v_date,
676: p_ccy,
677: v_err_code,
678: v_level);
679: EXIT WHEN v_err_code is null;
698: v_err_code number(8);
699: v_level varchar2(2) := ' ';
700: v_date DATE;
701: BEGIN
702: XTR_fps3_P.CHK_HOLIDAY (p_in_rec.date_in,
703: p_in_rec.ccy,
704: v_err_code,
705: v_level);
706: if v_err_code is not null then --is holiday
999: end if;
1000: END accrued_validation;
1001:
1002: ----------------------------------------------------------------------------------------------------------------
1003: end XTR_FPS3_P;