27: THEN
28: /*
29: l_length := lengthb(p_msg);
30:
31: -- FND_MESSAGE doesn't allow message name to be over 30 chars
32: -- chop message name if length > 30
33: WHILE l_length > 30 LOOP
34: l_substring := substrb(p_msg, l_start, 30);
35:
32: -- chop message name if length > 30
33: WHILE l_length > 30 LOOP
34: l_substring := substrb(p_msg, l_start, 30);
35:
36: FND_MESSAGE.Set_Name('AR', l_substring);
37: -- FND_MESSAGE.Set_Name(p_app_name, l_substring);
38: l_start := l_start + 30;
39: l_length := l_length - 30;
40: FND_MSG_PUB.Add;
33: WHILE l_length > 30 LOOP
34: l_substring := substrb(p_msg, l_start, 30);
35:
36: FND_MESSAGE.Set_Name('AR', l_substring);
37: -- FND_MESSAGE.Set_Name(p_app_name, l_substring);
38: l_start := l_start + 30;
39: l_length := l_length - 30;
40: FND_MSG_PUB.Add;
41: END LOOP;
40: FND_MSG_PUB.Add;
41: END LOOP;
42:
43: l_substring := substrb(p_msg, l_start);
44: FND_MESSAGE.Set_Name('AR', l_substring);
45: -- dbms_output.put_line('l_substring: ' || l_substring);
46: -- FND_MESSAGE.Set_Name(p_app_name, p_msg);
47: FND_MSG_PUB.Add;
48: */
42:
43: l_substring := substrb(p_msg, l_start);
44: FND_MESSAGE.Set_Name('AR', l_substring);
45: -- dbms_output.put_line('l_substring: ' || l_substring);
46: -- FND_MESSAGE.Set_Name(p_app_name, p_msg);
47: FND_MSG_PUB.Add;
48: */
49: l_length := lengthb(p_msg);
50:
47: FND_MSG_PUB.Add;
48: */
49: l_length := lengthb(p_msg);
50:
51: -- FND_MESSAGE doesn't allow application name to be over 30 chars
52: -- chop message name if length > 30
53: IF l_length > 30
54: THEN
55: l_substring := substrb(p_msg, l_start, 30);
52: -- chop message name if length > 30
53: IF l_length > 30
54: THEN
55: l_substring := substrb(p_msg, l_start, 30);
56: FND_MESSAGE.Set_Name('AR', l_substring);
57: -- FND_MESSAGE.Set_Name(l_substring, '');
58: ELSE
59: FND_MESSAGE.Set_Name('AR', p_msg);
60: -- FND_MESSAGE.Set_Name(p_msg, '');
53: IF l_length > 30
54: THEN
55: l_substring := substrb(p_msg, l_start, 30);
56: FND_MESSAGE.Set_Name('AR', l_substring);
57: -- FND_MESSAGE.Set_Name(l_substring, '');
58: ELSE
59: FND_MESSAGE.Set_Name('AR', p_msg);
60: -- FND_MESSAGE.Set_Name(p_msg, '');
61: END IF;
55: l_substring := substrb(p_msg, l_start, 30);
56: FND_MESSAGE.Set_Name('AR', l_substring);
57: -- FND_MESSAGE.Set_Name(l_substring, '');
58: ELSE
59: FND_MESSAGE.Set_Name('AR', p_msg);
60: -- FND_MESSAGE.Set_Name(p_msg, '');
61: END IF;
62:
63: FND_MSG_PUB.Add;
56: FND_MESSAGE.Set_Name('AR', l_substring);
57: -- FND_MESSAGE.Set_Name(l_substring, '');
58: ELSE
59: FND_MESSAGE.Set_Name('AR', p_msg);
60: -- FND_MESSAGE.Set_Name(p_msg, '');
61: END IF;
62:
63: FND_MSG_PUB.Add;
64: END IF;