17: BEGIN
18: BEGIN
19: SELECT resource_id,source_email INTO x_resource_id,x_user_email
20: FROM jtf_rs_resource_extns
21: WHERE user_id = fnd_global.user_id;
22: EXCEPTION
23: WHEN no_data_found THEN
24: -- resource not exist for this user
25: FND_MESSAGE.SET_NAME ('CN','CN_USER_RESOURCE_NF');
124: INTO l_flow_rec.pay_approval_flow_id FROM dual;
125: l_flow_rec.payrun_id := p_payrun_id;
126: l_flow_rec.payment_worksheet_id := p_worksheet_id;
127: l_flow_rec.submit_by_resource_id := p_resource_id ;
128: l_flow_rec.submit_by_user_id := fnd_global.user_id;
129: l_flow_rec.submit_by_email := p_user_email;
130: l_flow_rec.submit_to_resource_id := p_resource_id ;
131: l_flow_rec.submit_to_user_id := fnd_global.user_id;
132: l_flow_rec.submit_to_email := p_user_email;
127: l_flow_rec.submit_by_resource_id := p_resource_id ;
128: l_flow_rec.submit_by_user_id := fnd_global.user_id;
129: l_flow_rec.submit_by_email := p_user_email;
130: l_flow_rec.submit_to_resource_id := p_resource_id ;
131: l_flow_rec.submit_to_user_id := fnd_global.user_id;
132: l_flow_rec.submit_to_email := p_user_email;
133: l_flow_rec.approval_status := l_approval_status ;
134: l_flow_rec.updated_by_resource_id := p_resource_id;
135: --R12
143: INTO l_flow_rec.pay_approval_flow_id FROM dual;
144: l_flow_rec.payrun_id := p_payrun_id;
145: l_flow_rec.payment_worksheet_id := p_worksheet_id;
146: l_flow_rec.submit_by_resource_id := p_resource_id ;
147: l_flow_rec.submit_by_user_id := fnd_global.user_id;
148: l_flow_rec.submit_by_email := p_user_email;
149: l_flow_rec.submit_to_resource_id := l_mgr_csr.mgr_resource_id ;
150: l_flow_rec.submit_to_user_id := l_mgr_csr.mgr_user_id;
151: l_flow_rec.submit_to_email := l_mgr_csr.mgr_email;
352:
353: -- update pay_approval_flow record
354: UPDATE cn_pay_approval_flow
355: SET approval_status = 'APPROVED', updated_by_resource_id = l_resource_id,
356: last_updated_by = fnd_global.user_id,
357: last_update_date = Sysdate,
358: last_update_login = fnd_global.login_id
359: WHERE payment_worksheet_id = p_worksheet_id
360: ;
354: UPDATE cn_pay_approval_flow
355: SET approval_status = 'APPROVED', updated_by_resource_id = l_resource_id,
356: last_updated_by = fnd_global.user_id,
357: last_update_date = Sysdate,
358: last_update_login = fnd_global.login_id
359: WHERE payment_worksheet_id = p_worksheet_id
360: ;
361:
362: -- call get_mgr_list
480:
481: -- update pay_approval_flow record
482: UPDATE cn_pay_approval_flow
483: SET approval_status = 'REJECTED', updated_by_resource_id = l_resource_id,
484: last_updated_by = fnd_global.user_id,
485: last_update_date = Sysdate,
486: last_update_login = fnd_global.login_id
487: WHERE payment_worksheet_id = p_worksheet_id
488: ;
482: UPDATE cn_pay_approval_flow
483: SET approval_status = 'REJECTED', updated_by_resource_id = l_resource_id,
484: last_updated_by = fnd_global.user_id,
485: last_update_date = Sysdate,
486: last_update_login = fnd_global.login_id
487: WHERE payment_worksheet_id = p_worksheet_id
488: ;
489:
490: -- End of API body.