[Home] [Help]
The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Insert_Approval
(p_request_id in number
,p_approver_id in number
,p_approval_status in varchar2
,p_approval_chain_phase in varchar2
,p_approval_id out nocopy number
);
PROCEDURE Update_Approval_Status
(p_approval_id in number
,p_chain_phase in varchar2
,p_approval_status in varchar2
);
PROCEDURE Update_Approval_Notify
(p_approval_id in number
,p_notification_id in number
,p_user_comment in varchar2
);
PROCEDURE Update_Request_Header_Status
(p_request_id in number
,p_status in varchar2
);
PROCEDURE Update_Request_Line_Status
(p_request_id in number
,p_status in varchar2
);
select book_type_code
,preparer_id
,requester_id
,responsibility_id
,request_type
,purpose
,status
,releasing_approver_id
,receiving_approver_id
into l_book_type_code
,l_preparer_id
,l_requester_id
,l_responsibility_id
,l_request_type
,l_purpose
,l_status
,l_releasing_approver_id
,l_receiving_approver_id
from ia_request_headers
where request_id=p_request_id;
select book_type_code
into l_dummy_text
from fa_book_controls
where book_type_code=l_book_type_code
and book_class='CORPORATE'
and rownum < 2;
select responsibility_id
into l_dummy
from fnd_responsibility
where responsibility_id=l_responsibility_id
and application_id=IA_WF_UTIL_PKG.GetApplicationID;
update ia_request_headers
set status = IA_WF_UTIL_PKG.HeaderStatusPendingApproval
,last_update_date = SYSDATE
,last_updated_by = nvl(to_number(FND_PROFILE.VALUE('USER_ID')),-1)
,last_update_login = nvl(to_number(FND_PROFILE.VALUE('LOGIN_ID')),-1)
where request_id = p_request_id;
update ia_request_details
set status = IA_WF_UTIL_PKG.LineStatusPending
,last_update_date = SYSDATE
,last_updated_by = nvl(to_number(FND_PROFILE.VALUE('USER_ID')),-1)
,last_update_login = nvl(to_number(FND_PROFILE.VALUE('LOGIN_ID')),-1)
where request_id = p_request_id;
FND_MESSAGE.set_name('IA', 'IA_HEADER_STATUS_UPDATE_ERROR'); -- Error: Unable to update the status for request id, REQUEST_ID
select 1
into l_dummy
from ia_request_headers
where request_id=p_request_id;
select max(approval_id)
into l_approval_id
from ia_request_approvals
where request_id=p_request_id
and status=IA_WF_UTIL_PKG.ApprovalStatusPendingApproval;
select *+ leading(grp_id_view) *
notification_id
,recipient_role
,original_recipient
into l_notification_id
,l_recipient_role
,l_original_recipient
from wf_notifications wfn ,
( select notification_id group_id
from wf_item_activity_statuses
where item_type = 'IAWF'
and item_key = p_request_id
) grp_id_view
where grp_id_view.group_id = wfn.group_id;
debugInfo := 'Update ia_approval_requests with the notification ID';
Update_Approval_Notify(p_approval_id => l_approval_id
,p_notification_id => l_notification_id
,p_user_comment => substr(p_comment,1,4000));
PROCEDURE Insert_Next_Approver
(itemtype in varchar2
,itemkey in varchar2
,actid in number
,funcmode in varchar2
,result out nocopy varchar2)
IS
l_error_message VARCHAR2(2000);
callingProgram VARCHAR2(80) := 'Insert_Next_Approver';
debugInfo := 'Insert into IA_REQUEST_APPROVALS table the next approver with status of Pending Approval';
Insert_Approval(p_request_id => l_request_id
,p_approver_id => l_approver_id
,p_approval_status => IA_WF_UTIL_PKG.ApprovalStatusPendingApproval
,p_approval_chain_phase => l_chain_phase
,p_approval_id => l_approval_id);
debugInfo := 'Insert into IA_APPROVERS_LIST_T';
END Insert_Next_Approver;
PROCEDURE Insert_Approval
(p_request_id in number
,p_approver_id in number
,p_approval_status in varchar2
,p_approval_chain_phase in varchar2
,p_approval_id out nocopy number
)
IS
debugInfo VARCHAR2(255) := NULL;
callingProgram VARCHAR2(80) := 'Insert_Approval';
select ia_request_approvals_s.nextval
into l_approval_id
from dual;
debugInfo := 'Insert into IA_REQUEST_APPROVALS';
insert into ia_request_approvals
(approval_id
,request_id
,approver_id
,status
,transaction_date
,approval_chain_phase
,created_by
,creation_date
,last_update_date
,last_updated_by
,last_update_login
)
values(l_approval_id
,p_request_id
,p_approver_id
,p_approval_status
,NULL
,p_approval_chain_phase
,nvl(to_number(FND_PROFILE.VALUE('USER_ID')),-1)
,sysdate
,sysdate
,nvl(to_number(FND_PROFILE.VALUE('USER_ID')),-1)
,nvl(to_number(FND_PROFILE.VALUE('LOGIN_ID')),-1)
);
END Insert_Approval;
debugInfo := 'Delete rows from IA_APPROVERS_LIST_T';
delete from ia_approvers_list_t
where request_id = p_request_id;
select ia_approvers_list_t_s.nextval
into l_list_id
from dual;
debugInfo := 'Insert into IA_APPROVERS_LIST_T';
insert into ia_approvers_list_t
(list_id
,request_id
,approver_id
,approval_order
,status
,approval_chain_phase
,created_by
,creation_date
,last_update_date
,last_updated_by
,last_update_login
)
values(l_list_id
,p_request_id
,l_approver_id
,l_approval_order
,IA_WF_UTIL_PKG.ApprovalStatusPendingApproval -- PENDING
,l_chain_phase
,nvl(to_number(FND_PROFILE.VALUE('USER_ID')),-1)
,sysdate
,sysdate
,nvl(to_number(FND_PROFILE.VALUE('USER_ID')),-1)
,nvl(to_number(FND_PROFILE.VALUE('LOGIN_ID')),-1)
);
PROCEDURE Update_Approval_Notify
(p_approval_id in number
,p_notification_id in number
,p_user_comment in varchar2
)
IS
debugInfo VARCHAR2(255) := NULL;
callingProgram VARCHAR2(80) := 'Update_Approval_Notify';
update ia_request_approvals
set notification_id = p_notification_id
,user_comment = p_user_comment
,last_update_date = SYSDATE
,last_updated_by = nvl(to_number(FND_PROFILE.VALUE('USER_ID')),-1)
,last_update_login = nvl(to_number(FND_PROFILE.VALUE('LOGIN_ID')),-1)
where approval_id = p_approval_id;
END Update_Approval_Notify;
PROCEDURE Update_Approval_Status
(p_approval_id in number
,p_chain_phase in varchar2
,p_approval_status in varchar2
)
IS
debugInfo VARCHAR2(255) := NULL;
callingProgram VARCHAR2(80) := 'Update_Approval_Status';
update ia_request_approvals
set status = p_approval_status
,approval_chain_phase = p_chain_phase
,transaction_date = SYSDATE
,last_update_date = SYSDATE
,last_updated_by = nvl(to_number(FND_PROFILE.VALUE('USER_ID')),-1)
,last_update_login = nvl(to_number(FND_PROFILE.VALUE('LOGIN_ID')),-1)
where approval_id = p_approval_id;
END Update_Approval_Status;
PROCEDURE Update_Request_Header_Status
(p_request_id in number
,p_status in varchar2
)
IS
debugInfo VARCHAR2(255) := NULL;
callingProgram VARCHAR2(80) := 'Update_Request_Header_Status';
update ia_request_headers
set status = p_status
,last_update_date = SYSDATE
,last_updated_by = nvl(to_number(FND_PROFILE.VALUE('USER_ID')),-1)
,last_update_login = nvl(to_number(FND_PROFILE.VALUE('LOGIN_ID')),-1)
where request_id = p_request_id;
END Update_Request_Header_Status;
PROCEDURE Update_Request_Line_Status
(p_request_id in number
,p_status in varchar2
)
IS
debugInfo VARCHAR2(255) := NULL;
callingProgram VARCHAR2(80) := 'Update_Request_Line_Status';
update ia_request_details
set status = p_status
,last_update_date = SYSDATE
,last_updated_by = nvl(to_number(FND_PROFILE.VALUE('USER_ID')),-1)
,last_update_login = nvl(to_number(FND_PROFILE.VALUE('LOGIN_ID')),-1)
where request_id = p_request_id
and status = IA_WF_UTIL_PKG.LineStatusPending;
END Update_Request_Line_Status;
Update_Approval_Notify(p_approval_id => l_approval_id
,p_notification_id => l_notification_id
,p_user_comment => l_user_comment);
debugInfo := 'Update Approval Status';
if (not IA_AME_REQUEST_PKG.UpdateApprovalStatus(RequestId => l_request_id
,ChainPhase => l_chain_phase
,Approver => tempApprover)) then
FND_MESSAGE.set_name('IA', 'IA_AME_UPDATE_STATUS_ERROR'); -- Error occurred when updating approval status in AME.
Update_Approval_Status(p_approval_id => l_approval_id
,p_chain_phase => l_chain_phase
,p_approval_status => IA_WF_UTIL_PKG.ApprovalStatusApproved);
tempDelegatee.api_insertion := AME_UTIL.apiInsertion;
debugInfo := 'Update AME Approval Status';
if (not IA_AME_REQUEST_PKG.UpdateApprovalStatus(RequestId => l_request_id
,ChainPhase => l_chain_phase
,Approver => tempApprover
,Forwardee => tempDelegatee)) then
FND_MESSAGE.set_name('IA', 'IA_AME_UPDATE_STATUS_ERROR'); -- Error occurred when updating approval status in Oracle Approval Management.
Update_Approval_Status(p_approval_id => l_approval_id
,p_chain_phase => l_chain_phase
,p_approval_status => IA_WF_UTIL_PKG.ApprovalStatusDelegated);
debugInfo := 'Update Approval Status';
if (not IA_AME_REQUEST_PKG.UpdateApprovalStatus(RequestId => l_request_id
,ChainPhase => l_chain_phase
,Approver => tempApprover)) then
FND_MESSAGE.set_name('IA', 'IA_AME_UPDATE_STATUS_ERROR'); -- Error occurred when updating approval status in Oracle Approvals Management.
Update_Approval_Status(p_approval_id => l_approval_id
,p_chain_phase => l_chain_phase
,p_approval_status => IA_WF_UTIL_PKG.ApprovalStatusRejected);
Update_Request_Header_Status(p_request_id => l_request_id
,p_status => IA_WF_UTIL_PKG.HeaderStatusRejected);
Update_Request_Line_Status(p_request_id => l_request_id
,p_status => IA_WF_UTIL_PKG.LineStatusRejected);
Update_Approval_Status(p_approval_id => l_approval_id
,p_chain_phase => l_chain_phase
,p_approval_status => IA_WF_UTIL_PKG.ApprovalStatusRejected);
Update_Request_Header_Status(p_request_id => l_request_id
,p_status => IA_WF_UTIL_PKG.HeaderStatusRejected);
PROCEDURE Update_ApprovalStatus_To_Final
(itemtype in varchar2
,itemkey in varchar2
,actid in number
,funcmode in varchar2
,result out nocopy varchar2)
IS
debugInfo VARCHAR2(255) := NULL;
callingProgram VARCHAR2(80) := 'Update_ApprovalStatus_To_Final';
debugInfo := 'Update Approval Status to Finally Approved';
Update_Approval_Status(p_approval_id => l_approval_id
,p_chain_phase => l_chain_phase
,p_approval_status => IA_WF_UTIL_PKG.ApprovalStatusFinallyApproved);
debugInfo := 'Update Header Status to Approved';
Update_Request_Header_Status(p_request_id => l_request_id
,p_status => IA_WF_UTIL_PKG.HeaderStatusApproved);
END Update_ApprovalStatus_To_Final;
PROCEDURE Update_LineStatus_To_OnReview
(itemtype in varchar2
,itemkey in varchar2
,actid in number
,funcmode in varchar2
,result out nocopy varchar2)
IS
l_request_id number(15);
callingProgram VARCHAR2(80) := 'Update_LineStatus_To_Post';
debugInfo := 'Update request line status to ON_REVIEW';
Update_Request_Line_Status(p_request_id => l_request_id
,p_status => IA_WF_UTIL_PKG.LineStatusOnReview);
END Update_LineStatus_To_OnReview;
PROCEDURE Update_LineStatus_To_Post
(itemtype in varchar2
,itemkey in varchar2
,actid in number
,funcmode in varchar2
,result out nocopy varchar2)
IS
l_request_id number(15);
callingProgram VARCHAR2(80) := 'Update_LineStatus_To_Post';
debugInfo := 'Update request line status to POST';
Update_Request_Line_Status(p_request_id => l_request_id
,p_status => IA_WF_UTIL_PKG.LineStatusPost);
debugInfo := 'Update Header Status to Post';
Update_Request_Header_Status(p_request_id => l_request_id
,p_status => IA_WF_UTIL_PKG.HeaderStatusPost);
END Update_LineStatus_To_Post;