[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: );
548: from pay_personal_payment_methods_f ppm
549: where ppm.personal_payment_method_id = p_personal_payment_method_id
550: ;
551: l_effective_date date;
552: l_ppm pay_ppmv4_utils_ss.t_ppmv4;
553: l_dummy varchar2(1);
554: i binary_integer;
555: irt binary_integer;
556: l_count number;
561: l_proc varchar2(2000) := g_package || 'db2tts';
562: begin
563:
564: savepoint db2tts;
565: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'ENTER', 0);
566: --
567: fnd_msg_pub.initialize;
568: -------------------------------------------------------------------
569: -- Check if this routine has been called before and use workflow --
597: add2wf(l_item_type, l_item_key, C_PREPAYMENTS_WF_ATTR, 'N');
598: --
599: -- Count the PPMs.
600: --
601: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'FETCH_PPMS', 5);
602: open csr_ppm_count
603: (p_assignment_id => p_assignment_id
604: ,p_effective_date => l_effective_date
605: );
605: );
606: fetch csr_ppm_count into l_count;
607: close csr_ppm_count;
608: if l_count = 0 then
609: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 10);
610: --
611: -- Return the transaction_id.
612: --
613: select pay_pss_transactions_s.nextval
621: end if;
622: --
623: -- Fetch the PPMs.
624: --
625: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'FETCH_PPMS', 15);
626: i := 1;
627: open csr_ppms
628: (p_assignment_id => p_assignment_id
629: ,p_effective_date => l_effective_date
649: end if;
650: --
651: -- Check for future-dated prepayments.
652: --
653: pay_ppmv4_utils_ss.seterrorstage
654: (l_proc, 'PREPAYMENTS_CHECK:' || to_char(i), 20);
655: open csr_prepayments_check
656: (p_personal_payment_method_id => l_ppm.personal_payment_method_id
657: ,p_effective_date => l_effective_date
669: close csr_prepayments_check;
670: --
671: -- Fill in the date-track modes.
672: --
673: pay_ppmv4_utils_ss.seterrorstage
674: (l_proc, 'SET_DT_MODES:' || to_char(i), 30);
675: if l_ppm.effective_date = l_effective_date then
676: l_ppm.update_datetrack_mode := hr_api.g_correction;
677: --
677: --
678: -- Need to check whether or not there are preceding date-track rows as
679: -- this affects the delete date-track mode.
680: --
681: pay_ppmv4_utils_ss.seterrorstage
682: (l_proc, 'DT_ROW_COUNT:' || to_char(i), 40);
683: open csr_dt_row_count
684: (p_personal_payment_method_id => l_ppm.personal_payment_method_id
685: );
719: end if;
720: --
721: -- Now, create a transaction table entry for this PPM.
722: --
723: pay_ppmv4_utils_ss.seterrorstage
724: (l_proc, 'WRITE_TRANSACTION:' || to_char(i), 50);
725: if i > 1 then
726: l_ppm.transaction_id := l_transaction_id;
727: end if;
724: (l_proc, 'WRITE_TRANSACTION:' || to_char(i), 50);
725: if i > 1 then
726: l_ppm.transaction_id := l_transaction_id;
727: end if;
728: pay_ppmv4_utils_ss.ppm2tt
729: (p_ppm => l_ppm
730: );
731: --
732: -- Save the transaction_id.
741: p_transaction_id := l_transaction_id;
742: add2wf(l_item_type, l_item_key, C_PSS_TXID_WF_ATTRIBUTE, l_transaction_id);
743: p_msg_count := 0;
744: p_return_status := fnd_api.G_RET_STS_SUCCESS;
745: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 60);
746: return;
747: exception
748: when others then
749: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:FAIL', 70);
745: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 60);
746: return;
747: exception
748: when others then
749: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:FAIL', 70);
750: if csr_ppm_count%isopen then
751: close csr_ppm_count;
752: end if;
753: --
1182: l_start := 1;
1183: loop
1184: exit when (l_found or l_start = 0);
1185: --
1186: l_name := pay_ppmv4_utils_ss.nextentry
1187: (p_list => l_list
1188: ,p_separator => C_LIST_SEPARATOR
1189: ,p_start => l_start
1190: );
1297: l_proc varchar2(2000) := g_package || 'getpayrollinfo';
1298: l_payroll_id per_all_assignments_f.payroll_id%TYPE;
1299:
1300: begin
1301: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'ENTER', 0);
1302: open csr_getpayrollinfo
1303: (p_assigment_id => p_assignment_id
1304: ,p_effective_date => p_effective_date
1305: );
1327: else
1328: p_prenote_required := 'N';
1329: end if;
1330: p_payroll_id := to_char(l_payroll_id);
1331: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 90);
1332:
1333: return;
1334: exception
1335: when others then
1332:
1333: return;
1334: exception
1335: when others then
1336: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:FAIL', 100);
1337: if csr_getpayrollinfo%isopen then
1338: close csr_getpayrollinfo;
1339: end if;
1340: raise;
1600: l_stage := 'EFFECTIVE_DATE:2';
1601: if not hr_workflow_utility.item_attribute_exists
1602: (p_item_type => p_item_type
1603: ,p_item_key => p_item_key
1604: ,p_name => pay_ppmv4_utils_ss.C_EFFECTIVE_DATE
1605: )
1606: then
1607: wf_engine.additemattr
1608: (itemtype => p_item_type
1606: then
1607: wf_engine.additemattr
1608: (itemtype => p_item_type
1609: ,itemkey => p_item_key
1610: ,aname => pay_ppmv4_utils_ss.C_EFFECTIVE_DATE
1611: ,date_value => l_effective_date
1612: );
1613: end if;
1614: --
1626: l_stage := 'ASSIGNMENT_ID:2';
1627: if not hr_workflow_utility.item_attribute_exists
1628: (p_item_type => p_item_type
1629: ,p_item_key => p_item_key
1630: ,p_name => pay_ppmv4_utils_ss.C_ASSIGNMENT_ID
1631: )
1632: then
1633: wf_engine.additemattr
1634: (itemtype => p_item_type
1632: then
1633: wf_engine.additemattr
1634: (itemtype => p_item_type
1635: ,itemkey => p_item_key
1636: ,aname => pay_ppmv4_utils_ss.C_ASSIGNMENT_ID
1637: ,number_value => p_assignment_id
1638: );
1639: end if;
1640: --
1721: --
1722: -- VIEW_ONLY
1723: --
1724: l_option := C_VIEW_ONLY;
1725: l_option_value := pay_ppmv4_utils_ss.read_wf_config_option
1726: (p_item_type => p_item_type
1727: ,p_item_key => p_item_key
1728: ,p_activity_id => p_activity_id
1729: ,p_option => l_option
1744: p_show_paymthd_lov := C_NO;
1745: add2wf(p_item_type, p_item_key, C_FACCT_ALWD_WF_ATTR, C_NO);
1746: else
1747: l_option := C_PERMITTED_PAYMENT_TYPES;
1748: l_option_value := pay_ppmv4_utils_ss.read_wf_config_option
1749: (p_item_type => p_item_type
1750: ,p_item_key => p_item_key
1751: ,p_activity_id => p_activity_id
1752: ,p_option => l_option
1784: -- Need to read the configuration option in all cases as some organisations
1785: -- probably wouldn't want to display Amount Type.
1786: --
1787: l_option := C_PERMITTED_AMOUNT_TYPES;
1788: l_option_value := pay_ppmv4_utils_ss.read_wf_config_option
1789: (p_item_type => p_item_type
1790: ,p_item_key => p_item_key
1791: ,p_activity_id => p_activity_id
1792: ,p_option => l_option
1856: p_max_pay_methods := 0;
1857: add2wf(p_item_type, p_item_key, C_MAX_PAY_METHODS_WF_ATTR, '0');
1858: else
1859: l_option := C_MAXIMUM_PAYMENT_METHODS;
1860: l_option_value := pay_ppmv4_utils_ss.read_wf_config_option
1861: (p_item_type => p_item_type
1862: ,p_item_key => p_item_key
1863: ,p_activity_id => p_activity_id
1864: ,p_option => l_option
1890: --
1891: if not l_view_only then
1892:
1893: l_option := C_CASH_LIST;
1894: l_cash_list := pay_ppmv4_utils_ss.read_wf_config_option
1895: (p_item_type => p_item_type
1896: ,p_item_key => p_item_key
1897: ,p_activity_id => p_activity_id
1898: ,p_option => l_option
1898: ,p_option => l_option
1899: );
1900: --
1901: l_option := C_CHECK_LIST;
1902: l_check_list := pay_ppmv4_utils_ss.read_wf_config_option
1903: (p_item_type => p_item_type
1904: ,p_item_key => p_item_key
1905: ,p_activity_id => p_activity_id
1906: ,p_option => l_option
1906: ,p_option => l_option
1907: );
1908: --
1909: l_option := C_DEPOSIT_LIST;
1910: l_deposit_list := pay_ppmv4_utils_ss.read_wf_config_option
1911: (p_item_type => p_item_type
1912: ,p_item_key => p_item_key
1913: ,p_activity_id => p_activity_id
1914: ,p_option => l_option
2038: l_start := 1;
2039: --
2040: -- Flexfield prompt.
2041: --
2042: l_part := pay_ppmv4_utils_ss.nextentry
2043: (p_list => l_option_value
2044: ,p_separator => C_LIST_SEPARATOR
2045: ,p_start => l_start
2046: );
2050: p_obscure_prompt := l_part;
2051: --
2052: -- Character used to obscure account information.
2053: --
2054: l_part := pay_ppmv4_utils_ss.nextentry
2055: (p_list => l_option_value
2056: ,p_separator => C_LIST_SEPARATOR
2057: ,p_start => l_start
2058: );
2062: p_obscure_char := l_part;
2063: --
2064: -- Number of characters to obscure.
2065: --
2066: l_part := pay_ppmv4_utils_ss.nextentry
2067: (p_list => l_option_value
2068: ,p_separator => C_LIST_SEPARATOR
2069: ,p_start => l_start
2070: );
2211: l_list varchar2(32767);
2212: i number;
2213: l_proc varchar2(2000) := g_package || 'gettxstepids';
2214: begin
2215: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'ENTER', 0);
2216: --
2217: -- Look for the transaction_id.
2218: --
2219: if p_transaction_id is null then
2216: --
2217: -- Look for the transaction_id.
2218: --
2219: if p_transaction_id is null then
2220: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 0);
2221: return null;
2222: end if;
2223: --
2224: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'CURSOR_FOR_LOOP', 10);
2220: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 0);
2221: return null;
2222: end if;
2223: --
2224: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'CURSOR_FOR_LOOP', 10);
2225: for rec in csr_txstepids(p_transaction_id => p_transaction_id) loop
2226: l_state := rec.state;
2227: l_priority := rec.logical_priority;
2228: --
2247: -- Otherwise, order does not matter but need to avoid clashes with
2248: -- priority for the Review Page PPMs.
2249: --
2250: else
2251: i := pay_ppmv4_utils_ss.C_MAX_PRIORITY + 1 + rec.transaction_step_id;
2252: l_txstepid_tbl(i) := rec.transaction_step_id;
2253: end if;
2254: end if;
2255: end loop;
2255: end loop;
2256: --
2257: -- Build list from table.
2258: --
2259: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'ADD_TO_LIST', 35);
2260: i := l_txstepid_tbl.first;
2261: loop
2262: exit when not l_txstepid_tbl.exists(i);
2263: --
2267: l_list := l_list || to_char(l_txstepid_tbl(i));
2268: --
2269: i := l_txstepid_tbl.next(i);
2270: end loop;
2271: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 40);
2272: return l_list;
2273: exception
2274: when others then
2275: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:FAIL', 50);
2271: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 40);
2272: return l_list;
2273: exception
2274: when others then
2275: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:FAIL', 50);
2276: raise;
2277: end gettxstepids;
2278: -----------------------------< alloc_real_priorities >---------------------
2279: procedure alloc_real_priorities
2294: -- Priority variables.
2295: --
2296: l_priority number;
2297: l_o_priority number;
2298: l_priorities pay_ppmv4_utils_ss.t_boolean_tbl;
2299: i number;
2300: l_proc varchar2(2000) := g_package||'alloc_real_priorities';
2301:
2302: l_run_type_id pay_pss_transaction_steps.run_type_id%type;
2310: from pay_pss_transaction_steps ppts
2311: where ppts.transaction_id = p_transaction_id;
2312:
2313: begin
2314: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'ENTER', 0);
2315: p_success := true;
2316: --
2317: -- Fetch transaction_step_ids.
2318: --
2320: (p_transaction_id => p_transaction_id
2321: ,p_summary_page => true
2322: );
2323: if l_txstepids is null then
2324: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 5);
2325: return;
2326: end if;
2327:
2328: -- Fetch the run type id for the transaction.
2341: -- Fetch priorities.
2342: --
2343: l_effective_date :=
2344: to_date(p_effective_date, hr_transaction_ss.g_date_format);
2345: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'GETPRIORITIES', 10);
2346: pay_ppmv4_utils_ss.getpriorities
2347: (p_assignment_id => p_assignment_id
2348: ,p_effective_date => l_effective_date
2349: ,p_run_type_id => l_run_type_id
2342: --
2343: l_effective_date :=
2344: to_date(p_effective_date, hr_transaction_ss.g_date_format);
2345: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'GETPRIORITIES', 10);
2346: pay_ppmv4_utils_ss.getpriorities
2347: (p_assignment_id => p_assignment_id
2348: ,p_effective_date => l_effective_date
2349: ,p_run_type_id => l_run_type_id
2350: ,p_priority_tbl => l_priorities
2355: -- reallocation of priorities.
2356: --
2357: i := l_priorities.first;
2358: while l_start <> 0 loop
2359: l_next := pay_ppmv4_utils_ss.nextentry
2360: (p_list => l_txstepids
2361: ,p_separator => C_COMMA
2362: ,p_start => l_start
2363: );
2365:
2366: --
2367: -- Fetch original real priority.
2368: --
2369: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'O_REAL_PRIORITY', 20);
2370: select p.o_real_priority
2371: into l_o_priority
2372: from pay_pss_transaction_steps p
2373: where p.transaction_step_id = l_txstepid
2376: --
2377: -- Handle NULL value in the case of a brand new row.
2378: --
2379: if l_o_priority is null then
2380: l_o_priority := pay_ppmv4_utils_ss.C_NO_PRIORITY;
2381: end if;
2382: --
2383: -- Loop through the priority list until there is an available
2384: -- priority or the original real priority value is found.
2382: --
2383: -- Loop through the priority list until there is an available
2384: -- priority or the original real priority value is found.
2385: --
2386: l_priority := pay_ppmv4_utils_ss.C_NO_PRIORITY;
2387:
2388:
2389: for j in i .. pay_ppmv4_utils_ss.C_MAX_PRIORITY loop
2390: if l_priorities(j) or (not l_priorities(j) and j = l_o_priority) then
2385: --
2386: l_priority := pay_ppmv4_utils_ss.C_NO_PRIORITY;
2387:
2388:
2389: for j in i .. pay_ppmv4_utils_ss.C_MAX_PRIORITY loop
2390: if l_priorities(j) or (not l_priorities(j) and j = l_o_priority) then
2391: l_priority := j;
2392: --
2393: -- Make sure that the next iteration starts one up in the list.
2399: --
2400: -- The following IF-statement is an ASSERTION that a priority
2401: -- value must be allocated.
2402: --
2403: if l_priority = pay_ppmv4_utils_ss.C_NO_PRIORITY then
2404: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'ALLOC_FAIL', 30);
2405: p_success := false;
2406: return;
2407: end if;
2400: -- The following IF-statement is an ASSERTION that a priority
2401: -- value must be allocated.
2402: --
2403: if l_priority = pay_ppmv4_utils_ss.C_NO_PRIORITY then
2404: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'ALLOC_FAIL', 30);
2405: p_success := false;
2406: return;
2407: end if;
2408: --
2407: end if;
2408: --
2409: -- Write back the real priority value.
2410: --
2411: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'WRITE_PRIORITY', 40);
2412: update pay_pss_transaction_steps p
2413: set p.real_priority = l_priority
2414: where p.transaction_step_id = l_txstepid;
2415: --
2414: where p.transaction_step_id = l_txstepid;
2415: --
2416:
2417: end loop;
2418: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 50);
2419: return;
2420: exception
2421: when others then
2422: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:FAIL', 60);
2418: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 50);
2419: return;
2420: exception
2421: when others then
2422: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:FAIL', 60);
2423: raise;
2424: end alloc_real_priorities;
2425: ----------------------------< update_logical_priority >--------------------
2426: procedure update_logical_priority
2432: l_o_logical_priority varchar2(2000);
2433: l_state varchar2(2000);
2434: l_amount_type varchar2(2000);
2435: l_amount number;
2436: l_ppm pay_ppmv4_utils_ss.t_ppmv4;
2437: l_changes boolean;
2438: l_bank boolean;
2439: l_proc varchar2(2000) := g_package||'update_logical_priority';
2440:
2460: and pps.effective_date between ppm.effective_start_date and ppm.effective_end_date;
2461: */
2462:
2463: begin
2464: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'ENTER', 0);
2465: --
2466: -- Fetch the current logical priority.
2467: --
2468: select to_char(p.logical_priority)
2490: -- amount type and amount need for the Remaining Pay pay method.
2491: --
2492: if l_amount_type = C_REMAINING_PAY and
2493: p_logical_priority < l_logical_priority then
2494: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'REMAINING_PAY', 5);
2495:
2496: /*Below are the changes done based on the bug#7230549. This is not
2497: expected functionality. So we are revering back the changes.
2498: If the customer still want this functionality then we need to
2500: /*fetch the oriiginal values from the pay_personal_payment_methods_f table
2501: open fetch_org_values;
2502: fetch fetch_org_values into l_org_amt, l_org_percent;
2503:
2504: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'l_org_amt-percent : ' || l_org_amt || '-' || l_org_percent , 2);
2505:
2506: -- if no value is returned...use the earlier algorithm to set the value to 0
2507: if(fetch_org_values%notfound) then
2508: l_amount := 0;
2529: else
2530: l_amount_type := p_amount_type;
2531: end if;
2532: end if;
2533: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'LOGICAL_PRIORITY CHANGE', 10);
2534: if nvl(l_o_logical_priority, to_char(hr_api.g_number)) =
2535: p_logical_priority then
2536: --
2537: -- If this is an existing PPM that has been updated then it is
2538: -- necessary to check whether or not this change will reset the PPM
2539: -- to its original state.
2540: --
2541: if l_state = C_STATE_UPDATED then
2542: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'TT2PPM', 20);
2543: pay_ppmv4_utils_ss.tt2ppm
2544: (p_transaction_step_id => to_number(p_transaction_step_id)
2545: ,p_ppm => l_ppm
2546: );
2539: -- to its original state.
2540: --
2541: if l_state = C_STATE_UPDATED then
2542: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'TT2PPM', 20);
2543: pay_ppmv4_utils_ss.tt2ppm
2544: (p_transaction_step_id => to_number(p_transaction_step_id)
2545: ,p_ppm => l_ppm
2546: );
2547: l_ppm.logical_priority := to_number(p_logical_priority);
2546: );
2547: l_ppm.logical_priority := to_number(p_logical_priority);
2548: l_ppm.amount := l_amount;
2549: l_ppm.amount_type := l_amount_type;
2550: pay_ppmv4_utils_ss.changedppm
2551: (p_ppm => l_ppm
2552: ,p_changes => l_changes
2553: ,p_bank => l_bank
2554: );
2581: , p.logical_priority = p_logical_priority
2582: , p.state = l_state
2583: where p.transaction_step_id = p_transaction_step_id;
2584: end if;
2585: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 70);
2586: exception
2587: when others then
2588: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:FAIL', 80);
2589: raise;
2584: end if;
2585: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 70);
2586: exception
2587: when others then
2588: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:FAIL', 80);
2589: raise;
2590: end update_logical_priority;
2591: ----------------------------< increment_priorities >-----------------------
2592: --
2623:
2624: --
2625: l_proc varchar2(2000) := g_package||'increment_priorities';
2626: begin
2627: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'ENTER', 10);
2628: for rec in csr_ppms(p_transaction_id => p_transaction_id) loop
2629: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'IN-LOOP', 20);
2630: update_logical_priority
2631: (p_transaction_step_id => rec.transaction_step_id
2625: l_proc varchar2(2000) := g_package||'increment_priorities';
2626: begin
2627: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'ENTER', 10);
2628: for rec in csr_ppms(p_transaction_id => p_transaction_id) loop
2629: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'IN-LOOP', 20);
2630: update_logical_priority
2631: (p_transaction_step_id => rec.transaction_step_id
2632: ,p_amount_type => rec.amount_type
2633: ,p_logical_priority => rec.logical_priority + 1
2632: ,p_amount_type => rec.amount_type
2633: ,p_logical_priority => rec.logical_priority + 1
2634: );
2635: end loop;
2636: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 30);
2637: return;
2638: exception
2639: when others then
2640: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:FAIL', 40);
2636: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 30);
2637: return;
2638: exception
2639: when others then
2640: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:FAIL', 40);
2641: raise;
2642: end increment_priorities;
2643: ----------------------------------< enter_ppm >----------------------------
2644: procedure enter_ppm
2713: ,p_msg_data out nocopy varchar2
2714: ) is
2715: l_current boolean;
2716: l_original boolean;
2717: l_new_ppm pay_ppmv4_utils_ss.t_ppmv4;
2718: l_saved_ppm pay_ppmv4_utils_ss.t_ppmv4;
2719: l_freed_txstepids varchar2(32767);
2720: l_freed_txstepid varchar2(2000);
2721: l_start number := 1;
2714: ) is
2715: l_current boolean;
2716: l_original boolean;
2717: l_new_ppm pay_ppmv4_utils_ss.t_ppmv4;
2718: l_saved_ppm pay_ppmv4_utils_ss.t_ppmv4;
2719: l_freed_txstepids varchar2(32767);
2720: l_freed_txstepid varchar2(2000);
2721: l_start number := 1;
2722: l_return_status varchar2(2000);
2754: l_segment29 varchar2(2000);
2755: l_segment30 varchar2(2000);
2756: begin
2757:
2758: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'ENTER', 0);
2759: --
2760: -- Initialise the AOL message tables.
2761: --
2762: fnd_msg_pub.initialize;
2845: --------------------
2846: -- AN UPDATED PPM --
2847: --------------------
2848: if p_transaction_step_id is not null then
2849: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'TT2PPM', 10);
2850: pay_ppmv4_utils_ss.tt2ppm
2851: (p_transaction_step_id => p_transaction_step_id
2852: ,p_ppm => l_saved_ppm
2853: );
2846: -- AN UPDATED PPM --
2847: --------------------
2848: if p_transaction_step_id is not null then
2849: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'TT2PPM', 10);
2850: pay_ppmv4_utils_ss.tt2ppm
2851: (p_transaction_step_id => p_transaction_step_id
2852: ,p_ppm => l_saved_ppm
2853: );
2854: --
2853: );
2854: --
2855: -- Compare the new and saved PPMs.
2856: --
2857: pay_ppmv4_utils_ss.changedppm
2858: (p_new_ppm => l_new_ppm
2859: ,p_saved_ppm => l_saved_ppm
2860: ,p_original => l_original
2861: ,p_current => l_current
2863: --
2864: -- Return if the result is no net change from the saved PPM.
2865: --
2866: if not l_current then
2867: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 20);
2868: --
2869: -- Set up messages to Oracle Applications API standards as these
2870: -- are handled "for free" using checkErrors.
2871: --
2950: -- The above version of changedppm ignores logical_priority so
2951: -- do the check here.
2952: --
2953: if l_saved_ppm.logical_priority = l_saved_ppm.o_logical_priority then
2954: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXISTING', 30);
2955: l_saved_ppm.state := C_STATE_EXISTING;
2956: end if;
2957: --
2958: -- Save the PPM and return.
2956: end if;
2957: --
2958: -- Save the PPM and return.
2959: --
2960: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'PPM2TT', 40);
2961: pay_ppmv4_utils_ss.ppm2tt
2962: (p_ppm => l_saved_ppm
2963: );
2964: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 50);
2957: --
2958: -- Save the PPM and return.
2959: --
2960: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'PPM2TT', 40);
2961: pay_ppmv4_utils_ss.ppm2tt
2962: (p_ppm => l_saved_ppm
2963: );
2964: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 50);
2965: --
2960: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'PPM2TT', 40);
2961: pay_ppmv4_utils_ss.ppm2tt
2962: (p_ppm => l_saved_ppm
2963: );
2964: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 50);
2965: --
2966: -- Set up messages to Oracle Applications API standards as these
2967: -- are handled "for free" using checkErrors().
2968: --
2977: -- The PPM has been updated (rather than just having its priority
2978: -- changed) so update its state accordingly.
2979: --
2980: if l_saved_ppm.state = C_STATE_EXISTING then
2981: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXISTING', 60);
2982: l_saved_ppm.state := C_STATE_UPDATED;
2983: end if;
2984: -------------------------
2985: -- A NEWLY CREATED PPM --
2990: l_saved_ppm.logical_priority := 1;
2991: --
2992: -- Reuse any available freed transaction.
2993: --
2994: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'GETTXSTEPIDS', 80);
2995: l_freed_txstepids := gettxstepids
2996: (p_transaction_id => p_transaction_id
2997: ,p_freed => true
2998: );
2995: l_freed_txstepids := gettxstepids
2996: (p_transaction_id => p_transaction_id
2997: ,p_freed => true
2998: );
2999: l_freed_txstepid := pay_ppmv4_utils_ss.nextentry
3000: (p_list => l_freed_txstepids
3001: ,p_separator => C_COMMA
3002: ,p_start => l_start
3003: );
3006: --
3007: -- Get the bank segments, if necessary.
3008: --
3009: if l_saved_ppm.external_account_id is not null then
3010: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'GET_SEGMENTS', 85);
3011: pay_ppmv4_utils_ss.get_bank_segments
3012: (p_external_account_id => l_saved_ppm.external_account_id
3013: ,p_segment1 => l_segment1
3014: ,p_segment2 => l_segment2
3007: -- Get the bank segments, if necessary.
3008: --
3009: if l_saved_ppm.external_account_id is not null then
3010: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'GET_SEGMENTS', 85);
3011: pay_ppmv4_utils_ss.get_bank_segments
3012: (p_external_account_id => l_saved_ppm.external_account_id
3013: ,p_segment1 => l_segment1
3014: ,p_segment2 => l_segment2
3015: ,p_segment3 => l_segment3
3046: -- chk_foreign_account(p_transaction_step_id => p_transaction_step_id); removed for Foreign Account Enh akadam
3047: --
3048: -- Validate the PPM changes.
3049: --
3050: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'VALIDATEPPM', 90);
3051: pay_ppmv4_utils_ss.validateppm
3052: (p_state => l_saved_ppm.state
3053: ,p_personal_payment_method_id => l_saved_ppm.personal_payment_method_id
3054: ,p_object_version_number => l_saved_ppm.update_ovn
3047: --
3048: -- Validate the PPM changes.
3049: --
3050: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'VALIDATEPPM', 90);
3051: pay_ppmv4_utils_ss.validateppm
3052: (p_state => l_saved_ppm.state
3053: ,p_personal_payment_method_id => l_saved_ppm.personal_payment_method_id
3054: ,p_object_version_number => l_saved_ppm.update_ovn
3055: ,p_update_datetrack_mode => l_saved_ppm.update_datetrack_mode
3156: -- Increment the logical priorities if this is a brand
3157: -- new PPM - it must be inserted at priority 1.
3158: --
3159: if p_transaction_step_id is null then
3160: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'INCREMENT_PRIORITIES', 100);
3161: increment_priorities
3162: (p_transaction_id => p_transaction_id
3163: );
3164: end if;
3162: (p_transaction_id => p_transaction_id
3163: );
3164: end if;
3165: --
3166: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'PPM2TT', 110);
3167: pay_ppmv4_utils_ss.ppm2tt
3168: (p_ppm => l_saved_ppm
3169: );
3170: --
3163: );
3164: end if;
3165: --
3166: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'PPM2TT', 110);
3167: pay_ppmv4_utils_ss.ppm2tt
3168: (p_ppm => l_saved_ppm
3169: );
3170: --
3171: -- Update p_transaction_step_id.
3181: (p_count => p_msg_count
3182: ,p_data => p_msg_data
3183: );
3184: if l_return_status = fnd_api.G_RET_STS_SUCCESS then
3185: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 120);
3186: else
3187: pay_ppmv4_utils_ss.seterrorstage
3188: (l_proc, 'EXIT:VALIDATE_FAIL:' || l_return_status, 125);
3189: end if;
3183: );
3184: if l_return_status = fnd_api.G_RET_STS_SUCCESS then
3185: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 120);
3186: else
3187: pay_ppmv4_utils_ss.seterrorstage
3188: (l_proc, 'EXIT:VALIDATE_FAIL:' || l_return_status, 125);
3189: end if;
3190: return;
3191: exception
3189: end if;
3190: return;
3191: exception
3192: when others then
3193: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:FAIL', 130);
3194: --
3195: -- Set up messages to Oracle Applications API standards as these
3196: -- are handled "for free" using checkErrors().
3197: --
3215: ) is
3216: l_state varchar2(2000);
3217: l_amount_type varchar2(2000);
3218: l_transaction_id number;
3219: l_ppm pay_ppmv4_utils_ss.t_ppmv4;
3220: l_proc varchar2(2000) := g_package||'delete_ppm';
3221: l_message_name varchar2(2000);
3222: begin
3223: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'ENTER', 0);
3219: l_ppm pay_ppmv4_utils_ss.t_ppmv4;
3220: l_proc varchar2(2000) := g_package||'delete_ppm';
3221: l_message_name varchar2(2000);
3222: begin
3223: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'ENTER', 0);
3224: --
3225: -- Initialise the AOL message tables.
3226: --
3227: fnd_msg_pub.initialize;
3240: -- If this is a newly created PPM then it's only necessary to update
3241: -- the state.
3242: --
3243: if l_state = C_STATE_NEW then
3244: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'PPM_FREED', 10);
3245: update pay_pss_transaction_steps p
3246: set p.state = C_STATE_FREED
3247: where p.transaction_step_id = p_transaction_step_id;
3248: else
3245: update pay_pss_transaction_steps p
3246: set p.state = C_STATE_FREED
3247: where p.transaction_step_id = p_transaction_step_id;
3248: else
3249: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'TT2PPM', 20);
3250: pay_ppmv4_utils_ss.tt2ppm
3251: (p_transaction_step_id => p_transaction_step_id
3252: ,p_ppm => l_ppm
3253: );
3246: set p.state = C_STATE_FREED
3247: where p.transaction_step_id = p_transaction_step_id;
3248: else
3249: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'TT2PPM', 20);
3250: pay_ppmv4_utils_ss.tt2ppm
3251: (p_transaction_step_id => p_transaction_step_id
3252: ,p_ppm => l_ppm
3253: );
3254: --
3254: --
3255: -- All the information for deleting the PPM is automatically set up.
3256: -- Call process_api to validate the changes.
3257: --
3258: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'PROCESS_API', 25);
3259: begin
3260: pay_ppmv4_utils_ss.process_api
3261: (p_validate => true
3262: ,p_state => C_STATE_DELETED
3256: -- Call process_api to validate the changes.
3257: --
3258: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'PROCESS_API', 25);
3259: begin
3260: pay_ppmv4_utils_ss.process_api
3261: (p_validate => true
3262: ,p_state => C_STATE_DELETED
3263: ,p_effective_date => l_ppm.effective_date
3264: ,p_personal_payment_method_id => l_ppm.personal_payment_method_id
3272: if l_message_name = 'HR_7360_PPM_DEL_NOT_ALLOWED' or
3273: l_message_name = 'HR_6679_PPM_PRE_PAY' or
3274: l_message_name = 'PER_PRS_PAY_MTD_DISABLE_DEL'
3275: then
3276: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:FAIL:1', 30);
3277: --
3278: -- Handle valid DELETE failures:
3279: -- a) Prepayments exist.
3280: -- b) 3rd Party Payroll interface does not allow zap deletes.
3356: l_ppm.ppm_information30 := null;
3357: --
3358: -- Write back the PPM.
3359: --
3360: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'DELETED', 40);
3361: pay_ppmv4_utils_ss.ppm2tt
3362: (p_ppm => l_ppm
3363: );
3364: end if;
3357: --
3358: -- Write back the PPM.
3359: --
3360: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'DELETED', 40);
3361: pay_ppmv4_utils_ss.ppm2tt
3362: (p_ppm => l_ppm
3363: );
3364: end if;
3365: --
3379: fnd_msg_pub.count_and_get
3380: (p_count => p_msg_count
3381: ,p_data => p_msg_data
3382: );
3383: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 45);
3384: return;
3385: exception
3386: when others then
3387: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:FAIL:2', 50);
3383: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 45);
3384: return;
3385: exception
3386: when others then
3387: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:FAIL:2', 50);
3388: --
3389: -- Set up messages to Oracle Applications API standards as these
3390: -- are handled "for free" using checkErrors().
3391: --
3437: l_comment_id number;
3438: l_esd date;
3439: l_eed date;
3440:
3441: l_ppm pay_ppmv4_utils_ss.t_ppmv4;
3442: --
3443: cursor c_ppms(p_assignment_id in number, p_effective_date in date) is
3444: select ppm.personal_payment_method_id ppmid
3445: , ppm.object_version_number ovn
3460: --
3461: -- Fix up the priorities.
3462: --
3463: hr_utility.trace('Entering resequence_priorities....');
3464: l_priority := pay_ppmv4_utils_ss.C_MIN_PRIORITY;
3465: for ppm in c_ppms(p_assignment_id, p_effective_date) loop
3466: hr_utility.trace('ppm.priority => '||ppm.priority);
3467: hr_utility.trace('l_priority => '||l_priority);
3468: if ppm.priority <> l_priority then
3465: for ppm in c_ppms(p_assignment_id, p_effective_date) loop
3466: hr_utility.trace('ppm.priority => '||ppm.priority);
3467: hr_utility.trace('l_priority => '||l_priority);
3468: if ppm.priority <> l_priority then
3469: pay_ppmv4_utils_ss.tt2ppm
3470: (p_transaction_step_id => p_transaction_step_id
3471: ,p_ppm => l_ppm
3472: );
3473: --
3533: procedure process_api
3534: (p_transaction_step_id in number
3535: ,p_validate in boolean default false
3536: ) is
3537: l_ppm pay_ppmv4_utils_ss.t_ppmv4;
3538: l_proc varchar2(2000) := g_package||'process_api';
3539: l_pss_txstepid number;
3540: l_segment1 varchar2(2000);
3541: l_segment2 varchar2(2000);
3572: l_hr_txid number;
3573: l_unprocessed number;
3574: begin
3575: --HR_UTILITY.TRACE_ON(NULL,'PPM');
3576: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'ENTER', 0);
3577: l_pss_txstepid := hr_transaction_api.get_number_value
3578: (p_transaction_step_id => p_transaction_step_id
3579: ,p_name => pay_ppmv4_utils_ss.C_TX_STEP_ID_ARG
3580: );
3575: --HR_UTILITY.TRACE_ON(NULL,'PPM');
3576: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'ENTER', 0);
3577: l_pss_txstepid := hr_transaction_api.get_number_value
3578: (p_transaction_step_id => p_transaction_step_id
3579: ,p_name => pay_ppmv4_utils_ss.C_TX_STEP_ID_ARG
3580: );
3581:
3582: pay_ppmv4_utils_ss.tt2ppm
3583: (p_transaction_step_id => l_pss_txstepid
3578: (p_transaction_step_id => p_transaction_step_id
3579: ,p_name => pay_ppmv4_utils_ss.C_TX_STEP_ID_ARG
3580: );
3581:
3582: pay_ppmv4_utils_ss.tt2ppm
3583: (p_transaction_step_id => l_pss_txstepid
3584: ,p_ppm => l_ppm
3585: );
3586: --
3587: -- Get the bank segments for deposit PPMs.
3588: --
3589:
3590: if l_ppm.external_account_id is not null then
3591: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'GET_BANK_SEGMENTS', 5);
3592: pay_ppmv4_utils_ss.get_bank_segments
3593: (p_external_account_id => l_ppm.external_account_id
3594: ,p_segment1 => l_segment1
3595: ,p_segment2 => l_segment2
3588: --
3589:
3590: if l_ppm.external_account_id is not null then
3591: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'GET_BANK_SEGMENTS', 5);
3592: pay_ppmv4_utils_ss.get_bank_segments
3593: (p_external_account_id => l_ppm.external_account_id
3594: ,p_segment1 => l_segment1
3595: ,p_segment2 => l_segment2
3596: ,p_segment3 => l_segment3
3625: end if;
3626: --
3627: -- Make the API call.
3628: --
3629: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'PROCESS_API', 10);
3630: hr_utility.trace('l_ppm.ppm_information_category => '||l_ppm.ppm_information_category);
3631: hr_utility.trace('l_pss_txstepid => '||l_pss_txstepid);
3632: pay_ppmv4_utils_ss.process_api
3633: (p_state => l_ppm.state
3628: --
3629: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'PROCESS_API', 10);
3630: hr_utility.trace('l_ppm.ppm_information_category => '||l_ppm.ppm_information_category);
3631: hr_utility.trace('l_pss_txstepid => '||l_pss_txstepid);
3632: pay_ppmv4_utils_ss.process_api
3633: (p_state => l_ppm.state
3634: ,p_personal_payment_method_id => l_ppm.personal_payment_method_id
3635: ,p_object_version_number => l_ppm.update_ovn
3636: ,p_delete_ovn => l_ppm.delete_ovn
3732: if not p_validate then
3733: --
3734: -- Get the HR transaction information.
3735: --
3736: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'GET_HR_TX_INFO', 20);
3737: select creator_person_id
3738: , transaction_id
3739: into l_hr_txpersonid
3740: , l_hr_txid
3742: where transaction_step_id = p_transaction_step_id;
3743: --
3744: -- Set the processed flag for this transaction.
3745: --
3746: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'SET_PROCESSED_FLAG', 25);
3747: hr_transaction_api.set_varchar2_value
3748: (p_validate => false
3749: ,p_transaction_step_id => p_transaction_step_id
3750: ,p_person_id => l_hr_txpersonid
3747: hr_transaction_api.set_varchar2_value
3748: (p_validate => false
3749: ,p_transaction_step_id => p_transaction_step_id
3750: ,p_person_id => l_hr_txpersonid
3751: ,p_name => pay_ppmv4_utils_ss.C_PROCESSED_FLAG_ARG
3752: ,p_value => 'Y'
3753: );
3754: --
3755: -- Check is any HR transactions are still to be processed.
3753: );
3754: --
3755: -- Check is any HR transactions are still to be processed.
3756: --
3757: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'COUNT_UNPROCESSED', 30);
3758: select count(*)
3759: into l_unprocessed
3760: from hr_api_transaction_values hatv
3761: where hatv.name = pay_ppmv4_utils_ss.C_PROCESSED_FLAG_ARG
3757: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'COUNT_UNPROCESSED', 30);
3758: select count(*)
3759: into l_unprocessed
3760: from hr_api_transaction_values hatv
3761: where hatv.name = pay_ppmv4_utils_ss.C_PROCESSED_FLAG_ARG
3762: and hatv.varchar2_value = 'N'
3763: and hatv.transaction_step_id in
3764: (select transaction_step_id
3765: from hr_api_transaction_steps hats
3763: and hatv.transaction_step_id in
3764: (select transaction_step_id
3765: from hr_api_transaction_steps hats
3766: where hats.transaction_id = l_hr_txid);
3767: pay_ppmv4_utils_ss.seterrorstage
3768: (l_proc, 'UNPROCESSED_COUNT:' || to_char(l_unprocessed), 35);
3769: --
3770: -- Resequence priorities if nothing left to be processed.
3771: --
3769: --
3770: -- Resequence priorities if nothing left to be processed.
3771: --
3772: if l_unprocessed = 0 then
3773: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'RESEQUENCE_PRIORITIES', 40);
3774: resequence_priorities
3775: (p_assignment_id => l_ppm.assignment_id
3776: ,p_effective_date => l_ppm.effective_date
3777: ,p_run_type_id => l_ppm.run_type_id
3778: ,p_transaction_step_id => l_pss_txstepid
3779: );
3780: end if;
3781: end if;
3782: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 50);
3783: return;
3784: exception
3785: when others then
3786: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:FAIL', 60);
3782: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:SUCCESS', 50);
3783: return;
3784: exception
3785: when others then
3786: pay_ppmv4_utils_ss.seterrorstage(l_proc, 'EXIT:FAIL', 60);
3787: raise;
3788: end process_api;
3789: ------------------------< delete_pss_transactions >----------------------
3790: procedure delete_ppm_transactions