The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
X_Document_Type VARCHAR2,
X_Employee_Id NUMBER,
X_Cost_Center VARCHAR2,
X_Signing_Limit NUMBER,
X_Last_Update_Date DATE,
X_Last_Updated_By NUMBER,
X_Last_Update_Login NUMBER,
X_Creation_Date DATE,
X_Created_By NUMBER,
X_Org_Id NUMBER
) IS
CURSOR C IS SELECT rowid FROM ap_web_signing_limits
WHERE X_Document_Type = Document_Type
AND X_Employee_Id = Employee_Id
AND X_Cost_Center = Cost_Center;
'AP_WEB_SIGNING_LIMITS_PKG.Insert_Row');
INSERT INTO ap_web_signing_limits_all(
document_type,
employee_id,
cost_center,
signing_limit,
last_update_date,
last_updated_by,
last_update_login,
creation_date,
created_by,
org_id
) VALUES (
X_Document_Type,
X_Employee_Id,
X_Cost_Center,
X_Signing_Limit,
X_Last_Update_Date,
X_Last_Updated_By,
X_Last_Update_Login,
X_Creation_Date,
X_Created_By,
X_Org_Id
);
',X_LAST_UPDATE_DATE='||X_LAST_UPDATE_DATE||
',X_LAST_UPDATED_BY='||X_LAST_UPDATED_BY||
',X_LAST_UPDATE_LOGIN='||X_LAST_UPDATE_LOGIN||
',X_CREATION_DATE='||X_CREATION_DATE||
',X_CREATED_BY='||X_CREATED_BY||
',X_ORG_ID='||X_ORG_ID);
FND_MESSAGE.SET_TOKEN('DEBUG_INFO','INSERT_ROW HAS EXCEPTION');
END Insert_Row;
SELECT *
FROM ap_web_signing_limits
WHERE rowid = X_Rowid
FOR UPDATE of employee_id NOWAIT;
FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
PROCEDURE Update_Row(X_Rowid VARCHAR2,
X_Document_Type VARCHAR2,
X_Employee_Id NUMBER,
X_Cost_Center VARCHAR2,
X_Signing_Limit NUMBER,
X_Last_Update_Date DATE,
X_Last_Updated_By NUMBER,
X_Last_Update_Login NUMBER,
X_Org_Id NUMBER
) IS
BEGIN
UPDATE ap_web_signing_limits
SET
document_type = X_Document_Type,
employee_id = X_Employee_Id,
cost_center = X_Cost_Center,
signing_limit = X_Signing_Limit,
last_update_date = X_Last_Update_Date,
last_updated_by = X_Last_Updated_By,
last_update_login = X_Last_Update_Login,
org_id = X_Org_Id
WHERE rowid = X_Rowid;
',X_LAST_UPDATE_DATE='||X_LAST_UPDATE_DATE||
',X_LAST_UPDATED_BY='||X_LAST_UPDATED_BY||
',X_LAST_UPDATE_LOGIN='||X_LAST_UPDATE_LOGIN||
',X_ORG_ID='||X_ORG_ID);
FND_MESSAGE.SET_TOKEN('DEBUG_INFO','UPDATE_ROW HAS EXCEPTION');
END Update_Row;
PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
BEGIN
DELETE FROM ap_web_signing_limits
WHERE rowid = X_Rowid;
FND_MESSAGE.SET_TOKEN('DEBUG_INFO','DELETE_ROW HAS EXCEPTION');
END Delete_Row;
select count(1)
into dummy_a
from AP_WEB_SIGNING_LIMITS
where document_type = X_document_type
and employee_id = X_employee_id
and cost_center = X_cost_center
and ((X_rowid is null) or (rowid <> X_rowid));