The following lines contain the word 'select', 'insert', 'update' or 'delete':
Select requestor,user_name
from psb_budget_revisions pbr,
fnd_user fu
where budget_revision_id = l_budget_revision_id
and requestor = user_id;
Select justification
from psb_budget_revisions
where budget_revision_id = l_budget_revision_id;
SELECT worksheet_id INTO l_budget_revision_id
FROM psb_workflow_processes
WHERE item_key = p_item_key
AND document_type = 'BR';
SELECT comments INTO l_comments
FROM psb_ws_submit_comments
WHERE operation_id = p_operation_id;
SELECT budget_group_name
INTO
l_budget_group_name
FROM psb_budget_revisions_v
WHERE budget_revision_id = l_budget_revision_id;
| PROCEDURE Select_Operation |
+===========================================================================*/
--
-- The API selects the operation to be performed on the Revision. The
-- appropriate branch on the process is selected accordingly.
--
PROCEDURE Select_Operation
(
itemtype IN VARCHAR2,
itemkey IN VARCHAR2,
actid IN NUMBER,
funcmode IN VARCHAR2,
result OUT NOCOPY VARCHAR2
)
IS
--
l_budget_revision_id psb_budget_revisions.budget_revision_id%TYPE ;
wf_core.context('PSBBR', 'Select_Operation',
itemtype, itemkey, to_char(actid), funcmode);
END Select_Operation ;
SELECT budget_group_name INTO g_budgetgroup_name
FROM psb_budget_revisions_v
WHERE budget_revision_id = l_budget_revision_id ;
SELECT NVL(freeze_flag, 'N') INTO l_current_freeze_flag
FROM psb_budget_revisions
WHERE budget_revision_id = l_budget_revisions_tab(i) ;
SELECT budget_group_id ,
budget_group_name
INTO
l_budget_group_id ,
g_budgetgroup_name
FROM psb_budget_revisions_v
WHERE budget_revision_id = l_budget_revisions_tab(i) ;
SELECT wf_role_name
FROM psb_budget_groups bg ,
psb_budget_group_resp resp
WHERE resp.responsibility_type = 'N'
AND bg.budget_group_id = l_budget_group_id
AND bg.budget_group_id = resp.budget_group_id
)
LOOP
--
l_notification_id :=
WF_Notification.SendGroup
( role => l_role_rec.wf_role_name ,
msg_type => 'PSBBR' ,
msg_name => 'NOTIFY_OF_FREEZE_COMPLETION' ,
context => itemtype ||':'|| itemkey ||':'|| actid ,
callback => 'PSB_Submit_Revision_PVT.Callback'
) ;
Select global_budget_revision
from psb_budget_revisions
where budget_revision_id = l_budget_revision_id;*/
| PROCEDURE Update_View_Line_Flag |
+===========================================================================*/
--
-- The API updates view_line flag for the parent revisions of the submittted
-- revision.
--
PROCEDURE Update_View_Line_Flag
(
itemtype IN VARCHAR2,
itemkey IN VARCHAR2,
actid IN NUMBER,
funcmode IN VARCHAR2,
result OUT NOCOPY VARCHAR2
)
IS
--
l_return_status VARCHAR2(1) ;
UPDATE psb_budget_revision_lines
SET view_line_flag = 'Y'
WHERE budget_revision_id = l_budget_revisions_tab(i) ;
UPDATE psb_budget_revision_pos_lines
SET view_line_flag = 'Y'
WHERE budget_revision_id = l_budget_revisions_tab(i) ;
wf_core.context('PSBBR', 'Update_View_Line_Flag',
PSB_Message_S.Get_Error_Stack(l_msg_count) );
END Update_View_Line_Flag;
SELECT br.approval_override_by, wr.name,wr.display_name
INTO
l_override_approver , l_approver_name,l_approver_display_name
FROM psb_budget_revisions br,
wf_roles wr
WHERE br.budget_revision_id = l_budget_revision_id
AND br.approval_orig_system = orig_system(+)
AND br.approval_override_by = orig_system_id(+) ;
| PROCEDURE Update_Revisions_Status |
+===========================================================================*/
--
-- The API updates submission related information in the submitted revision
-- and all its lower revisions.
--
PROCEDURE Update_Revisions_Status
(
itemtype IN VARCHAR2,
itemkey IN VARCHAR2,
actid IN NUMBER,
funcmode IN VARCHAR2,
result OUT NOCOPY VARCHAR2
)
IS
--
l_return_status VARCHAR2(1) ;
wf_core.context('PSBBR', 'Update_Revisions_Status',
PSB_Message_S.Get_Error_Stack(l_msg_count) );
END Update_Revisions_Status ;
| PROCEDURE Update_Baseline_Values |
+===========================================================================*/
--
-- This API updates the base value of the position ftes, position costs and
-- position account distributions after the revision is approved.
--
PROCEDURE Update_Baseline_Values
(
itemtype IN VARCHAR2,
itemkey IN VARCHAR2,
actid IN NUMBER,
funcmode IN VARCHAR2,
result OUT NOCOPY VARCHAR2
)
IS
--
l_return_status VARCHAR2(1) ;
Select global_budget_revision,
currency_code -- Bug 3029168
from psb_budget_revisions
where budget_revision_id = l_budget_revision_id;
PSB_Budget_Revisions_Pvt.Update_Baseline_Values
(
p_api_version => 1.0 ,
p_init_msg_list => FND_API.G_FALSE,
p_commit => FND_API.G_FALSE,
p_validation_level => FND_API.G_VALID_LEVEL_NONE,
p_return_status => l_return_status,
p_msg_count => l_msg_count,
p_msg_data => l_msg_data ,
--
p_budget_revision_id => l_budget_revision_id
);
wf_core.context('PSBBR', 'Update_Baseline_Values',
PSB_Message_S.Get_Error_Stack(l_msg_count) );
END Update_Baseline_Values ;
| PROCEDURE Funds_Reservation_Update |
+===========================================================================*/
--
-- This API does a funds reservation for each of the accounts affected
-- by the current budget revision
--
PROCEDURE Funds_Reservation_Update
(
itemtype IN VARCHAR2,
itemkey IN VARCHAR2,
actid IN NUMBER,
funcmode IN VARCHAR2,
result OUT NOCOPY VARCHAR2
)
IS
--
l_return_status VARCHAR2(1) ;
SELECT currency_code INTO l_currency_code
FROM psb_budget_revisions
WHERE budget_revision_id = l_budget_revision_id; -- Bug 3029168
wf_core.context('PSBBR', 'Funds_Reservation_Update',
PSB_Message_S.Get_Error_Stack(l_msg_count) );
END Funds_Reservation_Update ;
| PROCEDURE Select_Approvers |
+===========================================================================*/
--
-- The API finds Approvers for the REvision and then sends notifications
-- to them.
--
PROCEDURE Select_Approvers
(
itemtype IN VARCHAR2,
itemkey IN VARCHAR2,
actid IN NUMBER,
funcmode IN VARCHAR2,
result OUT NOCOPY VARCHAR2
)
IS
--
l_budget_revision_id psb_budget_revisions.budget_revision_id%TYPE ;
SELECT nvl(bg.parent_budget_group_id,bg.budget_group_id)
INTO
l_parent_budget_group_id
FROM psb_budget_revisions br,
psb_budget_groups bg
WHERE br.budget_revision_id = l_budget_revision_id
AND br.budget_group_id = bg.budget_group_id ;
SELECT wf_role_name
FROM psb_budget_groups bg ,
psb_budget_group_resp resp
WHERE bg.budget_group_id = l_parent_budget_group_id
AND resp.responsibility_type = 'N'
AND bg.budget_group_id = resp.budget_group_id
)
LOOP
--
l_notification_group_id :=
WF_Notification.SendGroup
(
role => l_role_rec.wf_role_name ,
msg_type => 'PSBBR' ,
msg_name => 'NOTIFY_APPROVERS_OF_SUBMISSION' ,
context => itemtype ||':'|| itemkey || ':'|| actid ,
callback => 'PSB_Submit_Revision_PVT.Callback'
) ;
wf_core.context('PSBBR', 'Select_Approvers',
itemtype, itemkey, to_char(actid), funcmode);
END Select_Approvers ;
SELECT nvl(bg.parent_budget_group_id,bg.budget_group_id)
INTO
l_parent_budget_group_id
FROM psb_budget_revisions br,
psb_budget_groups bg
WHERE br.budget_revision_id = l_budget_revision_id
AND br.budget_group_id = bg.budget_group_id ;
SELECT count(*)
INTO g_num_approvers
FROM psb_budget_group_resp resp
WHERE resp.budget_group_id in
(select budget_group_id from psb_budget_groups bg
start with bg.budget_group_id = l_parent_budget_group_id
connect by prior bg.parent_budget_group_id = bg.budget_group_id)
AND resp.responsibility_type = 'N';
SELECT nvl(bg.parent_budget_group_id,bg.budget_group_id)
INTO l_parent_budget_group_id
FROM psb_budget_revisions br,
psb_budget_groups bg
WHERE br.budget_revision_id = l_budget_revision_id
AND br.budget_group_id = bg.budget_group_id;
SELECT bg.bglevel ,
resp.budget_group_resp_id ,
resp.wf_role_name ,
wfr.name name ,
wfr.display_name display_name
FROM psb_budget_group_resp resp,
wf_roles wfr,
( SELECT level bglevel,
budget_group_id
FROM psb_budget_groups
START WITH budget_group_id = l_parent_budget_group_id CONNECT BY PRIOR parent_budget_group_id = budget_group_id
) bg
WHERE bg.budget_group_id = resp.budget_group_id
AND resp.responsibility_type = 'N'
AND wfr.orig_system = resp.wf_role_orig_system
AND wfr.orig_system_id = resp.wf_role_orig_system_id
ORDER BY 1,2
)
Loop
g_num_approvers := g_num_approvers + 1;
SELECT justification
FROM psb_budget_revisions
WHERE budget_revision_id = g_budget_revision_id;
SELECT worksheet_id INTO l_budget_revision_id
FROM psb_workflow_processes
WHERE item_key = p_item_key
AND document_type = 'BR';
SELECT budget_group_name
INTO l_budget_group_name
FROM psb_budget_revisions_v
WHERE budget_revision_id = l_budget_revision_id;