[Home] [Help]
1381:
1382: CURSOR app_comments_c is
1383: SELECT comments ,
1384: currency_code -- Introduced this for bug fix 2916848
1385: FROM psp_adjustment_control_table
1386: WHERE adjustment_batch_name = p_batch_name;
1387:
1388:
1389: l_msg_count NUMBER;
1489: -- added following variable and cursor for DA-ENH
1490: l_adjust_by varchar2(1);
1491: cursor show_elements is
1492: select adjust_by
1493: from psp_adjustment_control_table
1494: where adjustment_batch_name = p_batch_name;
1495:
1496: -- Introduced the following for bug fix 2890110
1497: CURSOR adj_set_cur IS
2157: ----------P R O C E D U R E: INSERT_ADJUSTMENT_CONTROL -------------------------------
2158: --
2159: --
2160: -- Purpose: This procedure is called by procedure generate_lines described below.
2161: -- The purpose is to insert a new line in the psp_adjustment_control_table
2162: -- for the batch name created by the user in the distribution transfers
2163: -- form.
2164: --
2165: ----------------------------------------------------------------------------------
2180: p_adjust_by IN VARCHAR2) is
2181:
2182: begin
2183:
2184: insert into psp_adjustment_control_table(
2185: adjustment_batch_name,
2186: comments,
2187: gl_posting_override_date,
2188: last_update_date,
2237: --
2238: -- Purpose: This procedure is called by the distributions transfers
2239: -- approval form after the approver submits the batch to the summarize
2240: -- and transfer concurrent process. The purpose is to update
2241: -- the psp_adjustment_control_table with the approver id
2242: -- of the approver of the batch.
2243: --
2244: --
2245: ----------------------------------------------------------------------------------
2256: begin
2257: g_error_api_path := '';
2258: fnd_msg_pub.initialize;
2259: errbuf := '';
2260: update psp_adjustment_control_table
2261: set comments = p_comments,
2262: approver_id = FND_GLOBAL.USER_ID, -- 1087529
2263: approval_date = SYSDATE -- Added to fix bug 1661405. approval_date is a new column added to the table
2264: where adjustment_batch_name = p_batch_name;
3120:
3121: select psp_payroll_controls_s.nextval into l_payroll_control_id from dual;
3122:
3123: hr_utility.trace('l_payroll_control_id = '||l_payroll_control_id);
3124: hr_utility.trace('Inserting into PSP_ADJUSTMENT_CONTROL_TABLE : batch = '||p_batch_name);
3125:
3126: insert_adjustment_control(p_batch_name,
3127: p_batch_comments,
3128: l_return_status,
3994: rollback;
3995: retcode := 10;
3996:
3997: WHEN e_constraint_violation THEN
3998: errbuf := 'In table psp_adjustment_control_table, primary key adjustment_batch_name constraint is violated';
3999: retcode := 4;
4000:
4001: WHEN NO_RECORDS_FOUND THEN
4002: rollback;
4395: END IF;
4396:
4397: /*---------------------------------------------------------------------*/
4398: /*5. Delete the record for the rejected batch from table */
4399: /* PSP_ADJUSTMENT_CONTROL_TABLE. */
4400: /*---------------------------------------------------------------------*/
4401: UPDATE psp_adjustment_control_table
4402: SET void = 'Y',
4403: comments = p_comments
4397: /*---------------------------------------------------------------------*/
4398: /*5. Delete the record for the rejected batch from table */
4399: /* PSP_ADJUSTMENT_CONTROL_TABLE. */
4400: /*---------------------------------------------------------------------*/
4401: UPDATE psp_adjustment_control_table
4402: SET void = 'Y',
4403: comments = p_comments
4404: WHERE adjustment_batch_name = p_batch_name;
4405: IF (SQL%NOTFOUND) THEN
4402: SET void = 'Y',
4403: comments = p_comments
4404: WHERE adjustment_batch_name = p_batch_name;
4405: IF (SQL%NOTFOUND) THEN
4406: errbuf := 'Failed when update psp_adjustment_control_table: no row found.';
4407: RAISE undo_failed_exception;
4408: END IF;
4409:
4410: COMMIT;