189: -- The message is appended at the bottom of the message table.
190:
191: PROCEDURE Add_Message
192: ( p_Msg_Name IN VARCHAR2
193: , p_token1 IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
194: , p_value1 IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
195: , p_token2 IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
196: , p_value2 IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
197: , p_token3 IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
190:
191: PROCEDURE Add_Message
192: ( p_Msg_Name IN VARCHAR2
193: , p_token1 IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
194: , p_value1 IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
195: , p_token2 IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
196: , p_value2 IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
197: , p_token3 IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
198: , p_value3 IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
191: PROCEDURE Add_Message
192: ( p_Msg_Name IN VARCHAR2
193: , p_token1 IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
194: , p_value1 IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
195: , p_token2 IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
196: , p_value2 IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
197: , p_token3 IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
198: , p_value3 IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
199: , p_translate IN VARCHAR2 DEFAULT fnd_api.g_FALSE
192: ( p_Msg_Name IN VARCHAR2
193: , p_token1 IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
194: , p_value1 IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
195: , p_token2 IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
196: , p_value2 IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
197: , p_token3 IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
198: , p_value3 IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
199: , p_translate IN VARCHAR2 DEFAULT fnd_api.g_FALSE
200: , p_transaction_id IN NUMBER DEFAULT fnd_api.g_MISS_NUM
193: , p_token1 IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
194: , p_value1 IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
195: , p_token2 IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
196: , p_value2 IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
197: , p_token3 IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
198: , p_value3 IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
199: , p_translate IN VARCHAR2 DEFAULT fnd_api.g_FALSE
200: , p_transaction_id IN NUMBER DEFAULT fnd_api.g_MISS_NUM
201: , p_column_name IN VARCHAR2 DEFAULT NULL
194: , p_value1 IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
195: , p_token2 IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
196: , p_value2 IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
197: , p_token3 IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
198: , p_value3 IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
199: , p_translate IN VARCHAR2 DEFAULT fnd_api.g_FALSE
200: , p_transaction_id IN NUMBER DEFAULT fnd_api.g_MISS_NUM
201: , p_column_name IN VARCHAR2 DEFAULT NULL
202: )
195: , p_token2 IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
196: , p_value2 IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
197: , p_token3 IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
198: , p_value3 IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
199: , p_translate IN VARCHAR2 DEFAULT fnd_api.g_FALSE
200: , p_transaction_id IN NUMBER DEFAULT fnd_api.g_MISS_NUM
201: , p_column_name IN VARCHAR2 DEFAULT NULL
202: )
203: IS
196: , p_value2 IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
197: , p_token3 IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
198: , p_value3 IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
199: , p_translate IN VARCHAR2 DEFAULT fnd_api.g_FALSE
200: , p_transaction_id IN NUMBER DEFAULT fnd_api.g_MISS_NUM
201: , p_column_name IN VARCHAR2 DEFAULT NULL
202: )
203: IS
204: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
211: --BIS_VG_UTIL.Add_Error_Message (...);
212: --inv_debug.message(p_Msg_Text);
213:
214: FND_MESSAGE.Set_Name('INV', p_Msg_Name);
215: IF ( p_token1 <> fnd_api.g_MISS_CHAR ) THEN
216: FND_MESSAGE.Set_Token(p_token1, p_value1, FND_API.To_Boolean(p_translate));
217: END IF;
218: IF ( p_token2 <> fnd_api.g_MISS_CHAR ) THEN
219: FND_MESSAGE.Set_Token(p_token2, p_value2, FND_API.To_Boolean(p_translate));
212: --inv_debug.message(p_Msg_Text);
213:
214: FND_MESSAGE.Set_Name('INV', p_Msg_Name);
215: IF ( p_token1 <> fnd_api.g_MISS_CHAR ) THEN
216: FND_MESSAGE.Set_Token(p_token1, p_value1, FND_API.To_Boolean(p_translate));
217: END IF;
218: IF ( p_token2 <> fnd_api.g_MISS_CHAR ) THEN
219: FND_MESSAGE.Set_Token(p_token2, p_value2, FND_API.To_Boolean(p_translate));
220: END IF;
214: FND_MESSAGE.Set_Name('INV', p_Msg_Name);
215: IF ( p_token1 <> fnd_api.g_MISS_CHAR ) THEN
216: FND_MESSAGE.Set_Token(p_token1, p_value1, FND_API.To_Boolean(p_translate));
217: END IF;
218: IF ( p_token2 <> fnd_api.g_MISS_CHAR ) THEN
219: FND_MESSAGE.Set_Token(p_token2, p_value2, FND_API.To_Boolean(p_translate));
220: END IF;
221: IF ( p_token3 <> fnd_api.g_MISS_CHAR ) THEN
222: FND_MESSAGE.Set_Token(p_token3, p_value3, FND_API.To_Boolean(p_translate));
215: IF ( p_token1 <> fnd_api.g_MISS_CHAR ) THEN
216: FND_MESSAGE.Set_Token(p_token1, p_value1, FND_API.To_Boolean(p_translate));
217: END IF;
218: IF ( p_token2 <> fnd_api.g_MISS_CHAR ) THEN
219: FND_MESSAGE.Set_Token(p_token2, p_value2, FND_API.To_Boolean(p_translate));
220: END IF;
221: IF ( p_token3 <> fnd_api.g_MISS_CHAR ) THEN
222: FND_MESSAGE.Set_Token(p_token3, p_value3, FND_API.To_Boolean(p_translate));
223: END IF;
217: END IF;
218: IF ( p_token2 <> fnd_api.g_MISS_CHAR ) THEN
219: FND_MESSAGE.Set_Token(p_token2, p_value2, FND_API.To_Boolean(p_translate));
220: END IF;
221: IF ( p_token3 <> fnd_api.g_MISS_CHAR ) THEN
222: FND_MESSAGE.Set_Token(p_token3, p_value3, FND_API.To_Boolean(p_translate));
223: END IF;
224:
225: -- Increment message count
218: IF ( p_token2 <> fnd_api.g_MISS_CHAR ) THEN
219: FND_MESSAGE.Set_Token(p_token2, p_value2, FND_API.To_Boolean(p_translate));
220: END IF;
221: IF ( p_token3 <> fnd_api.g_MISS_CHAR ) THEN
222: FND_MESSAGE.Set_Token(p_token3, p_value3, FND_API.To_Boolean(p_translate));
223: END IF;
224:
225: -- Increment message count
226:
241: ---------------------------------- Add_Error ---------------------------------
242:
243: PROCEDURE Add_Error
244: ( p_Msg_Name IN VARCHAR2
245: , p_token IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
246: , p_value IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
247: , p_translate IN VARCHAR2 DEFAULT fnd_api.g_FALSE
248: )
249: IS
242:
243: PROCEDURE Add_Error
244: ( p_Msg_Name IN VARCHAR2
245: , p_token IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
246: , p_value IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
247: , p_translate IN VARCHAR2 DEFAULT fnd_api.g_FALSE
248: )
249: IS
250: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
243: PROCEDURE Add_Error
244: ( p_Msg_Name IN VARCHAR2
245: , p_token IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
246: , p_value IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
247: , p_translate IN VARCHAR2 DEFAULT fnd_api.g_FALSE
248: )
249: IS
250: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
251: BEGIN
266: --------------------------------- Add_Warning --------------------------------
267:
268: PROCEDURE Add_Warning
269: ( p_Msg_Name IN VARCHAR2
270: , p_token IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
271: , p_value IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
272: , p_translate IN VARCHAR2 DEFAULT fnd_api.g_FALSE
273: )
274: IS
267:
268: PROCEDURE Add_Warning
269: ( p_Msg_Name IN VARCHAR2
270: , p_token IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
271: , p_value IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
272: , p_translate IN VARCHAR2 DEFAULT fnd_api.g_FALSE
273: )
274: IS
275: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
268: PROCEDURE Add_Warning
269: ( p_Msg_Name IN VARCHAR2
270: , p_token IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
271: , p_value IN VARCHAR2 DEFAULT fnd_api.g_MISS_CHAR
272: , p_translate IN VARCHAR2 DEFAULT fnd_api.g_FALSE
273: )
274: IS
275: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
276: BEGIN
388: -- in the message table. If there is only one message in
389: -- the table it retrieves this message.
390:
391: PROCEDURE Count_And_Get
392: ( p_encoded IN VARCHAR2 := FND_API.g_TRUE
393: , p_count OUT NOCOPY NUMBER
394: , p_data OUT NOCOPY VARCHAR2
395: )
396: IS
401: IF ( g_Msg_Count = 1 ) THEN
402:
403: g_Msg_Index := 1; -- G_FIRST
404:
405: IF ( FND_API.To_Boolean( p_encoded ) ) THEN
406: p_data := g_Msg_Tbl( g_Msg_Index ).Msg_Data;
407: ELSE
408: FND_MESSAGE.Set_Encoded ( g_Msg_Tbl( g_Msg_Index ).Msg_Data );
409: p_data := FND_MESSAGE.Get;
482:
483: l_Msg_Name := g_Msg_Tbl( g_Msg_Index ).Msg_Name ;
484: l_transaction_id := g_Msg_Tbl( g_Msg_Index ).Transaction_Id ;
485:
486: IF ( l_transaction_id = fnd_api.g_MISS_NUM ) THEN
487: l_transaction_id := NULL;
488: END IF;
489:
490: l_column_name := g_Msg_Tbl( g_Msg_Index ).Column_Name ;
519: END IF; -- g_Message_Mode
520:
521: /* to get message text
522: l_msg_text := FND_MSG_PUB.Get ( p_msg_index => FND_MSG_PUB.g_LAST
523: , p_encoded => FND_API.g_FALSE
524: );
525:
526: -- Reset current message index value back to 0
527: FND_MSG_PUB.Reset (FND_MSG_PUB.g_FIRST);
642: G_msg_index := p_msg_index ;
643: END IF;
644:
645:
646: IF FND_API.To_Boolean( p_encoded ) THEN
647: FND_MESSAGE.Set_Encoded( g_Msg_Tbl( g_Msg_Index ).Msg_Data );
648: p_data := FND_MESSAGE.Get;
649: END IF;
650: