The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE SELECT_SUMMARY(X_FEED_LINE_ID IN NUMBER,
X_TOTAL IN OUT NOCOPY NUMBER,
X_TOTAL_RTOT_DB IN OUT NOCOPY NUMBER,
X_CALLING_SEQUENCE IN VARCHAR2) IS
l_current_calling_sequence VARCHAR2(2000);
l_current_calling_sequence := 'AP_EXPENSE_FEED_LINES_PKG.SELECT_SUMMARY<-' ||
X_calling_sequence;
SELECT NVL(SUM(AMOUNT), 0), NVL(SUM(AMOUNT), 0)
INTO X_TOTAL, X_TOTAL_RTOT_DB
FROM AP_EXPENSE_FEED_DISTS
WHERE FEED_LINE_ID = X_FEED_LINE_ID;