The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE INSERT_ROW ( X_ROWID IN OUT VARCHAR2,
X_ADJUSTMENT_ID IN NUMBER,
X_CUST_TRX_LINE_GL_DIST_ID IN NUMBER,
X_MF_ADJUSTMENT_CCID IN NUMBER,
X_AMOUNT IN NUMBER,
X_PERCENT IN NUMBER,
X_PREV_CUST_TRX_LINE_ID IN NUMBER,
X_COMMENTS IN VARCHAR2,
X_MODE IN VARCHAR2 DEFAULT 'R' ) IS
Cursor C Is Select ROWID
From PSA_MF_ADJ_DIST_ALL
Where ADJUSTMENT_ID = X_ADJUSTMENT_ID
And CUST_TRX_LINE_GL_DIST_ID = X_CUST_TRX_LINE_GL_DIST_ID;
X_LAST_UPDATE_DATE DATE;
X_LAST_UPDATED_BY NUMBER;
X_LAST_UPDATE_LOGIN NUMBER;
X_LAST_UPDATE_DATE := SYSDATE;
X_LAST_UPDATED_BY := 1;
X_LAST_UPDATE_LOGIN := 0;
X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
if X_LAST_UPDATED_BY is NULL then
X_LAST_UPDATED_BY := -1;
X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
if X_LAST_UPDATE_LOGIN is NULL then
X_LAST_UPDATE_LOGIN := -1;
Insert into PSA_MF_ADJ_DIST_ALL( ADJUSTMENT_ID,
CUST_TRX_LINE_GL_DIST_ID,
MF_ADJUSTMENT_CCID,
AMOUNT,
PERCENT,
PREV_CUST_TRX_LINE_ID,
COMMENTS,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN ) Values
( X_ADJUSTMENT_ID,
X_CUST_TRX_LINE_GL_DIST_ID,
X_MF_ADJUSTMENT_CCID,
X_AMOUNT,
X_PERCENT,
X_PREV_CUST_TRX_LINE_ID,
X_COMMENTS,
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN );
END INSERT_ROW;
CURSOR c1 IS Select MF_ADJUSTMENT_CCID,
AMOUNT,
PERCENT,
PREV_CUST_TRX_LINE_ID,
COMMENTS
From PSA_MF_ADJ_DIST_ALL
Where ADJUSTMENT_ID = X_ADJUSTMENT_ID
And CUST_TRX_LINE_GL_DIST_ID = X_CUST_TRX_LINE_GL_DIST_ID
FOR UPDATE OF ADJUSTMENT_ID NOWAIT;
PROCEDURE UPDATE_ROW ( X_ADJUSTMENT_ID IN NUMBER,
X_CUST_TRX_LINE_GL_DIST_ID IN NUMBER,
X_MF_ADJUSTMENT_CCID IN NUMBER,
X_AMOUNT IN NUMBER,
X_PERCENT IN NUMBER,
X_PREV_CUST_TRX_LINE_ID IN NUMBER,
X_COMMENTS IN VARCHAR2,
X_MODE IN VARCHAR2 DEFAULT 'R' ) is
X_LAST_UPDATE_DATE DATE;
X_LAST_UPDATED_BY NUMBER;
X_LAST_UPDATE_LOGIN NUMBER;
X_LAST_UPDATE_DATE := SYSDATE;
X_LAST_UPDATED_BY := 1;
X_LAST_UPDATE_LOGIN := 0;
X_LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
if X_LAST_UPDATED_BY is NULL then
X_LAST_UPDATED_BY := -1;
X_LAST_UPDATE_LOGIN :=FND_GLOBAL.LOGIN_ID;
if X_LAST_UPDATE_LOGIN is NULL then
X_LAST_UPDATE_LOGIN := -1;
UPDATE PSA_MF_ADJ_DIST_ALL set
MF_ADJUSTMENT_CCID = X_MF_ADJUSTMENT_CCID,
AMOUNT = X_AMOUNT,
PERCENT = X_PERCENT,
PREV_CUST_TRX_LINE_ID = X_PREV_CUST_TRX_LINE_ID,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
COMMENTS = X_COMMENTS
WHERE ADJUSTMENT_ID = X_ADJUSTMENT_ID
and CUST_TRX_LINE_GL_DIST_ID = X_CUST_TRX_LINE_GL_DIST_ID;
END UPDATE_ROW;
cursor c1 is select rowid
from PSA_MF_ADJ_DIST_ALL
where ADJUSTMENT_ID = X_ADJUSTMENT_ID
and CUST_TRX_LINE_GL_DIST_ID = X_CUST_TRX_LINE_GL_DIST_ID;
INSERT_ROW ( X_ROWID,
X_ADJUSTMENT_ID,
X_CUST_TRX_LINE_GL_DIST_ID,
X_MF_ADJUSTMENT_CCID,
X_AMOUNT,
X_PERCENT,
X_PREV_CUST_TRX_LINE_ID,
X_COMMENTS,
X_MODE );
UPDATE_ROW ( X_ADJUSTMENT_ID,
X_CUST_TRX_LINE_GL_DIST_ID,
X_MF_ADJUSTMENT_CCID,
X_AMOUNT,
X_PERCENT,
X_PREV_CUST_TRX_LINE_ID,
X_COMMENTS,
X_MODE );
PROCEDURE DELETE_ROW ( X_ADJUSTMENT_ID IN NUMBER,
X_CUST_TRX_LINE_GL_DIST_ID IN NUMBER ) IS
BEGIN
DELETE FROM PSA_MF_ADJ_DIST_ALL
WHERE ADJUSTMENT_ID = X_ADJUSTMENT_ID
AND CUST_TRX_LINE_GL_DIST_ID = X_CUST_TRX_LINE_GL_DIST_ID;
END DELETE_ROW;