106:
107: Begin
108: select 'X'
109: into l_dummy
110: from csd_diagnostic_codes_b
111: where diagnostic_code = UPPER(p_diagnostic_code_rec.diagnostic_code);
112:
113: Exception
114:
418: -- Validate the diagnostic code id
419: Begin
420: select 'X'
421: into l_dummy
422: from csd_diagnostic_codes_b
423: where diagnostic_code_id = p_diagnostic_code_rec.diagnostic_code_id;
424:
425: Exception
426:
447:
448: Begin
449: select object_version_number
450: into l_obj_ver_num
451: from csd_diagnostic_codes_b
452: where diagnostic_code_id = p_diagnostic_code_rec.diagnostic_code_id;
453:
454: Exception
455:
484: l_dummy := null;
485:
486: select 'X'
487: into l_dummy
488: from csd_diagnostic_codes_b
489: where diagnostic_code = UPPER(p_diagnostic_code_rec.diagnostic_code)
490: and diagnostic_code_id <> p_diagnostic_code_rec.diagnostic_code_id;
491:
492: Exception