167: IF p_credit_request_rec.credit_type IS NOT NULL
168: THEN
169: BEGIN
170: SELECT lookup_code INTO l_check_flag
171: FROM ar_lookups
172: WHERE lookup_type = 'AR_CMGT_CREDIT_TYPE'
173: AND lookup_code = p_credit_request_rec.credit_type;
174:
175: EXCEPTION