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;
144: p_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
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;
144: p_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
145: fnd_msg_pub.count_and_get
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', '
144: p_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
145: fnd_msg_pub.count_and_get
146: (p_count => p_msg_count
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;
183: p_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
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;
183: p_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
184: fnd_msg_pub.count_and_get
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;
183: p_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
184: fnd_msg_pub.count_and_get
185: (p_count => p_msg_count
769: -- are handled "for free" using checkErrors.
770: --
771: p_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
772: fnd_msg_pub.initialize;
773: fnd_message.set_name('PAY', 'PAY_51518_PSS_ASSERT_ERROR');
774: fnd_message.set_token('WHERE', l_proc);
775: fnd_message.set_token('ADDITIONAL_INFO', sqlerrm);
776: fnd_msg_pub.add;
777: fnd_msg_pub.count_and_get
770: --
771: p_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
772: fnd_msg_pub.initialize;
773: fnd_message.set_name('PAY', 'PAY_51518_PSS_ASSERT_ERROR');
774: fnd_message.set_token('WHERE', l_proc);
775: fnd_message.set_token('ADDITIONAL_INFO', sqlerrm);
776: fnd_msg_pub.add;
777: fnd_msg_pub.count_and_get
778: (p_count => p_msg_count
771: p_return_status := fnd_api.G_RET_STS_UNEXP_ERROR;
772: fnd_msg_pub.initialize;
773: fnd_message.set_name('PAY', 'PAY_51518_PSS_ASSERT_ERROR');
774: fnd_message.set_token('WHERE', l_proc);
775: fnd_message.set_token('ADDITIONAL_INFO', sqlerrm);
776: fnd_msg_pub.add;
777: fnd_msg_pub.count_and_get
778: (p_count => p_msg_count
779: ,p_data => p_msg_data
964: begin
965: execute immediate l_sql_stat into l_opmid;
966: exception
967: when others then
968: fnd_message.set_name('PER', 'PAY_34069_NO_PAY_METHOD');
969: fnd_msg_pub.add;
970: fnd_message.raise_error;
971: end;
972: --
966: exception
967: when others then
968: fnd_message.set_name('PER', 'PAY_34069_NO_PAY_METHOD');
969: fnd_msg_pub.add;
970: fnd_message.raise_error;
971: end;
972: --
973: open csr_opms(p_assignment_id,p_effective_date,l_category,l_opmid);
974: fetch csr_opms into l_opmid;
973: open csr_opms(p_assignment_id,p_effective_date,l_category,l_opmid);
974: fetch csr_opms into l_opmid;
975: if csr_opms%notfound then
976: close csr_opms;
977: fnd_message.set_name('PER', 'PAY_34069_NO_PAY_METHOD');
978: fnd_msg_pub.add;
979: fnd_message.raise_error;
980: end if;
981: close csr_opms;
975: if csr_opms%notfound then
976: close csr_opms;
977: fnd_message.set_name('PER', 'PAY_34069_NO_PAY_METHOD');
978: fnd_msg_pub.add;
979: fnd_message.raise_error;
980: end if;
981: close csr_opms;
982: --
983: l_found := TRUE;
1029: --
1030: -- Output error message.
1031: --
1032: if not l_cash_found and not l_check_found and not l_deposit_found then
1033: fnd_message.set_name('PER', 'PAY_52626_NO_PAYMENT_TYPES');
1034: fnd_msg_pub.add;
1035: fnd_message.raise_error;
1036: end if;
1037: --
1031: --
1032: if not l_cash_found and not l_check_found and not l_deposit_found then
1033: fnd_message.set_name('PER', 'PAY_52626_NO_PAYMENT_TYPES');
1034: fnd_msg_pub.add;
1035: fnd_message.raise_error;
1036: end if;
1037: --
1038:
1039: end getcustomopms;
1242: --
1243: if csr_opms%isopen then
1244: close csr_opms;
1245: end if;
1246: fnd_message.set_name('PAY', 'PAY_50405_PSS_CFG_PROC_ERROR');
1247: fnd_message.set_token('STAGE', 'GET_OPMS');
1248: fnd_message.set_token('ADDITIONAL_INFO', sqlerrm);
1249: fnd_msg_pub.add;
1250: fnd_message.raise_error;
1243: if csr_opms%isopen then
1244: close csr_opms;
1245: end if;
1246: fnd_message.set_name('PAY', 'PAY_50405_PSS_CFG_PROC_ERROR');
1247: fnd_message.set_token('STAGE', 'GET_OPMS');
1248: fnd_message.set_token('ADDITIONAL_INFO', sqlerrm);
1249: fnd_msg_pub.add;
1250: fnd_message.raise_error;
1251: end;
1244: close csr_opms;
1245: end if;
1246: fnd_message.set_name('PAY', 'PAY_50405_PSS_CFG_PROC_ERROR');
1247: fnd_message.set_token('STAGE', 'GET_OPMS');
1248: fnd_message.set_token('ADDITIONAL_INFO', sqlerrm);
1249: fnd_msg_pub.add;
1250: fnd_message.raise_error;
1251: end;
1252: --
1246: fnd_message.set_name('PAY', 'PAY_50405_PSS_CFG_PROC_ERROR');
1247: fnd_message.set_token('STAGE', 'GET_OPMS');
1248: fnd_message.set_token('ADDITIONAL_INFO', sqlerrm);
1249: fnd_msg_pub.add;
1250: fnd_message.raise_error;
1251: end;
1252: --
1253: -- Output error message.
1254: --
1252: --
1253: -- Output error message.
1254: --
1255: if not l_cash_found and not l_check_found and not l_deposit_found then
1256: fnd_message.set_name('PER', 'PAY_52626_NO_PAYMENT_TYPES');
1257: fnd_msg_pub.add;
1258: fnd_message.raise_error;
1259: end if;
1260: end getopms;
1254: --
1255: if not l_cash_found and not l_check_found and not l_deposit_found then
1256: fnd_message.set_name('PER', 'PAY_52626_NO_PAYMENT_TYPES');
1257: fnd_msg_pub.add;
1258: fnd_message.raise_error;
1259: end if;
1260: end getopms;
1261:
1262: -------------------------------< getpayrollinfo >--------------------------
1508: -- Convenience procedure for raising error in the initial code.
1509: --
1510: procedure initialerror(p_stage in varchar2, p_additional_info in varchar2) is
1511: begin
1512: fnd_message.set_name('PAY', 'PAY_50405_PSS_CFG_PROC_ERROR');
1513: fnd_message.set_token('STAGE', p_stage);
1514: fnd_message.set_token('ADDITIONAL_INFO', p_additional_info);
1515: fnd_msg_pub.add;
1516: fnd_message.raise_error;
1509: --
1510: procedure initialerror(p_stage in varchar2, p_additional_info in varchar2) is
1511: begin
1512: fnd_message.set_name('PAY', 'PAY_50405_PSS_CFG_PROC_ERROR');
1513: fnd_message.set_token('STAGE', p_stage);
1514: fnd_message.set_token('ADDITIONAL_INFO', p_additional_info);
1515: fnd_msg_pub.add;
1516: fnd_message.raise_error;
1517: end initialerror;
1510: procedure initialerror(p_stage in varchar2, p_additional_info in varchar2) is
1511: begin
1512: fnd_message.set_name('PAY', 'PAY_50405_PSS_CFG_PROC_ERROR');
1513: fnd_message.set_token('STAGE', p_stage);
1514: fnd_message.set_token('ADDITIONAL_INFO', p_additional_info);
1515: fnd_msg_pub.add;
1516: fnd_message.raise_error;
1517: end initialerror;
1518: begin
1512: fnd_message.set_name('PAY', 'PAY_50405_PSS_CFG_PROC_ERROR');
1513: fnd_message.set_token('STAGE', p_stage);
1514: fnd_message.set_token('ADDITIONAL_INFO', p_additional_info);
1515: fnd_msg_pub.add;
1516: fnd_message.raise_error;
1517: end initialerror;
1518: begin
1519: --
1520: -- Initialise the AOL message tables.
2004: end if;
2005: end if;
2006: --
2007: if l_payment_types is null then
2008: fnd_message.set_name('PER', 'PAY_52626_NO_PAYMENT_TYPES');
2009: fnd_msg_pub.add;
2010: fnd_message.raise_error;
2011: end if;
2012: p_payment_types := l_payment_types;
2006: --
2007: if l_payment_types is null then
2008: fnd_message.set_name('PER', 'PAY_52626_NO_PAYMENT_TYPES');
2009: fnd_msg_pub.add;
2010: fnd_message.raise_error;
2011: end if;
2012: p_payment_types := l_payment_types;
2013: p_deposit_opmid := to_char(l_deposit_opmid);
2014: p_cash_opmid := to_char(l_cash_opmid);
2127: );
2128: fetch csr_monetary into l_option_value;
2129: if csr_monetary%found then
2130: close csr_monetary;
2131: fnd_message.set_name('PER', 'PAY_52625_PPM_USES_AMOUNT');
2132: fnd_msg_pub.add;
2133: fnd_message.raise_error;
2134: end if;
2135: close csr_monetary;
2129: if csr_monetary%found then
2130: close csr_monetary;
2131: fnd_message.set_name('PER', 'PAY_52625_PPM_USES_AMOUNT');
2132: fnd_msg_pub.add;
2133: fnd_message.raise_error;
2134: end if;
2135: close csr_monetary;
2136: elsif l_monetary_only then
2137: open csr_percentage
2140: );
2141: fetch csr_percentage into l_option_value;
2142: if csr_percentage%found then
2143: close csr_percentage;
2144: fnd_message.set_name('PER', 'PAY_52624_PPM_USES_PERCENTAGE');
2145: fnd_msg_pub.add;
2146: fnd_message.raise_error;
2147: end if;
2148: close csr_percentage;
2142: if csr_percentage%found then
2143: close csr_percentage;
2144: fnd_message.set_name('PER', 'PAY_52624_PPM_USES_PERCENTAGE');
2145: fnd_msg_pub.add;
2146: fnd_message.raise_error;
2147: end if;
2148: close csr_percentage;
2149: end if;
2150: --
2156: ,p_data => p_msg_data
2157: );
2158: return;
2159: <
2160: fnd_message.set_name('PER', 'PAY_52631_PPMSS_OPTION_ERROR');
2161: fnd_message.set_token('OPTION', l_option);
2162: fnd_msg_pub.add;
2163: fnd_message.raise_error;
2164: exception
2157: );
2158: return;
2159: <
2160: fnd_message.set_name('PER', 'PAY_52631_PPMSS_OPTION_ERROR');
2161: fnd_message.set_token('OPTION', l_option);
2162: fnd_msg_pub.add;
2163: fnd_message.raise_error;
2164: exception
2165: --
2159: <
2160: fnd_message.set_name('PER', 'PAY_52631_PPMSS_OPTION_ERROR');
2161: fnd_message.set_token('OPTION', l_option);
2162: fnd_msg_pub.add;
2163: fnd_message.raise_error;
2164: exception
2165: --
2166: -- Set up the error status.
2167: --
2174: (p_count => l_msg_count
2175: ,p_data => p_msg_data
2176: );
2177: if l_msg_count = 0 then
2178: fnd_message.set_name('PAY', 'PAY_50405_PSS_CFG_PROC_ERROR');
2179: fnd_message.set_token('STAGE', 'UNEXPECTED_ERROR');
2180: fnd_message.set_token('ADDITIONAL_INFO', sqlerrm);
2181: fnd_msg_pub.add;
2182: fnd_msg_pub.count_and_get
2175: ,p_data => p_msg_data
2176: );
2177: if l_msg_count = 0 then
2178: fnd_message.set_name('PAY', 'PAY_50405_PSS_CFG_PROC_ERROR');
2179: fnd_message.set_token('STAGE', 'UNEXPECTED_ERROR');
2180: fnd_message.set_token('ADDITIONAL_INFO', sqlerrm);
2181: fnd_msg_pub.add;
2182: fnd_msg_pub.count_and_get
2183: (p_count => l_msg_count
2176: );
2177: if l_msg_count = 0 then
2178: fnd_message.set_name('PAY', 'PAY_50405_PSS_CFG_PROC_ERROR');
2179: fnd_message.set_token('STAGE', 'UNEXPECTED_ERROR');
2180: fnd_message.set_token('ADDITIONAL_INFO', sqlerrm);
2181: fnd_msg_pub.add;
2182: fnd_msg_pub.count_and_get
2183: (p_count => l_msg_count
2184: ,p_data => p_msg_data
3278: -- Handle valid DELETE failures:
3279: -- a) Prepayments exist.
3280: -- b) 3rd Party Payroll interface does not allow zap deletes.
3281: --
3282: fnd_message.set_name('PAY', 'PAY_51519_PSS_CANNOT_DELETE');
3283: fnd_msg_pub.add;
3284: p_return_status := fnd_api.G_RET_STS_ERROR;
3285: fnd_msg_pub.count_and_get
3286: (p_count => p_msg_count
3388: --
3389: -- Set up messages to Oracle Applications API standards as these
3390: -- are handled "for free" using checkErrors().
3391: --
3392: fnd_message.set_name('PAY', 'PAY_51518_PSS_ASSERT_ERROR');
3393: fnd_message.set_token('WHERE', l_proc);
3394: fnd_message.set_token('ADDITIONAL_INFO', sqlerrm);
3395: fnd_msg_pub.add;
3396: p_return_status := fnd_api.G_RET_STS_ERROR;
3389: -- Set up messages to Oracle Applications API standards as these
3390: -- are handled "for free" using checkErrors().
3391: --
3392: fnd_message.set_name('PAY', 'PAY_51518_PSS_ASSERT_ERROR');
3393: fnd_message.set_token('WHERE', l_proc);
3394: fnd_message.set_token('ADDITIONAL_INFO', sqlerrm);
3395: fnd_msg_pub.add;
3396: p_return_status := fnd_api.G_RET_STS_ERROR;
3397: fnd_msg_pub.count_and_get
3390: -- are handled "for free" using checkErrors().
3391: --
3392: fnd_message.set_name('PAY', 'PAY_51518_PSS_ASSERT_ERROR');
3393: fnd_message.set_token('WHERE', l_proc);
3394: fnd_message.set_token('ADDITIONAL_INFO', sqlerrm);
3395: fnd_msg_pub.add;
3396: p_return_status := fnd_api.G_RET_STS_ERROR;
3397: fnd_msg_pub.count_and_get
3398: (p_count => p_msg_count