The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT count(1)
INTO Dummy
FROM ap_hold_codes
WHERE upper(hold_lookup_code) = upper(X_Hold_Lookup_Code)
AND ((X_Rowid IS NULL) OR (rowid <> X_Rowid));
PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
X_Hold_Type VARCHAR2,
X_Hold_Lookup_Code VARCHAR2,
X_Description VARCHAR2 DEFAULT NULL,
X_Last_Update_Date DATE,
X_Last_Updated_By NUMBER,
X_User_Releaseable_Flag VARCHAR2,
X_User_Updateable_Flag VARCHAR2,
X_Inactive_Date DATE DEFAULT NULL,
X_Postable_Flag VARCHAR2,
X_Last_Update_Login NUMBER DEFAULT NULL,
X_Creation_Date DATE DEFAULT NULL,
X_Created_By NUMBER DEFAULT NULL,
/* Bug 5206670. Hold Workflow related change */
X_Initiate_Workflow_Flag VARCHAR2 DEFAULT NULL,
X_Wait_Before_Notify_Days NUMBER DEFAULT NULL,
X_Reminder_Days NUMBER DEFAULT NULL,
X_Hold_Instruction VARCHAR2 DEFAULT NULL,
X_calling_sequence IN VARCHAR2
) IS
CURSOR C IS SELECT rowid FROM ap_hold_codes
WHERE hold_lookup_code = X_Hold_Lookup_Code;
current_calling_sequence := 'AP_HOLD_CODES_PKG.INSERT_ROW<-' ||
X_calling_sequence;
debug_info := 'Inserting in ap_hold_codes';
INSERT INTO ap_hold_codes(
hold_type,
hold_lookup_code,
description,
last_update_date,
last_updated_by,
user_releaseable_flag,
user_updateable_flag,
inactive_date,
postable_flag,
last_update_login,
creation_date,
created_by,
initiate_workflow_flag,
wait_before_notify_days,
reminder_days,
hold_instruction
) VALUES (
X_Hold_Type,
X_Hold_Lookup_Code,
X_Description,
X_Last_Update_Date,
X_Last_Updated_By,
X_User_Releaseable_Flag,
X_User_Updateable_Flag,
X_Inactive_Date,
X_Postable_Flag,
X_Last_Update_Login,
X_Creation_Date,
X_Created_By,
X_initiate_workflow_flag,
X_wait_before_notify_days,
X_reminder_days,
X_Hold_Instruction
);
debug_info := 'Inserting in fnd_lookup_values';
INSERT INTO fnd_lookup_values(
lookup_type,
security_group_id,
view_application_id,
language,
lookup_code,
meaning,
description,
enabled_flag,
end_date_active,
created_by,
creation_date,
last_updated_by,
last_update_login,
last_update_date,
source_lang,
attribute_category,
attribute1,
attribute2,
attribute3,
attribute4,
attribute5,
attribute6,
attribute7,
attribute8,
attribute9,
attribute10,
attribute11,
attribute12,
attribute13,
attribute14,
attribute15
) select
'HOLD CODE',
0,
200,
L.LANGUAGE_CODE,
X_Hold_Lookup_Code,
X_Hold_Lookup_Code,
X_Description,
'Y',
X_Inactive_Date,
X_Created_By,
X_Creation_Date,
X_Last_Updated_By,
X_Last_Update_Login,
X_Last_Update_Date,
userenv('LANG'),
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
'',
''
from FND_LANGUAGES L
where L.INSTALLED_FLAG in ('I', 'B')
and not exists
(select NULL
from fnd_lookup_values FLV
where FLV.lookup_type = 'HOLD CODE'
and FLV.lookup_code = X_Hold_Lookup_Code
and FLV.language = L.LANGUAGE_CODE);
END Insert_Row;
X_User_Updateable_Flag VARCHAR2,
X_Inactive_Date DATE DEFAULT NULL,
X_Postable_Flag VARCHAR2,
/* Bug 5206670. Hold Workflow related change */
X_Initiate_Workflow_Flag VARCHAR2 DEFAULT NULL,
X_Wait_Before_Notify_Days NUMBER DEFAULT NULL,
X_Reminder_Days NUMBER DEFAULT NULL,
X_Hold_Instruction VARCHAR2 DEFAULT NULL,
X_calling_sequence IN VARCHAR2
) IS
CURSOR C IS
SELECT *
FROM ap_hold_codes
WHERE rowid = X_Rowid
FOR UPDATE of hold_lookup_code NOWAIT;
FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
AND ( (Recinfo.user_updateable_flag = X_User_Updateable_Flag)
OR ( (Recinfo.user_updateable_flag IS NULL)
AND (X_User_Updateable_Flag IS NULL)))
AND ( (Recinfo.inactive_date = X_Inactive_Date)
OR ( (Recinfo.inactive_date IS NULL)
AND (X_Inactive_Date IS NULL)))
AND ( (Recinfo.postable_flag = X_Postable_Flag)
OR ( (Recinfo.postable_flag IS NULL)
AND (X_Postable_Flag IS NULL)))
AND ( (Recinfo.initiate_workflow_flag = X_Initiate_Workflow_Flag)
OR ( (Recinfo.initiate_workflow_flag IS NULL)
AND (X_Initiate_Workflow_Flag IS NULL)))
AND ( (Recinfo.wait_before_notify_days = X_Wait_Before_Notify_Days)
OR ( (Recinfo.wait_before_notify_days IS NULL)
AND (X_Wait_Before_Notify_Days IS NULL)))
AND ( (Recinfo.reminder_days = X_reminder_Days)
OR ( (Recinfo.reminder_days IS NULL)
AND (X_Reminder_Days IS NULL)))
AND ( (Recinfo.hold_instruction = X_Hold_Instruction)
OR ( (Recinfo.hold_instruction IS NULL)
AND (X_hold_instruction IS NULL)))
) then
return;
PROCEDURE Update_Row(X_Rowid VARCHAR2,
X_Hold_Type VARCHAR2,
X_Hold_Lookup_Code VARCHAR2,
X_Description VARCHAR2 DEFAULT NULL,
X_Last_Update_Date DATE,
X_Last_Updated_By NUMBER,
X_User_Releaseable_Flag VARCHAR2,
X_User_Updateable_Flag VARCHAR2,
X_Inactive_Date DATE DEFAULT NULL,
X_Postable_Flag VARCHAR2,
X_Last_Update_Login NUMBER DEFAULT NULL,
X_Creation_Date DATE DEFAULT NULL,
X_Created_By NUMBER DEFAULT NULL,
/* Bug 5206670. Hold Workflow related change */
X_Initiate_Workflow_Flag VARCHAR2 DEFAULT NULL,
X_Wait_Before_Notify_Days NUMBER DEFAULT NULL,
X_Reminder_Days NUMBER DEFAULT NULL,
X_Hold_Instruction VARCHAR2 DEFAULT NULL,
X_calling_sequence IN VARCHAR2
) IS
current_calling_sequence VARCHAR2(2000);
current_calling_sequence := 'AP_HOLD_CODES_PKG.UPDATE_ROW<-' ||
X_calling_sequence;
UPDATE ap_hold_codes
SET
hold_type = X_Hold_Type,
hold_lookup_code = X_Hold_Lookup_Code,
description = X_Description,
last_update_date = X_Last_Update_Date,
last_updated_by = X_Last_Updated_By,
user_releaseable_flag = X_User_Releaseable_Flag,
user_updateable_flag = X_User_Updateable_Flag,
inactive_date = X_Inactive_Date,
postable_flag = X_Postable_Flag,
last_update_login = X_Last_Update_Login,
creation_date = X_Creation_Date,
created_by = X_Created_By,
initiate_workflow_flag = X_initiate_workflow_flag,
wait_before_notify_days = X_wait_before_notify_days,
reminder_days = X_reminder_days,
hold_instruction = X_Hold_Instruction
WHERE rowid = X_Rowid;
UPDATE fnd_lookup_values
SET
description = X_Description,
last_update_date = X_Last_Update_Date,
last_updated_by = X_Last_Updated_By,
end_date_active = X_Inactive_Date,
last_update_login = X_Last_Update_Login,
creation_date = X_Creation_Date,
created_by = X_Created_By
WHERE lookup_code = X_Hold_Lookup_Code
AND lookup_type = 'HOLD CODE'
AND view_application_id = 200
AND userenv('LANG') in (LANGUAGE, SOURCE_LANG);
END Update_Row;
PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
BEGIN
DELETE FROM ap_hold_codes
WHERE rowid = X_Rowid;
END Delete_Row;