1: PACKAGE BODY QP_Delayed_Requests_PVT AS
2: /* $Header: QPXVREQB.pls 120.5 2006/02/27 00:06:51 prarasto noship $ */
3: -- Global constant holding the package name
4:
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'QP_Delayed_Requests_PVT';
1: PACKAGE BODY QP_Delayed_Requests_PVT AS
2: /* $Header: QPXVREQB.pls 120.5 2006/02/27 00:06:51 prarasto noship $ */
3: -- Global constant holding the package name
4:
5: G_PKG_NAME CONSTANT VARCHAR2(30) := 'QP_Delayed_Requests_PVT';
6:
7: g_delayed_requests QP_QUALIFIER_RULES_PUB.Request_Tbl_Type;
8: g_requesting_entities QP_QUALIFIER_RULES_PUB.Requesting_Entity_Tbl_Type;
9: G_MAX_REQUESTS NUMBER := 1000; --2502849
45: BEGIN
46: x_return_status := FND_API.G_RET_STS_SUCCESS;
47: x_result := FND_API.G_FALSE;
48:
49: oe_debug_pub.add('Entering Procedure Check_for_Request in Package QP_Delayed_Requests_Pvt');
50:
51: -- 2502849 l_ind to l_max_ind is the range of index positions that can
52: -- hold requests for this entity id - for e.g. if entity_id is
53: -- 2341 and G_MAX_REQUESTS is 1000 then the range would be:
900: l_request QP_QUALIFIER_RULES_PUB.REQUEST_REC_TYPE;
901: l_req_entity QP_QUALIFIER_RULES_PUB.Requesting_Entity_Rec_Type;
902: BEGIN
903:
904: oe_debug_pub.add('Entering Procedure Log_Request in Package QP_Delayed_Requests_Pvt');
905: oe_debug_pub.add('log_request_type'||p_request_type);
906:
907: -- Initialize the request_record
908: l_request.request_type := p_request_type;
1061: l_request_ind number;
1062: l_req_entity_ind number;
1063: BEGIN
1064:
1065: oe_debug_pub.add('Entering Procedure Delete_Request in Package QP_Delayed_Requests_Pvt');
1066:
1067: x_return_status := FND_API.G_RET_STS_SUCCESS;
1068: IF p_entity_id IS NOT NULL THEN --2650093
1069: Check_for_Request( p_entity_code => p_entity_code
1132: Procedure Clear_Request( x_return_status OUT NOCOPY VARCHAR2)
1133: IS
1134: BEGIN
1135:
1136: oe_debug_pub.add('Entering Procedure Clear_Request in Package QP_Delayed_Requests_Pvt');
1137:
1138: x_return_status := FND_API.G_RET_STS_SUCCESS;
1139:
1140: G_Delayed_Requests.DELETE;
1171: l_return_status Varchar2(30);
1172: Begin
1173: x_return_status := FND_API.G_RET_STS_SUCCESS;
1174:
1175: oe_debug_pub.add('Entering Procedure Process_Request in Package QP_Delayed_Requests_Pvt');
1176: IF p_entity_id IS NOT NULL THEN --2650093
1177: Check_for_Request( p_entity_code => p_entity_code
1178: ,p_entity_id => p_entity_id
1179: ,p_request_type => p_request_type
1239: l_ind Number;
1240: Begin
1241: x_return_status := FND_API.G_RET_STS_SUCCESS;
1242:
1243: oe_debug_pub.add('Entering Procedure Process_Request_for_Entity in Package QP_Delayed_Requests_Pvt');
1244: --dbms_output.put_line('Entering Procedure Process_Request_for_Entity in Package QP_Delayed_Requests_Pvt');
1245: --dbms_output.put_line('entity id is ' ||p_entity_code);
1246:
1247: l_ind := G_Delayed_Requests.first;
1240: Begin
1241: x_return_status := FND_API.G_RET_STS_SUCCESS;
1242:
1243: oe_debug_pub.add('Entering Procedure Process_Request_for_Entity in Package QP_Delayed_Requests_Pvt');
1244: --dbms_output.put_line('Entering Procedure Process_Request_for_Entity in Package QP_Delayed_Requests_Pvt');
1245: --dbms_output.put_line('entity id is ' ||p_entity_code);
1246:
1247: l_ind := G_Delayed_Requests.first;
1248:
1313: l_ind Number;
1314: Begin
1315: x_return_status := FND_API.G_RET_STS_SUCCESS;
1316:
1317: oe_debug_pub.add('Entering Procedure Process_Request_for_ReqType in Package QP_Delayed_Requests_Pvt');
1318:
1319: l_ind := G_Delayed_Requests.first;
1320:
1321: WHILE l_ind IS NOT NULL LOOP
1365: ) IS
1366: l_return_status Varchar2(30);
1367: Begin
1368:
1369: oe_debug_pub.add('Entering Procedure Process_Delayed_Requests in Package QP_Delayed_Requests_Pvt');
1370:
1371: -- Process requests as per the dependency
1372: -- This procedure processes all requests.
1373: -- For each request type defined in QP_GLOBALS
1844:
1845:
1846:
1847:
1848: END QP_Delayed_Requests_Pvt;