PROMPT Package body rob_msg...

CREATE OR REPLACE PACKAGE BODY rob_msg IS
--------------------------------------------------------------------------------
-- Name:        MsgGetText
--
-- Description: Provides a mechanism for text translation.
--
-- Parameters:  p_MsgNo    The Id of the message
--              p_DfltText The Default Text
--              p_Subst1 (to 3) Substitution strings
--              p_LangId   The Language ID
--
--------------------------------------------------------------------------------
function GetMsg(p_DfltText in varchar2,
                p_Subst in varchar2,
                p_Subst1 in varchar2,
                p_Subst2 in varchar2,
                p_Subst3 in varchar2) return varchar2 is
   l_temp varchar2(10000) := p_DfltText;
begin
   l_temp := replace(l_temp, '<p1>',  p_Subst);
   l_temp := replace(l_temp, '<p2>', p_Subst1);
   l_temp := replace(l_temp, '<p3>', p_Subst2);
   l_temp := replace(l_temp, '<p4>', p_Subst3);
   return l_temp;
end;

end;
/