26: /* procedure name: Convert_CurrencyAmount */
27: /* description : Converts an amount from one currency to */
28: /* another currency */
29: /* */
30: /* p_api_version Standard IN param */
31: /* p_commit Standard IN param */
32: /* p_init_msg_list Standard IN param */
33: /* p_validation_level Standard IN param */
34: /* p_from_currency Currency code to convert from */
27: /* description : Converts an amount from one currency to */
28: /* another currency */
29: /* */
30: /* p_api_version Standard IN param */
31: /* p_commit Standard IN param */
32: /* p_init_msg_list Standard IN param */
33: /* p_validation_level Standard IN param */
34: /* p_from_currency Currency code to convert from */
35: /* p_to_currency Currency code to convert to */
28: /* another currency */
29: /* */
30: /* p_api_version Standard IN param */
31: /* p_commit Standard IN param */
32: /* p_init_msg_list Standard IN param */
33: /* p_validation_level Standard IN param */
34: /* p_from_currency Currency code to convert from */
35: /* p_to_currency Currency code to convert to */
36: /* p_eff_date Conversion Date */
29: /* */
30: /* p_api_version Standard IN param */
31: /* p_commit Standard IN param */
32: /* p_init_msg_list Standard IN param */
33: /* p_validation_level Standard IN param */
34: /* p_from_currency Currency code to convert from */
35: /* p_to_currency Currency code to convert to */
36: /* p_eff_date Conversion Date */
37: /* p_amount Amount to convert */
36: /* p_eff_date Conversion Date */
37: /* p_amount Amount to convert */
38: /* p_conv_type Conversion type */
39: /* x_conv_amount Converted amount */
40: /* x_return_status Standard OUT param */
41: /* x_msg_count Standard OUT param */
42: /* x_msg_data Standard OUT param */
43: /* */
44: /*----------------------------------------------------------------*/
37: /* p_amount Amount to convert */
38: /* p_conv_type Conversion type */
39: /* x_conv_amount Converted amount */
40: /* x_return_status Standard OUT param */
41: /* x_msg_count Standard OUT param */
42: /* x_msg_data Standard OUT param */
43: /* */
44: /*----------------------------------------------------------------*/
45: PROCEDURE Convert_CurrencyAmount (
38: /* p_conv_type Conversion type */
39: /* x_conv_amount Converted amount */
40: /* x_return_status Standard OUT param */
41: /* x_msg_count Standard OUT param */
42: /* x_msg_data Standard OUT param */
43: /* */
44: /*----------------------------------------------------------------*/
45: PROCEDURE Convert_CurrencyAmount (
46: p_api_version IN NUMBER,
60: IS
61: l_api_name CONSTANT VARCHAR2(30) := 'Convert_CurrencyAmount';
62: l_api_version CONSTANT NUMBER := 1.0;
63: BEGIN
64: -- Standard Start of API savepoint
65: SAVEPOINT Convert_CurrencyAmount_Utl;
66:
67: -- Standard call to check for call compatibility.
68: IF NOT FND_API.Compatible_API_Call (l_api_version,
63: BEGIN
64: -- Standard Start of API savepoint
65: SAVEPOINT Convert_CurrencyAmount_Utl;
66:
67: -- Standard call to check for call compatibility.
68: IF NOT FND_API.Compatible_API_Call (l_api_version,
69: p_api_version,
70: l_api_name,
71: G_PKG_NAME)
88: --
89: -- End API Body
90: --
91:
92: -- Standard check of p_commit.
93: IF FND_API.To_Boolean( p_commit ) THEN
94: COMMIT WORK;
95: END IF;
96:
93: IF FND_API.To_Boolean( p_commit ) THEN
94: COMMIT WORK;
95: END IF;
96:
97: -- Standard call to get message count and IF count is get message info.
98: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
99: p_data => x_msg_data );
100: EXCEPTION
101: WHEN FND_API.G_EXC_ERROR THEN
126: /* procedure name: Get_TotalActCosts */
127: /* description : Given a repair line id, gets the total MLE */
128: /* actual costs. */
129: /* */
130: /* p_api_version Standard IN param */
131: /* p_commit Standard IN param */
132: /* p_init_msg_list Standard IN param */
133: /* p_validation_level Standard IN param */
134: /* p_repair_line_id Repair Line ID to get actual costs*/
127: /* description : Given a repair line id, gets the total MLE */
128: /* actual costs. */
129: /* */
130: /* p_api_version Standard IN param */
131: /* p_commit Standard IN param */
132: /* p_init_msg_list Standard IN param */
133: /* p_validation_level Standard IN param */
134: /* p_repair_line_id Repair Line ID to get actual costs*/
135: /* p_currency_code Currency to convert costs to */
128: /* actual costs. */
129: /* */
130: /* p_api_version Standard IN param */
131: /* p_commit Standard IN param */
132: /* p_init_msg_list Standard IN param */
133: /* p_validation_level Standard IN param */
134: /* p_repair_line_id Repair Line ID to get actual costs*/
135: /* p_currency_code Currency to convert costs to */
136: /* x_costs Total MLE costs for repair line */
129: /* */
130: /* p_api_version Standard IN param */
131: /* p_commit Standard IN param */
132: /* p_init_msg_list Standard IN param */
133: /* p_validation_level Standard IN param */
134: /* p_repair_line_id Repair Line ID to get actual costs*/
135: /* p_currency_code Currency to convert costs to */
136: /* x_costs Total MLE costs for repair line */
137: /* x_return_status Standard OUT param */
133: /* p_validation_level Standard IN param */
134: /* p_repair_line_id Repair Line ID to get actual costs*/
135: /* p_currency_code Currency to convert costs to */
136: /* x_costs Total MLE costs for repair line */
137: /* x_return_status Standard OUT param */
138: /* x_msg_count Standard OUT param */
139: /* x_msg_data Standard OUT param */
140: /* */
141: /*----------------------------------------------------------------*/
134: /* p_repair_line_id Repair Line ID to get actual costs*/
135: /* p_currency_code Currency to convert costs to */
136: /* x_costs Total MLE costs for repair line */
137: /* x_return_status Standard OUT param */
138: /* x_msg_count Standard OUT param */
139: /* x_msg_data Standard OUT param */
140: /* */
141: /*----------------------------------------------------------------*/
142: PROCEDURE Get_TotalActCosts
135: /* p_currency_code Currency to convert costs to */
136: /* x_costs Total MLE costs for repair line */
137: /* x_return_status Standard OUT param */
138: /* x_msg_count Standard OUT param */
139: /* x_msg_data Standard OUT param */
140: /* */
141: /*----------------------------------------------------------------*/
142: PROCEDURE Get_TotalActCosts
143: (
155: IS
156: l_api_name CONSTANT VARCHAR2(30) := 'Get_TotalActCosts';
157: l_api_version CONSTANT NUMBER := 1.0;
158: BEGIN
159: -- Standard Start of API savepoint
160: SAVEPOINT Get_TotalActCosts_Utl;
161:
162: -- Standard call to check for call compatibility.
163: IF NOT FND_API.Compatible_API_Call (l_api_version,
158: BEGIN
159: -- Standard Start of API savepoint
160: SAVEPOINT Get_TotalActCosts_Utl;
161:
162: -- Standard call to check for call compatibility.
163: IF NOT FND_API.Compatible_API_Call (l_api_version,
164: p_api_version,
165: l_api_name,
166: G_PKG_NAME)
183: --
184: -- End API Body
185: --
186:
187: -- Standard check of p_commit.
188: IF FND_API.To_Boolean( p_commit ) THEN
189: COMMIT WORK;
190: END IF;
191:
188: IF FND_API.To_Boolean( p_commit ) THEN
189: COMMIT WORK;
190: END IF;
191:
192: -- Standard call to get message count and IF count is get message info.
193: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
194: p_data => x_msg_data );
195: EXCEPTION
196: WHEN FND_API.G_EXC_ERROR THEN
222: /* procedure name: Get_TotalEstCosts */
223: /* description : Given an estimate header, gets the total MLE */
224: /* estimated costs. */
225: /* */
226: /* p_api_version Standard IN param */
227: /* p_commit Standard IN param */
228: /* p_init_msg_list Standard IN param */
229: /* p_validation_level Standard IN param */
230: /* p_estimate_header_id Est header ID to get est costs for*/
223: /* description : Given an estimate header, gets the total MLE */
224: /* estimated costs. */
225: /* */
226: /* p_api_version Standard IN param */
227: /* p_commit Standard IN param */
228: /* p_init_msg_list Standard IN param */
229: /* p_validation_level Standard IN param */
230: /* p_estimate_header_id Est header ID to get est costs for*/
231: /* p_currency_code Currency to convert costs to */
224: /* estimated costs. */
225: /* */
226: /* p_api_version Standard IN param */
227: /* p_commit Standard IN param */
228: /* p_init_msg_list Standard IN param */
229: /* p_validation_level Standard IN param */
230: /* p_estimate_header_id Est header ID to get est costs for*/
231: /* p_currency_code Currency to convert costs to */
232: /* x_costs Total MLE costs for repair line */
225: /* */
226: /* p_api_version Standard IN param */
227: /* p_commit Standard IN param */
228: /* p_init_msg_list Standard IN param */
229: /* p_validation_level Standard IN param */
230: /* p_estimate_header_id Est header ID to get est costs for*/
231: /* p_currency_code Currency to convert costs to */
232: /* x_costs Total MLE costs for repair line */
233: /* x_return_status Standard OUT param */
229: /* p_validation_level Standard IN param */
230: /* p_estimate_header_id Est header ID to get est costs for*/
231: /* p_currency_code Currency to convert costs to */
232: /* x_costs Total MLE costs for repair line */
233: /* x_return_status Standard OUT param */
234: /* x_msg_count Standard OUT param */
235: /* x_msg_data Standard OUT param */
236: /* */
237: /*----------------------------------------------------------------*/
230: /* p_estimate_header_id Est header ID to get est costs for*/
231: /* p_currency_code Currency to convert costs to */
232: /* x_costs Total MLE costs for repair line */
233: /* x_return_status Standard OUT param */
234: /* x_msg_count Standard OUT param */
235: /* x_msg_data Standard OUT param */
236: /* */
237: /*----------------------------------------------------------------*/
238: PROCEDURE Get_TotalEstCosts (
231: /* p_currency_code Currency to convert costs to */
232: /* x_costs Total MLE costs for repair line */
233: /* x_return_status Standard OUT param */
234: /* x_msg_count Standard OUT param */
235: /* x_msg_data Standard OUT param */
236: /* */
237: /*----------------------------------------------------------------*/
238: PROCEDURE Get_TotalEstCosts (
239: p_api_version IN NUMBER,
249: IS
250: l_api_name CONSTANT VARCHAR2(30) := 'Get_TotalEstCosts';
251: l_api_version CONSTANT NUMBER := 1.0;
252: BEGIN
253: -- Standard Start of API savepoint
254: SAVEPOINT Get_TotalEstCosts_Utl;
255:
256: -- Standard call to check for call compatibility.
257: IF NOT FND_API.Compatible_API_Call (l_api_version,
252: BEGIN
253: -- Standard Start of API savepoint
254: SAVEPOINT Get_TotalEstCosts_Utl;
255:
256: -- Standard call to check for call compatibility.
257: IF NOT FND_API.Compatible_API_Call (l_api_version,
258: p_api_version,
259: l_api_name,
260: G_PKG_NAME)
277: --
278: -- End API Body
279: --
280:
281: -- Standard check of p_commit.
282: IF FND_API.To_Boolean( p_commit ) THEN
283: COMMIT WORK;
284: END IF;
285:
282: IF FND_API.To_Boolean( p_commit ) THEN
283: COMMIT WORK;
284: END IF;
285:
286: -- Standard call to get message count and IF count is get message info.
287: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
288: p_data => x_msg_data );
289: EXCEPTION
290: WHEN FND_API.G_EXC_ERROR THEN
319: /* Percent is determined by dividing difference */
320: /* by the basis. If currencies are different, */
321: /* Difference will be in currency of compare amts */
322: /* */
323: /* p_api_version Standard IN param */
324: /* p_commit Standard IN param */
325: /* p_init_msg_list Standard IN param */
326: /* p_validation_level Standard IN param */
327: /* p_mle_totals_basis Totals to use as basis */
320: /* by the basis. If currencies are different, */
321: /* Difference will be in currency of compare amts */
322: /* */
323: /* p_api_version Standard IN param */
324: /* p_commit Standard IN param */
325: /* p_init_msg_list Standard IN param */
326: /* p_validation_level Standard IN param */
327: /* p_mle_totals_basis Totals to use as basis */
328: /* p_mle_totals_compare Totals to compare to basis */
321: /* Difference will be in currency of compare amts */
322: /* */
323: /* p_api_version Standard IN param */
324: /* p_commit Standard IN param */
325: /* p_init_msg_list Standard IN param */
326: /* p_validation_level Standard IN param */
327: /* p_mle_totals_basis Totals to use as basis */
328: /* p_mle_totals_compare Totals to compare to basis */
329: /* x_diff Basis - Compare */
322: /* */
323: /* p_api_version Standard IN param */
324: /* p_commit Standard IN param */
325: /* p_init_msg_list Standard IN param */
326: /* p_validation_level Standard IN param */
327: /* p_mle_totals_basis Totals to use as basis */
328: /* p_mle_totals_compare Totals to compare to basis */
329: /* x_diff Basis - Compare */
330: /* x_pct_diff (Basis - Compare)*100/Basis */
327: /* p_mle_totals_basis Totals to use as basis */
328: /* p_mle_totals_compare Totals to compare to basis */
329: /* x_diff Basis - Compare */
330: /* x_pct_diff (Basis - Compare)*100/Basis */
331: /* x_return_status Standard OUT param */
332: /* x_msg_count Standard OUT param */
333: /* x_msg_data Standard OUT param */
334: /* */
335: /*----------------------------------------------------------------*/
328: /* p_mle_totals_compare Totals to compare to basis */
329: /* x_diff Basis - Compare */
330: /* x_pct_diff (Basis - Compare)*100/Basis */
331: /* x_return_status Standard OUT param */
332: /* x_msg_count Standard OUT param */
333: /* x_msg_data Standard OUT param */
334: /* */
335: /*----------------------------------------------------------------*/
336: PROCEDURE Compare_MLETotals (
329: /* x_diff Basis - Compare */
330: /* x_pct_diff (Basis - Compare)*100/Basis */
331: /* x_return_status Standard OUT param */
332: /* x_msg_count Standard OUT param */
333: /* x_msg_data Standard OUT param */
334: /* */
335: /*----------------------------------------------------------------*/
336: PROCEDURE Compare_MLETotals (
337: p_api_version IN NUMBER,
349: IS
350: l_api_name CONSTANT VARCHAR2(30) := 'Compare_MLETotals';
351: l_api_version CONSTANT NUMBER := 1.0;
352: BEGIN
353: -- Standard Start of API savepoint
354: SAVEPOINT Compare_MLETotals_Utl;
355:
356: -- Standard call to check for call compatibility.
357: IF NOT FND_API.Compatible_API_Call (l_api_version,
352: BEGIN
353: -- Standard Start of API savepoint
354: SAVEPOINT Compare_MLETotals_Utl;
355:
356: -- Standard call to check for call compatibility.
357: IF NOT FND_API.Compatible_API_Call (l_api_version,
358: p_api_version,
359: l_api_name,
360: G_PKG_NAME)
377: --
378: -- End API Body
379: --
380:
381: -- Standard check of p_commit.
382: IF FND_API.To_Boolean( p_commit ) THEN
383: COMMIT WORK;
384: END IF;
385:
382: IF FND_API.To_Boolean( p_commit ) THEN
383: COMMIT WORK;
384: END IF;
385:
386: -- Standard call to get message count and IF count is get message info.
387: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
388: p_data => x_msg_data );
389: EXCEPTION
390: WHEN FND_API.G_EXC_ERROR THEN