The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT unit_effectivity_id from ahl_unit_deferrals_b
WHERE unit_deferral_id = p_unit_deferral_id;
PROCEDURE Update_Status(
itemtype IN VARCHAR2,
itemkey IN VARCHAR2,
actid IN NUMBER,
funcmode IN VARCHAR2,
resultout OUT NOCOPY VARCHAR2) IS
l_error_msg VARCHAR2(4000);
'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status.begin',
'At the start of PLSQL procedure'
);
SAVEPOINT AHL_DEF_UPDATE_STATUS;
aname => 'UPDATE_GEN_STATUS'
);
UPDATE AHL_UNIT_DEFERRALS_TL
SET approver_notes = l_approver_note,
SOURCE_LANG = userenv('LANG')
WHERE unit_deferral_id = l_object_id
AND userenv('LANG') IN (LANGUAGE, SOURCE_LANG);
'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status',
'unit_deferral_id : ' || l_object_id
);
'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status',
'object_version_number : ' || l_object_version_number
);
'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status',
'approval status : ' || l_approval_status
);
'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status',
'new status : ' || l_new_status
);
'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status',
'return status after process_approval_rejected API call : ' || l_return_status
);
'ahl.plsql.AHL_PRD_DF_APPR_PVT.Update_Status.end',
'At the end of PLSQL procedure'
);
ROLLBACK TO AHL_DEF_UPDATE_STATUS;
'ahl.plsql.AHL_PRD_DF_APPR_PVT.update_status',
' Error Message : l_msg_data : ' || l_msg_data
);
wf_core.context(G_PKG_NAME,'Update_Status',itemtype,itemkey,l_error_msg);
'ahl.plsql.AHL_PRD_DF_APPR_PVT.update_status',
' Error Message : l_error_msg : ' || l_error_msg
);
UPDATE AHL_UNIT_DEFERRALS_TL
SET approver_notes = substrb(l_error_msg,1,4000)
WHERE unit_deferral_id = l_object_id
AND userenv('LANG') IN (LANGUAGE, SOURCE_LANG);
UPDATE AHL_UNIT_DEFERRALS_B
SET approval_status_code = 'DEFERRAL_REJECTED',
object_version_number = object_version_number + 1,
last_update_date = sysdate,
last_updated_by = fnd_global.user_id,
last_update_login = fnd_global.login_id
WHERE unit_deferral_id = l_object_id;
ROLLBACK TO AHL_DEF_UPDATE_STATUS;
wf_core.context( 'AHLGAPP', 'Update_Status', itemtype, itemkey );
UPDATE AHL_UNIT_DEFERRALS_TL
SET approver_notes = substrb(l_error_msg,1,4000)
WHERE unit_deferral_id = l_object_id
AND userenv('LANG') IN (LANGUAGE, SOURCE_LANG);
UPDATE AHL_UNIT_DEFERRALS_B
SET approval_status_code = 'DEFERRAL_REJECTED',
object_version_number = object_version_number + 1,
last_update_date = sysdate,
last_updated_by = fnd_global.user_id,
last_update_login = fnd_global.login_id
WHERE unit_deferral_id = l_object_id;
END Update_Status;
UPDATE AHL_UNIT_DEFERRALS_TL
SET approver_notes = substrb(l_error_msg,1,4000)
WHERE unit_deferral_id = l_object_id
AND userenv('LANG') IN (LANGUAGE, SOURCE_LANG);
UPDATE AHL_UNIT_DEFERRALS_B
SET approval_status_code = 'DEFERRAL_REJECTED',
object_version_number = object_version_number + 1,
last_update_date = sysdate,
last_updated_by = fnd_global.user_id,
last_update_login = fnd_global.login_id
WHERE unit_deferral_id = l_object_id;
UPDATE AHL_UNIT_DEFERRALS_TL
SET approver_notes = substrb(l_error_msg,1,4000)
WHERE unit_deferral_id = l_object_id
AND userenv('LANG') IN (LANGUAGE, SOURCE_LANG);
UPDATE AHL_UNIT_DEFERRALS_B
SET approval_status_code = 'DEFERRAL_REJECTED',
object_version_number = object_version_number + 1,
last_update_date = sysdate,
last_updated_by = fnd_global.user_id,
last_update_login = fnd_global.login_id
WHERE unit_deferral_id = l_object_id;
SELECT lookup_code, meaning FROM fnd_lookup_values_vl fnd
WHERE fnd.lookup_type = 'AHL_PRD_DF_CT_VAL_TYPES';
SELECT meaning FROM fnd_lookup_values_vl fnd
WHERE fnd.lookup_type = 'AHL_PRD_DF_REASON_TYPES'
AND fnd.lookup_code = p_reason_code;