38:
39:
40: BEGIN
41: l_balance_date_updated := FALSE;
42: FND_MSG_PUB.Initialize;
43: IF(p_action_flag in ('U','D')) THEN
44:
45: OPEN C_BALANCE_DETAILS;
46: FETCH C_BALANCE_DETAILS INTO l_balance_rec.company_code,l_balance_rec.account_number
183:
184:
185: END IF;
186:
187: FND_MSG_PUB.Count_And_Get -- Returns the error message if there is only 1 error
188: ( p_count => x_msg_count ,
189: p_data => x_msg_data
190: );
191:
195: WHEN others THEN
196: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
197: LOG_ERR_MSG ('XTR_UNEXP_ERROR',SQLERRM(SQLCODE));
198:
199: FND_MSG_PUB.Count_And_Get -- Returns the error message if there is only 1 error
200: ( p_count => x_msg_count ,
201: p_data => x_msg_data
202: );
203:
301: WHEN others THEN
302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
303: LOG_ERR_MSG ('XTR_UNEXP_ERROR',SQLERRM(SQLCODE));
304:
305: FND_MSG_PUB.Count_And_Get -- Returns the error message if there is only 1 error
306: ( p_count => x_msg_count ,
307: p_data => x_msg_data
308: );
309:
1042: BEGIN
1043:
1044: x_return_status := FND_API.G_RET_STS_SUCCESS;
1045: l_balance_date_updated := FALSE;
1046: FND_MSG_PUB.Initialize;
1047: IF(p_action_flag in ('U','D')) THEN
1048:
1049: OPEN C_BALANCE_DETAILS;
1050: FETCH C_BALANCE_DETAILS INTO l_balance_rec.company_code,l_balance_rec.account_number
1113:
1114:
1115: END IF;
1116:
1117: FND_MSG_PUB.Count_And_Get -- Returns the error message if there is only 1 error
1118: ( p_count => x_msg_count ,
1119: p_data => x_msg_data
1120: );
1121:
1125: WHEN others THEN
1126: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1127: LOG_ERR_MSG ('XTR_UNEXP_ERROR',SQLERRM(SQLCODE));
1128:
1129: FND_MSG_PUB.Count_And_Get -- Returns the error message if there is only 1 error
1130: ( p_count => x_msg_count ,
1131: p_data => x_msg_data
1132: );
1133:
1818: BEGIN
1819:
1820: IF p_error_code = 'XTR_PORTFOLIO' THEN
1821: FND_MESSAGE.Set_Name('XTR','XTR_2208');
1822: FND_MSG_PUB.ADD;
1823:
1824: ELSIF p_error_code = 'XTR_INV_PRICING_MODEL' THEN
1825: FND_MESSAGE.Set_Name('XTR','XTR_INV_PRICING_MODEL');
1826: FND_MSG_PUB.ADD;
1822: FND_MSG_PUB.ADD;
1823:
1824: ELSIF p_error_code = 'XTR_INV_PRICING_MODEL' THEN
1825: FND_MESSAGE.Set_Name('XTR','XTR_INV_PRICING_MODEL');
1826: FND_MSG_PUB.ADD;
1827:
1828: ELSIF p_error_code = 'CE_NO_SCHED_BANK_ACCT' THEN
1829: FND_MESSAGE.Set_Name('CE','CE_NO_SCHED_BANK_ACCT');
1830: FND_MSG_PUB.ADD;
1826: FND_MSG_PUB.ADD;
1827:
1828: ELSIF p_error_code = 'CE_NO_SCHED_BANK_ACCT' THEN
1829: FND_MESSAGE.Set_Name('CE','CE_NO_SCHED_BANK_ACCT');
1830: FND_MSG_PUB.ADD;
1831:
1832:
1833: ELSIF p_error_code = 'XTR_REVAL_ACCRL_BANK' THEN
1834: /* warning has to be raised will look into this later */
1833: ELSIF p_error_code = 'XTR_REVAL_ACCRL_BANK' THEN
1834: /* warning has to be raised will look into this later */
1835: FND_MESSAGE.Set_Name ('XTR', 'XTR_REVAL_ACCRL_BANK');
1836: FND_MESSAGE.Set_Token ('DATE',p_balance_date);
1837: FND_MSG_PUB.ADD;
1838:
1839: ELSIF p_error_code = 'XTR_BANK_ACCRLS_EXIST' THEN
1840: FND_MESSAGE.Set_Name ('XTR', 'XTR_BANK_ACCRLS_EXIST');
1841: FND_MESSAGE.Set_Token ('DATE',p_balance_date);
1838:
1839: ELSIF p_error_code = 'XTR_BANK_ACCRLS_EXIST' THEN
1840: FND_MESSAGE.Set_Name ('XTR', 'XTR_BANK_ACCRLS_EXIST');
1841: FND_MESSAGE.Set_Token ('DATE',p_balance_date);
1842: FND_MSG_PUB.ADD;
1843:
1844: ELSIF p_error_code = 'XTR_BANK_REVAL_DONE' THEN
1845: FND_MESSAGE.Set_Name ('XTR', 'XTR_BANK_REVAL_DONE');
1846: FND_MESSAGE.Set_Token ('DATE',p_balance_date);
1843:
1844: ELSIF p_error_code = 'XTR_BANK_REVAL_DONE' THEN
1845: FND_MESSAGE.Set_Name ('XTR', 'XTR_BANK_REVAL_DONE');
1846: FND_MESSAGE.Set_Token ('DATE',p_balance_date);
1847: FND_MSG_PUB.ADD;
1848:
1849: ELSIF p_error_code = 'XTR_ACCT_DELETE' THEN
1850: FND_MESSAGE.Set_Name ('XTR', 'XTR_ACCT_DELETE');
1851: FND_MSG_PUB.ADD;
1847: FND_MSG_PUB.ADD;
1848:
1849: ELSIF p_error_code = 'XTR_ACCT_DELETE' THEN
1850: FND_MESSAGE.Set_Name ('XTR', 'XTR_ACCT_DELETE');
1851: FND_MSG_PUB.ADD;
1852:
1853: ELSIF p_error_code = 'XTR_REVAL_ACCRL_DATE' THEN
1854: /* warning has to be raised will look into this later */
1855: FND_MESSAGE.Set_Name ('XTR', 'XTR_REVAL_ACCRL_DATE');
1853: ELSIF p_error_code = 'XTR_REVAL_ACCRL_DATE' THEN
1854: /* warning has to be raised will look into this later */
1855: FND_MESSAGE.Set_Name ('XTR', 'XTR_REVAL_ACCRL_DATE');
1856: FND_MESSAGE.Set_Token ('DATE',p_balance_date);
1857: FND_MSG_PUB.ADD;
1858:
1859: ELSIF p_error_code = 'XTR_CA_REVAL_DONE' THEN
1860: FND_MESSAGE.Set_Name ('XTR', 'XTR_CA_REVAL_DONE');
1861: FND_MSG_PUB.ADD;
1857: FND_MSG_PUB.ADD;
1858:
1859: ELSIF p_error_code = 'XTR_CA_REVAL_DONE' THEN
1860: FND_MESSAGE.Set_Name ('XTR', 'XTR_CA_REVAL_DONE');
1861: FND_MSG_PUB.ADD;
1862:
1863: ELSIF p_error_code = 'XTR_104' THEN
1864: FND_MESSAGE.Set_Name ( 'XTR','XTR_104');
1865: FND_MSG_PUB.ADD;
1861: FND_MSG_PUB.ADD;
1862:
1863: ELSIF p_error_code = 'XTR_104' THEN
1864: FND_MESSAGE.Set_Name ( 'XTR','XTR_104');
1865: FND_MSG_PUB.ADD;
1866:
1867: ELSIF p_error_code = 'XTR_1237' THEN
1868: FND_MESSAGE.Set_Name ( 'XTR','XTR_1237');
1869: FND_MSG_PUB.ADD;
1865: FND_MSG_PUB.ADD;
1866:
1867: ELSIF p_error_code = 'XTR_1237' THEN
1868: FND_MESSAGE.Set_Name ( 'XTR','XTR_1237');
1869: FND_MSG_PUB.ADD;
1870:
1871: ELSIF p_error_code = 'XTR_UNEXP_ERROR' THEN
1872: FND_MESSAGE.Set_Name('XTR','XTR_UNEXP_ERROR');
1873: FND_MESSAGE.Set_Token('SQLCODE', p_field_name);
1870:
1871: ELSIF p_error_code = 'XTR_UNEXP_ERROR' THEN
1872: FND_MESSAGE.Set_Name('XTR','XTR_UNEXP_ERROR');
1873: FND_MESSAGE.Set_Token('SQLCODE', p_field_name);
1874: FND_MSG_PUB.ADD; -- Adds the error messages to the list.
1875:
1876: ELSIF p_error_code = 'CHK_LOCK' THEN
1877: FND_MESSAGE.Set_Name('XTR','XTR_1999');
1878: FND_MSG_PUB.ADD;
1874: FND_MSG_PUB.ADD; -- Adds the error messages to the list.
1875:
1876: ELSIF p_error_code = 'CHK_LOCK' THEN
1877: FND_MESSAGE.Set_Name('XTR','XTR_1999');
1878: FND_MSG_PUB.ADD;
1879:
1880:
1881: ELSIF p_error_code = 'XTR_INV_PARAM' THEN
1882: FND_MESSAGE.Set_Name('XTR','XTR_INV_PARAM');
1880:
1881: ELSIF p_error_code = 'XTR_INV_PARAM' THEN
1882: FND_MESSAGE.Set_Name('XTR','XTR_INV_PARAM');
1883: FND_MESSAGE.Set_Token('FIELD', p_field_name);
1884: FND_MSG_PUB.ADD;
1885:
1886: ELSIF p_error_code = 'XTR_TYPES_CHANGED' THEN
1887: FND_MESSAGE.Set_Name('XTR','XTR_TYPES_CHANGED');
1888: -- FND_MESSAGE.Set_Token('FIELD', p_field_name);
1885:
1886: ELSIF p_error_code = 'XTR_TYPES_CHANGED' THEN
1887: FND_MESSAGE.Set_Name('XTR','XTR_TYPES_CHANGED');
1888: -- FND_MESSAGE.Set_Token('FIELD', p_field_name);
1889: FND_MSG_PUB.ADD;
1890:
1891: ELSIF p_error_code = 'XTR_CHANGED_DAYCOUNT_ROUND' THEN
1892: FND_MESSAGE.Set_Name('XTR', 'XTR_CHANGED_DAYCOUNT_ROUND');
1893: -- FND_MESSAGE.Set_Token('FIELD', p_field_name);
1890:
1891: ELSIF p_error_code = 'XTR_CHANGED_DAYCOUNT_ROUND' THEN
1892: FND_MESSAGE.Set_Name('XTR', 'XTR_CHANGED_DAYCOUNT_ROUND');
1893: -- FND_MESSAGE.Set_Token('FIELD', p_field_name);
1894: FND_MSG_PUB.ADD;
1895:
1896:
1897:
1898:
2166: l_currency xtr_bank_accounts.currency%TYPE;
2167: l_return_error VARCHAR2(30);
2168:
2169: BEGIN
2170: FND_MSG_PUB.Initialize;
2171:
2172: OPEN c_bank_acct_details;
2173: FETCH c_bank_acct_details INTO l_company_code,l_account_number,l_currency;
2174: IF c_bank_acct_details%FOUND THEN
2206: x_return_status := FND_API.G_RET_STS_ERROR;
2207: LOG_ERR_MSG('XTR_INV_PARAM','ACTION_FLAG');
2208: END IF;
2209:
2210: FND_MSG_PUB.Count_And_Get -- Returns the error message if there is only 1 error
2211: ( p_count => x_msg_count ,
2212: p_data => x_msg_data
2213: );
2214:
2216:
2217: WHEN others THEN
2218: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2219: LOG_ERR_MSG('XTR_UNEXP_ERROR',SQLERRM(SQLCODE));
2220: FND_MSG_PUB.Count_And_Get -- Returns the error message if there is only 1 error
2221: ( p_count => x_msg_count ,
2222: p_data => x_msg_data
2223: );
2224: