The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Insert_Accounts_Row (X_Rowid IN OUT NOCOPY VARCHAR2,
X_Acct_Id NUMBER,
X_Acct_Type VARCHAR2,
X_Period_Type VARCHAR2,
X_Acct_Seq_Num NUMBER,
X_Expenditure_Type VARCHAR2,
X_Segment_num NUMBER,
X_Natural_Account VARCHAR2,
X_Start_Date_Active DATE,
X_End_Date_Active DATE ,
X_Set_of_Books_Id NUMBER,
X_Business_Group_Id NUMBER
) IS
CURSOR C IS
SELECT ROWID
FROM PSP_AUTO_ACCTS
WHERE acct_id = X_Acct_Id;
INSERT INTO psp_auto_accts
(
acct_id,
acct_type,
period_type,
expenditure_type,
segment_num,
natural_account,
start_date_active,
end_date_active,
acct_seq_num,
set_of_books_id,
business_group_id,
last_update_date,
last_updated_by,
last_update_login,
created_by,
creation_date
)
VALUES
(
X_Acct_Id,
X_Acct_Type,
X_Period_Type,
X_Expenditure_Type,
X_Segment_num,
X_Natural_Account,
X_Start_Date_Active,
X_End_Date_Active,
X_Acct_Seq_Num,
X_Set_of_Books_Id,
X_Business_Group_Id,
sysdate,
fnd_global.user_id,
fnd_global.login_id,
fnd_global.user_id,
sysdate
);
END Insert_Accounts_Row;
SELECT *
FROM psp_auto_accts
WHERE ROWID = X_Rowid
FOR UPDATE OF Acct_Id NOWAIT;
FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
PROCEDURE Update_Accounts_Row (X_Rowid VARCHAR2,
X_Acct_Id NUMBER,
X_Acct_Type VARCHAR2,
X_Period_Type VARCHAR2,
X_Acct_Seq_Num NUMBER,
X_Expenditure_Type VARCHAR2,
X_Segment_num NUMBER,
X_Natural_Account VARCHAR2,
X_Start_Date_Active DATE,
X_End_Date_Active DATE ,
X_Set_of_Books_Id NUMBER,
X_Business_Group_Id NUMBER
) IS
BEGIN
UPDATE psp_auto_accts
SET Acct_Id = X_Acct_Id,
Acct_Type = X_Acct_Type,
Period_Type = X_Period_Type,
Acct_Seq_Num = X_Acct_Seq_Num,
Expenditure_Type = X_Expenditure_Type,
Segment_num = X_Segment_num,
Natural_Account = X_Natural_Account,
Start_Date_Active = X_Start_Date_Active,
End_Date_Active = X_End_Date_Active,
Set_of_books_id = X_Set_of_Books_Id,
Business_Group_Id = X_Business_group_id,
Last_Update_Date = sysdate,
Last_Updated_By = fnd_global.user_id,
Last_Update_Login = fnd_global.login_id
WHERE ROWID = X_Rowid;
END Update_Accounts_Row;
PROCEDURE Delete_Accounts_Row (X_Rowid VARCHAR2,
X_Acct_Id NUMBER) IS
v_Dummy varchar2(1);
select null from psp_auto_params
where acct_id = X_Acct_Id;
select null from psp_auto_rules
where acct_id = X_Acct_Id;
-- Delete the detail records
open expressions_c;
DELETE FROM psp_auto_params
WHERE Acct_Id = X_Acct_Id;
DELETE FROM psp_auto_rules
WHERE Acct_Id = X_Acct_Id;
-- Delete the master record
DELETE FROM psp_auto_accts
WHERE ROWID = X_Rowid;
End Delete_Accounts_Row;
PROCEDURE Insert_Expressions_Row (X_Rowid IN OUT NOCOPY VARCHAR2,
X_Acct_Id NUMBER,
X_Param_Line_Num NUMBER,
X_Lookup_Id NUMBER,
X_Operand VARCHAR2,
X_User_Value VARCHAR2
) IS
CURSOR C IS
SELECT ROWID
FROM psp_auto_params
WHERE Acct_Id = X_Acct_Id
AND Param_line_num = X_Param_Line_Num;
INSERT INTO psp_auto_params
(
Acct_Id,
Param_Line_Num,
Lookup_Id,
Operand,
User_Value,
Last_Update_Date,
Last_Updated_By,
Last_Update_Login,
Created_By,
Creation_Date
)
VALUES
(
X_Acct_Id,
X_Param_Line_Num,
X_Lookup_Id,
X_Operand,
X_User_Value,
sysdate,
fnd_global.user_id,
fnd_global.login_id,
fnd_global.user_id,
sysdate
);
END Insert_Expressions_Row;
SELECT *
FROM psp_auto_params
WHERE ROWID = X_Rowid
FOR UPDATE OF Acct_Id NOWAIT;
FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
PROCEDURE Update_Expressions_Row (X_Rowid VARCHAR2,
X_Acct_Id NUMBER,
X_Param_Line_Num NUMBER,
X_Lookup_Id NUMBER,
X_Operand VARCHAR2,
X_User_Value VARCHAR2
) IS
BEGIN
UPDATE psp_auto_params
SET Acct_Id = X_Acct_Id,
Param_Line_Num = X_Param_Line_Num,
Lookup_Id = X_Lookup_Id,
Operand = X_Operand,
User_Value = X_User_Value,
Last_Update_Date = sysdate,
Last_Updated_By = fnd_global.user_id,
Last_Update_Login = fnd_global.login_id
WHERE ROWID = X_Rowid;
END Update_Expressions_Row;
PROCEDURE Delete_Expressions_Row (X_Rowid VARCHAR2) IS
BEGIN
-- Delete the detail records
DELETE FROM psp_auto_params
WHERE ROWID = X_Rowid;
End Delete_Expressions_Row;