[Home] [Help]
85: l_result varchar2(2000);
86: l_force boolean;
87: l_success boolean;
88: begin
89: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'ENTER', 0);
90: fnd_msg_pub.initialize;
91: --
92: -- Rollback any existing HR transaction table data.
93: --
115: --
116: -- Check for user changes.
117: --
118: i := 1;
119: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXECUTE_CURSOR', 10);
120: for rec in csr_ppm_info(p_transaction_id => to_number(p_transaction_id)) loop
121: l_changes := (l_changes or rec.state <> C_STATE_EXISTING);
122: l_txstepids(i) := rec.transaction_step_id;
123: i := i + 1;
126: -- Allocate real priorities and write to HR transaction tables if there
127: -- were any changes.
128: --
129: if l_changes then
130: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'ALLOC_REAL_PRIORITIES', 20);
131:
132: alloc_real_priorities
133: (p_transaction_id => p_transaction_id
134: ,p_assignment_id => p_assignment_id
135: ,p_effective_date => p_effective_date
136: ,p_success => l_success
137: );
138: if not l_success then
139: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:FAIL:1', 25);
140: fnd_message.set_name('PAY', 'PAY_51518_PSS_ASSERT_ERROR');
141: fnd_message.set_token('WHERE', l_proc);
142: fnd_message.set_token('ADDITIONAL_INFO', '
143: fnd_msg_pub.add;
147: ,p_data => p_msg_data
148: );
149: return;
150: end if;
151: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'C_REVIEW_REGION_ITEM', 30);
152: l_review_proc_call := pay_ppmv4_utils_ss.read_wf_config_option
153: (p_item_type => p_item_type
154: ,p_item_key => p_item_key
155: ,p_activity_id => p_activity_id
148: );
149: return;
150: end if;
151: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'C_REVIEW_REGION_ITEM', 30);
152: l_review_proc_call := pay_ppmv4_utils_ss.read_wf_config_option
153: (p_item_type => p_item_type
154: ,p_item_key => p_item_key
155: ,p_activity_id => p_activity_id
156: ,p_option => pay_ppmv4_utils_ss.C_REVIEW_REGION_ITEM
152: l_review_proc_call := pay_ppmv4_utils_ss.read_wf_config_option
153: (p_item_type => p_item_type
154: ,p_item_key => p_item_key
155: ,p_activity_id => p_activity_id
156: ,p_option => pay_ppmv4_utils_ss.C_REVIEW_REGION_ITEM
157: );
158: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'PPM2HRTT', 30);
159: for i in 1 .. l_txstepids.count loop
160: l_force := (i = 1);
154: ,p_item_key => p_item_key
155: ,p_activity_id => p_activity_id
156: ,p_option => pay_ppmv4_utils_ss.C_REVIEW_REGION_ITEM
157: );
158: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'PPM2HRTT', 30);
159: for i in 1 .. l_txstepids.count loop
160: l_force := (i = 1);
161: pay_ppmv4_utils_ss.ppm2hrtt
162: (p_item_type => p_item_type
157: );
158: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'PPM2HRTT', 30);
159: for i in 1 .. l_txstepids.count loop
160: l_force := (i = 1);
161: pay_ppmv4_utils_ss.ppm2hrtt
162: (p_item_type => p_item_type
163: ,p_item_key => p_item_key
164: ,p_activity_id => p_activity_id
165: ,p_login_person_id => p_login_person_id
171: commit;
172: end if;
173: p_return_status := fnd_api.G_RET_STS_SUCCESS;
174: p_msg_count := 0;
175: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 40);
176: exception
177: when others then
178: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:FAIL:2', 50);
179: fnd_message.set_name('PAY', 'PAY_51518_PSS_ASSERT_ERROR');
174: p_msg_count := 0;
175: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 40);
176: exception
177: when others then
178: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:FAIL:2', 50);
179: fnd_message.set_name('PAY', 'PAY_51518_PSS_ASSERT_ERROR');
180: fnd_message.set_token('WHERE', l_proc);
181: fnd_message.set_token('ADDITIONAL_INFO', sqlerrm);
182: fnd_msg_pub.add;
224: l_start number;
225: l_next varchar2(2000);
226: l_txstepid number;
227: l_state varchar2(2000);
228: l_ppm pay_ppmv4_utils_ss.t_ppmv4;
229: l_changes boolean;
230: l_bank boolean;
231: begin
232: l_txstepids := gettxstepids
239: l_start := 1;
240: loop
241: exit when l_start = 0;
242: --
243: l_next := pay_ppmv4_utils_ss.nextentry
244: (p_list => l_txstepids
245: ,p_separator => C_COMMA
246: ,p_start => l_start
247: );
262: elsif l_state = C_STATE_UPDATED then
263: --
264: -- Check if this results in a net change.
265: --
266: pay_ppmv4_utils_ss.tt2ppm
267: (p_transaction_step_id => l_txstepid
268: ,p_ppm => l_ppm
269: );
270: l_ppm.amount_type := C_REMAINING_PAY;
268: ,p_ppm => l_ppm
269: );
270: l_ppm.amount_type := C_REMAINING_PAY;
271: l_ppm.amount := 100;
272: pay_ppmv4_utils_ss.changedppm
273: (p_ppm => l_ppm
274: ,p_changes => l_changes
275: ,p_bank => l_bank
276: );
479: from pay_personal_payment_methods_f ppm
480: where ppm.personal_payment_method_id = p_personal_payment_method_id
481: ;
482: l_effective_date date;
483: l_ppm pay_ppmv4_utils_ss.t_ppmv4;
484: l_dummy varchar2(1);
485: i binary_integer;
486: irt binary_integer;
487: l_count number;
492: l_proc varchar2(2000) := g_package || 'db2tts';
493: begin
494:
495: savepoint db2tts;
496: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'ENTER', 0);
497: --
498: fnd_msg_pub.initialize;
499: -------------------------------------------------------------------
500: -- Check if this routine has been called before and use workflow --
528: add2wf(l_item_type, l_item_key, C_PREPAYMENTS_WF_ATTR, 'N');
529: --
530: -- Count the PPMs.
531: --
532: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'FETCH_PPMS', 5);
533: open csr_ppm_count
534: (p_assignment_id => p_assignment_id
535: ,p_effective_date => l_effective_date
536: );
536: );
537: fetch csr_ppm_count into l_count;
538: close csr_ppm_count;
539: if l_count = 0 then
540: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 10);
541: --
542: -- Return the transaction_id.
543: --
544: select pay_pss_transactions_s.nextval
552: end if;
553: --
554: -- Fetch the PPMs.
555: --
556: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'FETCH_PPMS', 15);
557: i := 1;
558: open csr_ppms
559: (p_assignment_id => p_assignment_id
560: ,p_effective_date => l_effective_date
580: end if;
581: --
582: -- Check for future-dated prepayments.
583: --
584: pay_ppmv4_utils_ss.seterrorstage
585: (l_proc, 'PREPAYMENTS_CHECK:' || to_char(i), 20);
586: open csr_prepayments_check
587: (p_personal_payment_method_id => l_ppm.personal_payment_method_id
588: ,p_effective_date => l_effective_date
600: close csr_prepayments_check;
601: --
602: -- Fill in the date-track modes.
603: --
604: pay_ppmv4_utils_ss.seterrorstage
605: (l_proc, 'SET_DT_MODES:' || to_char(i), 30);
606: if l_ppm.effective_date = l_effective_date then
607: l_ppm.update_datetrack_mode := hr_api.g_correction;
608: --
608: --
609: -- Need to check whether or not there are preceding date-track rows as
610: -- this affects the delete date-track mode.
611: --
612: pay_ppmv4_utils_ss.seterrorstage
613: (l_proc, 'DT_ROW_COUNT:' || to_char(i), 40);
614: open csr_dt_row_count
615: (p_personal_payment_method_id => l_ppm.personal_payment_method_id
616: );
650: end if;
651: --
652: -- Now, create a transaction table entry for this PPM.
653: --
654: pay_ppmv4_utils_ss.seterrorstage
655: (l_proc, 'WRITE_TRANSACTION:' || to_char(i), 50);
656: if i > 1 then
657: l_ppm.transaction_id := l_transaction_id;
658: end if;
655: (l_proc, 'WRITE_TRANSACTION:' || to_char(i), 50);
656: if i > 1 then
657: l_ppm.transaction_id := l_transaction_id;
658: end if;
659: pay_ppmv4_utils_ss.ppm2tt
660: (p_ppm => l_ppm
661: );
662: --
663: -- Save the transaction_id.
672: p_transaction_id := l_transaction_id;
673: add2wf(l_item_type, l_item_key, C_PSS_TXID_WF_ATTRIBUTE, l_transaction_id);
674: p_msg_count := 0;
675: p_return_status := fnd_api.G_RET_STS_SUCCESS;
676: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 60);
677: return;
678: exception
679: when others then
680: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:FAIL', 70);
676: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 60);
677: return;
678: exception
679: when others then
680: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:FAIL', 70);
681: if csr_ppm_count%isopen then
682: close csr_ppm_count;
683: end if;
684: --
1107: l_start := 1;
1108: loop
1109: exit when (l_found or l_start = 0);
1110: --
1111: l_name := pay_ppmv4_utils_ss.nextentry
1112: (p_list => l_list
1113: ,p_separator => C_LIST_SEPARATOR
1114: ,p_start => l_start
1115: );
1222: l_proc varchar2(2000) := g_package || 'getpayrollinfo';
1223: l_payroll_id per_all_assignments_f.payroll_id%TYPE;
1224:
1225: begin
1226: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'ENTER', 0);
1227: open csr_getpayrollinfo
1228: (p_assigment_id => p_assignment_id
1229: ,p_effective_date => p_effective_date
1230: );
1252: else
1253: p_prenote_required := 'N';
1254: end if;
1255: p_payroll_id := to_char(l_payroll_id);
1256: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 90);
1257:
1258: return;
1259: exception
1260: when others then
1257:
1258: return;
1259: exception
1260: when others then
1261: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:FAIL', 100);
1262: if csr_getpayrollinfo%isopen then
1263: close csr_getpayrollinfo;
1264: end if;
1265: raise;
1525: l_stage := 'EFFECTIVE_DATE:2';
1526: if not hr_workflow_utility.item_attribute_exists
1527: (p_item_type => p_item_type
1528: ,p_item_key => p_item_key
1529: ,p_name => pay_ppmv4_utils_ss.C_EFFECTIVE_DATE
1530: )
1531: then
1532: wf_engine.additemattr
1533: (itemtype => p_item_type
1531: then
1532: wf_engine.additemattr
1533: (itemtype => p_item_type
1534: ,itemkey => p_item_key
1535: ,aname => pay_ppmv4_utils_ss.C_EFFECTIVE_DATE
1536: ,date_value => l_effective_date
1537: );
1538: end if;
1539: --
1551: l_stage := 'ASSIGNMENT_ID:2';
1552: if not hr_workflow_utility.item_attribute_exists
1553: (p_item_type => p_item_type
1554: ,p_item_key => p_item_key
1555: ,p_name => pay_ppmv4_utils_ss.C_ASSIGNMENT_ID
1556: )
1557: then
1558: wf_engine.additemattr
1559: (itemtype => p_item_type
1557: then
1558: wf_engine.additemattr
1559: (itemtype => p_item_type
1560: ,itemkey => p_item_key
1561: ,aname => pay_ppmv4_utils_ss.C_ASSIGNMENT_ID
1562: ,number_value => p_assignment_id
1563: );
1564: end if;
1565: --
1646: --
1647: -- VIEW_ONLY
1648: --
1649: l_option := C_VIEW_ONLY;
1650: l_option_value := pay_ppmv4_utils_ss.read_wf_config_option
1651: (p_item_type => p_item_type
1652: ,p_item_key => p_item_key
1653: ,p_activity_id => p_activity_id
1654: ,p_option => l_option
1669: p_show_paymthd_lov := C_NO;
1670: add2wf(p_item_type, p_item_key, C_FACCT_ALWD_WF_ATTR, C_NO);
1671: else
1672: l_option := C_PERMITTED_PAYMENT_TYPES;
1673: l_option_value := pay_ppmv4_utils_ss.read_wf_config_option
1674: (p_item_type => p_item_type
1675: ,p_item_key => p_item_key
1676: ,p_activity_id => p_activity_id
1677: ,p_option => l_option
1709: -- Need to read the configuration option in all cases as some organisations
1710: -- probably wouldn't want to display Amount Type.
1711: --
1712: l_option := C_PERMITTED_AMOUNT_TYPES;
1713: l_option_value := pay_ppmv4_utils_ss.read_wf_config_option
1714: (p_item_type => p_item_type
1715: ,p_item_key => p_item_key
1716: ,p_activity_id => p_activity_id
1717: ,p_option => l_option
1781: p_max_pay_methods := 0;
1782: add2wf(p_item_type, p_item_key, C_MAX_PAY_METHODS_WF_ATTR, '0');
1783: else
1784: l_option := C_MAXIMUM_PAYMENT_METHODS;
1785: l_option_value := pay_ppmv4_utils_ss.read_wf_config_option
1786: (p_item_type => p_item_type
1787: ,p_item_key => p_item_key
1788: ,p_activity_id => p_activity_id
1789: ,p_option => l_option
1815: --
1816: if not l_view_only then
1817:
1818: l_option := C_CASH_LIST;
1819: l_cash_list := pay_ppmv4_utils_ss.read_wf_config_option
1820: (p_item_type => p_item_type
1821: ,p_item_key => p_item_key
1822: ,p_activity_id => p_activity_id
1823: ,p_option => l_option
1823: ,p_option => l_option
1824: );
1825: --
1826: l_option := C_CHECK_LIST;
1827: l_check_list := pay_ppmv4_utils_ss.read_wf_config_option
1828: (p_item_type => p_item_type
1829: ,p_item_key => p_item_key
1830: ,p_activity_id => p_activity_id
1831: ,p_option => l_option
1831: ,p_option => l_option
1832: );
1833: --
1834: l_option := C_DEPOSIT_LIST;
1835: l_deposit_list := pay_ppmv4_utils_ss.read_wf_config_option
1836: (p_item_type => p_item_type
1837: ,p_item_key => p_item_key
1838: ,p_activity_id => p_activity_id
1839: ,p_option => l_option
1963: l_start := 1;
1964: --
1965: -- Flexfield prompt.
1966: --
1967: l_part := pay_ppmv4_utils_ss.nextentry
1968: (p_list => l_option_value
1969: ,p_separator => C_LIST_SEPARATOR
1970: ,p_start => l_start
1971: );
1975: p_obscure_prompt := l_part;
1976: --
1977: -- Character used to obscure account information.
1978: --
1979: l_part := pay_ppmv4_utils_ss.nextentry
1980: (p_list => l_option_value
1981: ,p_separator => C_LIST_SEPARATOR
1982: ,p_start => l_start
1983: );
1987: p_obscure_char := l_part;
1988: --
1989: -- Number of characters to obscure.
1990: --
1991: l_part := pay_ppmv4_utils_ss.nextentry
1992: (p_list => l_option_value
1993: ,p_separator => C_LIST_SEPARATOR
1994: ,p_start => l_start
1995: );
2136: l_list varchar2(32767);
2137: i number;
2138: l_proc varchar2(2000) := g_package || 'gettxstepids';
2139: begin
2140: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'ENTER', 0);
2141: --
2142: -- Look for the transaction_id.
2143: --
2144: if p_transaction_id is null then
2141: --
2142: -- Look for the transaction_id.
2143: --
2144: if p_transaction_id is null then
2145: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 0);
2146: return null;
2147: end if;
2148: --
2149: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'CURSOR_FOR_LOOP', 10);
2145: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 0);
2146: return null;
2147: end if;
2148: --
2149: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'CURSOR_FOR_LOOP', 10);
2150: for rec in csr_txstepids(p_transaction_id => p_transaction_id) loop
2151: l_state := rec.state;
2152: l_priority := rec.logical_priority;
2153: --
2172: -- Otherwise, order does not matter but need to avoid clashes with
2173: -- priority for the Review Page PPMs.
2174: --
2175: else
2176: i := pay_ppmv4_utils_ss.C_MAX_PRIORITY + 1 + rec.transaction_step_id;
2177: l_txstepid_tbl(i) := rec.transaction_step_id;
2178: end if;
2179: end if;
2180: end loop;
2180: end loop;
2181: --
2182: -- Build list from table.
2183: --
2184: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'ADD_TO_LIST', 35);
2185: i := l_txstepid_tbl.first;
2186: loop
2187: exit when not l_txstepid_tbl.exists(i);
2188: --
2192: l_list := l_list || to_char(l_txstepid_tbl(i));
2193: --
2194: i := l_txstepid_tbl.next(i);
2195: end loop;
2196: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 40);
2197: return l_list;
2198: exception
2199: when others then
2200: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:FAIL', 50);
2196: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 40);
2197: return l_list;
2198: exception
2199: when others then
2200: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:FAIL', 50);
2201: raise;
2202: end gettxstepids;
2203: -----------------------------< alloc_real_priorities >---------------------
2204: procedure alloc_real_priorities
2219: -- Priority variables.
2220: --
2221: l_priority number;
2222: l_o_priority number;
2223: l_priorities pay_ppmv4_utils_ss.t_boolean_tbl;
2224: i number;
2225: l_proc varchar2(2000) := g_package||'alloc_real_priorities';
2226:
2227: l_run_type_id pay_pss_transaction_steps.run_type_id%type;
2235: from pay_pss_transaction_steps ppts
2236: where ppts.transaction_id = p_transaction_id;
2237:
2238: begin
2239: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'ENTER', 0);
2240: p_success := true;
2241: --
2242: -- Fetch transaction_step_ids.
2243: --
2245: (p_transaction_id => p_transaction_id
2246: ,p_summary_page => true
2247: );
2248: if l_txstepids is null then
2249: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 5);
2250: return;
2251: end if;
2252:
2253: -- Fetch the run type id for the transaction.
2266: -- Fetch priorities.
2267: --
2268: l_effective_date :=
2269: to_date(p_effective_date, hr_transaction_ss.g_date_format);
2270: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'GETPRIORITIES', 10);
2271: pay_ppmv4_utils_ss.getpriorities
2272: (p_assignment_id => p_assignment_id
2273: ,p_effective_date => l_effective_date
2274: ,p_run_type_id => l_run_type_id
2267: --
2268: l_effective_date :=
2269: to_date(p_effective_date, hr_transaction_ss.g_date_format);
2270: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'GETPRIORITIES', 10);
2271: pay_ppmv4_utils_ss.getpriorities
2272: (p_assignment_id => p_assignment_id
2273: ,p_effective_date => l_effective_date
2274: ,p_run_type_id => l_run_type_id
2275: ,p_priority_tbl => l_priorities
2280: -- reallocation of priorities.
2281: --
2282: i := l_priorities.first;
2283: while l_start <> 0 loop
2284: l_next := pay_ppmv4_utils_ss.nextentry
2285: (p_list => l_txstepids
2286: ,p_separator => C_COMMA
2287: ,p_start => l_start
2288: );
2290:
2291: --
2292: -- Fetch original real priority.
2293: --
2294: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'O_REAL_PRIORITY', 20);
2295: select p.o_real_priority
2296: into l_o_priority
2297: from pay_pss_transaction_steps p
2298: where p.transaction_step_id = l_txstepid
2301: --
2302: -- Handle NULL value in the case of a brand new row.
2303: --
2304: if l_o_priority is null then
2305: l_o_priority := pay_ppmv4_utils_ss.C_NO_PRIORITY;
2306: end if;
2307: --
2308: -- Loop through the priority list until there is an available
2309: -- priority or the original real priority value is found.
2307: --
2308: -- Loop through the priority list until there is an available
2309: -- priority or the original real priority value is found.
2310: --
2311: l_priority := pay_ppmv4_utils_ss.C_NO_PRIORITY;
2312:
2313:
2314: for j in i .. pay_ppmv4_utils_ss.C_MAX_PRIORITY loop
2315: if l_priorities(j) or (not l_priorities(j) and j = l_o_priority) then
2310: --
2311: l_priority := pay_ppmv4_utils_ss.C_NO_PRIORITY;
2312:
2313:
2314: for j in i .. pay_ppmv4_utils_ss.C_MAX_PRIORITY loop
2315: if l_priorities(j) or (not l_priorities(j) and j = l_o_priority) then
2316: l_priority := j;
2317: --
2318: -- Make sure that the next iteration starts one up in the list.
2324: --
2325: -- The following IF-statement is an ASSERTION that a priority
2326: -- value must be allocated.
2327: --
2328: if l_priority = pay_ppmv4_utils_ss.C_NO_PRIORITY then
2329: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'ALLOC_FAIL', 30);
2330: p_success := false;
2331: return;
2332: end if;
2325: -- The following IF-statement is an ASSERTION that a priority
2326: -- value must be allocated.
2327: --
2328: if l_priority = pay_ppmv4_utils_ss.C_NO_PRIORITY then
2329: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'ALLOC_FAIL', 30);
2330: p_success := false;
2331: return;
2332: end if;
2333: --
2332: end if;
2333: --
2334: -- Write back the real priority value.
2335: --
2336: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'WRITE_PRIORITY', 40);
2337: update pay_pss_transaction_steps p
2338: set p.real_priority = l_priority
2339: where p.transaction_step_id = l_txstepid;
2340: --
2339: where p.transaction_step_id = l_txstepid;
2340: --
2341:
2342: end loop;
2343: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 50);
2344: return;
2345: exception
2346: when others then
2347: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:FAIL', 60);
2343: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 50);
2344: return;
2345: exception
2346: when others then
2347: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:FAIL', 60);
2348: raise;
2349: end alloc_real_priorities;
2350: ----------------------------< update_logical_priority >--------------------
2351: procedure update_logical_priority
2357: l_o_logical_priority varchar2(2000);
2358: l_state varchar2(2000);
2359: l_amount_type varchar2(2000);
2360: l_amount number;
2361: l_ppm pay_ppmv4_utils_ss.t_ppmv4;
2362: l_changes boolean;
2363: l_bank boolean;
2364: l_proc varchar2(2000) := g_package||'update_logical_priority';
2365:
2377: and pps.ORG_PAYMENT_METHOD_ID = ppm.ORG_PAYMENT_METHOD_ID
2378: and pps.effective_date between ppm.effective_start_date and ppm.effective_end_date;
2379:
2380: begin
2381: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'ENTER', 0);
2382: --
2383: -- Fetch the current logical priority.
2384: --
2385: select to_char(p.logical_priority)
2407: -- amount type and amount need for the Remaining Pay pay method.
2408: --
2409: if l_amount_type = C_REMAINING_PAY and
2410: p_logical_priority < l_logical_priority then
2411: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'REMAINING_PAY', 5);
2412:
2413: -- fetch the oriiginal values from the pay_personal_payment_methods_f table
2414: open fetch_org_values;
2415: fetch fetch_org_values
2414: open fetch_org_values;
2415: fetch fetch_org_values
2416: into l_org_amt, l_org_percent;
2417:
2418: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'l_org_amt-percent : ' || l_org_amt || '-' || l_org_percent , 2);
2419:
2420: -- if no value is returned...use the earlier algorithm to set the value to 0
2421: if(fetch_org_values%notfound) then
2422: l_amount := 0;
2437: end if;
2438:
2439:
2440: end if;
2441: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'LOGICAL_PRIORITY CHANGE', 10);
2442: if nvl(l_o_logical_priority, to_char(hr_api.g_number)) =
2443: p_logical_priority then
2444: --
2445: -- If this is an existing PPM that has been updated then it is
2446: -- necessary to check whether or not this change will reset the PPM
2447: -- to its original state.
2448: --
2449: if l_state = C_STATE_UPDATED then
2450: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'TT2PPM', 20);
2451: pay_ppmv4_utils_ss.tt2ppm
2452: (p_transaction_step_id => to_number(p_transaction_step_id)
2453: ,p_ppm => l_ppm
2454: );
2447: -- to its original state.
2448: --
2449: if l_state = C_STATE_UPDATED then
2450: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'TT2PPM', 20);
2451: pay_ppmv4_utils_ss.tt2ppm
2452: (p_transaction_step_id => to_number(p_transaction_step_id)
2453: ,p_ppm => l_ppm
2454: );
2455: l_ppm.logical_priority := to_number(p_logical_priority);
2454: );
2455: l_ppm.logical_priority := to_number(p_logical_priority);
2456: l_ppm.amount := l_amount;
2457: l_ppm.amount_type := l_amount_type;
2458: pay_ppmv4_utils_ss.changedppm
2459: (p_ppm => l_ppm
2460: ,p_changes => l_changes
2461: ,p_bank => l_bank
2462: );
2489: , p.logical_priority = p_logical_priority
2490: , p.state = l_state
2491: where p.transaction_step_id = p_transaction_step_id;
2492: end if;
2493: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 70);
2494: exception
2495: when others then
2496: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:FAIL', 80);
2497: raise;
2492: end if;
2493: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 70);
2494: exception
2495: when others then
2496: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:FAIL', 80);
2497: raise;
2498: end update_logical_priority;
2499: ----------------------------< increment_priorities >-----------------------
2500: --
2531:
2532: --
2533: l_proc varchar2(2000) := g_package||'increment_priorities';
2534: begin
2535: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'ENTER', 10);
2536: for rec in csr_ppms(p_transaction_id => p_transaction_id) loop
2537: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'IN-LOOP', 20);
2538: update_logical_priority
2539: (p_transaction_step_id => rec.transaction_step_id
2533: l_proc varchar2(2000) := g_package||'increment_priorities';
2534: begin
2535: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'ENTER', 10);
2536: for rec in csr_ppms(p_transaction_id => p_transaction_id) loop
2537: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'IN-LOOP', 20);
2538: update_logical_priority
2539: (p_transaction_step_id => rec.transaction_step_id
2540: ,p_amount_type => rec.amount_type
2541: ,p_logical_priority => rec.logical_priority + 1
2540: ,p_amount_type => rec.amount_type
2541: ,p_logical_priority => rec.logical_priority + 1
2542: );
2543: end loop;
2544: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 30);
2545: return;
2546: exception
2547: when others then
2548: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:FAIL', 40);
2544: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 30);
2545: return;
2546: exception
2547: when others then
2548: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:FAIL', 40);
2549: raise;
2550: end increment_priorities;
2551: ----------------------------------< enter_ppm >----------------------------
2552: procedure enter_ppm
2590: ,p_msg_data out nocopy varchar2
2591: ) is
2592: l_current boolean;
2593: l_original boolean;
2594: l_new_ppm pay_ppmv4_utils_ss.t_ppmv4;
2595: l_saved_ppm pay_ppmv4_utils_ss.t_ppmv4;
2596: l_freed_txstepids varchar2(32767);
2597: l_freed_txstepid varchar2(2000);
2598: l_start number := 1;
2591: ) is
2592: l_current boolean;
2593: l_original boolean;
2594: l_new_ppm pay_ppmv4_utils_ss.t_ppmv4;
2595: l_saved_ppm pay_ppmv4_utils_ss.t_ppmv4;
2596: l_freed_txstepids varchar2(32767);
2597: l_freed_txstepid varchar2(2000);
2598: l_start number := 1;
2599: l_return_status varchar2(2000);
2632: l_segment30 varchar2(2000);
2633: begin
2634:
2635:
2636: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'ENTER', 0);
2637: --
2638: -- Initialise the AOL message tables.
2639: --
2640: fnd_msg_pub.initialize;
2683: --------------------
2684: -- AN UPDATED PPM --
2685: --------------------
2686: if p_transaction_step_id is not null then
2687: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'TT2PPM', 10);
2688: pay_ppmv4_utils_ss.tt2ppm
2689: (p_transaction_step_id => p_transaction_step_id
2690: ,p_ppm => l_saved_ppm
2691: );
2684: -- AN UPDATED PPM --
2685: --------------------
2686: if p_transaction_step_id is not null then
2687: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'TT2PPM', 10);
2688: pay_ppmv4_utils_ss.tt2ppm
2689: (p_transaction_step_id => p_transaction_step_id
2690: ,p_ppm => l_saved_ppm
2691: );
2692: --
2691: );
2692: --
2693: -- Compare the new and saved PPMs.
2694: --
2695: pay_ppmv4_utils_ss.changedppm
2696: (p_new_ppm => l_new_ppm
2697: ,p_saved_ppm => l_saved_ppm
2698: ,p_original => l_original
2699: ,p_current => l_current
2701: --
2702: -- Return if the result is no net change from the saved PPM.
2703: --
2704: if not l_current then
2705: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 20);
2706: --
2707: -- Set up messages to Oracle Applications API standards as these
2708: -- are handled "for free" using checkErrors.
2709: --
2756: -- The above version of changedppm ignores logical_priority so
2757: -- do the check here.
2758: --
2759: if l_saved_ppm.logical_priority = l_saved_ppm.o_logical_priority then
2760: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXISTING', 30);
2761: l_saved_ppm.state := C_STATE_EXISTING;
2762: end if;
2763: --
2764: -- Save the PPM and return.
2762: end if;
2763: --
2764: -- Save the PPM and return.
2765: --
2766: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'PPM2TT', 40);
2767: pay_ppmv4_utils_ss.ppm2tt
2768: (p_ppm => l_saved_ppm
2769: );
2770: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 50);
2763: --
2764: -- Save the PPM and return.
2765: --
2766: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'PPM2TT', 40);
2767: pay_ppmv4_utils_ss.ppm2tt
2768: (p_ppm => l_saved_ppm
2769: );
2770: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 50);
2771: --
2766: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'PPM2TT', 40);
2767: pay_ppmv4_utils_ss.ppm2tt
2768: (p_ppm => l_saved_ppm
2769: );
2770: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 50);
2771: --
2772: -- Set up messages to Oracle Applications API standards as these
2773: -- are handled "for free" using checkErrors().
2774: --
2783: -- The PPM has been updated (rather than just having its priority
2784: -- changed) so update its state accordingly.
2785: --
2786: if l_saved_ppm.state = C_STATE_EXISTING then
2787: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXISTING', 60);
2788: l_saved_ppm.state := C_STATE_UPDATED;
2789: end if;
2790: -------------------------
2791: -- A NEWLY CREATED PPM --
2796: l_saved_ppm.logical_priority := 1;
2797: --
2798: -- Reuse any available freed transaction.
2799: --
2800: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'GETTXSTEPIDS', 80);
2801: l_freed_txstepids := gettxstepids
2802: (p_transaction_id => p_transaction_id
2803: ,p_freed => true
2804: );
2801: l_freed_txstepids := gettxstepids
2802: (p_transaction_id => p_transaction_id
2803: ,p_freed => true
2804: );
2805: l_freed_txstepid := pay_ppmv4_utils_ss.nextentry
2806: (p_list => l_freed_txstepids
2807: ,p_separator => C_COMMA
2808: ,p_start => l_start
2809: );
2812: --
2813: -- Get the bank segments, if necessary.
2814: --
2815: if l_saved_ppm.external_account_id is not null then
2816: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'GET_SEGMENTS', 85);
2817: pay_ppmv4_utils_ss.get_bank_segments
2818: (p_external_account_id => l_saved_ppm.external_account_id
2819: ,p_segment1 => l_segment1
2820: ,p_segment2 => l_segment2
2813: -- Get the bank segments, if necessary.
2814: --
2815: if l_saved_ppm.external_account_id is not null then
2816: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'GET_SEGMENTS', 85);
2817: pay_ppmv4_utils_ss.get_bank_segments
2818: (p_external_account_id => l_saved_ppm.external_account_id
2819: ,p_segment1 => l_segment1
2820: ,p_segment2 => l_segment2
2821: ,p_segment3 => l_segment3
2852: -- chk_foreign_account(p_transaction_step_id => p_transaction_step_id); removed for Foreign Account Enh akadam
2853: --
2854: -- Validate the PPM changes.
2855: --
2856: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'VALIDATEPPM', 90);
2857: pay_ppmv4_utils_ss.validateppm
2858: (p_state => l_saved_ppm.state
2859: ,p_personal_payment_method_id => l_saved_ppm.personal_payment_method_id
2860: ,p_object_version_number => l_saved_ppm.update_ovn
2853: --
2854: -- Validate the PPM changes.
2855: --
2856: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'VALIDATEPPM', 90);
2857: pay_ppmv4_utils_ss.validateppm
2858: (p_state => l_saved_ppm.state
2859: ,p_personal_payment_method_id => l_saved_ppm.personal_payment_method_id
2860: ,p_object_version_number => l_saved_ppm.update_ovn
2861: ,p_update_datetrack_mode => l_saved_ppm.update_datetrack_mode
2931: -- Increment the logical priorities if this is a brand
2932: -- new PPM - it must be inserted at priority 1.
2933: --
2934: if p_transaction_step_id is null then
2935: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'INCREMENT_PRIORITIES', 100);
2936: increment_priorities
2937: (p_transaction_id => p_transaction_id
2938: );
2939: end if;
2937: (p_transaction_id => p_transaction_id
2938: );
2939: end if;
2940: --
2941: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'PPM2TT', 110);
2942: pay_ppmv4_utils_ss.ppm2tt
2943: (p_ppm => l_saved_ppm
2944: );
2945: --
2938: );
2939: end if;
2940: --
2941: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'PPM2TT', 110);
2942: pay_ppmv4_utils_ss.ppm2tt
2943: (p_ppm => l_saved_ppm
2944: );
2945: --
2946: -- Update p_transaction_step_id.
2956: (p_count => p_msg_count
2957: ,p_data => p_msg_data
2958: );
2959: if l_return_status = fnd_api.G_RET_STS_SUCCESS then
2960: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 120);
2961: else
2962: pay_ppmv4_utils_ss.seterrorstage
2963: (l_proc, 'EXIT:VALIDATE_FAIL:' || l_return_status, 125);
2964: end if;
2958: );
2959: if l_return_status = fnd_api.G_RET_STS_SUCCESS then
2960: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 120);
2961: else
2962: pay_ppmv4_utils_ss.seterrorstage
2963: (l_proc, 'EXIT:VALIDATE_FAIL:' || l_return_status, 125);
2964: end if;
2965: return;
2966: exception
2964: end if;
2965: return;
2966: exception
2967: when others then
2968: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:FAIL', 130);
2969: --
2970: -- Set up messages to Oracle Applications API standards as these
2971: -- are handled "for free" using checkErrors().
2972: --
2990: ) is
2991: l_state varchar2(2000);
2992: l_amount_type varchar2(2000);
2993: l_transaction_id number;
2994: l_ppm pay_ppmv4_utils_ss.t_ppmv4;
2995: l_proc varchar2(2000) := g_package||'delete_ppm';
2996: l_message_name varchar2(2000);
2997: begin
2998: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'ENTER', 0);
2994: l_ppm pay_ppmv4_utils_ss.t_ppmv4;
2995: l_proc varchar2(2000) := g_package||'delete_ppm';
2996: l_message_name varchar2(2000);
2997: begin
2998: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'ENTER', 0);
2999: --
3000: -- Initialise the AOL message tables.
3001: --
3002: fnd_msg_pub.initialize;
3015: -- If this is a newly created PPM then it's only necessary to update
3016: -- the state.
3017: --
3018: if l_state = C_STATE_NEW then
3019: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'PPM_FREED', 10);
3020: update pay_pss_transaction_steps p
3021: set p.state = C_STATE_FREED
3022: where p.transaction_step_id = p_transaction_step_id;
3023: else
3020: update pay_pss_transaction_steps p
3021: set p.state = C_STATE_FREED
3022: where p.transaction_step_id = p_transaction_step_id;
3023: else
3024: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'TT2PPM', 20);
3025: pay_ppmv4_utils_ss.tt2ppm
3026: (p_transaction_step_id => p_transaction_step_id
3027: ,p_ppm => l_ppm
3028: );
3021: set p.state = C_STATE_FREED
3022: where p.transaction_step_id = p_transaction_step_id;
3023: else
3024: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'TT2PPM', 20);
3025: pay_ppmv4_utils_ss.tt2ppm
3026: (p_transaction_step_id => p_transaction_step_id
3027: ,p_ppm => l_ppm
3028: );
3029: --
3029: --
3030: -- All the information for deleting the PPM is automatically set up.
3031: -- Call process_api to validate the changes.
3032: --
3033: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'PROCESS_API', 25);
3034: begin
3035: pay_ppmv4_utils_ss.process_api
3036: (p_validate => true
3037: ,p_state => C_STATE_DELETED
3031: -- Call process_api to validate the changes.
3032: --
3033: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'PROCESS_API', 25);
3034: begin
3035: pay_ppmv4_utils_ss.process_api
3036: (p_validate => true
3037: ,p_state => C_STATE_DELETED
3038: ,p_effective_date => l_ppm.effective_date
3039: ,p_personal_payment_method_id => l_ppm.personal_payment_method_id
3047: if l_message_name = 'HR_7360_PPM_DEL_NOT_ALLOWED' or
3048: l_message_name = 'HR_6679_PPM_PRE_PAY' or
3049: l_message_name = 'PER_PRS_PAY_MTD_DISABLE_DEL'
3050: then
3051: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:FAIL:1', 30);
3052: --
3053: -- Handle valid DELETE failures:
3054: -- a) Prepayments exist.
3055: -- b) 3rd Party Payroll interface does not allow zap deletes.
3098: l_ppm.state := C_STATE_DELETED;
3099: --
3100: -- Write back the PPM.
3101: --
3102: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'DELETED', 40);
3103: pay_ppmv4_utils_ss.ppm2tt
3104: (p_ppm => l_ppm
3105: );
3106: end if;
3099: --
3100: -- Write back the PPM.
3101: --
3102: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'DELETED', 40);
3103: pay_ppmv4_utils_ss.ppm2tt
3104: (p_ppm => l_ppm
3105: );
3106: end if;
3107: --
3121: fnd_msg_pub.count_and_get
3122: (p_count => p_msg_count
3123: ,p_data => p_msg_data
3124: );
3125: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 45);
3126: return;
3127: exception
3128: when others then
3129: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:FAIL:2', 50);
3125: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 45);
3126: return;
3127: exception
3128: when others then
3129: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:FAIL:2', 50);
3130: --
3131: -- Set up messages to Oracle Applications API standards as these
3132: -- are handled "for free" using checkErrors().
3133: --
3198: begin
3199: --
3200: -- Fix up the priorities.
3201: --
3202: l_priority := pay_ppmv4_utils_ss.C_MIN_PRIORITY;
3203: for ppm in c_ppms(p_assignment_id, p_effective_date) loop
3204: if ppm.priority <> l_priority then
3205: --
3206: -- Set the correct datetrack mode.
3232: procedure process_api
3233: (p_transaction_step_id in number
3234: ,p_validate in boolean default false
3235: ) is
3236: l_ppm pay_ppmv4_utils_ss.t_ppmv4;
3237: l_proc varchar2(2000) := g_package||'process_api';
3238: l_pss_txstepid number;
3239: l_segment1 varchar2(2000);
3240: l_segment2 varchar2(2000);
3271: l_hr_txid number;
3272: l_unprocessed number;
3273: begin
3274:
3275: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'ENTER', 0);
3276: l_pss_txstepid := hr_transaction_api.get_number_value
3277: (p_transaction_step_id => p_transaction_step_id
3278: ,p_name => pay_ppmv4_utils_ss.C_TX_STEP_ID_ARG
3279: );
3274:
3275: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'ENTER', 0);
3276: l_pss_txstepid := hr_transaction_api.get_number_value
3277: (p_transaction_step_id => p_transaction_step_id
3278: ,p_name => pay_ppmv4_utils_ss.C_TX_STEP_ID_ARG
3279: );
3280: pay_ppmv4_utils_ss.tt2ppm
3281: (p_transaction_step_id => l_pss_txstepid
3282: ,p_ppm => l_ppm
3276: l_pss_txstepid := hr_transaction_api.get_number_value
3277: (p_transaction_step_id => p_transaction_step_id
3278: ,p_name => pay_ppmv4_utils_ss.C_TX_STEP_ID_ARG
3279: );
3280: pay_ppmv4_utils_ss.tt2ppm
3281: (p_transaction_step_id => l_pss_txstepid
3282: ,p_ppm => l_ppm
3283: );
3284: --
3285: -- Get the bank segments for deposit PPMs.
3286: --
3287:
3288: if l_ppm.external_account_id is not null then
3289: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'GET_BANK_SEGMENTS', 5);
3290: pay_ppmv4_utils_ss.get_bank_segments
3291: (p_external_account_id => l_ppm.external_account_id
3292: ,p_segment1 => l_segment1
3293: ,p_segment2 => l_segment2
3286: --
3287:
3288: if l_ppm.external_account_id is not null then
3289: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'GET_BANK_SEGMENTS', 5);
3290: pay_ppmv4_utils_ss.get_bank_segments
3291: (p_external_account_id => l_ppm.external_account_id
3292: ,p_segment1 => l_segment1
3293: ,p_segment2 => l_segment2
3294: ,p_segment3 => l_segment3
3323: end if;
3324: --
3325: -- Make the API call.
3326: --
3327: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'PROCESS_API', 10);
3328: pay_ppmv4_utils_ss.process_api
3329: (p_state => l_ppm.state
3330: ,p_personal_payment_method_id => l_ppm.personal_payment_method_id
3331: ,p_object_version_number => l_ppm.update_ovn
3324: --
3325: -- Make the API call.
3326: --
3327: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'PROCESS_API', 10);
3328: pay_ppmv4_utils_ss.process_api
3329: (p_state => l_ppm.state
3330: ,p_personal_payment_method_id => l_ppm.personal_payment_method_id
3331: ,p_object_version_number => l_ppm.update_ovn
3332: ,p_delete_ovn => l_ppm.delete_ovn
3397: if not p_validate then
3398: --
3399: -- Get the HR transaction information.
3400: --
3401: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'GET_HR_TX_INFO', 20);
3402: select creator_person_id
3403: , transaction_id
3404: into l_hr_txpersonid
3405: , l_hr_txid
3407: where transaction_step_id = p_transaction_step_id;
3408: --
3409: -- Set the processed flag for this transaction.
3410: --
3411: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'SET_PROCESSED_FLAG', 25);
3412: hr_transaction_api.set_varchar2_value
3413: (p_validate => false
3414: ,p_transaction_step_id => p_transaction_step_id
3415: ,p_person_id => l_hr_txpersonid
3412: hr_transaction_api.set_varchar2_value
3413: (p_validate => false
3414: ,p_transaction_step_id => p_transaction_step_id
3415: ,p_person_id => l_hr_txpersonid
3416: ,p_name => pay_ppmv4_utils_ss.C_PROCESSED_FLAG_ARG
3417: ,p_value => 'Y'
3418: );
3419: --
3420: -- Check is any HR transactions are still to be processed.
3418: );
3419: --
3420: -- Check is any HR transactions are still to be processed.
3421: --
3422: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'COUNT_UNPROCESSED', 30);
3423: select count(*)
3424: into l_unprocessed
3425: from hr_api_transaction_values hatv
3426: where hatv.name = pay_ppmv4_utils_ss.C_PROCESSED_FLAG_ARG
3422: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'COUNT_UNPROCESSED', 30);
3423: select count(*)
3424: into l_unprocessed
3425: from hr_api_transaction_values hatv
3426: where hatv.name = pay_ppmv4_utils_ss.C_PROCESSED_FLAG_ARG
3427: and hatv.varchar2_value = 'N'
3428: and hatv.transaction_step_id in
3429: (select transaction_step_id
3430: from hr_api_transaction_steps hats
3428: and hatv.transaction_step_id in
3429: (select transaction_step_id
3430: from hr_api_transaction_steps hats
3431: where hats.transaction_id = l_hr_txid);
3432: pay_ppmv4_utils_ss.seterrorstage
3433: (l_proc, 'UNPROCESSED_COUNT:' || to_char(l_unprocessed), 35);
3434: --
3435: -- Resequence priorities if nothing left to be processed.
3436: --
3434: --
3435: -- Resequence priorities if nothing left to be processed.
3436: --
3437: if l_unprocessed = 0 then
3438: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'RESEQUENCE_PRIORITIES', 40);
3439: resequence_priorities
3440: (p_assignment_id => l_ppm.assignment_id
3441: ,p_effective_date => l_ppm.effective_date
3442: ,p_run_type_id => l_ppm.run_type_id
3442: ,p_run_type_id => l_ppm.run_type_id
3443: );
3444: end if;
3445: end if;
3446: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 50);
3447: return;
3448: exception
3449: when others then
3450: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:FAIL', 60);
3446: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 50);
3447: return;
3448: exception
3449: when others then
3450: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:FAIL', 60);
3451: raise;
3452: end process_api;
3453: ------------------------< delete_pss_transactions >----------------------
3454: procedure delete_ppm_transactions