The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT 'Duplicate'
FROM gl_recurring_line_calc_rules r
WHERE r.rule_num = x_rule_num
AND r.recurring_line_num = x_line_num
AND r.recurring_header_id = x_header_id
AND ( x_rowid is NULL
OR
r.rowid <> x_rowid );
PROCEDURE update_line_num( x_new_line_num NUMBER,
x_old_line_num NUMBER,
x_header_id NUMBER ) IS
BEGIN
UPDATE gl_recurring_line_calc_rules r
SET r.recurring_line_num = x_new_line_num
WHERE r.recurring_header_id = x_header_id
AND r.recurring_line_num = x_old_line_num;
'GL_RECURRING_RULES_PKG.update_line_num');
END update_line_num;
ccid_select VARCHAR2(4500);
ccid_select := ' SELECT cc.code_combination_id,
gst.ledger_id,
cc.enabled_flag, cc.account_type'||
' FROM gl_code_combinations cc, ' ||
' gl_summary_templates gst ' ||
' WHERE cc.chart_of_accounts_id = :coa_id ';
ccid_select := ccid_select || ' AND cc.segment1 = :segment1 ';
ccid_select := ccid_select || ' AND cc.segment1 IS NULL ';
ccid_select := ccid_select || ' AND cc.segment2 = :segment2 ';
ccid_select := ccid_select || ' AND cc.segment2 IS NULL ';
ccid_select := ccid_select || ' AND cc.segment3 = :segment3 ';
ccid_select := ccid_select || ' AND cc.segment3 IS NULL ';
ccid_select := ccid_select || ' AND cc.segment4 = :segment4 ';
ccid_select := ccid_select || ' AND cc.segment4 IS NULL ';
ccid_select := ccid_select || ' AND cc.segment5 = :segment5 ';
ccid_select := ccid_select || ' AND cc.segment5 IS NULL ';
ccid_select := ccid_select || ' AND cc.segment6 = :segment6 ';
ccid_select := ccid_select || ' AND cc.segment6 IS NULL ';
ccid_select := ccid_select || ' AND cc.segment7 = :segment7 ';
ccid_select := ccid_select || ' AND cc.segment7 IS NULL ';
ccid_select := ccid_select || ' AND cc.segment8 = :segment8 ';
ccid_select := ccid_select || ' AND cc.segment8 IS NULL ';
ccid_select := ccid_select || ' AND cc.segment9 = :segment9 ';
ccid_select := ccid_select || ' AND cc.segment9 IS NULL ';
ccid_select := ccid_select || ' AND cc.segment10 = :segment10 ';
ccid_select := ccid_select || ' AND cc.segment10 IS NULL ';
ccid_select := ccid_select || ' AND cc.segment11 = :segment11 ';
ccid_select := ccid_select || ' AND cc.segment11 IS NULL ';
ccid_select := ccid_select || ' AND cc.segment12 = :segment12 ';
ccid_select := ccid_select || ' AND cc.segment12 IS NULL ';
ccid_select := ccid_select || ' AND cc.segment13 = :segment13 ';
ccid_select := ccid_select || ' AND cc.segment13 IS NULL ';
ccid_select := ccid_select || ' AND cc.segment14 = :segment14 ';
ccid_select := ccid_select || ' AND cc.segment14 IS NULL ';
ccid_select := ccid_select || ' AND cc.segment15 = :segment15 ';
ccid_select := ccid_select || ' AND cc.segment15 IS NULL ';
ccid_select := ccid_select || ' AND cc.segment16 = :segment16 ';
ccid_select := ccid_select || ' AND cc.segment16 IS NULL ';
ccid_select := ccid_select || ' AND cc.segment17 = :segment17 ';
ccid_select := ccid_select || ' AND cc.segment17 IS NULL ';
ccid_select := ccid_select || ' AND cc.segment18 = :segment18 ';
ccid_select := ccid_select || ' AND cc.segment18 IS NULL ';
ccid_select := ccid_select || ' AND cc.segment19 = :segment19 ';
ccid_select := ccid_select || ' AND cc.segment19 IS NULL ';
ccid_select := ccid_select || ' AND cc.segment20 = :segment20 ';
ccid_select := ccid_select || ' AND cc.segment20 IS NULL ';
ccid_select := ccid_select || ' AND cc.segment21 = :segment21 ';
ccid_select := ccid_select || ' AND cc.segment21 IS NULL ';
ccid_select := ccid_select || ' AND cc.segment22 = :segment22 ';
ccid_select := ccid_select || ' AND cc.segment22 IS NULL ';
ccid_select := ccid_select || ' AND cc.segment23 = :segment23 ';
ccid_select := ccid_select || ' AND cc.segment23 IS NULL ';
ccid_select := ccid_select || ' AND cc.segment24 = :segment24 ';
ccid_select := ccid_select || ' AND cc.segment24 IS NULL ';
ccid_select := ccid_select || ' AND cc.segment25 = :segment25 ';
ccid_select := ccid_select || ' AND cc.segment25 IS NULL ';
ccid_select := ccid_select || ' AND cc.segment26 = :segment26 ';
ccid_select := ccid_select || ' AND cc.segment26 IS NULL ';
ccid_select := ccid_select || ' AND cc.segment27 = :segment27 ';
ccid_select := ccid_select || ' AND cc.segment27 IS NULL ';
ccid_select := ccid_select || ' AND cc.segment28 = :segment28 ';
ccid_select := ccid_select || ' AND cc.segment28 IS NULL ';
ccid_select := ccid_select || ' AND cc.segment29 = :segment29 ';
ccid_select := ccid_select || ' AND cc.segment29 IS NULL ';
ccid_select := ccid_select || ' AND cc.segment30 = :segment30 ';
ccid_select := ccid_select || ' AND cc.segment30 IS NULL ';
ccid_select := ccid_select ||
' AND gst.template_id (+) = cc.template_id ' ||
' ORDER BY decode(gst.ledger_id,:lgr_id,0,1) ';
dbms_sql.parse(ccid_cursor,ccid_select,dbms_sql.v7);
PROCEDURE delete_rows( x_header_id NUMBER,
x_line_num NUMBER ) IS
BEGIN
DELETE
FROM GL_RECURRING_LINE_CALC_RULES
WHERE RECURRING_HEADER_ID = x_header_id
AND RECURRING_LINE_NUM = x_line_num;
'GL_RECURRING_RULES_PKG.delete_rows');
END delete_rows;
PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
X_Recurring_Header_Id NUMBER,
X_Recurring_Line_Num NUMBER,
X_Rule_Num NUMBER,
X_Last_Update_Date DATE,
X_Last_Updated_By NUMBER,
X_Operator VARCHAR2,
X_Creation_Date DATE,
X_Created_By NUMBER,
X_Last_Update_Login NUMBER,
X_Amount NUMBER,
X_Amount_Type VARCHAR2,
X_Actual_Flag VARCHAR2,
X_Ledger_Currency VARCHAR2,
X_Currency_Type VARCHAR2,
X_Entered_Currency VARCHAR2,
X_Ledger_Id NUMBER,
X_Relative_Period_Code VARCHAR2,
X_Attribute1 VARCHAR2,
X_Attribute2 VARCHAR2,
X_Attribute3 VARCHAR2,
X_Attribute4 VARCHAR2,
X_Attribute5 VARCHAR2,
X_Context VARCHAR2,
X_Assigned_Code_Combination NUMBER,
X_Template_Id NUMBER,
X_Segment1 VARCHAR2,
X_Segment2 VARCHAR2,
X_Segment3 VARCHAR2,
X_Segment4 VARCHAR2,
X_Segment5 VARCHAR2,
X_Segment6 VARCHAR2,
X_Segment7 VARCHAR2,
X_Segment8 VARCHAR2,
X_Segment9 VARCHAR2,
X_Segment10 VARCHAR2,
X_Segment11 VARCHAR2,
X_Segment12 VARCHAR2,
X_Segment13 VARCHAR2,
X_Segment14 VARCHAR2,
X_Segment15 VARCHAR2,
X_Segment16 VARCHAR2,
X_Segment17 VARCHAR2,
X_Segment18 VARCHAR2,
X_Segment19 VARCHAR2,
X_Segment20 VARCHAR2,
X_Segment21 VARCHAR2,
X_Segment22 VARCHAR2,
X_Segment23 VARCHAR2,
X_Segment24 VARCHAR2,
X_Segment25 VARCHAR2,
X_Segment26 VARCHAR2,
X_Segment27 VARCHAR2,
X_Segment28 VARCHAR2,
X_Segment29 VARCHAR2,
X_Segment30 VARCHAR2
) IS
CURSOR C IS SELECT rowid FROM GL_RECURRING_LINE_CALC_RULES
WHERE recurring_header_id = X_Recurring_Header_Id
and recurring_line_num = X_Recurring_Line_Num
and rule_num = X_Rule_Num;
INSERT INTO GL_RECURRING_LINE_CALC_RULES(
recurring_header_id,
recurring_line_num,
rule_num,
last_update_date,
last_updated_by,
operator,
creation_date,
created_by,
last_update_login,
amount,
amount_type,
actual_flag,
ledger_currency,
currency_type,
entered_currency,
ledger_id,
relative_period_code,
attribute1,
attribute2,
attribute3,
attribute4,
attribute5,
context,
assigned_code_combination,
template_id,
segment1,
segment2,
segment3,
segment4,
segment5,
segment6,
segment7,
segment8,
segment9,
segment10,
segment11,
segment12,
segment13,
segment14,
segment15,
segment16,
segment17,
segment18,
segment19,
segment20,
segment21,
segment22,
segment23,
segment24,
segment25,
segment26,
segment27,
segment28,
segment29,
segment30
) VALUES (
X_Recurring_Header_Id,
X_Recurring_Line_Num,
X_Rule_Num,
X_Last_Update_Date,
X_Last_Updated_By,
X_Operator,
X_Creation_Date,
X_Created_By,
X_Last_Update_Login,
X_Amount,
X_Amount_Type,
X_Actual_Flag,
X_Ledger_Currency,
X_Currency_Type,
X_Entered_Currency,
X_Ledger_Id,
X_Relative_Period_Code,
X_Attribute1,
X_Attribute2,
X_Attribute3,
X_Attribute4,
X_Attribute5,
X_Context,
X_Assigned_Code_Combination,
X_Template_Id,
X_Segment1,
X_Segment2,
X_Segment3,
X_Segment4,
X_Segment5,
X_Segment6,
X_Segment7,
X_Segment8,
X_Segment9,
X_Segment10,
X_Segment11,
X_Segment12,
X_Segment13,
X_Segment14,
X_Segment15,
X_Segment16,
X_Segment17,
X_Segment18,
X_Segment19,
X_Segment20,
X_Segment21,
X_Segment22,
X_Segment23,
X_Segment24,
X_Segment25,
X_Segment26,
X_Segment27,
X_Segment28,
X_Segment29,
X_Segment30
);
END Insert_Row;
SELECT *
FROM GL_RECURRING_LINE_CALC_RULES
WHERE rowid = X_Rowid
FOR UPDATE of Recurring_Header_Id NOWAIT;
FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
PROCEDURE Update_Row(X_Rowid VARCHAR2,
X_Recurring_Header_Id NUMBER,
X_Recurring_Line_Num NUMBER,
X_Rule_Num NUMBER,
X_Last_Update_Date DATE,
X_Last_Updated_By NUMBER,
X_Operator VARCHAR2,
X_Last_Update_Login NUMBER,
X_Amount NUMBER,
X_Amount_Type VARCHAR2,
X_Actual_Flag VARCHAR2,
X_Ledger_Currency VARCHAR2,
X_Currency_Type VARCHAR2,
X_Entered_Currency VARCHAR2,
X_Ledger_Id NUMBER,
X_Relative_Period_Code VARCHAR2,
X_Attribute1 VARCHAR2,
X_Attribute2 VARCHAR2,
X_Attribute3 VARCHAR2,
X_Attribute4 VARCHAR2,
X_Attribute5 VARCHAR2,
X_Context VARCHAR2,
X_Assigned_Code_Combination NUMBER,
X_Template_Id NUMBER,
X_Segment1 VARCHAR2,
X_Segment2 VARCHAR2,
X_Segment3 VARCHAR2,
X_Segment4 VARCHAR2,
X_Segment5 VARCHAR2,
X_Segment6 VARCHAR2,
X_Segment7 VARCHAR2,
X_Segment8 VARCHAR2,
X_Segment9 VARCHAR2,
X_Segment10 VARCHAR2,
X_Segment11 VARCHAR2,
X_Segment12 VARCHAR2,
X_Segment13 VARCHAR2,
X_Segment14 VARCHAR2,
X_Segment15 VARCHAR2,
X_Segment16 VARCHAR2,
X_Segment17 VARCHAR2,
X_Segment18 VARCHAR2,
X_Segment19 VARCHAR2,
X_Segment20 VARCHAR2,
X_Segment21 VARCHAR2,
X_Segment22 VARCHAR2,
X_Segment23 VARCHAR2,
X_Segment24 VARCHAR2,
X_Segment25 VARCHAR2,
X_Segment26 VARCHAR2,
X_Segment27 VARCHAR2,
X_Segment28 VARCHAR2,
X_Segment29 VARCHAR2,
X_Segment30 VARCHAR2
) IS
BEGIN
-- Check line for Uniqueness
Check_Unique(X_Rowid, X_Rule_Num, X_Recurring_Line_Num, X_Recurring_Header_Id );
UPDATE GL_RECURRING_LINE_CALC_RULES
SET
recurring_header_id = X_Recurring_Header_Id,
recurring_line_num = X_Recurring_Line_Num,
rule_num = X_Rule_Num,
last_update_date = X_Last_Update_Date,
last_updated_by = X_Last_Updated_By,
operator = X_Operator,
last_update_login = X_Last_Update_Login,
amount = X_Amount,
amount_type = X_Amount_Type,
actual_flag = X_Actual_Flag,
ledger_currency = X_Ledger_Currency,
currency_type = X_Currency_Type,
entered_currency = X_Entered_Currency,
ledger_id = X_Ledger_Id,
relative_period_code = X_Relative_Period_Code,
attribute1 = X_Attribute1,
attribute2 = X_Attribute2,
attribute3 = X_Attribute3,
attribute4 = X_Attribute4,
attribute5 = X_Attribute5,
context = X_Context,
assigned_code_combination = X_Assigned_Code_Combination,
template_id = X_Template_Id,
segment1 = X_Segment1,
segment2 = X_Segment2,
segment3 = X_Segment3,
segment4 = X_Segment4,
segment5 = X_Segment5,
segment6 = X_Segment6,
segment7 = X_Segment7,
segment8 = X_Segment8,
segment9 = X_Segment9,
segment10 = X_Segment10,
segment11 = X_Segment11,
segment12 = X_Segment12,
segment13 = X_Segment13,
segment14 = X_Segment14,
segment15 = X_Segment15,
segment16 = X_Segment16,
segment17 = X_Segment17,
segment18 = X_Segment18,
segment19 = X_Segment19,
segment20 = X_Segment20,
segment21 = X_Segment21,
segment22 = X_Segment22,
segment23 = X_Segment23,
segment24 = X_Segment24,
segment25 = X_Segment25,
segment26 = X_Segment26,
segment27 = X_Segment27,
segment28 = X_Segment28,
segment29 = X_Segment29,
segment30 = X_Segment30
WHERE rowid = X_Rowid;
END Update_Row;
PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
BEGIN
DELETE FROM GL_RECURRING_LINE_CALC_RULES
WHERE rowid = X_Rowid;
END Delete_Row;