The following lines contain the word 'select', 'insert', 'update' or 'delete':
l_debug_info := 'Before calling Update GCS Entry Headers, item_key: ' || p_item_key || 'Submitter Name '|| l_submitter_name;
UPDATE GCS_ENTRY_HEADERS
SET approval_status_code = 'IN_PROGRESS'
WHERE entry_id = p_item_key;
SELECT ENTRY_ID
, ENTRY_NAME
, HIERARCHY_ID
, ENTITY_ID
, CURRENCY_CODE
, BALANCE_TYPE_CODE
, START_CAL_PERIOD_ID
, END_CAL_PERIOD_ID
, DESCRIPTION
, ENTRY_TYPE_CODE
, CATEGORY_CODE
, CREATED_BY
, WORKFLOW_KEY
FROM GCS_ENTRY_HEADERS
WHERE ENTRY_ID = p_entry_id;
Select Entity_name
From fem_entities_tl
where entity_id = l_entity_id
and language = userenv('LANG');
Select hierarchy_name
From gcs_hierarchies_tl
Where hierarchy_id = l_hierarchy_id
and language = userenv('LANG');
Select fctl.cal_period_name
From fem_cal_periods_tl fctl
Where fctl.cal_period_id = l_start_cal_period_id
and fctl.language = USERENV('LANG');
-- delete previous pdf.
delete fnd_attached_documents
where pk1_value = to_char(l_entry_id);
l_debug_info := ' Deleted Doc :'|| to_char(l_entry_id) || '.pdf';
l_debug_info := 'Before Update of Adjustments to Initiated';
UPDATE GCS_ENTRY_HEADERS
SET approval_status_code = 'IN_PROGRESS' ,
WORKFLOW_KEY = l_itemkey
WHERE entry_id = p_entry_id;
l_debug_info := 'Before calling AME Update Status, entry : ' || l_entry_id || ', Status' || AME_UTIL.approvedStatus || ' role name: '|| l_role_name || 'Approver id: ' || l_approver_id ;
AME_API2.updateApprovalStatus(applicationIdIn => G_FCH_APPLICATION_ID,
transactionTypeIn => 'GCS_ADJUSTMENT',
transactionIdIn => to_char(l_entry_id),
approverIn => g_next_approver);
AME_API2.updateApprovalStatus2(applicationIdIn => G_FCH_APPLICATION_ID,
transactionTypeIn => 'GCS_ADJUSTMENT',
transactionIdIn => to_char(l_entry_id),
approvalStatusIn => AME_UTIL.approvedStatus,
approverNameIn => l_role_name,
itemClassIn => ame_util.headerItemClassName,
itemIdIn => to_char(l_entry_id));
l_debug_info := 'Updated Approval status in AME records';
l_debug_info := 'Before calling AME Update Status, entry : ' || l_entry_id || ', Status' || AME_UTIL.approvedStatus || ' role name '|| l_role_name || 'Approver id ' || l_approver_id ;
AME_API2.updateApprovalStatus(applicationIdIn => G_FCH_APPLICATION_ID,
transactionTypeIn => 'GCS_ADJUSTMENT',
transactionIdIn => to_char(l_entry_id),
approverIn => g_next_approver);
AME_API2.updateApprovalStatus2(applicationIdIn => G_FCH_APPLICATION_ID,
transactionIdIn => to_char(l_entry_id),
approvalStatusIn => AME_UTIL.rejectStatus,
approverNameIn => l_role_name,
transactionTypeIn => 'GCS_ADJUSTMENT',
itemClassIn => ame_util.headerItemClassName,
itemIdIn => to_char(l_entry_id));
l_debug_info := 'Updated Approval status ';
PROCEDURE update_adjustment(p_item_type IN VARCHAR2,
p_item_key IN VARCHAR2,
p_actid IN NUMBER,
p_funcmode IN VARCHAR2,
x_result_out OUT NOCOPY VARCHAR2 ) IS
l_entry_id NUMBER(15);
l_api_name CONSTANT VARCHAR2(200) := 'update_adjustment';
l_event_name VARCHAR2 (100) := 'oracle.apps.gcs.transaction.adjustment.update';
l_debug_info := 'Start Update Adjustment';
UPDATE GCS_ENTRY_HEADERS
SET approval_status_code = l_status
WHERE entry_id = l_entry_id;
l_debug_info := 'Updated GCS Entries with status : ' || nvl(l_status,'NULL');
END update_adjustment;