50: if ( l_holidayfile = 'Y' ) then
51: /*
52: ** Construct a dynamic PL/SQL call for calling the BEP's package.
53: */
54: l_cursorId := DBMS_SQL.OPEN_CURSOR;
55: l_blockstr := 'BEGIN
56: iby_' || l_bepname || '_pkg.getPmtDates( :leadtime, :reqsetdate, :curdate, :expschdate, :earliestschdate);
57: END; ';
58: /*
57: END; ';
58: /*
59: ** Bind parameters to the BEP call.
60: */
61: DBMS_SQL.PARSE(l_CursorId, l_blockstr, DBMS_SQL.V7);
62: DBMS_SQL.BIND_VARIABLE(l_cursorID, ':leadtime', l_leadtime);
63: DBMS_SQL.BIND_VARIABLE(l_cursorID, ':reqsetdate', i_settlement_date);
64: DBMS_SQL.BIND_VARIABLE(l_cursorID, ':curdate', i_current_date);
65: DBMS_SQL.BIND_VARIABLE(l_cursorID, ':expschdate', io_schedule_date);
58: /*
59: ** Bind parameters to the BEP call.
60: */
61: DBMS_SQL.PARSE(l_CursorId, l_blockstr, DBMS_SQL.V7);
62: DBMS_SQL.BIND_VARIABLE(l_cursorID, ':leadtime', l_leadtime);
63: DBMS_SQL.BIND_VARIABLE(l_cursorID, ':reqsetdate', i_settlement_date);
64: DBMS_SQL.BIND_VARIABLE(l_cursorID, ':curdate', i_current_date);
65: DBMS_SQL.BIND_VARIABLE(l_cursorID, ':expschdate', io_schedule_date);
66: DBMS_SQL.BIND_VARIABLE(l_cursorID, ':earliestschdate', io_earliest_sched_date);
59: ** Bind parameters to the BEP call.
60: */
61: DBMS_SQL.PARSE(l_CursorId, l_blockstr, DBMS_SQL.V7);
62: DBMS_SQL.BIND_VARIABLE(l_cursorID, ':leadtime', l_leadtime);
63: DBMS_SQL.BIND_VARIABLE(l_cursorID, ':reqsetdate', i_settlement_date);
64: DBMS_SQL.BIND_VARIABLE(l_cursorID, ':curdate', i_current_date);
65: DBMS_SQL.BIND_VARIABLE(l_cursorID, ':expschdate', io_schedule_date);
66: DBMS_SQL.BIND_VARIABLE(l_cursorID, ':earliestschdate', io_earliest_sched_date);
67: /*
60: */
61: DBMS_SQL.PARSE(l_CursorId, l_blockstr, DBMS_SQL.V7);
62: DBMS_SQL.BIND_VARIABLE(l_cursorID, ':leadtime', l_leadtime);
63: DBMS_SQL.BIND_VARIABLE(l_cursorID, ':reqsetdate', i_settlement_date);
64: DBMS_SQL.BIND_VARIABLE(l_cursorID, ':curdate', i_current_date);
65: DBMS_SQL.BIND_VARIABLE(l_cursorID, ':expschdate', io_schedule_date);
66: DBMS_SQL.BIND_VARIABLE(l_cursorID, ':earliestschdate', io_earliest_sched_date);
67: /*
68: ** Execute the Dynamic plsql.
61: DBMS_SQL.PARSE(l_CursorId, l_blockstr, DBMS_SQL.V7);
62: DBMS_SQL.BIND_VARIABLE(l_cursorID, ':leadtime', l_leadtime);
63: DBMS_SQL.BIND_VARIABLE(l_cursorID, ':reqsetdate', i_settlement_date);
64: DBMS_SQL.BIND_VARIABLE(l_cursorID, ':curdate', i_current_date);
65: DBMS_SQL.BIND_VARIABLE(l_cursorID, ':expschdate', io_schedule_date);
66: DBMS_SQL.BIND_VARIABLE(l_cursorID, ':earliestschdate', io_earliest_sched_date);
67: /*
68: ** Execute the Dynamic plsql.
69: */
62: DBMS_SQL.BIND_VARIABLE(l_cursorID, ':leadtime', l_leadtime);
63: DBMS_SQL.BIND_VARIABLE(l_cursorID, ':reqsetdate', i_settlement_date);
64: DBMS_SQL.BIND_VARIABLE(l_cursorID, ':curdate', i_current_date);
65: DBMS_SQL.BIND_VARIABLE(l_cursorID, ':expschdate', io_schedule_date);
66: DBMS_SQL.BIND_VARIABLE(l_cursorID, ':earliestschdate', io_earliest_sched_date);
67: /*
68: ** Execute the Dynamic plsql.
69: */
70: l_dummy := dbms_sql.execute(l_cursorid);
66: DBMS_SQL.BIND_VARIABLE(l_cursorID, ':earliestschdate', io_earliest_sched_date);
67: /*
68: ** Execute the Dynamic plsql.
69: */
70: l_dummy := dbms_sql.execute(l_cursorid);
71: /*
72: ** Extract the values from the plsql procedure.
73: */
74: DBMS_SQL.VARIABLE_VALUE(l_cursorID, ':leadtime', l_leadtime);
70: l_dummy := dbms_sql.execute(l_cursorid);
71: /*
72: ** Extract the values from the plsql procedure.
73: */
74: DBMS_SQL.VARIABLE_VALUE(l_cursorID, ':leadtime', l_leadtime);
75: DBMS_SQL.VARIABLE_VALUE(l_cursorID, ':expschdate', io_schedule_date);
76: DBMS_SQL.VARIABLE_VALUE(l_cursorID, ':earliestschdate', io_earliest_sched_date);
77: if ( io_earliest_sched_date is null ) then
78: io_earliest_sched_date := i_settlement_date;
71: /*
72: ** Extract the values from the plsql procedure.
73: */
74: DBMS_SQL.VARIABLE_VALUE(l_cursorID, ':leadtime', l_leadtime);
75: DBMS_SQL.VARIABLE_VALUE(l_cursorID, ':expschdate', io_schedule_date);
76: DBMS_SQL.VARIABLE_VALUE(l_cursorID, ':earliestschdate', io_earliest_sched_date);
77: if ( io_earliest_sched_date is null ) then
78: io_earliest_sched_date := i_settlement_date;
79: end if;
72: ** Extract the values from the plsql procedure.
73: */
74: DBMS_SQL.VARIABLE_VALUE(l_cursorID, ':leadtime', l_leadtime);
75: DBMS_SQL.VARIABLE_VALUE(l_cursorID, ':expschdate', io_schedule_date);
76: DBMS_SQL.VARIABLE_VALUE(l_cursorID, ':earliestschdate', io_earliest_sched_date);
77: if ( io_earliest_sched_date is null ) then
78: io_earliest_sched_date := i_settlement_date;
79: end if;
80: dbms_sql.close_cursor(l_cursorid);
76: DBMS_SQL.VARIABLE_VALUE(l_cursorID, ':earliestschdate', io_earliest_sched_date);
77: if ( io_earliest_sched_date is null ) then
78: io_earliest_sched_date := i_settlement_date;
79: end if;
80: dbms_sql.close_cursor(l_cursorid);
81: else
82: io_schedule_date := i_settlement_date - l_leadtime;
83: if ( trunc(io_schedule_date) < trunc(i_current_date) ) then
84: io_earliest_sched_date := i_current_date + l_leadtime;