[Home] [Help]
338:
339: Cursor CHK_PRE_BATCH is
340: Select 'Y'
341: From XTR_BATCHES CUR, XTR_BATCHES PRE,
342: XTR_BATCH_EVENTS EV
343: Where cur.batch_id = p_batch_id
344: and cur.company_code = pre.company_code
345: and (( cur.batch_id > pre.batch_id
346: and pre.batch_id = ev.batch_id
348: order by pre.batch_id desc;
349:
350: Cursor CHK_BATCH_RUN is
351: Select 'Y'
352: From XTR_BATCH_EVENTS
353: Where batch_id = p_batch_id
354: and event_code = 'REVAL';
355:
356: rec xtr_revl_rec;
611: rec.revldate := l_batch_end;
612: rec.sob_ccy := l_sob_ccy;
613: rec.ex_rate_type := l_exchange_type;
614:
615: -- Insert into XTR_BATCH_EVENTS table
616: xtr_insert_event(p_batch_id);
617:
618: /********************* BDO revaluation ***********************/
619: for l_tmp in c_bdo_deal loop
9831: p_hedge_flag IN VARCHAR2 DEFAULT NULL) IS
9832:
9833: l_ROWID VARCHAR2(20);
9834: l_reval_detail_id NUMBER;
9835: l_event_id XTR_BATCH_EVENTS.BATCH_EVENT_ID%TYPE;
9836: l_sysdate DATE := trunc(sysdate);
9837: l_complete VARCHAR2(1);
9838: l_deal_rowid VARCHAR2(30);
9839: r_err_log err_log; -- record type
10032: retcode OUT NOCOPY NUMBER) IS
10033:
10034: l_ROWID VARCHAR2(20);
10035: l_reval_detail_id NUMBER;
10036: l_event_id XTR_BATCH_EVENTS.BATCH_EVENT_ID%TYPE;
10037: l_sysdate DATE := trunc(sysdate);
10038: l_complete VARCHAR2(1);
10039: l_deal_rowid VARCHAR2(30);
10040: r_err_log err_log; -- record type
10164: end xtr_revl_real_log;
10165:
10166: ------------------------------------------------------------------------------
10167: /***********************************************************/
10168: /* This procedure insert value into XTR_BATCH_EVENTS table */
10169: /***********************************************************/
10170: PROCEDURE xtr_insert_event(
10171: p_batch_ID IN NUMBER) is
10172:
10171: p_batch_ID IN NUMBER) is
10172:
10173: Cursor CHK_BATCH_RUN is
10174: Select 'Y'
10175: From XTR_BATCH_EVENTS
10176: Where batch_id = p_batch_id
10177: and event_code = 'REVAL';
10178:
10179: l_event_id XTR_BATCH_EVENTS.BATCH_EVENT_ID%TYPE;
10175: From XTR_BATCH_EVENTS
10176: Where batch_id = p_batch_id
10177: and event_code = 'REVAL';
10178:
10179: l_event_id XTR_BATCH_EVENTS.BATCH_EVENT_ID%TYPE;
10180: l_sysdate DATE := trunc(sysdate);
10181: l_cur VARCHAR2(1);
10182: Begin
10183: Open CHK_BATCH_RUN;
10187: Raise e_batch_been_run;
10188: End If;
10189: Close CHK_BATCH_RUN;
10190:
10191: -- insert new row to XTR_BATCH_EVENTS table
10192: select XTR_BATCH_EVENTS_S.NEXTVAL
10193: into l_event_id from DUAL;
10194:
10195: Insert into XTR_BATCH_EVENTS(batch_event_id, batch_id, event_code, authorized,
10188: End If;
10189: Close CHK_BATCH_RUN;
10190:
10191: -- insert new row to XTR_BATCH_EVENTS table
10192: select XTR_BATCH_EVENTS_S.NEXTVAL
10193: into l_event_id from DUAL;
10194:
10195: Insert into XTR_BATCH_EVENTS(batch_event_id, batch_id, event_code, authorized,
10196: authorized_by, authorized_on, created_by, creation_date,
10191: -- insert new row to XTR_BATCH_EVENTS table
10192: select XTR_BATCH_EVENTS_S.NEXTVAL
10193: into l_event_id from DUAL;
10194:
10195: Insert into XTR_BATCH_EVENTS(batch_event_id, batch_id, event_code, authorized,
10196: authorized_by, authorized_on, created_by, creation_date,
10197: last_updated_by, last_update_date, last_update_login)
10198: values(l_event_id, p_batch_id, 'REVAL', 'N', null, null, fnd_global.user_id,
10199: l_sysdate, fnd_global.user_id, l_sysdate, fnd_global.login_id);