[Home] [Help]
187: l_trx_rate_index NUMBER; -- loop index of l_gta_rate_trx
188: l_trx_line_index NUMBER; -- loop index of trx lines
189: l_result BOOLEAN;
190:
191: l_trx_type ra_cust_trx_types_all.type%TYPE;
192: l_fp_reg_num ar_gta_trx_headers_all.fp_tax_registration_number%TYPE;
193:
194: l_trx_group_number NUMBER;
195:
1570: INTO
1571: l_trx_type
1572: FROM
1573: ra_customer_trx_all h
1574: , ra_cust_trx_types_all ctt
1575: WHERE ctt.cust_trx_type_id = h.cust_trx_type_id
1576: AND ctt.Org_Id = h.Org_Id
1577: AND h.customer_trx_id = p_gta_trx_rec.trx_header.ra_trx_id;
1578: EXCEPTION
1932: -- get trx type by trx id
1933: -- PARAMETERS:
1934: -- p_org_id IN NUMBER
1935: -- p_gta_trx in AR_GTA_TRX_UTIL.trx_tbl_type
1936: -- x_trx_type out ra_cust_trx_types_all.type%TYPE
1937: -- HISTORY:
1938: -- 10-Sep-2005 : Jim.Zheng Create
1939: -- 04-Aug-2009 : Yao Zhang fix bug#8756943 modified
1940: --=============================================================================
1940: --=============================================================================
1941: PROCEDURE get_trx_type
1942: (p_org_id IN NUMBER
1943: , p_gta_trx IN AR_Gta_Trx_Util.trx_rec_type
1944: , x_trx_type OUT NOCOPY ra_cust_trx_types_all.type%TYPE
1945: )
1946: IS
1947:
1948: l_procedure_name VARCHAR2(30) := 'get_trx_type';
1946: IS
1947:
1948: l_procedure_name VARCHAR2(30) := 'get_trx_type';
1949: l_trx_id ra_customer_trx_all.customer_trx_id%TYPE;
1950: l_trx_type ra_cust_trx_types_all.type%TYPE;
1951: BEGIN
1952: IF(FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
1953: THEN
1954: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
1975: INTO
1976: l_trx_type
1977: FROM
1978: ra_customer_trx_all h
1979: ,ra_cust_trx_types_all ctt
1980: WHERE h.CUST_TRX_TYPE_ID = ctt.CUST_TRX_TYPE_ID(+)
1981: AND ctt.TYPE IN ('INV', 'CM', 'DM')
1982: AND ctt.org_id = p_org_id
1983: AND h.customer_trx_id = l_trx_id;