1: Package Body ota_finance as
2: /* $Header: otfin01t.pkb 115.2 99/07/16 00:52:17 porting ship $ */
3: --
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- ----------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- ----------------------------------------------------------------------------
7: --
8: g_package varchar2(33) := ' ota_finance.'; -- Global package name
9: --
10: -- ----------------------------------------------------------------------------
11: -- |-------------------------< create_finance_line >--------------------------|
12: -- ----------------------------------------------------------------------------
128: l_dummy varchar2(1);
129: --
130: cursor c_finance_header_type is
131: select null
132: from ota_finance_headers
133: where finance_header_id = p_finance_header_id
134: and receivable_type = 'PRE-PURCHASE USE';
135: --
136: begin
227: return(l_price_list_type = 'T');
228: --
229: end get_deal_unit_based;
230: --
231: end ota_finance;