The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT nvl(QUOTA,0) QUOTA, RELEASE_STRATEGY, nvl(WORKING_QUOTA,0) WORKING_QUOTA
FROM IEC_G_LIST_RT_INFO WHERE LIST_HEADER_ID = P_LIST_HEADER_ID
for UPDATE OF WORKING_QUOTA;
UPDATE IEC_G_LIST_RT_INFO SET
WORKING_QUOTA = l_rt_quota WHERE CURRENT OF c_quota;
END UPDATE_QUOTA_LIST;
PROCEDURE UPDATE_QUOTA_SUBSET
(P_QUOTA_USED IN NUMBER
,P_LIST_SUBSET_ID IN NUMBER
,X_WORKING_QUOTA OUT NOCOPY NUMBER
)
IS
l_rt_quota NUMBER;
SELECT nvl(WORKING_QUOTA,0) WORKING_QUOTA
FROM IEC_G_SUBSET_RT_INFO WHERE LIST_SUBSET_ID = P_LIST_SUBSET_ID
for UPDATE OF WORKING_QUOTA;
SELECT nvl(QUOTA,0), RELEASE_STRATEGY into l_quota,l_release_strategy
FROM IEC_G_LIST_SUBSETS WHERE LIST_SUBSET_ID = P_LIST_SUBSET_ID;
UPDATE IEC_G_SUBSET_RT_INFO SET
WORKING_QUOTA = l_rt_quota WHERE CURRENT OF c_quota;
END UPDATE_QUOTA_SUBSET;
PROCEDURE UPDATE_QUOTA
(P_ID IN NUMBER
,P_TYPE IN VARCHAR2
,P_QUOTA_USED IN NUMBER
,X_WORKING_QUOTA OUT NOCOPY NUMBER
)
IS
BEGIN
IF P_TYPE = 'L' THEN
UPDATE_QUOTA_LIST( P_QUOTA_USED
, P_ID
, X_WORKING_QUOTA);
UPDATE_QUOTA_SUBSET( P_QUOTA_USED
, P_ID
, X_WORKING_QUOTA);
END UPDATE_QUOTA;
PROCEDURE UPDATE_QUOTA
(P_ID IN NUMBER
,P_TYPE IN VARCHAR2
,P_QUOTA_USED IN NUMBER
)
IS
L_WORKING_QUOTA NUMBER;
UPDATE_QUOTA_LIST( P_QUOTA_USED
, P_ID
, L_WORKING_QUOTA);
UPDATE_QUOTA_SUBSET( P_QUOTA_USED
, P_ID
, L_WORKING_QUOTA);
END UPDATE_QUOTA;
END IEC_QUOTAUPDATE_PVT;