48: +===========================================================================*/
49:
50:
51: PROCEDURE Get_Currency_Details(
52: p_api_version IN NUMBER DEFAULT FND_API.G_MISS_NUM,
53: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
54: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
55: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
56: p_currency_code IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
49:
50:
51: PROCEDURE Get_Currency_Details(
52: p_api_version IN NUMBER DEFAULT FND_API.G_MISS_NUM,
53: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
54: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
55: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
56: p_currency_code IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
57: x_precision OUT NOCOPY NUMBER,
50:
51: PROCEDURE Get_Currency_Details(
52: p_api_version IN NUMBER DEFAULT FND_API.G_MISS_NUM,
53: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
54: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
55: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
56: p_currency_code IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
57: x_precision OUT NOCOPY NUMBER,
58: x_mau OUT NOCOPY NUMBER,
51: PROCEDURE Get_Currency_Details(
52: p_api_version IN NUMBER DEFAULT FND_API.G_MISS_NUM,
53: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
54: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
55: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
56: p_currency_code IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
57: x_precision OUT NOCOPY NUMBER,
58: x_mau OUT NOCOPY NUMBER,
59: x_return_status OUT NOCOPY VARCHAR2,
52: p_api_version IN NUMBER DEFAULT FND_API.G_MISS_NUM,
53: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
54: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
55: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
56: p_currency_code IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
57: x_precision OUT NOCOPY NUMBER,
58: x_mau OUT NOCOPY NUMBER,
59: x_return_status OUT NOCOPY VARCHAR2,
60: x_msg_count OUT NOCOPY NUMBER,
72: -- Standard begin of API savepoint
73: SAVEPOINT Get_Currency_Details_PVT;
74:
75: -- Standard call to check for call compatibility.
76: IF NOT FND_API.Compatible_API_Call (l_api_version,
77: p_api_version,
78: l_api_name,
79: G_PKG_NAME)
80: THEN
77: p_api_version,
78: l_api_name,
79: G_PKG_NAME)
80: THEN
81: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
82: END IF;
83:
84: -- Check p_init_msg_list
85: IF FND_API.to_Boolean( p_init_msg_list ) THEN
81: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
82: END IF;
83:
84: -- Check p_init_msg_list
85: IF FND_API.to_Boolean( p_init_msg_list ) THEN
86: FND_MSG_PUB.initialize;
87: END IF;
88:
89: -- Initialize API return status to success
86: FND_MSG_PUB.initialize;
87: END IF;
88:
89: -- Initialize API return status to success
90: x_return_status := FND_API.G_RET_STS_SUCCESS;
91:
92: WHILE i < g_next_element
93: LOOP
94: EXIT WHEN g_currency_code_tab(i) = l_currency_code;
120:
121: EXCEPTION
122: WHEN GL_CURRENCY_API.NO_RATE THEN
123: ROLLBACK TO Get_Currency_Details_PVT;
124: x_return_status := FND_API.G_RET_STS_ERROR;
125: FND_MESSAGE.SET_NAME('SQLGL', 'GL_JE_INVALID_CONVERSION_INFO');
126: FND_MSG_PUB.ADD;
127: FND_MSG_PUB.Count_And_Get(
128: p_encoded => FND_API.G_FALSE,
124: x_return_status := FND_API.G_RET_STS_ERROR;
125: FND_MESSAGE.SET_NAME('SQLGL', 'GL_JE_INVALID_CONVERSION_INFO');
126: FND_MSG_PUB.ADD;
127: FND_MSG_PUB.Count_And_Get(
128: p_encoded => FND_API.G_FALSE,
129: p_count => x_msg_count,
130: p_data => x_msg_data);
131: WHEN GL_CURRENCY_API.INVALID_CURRENCY THEN
132: ROLLBACK TO Get_Currency_Details_PVT;
129: p_count => x_msg_count,
130: p_data => x_msg_data);
131: WHEN GL_CURRENCY_API.INVALID_CURRENCY THEN
132: ROLLBACK TO Get_Currency_Details_PVT;
133: x_return_status := FND_API.G_RET_STS_ERROR;
134: FND_MESSAGE.SET_NAME('SQLGL', 'GL INVALID CURRENCY CODE');
135: FND_MSG_PUB.ADD;
136: FND_MSG_PUB.Count_And_Get(
137: p_encoded => FND_API.G_FALSE,
133: x_return_status := FND_API.G_RET_STS_ERROR;
134: FND_MESSAGE.SET_NAME('SQLGL', 'GL INVALID CURRENCY CODE');
135: FND_MSG_PUB.ADD;
136: FND_MSG_PUB.Count_And_Get(
137: p_encoded => FND_API.G_FALSE,
138: p_count => x_msg_count,
139: p_data => x_msg_data);
140: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
141: ROLLBACK TO Get_Currency_Details_PVT;
136: FND_MSG_PUB.Count_And_Get(
137: p_encoded => FND_API.G_FALSE,
138: p_count => x_msg_count,
139: p_data => x_msg_data);
140: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
141: ROLLBACK TO Get_Currency_Details_PVT;
142: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
143: FND_MSG_PUB.Count_And_Get(
144: p_encoded => FND_API.G_FALSE,
138: p_count => x_msg_count,
139: p_data => x_msg_data);
140: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
141: ROLLBACK TO Get_Currency_Details_PVT;
142: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
143: FND_MSG_PUB.Count_And_Get(
144: p_encoded => FND_API.G_FALSE,
145: p_count => x_msg_count,
146: p_data => x_msg_data);
140: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
141: ROLLBACK TO Get_Currency_Details_PVT;
142: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
143: FND_MSG_PUB.Count_And_Get(
144: p_encoded => FND_API.G_FALSE,
145: p_count => x_msg_count,
146: p_data => x_msg_data);
147: WHEN OTHERS THEN
148: ROLLBACK TO Get_Currency_Details_PVT;
145: p_count => x_msg_count,
146: p_data => x_msg_data);
147: WHEN OTHERS THEN
148: ROLLBACK TO Get_Currency_Details_PVT;
149: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
150: FND_MSG_PUB.Count_And_Get(
151: p_encoded => FND_API.G_FALSE,
152: p_count => x_msg_count,
153: p_data => x_msg_data);
147: WHEN OTHERS THEN
148: ROLLBACK TO Get_Currency_Details_PVT;
149: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
150: FND_MSG_PUB.Count_And_Get(
151: p_encoded => FND_API.G_FALSE,
152: p_count => x_msg_count,
153: p_data => x_msg_data);
154: END;
155: --
177: | jypark 23-NOV-99 Created |
178: | |
179: +===========================================================================*/
180: PROCEDURE Get_Curr_Round_Amount (
181: p_api_version IN NUMBER DEFAULT FND_API.G_MISS_NUM,
182: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
183: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
184: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
185: p_amount IN NUMBER DEFAULT FND_API.G_MISS_NUM,
178: | |
179: +===========================================================================*/
180: PROCEDURE Get_Curr_Round_Amount (
181: p_api_version IN NUMBER DEFAULT FND_API.G_MISS_NUM,
182: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
183: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
184: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
185: p_amount IN NUMBER DEFAULT FND_API.G_MISS_NUM,
186: p_currency_code IN VARCHAR2 DEFAULT g_functional_currency,
179: +===========================================================================*/
180: PROCEDURE Get_Curr_Round_Amount (
181: p_api_version IN NUMBER DEFAULT FND_API.G_MISS_NUM,
182: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
183: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
184: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
185: p_amount IN NUMBER DEFAULT FND_API.G_MISS_NUM,
186: p_currency_code IN VARCHAR2 DEFAULT g_functional_currency,
187: x_rounded_amount OUT NOCOPY NUMBER,
180: PROCEDURE Get_Curr_Round_Amount (
181: p_api_version IN NUMBER DEFAULT FND_API.G_MISS_NUM,
182: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
183: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
184: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
185: p_amount IN NUMBER DEFAULT FND_API.G_MISS_NUM,
186: p_currency_code IN VARCHAR2 DEFAULT g_functional_currency,
187: x_rounded_amount OUT NOCOPY NUMBER,
188: x_return_status OUT NOCOPY VARCHAR2,
181: p_api_version IN NUMBER DEFAULT FND_API.G_MISS_NUM,
182: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
183: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
184: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
185: p_amount IN NUMBER DEFAULT FND_API.G_MISS_NUM,
186: p_currency_code IN VARCHAR2 DEFAULT g_functional_currency,
187: x_rounded_amount OUT NOCOPY NUMBER,
188: x_return_status OUT NOCOPY VARCHAR2,
189: x_msg_count OUT NOCOPY NUMBER,
202: -- Standard begin of API savepoint
203: SAVEPOINT Curr_Round_Amount_PVT;
204:
205: -- Standard call to check for call compatibility.
206: IF NOT FND_API.Compatible_API_Call (l_api_version,
207: p_api_version,
208: l_api_name,
209: G_PKG_NAME)
210: THEN
207: p_api_version,
208: l_api_name,
209: G_PKG_NAME)
210: THEN
211: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
212: END IF;
213:
214: -- Check p_init_msg_list
215: IF FND_API.to_Boolean( p_init_msg_list ) THEN
211: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
212: END IF;
213:
214: -- Check p_init_msg_list
215: IF FND_API.to_Boolean( p_init_msg_list ) THEN
216: FND_MSG_PUB.initialize;
217: END IF;
218:
219:
217: END IF;
218:
219:
220: -- Initialize API return status to success
221: x_return_status := FND_API.G_RET_STS_SUCCESS;
222:
223: Get_Currency_Details( p_api_version => 1.0,
224: p_init_msg_list => 'F',
225: p_commit => 'F',
240: END IF;
241: EXCEPTION
242: WHEN GL_CURRENCY_API.NO_RATE THEN
243: ROLLBACK TO Curr_Round_Amount_PVT;
244: x_return_status := FND_API.G_RET_STS_ERROR;
245: FND_MESSAGE.SET_NAME('SQLGL', 'GL_JE_INVALID_CONVERSION_INFO');
246: FND_MSG_PUB.ADD;
247: FND_MSG_PUB.Count_And_Get(
248: p_encoded => FND_API.G_FALSE,
244: x_return_status := FND_API.G_RET_STS_ERROR;
245: FND_MESSAGE.SET_NAME('SQLGL', 'GL_JE_INVALID_CONVERSION_INFO');
246: FND_MSG_PUB.ADD;
247: FND_MSG_PUB.Count_And_Get(
248: p_encoded => FND_API.G_FALSE,
249: p_count => x_msg_count,
250: p_data => x_msg_data);
251: WHEN GL_CURRENCY_API.INVALID_CURRENCY THEN
252: ROLLBACK TO Curr_Round_Amount_PVT;
249: p_count => x_msg_count,
250: p_data => x_msg_data);
251: WHEN GL_CURRENCY_API.INVALID_CURRENCY THEN
252: ROLLBACK TO Curr_Round_Amount_PVT;
253: x_return_status := FND_API.G_RET_STS_ERROR;
254: FND_MESSAGE.SET_NAME('SQLGL', 'GL INVALID CURRENCY CODE');
255: FND_MSG_PUB.ADD;
256: FND_MSG_PUB.Count_And_Get(
257: p_encoded => FND_API.G_FALSE,
253: x_return_status := FND_API.G_RET_STS_ERROR;
254: FND_MESSAGE.SET_NAME('SQLGL', 'GL INVALID CURRENCY CODE');
255: FND_MSG_PUB.ADD;
256: FND_MSG_PUB.Count_And_Get(
257: p_encoded => FND_API.G_FALSE,
258: p_count => x_msg_count,
259: p_data => x_msg_data);
260: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
261: ROLLBACK TO Curr_Round_Amount_PVT;
256: FND_MSG_PUB.Count_And_Get(
257: p_encoded => FND_API.G_FALSE,
258: p_count => x_msg_count,
259: p_data => x_msg_data);
260: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
261: ROLLBACK TO Curr_Round_Amount_PVT;
262: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
263: FND_MSG_PUB.Count_And_Get(
264: p_encoded => FND_API.G_FALSE,
258: p_count => x_msg_count,
259: p_data => x_msg_data);
260: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
261: ROLLBACK TO Curr_Round_Amount_PVT;
262: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
263: FND_MSG_PUB.Count_And_Get(
264: p_encoded => FND_API.G_FALSE,
265: p_count => x_msg_count,
266: p_data => x_msg_data);
260: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
261: ROLLBACK TO Curr_Round_Amount_PVT;
262: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
263: FND_MSG_PUB.Count_And_Get(
264: p_encoded => FND_API.G_FALSE,
265: p_count => x_msg_count,
266: p_data => x_msg_data);
267: WHEN OTHERS THEN
268: ROLLBACK TO Curr_Round_Amount_PVT;
265: p_count => x_msg_count,
266: p_data => x_msg_data);
267: WHEN OTHERS THEN
268: ROLLBACK TO Curr_Round_Amount_PVT;
269: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
270: FND_MSG_PUB.Count_And_Get(
271: p_encoded => FND_API.G_FALSE,
272: p_count => x_msg_count,
273: p_data => x_msg_data);
267: WHEN OTHERS THEN
268: ROLLBACK TO Curr_Round_Amount_PVT;
269: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
270: FND_MSG_PUB.Count_And_Get(
271: p_encoded => FND_API.G_FALSE,
272: p_count => x_msg_count,
273: p_data => x_msg_data);
274: END;
275:
313: +===========================================================================*/
314:
315:
316: PROCEDURE Get_Functional_Amount(
317: p_api_version IN NUMBER DEFAULT FND_API.G_MISS_NUM,
318: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
319: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
320: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
321: p_amount IN NUMBER DEFAULT FND_API.G_MISS_NUM,
314:
315:
316: PROCEDURE Get_Functional_Amount(
317: p_api_version IN NUMBER DEFAULT FND_API.G_MISS_NUM,
318: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
319: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
320: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
321: p_amount IN NUMBER DEFAULT FND_API.G_MISS_NUM,
322: p_currency_code IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
315:
316: PROCEDURE Get_Functional_Amount(
317: p_api_version IN NUMBER DEFAULT FND_API.G_MISS_NUM,
318: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
319: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
320: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
321: p_amount IN NUMBER DEFAULT FND_API.G_MISS_NUM,
322: p_currency_code IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
323: p_exchange_rate IN NUMBER DEFAULT FND_API.G_MISS_NUM,
316: PROCEDURE Get_Functional_Amount(
317: p_api_version IN NUMBER DEFAULT FND_API.G_MISS_NUM,
318: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
319: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
320: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
321: p_amount IN NUMBER DEFAULT FND_API.G_MISS_NUM,
322: p_currency_code IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
323: p_exchange_rate IN NUMBER DEFAULT FND_API.G_MISS_NUM,
324: p_precision IN NUMBER DEFAULT FND_API.G_MISS_NUM,
317: p_api_version IN NUMBER DEFAULT FND_API.G_MISS_NUM,
318: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
319: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
320: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
321: p_amount IN NUMBER DEFAULT FND_API.G_MISS_NUM,
322: p_currency_code IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
323: p_exchange_rate IN NUMBER DEFAULT FND_API.G_MISS_NUM,
324: p_precision IN NUMBER DEFAULT FND_API.G_MISS_NUM,
325: p_min_acc_unit IN NUMBER DEFAULT FND_API.G_MISS_NUM,
318: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
319: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
320: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
321: p_amount IN NUMBER DEFAULT FND_API.G_MISS_NUM,
322: p_currency_code IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
323: p_exchange_rate IN NUMBER DEFAULT FND_API.G_MISS_NUM,
324: p_precision IN NUMBER DEFAULT FND_API.G_MISS_NUM,
325: p_min_acc_unit IN NUMBER DEFAULT FND_API.G_MISS_NUM,
326: x_functional_amount OUT NOCOPY NUMBER,
319: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
320: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
321: p_amount IN NUMBER DEFAULT FND_API.G_MISS_NUM,
322: p_currency_code IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
323: p_exchange_rate IN NUMBER DEFAULT FND_API.G_MISS_NUM,
324: p_precision IN NUMBER DEFAULT FND_API.G_MISS_NUM,
325: p_min_acc_unit IN NUMBER DEFAULT FND_API.G_MISS_NUM,
326: x_functional_amount OUT NOCOPY NUMBER,
327: x_return_status OUT NOCOPY VARCHAR2,
320: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
321: p_amount IN NUMBER DEFAULT FND_API.G_MISS_NUM,
322: p_currency_code IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
323: p_exchange_rate IN NUMBER DEFAULT FND_API.G_MISS_NUM,
324: p_precision IN NUMBER DEFAULT FND_API.G_MISS_NUM,
325: p_min_acc_unit IN NUMBER DEFAULT FND_API.G_MISS_NUM,
326: x_functional_amount OUT NOCOPY NUMBER,
327: x_return_status OUT NOCOPY VARCHAR2,
328: x_msg_count OUT NOCOPY NUMBER,
321: p_amount IN NUMBER DEFAULT FND_API.G_MISS_NUM,
322: p_currency_code IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
323: p_exchange_rate IN NUMBER DEFAULT FND_API.G_MISS_NUM,
324: p_precision IN NUMBER DEFAULT FND_API.G_MISS_NUM,
325: p_min_acc_unit IN NUMBER DEFAULT FND_API.G_MISS_NUM,
326: x_functional_amount OUT NOCOPY NUMBER,
327: x_return_status OUT NOCOPY VARCHAR2,
328: x_msg_count OUT NOCOPY NUMBER,
329: x_msg_data OUT NOCOPY VARCHAR2
377: -- Standard begin of API savepoint
378: SAVEPOINT Functional_Amount_PVT;
379:
380: -- Standard call to check for call compatibility.
381: IF NOT FND_API.Compatible_API_Call (l_api_version,
382: p_api_version,
383: l_api_name,
384: G_PKG_NAME)
385: THEN
382: p_api_version,
383: l_api_name,
384: G_PKG_NAME)
385: THEN
386: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
387: END IF;
388:
389: -- Check p_init_msg_list
390: IF FND_API.to_Boolean( p_init_msg_list ) THEN
386: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
387: END IF;
388:
389: -- Check p_init_msg_list
390: IF FND_API.to_Boolean( p_init_msg_list ) THEN
391: FND_MSG_PUB.initialize;
392: END IF;
393:
394:
392: END IF;
393:
394:
395: -- Initialize API return status to success
396: x_return_status := FND_API.G_RET_STS_SUCCESS;
397:
398: /*--------------------------------------------------------------------*
399: | Validate Parameters |
400: *--------------------------------------------------------------------*/
399: | Validate Parameters |
400: *--------------------------------------------------------------------*/
401:
402: -- Begin - Andre Araujo - Read functional currency if we do not get it
403: IF (p_currency_code = FND_API.G_MISS_CHAR) OR (p_currency_code = '-1') THEN
404: IEX_CURRENCY_PVT.GET_FUNCT_CURR(p_api_version => l_api_version,
405: p_init_msg_list => l_init_msg_list,
406: p_commit => l_commit,
407: x_return_status => l_return_status,
413: END IF;
414:
415: -- Now that we are here lets get precision and Minimum account unit
416: IF ((p_precision = -1) OR (p_min_acc_unit = -1)) OR
417: ((p_precision = FND_API.G_MISS_NUM) OR (p_min_acc_unit = FND_API.G_MISS_NUM)) THEN
418: IEX_CURRENCY_PVT.GET_CURRENCY_DETAILS
419: (p_api_version => l_api_version,
420: p_init_msg_list => l_init_msg_list,
421: p_commit => l_commit,
487:
488: EXCEPTION
489: WHEN GL_CURRENCY_API.NO_RATE THEN
490: ROLLBACK TO Functional_Amount_PVT;
491: x_return_status := FND_API.G_RET_STS_ERROR;
492: FND_MESSAGE.SET_NAME('SQLGL', 'GL_JE_INVALID_CONVERSION_INFO');
493: FND_MSG_PUB.ADD;
494: FND_MSG_PUB.Count_And_Get(
495: p_encoded => FND_API.G_FALSE,
491: x_return_status := FND_API.G_RET_STS_ERROR;
492: FND_MESSAGE.SET_NAME('SQLGL', 'GL_JE_INVALID_CONVERSION_INFO');
493: FND_MSG_PUB.ADD;
494: FND_MSG_PUB.Count_And_Get(
495: p_encoded => FND_API.G_FALSE,
496: p_count => x_msg_count,
497: p_data => x_msg_data);
498: WHEN GL_CURRENCY_API.INVALID_CURRENCY THEN
499: ROLLBACK TO Functional_Amount_PVT;
496: p_count => x_msg_count,
497: p_data => x_msg_data);
498: WHEN GL_CURRENCY_API.INVALID_CURRENCY THEN
499: ROLLBACK TO Functional_Amount_PVT;
500: x_return_status := FND_API.G_RET_STS_ERROR;
501: FND_MESSAGE.SET_NAME('SQLGL', 'GL INVALID CURRENCY CODE');
502: FND_MSG_PUB.ADD;
503: FND_MSG_PUB.Count_And_Get(
504: p_encoded => FND_API.G_FALSE,
500: x_return_status := FND_API.G_RET_STS_ERROR;
501: FND_MESSAGE.SET_NAME('SQLGL', 'GL INVALID CURRENCY CODE');
502: FND_MSG_PUB.ADD;
503: FND_MSG_PUB.Count_And_Get(
504: p_encoded => FND_API.G_FALSE,
505: p_count => x_msg_count,
506: p_data => x_msg_data);
507: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
508: ROLLBACK TO Functional_Amount_PVT;
503: FND_MSG_PUB.Count_And_Get(
504: p_encoded => FND_API.G_FALSE,
505: p_count => x_msg_count,
506: p_data => x_msg_data);
507: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
508: ROLLBACK TO Functional_Amount_PVT;
509: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
510: FND_MSG_PUB.Count_And_Get(
511: p_encoded => FND_API.G_FALSE,
505: p_count => x_msg_count,
506: p_data => x_msg_data);
507: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
508: ROLLBACK TO Functional_Amount_PVT;
509: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
510: FND_MSG_PUB.Count_And_Get(
511: p_encoded => FND_API.G_FALSE,
512: p_count => x_msg_count,
513: p_data => x_msg_data);
507: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
508: ROLLBACK TO Functional_Amount_PVT;
509: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
510: FND_MSG_PUB.Count_And_Get(
511: p_encoded => FND_API.G_FALSE,
512: p_count => x_msg_count,
513: p_data => x_msg_data);
514: WHEN OTHERS THEN
515: ROLLBACK TO Functional_Amount_PVT;
512: p_count => x_msg_count,
513: p_data => x_msg_data);
514: WHEN OTHERS THEN
515: ROLLBACK TO Functional_Amount_PVT;
516: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
517: FND_MSG_PUB.Count_And_Get(
518: p_encoded => FND_API.G_FALSE,
519: p_count => x_msg_count,
520: p_data => x_msg_data);
514: WHEN OTHERS THEN
515: ROLLBACK TO Functional_Amount_PVT;
516: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
517: FND_MSG_PUB.Count_And_Get(
518: p_encoded => FND_API.G_FALSE,
519: p_count => x_msg_count,
520: p_data => x_msg_data);
521: END Get_Functional_Amount;
522:
549: | |
550: +===========================================================================*/
551:
552: PROCEDURE Get_Func_Amt_Rate(
553: p_api_version IN NUMBER DEFAULT FND_API.G_MISS_NUM,
554: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
555: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
556: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
557: p_amount_original IN NUMBER DEFAULT FND_API.G_MISS_NUM,
550: +===========================================================================*/
551:
552: PROCEDURE Get_Func_Amt_Rate(
553: p_api_version IN NUMBER DEFAULT FND_API.G_MISS_NUM,
554: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
555: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
556: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
557: p_amount_original IN NUMBER DEFAULT FND_API.G_MISS_NUM,
558: p_exchange_rate IN NUMBER DEFAULT FND_API.G_MISS_NUM,
551:
552: PROCEDURE Get_Func_Amt_Rate(
553: p_api_version IN NUMBER DEFAULT FND_API.G_MISS_NUM,
554: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
555: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
556: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
557: p_amount_original IN NUMBER DEFAULT FND_API.G_MISS_NUM,
558: p_exchange_rate IN NUMBER DEFAULT FND_API.G_MISS_NUM,
559: x_amount_functional OUT NOCOPY NUMBER,
552: PROCEDURE Get_Func_Amt_Rate(
553: p_api_version IN NUMBER DEFAULT FND_API.G_MISS_NUM,
554: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
555: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
556: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
557: p_amount_original IN NUMBER DEFAULT FND_API.G_MISS_NUM,
558: p_exchange_rate IN NUMBER DEFAULT FND_API.G_MISS_NUM,
559: x_amount_functional OUT NOCOPY NUMBER,
560: x_return_status OUT NOCOPY VARCHAR2,
553: p_api_version IN NUMBER DEFAULT FND_API.G_MISS_NUM,
554: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
555: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
556: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
557: p_amount_original IN NUMBER DEFAULT FND_API.G_MISS_NUM,
558: p_exchange_rate IN NUMBER DEFAULT FND_API.G_MISS_NUM,
559: x_amount_functional OUT NOCOPY NUMBER,
560: x_return_status OUT NOCOPY VARCHAR2,
561: x_msg_count OUT NOCOPY NUMBER,
554: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
555: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
556: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
557: p_amount_original IN NUMBER DEFAULT FND_API.G_MISS_NUM,
558: p_exchange_rate IN NUMBER DEFAULT FND_API.G_MISS_NUM,
559: x_amount_functional OUT NOCOPY NUMBER,
560: x_return_status OUT NOCOPY VARCHAR2,
561: x_msg_count OUT NOCOPY NUMBER,
562: x_msg_data OUT NOCOPY VARCHAR2
589: -- Standard begin of API savepoint
590: SAVEPOINT Func_Amt_Rate_PVT;
591:
592: -- Standard call to check for call compatibility.
593: IF NOT FND_API.Compatible_API_Call (l_api_version,
594: p_api_version,
595: l_api_name,
596: G_PKG_NAME)
597: THEN
594: p_api_version,
595: l_api_name,
596: G_PKG_NAME)
597: THEN
598: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
599: END IF;
600:
601: -- Check p_init_msg_list
602: IF FND_API.to_Boolean( p_init_msg_list ) THEN
598: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
599: END IF;
600:
601: -- Check p_init_msg_list
602: IF FND_API.to_Boolean( p_init_msg_list ) THEN
603: FND_MSG_PUB.initialize;
604: END IF;
605:
606: -- Initialize API return status to success
603: FND_MSG_PUB.initialize;
604: END IF;
605:
606: -- Initialize API return status to success
607: x_return_status := FND_API.G_RET_STS_SUCCESS;
608:
609: -- Get functional currency
610: IEX_CURRENCY_PVT.GET_FUNCT_CURR(p_api_version => l_api_version,
611: p_init_msg_list => l_init_msg_list,
654:
655: EXCEPTION
656: WHEN GL_CURRENCY_API.NO_RATE THEN
657: ROLLBACK TO Func_Amt_Rate_PVT;
658: x_return_status := FND_API.G_RET_STS_ERROR;
659: FND_MESSAGE.SET_NAME('SQLGL', 'GL_JE_INVALID_CONVERSION_INFO');
660: FND_MSG_PUB.ADD;
661: FND_MSG_PUB.Count_And_Get(
662: p_encoded => FND_API.G_FALSE,
658: x_return_status := FND_API.G_RET_STS_ERROR;
659: FND_MESSAGE.SET_NAME('SQLGL', 'GL_JE_INVALID_CONVERSION_INFO');
660: FND_MSG_PUB.ADD;
661: FND_MSG_PUB.Count_And_Get(
662: p_encoded => FND_API.G_FALSE,
663: p_count => x_msg_count,
664: p_data => x_msg_data);
665: WHEN GL_CURRENCY_API.INVALID_CURRENCY THEN
666: ROLLBACK TO Func_Amt_Rate_PVT;
663: p_count => x_msg_count,
664: p_data => x_msg_data);
665: WHEN GL_CURRENCY_API.INVALID_CURRENCY THEN
666: ROLLBACK TO Func_Amt_Rate_PVT;
667: x_return_status := FND_API.G_RET_STS_ERROR;
668: FND_MESSAGE.SET_NAME('SQLGL', 'GL INVALID CURRENCY CODE');
669: FND_MSG_PUB.ADD;
670: FND_MSG_PUB.Count_And_Get(
671: p_encoded => FND_API.G_FALSE,
667: x_return_status := FND_API.G_RET_STS_ERROR;
668: FND_MESSAGE.SET_NAME('SQLGL', 'GL INVALID CURRENCY CODE');
669: FND_MSG_PUB.ADD;
670: FND_MSG_PUB.Count_And_Get(
671: p_encoded => FND_API.G_FALSE,
672: p_count => x_msg_count,
673: p_data => x_msg_data);
674: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
675: ROLLBACK TO Func_Amt_Rate_PVT;
670: FND_MSG_PUB.Count_And_Get(
671: p_encoded => FND_API.G_FALSE,
672: p_count => x_msg_count,
673: p_data => x_msg_data);
674: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
675: ROLLBACK TO Func_Amt_Rate_PVT;
676: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
677: FND_MSG_PUB.Count_And_Get(
678: p_encoded => FND_API.G_FALSE,
672: p_count => x_msg_count,
673: p_data => x_msg_data);
674: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
675: ROLLBACK TO Func_Amt_Rate_PVT;
676: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
677: FND_MSG_PUB.Count_And_Get(
678: p_encoded => FND_API.G_FALSE,
679: p_count => x_msg_count,
680: p_data => x_msg_data);
674: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
675: ROLLBACK TO Func_Amt_Rate_PVT;
676: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
677: FND_MSG_PUB.Count_And_Get(
678: p_encoded => FND_API.G_FALSE,
679: p_count => x_msg_count,
680: p_data => x_msg_data);
681: WHEN OTHERS THEN
682: ROLLBACK TO Func_Amt_Rate_PVT;
679: p_count => x_msg_count,
680: p_data => x_msg_data);
681: WHEN OTHERS THEN
682: ROLLBACK TO Func_Amt_Rate_PVT;
683: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
684: FND_MSG_PUB.Count_And_Get(
685: p_encoded => FND_API.G_FALSE,
686: p_count => x_msg_count,
687: p_data => x_msg_data);
681: WHEN OTHERS THEN
682: ROLLBACK TO Func_Amt_Rate_PVT;
683: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
684: FND_MSG_PUB.Count_And_Get(
685: p_encoded => FND_API.G_FALSE,
686: p_count => x_msg_count,
687: p_data => x_msg_data);
688: END Get_Func_Amt_Rate;
689:
721: | |
722: +===========================================================================*/
723:
724: PROCEDURE Get_Func_Amt_Curr(
725: p_api_version IN NUMBER DEFAULT FND_API.G_MISS_NUM,
726: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
727: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
728: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
729: p_amount_original IN NUMBER DEFAULT FND_API.G_MISS_NUM,
722: +===========================================================================*/
723:
724: PROCEDURE Get_Func_Amt_Curr(
725: p_api_version IN NUMBER DEFAULT FND_API.G_MISS_NUM,
726: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
727: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
728: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
729: p_amount_original IN NUMBER DEFAULT FND_API.G_MISS_NUM,
730: p_currency_original IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
723:
724: PROCEDURE Get_Func_Amt_Curr(
725: p_api_version IN NUMBER DEFAULT FND_API.G_MISS_NUM,
726: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
727: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
728: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
729: p_amount_original IN NUMBER DEFAULT FND_API.G_MISS_NUM,
730: p_currency_original IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
731: p_exchange_date IN DATE DEFAULT FND_API.G_MISS_DATE,
724: PROCEDURE Get_Func_Amt_Curr(
725: p_api_version IN NUMBER DEFAULT FND_API.G_MISS_NUM,
726: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
727: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
728: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
729: p_amount_original IN NUMBER DEFAULT FND_API.G_MISS_NUM,
730: p_currency_original IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
731: p_exchange_date IN DATE DEFAULT FND_API.G_MISS_DATE,
732: x_amount_functional OUT NOCOPY NUMBER,
725: p_api_version IN NUMBER DEFAULT FND_API.G_MISS_NUM,
726: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
727: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
728: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
729: p_amount_original IN NUMBER DEFAULT FND_API.G_MISS_NUM,
730: p_currency_original IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
731: p_exchange_date IN DATE DEFAULT FND_API.G_MISS_DATE,
732: x_amount_functional OUT NOCOPY NUMBER,
733: x_return_status OUT NOCOPY VARCHAR2,
726: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
727: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
728: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
729: p_amount_original IN NUMBER DEFAULT FND_API.G_MISS_NUM,
730: p_currency_original IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
731: p_exchange_date IN DATE DEFAULT FND_API.G_MISS_DATE,
732: x_amount_functional OUT NOCOPY NUMBER,
733: x_return_status OUT NOCOPY VARCHAR2,
734: x_msg_count OUT NOCOPY NUMBER,
727: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
728: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
729: p_amount_original IN NUMBER DEFAULT FND_API.G_MISS_NUM,
730: p_currency_original IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
731: p_exchange_date IN DATE DEFAULT FND_API.G_MISS_DATE,
732: x_amount_functional OUT NOCOPY NUMBER,
733: x_return_status OUT NOCOPY VARCHAR2,
734: x_msg_count OUT NOCOPY NUMBER,
735: x_msg_data OUT NOCOPY VARCHAR2
765: -- Standard begin of API savepoint
766: SAVEPOINT Func_Amt_Curr_Pvt;
767:
768: -- Standard call to check for call compatibility.
769: IF NOT FND_API.Compatible_API_Call (l_api_version,
770: p_api_version,
771: l_api_name,
772: G_PKG_NAME)
773: THEN
770: p_api_version,
771: l_api_name,
772: G_PKG_NAME)
773: THEN
774: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
775: END IF;
776:
777: -- Check p_init_msg_list
778: IF FND_API.to_Boolean( p_init_msg_list ) THEN
774: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
775: END IF;
776:
777: -- Check p_init_msg_list
778: IF FND_API.to_Boolean( p_init_msg_list ) THEN
779: FND_MSG_PUB.initialize;
780: END IF;
781:
782:
780: END IF;
781:
782:
783: -- Initialize API return status to success
784: x_return_status := FND_API.G_RET_STS_SUCCESS;
785:
786: -- Get Functional Currency
787: IEX_CURRENCY_PVT.GET_FUNCT_CURR(p_api_version => l_api_version,
788: p_init_msg_list => l_init_msg_list,
850:
851: EXCEPTION
852: WHEN GL_CURRENCY_API.NO_RATE THEN
853: ROLLBACK TO Func_Amt_Curr_Pvt;
854: x_return_status := FND_API.G_RET_STS_ERROR;
855: FND_MESSAGE.SET_NAME('SQLGL', 'GL_JE_INVALID_CONVERSION_INFO');
856: FND_MSG_PUB.ADD;
857: FND_MSG_PUB.Count_And_Get(
858: p_encoded => FND_API.G_FALSE,
854: x_return_status := FND_API.G_RET_STS_ERROR;
855: FND_MESSAGE.SET_NAME('SQLGL', 'GL_JE_INVALID_CONVERSION_INFO');
856: FND_MSG_PUB.ADD;
857: FND_MSG_PUB.Count_And_Get(
858: p_encoded => FND_API.G_FALSE,
859: p_count => x_msg_count,
860: p_data => x_msg_data);
861: WHEN GL_CURRENCY_API.INVALID_CURRENCY THEN
862: ROLLBACK TO Func_Amt_Curr_Pvt;
859: p_count => x_msg_count,
860: p_data => x_msg_data);
861: WHEN GL_CURRENCY_API.INVALID_CURRENCY THEN
862: ROLLBACK TO Func_Amt_Curr_Pvt;
863: x_return_status := FND_API.G_RET_STS_ERROR;
864: FND_MESSAGE.SET_NAME('SQLGL', 'GL INVALID CURRENCY CODE');
865: FND_MSG_PUB.ADD;
866: FND_MSG_PUB.Count_And_Get(
867: p_encoded => FND_API.G_FALSE,
863: x_return_status := FND_API.G_RET_STS_ERROR;
864: FND_MESSAGE.SET_NAME('SQLGL', 'GL INVALID CURRENCY CODE');
865: FND_MSG_PUB.ADD;
866: FND_MSG_PUB.Count_And_Get(
867: p_encoded => FND_API.G_FALSE,
868: p_count => x_msg_count,
869: p_data => x_msg_data);
870: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
871: ROLLBACK TO Func_Amt_Curr_Pvt;
866: FND_MSG_PUB.Count_And_Get(
867: p_encoded => FND_API.G_FALSE,
868: p_count => x_msg_count,
869: p_data => x_msg_data);
870: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
871: ROLLBACK TO Func_Amt_Curr_Pvt;
872: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
873: FND_MSG_PUB.Count_And_Get(
874: p_encoded => FND_API.G_FALSE,
868: p_count => x_msg_count,
869: p_data => x_msg_data);
870: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
871: ROLLBACK TO Func_Amt_Curr_Pvt;
872: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
873: FND_MSG_PUB.Count_And_Get(
874: p_encoded => FND_API.G_FALSE,
875: p_count => x_msg_count,
876: p_data => x_msg_data);
870: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
871: ROLLBACK TO Func_Amt_Curr_Pvt;
872: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
873: FND_MSG_PUB.Count_And_Get(
874: p_encoded => FND_API.G_FALSE,
875: p_count => x_msg_count,
876: p_data => x_msg_data);
877: WHEN OTHERS THEN
878: ROLLBACK TO Func_Amt_Curr_Pvt;
875: p_count => x_msg_count,
876: p_data => x_msg_data);
877: WHEN OTHERS THEN
878: ROLLBACK TO Func_Amt_Curr_Pvt;
879: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
880: FND_MSG_PUB.Count_And_Get(
881: p_encoded => FND_API.G_FALSE,
882: p_count => x_msg_count,
883: p_data => x_msg_data);
877: WHEN OTHERS THEN
878: ROLLBACK TO Func_Amt_Curr_Pvt;
879: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
880: FND_MSG_PUB.Count_And_Get(
881: p_encoded => FND_API.G_FALSE,
882: p_count => x_msg_count,
883: p_data => x_msg_data);
884: END Get_Func_Amt_Curr;
885:
915: | |
916: +===========================================================================*/
917:
918: PROCEDURE Get_Convert_Amount_Curr(
919: p_api_version IN NUMBER DEFAULT FND_API.G_MISS_NUM,
920: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
921: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
922: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
923: p_from_currency IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
916: +===========================================================================*/
917:
918: PROCEDURE Get_Convert_Amount_Curr(
919: p_api_version IN NUMBER DEFAULT FND_API.G_MISS_NUM,
920: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
921: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
922: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
923: p_from_currency IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
924: p_to_currency IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
917:
918: PROCEDURE Get_Convert_Amount_Curr(
919: p_api_version IN NUMBER DEFAULT FND_API.G_MISS_NUM,
920: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
921: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
922: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
923: p_from_currency IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
924: p_to_currency IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
925: p_conversion_date IN DATE DEFAULT FND_API.G_MISS_DATE,
918: PROCEDURE Get_Convert_Amount_Curr(
919: p_api_version IN NUMBER DEFAULT FND_API.G_MISS_NUM,
920: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
921: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
922: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
923: p_from_currency IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
924: p_to_currency IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
925: p_conversion_date IN DATE DEFAULT FND_API.G_MISS_DATE,
926: p_conversion_type IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
919: p_api_version IN NUMBER DEFAULT FND_API.G_MISS_NUM,
920: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
921: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
922: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
923: p_from_currency IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
924: p_to_currency IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
925: p_conversion_date IN DATE DEFAULT FND_API.G_MISS_DATE,
926: p_conversion_type IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
927: p_amount_original IN NUMBER DEFAULT FND_API.G_MISS_NUM,
920: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
921: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
922: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
923: p_from_currency IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
924: p_to_currency IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
925: p_conversion_date IN DATE DEFAULT FND_API.G_MISS_DATE,
926: p_conversion_type IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
927: p_amount_original IN NUMBER DEFAULT FND_API.G_MISS_NUM,
928: x_amount_converted OUT NOCOPY NUMBER,
921: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
922: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
923: p_from_currency IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
924: p_to_currency IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
925: p_conversion_date IN DATE DEFAULT FND_API.G_MISS_DATE,
926: p_conversion_type IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
927: p_amount_original IN NUMBER DEFAULT FND_API.G_MISS_NUM,
928: x_amount_converted OUT NOCOPY NUMBER,
929: x_return_status OUT NOCOPY VARCHAR2,
922: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
923: p_from_currency IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
924: p_to_currency IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
925: p_conversion_date IN DATE DEFAULT FND_API.G_MISS_DATE,
926: p_conversion_type IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
927: p_amount_original IN NUMBER DEFAULT FND_API.G_MISS_NUM,
928: x_amount_converted OUT NOCOPY NUMBER,
929: x_return_status OUT NOCOPY VARCHAR2,
930: x_msg_count OUT NOCOPY NUMBER,
923: p_from_currency IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
924: p_to_currency IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
925: p_conversion_date IN DATE DEFAULT FND_API.G_MISS_DATE,
926: p_conversion_type IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
927: p_amount_original IN NUMBER DEFAULT FND_API.G_MISS_NUM,
928: x_amount_converted OUT NOCOPY NUMBER,
929: x_return_status OUT NOCOPY VARCHAR2,
930: x_msg_count OUT NOCOPY NUMBER,
931: x_msg_data OUT NOCOPY VARCHAR2
945: -- Standard begin of API savepoint
946: SAVEPOINT Convert_Amount_Curr_PVT;
947:
948: -- Standard call to check for call compatibility.
949: IF NOT FND_API.Compatible_API_Call (l_api_version,
950: p_api_version,
951: l_api_name,
952: G_PKG_NAME)
953: THEN
950: p_api_version,
951: l_api_name,
952: G_PKG_NAME)
953: THEN
954: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
955: END IF;
956:
957: -- Check p_init_msg_list
958: IF FND_API.to_Boolean( p_init_msg_list ) THEN
954: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
955: END IF;
956:
957: -- Check p_init_msg_list
958: IF FND_API.to_Boolean( p_init_msg_list ) THEN
959: FND_MSG_PUB.initialize;
960: END IF;
961:
962: -- Initialize API return status to success
959: FND_MSG_PUB.initialize;
960: END IF;
961:
962: -- Initialize API return status to success
963: x_return_status := FND_API.G_RET_STS_SUCCESS;
964:
965:
966: x_amount_converted := gl_currency_api.convert_amount(x_from_currency => l_from_currency,
967: x_to_currency => l_to_currency,
971:
972: EXCEPTION
973: WHEN GL_CURRENCY_API.NO_RATE THEN
974: ROLLBACK TO Convert_Amount_Curr_PVT;
975: x_return_status := FND_API.G_RET_STS_ERROR;
976: FND_MESSAGE.SET_NAME('SQLGL', 'GL_JE_INVALID_CONVERSION_INFO');
977: FND_MSG_PUB.ADD;
978: FND_MSG_PUB.Count_And_Get(
979: p_encoded => FND_API.G_FALSE,
975: x_return_status := FND_API.G_RET_STS_ERROR;
976: FND_MESSAGE.SET_NAME('SQLGL', 'GL_JE_INVALID_CONVERSION_INFO');
977: FND_MSG_PUB.ADD;
978: FND_MSG_PUB.Count_And_Get(
979: p_encoded => FND_API.G_FALSE,
980: p_count => x_msg_count,
981: p_data => x_msg_data);
982: WHEN GL_CURRENCY_API.INVALID_CURRENCY THEN
983: ROLLBACK TO Convert_Amount_Curr_PVT;
980: p_count => x_msg_count,
981: p_data => x_msg_data);
982: WHEN GL_CURRENCY_API.INVALID_CURRENCY THEN
983: ROLLBACK TO Convert_Amount_Curr_PVT;
984: x_return_status := FND_API.G_RET_STS_ERROR;
985: FND_MESSAGE.SET_NAME('SQLGL', 'GL INVALID CURRENCY CODE');
986: FND_MSG_PUB.ADD;
987: FND_MSG_PUB.Count_And_Get(
988: p_encoded => FND_API.G_FALSE,
984: x_return_status := FND_API.G_RET_STS_ERROR;
985: FND_MESSAGE.SET_NAME('SQLGL', 'GL INVALID CURRENCY CODE');
986: FND_MSG_PUB.ADD;
987: FND_MSG_PUB.Count_And_Get(
988: p_encoded => FND_API.G_FALSE,
989: p_count => x_msg_count,
990: p_data => x_msg_data);
991: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
992: ROLLBACK TO Convert_Amount_Curr_PVT;
987: FND_MSG_PUB.Count_And_Get(
988: p_encoded => FND_API.G_FALSE,
989: p_count => x_msg_count,
990: p_data => x_msg_data);
991: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
992: ROLLBACK TO Convert_Amount_Curr_PVT;
993: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
994: FND_MSG_PUB.Count_And_Get(
995: p_encoded => FND_API.G_FALSE,
989: p_count => x_msg_count,
990: p_data => x_msg_data);
991: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
992: ROLLBACK TO Convert_Amount_Curr_PVT;
993: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
994: FND_MSG_PUB.Count_And_Get(
995: p_encoded => FND_API.G_FALSE,
996: p_count => x_msg_count,
997: p_data => x_msg_data);
991: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
992: ROLLBACK TO Convert_Amount_Curr_PVT;
993: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
994: FND_MSG_PUB.Count_And_Get(
995: p_encoded => FND_API.G_FALSE,
996: p_count => x_msg_count,
997: p_data => x_msg_data);
998: WHEN OTHERS THEN
999: ROLLBACK TO Convert_Amount_Curr_PVT;
996: p_count => x_msg_count,
997: p_data => x_msg_data);
998: WHEN OTHERS THEN
999: ROLLBACK TO Convert_Amount_Curr_PVT;
1000: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1001: FND_MSG_PUB.Count_And_Get(
1002: p_encoded => FND_API.G_FALSE,
1003: p_count => x_msg_count,
1004: p_data => x_msg_data);
998: WHEN OTHERS THEN
999: ROLLBACK TO Convert_Amount_Curr_PVT;
1000: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1001: FND_MSG_PUB.Count_And_Get(
1002: p_encoded => FND_API.G_FALSE,
1003: p_count => x_msg_count,
1004: p_data => x_msg_data);
1005: END;
1006:
1037: | |
1038: +===========================================================================*/
1039:
1040: PROCEDURE Get_Convert_Amount_Sob(
1041: p_api_version IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1042: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1043: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1044: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1045: p_set_of_books_id IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
1038: +===========================================================================*/
1039:
1040: PROCEDURE Get_Convert_Amount_Sob(
1041: p_api_version IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1042: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1043: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1044: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1045: p_set_of_books_id IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
1046: p_from_currency IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
1039:
1040: PROCEDURE Get_Convert_Amount_Sob(
1041: p_api_version IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1042: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1043: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1044: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1045: p_set_of_books_id IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
1046: p_from_currency IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
1047: p_conversion_date IN DATE DEFAULT FND_API.G_MISS_DATE,
1040: PROCEDURE Get_Convert_Amount_Sob(
1041: p_api_version IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1042: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1043: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1044: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1045: p_set_of_books_id IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
1046: p_from_currency IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
1047: p_conversion_date IN DATE DEFAULT FND_API.G_MISS_DATE,
1048: p_conversion_type IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
1041: p_api_version IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1042: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1043: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1044: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1045: p_set_of_books_id IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
1046: p_from_currency IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
1047: p_conversion_date IN DATE DEFAULT FND_API.G_MISS_DATE,
1048: p_conversion_type IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
1049: p_amount_original IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1042: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1043: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1044: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1045: p_set_of_books_id IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
1046: p_from_currency IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
1047: p_conversion_date IN DATE DEFAULT FND_API.G_MISS_DATE,
1048: p_conversion_type IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
1049: p_amount_original IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1050: x_amount_converted OUT NOCOPY NUMBER,
1043: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1044: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1045: p_set_of_books_id IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
1046: p_from_currency IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
1047: p_conversion_date IN DATE DEFAULT FND_API.G_MISS_DATE,
1048: p_conversion_type IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
1049: p_amount_original IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1050: x_amount_converted OUT NOCOPY NUMBER,
1051: x_return_status OUT NOCOPY VARCHAR2,
1044: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1045: p_set_of_books_id IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
1046: p_from_currency IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
1047: p_conversion_date IN DATE DEFAULT FND_API.G_MISS_DATE,
1048: p_conversion_type IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
1049: p_amount_original IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1050: x_amount_converted OUT NOCOPY NUMBER,
1051: x_return_status OUT NOCOPY VARCHAR2,
1052: x_msg_count OUT NOCOPY NUMBER,
1045: p_set_of_books_id IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
1046: p_from_currency IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
1047: p_conversion_date IN DATE DEFAULT FND_API.G_MISS_DATE,
1048: p_conversion_type IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
1049: p_amount_original IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1050: x_amount_converted OUT NOCOPY NUMBER,
1051: x_return_status OUT NOCOPY VARCHAR2,
1052: x_msg_count OUT NOCOPY NUMBER,
1053: x_msg_data OUT NOCOPY VARCHAR2
1068: -- Standard begin of API savepoint
1069: SAVEPOINT Convert_Amount_Sob_PVT;
1070:
1071: -- Standard call to check for call compatibility.
1072: IF NOT FND_API.Compatible_API_Call (l_api_version,
1073: p_api_version,
1074: l_api_name,
1075: G_PKG_NAME)
1076: THEN
1073: p_api_version,
1074: l_api_name,
1075: G_PKG_NAME)
1076: THEN
1077: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1078: END IF;
1079:
1080: -- Check p_init_msg_list
1081: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1077: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1078: END IF;
1079:
1080: -- Check p_init_msg_list
1081: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1082: FND_MSG_PUB.initialize;
1083: END IF;
1084:
1085: -- Initialize API return status to success
1082: FND_MSG_PUB.initialize;
1083: END IF;
1084:
1085: -- Initialize API return status to success
1086: x_return_status := FND_API.G_RET_STS_SUCCESS;
1087:
1088:
1089: x_amount_converted := gl_currency_api.convert_amount(x_set_of_books_id => p_set_of_books_id,
1090: x_from_currency => p_from_currency,
1094:
1095: EXCEPTION
1096: WHEN GL_CURRENCY_API.NO_RATE THEN
1097: ROLLBACK TO Convert_Amount_Sob_PVT;
1098: x_return_status := FND_API.G_RET_STS_ERROR;
1099: FND_MESSAGE.SET_NAME('SQLGL', 'GL_JE_INVALID_CONVERSION_INFO');
1100: FND_MSG_PUB.ADD;
1101: FND_MSG_PUB.Count_And_Get(
1102: p_encoded => FND_API.G_FALSE,
1098: x_return_status := FND_API.G_RET_STS_ERROR;
1099: FND_MESSAGE.SET_NAME('SQLGL', 'GL_JE_INVALID_CONVERSION_INFO');
1100: FND_MSG_PUB.ADD;
1101: FND_MSG_PUB.Count_And_Get(
1102: p_encoded => FND_API.G_FALSE,
1103: p_count => x_msg_count,
1104: p_data => x_msg_data);
1105: WHEN GL_CURRENCY_API.INVALID_CURRENCY THEN
1106: ROLLBACK TO Convert_Amount_Sob_PVT;
1103: p_count => x_msg_count,
1104: p_data => x_msg_data);
1105: WHEN GL_CURRENCY_API.INVALID_CURRENCY THEN
1106: ROLLBACK TO Convert_Amount_Sob_PVT;
1107: x_return_status := FND_API.G_RET_STS_ERROR;
1108: FND_MESSAGE.SET_NAME('SQLGL', 'GL INVALID CURRENCY CODE');
1109: FND_MSG_PUB.ADD;
1110: FND_MSG_PUB.Count_And_Get(
1111: p_encoded => FND_API.G_FALSE,
1107: x_return_status := FND_API.G_RET_STS_ERROR;
1108: FND_MESSAGE.SET_NAME('SQLGL', 'GL INVALID CURRENCY CODE');
1109: FND_MSG_PUB.ADD;
1110: FND_MSG_PUB.Count_And_Get(
1111: p_encoded => FND_API.G_FALSE,
1112: p_count => x_msg_count,
1113: p_data => x_msg_data);
1114: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1115: ROLLBACK TO Convert_Amount_Sob_PVT;
1110: FND_MSG_PUB.Count_And_Get(
1111: p_encoded => FND_API.G_FALSE,
1112: p_count => x_msg_count,
1113: p_data => x_msg_data);
1114: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1115: ROLLBACK TO Convert_Amount_Sob_PVT;
1116: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1117: FND_MSG_PUB.Count_And_Get(
1118: p_encoded => FND_API.G_FALSE,
1112: p_count => x_msg_count,
1113: p_data => x_msg_data);
1114: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1115: ROLLBACK TO Convert_Amount_Sob_PVT;
1116: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1117: FND_MSG_PUB.Count_And_Get(
1118: p_encoded => FND_API.G_FALSE,
1119: p_count => x_msg_count,
1120: p_data => x_msg_data);
1114: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1115: ROLLBACK TO Convert_Amount_Sob_PVT;
1116: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1117: FND_MSG_PUB.Count_And_Get(
1118: p_encoded => FND_API.G_FALSE,
1119: p_count => x_msg_count,
1120: p_data => x_msg_data);
1121: WHEN OTHERS THEN
1122: ROLLBACK TO Convert_Amount_Sob_PVT;
1119: p_count => x_msg_count,
1120: p_data => x_msg_data);
1121: WHEN OTHERS THEN
1122: ROLLBACK TO Convert_Amount_Sob_PVT;
1123: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1124: FND_MSG_PUB.Count_And_Get(
1125: p_encoded => FND_API.G_FALSE,
1126: p_count => x_msg_count,
1127: p_data => x_msg_data);
1121: WHEN OTHERS THEN
1122: ROLLBACK TO Convert_Amount_Sob_PVT;
1123: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1124: FND_MSG_PUB.Count_And_Get(
1125: p_encoded => FND_API.G_FALSE,
1126: p_count => x_msg_count,
1127: p_data => x_msg_data);
1128: END;
1129: /*===========================================================================+
1151: | jypark 23-NOV-99 Created |
1152: | |
1153: +===========================================================================*/
1154: PROCEDURE Get_Funct_Curr(
1155: p_api_version IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1156: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1157: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1158: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1159: x_functional_currency OUT NOCOPY VARCHAR2,
1152: | |
1153: +===========================================================================*/
1154: PROCEDURE Get_Funct_Curr(
1155: p_api_version IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1156: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1157: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1158: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1159: x_functional_currency OUT NOCOPY VARCHAR2,
1160: x_return_status OUT NOCOPY VARCHAR2,
1153: +===========================================================================*/
1154: PROCEDURE Get_Funct_Curr(
1155: p_api_version IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1156: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1157: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1158: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1159: x_functional_currency OUT NOCOPY VARCHAR2,
1160: x_return_status OUT NOCOPY VARCHAR2,
1161: x_msg_count OUT NOCOPY NUMBER,
1154: PROCEDURE Get_Funct_Curr(
1155: p_api_version IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1156: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1157: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1158: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1159: x_functional_currency OUT NOCOPY VARCHAR2,
1160: x_return_status OUT NOCOPY VARCHAR2,
1161: x_msg_count OUT NOCOPY NUMBER,
1162: x_msg_data OUT NOCOPY VARCHAR2
1171: -- Standard begin of API savepoint
1172: SAVEPOINT Funct_Curr_PVT;
1173:
1174: -- Standard call to check for call compatibility.
1175: IF NOT FND_API.Compatible_API_Call (l_api_version,
1176: p_api_version,
1177: l_api_name,
1178: G_PKG_NAME)
1179: THEN
1176: p_api_version,
1177: l_api_name,
1178: G_PKG_NAME)
1179: THEN
1180: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1181: END IF;
1182:
1183: -- Check p_init_msg_list
1184: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1180: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1181: END IF;
1182:
1183: -- Check p_init_msg_list
1184: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1185: FND_MSG_PUB.initialize;
1186: END IF;
1187:
1188: -- Initialize API return status to success
1185: FND_MSG_PUB.initialize;
1186: END IF;
1187:
1188: -- Initialize API return status to success
1189: x_return_status := FND_API.G_RET_STS_SUCCESS;
1190:
1191:
1192: --Begin-Bug#4558398-08/16/2005-jypark-remove getting functional currency code from constructor and put in procedure get_funct_curr
1193: -- SELECT currency_code
1207:
1208: EXCEPTION
1209: -- WHEN GL_CURRENCY_API.NO_RATE THEN
1210: -- ROLLBACK TO Funct_Curr_PVT;
1211: -- x_return_status := FND_API.G_RET_STS_ERROR;
1212: -- FND_MESSAGE.SET_NAME('SQLGL', 'GL_JE_INVALID_CONVERSION_INFO');
1213: -- FND_MSG_PUB.ADD;
1214: -- FND_MSG_PUB.Count_And_Get(
1215: -- p_encoded => FND_API.G_FALSE,
1211: -- x_return_status := FND_API.G_RET_STS_ERROR;
1212: -- FND_MESSAGE.SET_NAME('SQLGL', 'GL_JE_INVALID_CONVERSION_INFO');
1213: -- FND_MSG_PUB.ADD;
1214: -- FND_MSG_PUB.Count_And_Get(
1215: -- p_encoded => FND_API.G_FALSE,
1216: -- p_count => x_msg_count,
1217: -- p_data => x_msg_data);
1218: -- WHEN GL_CURRENCY_API.INVALID_CURRENCY THEN
1219: -- ROLLBACK TO Funct_Curr_PVT;
1216: -- p_count => x_msg_count,
1217: -- p_data => x_msg_data);
1218: -- WHEN GL_CURRENCY_API.INVALID_CURRENCY THEN
1219: -- ROLLBACK TO Funct_Curr_PVT;
1220: -- x_return_status := FND_API.G_RET_STS_ERROR;
1221: -- FND_MESSAGE.SET_NAME('SQLGL', 'GL INVALID CURRENCY CODE');
1222: -- FND_MSG_PUB.ADD;
1223: -- FND_MSG_PUB.Count_And_Get(
1224: -- p_encoded => FND_API.G_FALSE,
1220: -- x_return_status := FND_API.G_RET_STS_ERROR;
1221: -- FND_MESSAGE.SET_NAME('SQLGL', 'GL INVALID CURRENCY CODE');
1222: -- FND_MSG_PUB.ADD;
1223: -- FND_MSG_PUB.Count_And_Get(
1224: -- p_encoded => FND_API.G_FALSE,
1225: -- p_count => x_msg_count,
1226: -- p_data => x_msg_data);
1227: -- WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1228: -- ROLLBACK TO Funct_Curr_PVT;
1223: -- FND_MSG_PUB.Count_And_Get(
1224: -- p_encoded => FND_API.G_FALSE,
1225: -- p_count => x_msg_count,
1226: -- p_data => x_msg_data);
1227: -- WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1228: -- ROLLBACK TO Funct_Curr_PVT;
1229: -- x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1230: -- FND_MSG_PUB.Count_And_Get(
1231: -- p_encoded => FND_API.G_FALSE,
1225: -- p_count => x_msg_count,
1226: -- p_data => x_msg_data);
1227: -- WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1228: -- ROLLBACK TO Funct_Curr_PVT;
1229: -- x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1230: -- FND_MSG_PUB.Count_And_Get(
1231: -- p_encoded => FND_API.G_FALSE,
1232: -- p_count => x_msg_count,
1233: -- p_data => x_msg_data);
1227: -- WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1228: -- ROLLBACK TO Funct_Curr_PVT;
1229: -- x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1230: -- FND_MSG_PUB.Count_And_Get(
1231: -- p_encoded => FND_API.G_FALSE,
1232: -- p_count => x_msg_count,
1233: -- p_data => x_msg_data);
1234: -- WHEN OTHERS THEN
1235: -- ROLLBACK TO Funct_Curr_PVT;
1232: -- p_count => x_msg_count,
1233: -- p_data => x_msg_data);
1234: -- WHEN OTHERS THEN
1235: -- ROLLBACK TO Funct_Curr_PVT;
1236: -- x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1237: -- FND_MSG_PUB.Count_And_Get(
1238: -- p_encoded => FND_API.G_FALSE,
1239: -- p_count => x_msg_count,
1240: -- p_data => x_msg_data);
1234: -- WHEN OTHERS THEN
1235: -- ROLLBACK TO Funct_Curr_PVT;
1236: -- x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1237: -- FND_MSG_PUB.Count_And_Get(
1238: -- p_encoded => FND_API.G_FALSE,
1239: -- p_count => x_msg_count,
1240: -- p_data => x_msg_data);
1241: WHEN OTHERS THEN
1242: /* if there is no record or multiple org records then setting null */
1266: | jypark 23-NOV-99 Created |
1267: | |
1268: +===========================================================================*/
1269: PROCEDURE Get_Format_Mask(
1270: p_api_version IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1271: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1272: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1273: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1274: p_currency_code IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
1267: | |
1268: +===========================================================================*/
1269: PROCEDURE Get_Format_Mask(
1270: p_api_version IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1271: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1272: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1273: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1274: p_currency_code IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
1275: p_field_length IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1268: +===========================================================================*/
1269: PROCEDURE Get_Format_Mask(
1270: p_api_version IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1271: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1272: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1273: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1274: p_currency_code IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
1275: p_field_length IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1276: x_format_mask OUT NOCOPY VARCHAR2,
1269: PROCEDURE Get_Format_Mask(
1270: p_api_version IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1271: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1272: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1273: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1274: p_currency_code IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
1275: p_field_length IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1276: x_format_mask OUT NOCOPY VARCHAR2,
1277: x_return_status OUT NOCOPY VARCHAR2,
1270: p_api_version IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1271: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1272: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1273: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1274: p_currency_code IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
1275: p_field_length IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1276: x_format_mask OUT NOCOPY VARCHAR2,
1277: x_return_status OUT NOCOPY VARCHAR2,
1278: x_msg_count OUT NOCOPY NUMBER,
1271: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1272: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1273: p_validation_level IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1274: p_currency_code IN VARCHAR2 DEFAULT FND_API.G_MISS_CHAR,
1275: p_field_length IN NUMBER DEFAULT FND_API.G_MISS_NUM,
1276: x_format_mask OUT NOCOPY VARCHAR2,
1277: x_return_status OUT NOCOPY VARCHAR2,
1278: x_msg_count OUT NOCOPY NUMBER,
1279: x_msg_data OUT NOCOPY VARCHAR2
1292: -- Standard begin of API savepoint
1293: SAVEPOINT Get_Format_Mask_PVT;
1294:
1295: -- Standard call to check for call compatibility.
1296: IF NOT FND_API.Compatible_API_Call (l_api_version,
1297: p_api_version,
1298: l_api_name,
1299: G_PKG_NAME)
1300: THEN
1297: p_api_version,
1298: l_api_name,
1299: G_PKG_NAME)
1300: THEN
1301: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1302: END IF;
1303:
1304: -- Check p_init_msg_list
1305: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1301: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1302: END IF;
1303:
1304: -- Check p_init_msg_list
1305: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1306: FND_MSG_PUB.initialize;
1307: END IF;
1308:
1309: -- Initialize API return status to success
1306: FND_MSG_PUB.initialize;
1307: END IF;
1308:
1309: -- Initialize API return status to success
1310: x_return_status := FND_API.G_RET_STS_SUCCESS;
1311:
1312: x_format_mask := FND_CURRENCY.Get_Format_Mask(l_currency_code, l_field_length);
1313:
1314: EXCEPTION
1313:
1314: EXCEPTION
1315: WHEN GL_CURRENCY_API.NO_RATE THEN
1316: ROLLBACK TO Get_Format_Mask_PVT;
1317: x_return_status := FND_API.G_RET_STS_ERROR;
1318: FND_MESSAGE.SET_NAME('SQLGL', 'GL_JE_INVALID_CONVERSION_INFO');
1319: FND_MSG_PUB.ADD;
1320: FND_MSG_PUB.Count_And_Get(
1321: p_encoded => FND_API.G_FALSE,
1317: x_return_status := FND_API.G_RET_STS_ERROR;
1318: FND_MESSAGE.SET_NAME('SQLGL', 'GL_JE_INVALID_CONVERSION_INFO');
1319: FND_MSG_PUB.ADD;
1320: FND_MSG_PUB.Count_And_Get(
1321: p_encoded => FND_API.G_FALSE,
1322: p_count => x_msg_count,
1323: p_data => x_msg_data);
1324: WHEN OTHERS THEN
1325: ROLLBACK TO Get_Format_Mask_PVT;
1322: p_count => x_msg_count,
1323: p_data => x_msg_data);
1324: WHEN OTHERS THEN
1325: ROLLBACK TO Get_Format_Mask_PVT;
1326: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1327: FND_MSG_PUB.Count_And_Get(
1328: p_encoded => FND_API.G_FALSE,
1329: p_count => x_msg_count,
1330: p_data => x_msg_data);
1324: WHEN OTHERS THEN
1325: ROLLBACK TO Get_Format_Mask_PVT;
1326: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1327: FND_MSG_PUB.Count_And_Get(
1328: p_encoded => FND_API.G_FALSE,
1329: p_count => x_msg_count,
1330: p_data => x_msg_data);
1331: END Get_Format_Mask;
1332: