69: /* ----------------------------------------------------------------------- */
70:
71: -- Define a Message Token with a Value and set the Message Name
72:
73: -- Calls FND_MESSAGE server package to set the Message Stack. This message is
74: -- retrieved by the calling program.
75:
76: PROCEDURE add_message(appname IN VARCHAR2,
77: msgname IN VARCHAR2) AS
82:
83: if ((appname is not null) and
84: (msgname is not null)) then
85:
86: FND_MESSAGE.SET_NAME(appname, msgname);
87:
88: if no_msg_tokens is not null then
89:
90: for i in 1..no_msg_tokens loop
87:
88: if no_msg_tokens is not null then
89:
90: for i in 1..no_msg_tokens loop
91: FND_MESSAGE.SET_TOKEN(msg_tok_names(i), msg_tok_val(i));
92: end loop;
93:
94: end if;
95: