[Home] [Help]
66: -- Fix for Bug #8797839. Need to check if upgrade is already running
67: -- or is in error for some existing book.
68: select count(*)
69: into l_already_running
70: from fa_deprn_periods
71: where substr(xla_conversion_status, 1, 1) in
72: ('0', '1', '2', '3', '4', '5', '6', '7', '8', '9');
73:
74: if (l_already_running > 0) then
76: end if;
77:
78: select count(*)
79: into l_existing_error
80: from fa_deprn_periods
81: where substr(xla_conversion_status, 1, 1) = 'E';
82:
83: if (l_already_running > 0) then
84: raise existing_error;
83: if (l_already_running > 0) then
84: raise existing_error;
85: end if;
86:
87: update fa_deprn_periods dp
88: set dp.xla_conversion_status = 'H'
89: where dp.xla_conversion_status is not null
90: and dp.xla_conversion_status not like 'U%'
91: and exists
179:
180: -- Check to see if all periods were upgraded successfully.
181: select count(*)
182: into l_errors
183: from fa_deprn_periods
184: where nvl(xla_conversion_status, 'UA') not in ('UT', 'UD', 'UA', 'H');
185:
186: if (l_errors > 0) then
187:
493: l_period_name_tbl
494: limit 100;
495:
496: forall i in 1..l_book_type_code_tbl.count
497: update fa_deprn_periods dp
498: set dp.xla_conversion_status =
499: decode (substr(dp.xla_conversion_status, 1, 1),
500: 'H', '1',
501: 'E', '1',
541: if (p_worker_id <> 1) then return; end if;
542:
543: -- If all of the workers completed successfully, mark the period as
544: -- successful.
545: update fa_deprn_periods dp
546: set dp.xla_conversion_status = 'UT'
547: where dp.xla_conversion_status = to_char (p_workers_num)
548: and exists
549: (
557: and ps.period_name = dp.period_name
558: );
559:
560: -- Mark as error any periods where the workers did not complete.
561: update fa_deprn_periods dp
562: set dp.xla_conversion_status = 'ET'
563: where dp.xla_conversion_status <> to_char (p_workers_num)
564: and dp.xla_conversion_status not in ('UA', 'UT')
565: and dp.xla_conversion_status is not null
630: if (p_mode = 'downtime') then
631:
632: select count(*)
633: into l_deprn_run
634: from fa_deprn_periods dp
635: where dp.period_close_date is null
636: and dp.deprn_run = 'Y'
637: and dp.xla_conversion_status is not null
638: and dp.xla_conversion_status not in ('UA', 'UD')
763: end if;
764:
765: if (p_mode = 'downtime') then
766:
767: update fa_deprn_periods dp
768: set dp.xla_conversion_status =
769: decode (substr(dp.xla_conversion_status, 1, 1),
770: 'U', '1',
771: 'E', '1',
796: l_period_name_tbl
797: limit 100;
798:
799: forall i in 1..l_book_type_code_tbl.count
800: update fa_deprn_periods dp
801: set dp.xla_conversion_status =
802: decode (substr(dp.xla_conversion_status, 1, 1),
803: 'U', '1',
804: 'E', '1',
849: l_n_count number; -- null status
850:
851: cursor c_check_conv (cp_period_name in varchar2, cp_ledger_id in number) is
852: select distinct nvl(xla_conversion_status,'N') xla_conversion_status
853: from fa_deprn_periods
854: where period_name = cp_period_name
855: and book_type_code in ( select book_type_code
856: from fa_book_controls
857: where set_of_books_id = cp_ledger_id )
919: AND ps.application_id = 101
920: AND (ps.ledger_id, ps.period_name) not in
921: (
922: SELECT DISTINCT fbc.set_of_books_id, fdp.period_name
923: FROM fa_deprn_periods fdp, fa_book_controls fbc
924: WHERE fdp.book_type_code = fbc.book_type_code
925: );
926:
927: COMMIT;
997: if (p_worker_id <> 1) then return; end if;
998:
999: -- If all of the workers completed successfully, mark the period as
1000: -- successful.
1001: update fa_deprn_periods dp
1002: set dp.xla_conversion_status = 'UA'
1003: where dp.xla_conversion_status = to_char (p_workers_num)
1004: and exists
1005: (
1015:
1016: COMMIT;
1017:
1018: -- Mark as error any periods where the workers did not complete.
1019: update fa_deprn_periods dp
1020: set dp.xla_conversion_status = 'ED'
1021: where dp.xla_conversion_status <> to_char (p_workers_num)
1022: and dp.xla_conversion_status not in ('UA', 'UT', 'UD')
1023: and dp.xla_conversion_status is not null