[Home] [Help]
281:
282: OPEN cur_get_del_step_dtls;
283: FETCH cur_get_del_step_dtls INTO l_cur_get_del_step_dtls;
284: WHILE cur_get_del_step_dtls%FOUND LOOP
285: UPDATE pc_tran_pnd
286: SET delete_mark = 1
287: WHERE line_id = l_cur_get_del_step_dtls.batchstepline_id;
288:
289: FETCH cur_get_del_step_dtls INTO l_cur_get_del_step_dtls;
292:
293: EXCEPTION
294: WHEN OTHERS THEN
295: insert_message (
296: p_table_name => 'pm_oprn_dtl/pc_tran_pnd',
297: p_procedure_name => 'del_step_dtl_for_del_steps',
298: p_parameters => 'none',
299: p_message => SQLERRM || ' with pos = ' || l_pos,
300: p_error_type => 'D'
391: BEGIN
392: l_pos := 1;
393: SELECT SUM (resource_usage)
394: INTO v_resource_usage
395: FROM pc_tran_pnd
396: WHERE line_id = p_line_id AND
397: delete_mark <> 1 AND
398: completed_ind = 1;
399: l_pos := 2;
400: RETURN NVL (v_resource_usage, 0);
401: EXCEPTION
402: WHEN OTHERS THEN
403: insert_message (
404: p_table_name => 'pc_tran_pnd',
405: p_procedure_name => 'get_actual_usage',
406: p_parameters => p_line_id,
407: p_message => SQLERRM || ' with pos = ' || l_pos,
408: p_error_type => 'D'
3219: plan_rsrc_qty,
3220: calculate_charges
3221: )
3222: SELECT batchstepline_id --batchstep_resource_id
3223: /* batchstepline_id is used as the line_id for the pc_tran_pnd table */
3224: ,
3225: get_activity_id (
3226: batch_id,
3227: batchstep_no,
3817: program_id,
3818: program_application_id,
3819: request_id,
3820: program_update_date
3821: FROM pc_tran_pnd
3822: WHERE delete_mark < 100 AND
3823: delete_mark <> 1 AND
3824: (completed_ind = 1 OR
3825: (completed_ind = 0 AND
3834: p_message => 'number of records inserted = ' || SQL%ROWCOUNT,
3835: p_error_type => 'P'
3836: );
3837:
3838: UPDATE pc_tran_pnd
3839: SET delete_mark = delete_mark + 100
3840: WHERE delete_mark < 100 AND
3841: delete_mark <> 1;
3842: EXCEPTION