3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'PA_DEDUCTIONS_PUB';
5:
6: Procedure Create_Deduction_Hdr( p_api_version_number IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
7: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
8: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
9: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
10: ,p_msg_count OUT NOCOPY NUMBER
11: ,p_msg_data OUT NOCOPY VARCHAR2
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'PA_DEDUCTIONS_PUB';
5:
6: Procedure Create_Deduction_Hdr( p_api_version_number IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
7: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
8: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
9: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
10: ,p_msg_count OUT NOCOPY NUMBER
11: ,p_msg_data OUT NOCOPY VARCHAR2
12: ,p_return_status OUT NOCOPY VARCHAR2
70:
71: p_return_status := 'S';
72: SAVEPOINT create_deduction_hdr; --bug9052223
73:
74: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
75: p_api_version_number ,
76: l_api_name ,
77: G_PKG_NAME )
78: THEN
76: l_api_name ,
77: G_PKG_NAME )
78: THEN
79:
80: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
81:
82: END IF;
83:
84: PA_PM_FUNCTION_SECURITY_PUB.check_function_security
90: p_return_status => l_return_status,
91: p_function_allowed => l_function_allowed
92: );
93:
94: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
95: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
96: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
97: RAISE FND_API.G_EXC_ERROR;
98: END IF;
91: p_function_allowed => l_function_allowed
92: );
93:
94: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
95: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
96: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
97: RAISE FND_API.G_EXC_ERROR;
98: END IF;
99: IF l_function_allowed = 'N' THEN
92: );
93:
94: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
95: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
96: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
97: RAISE FND_API.G_EXC_ERROR;
98: END IF;
99: IF l_function_allowed = 'N' THEN
100: pa_interface_utils_pub.map_new_amg_msg
93:
94: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
95: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
96: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
97: RAISE FND_API.G_EXC_ERROR;
98: END IF;
99: IF l_function_allowed = 'N' THEN
100: pa_interface_utils_pub.map_new_amg_msg
101: ( p_old_message_code => 'PA_FUNCTION_SECURITY_ENFORCED'
107: ,p_attribute3 => ''
108: ,p_attribute4 => ''
109: ,p_attribute5 => '');
110:
111: p_return_status := FND_API.G_RET_STS_ERROR;
112: RAISE FND_API.G_EXC_ERROR;
113: END IF;
114:
115: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
108: ,p_attribute4 => ''
109: ,p_attribute5 => '');
110:
111: p_return_status := FND_API.G_RET_STS_ERROR;
112: RAISE FND_API.G_EXC_ERROR;
113: END IF;
114:
115: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
116: FND_MSG_PUB.initialize;
111: p_return_status := FND_API.G_RET_STS_ERROR;
112: RAISE FND_API.G_EXC_ERROR;
113: END IF;
114:
115: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
116: FND_MSG_PUB.initialize;
117: END IF;
118:
119: SELECT PA_DEDUCTIONS_S.nextval
142: pa_utils.add_message
143: ( p_app_short_name => 'PA'
144: ,p_msg_name => 'PA_MISS_CURR_CONV_INFO'
145: );
146: RAISE FND_API.G_EXC_ERROR;
147:
148: else
149:
150: pa_multi_currency.convert_amount ( P_from_currency => v_proj_func_cur,
164: pa_utils.add_message
165: ( p_app_short_name => 'PA'
166: ,p_msg_name => v_status
167: );
168: RAISE FND_API.G_EXC_ERROR;
169: end if;
170:
171: end if;
172:
202: pa_utils.add_message
203: ( p_app_short_name => 'PA'
204: ,p_msg_name => 'PA_DCTN_DMEMO_CURR_NULL'
205: );
206: RAISE FND_API.G_EXC_ERROR;
207:
208: END IF;
209:
210:
223: pa_utils.add_message
224: ( p_app_short_name => 'PA'
225: ,p_msg_name => 'PA_DCTN_REQ_DATE_NULL'
226: );
227: RAISE FND_API.G_EXC_ERROR;
228:
229: END IF;
230:
231: l_dctn_hdrtbl(1).deduction_req_date := p_deduction_req_date ;
250: p_return_status := 'E';
251: END IF;
252:
253: EXCEPTION
254: WHEN FND_API.G_EXC_ERROR THEN
255: ROLLBACK TO create_deduction_hdr;
256: p_return_status := FND_API.G_RET_STS_ERROR;
257:
258: FND_MSG_PUB.Count_And_Get
252:
253: EXCEPTION
254: WHEN FND_API.G_EXC_ERROR THEN
255: ROLLBACK TO create_deduction_hdr;
256: p_return_status := FND_API.G_RET_STS_ERROR;
257:
258: FND_MSG_PUB.Count_And_Get
259: ( p_count => p_msg_count ,
260: p_data => p_msg_data );
258: FND_MSG_PUB.Count_And_Get
259: ( p_count => p_msg_count ,
260: p_data => p_msg_data );
261:
262: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
263: ROLLBACK TO create_deduction_hdr;
264: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
265:
266: FND_MSG_PUB.Count_And_Get
260: p_data => p_msg_data );
261:
262: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
263: ROLLBACK TO create_deduction_hdr;
264: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
265:
266: FND_MSG_PUB.Count_And_Get
267: ( p_count => p_msg_count ,
268: p_data => p_msg_data );
268: p_data => p_msg_data );
269:
270: WHEN OTHERS THEN
271: ROLLBACK TO create_deduction_hdr;
272: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
273:
274: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
275: FND_MSG_PUB.add_exc_msg
276: ( p_pkg_name => G_PKG_NAME
282: p_data => p_msg_data );
283: End;
284:
285: Procedure Create_Deduction_Txn( p_api_version_number IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
286: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
287: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
288: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
289: ,p_msg_count OUT NOCOPY NUMBER
290: ,p_msg_data OUT NOCOPY VARCHAR2
283: End;
284:
285: Procedure Create_Deduction_Txn( p_api_version_number IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
286: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
287: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
288: ,p_pm_product_code IN VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR
289: ,p_msg_count OUT NOCOPY NUMBER
290: ,p_msg_data OUT NOCOPY VARCHAR2
291: ,p_return_status OUT NOCOPY VARCHAR2
347: l_conversion_ratetype :=p_conversion_ratetype ;
348: l_conversion_ratedate :=p_conversion_ratedate ;
349: l_conversion_rate :=p_conversion_rate ;
350:
351: IF NOT FND_API.Compatible_API_Call ( g_api_version_number ,
352: p_api_version_number ,
353: l_api_name ,
354: G_PKG_NAME )
355: THEN
353: l_api_name ,
354: G_PKG_NAME )
355: THEN
356:
357: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
358:
359: END IF;
360:
361: PA_PM_FUNCTION_SECURITY_PUB.check_function_security
367: p_return_status => l_return_status,
368: p_function_allowed => l_function_allowed
369: );
370:
371: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
372: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
373: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
374: RAISE FND_API.G_EXC_ERROR;
375: END IF;
368: p_function_allowed => l_function_allowed
369: );
370:
371: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
372: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
373: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
374: RAISE FND_API.G_EXC_ERROR;
375: END IF;
376: IF l_function_allowed = 'N' THEN
369: );
370:
371: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
372: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
373: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
374: RAISE FND_API.G_EXC_ERROR;
375: END IF;
376: IF l_function_allowed = 'N' THEN
377: pa_interface_utils_pub.map_new_amg_msg
370:
371: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
372: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
373: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
374: RAISE FND_API.G_EXC_ERROR;
375: END IF;
376: IF l_function_allowed = 'N' THEN
377: pa_interface_utils_pub.map_new_amg_msg
378: ( p_old_message_code => 'PA_FUNCTION_SECURITY_ENFORCED'
383: ,p_attribute2 => ''
384: ,p_attribute3 => ''
385: ,p_attribute4 => ''
386: ,p_attribute5 => '');
387: p_return_status := FND_API.G_RET_STS_ERROR;
388: RAISE FND_API.G_EXC_ERROR;
389: END IF;
390:
391:
384: ,p_attribute3 => ''
385: ,p_attribute4 => ''
386: ,p_attribute5 => '');
387: p_return_status := FND_API.G_RET_STS_ERROR;
388: RAISE FND_API.G_EXC_ERROR;
389: END IF;
390:
391:
392: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
388: RAISE FND_API.G_EXC_ERROR;
389: END IF;
390:
391:
392: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
393: FND_MSG_PUB.initialize;
394: END IF;
395:
396: OPEN C1(p_deduction_req_num);
405: ,p_msg_name => 'PA_DCTN_HDR_NOT_EXISTS'
406: );
407:
408: CLOSE C1;
409: RAISE FND_API.G_EXC_ERROR;
410:
411: END IF;
412: CLOSE C1;
413:
427: pa_utils.add_message
428: ( p_app_short_name => 'PA'
429: ,p_msg_name => 'PA_MISS_CURR_CONV_INFO'
430: );
431: RAISE FND_API.G_EXC_ERROR;
432:
433: else
434:
435:
450: pa_utils.add_message
451: ( p_app_short_name => 'PA'
452: ,p_msg_name => v_status
453: );
454: RAISE FND_API.G_EXC_ERROR;
455: end if;
456:
457: end if;
458: ELSE
495: p_return_status := 'E';
496: END IF;
497:
498: EXCEPTION
499: WHEN FND_API.G_EXC_ERROR THEN
500: ROLLBACK TO create_deduction_txn;
501: p_return_status := FND_API.G_RET_STS_ERROR;
502:
503: FND_MSG_PUB.Count_And_Get
497:
498: EXCEPTION
499: WHEN FND_API.G_EXC_ERROR THEN
500: ROLLBACK TO create_deduction_txn;
501: p_return_status := FND_API.G_RET_STS_ERROR;
502:
503: FND_MSG_PUB.Count_And_Get
504: ( p_count => p_msg_count ,
505: p_data => p_msg_data );
503: FND_MSG_PUB.Count_And_Get
504: ( p_count => p_msg_count ,
505: p_data => p_msg_data );
506:
507: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
508: ROLLBACK TO create_deduction_txn;
509: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
510:
511: FND_MSG_PUB.Count_And_Get
505: p_data => p_msg_data );
506:
507: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
508: ROLLBACK TO create_deduction_txn;
509: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
510:
511: FND_MSG_PUB.Count_And_Get
512: ( p_count => p_msg_count ,
513: p_data => p_msg_data );
513: p_data => p_msg_data );
514:
515: WHEN OTHERS THEN
516: ROLLBACK TO create_deduction_txn;
517: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
518:
519: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
520: FND_MSG_PUB.add_exc_msg
521: ( p_pkg_name => G_PKG_NAME