[Home] [Help]
2166: from wsh_exception_definitions_vl
2167: where exception_name = c_exception_name;
2168:
2169: cursor C2 (c_exception_definition_id NUMBER) is
2170: select ROWID from WSH_EXCEPTION_DEFINITIONS_B
2171: where EXCEPTION_DEFINITION_ID =
2172: c_exception_definition_id;
2173:
2174: l_exception_name VARCHAR2(30);
2249: else
2250: -- populate l_exception_id
2251: SELECT wsh_exception_definitions_s.nextval INTO l_exception_definition_id FROM SYS.DUAL;
2252: end if;
2253: insert into wsh_exception_definitions_b (
2254: exception_definition_id,
2255: exception_type,
2256: default_severity,
2257: exception_handling,
2448: l_update_allowed VARCHAR2(1);
2449: --5986504
2450:
2451: cursor C2 (c_exception_definition_id NUMBER) is
2452: select update_allowed from WSH_EXCEPTION_DEFINITIONS_B
2453: where EXCEPTION_DEFINITION_ID =
2454: c_exception_definition_id;
2455: --
2456: WSH_XC_DEF_NOT_FOUND exception;
2519: -- If Caller is Form , then Updates are Elligible
2520: if ( nvl(p_caller, 'FORM') = 'LOADER' and ( upper(p_update_allowed) = 'N' or
2521: (upper(p_update_allowed) = 'Y' and l_update_allowed = 'N')) ) OR
2522: ( nvl(p_caller, 'FORM') = 'FORM' ) THEN
2523: update wsh_exception_definitions_b
2524: set
2525: exception_type = p_exception_type,
2526: default_severity = UPPER(p_default_severity),
2527: exception_handling = UPPER(p_exception_handling),
2946: if (sql%notfound) then
2947: raise WSH_XC_DEF_NOT_FOUND;
2948: end if;
2949:
2950: delete from WSH_EXCEPTION_DEFINITIONS_B
2951: where EXCEPTION_DEFINITION_ID = p_exception_definition_id;
2952:
2953: if (sql%notfound) then
2954: raise WSH_XC_DEF_NOT_FOUND;
3010: --
3011: delete from WSH_EXCEPTION_DEFINITIONS_TL T
3012: where not exists
3013: (select to_char(NULL)
3014: from WSH_EXCEPTION_DEFINITIONS_B B
3015: where B.EXCEPTION_DEFINITION_ID = T.EXCEPTION_DEFINITION_ID
3016: );
3017:
3018: update WSH_EXCEPTION_DEFINITIONS_TL T set (