[Home] [Help]
2167: from wsh_exception_definitions_vl
2168: where exception_name = c_exception_name;
2169:
2170: cursor C2 (c_exception_definition_id NUMBER) is
2171: select ROWID from WSH_EXCEPTION_DEFINITIONS_B
2172: where EXCEPTION_DEFINITION_ID =
2173: c_exception_definition_id;
2174:
2175: l_exception_name VARCHAR2(30);
2250: else
2251: -- populate l_exception_id
2252: SELECT wsh_exception_definitions_s.nextval INTO l_exception_definition_id FROM SYS.DUAL;
2253: end if;
2254: insert into wsh_exception_definitions_b (
2255: exception_definition_id,
2256: exception_type,
2257: default_severity,
2258: exception_handling,
2449: l_update_allowed VARCHAR2(1);
2450: --5986504
2451:
2452: cursor C2 (c_exception_definition_id NUMBER) is
2453: select update_allowed from WSH_EXCEPTION_DEFINITIONS_B
2454: where EXCEPTION_DEFINITION_ID =
2455: c_exception_definition_id;
2456: --
2457: WSH_XC_DEF_NOT_FOUND exception;
2520: -- If Caller is Form , then Updates are Elligible
2521: if ( nvl(p_caller, 'FORM') = 'LOADER' and ( upper(p_update_allowed) = 'N' or
2522: (upper(p_update_allowed) = 'Y' and l_update_allowed = 'N')) ) OR
2523: ( nvl(p_caller, 'FORM') = 'FORM' ) THEN
2524: update wsh_exception_definitions_b
2525: set
2526: exception_type = p_exception_type,
2527: default_severity = UPPER(p_default_severity),
2528: exception_handling = UPPER(p_exception_handling),
2954: if (sql%notfound) then
2955: raise WSH_XC_DEF_NOT_FOUND;
2956: end if;
2957:
2958: delete from WSH_EXCEPTION_DEFINITIONS_B
2959: where EXCEPTION_DEFINITION_ID = p_exception_definition_id;
2960:
2961: if (sql%notfound) then
2962: raise WSH_XC_DEF_NOT_FOUND;
3018: --
3019: delete from WSH_EXCEPTION_DEFINITIONS_TL T
3020: where not exists
3021: (select to_char(NULL)
3022: from WSH_EXCEPTION_DEFINITIONS_B B
3023: where B.EXCEPTION_DEFINITION_ID = T.EXCEPTION_DEFINITION_ID
3024: );
3025:
3026: update WSH_EXCEPTION_DEFINITIONS_TL T set (