[Home] [Help]
1390:
1391: CURSOR app_comments_c is
1392: SELECT comments ,
1393: currency_code -- Introduced this for bug fix 2916848
1394: FROM psp_adjustment_control_table
1395: WHERE adjustment_batch_name = p_batch_name;
1396:
1397:
1398: l_msg_count NUMBER;
1498: -- added following variable and cursor for DA-ENH
1499: l_adjust_by varchar2(1);
1500: cursor show_elements is
1501: select adjust_by
1502: from psp_adjustment_control_table
1503: where adjustment_batch_name = p_batch_name;
1504:
1505: -- Introduced the following for bug fix 2890110
1506: CURSOR adj_set_cur IS
2166: ----------P R O C E D U R E: INSERT_ADJUSTMENT_CONTROL -------------------------------
2167: --
2168: --
2169: -- Purpose: This procedure is called by procedure generate_lines described below.
2170: -- The purpose is to insert a new line in the psp_adjustment_control_table
2171: -- for the batch name created by the user in the distribution transfers
2172: -- form.
2173: --
2174: ----------------------------------------------------------------------------------
2189: p_adjust_by IN VARCHAR2) is
2190:
2191: begin
2192:
2193: insert into psp_adjustment_control_table(
2194: adjustment_batch_name,
2195: comments,
2196: gl_posting_override_date,
2197: last_update_date,
2246: --
2247: -- Purpose: This procedure is called by the distributions transfers
2248: -- approval form after the approver submits the batch to the summarize
2249: -- and transfer concurrent process. The purpose is to update
2250: -- the psp_adjustment_control_table with the approver id
2251: -- of the approver of the batch.
2252: --
2253: --
2254: ----------------------------------------------------------------------------------
2265: begin
2266: g_error_api_path := '';
2267: fnd_msg_pub.initialize;
2268: errbuf := '';
2269: update psp_adjustment_control_table
2270: set comments = p_comments,
2271: approver_id = FND_GLOBAL.USER_ID, -- 1087529
2272: approval_date = SYSDATE -- Added to fix bug 1661405. approval_date is a new column added to the table
2273: where adjustment_batch_name = p_batch_name;
3129:
3130: select psp_payroll_controls_s.nextval into l_payroll_control_id from dual;
3131:
3132: hr_utility.trace('l_payroll_control_id = '||l_payroll_control_id);
3133: hr_utility.trace('Inserting into PSP_ADJUSTMENT_CONTROL_TABLE : batch = '||p_batch_name);
3134:
3135: insert_adjustment_control(p_batch_name,
3136: p_batch_comments,
3137: l_return_status,
4003: rollback;
4004: retcode := 10;
4005:
4006: WHEN e_constraint_violation THEN
4007: errbuf := 'In table psp_adjustment_control_table, primary key adjustment_batch_name constraint is violated';
4008: retcode := 4;
4009:
4010: WHEN NO_RECORDS_FOUND THEN
4011: rollback;
4404: END IF;
4405:
4406: /*---------------------------------------------------------------------*/
4407: /*5. Delete the record for the rejected batch from table */
4408: /* PSP_ADJUSTMENT_CONTROL_TABLE. */
4409: /*---------------------------------------------------------------------*/
4410: UPDATE psp_adjustment_control_table
4411: SET void = 'Y',
4412: comments = p_comments
4406: /*---------------------------------------------------------------------*/
4407: /*5. Delete the record for the rejected batch from table */
4408: /* PSP_ADJUSTMENT_CONTROL_TABLE. */
4409: /*---------------------------------------------------------------------*/
4410: UPDATE psp_adjustment_control_table
4411: SET void = 'Y',
4412: comments = p_comments
4413: WHERE adjustment_batch_name = p_batch_name;
4414: IF (SQL%NOTFOUND) THEN
4411: SET void = 'Y',
4412: comments = p_comments
4413: WHERE adjustment_batch_name = p_batch_name;
4414: IF (SQL%NOTFOUND) THEN
4415: errbuf := 'Failed when update psp_adjustment_control_table: no row found.';
4416: RAISE undo_failed_exception;
4417: END IF;
4418:
4419: COMMIT;