The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT worksheet_id ,
distribution_rule_id ,
distribution_instructions ,
distribution_option_flag
INTO
l_worksheet_id ,
l_distribution_rule_id ,
g_distribution_instructions ,
l_distribution_option_flag
FROM psb_ws_distributions
WHERE distribution_id = p_distribution_id ;
SELECT NVL( global_worksheet_id, l_worksheet_id ) ,
budget_calendar_id
INTO
l_global_worksheet_id ,
l_budget_calendar_id
FROM psb_worksheets
WHERE worksheet_id = l_worksheet_id ;
SELECT a.budget_group_id ,b.short_name short_name,
NVL( distribute_all_level_flag, 'N') distribute_all_level_flag,
NVL( download_flag, 'N') download_flag,
NVL( download_all_level_flag, 'N') download_all_level_flag
FROM psb_ws_distribution_rule_lines a, psb_budget_groups b
WHERE distribution_rule_id = l_distribution_rule_id
AND a.budget_group_id = b.budget_group_id
)
LOOP
Add_Debug_Info('download flag is ' || l_budget_groups_rec.download_flag );
SELECT budget_group_id, short_name short_name
FROM psb_budget_groups
WHERE budget_group_type = 'R'
AND effective_start_date <= PSB_WS_Acct1.g_startdate_pp
AND ((effective_end_date IS NULL)
OR
(effective_end_date >= PSB_WS_Acct1.g_enddate_cy))
START WITH budget_group_id = l_budget_groups_rec.budget_group_id
CONNECT BY PRIOR budget_group_id = parent_budget_group_id
)
LOOP
--
Create_Worksheet
( p_worksheet_id => l_worksheet_id,
p_global_worksheet_id => l_global_worksheet_id,
p_budget_group_id => l_child_bgs_rec.budget_group_id,
p_distribution_id => p_distribution_id,
p_created_worksheet_id => l_created_worksheet_id,
p_return_status => l_return_status
);
SELECT budget_group_id INTO l_budget_group_id
FROM psb_worksheets
WHERE worksheet_id = p_worksheet_id ;
SELECT min(wf_role_name) INTO l_wf_role_name
FROM psb_budget_groups bg ,
psb_budget_group_resp resp
WHERE bg.budget_group_id = l_budget_group_id
AND resp.responsibility_type = 'N'
AND bg.budget_group_id = resp.budget_group_id ;
SELECT psb_workflow_processes_s.nextval INTO l_item_key
FROM dual ;
INSERT INTO psb_workflow_processes
( item_key ,
process_type ,
worksheet_id ,
process_date,
document_type
)
VALUES
( l_item_key ,
p_operation_type ,
p_worksheet_id ,
SYSDATE,
'BP'
);
SELECT short_name
FROM psb_budget_groups
WHERE budget_group_id = p_budget_group_id;
SELECT worksheet_id
FROM psb_worksheets
WHERE global_worksheet_id = p_global_worksheet_id
AND budget_group_id = p_budget_group_id
AND worksheet_type = 'O' ;
SELECT child_worksheet_id
FROM psb_ws_distribution_details details, psb_ws_distributions distr
-- Bug No 2297742 Start
-- WHERE distr.worksheet_id = p_worksheet_id
WHERE distr.worksheet_id = details.worksheet_id
AND distr.distribution_id = p_distribution_id
-- AND distr.distribution_option_flag = 'W'
AND nvl(distr.distribution_option_flag, 'W') = 'W'
-- Bug No 2297742 End
AND global_worksheet_id = p_global_worksheet_id
AND child_budget_group_id = p_budget_group_id ;
SELECT wf_role_name, budget_group_resp_id
FROM psb_budget_groups bg ,
psb_budget_group_resp resp
WHERE bg.budget_group_id = p_budget_group_id
AND resp.responsibility_type = 'N'
AND bg.budget_group_id = resp.budget_group_id;
SELECT freeze_flag
FROM psb_worksheets
WHERE worksheet_id = l_child_worksheet_id ;
PSB_WS_Ops_Pvt.Update_Worksheet
(
p_api_version => 1.0 ,
p_init_msg_list => FND_API.G_TRUE,
p_commit => FND_API.G_FALSE,
p_validation_level => FND_API.G_VALID_LEVEL_FULL,
p_return_status => l_return_status,
p_msg_count => l_msg_count,
p_msg_data => l_msg_data,
--
p_source_worksheet_id => p_worksheet_id ,
p_target_worksheet_id => l_child_worksheet_id
);
INSERT INTO psb_ws_distribution_details
(
distribution_id ,
worksheet_id ,
global_worksheet_id ,
child_worksheet_id ,
child_budget_group_id ,
budget_group_resp_id
)
VALUES
( p_distribution_id ,
p_worksheet_id ,
p_global_worksheet_id ,
l_child_worksheet_id ,
p_budget_group_id ,
l_budget_group_resp_id
) ;
UPDATE psb_ws_distributions
SET distribution_date = g_current_date,
distributed_flag = 'Y',
last_update_date = g_current_date,
last_updated_by = g_current_user_id,
last_update_login = g_current_login_id
WHERE distribution_id = p_distribution_id ;
SELECT psb_workflow_processes_s.nextval INTO l_item_key
FROM dual ;
INSERT INTO psb_workflow_processes
( item_key ,
process_type ,
worksheet_id ,
process_date,
document_type
)
VALUES
( l_item_key ,
'DISTRIBUTE' ,
l_child_worksheet_id ,
SYSDATE,
'BP'
);
insert_if_new => TRUE ,
ccid => l_return_ccid ,
concat_segs => l_concat_segs ,
concat_ids => l_concat_ids ,
concat_descrs => l_concat_descrs ,
error_message => l_error_message ,
new_combination => l_new_combination
);
SELECT worksheet_id ,
distribution_rule_id ,
distribution_instructions
INTO
l_budget_revision_id ,
l_distribution_rule_id ,
g_distribution_instructions
FROM psb_ws_distributions
WHERE distribution_id = p_distribution_id
AND distribution_option_flag = 'R'; --for budget revision
SELECT NVL( global_budget_revision_id, l_budget_revision_id )
INTO l_global_budget_revision_id
FROM psb_budget_revisions
WHERE budget_revision_id = l_budget_revision_id ;
SELECT a.budget_group_id ,b.short_name short_name,
NVL( distribute_all_level_flag, 'N') distribute_all_level_flag,
NVL( download_flag, 'N') download_flag,
NVL( download_all_level_flag, 'N') download_all_level_flag
FROM psb_ws_distribution_rule_lines a, psb_budget_groups b
WHERE distribution_rule_id = l_distribution_rule_id
AND a.budget_group_id = b.budget_group_id
)
LOOP
Add_Debug_Info('download flag is ' || l_budget_groups_rec.download_flag );
SELECT budget_group_id, short_name short_name
FROM psb_budget_groups
WHERE budget_group_type = 'R'
START WITH budget_group_id = l_budget_groups_rec.budget_group_id
CONNECT BY PRIOR budget_group_id = parent_budget_group_id
)
LOOP
--
Distribute_Budget_Revision
( p_budget_revision_id => l_budget_revision_id,
p_global_budget_revision_id => l_global_budget_revision_id,
p_budget_group_id => l_child_bgs_rec.budget_group_id,
p_distribution_id => p_distribution_id,
p_created_budget_revision_id => l_created_budget_revision_id,
p_return_status => l_return_status
);
SELECT short_name
FROM psb_budget_groups
WHERE budget_group_id = p_budget_group_id;
SELECT budget_revision_id
FROM psb_budget_revisions
WHERE global_budget_revision_id = p_global_budget_revision_id
AND budget_group_id = p_budget_group_id ;
SELECT child_worksheet_id
FROM psb_ws_distribution_details details, psb_ws_distributions distr
WHERE distr.worksheet_id = p_budget_revision_id
AND distr.distribution_id = p_distribution_id
AND distr.distribution_option_flag = 'R'
AND global_worksheet_id = p_global_budget_revision_id
AND child_budget_group_id = p_budget_group_id;
SELECT revision_option_flag
FROM PSB_WS_DISTRIBUTIONS
WHERE distribution_id = p_distribution_id
AND distribution_option_flag = 'R';
SELECT wf_role_name, budget_group_resp_id
FROM psb_budget_groups bg ,
psb_budget_group_resp resp
WHERE bg.budget_group_id = p_budget_group_id
AND resp.responsibility_type = 'N'
AND bg.budget_group_id = resp.budget_group_id;
SELECT freeze_flag
FROM psb_budget_revisions
WHERE budget_revision_id = l_child_budget_revision_id;
PSB_Create_BR_Pvt.Update_Target_Budget_Revision
(
p_api_version => 1.0 ,
p_init_msg_list => FND_API.G_TRUE,
p_commit => FND_API.G_FALSE,
p_validation_level => FND_API.G_VALID_LEVEL_FULL,
p_return_status => l_return_status,
p_msg_count => l_msg_count,
p_msg_data => l_msg_data,
--
p_source_budget_revision_id => p_budget_revision_id ,
p_revision_option_flag => l_revision_option_flag,
p_target_budget_revision_id => l_child_budget_revision_id
);
INSERT INTO psb_ws_distribution_details
(
distribution_id ,
worksheet_id ,
global_worksheet_id ,
child_worksheet_id ,
child_budget_group_id ,
budget_group_resp_id
)
VALUES
( p_distribution_id ,
p_budget_revision_id ,
p_global_budget_revision_id ,
l_child_budget_revision_id ,
p_budget_group_id ,
l_budget_group_resp_id
) ;
UPDATE psb_ws_distributions
SET distribution_date = g_current_date,
distributed_flag = 'Y',
last_update_date = g_current_date,
last_updated_by = g_current_user_id,
last_update_login = g_current_login_id
WHERE distribution_id = p_distribution_id ;
SELECT psb_workflow_processes_s.nextval INTO l_item_key
FROM dual ;
INSERT INTO psb_workflow_processes
( item_key ,
process_type ,
worksheet_id ,
process_date ,
document_type
)
VALUES
( l_item_key ,
'DISTRIBUTE_REVISION' ,
l_child_budget_revision_id ,
SYSDATE,
'BR'
);
SELECT budget_group_id INTO l_budget_group_id
FROM psb_budget_revisions
WHERE budget_revision_id = p_budget_revision_id ;
SELECT min(wf_role_name) INTO l_wf_role_name
FROM psb_budget_groups bg ,
psb_budget_group_resp resp
WHERE bg.budget_group_id = l_budget_group_id
AND resp.responsibility_type = 'N'
AND bg.budget_group_id = resp.budget_group_id ;
SELECT psb_workflow_processes_s.nextval INTO l_item_key
FROM dual ;
INSERT INTO psb_workflow_processes
( item_key ,
process_type ,
worksheet_id ,
process_date,
document_type
)
VALUES
( l_item_key ,
p_operation_type ,
p_budget_revision_id ,
SYSDATE,
'BR'
);