The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE delete_requisition_internal(p_header_id IN NUMBER, p_working_copy IN BOOLEAN, p_is_purge_req_process IN BOOLEAN default false) IS
l_line_ids dbms_sql.NUMBER_TABLE;
SELECT type_lookup_code
INTO l_DocumentTypeCode
FROM po_requisition_headers
WHERE requisition_header_id = p_header_id;
DELETE FROM po_requisition_headers_all
WHERE requisition_header_id = p_header_id;
DELETE FROM po_requisition_lines_all
WHERE requisition_header_id = p_header_id
RETURNING requisition_line_id
BULK COLLECT INTO l_line_ids;
DELETE FROM po_req_distributions_all
WHERE requisition_line_id = l_line_ids(idx)
RETURNING award_id
BULK COLLECT INTO l_award_ids;
gms_por_api.delete_adl(l_award_ids(idx), l_status, l_err_msg);
fnd_attached_documents2_pkg.delete_attachments('REQ_HEADERS',
p_header_id,
null,
null,
null,
null,
'Y');
fnd_attached_documents2_pkg.delete_attachments('REQ_LINES',
l_line_ids(idx),
null,
null,
null,
null,
'Y');
DELETE FROM por_template_info
WHERE requisition_line_id = l_line_ids(idx);
DELETE FROM por_item_attribute_values
WHERE requisition_line_id = l_line_ids(idx);
DELETE FROM po_requisition_suppliers
WHERE requisition_line_id = l_line_ids(idx);
DELETE FROM po_price_differentials
WHERE entity_id = l_line_ids(idx)
AND entity_type = 'REQ LINE';
DELETE FROM po_approval_list_lines
WHERE approval_list_header_id IN
(SELECT approval_list_header_id
FROM po_approval_list_headers
WHERE document_id = p_header_id
AND document_type = 'REQUISITION');
DELETE FROM po_approval_list_headers
WHERE document_id = p_header_id
AND document_type = 'REQUISITION';
'Exception at POR_UTL_PKG.delete_requisition_internal(p_header_id:'
|| p_header_id || ') ' || l_progress || ' SQLERRM:' || SQLERRM);
END delete_requisition_internal;
CURSOR C IS SELECT enable_all_sites
FROM po_headers_all WHERE po_header_id = p_header_id;
PROCEDURE delete_requisition(p_header_id IN NUMBER) IS
BEGIN
delete_requisition_internal(p_header_id, false);
END delete_requisition;
delete_requisition_internal(p_header_id, false, true);
PROCEDURE delete_working_copy_req(p_req_number IN VARCHAR2) IS
l_header_id NUMBER;
SELECT requisition_header_id
INTO l_header_id
FROM po_requisition_headers_all
WHERE segment1 = p_req_number;
delete_requisition_internal(l_header_id, TRUE);
END delete_working_copy_req;
select sequence_num,
action_code,
employee_id
from po_action_history
where object_id = p_req_header_id
and object_type_code = 'REQUISITION'
order by sequence_num desc;
select fs.segment_num, gls.chart_of_accounts_id
into l_segment_num, l_account_id
from FND_ID_FLEX_SEGMENTS fs,
fnd_segment_attribute_values fsav,
financials_system_parameters fsp,
gl_sets_of_books gls
where fsp.set_of_books_id = gls.set_of_books_id and
fsav.id_flex_num = gls.chart_of_accounts_id and
fsav.id_flex_code = 'GL#' and
fsav.application_id = 101 and
fsav.segment_attribute_type = 'FA_COST_CTR' and
fsav.id_flex_num = fs.id_flex_num and
fsav.id_flex_code = fs.id_flex_code and
fsav.application_id = fs.application_id and
fsav.application_column_name = fs.application_column_name and
fsav.attribute_value='Y';
SELECT 1 into l_count
FROM po_requisition_headers
WHERE segment1 = to_char(req_num);
SELECT 1 into l_count
FROM
fnd_user fnd,
per_employees_current_x hr
WHERE fnd.user_id = p_user_id
AND fnd.employee_id = hr.employee_id
AND rownum = 1;
SELECT 1 into l_count
FROM
fnd_user fnd,
per_workforce_current_x hr
WHERE fnd.user_id = p_user_id
AND fnd.employee_id = hr.person_id
AND rownum = 1;
sqlString := 'select POR_REQ_NUMBER_S.nextval from sys.dual';
SELECT (current_max_unique_identifier + 1) INTO l_po_num
FROM po_unique_identifier_control
WHERE table_name = table_name_p
FOR UPDATE OF current_max_unique_identifier NOWAIT;
UPDATE po_unique_identifier_control
SET current_max_unique_identifier =
current_max_unique_identifier + 1
WHERE table_name= table_name_p;
SELECT (current_max_unique_identifier + 1) INTO l_po_num
FROM po_unique_identifier_cont_all
WHERE table_name = table_name_p
AND org_id = org_id_p
FOR UPDATE OF current_max_unique_identifier NOWAIT;
UPDATE po_unique_identifier_cont_all
SET current_max_unique_identifier =
current_max_unique_identifier + 1
WHERE table_name= table_name_p
AND org_id = org_id_p;
PROCEDURE update_gms_distributions(p_origDistIds IN PO_TBL_NUMBER,
p_tempDistIds IN PO_TBL_NUMBER) IS
l_forGMSReqDistributionId po_req_distributions_all.distribution_id%type;
select orig.distribution_id, workingCopy.project_id, workingCopy.task_id,
workingCopy.req_award_id, workingCopy.expenditure_organization_id,
workingCopy.expenditure_type, workingCopy.expenditure_item_date
into l_forGMSReqDistributionId, l_forGMSProjectId, l_forGMSTaskId,
l_forGMSAwardId, l_forGMSExpenditureOrgId,
l_forGMSExpenditureType, l_forGMSExpenditureDate
from po_req_distributions orig,
po_req_distributions workingCopy
where orig.distribution_id = p_origDistIds(eachDistribution)
and workingCopy.distribution_id = p_tempDistIds(eachDistribution)
and ( nvl(orig.project_id,-999) <> nvl(workingCopy.project_id,-999)
OR nvl(orig.task_id,-999) <> nvl(workingCopy.task_id,-999)
OR nvl(orig.expenditure_type,'ZZ') <> nvl(workingCopy.expenditure_type,'ZZ')
OR nvl(orig.expenditure_organization_id,-999) <> nvl(workingCopy.expenditure_organization_id,-999)
OR nvl(orig.req_award_id,-999) <> nvl(workingCopy.req_award_id,-999)
OR nvl(orig.expenditure_item_date,sysdate) <> nvl(workingCopy.expenditure_item_date,sysdate)
);
GMS_POR_API.when_update_line( X_distribution_id => l_forGMSReqDistributionId,
X_project_id => l_forGMSProjectId,
X_task_id => l_forGMSTaskId,
X_award_id => l_forGMSAwardId,
X_expenditure_type => l_forGMSExpenditureType,
X_expenditure_item_date => l_forGMSExpenditureDate,
X_status => l_GMSAPIStatus
);
END update_gms_distributions;
PROCEDURE update_notif_header_attr(p_header_id IN NUMBER) IS
l_wf_itemtype PO_REQUISITION_HEADERS_ALL.wf_item_type%TYPE;
l_procedure_name CONSTANT VARCHAR2(30) := 'update_notif_header_attr';
select item_type, item_key
from wf_items
where parent_item_type = l_wf_itemtype
and parent_item_key = l_wf_itemkey;
select notification_id
from wf_item_activity_statuses
where item_type = l_wf_itemtype
and item_key = l_wf_itemkey
and notification_id is not null;
SELECT wf_item_type, wf_item_key
INTO l_wf_itemtype, l_wf_itemkey
FROM PO_REQUISITION_HEADERS_ALL
WHERE REQUISITION_HEADER_ID = p_header_id;
l_log_msg := 'Error in update_notif_header_attr... : SQLERRM= ' ||
SQLERRM || ' : Progress= ' || l_progress;
END update_notif_header_attr;
SELECT segment1, authorization_status, contractor_requisition_flag
INTO l_origReqNumber, l_status, l_contractor_requisition_flag
FROM po_requisition_headers_all
WHERE requisition_header_id = p_origHeaderId;
UPDATE po_requisition_lines_all
SET labor_req_line_id = (SELECT labor_req_line_id
FROM po_requisition_lines_all
WHERE requisition_line_id = p_origLineIds(idx))
WHERE requisition_line_id = p_tempLineIds(idx)
AND labor_req_line_id is not null;
update_gms_distributions(p_origDistIds,p_tempDistIds);
delete_requisition_internal(p_origHeaderId, TRUE);
UPDATE po_requisition_headers_all
SET requisition_header_id = p_origHeaderId,
segment1 = l_origReqNumber,
authorization_status = l_status
WHERE requisition_header_id = p_tempHeaderId;
UPDATE po_requisition_lines_all
SET requisition_header_id = p_origHeaderId
WHERE requisition_header_id = p_tempHeaderId;
UPDATE po_requisition_lines_all
SET requisition_line_id = p_origLineIds(idx)
WHERE requisition_line_id = p_tempLineIds(idx);
UPDATE po_requisition_lines_all
SET labor_req_line_id = p_origLineIds(idx)
WHERE labor_req_line_id = p_tempLineIds(idx)
AND contractor_requisition_flag = 'Y';
UPDATE po_req_distributions_all
SET requisition_line_id = p_origLineIds(idx)
WHERE requisition_line_id = p_tempLineIds(idx);
UPDATE po_req_distributions_all
SET distribution_id = p_origDistIds(idx),
encumbered_flag='N', encumbered_amount=0
WHERE distribution_id = p_tempDistIds(idx);
UPDATE fnd_attached_documents
SET pk1_value = to_char(p_origLineIds(idx))
WHERE pk1_value = to_char(p_tempLineIds(idx))
AND entity_name = 'REQ_LINES';
UPDATE fnd_attached_documents
SET pk1_value = to_char(p_origHeaderId)
WHERE pk1_value = to_char(p_tempHeaderId)
AND entity_name = 'REQ_HEADERS';
UPDATE por_template_info
SET requisition_line_id = p_origLineIds(idx)
WHERE requisition_line_id = p_tempLineIds(idx);
UPDATE por_item_attribute_values
SET requisition_line_id = p_origLineIds(idx),
requisition_header_id = p_origHeaderId
WHERE requisition_line_id = p_tempLineIds(idx);
UPDATE po_requisition_suppliers
SET requisition_line_id = p_origLineIds(idx)
WHERE requisition_line_id = p_tempLineIds(idx);
UPDATE po_requisition_suppliers
SET requisition_supplier_id = p_origReqSupplierIds(idx)
WHERE requisition_supplier_id = p_tempReqSupplierIds(idx);
UPDATE po_price_differentials
SET entity_id = p_origLineIds(idx)
WHERE entity_id = p_tempLineIds(idx)
AND entity_type = 'REQ LINE';
UPDATE po_price_differentials
SET price_differential_id = p_origPriceDiffIds(idx)
WHERE price_differential_id = p_tempPriceDiffIds(idx);
UPDATE po_approval_list_headers
SET document_id = p_origHeaderId
WHERE document_id = p_tempHeaderId
AND document_type = 'REQUISITION';
update_notif_header_attr(p_origHeaderId);
UPDATE PO_REQUISITION_HEADERS_ALL
SET CONTRACTOR_STATUS = 'ASSIGNED'
WHERE REQUISITION_HEADER_ID = req_Header_Id
AND CONTRACTOR_STATUS = 'PENDING';
PO_WF_DEBUG_PKG.insert_debug(X_WF_ITEM_TYPE, X_WF_ITEM_KEY,
'ERROR while running wf_engine.CompleteActivity:' || SQLERRM);
/* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(X_WF_ITEM_TYPE, X_WF_ITEM_KEY,
'AFTER wf_engine.CompleteActivity');
/* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(X_WF_ITEM_TYPE, X_WF_ITEM_KEY,
'X_AUTHORIZATION_STATUS = IN PROCESS');
update po_requisition_headers_all
set WF_ITEM_TYPE = NULL, WF_ITEM_KEY = NULL
where REQUISITION_HEADER_ID = req_Header_Id;
SELECT authorization_status, supplier_notified_flag,
contractor_requisition_flag, wf_item_key, wf_item_type,
type_lookup_code
INTO X_AUTHORIZATION_STATUS, X_SUPPL_NOTIFIED_FLAG,
X_CONTRACTOR_REQ_FLAG, X_WF_ITEM_KEY, X_WF_ITEM_TYPE,
p_document_subtype
FROM PO_REQUISITION_HEADERS_ALL
WHERE REQUISITION_HEADER_ID = req_Header_Id;
PO_WF_DEBUG_PKG.insert_debug(X_WF_ITEM_TYPE, X_WF_ITEM_KEY,
'X_AUTHORIZATION_STATUS, X_SUPPL_NOTIFIED_FLAG,
X_CONTRACTOR_REQ_FLAG, X_WF_ITEM_KEY, X_WF_ITEM_TYPE:' ||
X_AUTHORIZATION_STATUS || X_SUPPL_NOTIFIED_FLAG ||
X_CONTRACTOR_REQ_FLAG || X_WF_ITEM_KEY || X_WF_ITEM_TYPE);
SELECT
to_char(req_Header_Id) || '-' || to_char(PO_WF_ITEMKEY_S.nextval)
INTO p_item_key
FROM sys.dual;
SELECT
wf_approval_itemtype,
wf_approval_process
INTO
p_item_type,
p_workflow_process
FROM po_document_types
WHERE document_type_code = p_document_type
AND document_subtype = p_document_subtype ;
SELECT action_code, employee_id
FROM PO_ACTION_HISTORY
WHERE object_type_code = 'REQUISITION'
AND object_id = p_headerId
ORDER BY sequence_num desc;
select item_key
from wf_items item
where item.item_type = itemtype
AND item.parent_item_key = itemkey;
SELECT wf_item_type, wf_item_key, type_lookup_code
INTO l_item_type, l_item_key, l_doc_sub_type
FROM po_requisition_headers_all
WHERE requisition_header_id= p_headerId;
UPDATE po_requisition_headers_all
SET wf_item_type = NULL,
wf_item_key = NULL,
authorization_status = 'INCOMPLETE'
WHERE requisition_header_id = p_headerId;
UPDATE po_requisition_lines_all
set reqs_in_pool_flag= NULL
where requisition_header_id = p_headerId;
SELECT NVL(activity_status, 'N')
INTO l_activity_status
FROM wf_item_activity_statuses wfs,
wf_items wfi,
wf_process_activities wfa
WHERE wfi.item_type = l_item_type
and wfi.item_key = l_item_key
and wfa.activity_name = wfi.root_activity
and wfs.process_activity = wfa.instance_id
and wfi.item_type = wfs.item_type
and wfi.item_key = wfs.item_key;
SELECT NVL(activity_status, 'N')
INTO l_activity_status
FROM wf_item_activity_statuses wfs,
wf_items wfi,
wf_process_activities wfa
WHERE wfi.item_type = l_item_type
and wfi.item_key = c1_rec.item_key
and wfa.activity_name = wfi.root_activity
and wfs.process_activity = wfa.instance_id
and wfi.item_type = wfs.item_type
and wfi.item_key = wfs.item_key;
po_forward_sv1.update_action_history (p_headerId,
'REQUISITION',
l_pending_emp_id,
'NO ACTION',
NULL,
fnd_global.user_id,
fnd_global.login_id);
po_forward_sv1.insert_action_history (p_headerId,
'REQUISITION',
l_doc_sub_type,
NULL,
'WITHDRAW',
sysdate,
fnd_global.employee_id,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
NULL,
fnd_global.user_id,
fnd_global.login_id);
delete from PO_CHANGE_REQUESTS
where document_header_id = p_headerId
and request_status = 'SYSTEMSAVE'
and initiator = 'REQUESTER';
l_update_header_required BOOLEAN;
SELECT requisition_header_id, authorization_status, description
FROM po_requisition_headers_all
WHERE last_updated_by = p_user_id
AND active_shopping_cart_flag = 'Y';
SELECT item_description
FROM po_requisition_lines_all
WHERE requisition_header_id = l_active_req_header_id
ORDER BY line_num;
l_update_header_required := FALSE;
l_update_header_required := TRUE;
l_update_header_required := TRUE;
IF (l_update_header_required ) THEN
l_progress := '080';
UPDATE po_requisition_headers_all
SET description = l_req_description,
authorization_status = l_authorization_status
WHERE requisition_header_id = l_active_req_header_id;
update po_requisition_headers_all
set active_shopping_cart_flag = null
where last_updated_by = p_user_id
and active_shopping_cart_flag = 'Y';
DELETE from po_encumbrance_gt;
INSERT INTO po_encumbrance_gt(
adjustment_status,
distribution_type,
header_id,
line_id,
line_location_id,
distribution_id,
segment1,
line_num,
distribution_num,
reference_num,
item_description,
budget_account_id,
gl_encumbered_date,
value_basis,
encumbered_amount,
amount_ordered,
quantity_ordered,
quantity_delivered,
quantity_on_line,
unit_meas_lookup_code,
item_id,
price,
nonrecoverable_tax,
transferred_to_oe_flag,
source_type_code,
cancel_flag,
closed_code,
encumbered_flag,
prevent_encumbrance_flag,
project_id,
task_id,
award_num,
expenditure_type,
expenditure_organization_id,
expenditure_item_date,
vendor_id,
row_index
)
VALUES (
PO_DOCUMENT_FUNDS_GRP.g_adjustment_status_NEW,
PO_DOCUMENT_FUNDS_GRP.g_dist_type_REQUISITION,
p_dist_data.requisition_header_id(i),
p_dist_data.requisition_line_id(i),
p_dist_data.line_location_id(i),
p_dist_data.distribution_id(i),
p_dist_data.segment1(i),
p_dist_data.line_num(i),
p_dist_data.distribution_num(i),
p_dist_data.reference_num(i),
p_dist_data.item_description(i),
p_dist_data.budget_account_id(i),
p_dist_data.gl_encumbered_date(i),
p_dist_data.order_type_lookup_code(i),
p_dist_data.encumbered_amount(i),
p_dist_data.req_line_amount(i),
p_dist_data.req_line_quantity(i),
p_dist_data.quantity_delivered(i),
p_dist_data.quantity(i),
p_dist_data.unit_meas_lookup_code(i),
p_dist_data.item_id(i),
p_dist_data.unit_price(i),
p_dist_data.nonrecoverable_tax(i),
p_dist_data.transferred_to_oe_flag(i),
p_dist_data.source_type_code(i),
p_dist_data.cancel_flag(i),
p_dist_data.closed_code(i),
p_dist_data.encumbered_flag(i),
p_dist_data.prevent_encumbrance_flag(i),
p_dist_data.project_id(i),
p_dist_data.task_id(i),
p_dist_data.award_num(i),
p_dist_data.expenditure_type(i),
p_dist_data.expenditure_organization_id(i),
p_dist_data.expenditure_item_date(i),
p_dist_data.vendor_id(i),
p_dist_data.row_index(i)
);
SELECT requisition_header_id INTO l_header_id
FROM po_requisition_lines_all
WHERE requisition_line_id = p_doc_level_id_tbl(1);
UPDATE po_requisition_headers_all
SET authorization_status = 'APPROVED'
WHERE requisition_header_id = l_header_id
AND authorization_status = 'PRE-APPROVED';
SELECT requisition_header_id INTO l_header_id
FROM po_requisition_lines_all
WHERE requisition_line_id = p_doc_level_id_tbl(1);
UPDATE po_requisition_headers_all
SET authorization_status = 'PRE-APPROVED'
WHERE requisition_header_id = l_header_id
AND authorization_status = 'APPROVED';
select stat.notification_id
from wf_item_activity_statuses stat,
wf_items item
where stat.item_type = itemtype
AND item.item_type = itemtype
AND item.parent_item_key = itemkey
AND stat.item_key = item.item_key
AND stat.activity_status = 'NOTIFIED'
UNION
select notification_id
from wf_item_activity_statuses
where item_type = itemtype
AND item_key = itemkey
AND activity_status = 'NOTIFIED'
AND notification_id is NOT NULL;
select wf_item_type, wf_item_key
into itype, ikey
from po_requisition_headers
where requisition_header_id = p_headerId;
l_last_updated_by po_tbl_number;
l_last_update_date po_tbl_date;
l_last_update_login po_tbl_number;
SELECT * FROM POR_TEMPLATE_INFO WHERE REQUISITION_LINE_ID = p_old_reqline_id;
l_last_updated_by (counter),
l_last_update_date (counter),
l_last_update_login (counter),
l_attribute1 (counter),
l_attribute2 (counter),
l_attribute3 (counter),
l_attribute4 (counter),
l_attribute5 (counter),
l_attribute6 (counter),
l_attribute7 (counter),
l_attribute8 (counter),
l_attribute9 (counter),
l_attribute10(counter),
l_attribute11(counter),
l_attribute12(counter),
l_attribute13(counter),
l_attribute14(counter),
l_attribute15(counter);
l_last_updated_by ,
l_last_update_date,
l_last_update_login,
l_attribute1,
l_attribute2,
l_attribute3,
l_attribute4,
l_attribute5,
l_attribute6,
l_attribute7,
l_attribute8,
l_attribute9,
l_attribute10,
l_attribute11,
l_attribute12,
l_attribute13,
l_attribute14,
l_attribute15;
SELECT COUNT(*) INTO l_info_templ_count
FROM POR_TEMPLATES_V PTV,
POR_TEMPLATE_ATTRIBUTES_B PTAB
WHERE PTV.TEMPLATE_CODE = PTAB.TEMPLATE_CODE
AND PTAB.ATTRIBUTE_CODE = l_attribute_code (i)
AND PTAB.NODE_DISPLAY_FLAG = 'Y'
AND PTAB.TEMPLATE_CODE = PTV.TEMPLATE_CODE
AND PTV.TEMPLATE_CODE IN
(
SELECT ASSOC.REGION_CODE
FROM POR_TEMPLATE_ASSOC ASSOC
WHERE
--check item association
(ASSOC.ITEM_OR_CATEGORY_FLAG = 'I'
AND ASSOC.ITEM_OR_CATEGORY_ID=p_item_id)
--check category associtation
OR (ASSOC.ITEM_OR_CATEGORY_FLAG = 'C'
AND ASSOC.ITEM_OR_CATEGORY_ID = p_category_id )
OR (ASSOC.ITEM_OR_CATEGORY_FLAG = 'N'
AND ASSOC.ITEM_OR_CATEGORY_ID = p_category_id)) ;
INSERT INTO POR_TEMPLATE_INFO
(
REQUISITION_LINE_ID,
ATTRIBUTE_CODE,
ATTRIBUTE_LABEL_LONG,
ATTRIBUTE_VALUE,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN,
ATTRIBUTE1,
ATTRIBUTE2,
ATTRIBUTE3,
ATTRIBUTE4,
ATTRIBUTE5,
ATTRIBUTE6,
ATTRIBUTE7,
ATTRIBUTE8,
ATTRIBUTE9,
ATTRIBUTE10,
ATTRIBUTE11,
ATTRIBUTE12,
ATTRIBUTE13,
ATTRIBUTE14,
ATTRIBUTE15) VALUES
(
p_new_reqline_id,
l_attribute_code (i),
l_attribute_label_long (i),
l_attribute_value (i),
l_created_by (i),
SYSDATE,
l_last_updated_by (i),
SYSDATE,
l_last_update_login (i),
l_attribute1 (i),
l_attribute2 (i),
l_attribute3 (i),
l_attribute4 (i),
l_attribute5 (i),
l_attribute6 (i),
l_attribute7 (i),
l_attribute8 (i),
l_attribute9 (i),
l_attribute10(i),
l_attribute11(i),
l_attribute12(i),
l_attribute13(i),
l_attribute14(i),
l_attribute15(i) );
PROCEDURE update_attachment_to_standard(p_req_header_id in NUMBER) IS
l_progress VARCHAR2(4) := '000';
l_api_name CONSTANT VARCHAR2(100) := 'update_attachment_to_standard';
update fnd_documents set usage_type = 'S' where document_id in(
select document_id from fnd_attached_documents where entity_name = 'REQ_HEADERS'
and pk1_value = p_req_header_id
union
select document_id from fnd_attached_documents where entity_name = 'REQ_LINES'
and pk1_value in
(select requisition_line_id from po_requisition_lines_all prl, po_requisition_headers_all prh where
prl.requisition_header_id = prh.requisition_header_id and prh.requisition_header_id=p_req_header_id));
'Exception at POR_UTL_PKG.update_attachment_to_standard(p_req_header_id:'
|| p_req_header_id || ') ' || l_progress || ' SQLERRM:' || SQLERRM);
END update_attachment_to_standard;