1: package body PA_INTERFACE_UTILS_PUB as
2: --$Header: PAPMUTPB.pls 120.5.12010000.3 2008/11/10 08:53:57 jcgeorge ship $
3: G_PKG_NAME CONSTANT VARCHAR2(30) := 'PA_INTERFACE_UTILS_PUB';
4:
5: PROCEDURE get_messages
1: package body PA_INTERFACE_UTILS_PUB as
2: --$Header: PAPMUTPB.pls 120.5.12010000.3 2008/11/10 08:53:57 jcgeorge ship $
3: G_PKG_NAME CONSTANT VARCHAR2(30) := 'PA_INTERFACE_UTILS_PUB';
4:
5: PROCEDURE get_messages
6: (p_encoded IN VARCHAR2 := FND_API.G_FALSE,
7: p_msg_index IN NUMBER := FND_API.G_MISS_NUM,
1405:
1406: IF p_task_number IS NOT NULL and p_task_reference IS NOT NULL
1407: THEN
1408: p_result_task_number := substrb(p_task_number,1,20)||'-'||p_task_reference; --Bug 5733285. Added substrb
1409: ELSIF p_task_id IS NOT NULL AND p_task_id <> PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM -- Bug 6518944
1410: THEN
1411: OPEN l_amg_task_csr( p_task_id );
1412: FETCH l_amg_task_csr INTO p_result_task_name, p_result_task_reference;
1413: CLOSE l_amg_task_csr;
1417: RETURN(p_result_task_number);
1418:
1419: END get_task_number_amg;
1420:
1421: END PA_INTERFACE_UTILS_PUB;