52: WHERE failure_code = p_failurecode_rec.code;
53: ELSIF (p_failurecode_rec.code_type = EAM_FailureCodes_PUB.G_CAUSE_CODE) THEN
54: SELECT effective_end_date
55: INTO l_eff_end_date
56: FROM eam_cause_codes
57: WHERE cause_code = p_failurecode_rec.code;
58: ELSIF (p_failurecode_rec.code_type = EAM_FailureCodes_PUB.G_RESOLUTION_CODE) THEN
59: SELECT effective_end_date
60: INTO l_eff_end_date
198:
199: BEGIN
200: SELECT effective_end_date
201: INTO l_cause_end_date
202: FROM eam_cause_codes
203: WHERE cause_code = p_combination_rec.cause_code;
204: l_cause_exists := SQL%ROWCOUNT;
205: EXCEPTION
206: WHEN NO_DATA_FOUND THEN
350: FOR UPDATE NOWAIT;
351:
352: CURSOR lock_cc IS
353: SELECT description, effective_end_date
354: FROM eam_cause_codes
355: WHERE cause_code = l_code
356: FOR UPDATE NOWAIT;
357:
358: CURSOR lock_rc IS
410: fnd_global.user_id,
411: NULL);
412: ELSIF (p_failurecode_rec.code_type = EAM_FailureCodes_PUB.G_CAUSE_CODE) THEN
413:
414: -- Insert into eam cause codes
415: INSERT INTO eam_cause_codes
416: (cause_code ,
417: description ,
418: effective_end_date,
411: NULL);
412: ELSIF (p_failurecode_rec.code_type = EAM_FailureCodes_PUB.G_CAUSE_CODE) THEN
413:
414: -- Insert into eam cause codes
415: INSERT INTO eam_cause_codes
416: (cause_code ,
417: description ,
418: effective_end_date,
419: created_by ,
468: WHERE failure_code = l_code;
469: CLOSE lock_fc;
470: ELSIF (p_failurecode_rec.code_type = EAM_FailureCodes_PUB.G_CAUSE_CODE) THEN
471: OPEN lock_cc;
472: UPDATE eam_cause_codes
473: SET description = decode(p_failurecode_rec.description,
474: NULL,description,
475: FND_API.G_MISS_CHAR, NULL,
476: p_failurecode_rec.description),
502: IF (p_failurecode_rec.code_type = EAM_FailureCodes_PUB.G_FAILURE_CODE) THEN
503: DELETE FROM eam_failure_codes
504: WHERE failure_code = l_code;
505: ELSIF (p_failurecode_rec.code_type = EAM_FailureCodes_PUB.G_CAUSE_CODE) THEN
506: DELETE FROM eam_cause_codes
507: WHERE cause_code = l_code;
508: ELSIF (p_failurecode_rec.code_type = EAM_FailureCodes_PUB.G_RESOLUTION_CODE) THEN
509: DELETE FROM eam_resolution_codes
510: WHERE resolution_code = l_code;
1031: FOR UPDATE NOWAIT;
1032:
1033: CURSOR lock_cc IS
1034: SELECT description, effective_end_date, last_update_date
1035: FROM eam_cause_codes
1036: WHERE cause_code = p_code
1037: FOR UPDATE NOWAIT;
1038:
1039: CURSOR lock_rc IS