[Home] [Help]
487: to compare .. Basically to check the number of lines in dist lines ...instead of summing on dist amount
488: for deciding wether to change control rec status to either 'P' or 'N' */
489: IF payroll_control_rec.source_type = 'O' OR payroll_control_rec.source_type = 'N' THEN
490:
491: DELETE FROM psp_distribution_lines
492: WHERE distribution_amount = 0
493: AND payroll_sub_line_id IN (
494: select payroll_sub_line_id from psp_payroll_sub_lines where payroll_line_id IN (
495: select payroll_line_id from psp_payroll_lines where payroll_control_id IN (
497: payroll_control_rec.payroll_control_id)));
498:
499: SELECT count(*)
500: INTO l_line_counter
501: FROM psp_distribution_lines pdl,
502: psp_payroll_sub_lines ppsl,
503: psp_payroll_lines ppl
504: WHERE ppl.payroll_control_id = payroll_control_rec.payroll_control_id
505: AND ppl.payroll_line_id = ppsl.payroll_line_id
633: psp_default_labor_schedules pdls,
634: psp_payroll_controls ppc,
635: psp_payroll_lines ppl,
636: psp_payroll_sub_lines ppsl,
637: psp_distribution_lines pdl
638: WHERE pdl.status_code = 'N'
639: AND pdl.payroll_sub_line_id = ppsl.payroll_sub_line_id
640: AND ppsl.payroll_line_id = ppl.payroll_line_id
641: AND ppl.payroll_control_id = ppc.payroll_control_id
716: FROM psp_payroll_controls ppc,
717: psp_payroll_lines ppl,
718: psp_payroll_sub_lines ppsl,
719: psp_organization_accounts pos,
720: psp_distribution_lines pdl
721: WHERE pdl.status_code = 'N'
722: AND pdl.payroll_sub_line_id = ppsl.payroll_sub_line_id
723: AND ppsl.payroll_line_id = ppl.payroll_line_id
724: AND ppl.payroll_control_id = ppc.payroll_control_id
923: FOR j IN 1 .. dist_line_id.COUNT LOOP
924: l_dist_line_id := dist_line_id(j);
925:
926: IF gl_sum_lines_rec.tab_flag = 'D' THEN
927: UPDATE psp_distribution_lines
928: SET summary_line_id = l_summary_line_id WHERE distribution_line_id = l_dist_line_id;
929: ELSIF gl_sum_lines_rec.tab_flag = 'P' THEN
930: UPDATE psp_pre_gen_dist_lines
931: SET summary_line_id = l_summary_line_id WHERE pre_gen_dist_line_id = l_dist_line_id;
1013: FOR j IN 1 .. dist_line_id.COUNT LOOP
1014: l_dist_line_id := dist_line_id(j);
1015:
1016: IF gl_sum_lines_rec.tab_flag = 'D' THEN
1017: UPDATE psp_distribution_lines
1018: SET summary_line_id = l_summary_line_id,
1019: status_code = 'N'
1020: WHERE distribution_line_id = l_dist_line_id;
1021: ELSIF gl_sum_lines_rec.tab_flag = 'P' THEN
1564: FETCH gl_payroll_control_cursor INTO gl_payroll_control_rec;
1565: EXIT WHEN gl_payroll_control_cursor%NOTFOUND;
1566:
1567:
1568: -- mark the successfully transferred records as 'A' in psp_summary_lines and psp_distribution_lines
1569: -- and transfer the successful records to the history table
1570: -- 1874696:changed l_period_end_date to NULL in tie back call
1571: -- Bug 22663344 reverted null value to l_period_end_date
1572: gl_tie_back(gl_payroll_control_rec.payroll_control_id,
1724: pdl.distribution_date,
1725: pdl.suspense_org_account_id,
1726: pdl.reversal_entry_flag,
1727: pdl.effective_date -- Bug 7040943 Added
1728: FROM psp_distribution_lines pdl
1729: WHERE pdl.summary_line_id = p_summary_line_id
1730: UNION
1731: SELECT ppgd.rowid,
1732: ppgd.pre_gen_dist_line_id line_id,
1752: FROM hr_all_organization_units hou,
1753: per_assignments_f paf,
1754: psp_payroll_lines ppl,
1755: psp_payroll_sub_lines ppsl,
1756: psp_distribution_lines pdl
1757: WHERE pdl.payroll_sub_line_id = ppsl.payroll_sub_line_id
1758: AND ppsl.payroll_line_id = ppl.payroll_line_id
1759: AND pdl.distribution_line_id = p_line_id
1760: AND ppl.assignment_id = paf.assignment_id
1880: ppl.assignment_id,
1881: ppl.person_id
1882: from psp_payroll_lines ppl,
1883: psp_payroll_sub_lines ppsl,
1884: psp_distribution_lines pdl
1885: where pdl.distribution_line_id = x_line_id
1886: and pdl.payroll_sub_line_id = ppsl.payroll_sub_line_id
1887: and ppsl.payroll_line_id = ppl.payroll_line_id
1888: union all
2011: FROM psp_payroll_lines
2012: WHERE payroll_control_id = p_payroll_control_id
2013: and payroll_line_id = (select payroll_line_id from psp_payroll_sub_lines
2014: where payroll_sub_line_id = (select payroll_sub_line_id
2015: from psp_distribution_lines
2016: where distribution_line_id = x_line_id));
2017:
2018: IF assign_susp_ac_cur%NOTFOUND THEN
2019: CLOSE assign_susp_ac_cur;
2208: IF p_source_type = 'O' OR p_source_type = 'N' THEN
2209:
2210: /* Added the following for Bug 3065866 */
2211:
2212: UPDATE PSP_DISTRIBUTION_LINES
2213: SET pre_distribution_run_flag = gl_project_flag
2214: WHERE rowid = l_rowid;
2215:
2216: /* End of code changes for Bug 3065866 */
2214: WHERE rowid = l_rowid;
2215:
2216: /* End of code changes for Bug 3065866 */
2217:
2218: UPDATE psp_distribution_lines
2219: SET suspense_org_account_id = l_organization_account_id,
2220: suspense_reason_code = 'ST:' || l_status,
2221: gl_project_flag = l_gl_project_flag,
2222: status_code = 'N',
2265:
2266: /* Added the following for the Bug 3065866 */
2267:
2268: IF p_source_type = 'O' OR p_source_type = 'N' THEN
2269: UPDATE psp_distribution_lines
2270: SET suspense_org_account_id = NULL,
2271: suspense_reason_code = NULL,
2272: gl_project_flag = pre_distribution_run_flag,
2273: effective_date = decode(pre_distribution_run_flag,'G',
2323:
2324: IF p_source_type = 'O' OR p_source_type = 'N' THEN
2325:
2326:
2327: UPDATE psp_distribution_lines
2328: SET suspense_org_account_id = NULL,
2329: suspense_reason_code = NULL,
2330: gl_project_flag = pre_distribution_run_flag,
2331: effective_date = decode(pre_distribution_run_flag,'G',
2417: END IF;
2418:
2419: IF p_source_type = 'O' OR p_source_type = 'N' THEN
2420:
2421: UPDATE psp_distribution_lines
2422: SET status_code = 'A' WHERE summary_line_id = l_summary_line_id;
2423:
2424: -- move the transferred records to psp_distribution_lines_history
2425: INSERT INTO psp_distribution_lines_history
2420:
2421: UPDATE psp_distribution_lines
2422: SET status_code = 'A' WHERE summary_line_id = l_summary_line_id;
2423:
2424: -- move the transferred records to psp_distribution_lines_history
2425: INSERT INTO psp_distribution_lines_history
2426: (distribution_line_id,payroll_sub_line_id,distribution_date,
2427: effective_date,distribution_amount,status_code,suspense_reason_code,
2428: effort_report_id,version_num,schedule_line_id,
2421: UPDATE psp_distribution_lines
2422: SET status_code = 'A' WHERE summary_line_id = l_summary_line_id;
2423:
2424: -- move the transferred records to psp_distribution_lines_history
2425: INSERT INTO psp_distribution_lines_history
2426: (distribution_line_id,payroll_sub_line_id,distribution_date,
2427: effective_date,distribution_amount,status_code,suspense_reason_code,
2428: effort_report_id,version_num,schedule_line_id,
2429: summary_line_id,default_org_account_id,suspense_org_account_id,
2450: cap_excess_glccid, cap_excess_award_id, cap_excess_task_id,
2451: cap_excess_project_id, cap_excess_exp_type, cap_excess_exp_org_id,
2452: funding_source_code, annual_salary_cap, cap_excess_dist_line_id,
2453: suspense_auto_exp_type, suspense_auto_glccid, adj_account_flag
2454: FROM psp_distribution_lines
2455: WHERE status_code = 'A'
2456: AND summary_line_id = l_summary_line_id;
2457:
2458: DELETE FROM psp_distribution_lines
2454: FROM psp_distribution_lines
2455: WHERE status_code = 'A'
2456: AND summary_line_id = l_summary_line_id;
2457:
2458: DELETE FROM psp_distribution_lines
2459: WHERE status_code = 'A'
2460: AND summary_line_id = l_summary_line_id;
2461:
2462: ELSIF p_source_type = 'P' THEN
2563: round(sum(pdl.distribution_amount), p_precision) reversal_dist_amount,-- Changed rounding from 2 to p_precision
2564: -- For Bug 2916848
2565: pdl.business_group_id,
2566: pdl.set_of_books_id
2567: FROM psp_distribution_lines pdl,
2568: psp_payroll_sub_lines ppsl,
2569: psp_payroll_lines ppl,
2570: psp_payroll_controls ppc
2571: WHERE ppc.payroll_control_id = p_payroll_control_id
2620: BEGIN
2621:
2622: IF p_source_type = 'O' OR p_source_type = 'N' THEN
2623:
2624: DELETE FROM psp_distribution_lines
2625: WHERE reversal_entry_flag = 'Y'
2626: AND status_code = 'N'
2627: AND payroll_sub_line_id IN (
2628: select payroll_sub_line_id from psp_payroll_sub_lines where payroll_line_id IN (
2640: EXIT;
2641: END IF;
2642:
2643: -- insert the reversal entry record into distribution lines
2644: insert into psp_distribution_lines
2645: (distribution_line_id,payroll_sub_line_id,distribution_date,effective_date,
2646: distribution_amount,status_code,gl_project_flag,reversal_entry_flag,
2647: business_group_id, set_of_books_id)
2648: values
2645: (distribution_line_id,payroll_sub_line_id,distribution_date,effective_date,
2646: distribution_amount,status_code,gl_project_flag,reversal_entry_flag,
2647: business_group_id, set_of_books_id)
2648: values
2649: (PSP_DISTRIBUTION_LINES_S.NEXTVAL,dist_reversal_entry_rec.payroll_sub_line_id,
2650: dist_reversal_entry_rec.effective_date,dist_reversal_entry_rec.effective_date,
2651: dist_reversal_entry_rec.reversal_dist_amount,'N','G','Y',
2652: dist_reversal_entry_rec.business_group_id, dist_reversal_entry_rec.set_of_books_id);
2653:
2655:
2656: select sum(decode(reversal_entry_flag, 'Y', distribution_amount, 0)) cr_amount,
2657: sum(decode(reversal_entry_flag, 'Y', 0, distribution_amount)) dr_amount
2658: INTO l_cr_amount, l_dr_amount
2659: FROM psp_distribution_lines pdl,
2660: psp_payroll_sub_lines ppsl,
2661: psp_payroll_lines ppl,
2662: psp_payroll_controls ppc
2663: WHERE ppc.payroll_control_id = p_payroll_control_id
2719: element_type_id, distribution_date, effective_date, distribution_amount,
2720: dr_cr_flag, payroll_control_id, source_type, source_code, time_period_id,
2721: batch_name, status_code, set_of_books_id, business_group_id, gl_code_combination_id,
2722: reversal_entry_flag)
2723: values (psp_distribution_lines_s.nextval, pg_reversal_entry_rec.distribution_interface_id,
2724: pg_reversal_entry_rec.person_id, pg_reversal_entry_rec.assignment_id,
2725: pg_reversal_entry_rec.element_type_id, pg_reversal_entry_rec.distribution_date,
2726: pg_reversal_entry_rec.effective_date, pg_reversal_entry_rec.reversal_dist_amount,
2727: pg_reversal_entry_rec.dr_cr_flag, p_payroll_control_id, pg_reversal_entry_rec.source_type,
3019: psp_default_labor_schedules pdls,
3020: psp_payroll_controls ppc,
3021: psp_payroll_lines ppl,
3022: psp_payroll_sub_lines ppsl,
3023: psp_distribution_lines pdl
3024: WHERE pdl.status_code = 'N'
3025: AND pdl.payroll_sub_line_id = ppsl.payroll_sub_line_id
3026: AND ppsl.payroll_line_id = ppl.payroll_line_id
3027: AND ppl.payroll_control_id = ppc.payroll_control_id
3112: FROM psp_organization_accounts pos,
3113: psp_payroll_controls ppc,
3114: psp_payroll_lines ppl,
3115: psp_payroll_sub_lines ppsl,
3116: psp_distribution_lines pdl
3117: WHERE pdl.status_code = 'N'
3118: AND pdl.payroll_sub_line_id = ppsl.payroll_sub_line_id
3119: AND ppsl.payroll_line_id = ppl.payroll_line_id
3120: AND ppl.payroll_control_id = ppc.payroll_control_id
3328: l_dist_line_id := dist_line_id(j);
3329: --dbms_output.put_line('Dist_line_id to be updated = '||to_char(l_dist_line_id));
3330:
3331: IF gms_sum_lines_rec.tab_flag = 'D' THEN
3332: UPDATE psp_distribution_lines
3333: SET summary_line_id = l_summary_line_id WHERE distribution_line_id = l_dist_line_id;
3334: ELSIF gms_sum_lines_rec.tab_flag = 'P' THEN
3335: UPDATE psp_pre_gen_dist_lines
3336: SET summary_line_id = l_summary_line_id WHERE pre_gen_dist_line_id = l_dist_line_id;
3429: l_dist_line_id := dist_line_id(j);
3430: --dbms_output.put_line('Dist_line_id to be updated = '||to_char(l_dist_line_id));
3431:
3432: IF gms_sum_lines_rec.tab_flag = 'D' THEN
3433: UPDATE psp_distribution_lines
3434: SET summary_line_id = l_summary_line_id,
3435: status_code = 'N'
3436: WHERE distribution_line_id = l_dist_line_id;
3437: ELSIF gms_sum_lines_rec.tab_flag = 'P' THEN
3980: p_business_group_id ,
3981: p_set_of_books_id );
3982: ENd if;
3983:
3984: -- mark the successfully transferred records as 'A' in psp_summary_lines and psp_distribution_lines
3985: -- and transfer the successful records to the history table
3986: --- Bug 2663344 reverted NULL to l_period_end_date in tie back call
3987: hr_utility.trace(' before loop for gms_tie_back');
3988: FOR I in 1..org_id_tab.count
4069: SELECT pdl.rowid,
4070: pdl.distribution_line_id line_id,
4071: pdl.distribution_date,
4072: pdl.suspense_org_account_id
4073: FROM psp_distribution_lines pdl
4074: WHERE pdl.summary_line_id = p_summary_line_id
4075: UNION
4076: SELECT ppgd.rowid,
4077: ppgd.pre_gen_dist_line_id line_id,
4093: FROM hr_all_organization_units hou,
4094: per_assignments_f paf,
4095: psp_payroll_lines ppl,
4096: psp_payroll_sub_lines ppsl,
4097: psp_distribution_lines pdl
4098: WHERE paf.assignment_id = ppl.assignment_id
4099: AND hou.organization_id = paf.organization_id
4100: AND pdl.distribution_line_id = p_line_id
4101: AND ppsl.payroll_sub_line_id = pdl.payroll_sub_line_id
4221: ppl.assignment_id,
4222: ppl.person_id
4223: from psp_payroll_lines ppl,
4224: psp_payroll_sub_lines ppsl,
4225: psp_distribution_lines pdl
4226: where pdl.distribution_line_id = x_line_id
4227: and pdl.payroll_sub_line_id = ppsl.payroll_sub_line_id
4228: and ppsl.payroll_line_id = ppl.payroll_line_id
4229: union all
4429: FROM psp_payroll_lines
4430: WHERE payroll_control_id = p_payroll_control_id
4431: and payroll_line_id = (select payroll_line_id from psp_payroll_sub_lines
4432: where payroll_sub_line_id = (select payroll_sub_line_id
4433: from psp_distribution_lines
4434: where distribution_line_id = x_line_id));
4435: SELECT distinct effective_date
4436: INTO l_effective_date
4437: FROM psp_payroll_lines
4437: FROM psp_payroll_lines
4438: WHERE payroll_control_id = p_payroll_control_id
4439: and payroll_line_id = (select payroll_line_id from psp_payroll_sub_lines
4440: where payroll_sub_line_id = (select payroll_sub_line_id
4441: from psp_distribution_lines
4442: where distribution_line_id = x_line_id));
4443:
4444: /*Bug 7376898 End*/
4445:
4450: hr_utility.trace('entered gms_tie_back5');
4451:
4452: IF l_trx_status_code = 'A' THEN
4453: IF p_source_type = 'O' OR p_source_type = 'N' THEN
4454: UPDATE psp_distribution_lines
4455: SET status_code = 'A'
4456: WHERE rowid = l_rowid;
4457:
4458: INSERT INTO psp_distribution_lines_history
4454: UPDATE psp_distribution_lines
4455: SET status_code = 'A'
4456: WHERE rowid = l_rowid;
4457:
4458: INSERT INTO psp_distribution_lines_history
4459: (distribution_line_id,payroll_sub_line_id,distribution_date,
4460: effective_date,distribution_amount,status_code,suspense_reason_code,
4461: effort_report_id,version_num,schedule_line_id,summary_line_id,
4462: default_org_account_id,suspense_org_account_id,
4483: cap_excess_glccid, cap_excess_award_id, cap_excess_task_id,
4484: cap_excess_project_id, cap_excess_exp_type, cap_excess_exp_org_id,
4485: funding_source_code, annual_salary_cap, cap_excess_dist_line_id,
4486: suspense_auto_exp_type, suspense_auto_glccid, adj_account_flag
4487: FROM psp_distribution_lines
4488: WHERE status_code = 'A'
4489: AND summary_line_id = to_number(l_orig_trx_reference);
4490:
4491: hr_utility.trace('after insert into dist lines');
4488: WHERE status_code = 'A'
4489: AND summary_line_id = to_number(l_orig_trx_reference);
4490:
4491: hr_utility.trace('after insert into dist lines');
4492: DELETE FROM psp_distribution_lines
4493: WHERE status_code = 'A'
4494: AND summary_line_id = to_number(l_orig_trx_reference);
4495:
4496: --moved the two del stmnts above for 2445196
4555:
4556: /* Commented For Bug 3065866
4557:
4558: IF p_source_type = 'O' OR p_source_type = 'N' THEN
4559: UPDATE psp_distribution_lines
4560: SET suspense_reason_code = l_trx_reject_code,
4561: status_code = 'N'
4562: WHERE rowid = l_rowid;
4563: ELSIF p_source_type = 'P' THEN
4725: IF p_source_type = 'O' OR p_source_type = 'N' THEN
4726:
4727: /* Added for Bug 3065866 */
4728:
4729: UPDATE psp_distribution_lines
4730: SET pre_distribution_run_flag = gl_project_flag
4731: WHERE rowid = l_rowid;
4732:
4733: /* End of changes for Bug 3065866*/
4731: WHERE rowid = l_rowid;
4732:
4733: /* End of changes for Bug 3065866*/
4734:
4735: UPDATE psp_distribution_lines
4736: SET suspense_org_account_id = l_organization_account_id,
4737: suspense_reason_code = 'ST:' || l_trx_reject_code,
4738: gl_project_flag = l_gl_project_flag,
4739: status_code = 'N',
4790: IF p_source_type = 'O' OR p_source_type = 'N' THEN
4791:
4792:
4793:
4794: UPDATE psp_distribution_lines
4795: SET suspense_org_account_id = NULL,
4796: suspense_reason_code = NULL,
4797: gl_project_flag = pre_distribution_run_flag,
4798: effective_date = decode(pre_distribution_run_flag,'G',
4840:
4841: /* Added the following code for Bug 3065866 */
4842:
4843: IF p_source_type = 'O' OR p_source_type = 'N' THEN
4844: UPDATE psp_distribution_lines
4845: SET suspense_org_account_id = NULL,
4846: suspense_reason_code = NULL
4847: WHERE suspense_reason_code like 'ST:%'
4848: AND summary_line_id
4942: END IF;
4943:
4944: IF p_source_type = 'O' OR p_source_type = 'N' THEN
4945:
4946: UPDATE psp_distribution_lines
4947: SET status_code = 'A' WHERE summary_line_id = l_summary_line_id;
4948:
4949: -- move the transferred records to psp_distribution_lines_history
4950: INSERT INTO psp_distribution_lines_history
4945:
4946: UPDATE psp_distribution_lines
4947: SET status_code = 'A' WHERE summary_line_id = l_summary_line_id;
4948:
4949: -- move the transferred records to psp_distribution_lines_history
4950: INSERT INTO psp_distribution_lines_history
4951: (distribution_line_id,payroll_sub_line_id,distribution_date,
4952: effective_date,distribution_amount,status_code,suspense_reason_code,
4953: effort_report_id,version_num,schedule_line_id,summary_line_id,
4946: UPDATE psp_distribution_lines
4947: SET status_code = 'A' WHERE summary_line_id = l_summary_line_id;
4948:
4949: -- move the transferred records to psp_distribution_lines_history
4950: INSERT INTO psp_distribution_lines_history
4951: (distribution_line_id,payroll_sub_line_id,distribution_date,
4952: effective_date,distribution_amount,status_code,suspense_reason_code,
4953: effort_report_id,version_num,schedule_line_id,summary_line_id,
4954: default_org_account_id,suspense_org_account_id,
4975: cap_excess_glccid, cap_excess_award_id, cap_excess_task_id,
4976: cap_excess_project_id, cap_excess_exp_type, cap_excess_exp_org_id,
4977: funding_source_code, annual_salary_cap, cap_excess_dist_line_id,
4978: suspense_auto_exp_type, suspense_auto_glccid, adj_account_flag
4979: FROM psp_distribution_lines
4980: WHERE status_code = 'A'
4981: AND summary_line_id = l_summary_line_id;
4982:
4983: DELETE FROM psp_distribution_lines
4979: FROM psp_distribution_lines
4980: WHERE status_code = 'A'
4981: AND summary_line_id = l_summary_line_id;
4982:
4983: DELETE FROM psp_distribution_lines
4984: WHERE status_code = 'A'
4985: AND summary_line_id = l_summary_line_id;
4986: -- Moved the purging of xface lines from here below LOOP, for Bug 2445196
4987: ELSIF p_source_type = 'P' THEN
5350: Select per.effort_report_id,
5351: per.person_id,
5352: MIN(dlh.summary_line_id) summary_line_id
5353: From psp_eff_reports per,
5354: Psp_distribution_lines_history DLH,
5355: Psp_payroll_controls ppc,
5356: psp_payroll_sub_lines psub,
5357: psp_payroll_lines ppl
5358: Where dlh.payroll_sub_line_id = psub.payroll_sub_line_id
5394: Select per.effort_report_id,
5395: per.person_id,
5396: dlh.summary_line_id summary_line_id
5397: From psp_eff_reports per,
5398: Psp_distribution_lines_history DLH,
5399: Psp_payroll_controls ppc,
5400: psp_payroll_sub_lines psub,
5401: psp_payroll_lines ppl
5402: Where dlh.payroll_sub_line_id = psub.payroll_sub_line_id
5543: Select per.effort_report_id,
5544: per.person_id,
5545: MIN(dlh.summary_line_id) summary_line_id
5546: From psp_eff_reports per,
5547: Psp_distribution_lines_history DLH,
5548: Psp_payroll_controls ppc,
5549: psp_payroll_sub_lines psub,
5550: psp_payroll_lines ppl,
5551: psp_eff_report_details perd
5591: Select per.effort_report_id,
5592: per.person_id,
5593: dlh.summary_line_id summary_line_id
5594: From psp_eff_reports per,
5595: Psp_distribution_lines_history DLH,
5596: Psp_payroll_controls ppc,
5597: psp_payroll_sub_lines psub,
5598: psp_payroll_lines ppl,
5599: psp_eff_report_details perd