[Home] [Help]
14: -- Bug 5162777 : This procedure is made autonomous.
15: PRAGMA AUTONOMOUS_TRANSACTION;
16:
17: Begin
18: insert into gms_budgetary_controls ( BUDGETARY_CONTROLS_ID
19: ,PROJECT_ID
20: ,FUNDS_CONTROL_LEVEL_CODE
21: ,AWARD_ID
22: ,LAST_UPDATE_DATE
27: ,TASK_ID
28: ,PARENT_MEMBER_ID
29: ,RESOURCE_LIST_MEMBER_ID
30: )
31: values ( gms_budgetary_controls_s.nextval
32: ,x_project_id
33: ,x_funds_control_code
34: ,x_award_id
35: ,SYSDATE
55: IS
56: PRAGMA AUTONOMOUS_TRANSACTION;
57: BEGIN
58:
59: delete from gms_budgetary_controls
60: where project_id = p_project_id
61: and award_id = p_award_id;
62:
63: COMMIT;
74: IS
75: PRAGMA AUTONOMOUS_TRANSACTION;
76: BEGIN
77:
78: DELETE from gms_budgetary_controls bc
79: WHERE EXISTS
80: ( SELECT pt2.task_id
81: FROM pa_tasks pt2
82: WHERE bc.task_id=pt2.parent_task_id
129: )
130: )
131: AND not exists
132: ( SELECT 1
133: FROM gms_budgetary_controls bc
134: WHERE bc.project_id = x_project_id
135: AND bc.award_id = x_award_id
136: AND bc.task_id = pt1.task_id
137: );
150: WHERE br.ENABLED_FLAG = 'Y'
151: AND br.RESOURCE_LIST_ID = x_resource_list_id
152: AND DECODE(br.RESOURCE_TYPE_CODE, 'UNCLASSIFIED', 'Y', DISPLAY_FLAG) = 'Y'
153: and nvl(br.migration_code, 'M') = 'M'
154: and not exists (select 1 from gms_budgetary_controls bc
155: where bc.project_id = x_project_id
156: and bc.award_id = x_award_id
157: and bc.resource_list_member_id = br.resource_list_member_id);
158:
191: )
192: )
193: AND exists
194: ( SELECT 1
195: FROM gms_budgetary_controls bc
196: WHERE bc.project_id = x_project_id
197: and bc.award_id = x_award_id
198: AND bc.task_id = pt1.task_id
199: );
357: CURSOR c_budctrl_exists IS
358: SELECT 'Y'
359: FROM DUAL
360: WHERE EXISTS (SELECT 1
361: FROM gms_budgetary_controls bc
362: where bc.project_id = p_project_id
363: and bc.award_id = p_award_id);
364:
365: BEGIN