$PBExportHeader$f_get_itemname.srf
global type f_get_itemname from function_object
end type

forward prototypes
global function string f_get_itemname (long arg_itemid)
end prototypes

global function string f_get_itemname (long arg_itemid);String ls_itemname
//ls_itemname = ''
SELECT itemname
	INTO :ls_itemname
	From u_itemdef
	where itemid = :arg_itemid;
IF sqlca.SQLCode <> 0 THEN ls_itemname = ''

RETURN ls_itemname

end function