1: package body IEM_MAILITEM_PUB as
2: /* $Header: iemclntb.pls 120.4 2007/11/07 20:20:01 kgscott ship $*/
3: G_PKG_NAME varchar2(100):='IEM_MAILITEM_PUB';
4: PROCEDURE GetMailItemCount (p_api_version_number IN NUMBER,
5: p_init_msg_list IN VARCHAR2 ,
1: package body IEM_MAILITEM_PUB as
2: /* $Header: iemclntb.pls 120.4 2007/11/07 20:20:01 kgscott ship $*/
3: G_PKG_NAME varchar2(100):='IEM_MAILITEM_PUB';
4: PROCEDURE GetMailItemCount (p_api_version_number IN NUMBER,
5: p_init_msg_list IN VARCHAR2 ,
6: p_commit IN VARCHAR2 ,
7: p_resource_id in number,
265: SAVEPOINT select_item_PVT;
266: x_return_status := FND_API.G_RET_STS_SUCCESS;
267: BEGIN
268: IF p_tbl.count=0 then
269: IEM_MAILITEM_PUB.getGroupDetails(p_api_version_number=>1.0,
270: p_init_msg_list=>'F',
271: p_commit=>'F',
272: p_resource_id =>p_resource_id,
273: x_tbl =>l_tbl,
277: ELSE
278: l_tbl:=p_tbl;
279: END IF;
280: EXCEPTION WHEN OTHERS THEN
281: IEM_MAILITEM_PUB.getGroupDetails(p_api_version_number=>1.0,
282: p_init_msg_list=>'F',
283: p_commit=>'F',
284: p_resource_id =>p_resource_id,
285: x_tbl =>l_tbl,
479: SAVEPOINT select_item_PVT;
480: x_return_status := FND_API.G_RET_STS_SUCCESS;
481: BEGIN
482: IF p_tbl.count=0 then
483: IEM_MAILITEM_PUB.getGroupDetails(p_api_version_number=>1.0,
484: p_init_msg_list=>'F',
485: p_commit=>'F',
486: p_resource_id =>p_resource_id,
487: x_tbl =>l_tbl,
491: ELSE
492: l_tbl:=p_tbl;
493: END IF;
494: EXCEPTION WHEN OTHERS THEN
495: IEM_MAILITEM_PUB.getGroupDetails(p_api_version_number=>1.0,
496: p_init_msg_list=>'F',
497: p_commit=>'F',
498: p_resource_id =>p_resource_id,
499: x_tbl =>l_tbl,
1586: ( p_count => x_msg_count ,
1587: p_data => x_msg_data
1588: );
1589: end ResolvedMessage;
1590: end IEM_MAILITEM_PUB ;