DBA Data[Home] [Help]

APPS.XTR_MARKET_DATA_INTERFACE_P dependencies on XTR_MARKET_DATA_INTERFACE

Line 1: PACKAGE BODY xtr_market_data_interface_p AS

1: PACKAGE BODY xtr_market_data_interface_p AS
2: /* $Header: xtrmdtrb.pls 120.8.12010000.2 2010/01/28 11:26:47 nipant ship $ */
3: --------------------------------------------------------------------------------------------------------------------
4:
5: /* archive_rates

Line 332: SELECT NVL(datetime,SYSDATE)INTO v_now FROM xtr_market_data_interface where

328: --
329: v_now DATE;
330: --
331: BEGIN
332: SELECT NVL(datetime,SYSDATE)INTO v_now FROM xtr_market_data_interface where
333: rowid=p_rowid;
334: IF v_now > sysdate THEN
335: v_now := sysdate;
336: END IF;

Line 340: UPDATE XTR_MARKET_DATA_INTERFACE

336: END IF;
337: UPDATE XTR_MARKET_PRICES
338: SET ASK_PRICE= p_ask, BID_PRICE= p_bid,LAST_DOWNLOAD_TIME=v_now
339: WHERE XTR_MARKET_PRICES.REF_NUMBER = p_ref;
340: UPDATE XTR_MARKET_DATA_INTERFACE
341: SET LAST_UPDATED_BY = FND_GLOBAL.user_id, LAST_UPDATED_DATE= sysdate
342: WHERE XTR_MARKET_DATA_INTERFACE.ROWID = p_rowid;
343: END transfer_mp;
344:

Line 342: WHERE XTR_MARKET_DATA_INTERFACE.ROWID = p_rowid;

338: SET ASK_PRICE= p_ask, BID_PRICE= p_bid,LAST_DOWNLOAD_TIME=v_now
339: WHERE XTR_MARKET_PRICES.REF_NUMBER = p_ref;
340: UPDATE XTR_MARKET_DATA_INTERFACE
341: SET LAST_UPDATED_BY = FND_GLOBAL.user_id, LAST_UPDATED_DATE= sysdate
342: WHERE XTR_MARKET_DATA_INTERFACE.ROWID = p_rowid;
343: END transfer_mp;
344:
345:
346:

Line 568: * transfers market data from the XTR_MARKET_DATA_INTERFACE table

564:
565:
566: /* market_data_transfer
567: *
568: * transfers market data from the XTR_MARKET_DATA_INTERFACE table
569: * to the current (or historic) rates table within Treasury.
570: * For each record in the XTR_MARKET_DATA_INTERFACE table, this procedure
571: * attempts to make the transfer and writes a return code back
572: * on the interface table corresponding to the status of the transfer.

Line 570: * For each record in the XTR_MARKET_DATA_INTERFACE table, this procedure

566: /* market_data_transfer
567: *
568: * transfers market data from the XTR_MARKET_DATA_INTERFACE table
569: * to the current (or historic) rates table within Treasury.
570: * For each record in the XTR_MARKET_DATA_INTERFACE table, this procedure
571: * attempts to make the transfer and writes a return code back
572: * on the interface table corresponding to the status of the transfer.
573: * For successful transfers, the corresponding Reference Code is also
574: * recorded on the interface table.

Line 586: FROM XTR_MARKET_DATA_INTERFACE

582: CURSOR each_row_cursor IS
583: SELECT rowid, source,external_ref_code,ask,bid,datetime,mid,spread,
584: return_code,ref_code,created_by,creation_date,last_updated_by,
585: last_updated_date,last_updated_login
586: FROM XTR_MARKET_DATA_INTERFACE
587: WHERE RETURN_CODE IS NULL;
588: v_counter NUMBER DEFAULT 0;
589: e_inv EXCEPTION;
590: -- invalid parameter exception

Line 625: LOCK TABLE XTR_MARKET_DATA_INTERFACE,XTR_MARKET_PRICES IN EXCLUSIVE MODE

621: (p_upd_history = 'N'))) THEN
622: RAISE e_inv;
623: END IF;
624: -- check parameter integrity
625: LOCK TABLE XTR_MARKET_DATA_INTERFACE,XTR_MARKET_PRICES IN EXCLUSIVE MODE
626: NOWAIT;
627:
628: -- bug 2588763 - get list of all currencies that will be updated
629: select distinct mp.currency_a

Line 633: xtr_market_data_interface mdi

629: select distinct mp.currency_a
630: bulk collect into v_currency_a_list
631: from xtr_market_prices mp,
632: xtr_data_feed_codes dfc,
633: xtr_market_data_interface mdi
634: where mp.ric_code=dfc.ric_code
635: and dfc.source = mdi.source
636: and dfc.external_ref_code = mdi.external_ref_code
637: and mp.term_type = 'S'

Line 647: xtr_market_data_interface mdi

643: select distinct mp.currency_b
644: bulk collect into v_currency_b_list
645: from xtr_market_prices mp,
646: xtr_data_feed_codes dfc,
647: xtr_market_data_interface mdi
648: where mp.ric_code=dfc.ric_code
649: and dfc.source = mdi.source
650: and dfc.external_ref_code = mdi.external_ref_code
651: and mp.currency_b is not null

Line 658: xtr_market_data_interface i_mdi

654: and not exists
655: (select i_mp.currency_b
656: from xtr_market_prices i_mp,
657: xtr_data_feed_codes i_dfc,
658: xtr_market_data_interface i_mdi
659: where i_mp.ric_code = i_dfc.ric_code
660: and i_dfc.source = i_mdi.source
661: and i_dfc.external_ref_code = i_mdi.external_ref_code
662: and i_mp.term_type = 'S'

Line 694: UPDATE XTR_MARKET_DATA_INTERFACE

690: IF (v_mdi_rec.SOURCE IS NULL) OR (v_mdi_rec.EXTERNAL_REF_CODE IS NULL) OR
691: ((v_mdi_rec.ASK IS NULL) AND (v_mdi_rec.BID IS NULL) AND
692: (v_mdi_rec.MID IS NULL)) THEN
693: --XTRMDT special logic fails
694: UPDATE XTR_MARKET_DATA_INTERFACE
695: SET RETURN_CODE = 90,LAST_UPDATED_BY = FND_GLOBAL.user_id,
696: LAST_UPDATED_DATE= SYSDATE WHERE rowid =v_mdi_rec.rowid;
697:
698: --Print error to concurrent log

Line 712: UPDATE XTR_MARKET_DATA_INTERFACE

708: ||', '||v_mdi_rec.mid||', '||v_mdi_rec.spread||', '
709: ||v_mdi_rec.datetime||', '||v_trans_stat||' [90]');
710:
711: ELSIF q_code_check(v_mdi_rec.source,v_mdi_rec.external_ref_code) THEN
712: UPDATE XTR_MARKET_DATA_INTERFACE
713: SET RETURN_CODE = 50 ,LAST_UPDATED_BY = FND_GLOBAL.user_id,
714: LAST_UPDATED_DATE= SYSDATE WHERE ROWID = v_mdi_rec.rowid;
715: --Print error to concurrent log
716: v_e_count := v_e_count + 1;

Line 730: UPDATE XTR_MARKET_DATA_INTERFACE

726:
727: ELSIF v_mdi_rec.DATETIME IS NULL THEN
728: IF (p_upd_date_missing = 'N') THEN
729: -- UPD_DATE_MISSING = Never
730: UPDATE XTR_MARKET_DATA_INTERFACE
731: SET RETURN_CODE = 60,LAST_UPDATED_BY = FND_GLOBAL.user_id,
732: LAST_UPDATED_DATE= SYSDATE WHERE ROWID = v_mdi_rec.rowid;
733: --Print error to concurrent log
734: v_e_count := v_e_count + 1;

Line 758: UPDATE XTR_MARKET_DATA_INTERFACE

754: calc_ask_bid(v_ref,v_ask,v_bid,v_mdi_rec.mid,v_mdi_rec.spread,v_code);
755:
756: --transfer to mp
757: transfer_mp(v_ref, v_ask, v_bid, v_mdi_rec.rowid);
758: UPDATE XTR_MARKET_DATA_INTERFACE
759: SET REF_CODE = v_ric, RETURN_CODE = 20,
760: LAST_UPDATED_BY = FND_GLOBAL.user_id, LAST_UPDATED_DATE= SYSDATE
761: WHERE ROWID = v_mdi_rec.rowid;
762: ELSE

Line 763: UPDATE XTR_MARKET_DATA_INTERFACE

759: SET REF_CODE = v_ric, RETURN_CODE = 20,
760: LAST_UPDATED_BY = FND_GLOBAL.user_id, LAST_UPDATED_DATE= SYSDATE
761: WHERE ROWID = v_mdi_rec.rowid;
762: ELSE
763: UPDATE XTR_MARKET_DATA_INTERFACE
764: SET RETURN_CODE = 70,LAST_UPDATED_BY = FND_GLOBAL.user_id,
765: LAST_UPDATED_DATE= SYSDATE WHERE ROWID = v_mdi_rec.rowid;
766: --Print error to concurrent log
767: v_e_count := v_e_count + 1;

Line 782: UPDATE XTR_MARKET_DATA_INTERFACE

778: ELSIF(q_date_check(v_mdi_rec.DATETIME,v_mdi_rec.source,
779: v_mdi_rec.external_ref_code)) THEN
780: --IF (UPD_HISTORY = N)
781: IF (p_upd_history = 'N') THEN
782: UPDATE XTR_MARKET_DATA_INTERFACE
783: SET RETURN_CODE = 80 ,LAST_UPDATED_BY = FND_GLOBAL.user_id,
784: LAST_UPDATED_DATE= SYSDATE WHERE ROWID = v_mdi_rec.rowid;
785: --Print error to concurrent log
786: v_e_count := v_e_count + 1;

Line 828: UPDATE XTR_MARKET_DATA_INTERFACE

824: --transfer to history table
825: archive_rates(FALSE,v_ask,v_bid,v_currency_a,v_currency_b,
826: v_nos_of_days,v_ric,v_term_length,v_term_type,v_term_year,
827: v_mdi_rec.datetime,v_day_count_basis);
828: UPDATE XTR_MARKET_DATA_INTERFACE
829: SET REF_CODE = v_ric, RETURN_CODE= 40 ,
830: LAST_UPDATED_BY = FND_GLOBAL.user_id, LAST_UPDATED_DATE= SYSDATE
831: WHERE ROWID = v_mdi_rec.rowid;
832: END IF;

Line 842: UPDATE XTR_MARKET_DATA_INTERFACE

838: WHERE REF_NUMBER = v_ref;
839: calc_ask_bid(v_ref,v_ask,v_bid,v_mdi_rec.mid,v_mdi_rec.spread,v_code);
840: --transfer to mp
841: transfer_mp( v_ref,v_ask, v_bid,v_mdi_rec.rowid);
842: UPDATE XTR_MARKET_DATA_INTERFACE
843: SET REF_CODE = v_ric, RETURN_CODE = 10,
844: LAST_UPDATED_BY = FND_GLOBAL.user_id, LAST_UPDATED_DATE= SYSDATE
845: WHERE ROWID = v_mdi_rec.rowid;
846: END IF;

Line 852: LOCK TABLE XTR_MARKET_DATA_INTERFACE,XTR_MARKET_PRICES

848: IF v_counter = 50 THEN
849: COMMIT;
850: v_counter:= 0;
851: -- lock the tables again because it was released by commit statement
852: LOCK TABLE XTR_MARKET_DATA_INTERFACE,XTR_MARKET_PRICES
853: IN EXCLUSIVE MODE NOWAIT;
854: END IF;
855: END LOOP;
856:

Line 1103: END xtr_market_data_interface_p;

1099: END IF;
1100: END upload_rates_to_gl_cp;
1101:
1102: --------------------------------------------------------------------------------------------------------------------
1103: END xtr_market_data_interface_p;