[Home] [Help]
46: END IF;
47:
48: SELECT count(1)
49: INTO l_set_count
50: FROM eam_failure_sets
51: WHERE set_name = p_failureset_rec.set_name;
52:
53: IF (l_set_count > 0) THEN
54: Raise_Error ('EAM_FAILURESET_EXISTS', 'FAILURE_SET', p_failureset_rec.set_name);
59: l_set_id := p_failureset_rec.set_id ;
60: ELSIF (p_failureset_rec.set_name IS NOT NULL) THEN
61: SELECT set_id
62: INTO l_set_id
63: FROM eam_failure_sets
64: WHERE set_name = p_failureset_rec.set_name;
65: ELSE
66: Raise_Error ('EAM_FAILURESET_INVALID', 'FAILURE_SET', l_set_id || ' - ' || p_failureset_rec.set_name);
67: END IF;
67: END IF;
68: x_set_id := l_set_id;
69: SELECT description, effective_end_date, last_update_date
70: INTO l_old_description, l_old_eff_end_date, l_old_last_upd_date
71: FROM eam_failure_sets
72: WHERE set_id = l_set_id;
73:
74: /*
75: IF (l_old_eff_end_date IS NOT NULL AND
98: AND msik.inventory_item_id = efsa.inventory_item_id
99: AND EXISTS
100: (SELECT 1
101: FROM eam_failure_set_associations efsa1,
102: eam_failure_sets efs
103: WHERE efsa1.inventory_item_id = efsa.inventory_item_id
104: AND efsa1.set_id <> efsa.set_id
105: AND efs.set_id = efsa1.set_id
106: AND (efs.effective_end_date IS NULL OR
145: l_set_id := p_association_rec.set_id ;
146: ELSIF (p_association_rec.set_name IS NOT NULL) THEN
147: SELECT set_id
148: INTO l_set_id
149: FROM eam_failure_sets
150: WHERE set_name = p_association_rec.set_name;
151: END IF;
152:
153: SELECT effective_end_date
151: END IF;
152:
153: SELECT effective_end_date
154: INTO l_set_end_date
155: FROM eam_failure_sets
156: WHERE set_id = l_set_id;
157:
158: IF (l_set_end_date IS NOT NULL AND
159: trunc(l_set_end_date) < trunc(sysdate)) THEN
210: l_association_exists := 0;
211: SELECT count(1)
212: INTO l_association_exists
213: FROM eam_failure_set_associations efsa,
214: eam_failure_sets efs
215: WHERE efsa.inventory_item_id = p_association_rec.inventory_item_id
216: AND efsa.set_id <> l_set_id
217: AND efs.set_id = efsa.set_id
218: AND (efs.effective_end_date IS NULL OR
282: l_failureset_id NUMBER;
283:
284: CURSOR lock_set IS
285: SELECT description, effective_end_date
286: FROM eam_failure_sets
287: WHERE set_id = l_failureset_id
288: FOR UPDATE NOWAIT;
289:
290: BEGIN
311: -- Validate Failure Set Info passed
312: Validate_FailureSet(p_mode, p_validation_level, p_failureset_rec, l_failureset_id);
313:
314: IF (p_mode = 'C') THEN
315: -- Insert into eam failure sets
316: INSERT INTO eam_failure_sets
317: (set_id ,
318: set_name ,
319: description ,
312: Validate_FailureSet(p_mode, p_validation_level, p_failureset_rec, l_failureset_id);
313:
314: IF (p_mode = 'C') THEN
315: -- Insert into eam failure sets
316: INSERT INTO eam_failure_sets
317: (set_id ,
318: set_name ,
319: description ,
320: effective_end_date,
334: NULL)
335: RETURNING set_id INTO l_failureset_id ;
336:
337: ELSIF (p_mode = 'U') THEN
338: -- update eam failure sets
339: BEGIN
340: OPEN lock_set;
341: UPDATE eam_failure_sets
342: SET description = decode(p_failureset_rec.description,
337: ELSIF (p_mode = 'U') THEN
338: -- update eam failure sets
339: BEGIN
340: OPEN lock_set;
341: UPDATE eam_failure_sets
342: SET description = decode(p_failureset_rec.description,
343: NULL, description,
344: FND_API.G_MISS_CHAR, NULL,
345: p_failureset_rec.description),