[Home] [Help]
1215:
1216: l_diff_count := p_old_count - p_new_count;
1217:
1218: /* Logic Used
1219: (A) Fetch all items from Original Archive for Standard and ETP pages
1220: (B) If this item is missing in New Archive PL/SQL table, set the Amended PS Flag accordingly
1221: (C) We will look only for items of type PAYG,ETP_CMN,ETP1, ETP2,ETP3,ETP4 - Relevant Numeric and Date Types
1222: (D) CMN - we are not interested if these items are missing
1223: (E) ETP_CMN_BAL and AMEND items are archived for all Employees - so will be ignored
1958: END IF;
1959:
1960: IF ( l_payg_tab_new.COUNT > 0)
1961: THEN
1962: hr_utility.set_location(' STANDARD ITEMS ',3720);
1963:
1964: FOR i IN l_payg_tab_new.FIRST..l_payg_tab_new.LAST
1965: LOOP
1966: 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);
2317:
2318: /* Initialize all Amended Payment Summary Flags,
2319: Index Meaning Value
2320: 0. Common A
2321: 1 Standard O
2322: 2 ETP1 O
2323: 3 ETP2 O
2324: 4 ETP3 O
2325: 5 ETP4 O
2380: slot_items_build_archive_list(l_archive_action_id
2381: ,p_all_tab_new);
2382:
2383: /* 1. Archive all Common Information - Old
2384: 2. Archive all Standard Information - Old/New based on EIT
2385: 3. Archive all ETP Information - Old/New based on EIT
2386: 4. Archive Amended Payment Summary Flags
2387: */
2388: