267: ----------------------------------------------------------------------------
268: BEGIN
269: SELECT REGSRVC.REG_SERVICE_TYPE
270: INTO l_reg_service_type
271: FROM UMX_REG_SERVICES_VL REGSRVC
272: WHERE REGSRVC.REG_SERVICE_CODE = p_reg_service_code
273: AND REGSRVC.START_DATE <= SYSDATE
274: AND NVL(REGSRVC.END_DATE, SYSDATE+1) > SYSDATE;
275: EXCEPTION