The following lines contain the word 'select', 'insert', 'update' or 'delete':
CURSOR C1 IS SELECT 'Overlaps'
FROM JG_ZZ_TA_ACCOUNT_RANGES ACC
WHERE ACC.CC_RANGE_ID = X_cc_range_id
AND ((ACC.account_range_low between
X_account_range_low and X_account_range_high)
OR
(ACC.account_range_high between
X_account_range_low and X_account_range_high)
OR
(X_account_range_low between
ACC.account_range_low and ACC.account_range_high)
OR
(X_account_range_high between
ACC.account_range_low and ACC.account_range_high))
AND ROWIDTOCHAR(ACC.rowid) <> nvl(X_rowid, 'x');
PROCEDURE Insert_Row( X_rowid IN OUT NOCOPY VARCHAR2
,X_account_range_id IN OUT NOCOPY NUMBER
,X_cc_range_id NUMBER
,X_account_range_low VARCHAR2
,X_account_range_high VARCHAR2
,X_offset_account VARCHAR2
,X_creation_date DATE
,X_created_by NUMBER
,X_last_updated_by NUMBER
,X_last_update_date DATE
,X_last_update_login NUMBER
,X_Context VARCHAR2
,X_attribute1 VARCHAR2
,X_attribute2 VARCHAR2
,X_attribute3 VARCHAR2
,X_attribute4 VARCHAR2
,X_attribute5 VARCHAR2
,X_attribute6 VARCHAR2
,X_attribute7 VARCHAR2
,X_attribute8 VARCHAR2
,X_attribute9 VARCHAR2
,X_attribute10 VARCHAR2
,X_attribute11 VARCHAR2
,X_attribute12 VARCHAR2
,X_attribute13 VARCHAR2
,X_attribute14 VARCHAR2
,X_attribute15 VARCHAR2 )
IS
CURSOR C IS SELECT rowid
FROM JG_ZZ_TA_ACCOUNT_RANGES
WHERE X_account_range_id = account_range_id;
CURSOR C2 IS SELECT JG_ZZ_TA_ACCOUNT_RANGES_S.nextval FROM sys.dual;
INSERT INTO JG_ZZ_TA_ACCOUNT_RANGES
(
cc_range_id
,account_range_id
,account_range_low
,account_range_high
,offset_account
,creation_date
,created_by
,last_updated_by
,last_update_date
,last_update_login
,context
,attribute1
,attribute2
,attribute3
,attribute4
,attribute5
,attribute6
,attribute7
,attribute8
,attribute9
,attribute10
,attribute11
,attribute12
,attribute13
,attribute14
,attribute15
)
VALUES
(
X_cc_range_id
,X_account_range_id
,X_account_range_low
,X_account_range_high
,X_offset_account
,X_creation_date
,X_created_by
,X_last_updated_by
,X_last_update_date
,X_last_update_login
,X_context
,X_attribute1
,X_attribute2
,X_attribute3
,X_attribute4
,X_attribute5
,X_attribute6
,X_attribute7
,X_attribute8
,X_attribute9
,X_attribute10
,X_attribute11
,X_attribute12
,X_attribute13
,X_attribute14
,X_attribute15
);
END insert_row;
PROCEDURE Update_Row( X_rowid VARCHAR2
,X_account_range_id NUMBER
,X_cc_range_id NUMBER
,X_account_range_low VARCHAR2
,X_account_range_high VARCHAR2
,X_offset_account VARCHAR2
,X_creation_date DATE
,X_created_by NUMBER
,X_last_updated_by NUMBER
,X_last_update_date DATE
,X_last_update_login NUMBER
,X_Context VARCHAR2
,X_attribute1 VARCHAR2
,X_attribute2 VARCHAR2
,X_attribute3 VARCHAR2
,X_attribute4 VARCHAR2
,X_attribute5 VARCHAR2
,X_attribute6 VARCHAR2
,X_attribute7 VARCHAR2
,X_attribute8 VARCHAR2
,X_attribute9 VARCHAR2
,X_attribute10 VARCHAR2
,X_attribute11 VARCHAR2
,X_attribute12 VARCHAR2
,X_attribute13 VARCHAR2
,X_attribute14 VARCHAR2
,X_attribute15 VARCHAR2 )
IS
BEGIN
--
-- Standard ON-UPDATE routine
--
UPDATE JG_ZZ_TA_ACCOUNT_RANGES
SET
cc_range_id = X_cc_range_id
,account_range_id = X_account_range_id
,account_range_low = X_account_range_low
,account_range_high = X_account_range_high
,offset_account = X_offset_account
,creation_date = X_creation_date
,created_by = X_created_by
,last_updated_by = X_last_updated_by
,last_update_date = X_last_update_date
,last_update_login = X_last_update_login
,context = X_context
,attribute1 = X_attribute1
,attribute2 = X_attribute2
,attribute3 = X_attribute3
,attribute4 = X_attribute4
,attribute5 = X_attribute5
,attribute6 = X_attribute6
,attribute7 = X_attribute7
,attribute8 = X_attribute8
,attribute9 = X_attribute9
,attribute10 = X_attribute10
,attribute11 = X_attribute11
,attribute12 = X_attribute12
,attribute13 = X_attribute13
,attribute14 = X_attribute14
,attribute15 = X_attribute15
WHERE
rowid = X_rowid;
END Update_Row;
PROCEDURE Delete_Row( X_rowid VARCHAR2 ) IS
-- ITHEODOR CHANGE START
CURSOR Get_Children(P_rowid VARCHAR2) IS
SELECT Row_Id
FROM JG_ZZ_TA_RULE_LINES_V C
WHERE C.ACCOUNT_RANGE_ID = (SELECT P.ACCOUNT_RANGE_ID
FROM JG_ZZ_TA_ACCOUNT_RANGES P
WHERE P.ROWID = P_rowid);
JG_ZZ_TA_RULE_LINES_PKG.Delete_Row( Rec.Row_id );
DELETE FROM JG_ZZ_TA_ACCOUNT_RANGES
WHERE
ROWID = X_rowid;
END Delete_Row;
,X_last_updated_by NUMBER
,X_last_update_date DATE
,X_last_update_login NUMBER
,X_Context VARCHAR2
,X_attribute1 VARCHAR2
,X_attribute2 VARCHAR2
,X_attribute3 VARCHAR2
,X_attribute4 VARCHAR2
,X_attribute5 VARCHAR2
,X_attribute6 VARCHAR2
,X_attribute7 VARCHAR2
,X_attribute8 VARCHAR2
,X_attribute9 VARCHAR2
,X_attribute10 VARCHAR2
,X_attribute11 VARCHAR2
,X_attribute12 VARCHAR2
,X_attribute13 VARCHAR2
,X_attribute14 VARCHAR2
,X_attribute15 VARCHAR2 )
IS
CURSOR C IS
SELECT *
FROM JG_ZZ_TA_ACCOUNT_RANGES
WHERE rowid = X_Rowid
FOR UPDATE of cc_range_id NOWAIT;
FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');