3599: ) IS
3600: --
3601: CURSOR get_service_type_code (c_service_type VARCHAR2) IS
3602: SELECT lookup_code
3603: FROM pa_lookups
3604: WHERE lookup_type = 'SERVICE TYPE'
3605: AND enabled_flag = 'Y'
3606: AND meaning = c_service_type
3607: AND TRUNC(SYSDATE) BETWEEN TRUNC(NVL(start_date_active,SYSDATE-1))
3608: AND TRUNC(NVL(end_date_active,SYSDATE));
3609:
3610: CURSOR check_service_type_code (c_service_type_code VARCHAR2) IS
3611: SELECT 'X'
3612: FROM pa_lookups
3613: WHERE lookup_type = 'SERVICE TYPE'
3614: AND enabled_flag = 'Y'
3615: AND lookup_code = c_service_type_code
3616: AND TRUNC(SYSDATE) BETWEEN TRUNC(NVL(start_date_active,SYSDATE-1))