[Home] [Help]
787:
788: l_diff_count := p_old_count - p_new_count;
789:
790: /* Logic Used
791: (A) Fetch all items from Original Archive for Standard and ETP pages
792: (B) If this item is missing in New Archive PL/SQL table, set the Amended PS Flag accordingly
793: (C) We will look only for items of type PAYG,ETP_CMN,ETP1, ETP2,ETP3,ETP4 - Relevant Numeric and Date Types
794: (D) CMN - we are not interested if these items are missing
795: (E) ETP_CMN_BAL and AMEND items are archived for all Employees - so will be ignored
1263: END IF;
1264:
1265: IF ( l_payg_tab_new.COUNT > 0)
1266: THEN
1267: hr_utility.set_location(' STANDARD ITEMS ',3720);
1268:
1269: FOR i IN l_payg_tab_new.FIRST..l_payg_tab_new.LAST
1270: LOOP
1271: hr_utility.set_location(rpad(i,5,' ')||rpad(substr(l_payg_tab_new(i).db_item_name,1,50),50,' ')||rpad(l_payg_tab_new(i).db_item_value,30,' '),3720);
1598:
1599: /* Initialize all Amended Payment Summary Flags,
1600: Index Meaning Value
1601: 0. Common A
1602: 1 Standard O
1603: 2 ETP1 O
1604: 3 ETP2 O
1605: 4 ETP3 O
1606: 5 ETP4 O
1656: slot_items_build_archive_list(l_archive_action_id
1657: ,p_all_tab_new);
1658:
1659: /* 1. Archive all Common Information - Old
1660: 2. Archive all Standard Information - Old/New based on EIT
1661: 3. Archive all ETP Information - Old/New based on EIT
1662: 4. Archive Amended Payment Summary Flags
1663: */
1664: