23: l_msg_buf VARCHAR2(2000) ;
24:
25: BEGIN
26:
27: l_msg_buf := SUBSTRB(FND_MESSAGE.Get, 1, 255);
28:
29: return l_msg_buf ;
30:
31: END ;
59:
60: -- Validate the p_mode parameter.
61: IF p_mode NOT IN (FND_FILE.LOG, FND_FILE.OUTPUT) THEN
62: --
63: Fnd_Message.Set_Name ('PSB', 'PSB_INVALID_ARGUMENT') ;
64: Fnd_Message.Set_Token('ROUTINE', 'Print_Error' ) ;
65: l_msg_buf := Fnd_Message.Get ;
66: FND_FILE.Put_Line( FND_FILE.LOG, l_msg_buf ) ;
67: RETURN ;
60: -- Validate the p_mode parameter.
61: IF p_mode NOT IN (FND_FILE.LOG, FND_FILE.OUTPUT) THEN
62: --
63: Fnd_Message.Set_Name ('PSB', 'PSB_INVALID_ARGUMENT') ;
64: Fnd_Message.Set_Token('ROUTINE', 'Print_Error' ) ;
65: l_msg_buf := Fnd_Message.Get ;
66: FND_FILE.Put_Line( FND_FILE.LOG, l_msg_buf ) ;
67: RETURN ;
68: --
61: IF p_mode NOT IN (FND_FILE.LOG, FND_FILE.OUTPUT) THEN
62: --
63: Fnd_Message.Set_Name ('PSB', 'PSB_INVALID_ARGUMENT') ;
64: Fnd_Message.Set_Token('ROUTINE', 'Print_Error' ) ;
65: l_msg_buf := Fnd_Message.Get ;
66: FND_FILE.Put_Line( FND_FILE.LOG, l_msg_buf ) ;
67: RETURN ;
68: --
69: END IF ;
77: RETURN ;
78: ELSE
79: -- Print standard header is asked for.
80: IF FND_API.to_Boolean( p_print_header ) THEN
81: FND_MESSAGE.Set_Name('PSB', 'PSB_PROGRAM_FAILURE_HEADER');
82: l_msg_buf := substrb_get ;
83: FND_FILE.Put_Line( p_mode, l_msg_buf ) ;
84: END IF ;
85: --
85: --
86:
87: /* No longer applicable.
88: if l_msg_count = 0 then
89: FND_MESSAGE.Set_Name('PSB', 'PSB_SERVER_ERROR_NO_MSG');
90: l_msg_buf := substrb_get ;
91: FND_FILE.Put_Line( p_mode, l_msg_buf ) ;
92: */
93:
92: */
93:
94: IF l_msg_count = 1 then
95:
96: FND_MESSAGE.Set_Encoded(l_msg_data);
97: l_msg_buf := substrb_get ;
98: FND_FILE.Put_Line( p_mode, l_msg_buf ) ;
99:
100: ELSIF l_msg_count > 1 then
147: l_seq_number := l_msg_count + 1 ;
148: end if;
149:
150: if l_msg_count = 1 then
151: FND_MESSAGE.Set_Encoded(l_msg_data);
152: l_msg_buf := FND_MESSAGE.Get;
153: elsif l_msg_count = 0 then
154: FND_MESSAGE.Set_Name('PSB', 'PSB_SERVER_ERROR_NO_MSG');
155: l_msg_buf := FND_MESSAGE.Get ;
148: end if;
149:
150: if l_msg_count = 1 then
151: FND_MESSAGE.Set_Encoded(l_msg_data);
152: l_msg_buf := FND_MESSAGE.Get;
153: elsif l_msg_count = 0 then
154: FND_MESSAGE.Set_Name('PSB', 'PSB_SERVER_ERROR_NO_MSG');
155: l_msg_buf := FND_MESSAGE.Get ;
156: elsif l_msg_count > 1 then
150: if l_msg_count = 1 then
151: FND_MESSAGE.Set_Encoded(l_msg_data);
152: l_msg_buf := FND_MESSAGE.Get;
153: elsif l_msg_count = 0 then
154: FND_MESSAGE.Set_Name('PSB', 'PSB_SERVER_ERROR_NO_MSG');
155: l_msg_buf := FND_MESSAGE.Get ;
156: elsif l_msg_count > 1 then
157: for i in 1..l_msg_count loop
158:
151: FND_MESSAGE.Set_Encoded(l_msg_data);
152: l_msg_buf := FND_MESSAGE.Get;
153: elsif l_msg_count = 0 then
154: FND_MESSAGE.Set_Name('PSB', 'PSB_SERVER_ERROR_NO_MSG');
155: l_msg_buf := FND_MESSAGE.Get ;
156: elsif l_msg_count > 1 then
157: for i in 1..l_msg_count loop
158:
159: if i =1 then
217: l_msg_buf VARCHAR2(2000) ;
218:
219: BEGIN
220:
221: FND_MESSAGE.Set_Name('PSB', 'PSB_PROGRAM_SUCCESS');
222: l_msg_buf := substrb_get;
223: FND_FILE.Put_Line( FND_FILE.OUTPUT, l_msg_buf );
224:
225: END Print_Success ;
236: BEGIN
237:
238: if FND_API.to_Boolean( p_print_header ) then
239: -- Standard program failure message.
240: FND_MESSAGE.Set_Name('PSB', 'PSB_PROGRAM_FAILURE_HEADER');
241: l_msg_buf := substrb_get;
242: end if;
243:
244: -- Count total number of messages.
246: p_data => l_msg_data );
247:
248: if l_msg_count = 1 then
249: --
250: FND_MESSAGE.Set_Encoded(l_msg_data);
251: l_msg_buf := l_msg_buf || l_new_line_char || substrb_get ;
252: --
253: elsif l_msg_count > 1 then
254: --
269: end if;
270: end loop ;
271: elsif l_msg_count = 0 then
272: --
273: FND_MESSAGE.Set_Name('PSB', 'PSB_SERVER_ERROR_NO_MSG');
274: l_msg_buf := l_msg_buf || l_new_line_char || substrb_get ;
275: --
276: end if;
277:
283: PROCEDURE Get_Success_Message( p_msg_string OUT NOCOPY VARCHAR2 )
284: IS
285: BEGIN
286: --
287: FND_MESSAGE.Set_Name('PSB', 'PSB_PROGRAM_SUCCESS');
288: p_msg_string := substrb_get ;
289: --
290: END ;
291:
376: l_seq_no := l_max_seq_no + l_count;
377:
378: if l_count =1 then
379: if l_count = l_msg_count then
380: fnd_message.Set_Encoded(l_msg_data);
381: l_msg_buf := FND_MESSAGE.Get;
382: else
383: l_msg_buf := FND_MSG_PUB.Get
384: (p_msg_index => FND_MSG_PUB.G_FIRST,
377:
378: if l_count =1 then
379: if l_count = l_msg_count then
380: fnd_message.Set_Encoded(l_msg_data);
381: l_msg_buf := FND_MESSAGE.Get;
382: else
383: l_msg_buf := FND_MSG_PUB.Get
384: (p_msg_index => FND_MSG_PUB.G_FIRST,
385: p_encoded => FND_API.G_FALSE);
412:
413: END LOOP;
414:
415: IF l_loop_process = FALSE then
416: FND_MESSAGE.Set_Name('PSB', 'PSB_SERVER_ERROR_NO_MSG');
417: l_msg_buf := FND_MESSAGE.Get ;
418:
419: insert into PSB_ERROR_MESSAGES
420: (concurrent_request_id,
413: END LOOP;
414:
415: IF l_loop_process = FALSE then
416: FND_MESSAGE.Set_Name('PSB', 'PSB_SERVER_ERROR_NO_MSG');
417: l_msg_buf := FND_MESSAGE.Get ;
418:
419: insert into PSB_ERROR_MESSAGES
420: (concurrent_request_id,
421: process_id,