25: ERRBUF IN OUT NOCOPY VARCHAR2)
26: IS
27:
28: Cursor Exp_Items is
29: SELECT expenditure_item_id from pa_expenditure_items_all where expenditure_item_id in
30: (SELECT ei.expenditure_item_id
31: FROM pa_cc_dist_lines ccd,
32: Pa_expenditure_items ei,
33: Pa_expenditures exp
28: Cursor Exp_Items is
29: SELECT expenditure_item_id from pa_expenditure_items_all where expenditure_item_id in
30: (SELECT ei.expenditure_item_id
31: FROM pa_cc_dist_lines ccd,
32: Pa_expenditure_items ei,
33: Pa_expenditures exp
34: WHERE ccd.transfer_status_code in ('P','R')
35: AND (p_gl_category is null OR ccd.line_type = p_gl_category)
36: AND (ccd.line_type = 'BL' OR
46: AND exp.expenditure_id = ei.expenditure_id
47: AND exp.expenditure_group = p_EXPENDITURE_BATCH)
48: AND p_EXPENDITURE_BATCH is NOT NULL
49: UNION ALL
50: SELECT expenditure_item_id from pa_expenditure_items_all where expenditure_item_id in
51: (SELECT ei.expenditure_item_id
52: FROM pa_cc_dist_lines ccd,
53: pa_expenditure_items ei,
54: pa_projects_all proj
49: UNION ALL
50: SELECT expenditure_item_id from pa_expenditure_items_all where expenditure_item_id in
51: (SELECT ei.expenditure_item_id
52: FROM pa_cc_dist_lines ccd,
53: pa_expenditure_items ei,
54: pa_projects_all proj
55: WHERE ccd.transfer_status_code in ('P','R')
56: AND (p_gl_category is null OR ccd.line_type = p_gl_category)
57: AND (ccd.line_type = 'BL' OR
75: and proj.SEGMENT1 <= p_TO_PROJECT_NUMBER)))
76: AND (p_FROM_PROJECT_NUMBER is NOT NULL or p_TO_PROJECT_NUMBER is NOT NULL)
77: AND p_EXPENDITURE_BATCH is NULL
78: UNION ALL
79: SELECT expenditure_item_id from pa_expenditure_items_all where expenditure_item_id in
80: (SELECT ccd.expenditure_item_id
81: FROM pa_cc_dist_lines ccd
82: WHERE ccd.transfer_status_code in ('P','R')
83: AND (p_gl_category is null OR ccd.line_type = p_gl_category)
138:
139: IF EiidTab.count > 0 Then
140:
141: FORALL i IN 1..EiidTab.count
142: UPDATE pa_expenditure_items
143: SET last_updated_by = last_updated_by
144: WHERE expenditure_item_id = EiidTab (i);
145:
146: log_message('40 : EI locked with '||sql%rowcount ||' records');