[Home] [Help]
115: -------------------------------------------------------------------------------------------------- */
116: Procedure Lock_budget_versions(p_packet_id number) is
117: Cursor c_lock_bvid is
118: select budget_version_id
119: from gms_budget_versions
120: where budget_version_id in
121: (select budget_version_id from gms_bc_packets_bvid)
122: for update;
123: Begin
121: (select budget_version_id from gms_bc_packets_bvid)
122: for update;
123: Begin
124: for x in c_lock_bvid loop
125: null; -- Dummy code to lock gms_budget_versions
126: end loop;
127: End Lock_budget_versions;
128:
129: /* -----------------------------------------------------------------------------------------------
3834: x_boundary_code,
3835: x_time_phased_type_code,
3836: x_categorization_code,
3837: x_resource_list_id
3838: FROM gms_budget_versions pb, pa_budget_entry_methods pbm, gms_awards ga
3839: WHERE ga.award_id = pb.award_id
3840: AND pb.project_id = x_project_id
3841: AND pb.award_id = x_award_id
3842: AND pb.budget_entry_method_code = pbm.budget_entry_method_code
4128: UPDATE gms_bc_packets bc
4129: SET (bc.bud_task_id, bc.top_task_id) =
4130: (SELECT DECODE (bem.entry_level_code, 'P', 0, 'L', bc.task_id, t.top_task_id),
4131: DECODE (bem.entry_level_code, 'P', 0, t.top_task_id)
4132: FROM pa_budget_entry_methods bem, gms_budget_versions bv,
4133: pa_tasks t
4134: WHERE bv.budget_version_id = bc.budget_version_id
4135: AND bv.budget_entry_method_code = bem.budget_entry_method_code
4136: AND bem.entry_level_code IN ('P', 'L', 'T')
4139: AND bc.status_code = 'P'
4140: AND bc.bud_task_id IS NULL
4141: AND nvl(bc.burden_adjustment_flag,'N') = 'N' -- 3389292
4142: AND EXISTS ( SELECT 1
4143: FROM pa_budget_entry_methods bem1, gms_budget_versions bv1
4144: WHERE bv1.budget_version_id = bc.budget_version_id
4145: AND bv1.budget_entry_method_code = bem1.budget_entry_method_code
4146: AND bem1.entry_level_code IN ('P', 'L', 'T'));
4147:
4157: UPDATE gms_bc_packets bc
4158: SET (bc.bud_task_id, bc.top_task_id) =
4159: (SELECT t.task_id,
4160: t.top_task_id
4161: FROM pa_budget_entry_methods bem, gms_budget_versions bv,
4162: pa_tasks t
4163: WHERE bv.budget_version_id = bc.budget_version_id
4164: AND bv.budget_entry_method_code = bem.budget_entry_method_code
4165: AND bem.entry_level_code = 'M'
4182: UPDATE gms_bc_packets bc
4183: SET (bc.bud_task_id, bc.top_task_id) =
4184: (SELECT t.task_id,
4185: t.top_task_id
4186: FROM pa_budget_entry_methods bem, gms_budget_versions bv,pa_tasks t
4187: WHERE bv.budget_version_id = bc.budget_version_id
4188: AND bv.budget_entry_method_code = bem.budget_entry_method_code
4189: AND bem.entry_level_code = 'M'
4190: AND t.task_id = (SELECT task_id