1: PACKAGE BODY OZF_REQUEST_STATUS_PVT AS
2: /* $Header: ozfvrstb.pls 120.5 2007/12/24 06:45:04 ateotia ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OZF_REQUEST_STATUS_PVT';
5: G_FILE_NAME CONSTANT VARCHAR2(12) := 'ozfvrstb.pls';
1: PACKAGE BODY OZF_REQUEST_STATUS_PVT AS
2: /* $Header: ozfvrstb.pls 120.5 2007/12/24 06:45:04 ateotia ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OZF_REQUEST_STATUS_PVT';
5: G_FILE_NAME CONSTANT VARCHAR2(12) := 'ozfvrstb.pls';
6:
7: G_USER_ID NUMBER := FND_GLOBAL.USER_ID;
8: G_LOGIN_ID NUMBER := FND_GLOBAL.CONC_LOGIN_ID;
100: OPEN csr_benefit (l_object_id);
101: FETCH csr_benefit INTO l_benefit_id, l_partner_id;
102: CLOSE csr_benefit;
103:
104: l_msg_callback_api := 'OZF_REQUEST_STATUS_PVT.Set_Request_Message';
105: l_user_callback_api := 'OZF_REQUEST_STATUS_PVT.Return_Request_Userlist';
106:
107: l_approval_rec.object_type := l_object_type;
108: l_approval_rec.object_id := l_object_id;
101: FETCH csr_benefit INTO l_benefit_id, l_partner_id;
102: CLOSE csr_benefit;
103:
104: l_msg_callback_api := 'OZF_REQUEST_STATUS_PVT.Set_Request_Message';
105: l_user_callback_api := 'OZF_REQUEST_STATUS_PVT.Return_Request_Userlist';
106:
107: l_approval_rec.object_type := l_object_type;
108: l_approval_rec.object_id := l_object_id;
109: l_approval_rec.status_code := l_status;
334: BEGIN
335:
336: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
337: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
338: 'ozf.plsql.OZF_REQUEST_STATUS_PVT.Set_Request_Message.start',
339: 'Item type:' || p_itemtype || 'Item key:' || p_itemkey || '. Entity id: ' ||
340: p_entity_id || '. Status:' || p_status || '. User type: ' || p_user_type);
341: end if;
342:
747:
748: end if;
749: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
750: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
751: 'ozf.plsql.OZF_REQUEST_STATUS_PVT.Set_Request_Message.end', 'Exiting');
752: end if;
753:
754: END;
755: ---------------------------------------------------------------------
849:
850: begin
851: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
852: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
853: 'ozf.plsql.OZF_REQUEST_STATUS_PVT.Return_Request_Userlist.start',
854: 'Benefit type:' || p_benefit_type || '. Entity id: ' || p_entity_id ||
855: '. Status:' || p_status || '. User type: ' || p_user_role);
856: end if;
857:
898:
899: else
900: if( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
901: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
902: 'ozf.plsql.OZF_REQUEST_STATUS_PVT.Return_Request_Userlist.info',
903: 'Unrecognized user role:' || p_user_role);
904: END IF;
905: end if;
906:
905: end if;
906:
907: if( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
908: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
909: 'ozf.plsql.OZF_REQUEST_STATUS_PVT.Return_Request_Userlist.end', 'Exiting');
910: end if;
911:
912: return l_role_list;
913: end;
1302:
1303: -- 'R12.1 Enhancement: Ship & Debit Request' by ateotia(-)
1304:
1305:
1306: END OZF_REQUEST_STATUS_PVT;