CREATE OR REPLACE FUNCTION f_get_objname
(objname_id In Number)
return VARCHAR2 is
Result_ VARCHAR2(255);
begin
For c_ In (Select Replace
(Replace
(Replace
(Replace
(Replace
(Replace
(Replace
(Replace
(Replace
(Replace
(Replace
(Replace
(Replace
(Replace
(Replace
(Replace
(Replace
(Replace
(Replace
(Translate
(Replace
(Substr(objname,
1,
Instr(objname,'!;'))
,'BE','.')
,')+-/13579;=?ACEGIKMOQSUWY]!"{}','ABCDEFGHIJKLMNOPQRSTUVWXYZ')
,'`|>','1')
,'`|@','2')
,'`|B','3')
,'`|D','4')
,'`|F','5')
,'`|H','6')
,'`|J','7')
,'`|L','8')
,'`|N','9')
,'M|N','_')
,'M|Z','-')
,'"' ,'')
,'@' ,'')
,'`|<','0')
,'B~P','/')
,'M}Z',':')
,'B|C','(')
,'B|D',')')
,'B~K','@') As objname
From BOE_CMS.CMS_INFOOBJECTS6
Where objectid = objname_id) Loop
If objname_id Is Not Null Then Result_ := c_.objname;
End If;
End Loop;
return(Result_);
END f_get_objname;
