597: procedure Output_Messages( p_return_status VARCHAR2,
598: p_msg_count NUMBER) IS
599: l_message VARCHAR2(2000);
600: BEGIN
601: IF (p_return_status = FND_API.G_RET_STS_SUCCESS) THEN
602: DBMS_OUTPUT.PUT_LINE('Result: Successful');
603: ELSIF (p_return_status = FND_API.G_RET_STS_ERROR) THEN
604: DBMS_OUTPUT.PUT_LINE('Result: Error');
605: ELSIF (p_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
599: l_message VARCHAR2(2000);
600: BEGIN
601: IF (p_return_status = FND_API.G_RET_STS_SUCCESS) THEN
602: DBMS_OUTPUT.PUT_LINE('Result: Successful');
603: ELSIF (p_return_status = FND_API.G_RET_STS_ERROR) THEN
604: DBMS_OUTPUT.PUT_LINE('Result: Error');
605: ELSIF (p_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
606: DBMS_OUTPUT.PUT_LINE('Result: Unexpected Error');
607: ELSE
601: IF (p_return_status = FND_API.G_RET_STS_SUCCESS) THEN
602: DBMS_OUTPUT.PUT_LINE('Result: Successful');
603: ELSIF (p_return_status = FND_API.G_RET_STS_ERROR) THEN
604: DBMS_OUTPUT.PUT_LINE('Result: Error');
605: ELSIF (p_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
606: DBMS_OUTPUT.PUT_LINE('Result: Unexpected Error');
607: ELSE
608: DBMS_OUTPUT.PUT_LINE('Result: Fatal Error - unrecognized return status code');
609: END IF;
611: IF (p_msg_count > 0) THEN
612:
613: FOR counter IN REVERSE 1..p_msg_count LOOP
614:
615: l_message := fnd_msg_pub.get(counter, FND_API.G_FALSE);
616: DBMS_OUTPUT.PUT_LINE(' MSG('||to_char(counter)||'): '||
617: l_message);
618:
619: END LOOP;
922: x_formatted_address => l_formatted_address,
923: x_formatted_lines_cnt => l_formatted_lines_cnt,
924: x_formatted_address_tbl => l_formatted_address_tbl
925: );
926: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
927: return l_formatted_address;
928: ELSE
929: return(format_address_concat( address_style,
930: address1,