499: BEGIN
500: -- SU:02/25 : Following sql statement is picked up from RET_REASON record group definition
501: SELECT lookup_code
502: INTO l_ReasonCode
503: FROM ar_lookups
504: WHERE lookup_type = 'CREDIT_MEMO_REASON'
505: AND lookup_code = p_ReasonCode
506: AND TRUNC(SYSDATE) BETWEEN
507: TRUNC(NVL(start_date_active, SYSDATE)) AND