DBA Data[Home] [Help]

APPS.ASO_CREDIT_CHECK_PVT dependencies on FND_API

Line 15: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,

11: G_FILE_NAME CONSTANT VARCHAR2(12) := 'asoiqccb.pls';
12:
13: PROCEDURE Credit_Check(
14: P_API_VERSION IN NUMBER,
15: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
16: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
17: P_QTE_HEADER_REC IN ASO_QUOTE_PUB.Qte_Header_Rec_Type,
18: X_RESULT_OUT OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
19: X_CC_HOLD_COMMENT OUT NOCOPY /* file.sql.39 change */ VARCHAR2,

Line 16: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,

12:
13: PROCEDURE Credit_Check(
14: P_API_VERSION IN NUMBER,
15: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
16: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
17: P_QTE_HEADER_REC IN ASO_QUOTE_PUB.Qte_Header_Rec_Type,
18: X_RESULT_OUT OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
19: X_CC_HOLD_COMMENT OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
20: X_RETURN_STATUS OUT NOCOPY /* file.sql.39 change */ VARCHAR2,

Line 57: IF NOT FND_API.Compatible_API_Call ( l_api_version,

53: -- Standard Start of API savepoint
54: SAVEPOINT CREDIT_CHECK_PVT;
55:
56: -- Standard call to check for call compatibility.
57: IF NOT FND_API.Compatible_API_Call ( l_api_version,
58: p_api_version,
59: l_api_name,
60: G_PKG_NAME)
61: THEN

Line 62: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

58: p_api_version,
59: l_api_name,
60: G_PKG_NAME)
61: THEN
62: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
63: END IF;
64:
65:
66: -- Initialize message list if p_init_msg_list is set to TRUE.

Line 67: IF FND_API.to_Boolean( p_init_msg_list )

63: END IF;
64:
65:
66: -- Initialize message list if p_init_msg_list is set to TRUE.
67: IF FND_API.to_Boolean( p_init_msg_list )
68: THEN
69: FND_MSG_PUB.initialize;
70: END IF;
71:

Line 78: x_return_status := FND_API.G_RET_STS_SUCCESS;

74: -- Initializing Global Debug Variable.
75: aso_debug_pub.g_debug_flag := NVL(FND_PROFILE.VALUE('ASO_ENABLE_DEBUG'),'N');
76:
77: -- Initialize API return status to SUCCESS
78: x_return_status := FND_API.G_RET_STS_SUCCESS;
79:
80: IF aso_debug_pub.g_debug_flag = 'Y' THEN
81: aso_debug_pub.add('Credit Check - Begin...', 1, 'Y');
82: END IF;

Line 100: RAISE FND_API.G_EXC_ERROR;

96: FND_MESSAGE.Set_Name(' + appShortName +', 'ASO_CANNOT_GET_PROFILE_VALUE');
97: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
98: FND_MSG_PUB.ADD;
99: END IF;
100: RAISE FND_API.G_EXC_ERROR;
101: END IF;
102:
103:
104: -- ******************************************************************

Line 124: p_qte_header_rec.quote_header_id <> FND_API.G_MISS_NUM

120: aso_debug_pub.add('Quote Header Id : '||NVL(to_char(p_qte_header_rec.quote_header_id),'null'), 1, 'Y');
121: END IF;
122:
123: IF p_qte_header_rec.quote_header_id IS NOT NULL AND
124: p_qte_header_rec.quote_header_id <> FND_API.G_MISS_NUM
125: THEN
126: IF aso_debug_pub.g_debug_flag = 'Y' THEN
127: aso_debug_pub.add(' Credit Check Lock Exists or not... ', 1, 'Y');
128: END IF;

Line 141: IF (x_status = FND_API.G_TRUE) THEN

137: IF aso_debug_pub.g_debug_flag = 'Y' THEN
138: aso_debug_pub.add(' Credit Check Lock Exists : x_status '||NVL(x_status,'null'), 1, 'Y');
139: END IF;
140:
141: IF (x_status = FND_API.G_TRUE) THEN
142: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
143: FND_MESSAGE.Set_Name('ASO', 'ASO_CONC_REQUEST_RUNNING');
144: FND_MSG_PUB.ADD;
145: END IF;

Line 146: RAISE FND_API.G_EXC_ERROR;

142: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
143: FND_MESSAGE.Set_Name('ASO', 'ASO_CONC_REQUEST_RUNNING');
144: FND_MSG_PUB.ADD;
145: END IF;
146: RAISE FND_API.G_EXC_ERROR;
147: END IF;
148:
149: -- get quote information
150:

Line 171: raise FND_API.G_EXC_ERROR;

167: FND_MESSAGE.Set_Token('COLUMN', 'Quote_header_id', FALSE);
168: FND_MESSAGE.Set_Token('VALUE', l_qte_header_rec.quote_header_id, FALSE);
169: FND_MSG_PUB.ADD;
170: END IF;
171: raise FND_API.G_EXC_ERROR;
172: END;
173: ELSE
174: IF aso_debug_pub.g_debug_flag = 'Y' THEN
175: aso_debug_pub.add('before - p_qte_header_rec is NULL... ', 1, 'Y');

Line 196: l_qte_header_rec.org_id <> FND_API.G_MISS_NUM AND

192:
193: -- Check if all the required values are available.
194:
195: IF l_qte_header_rec.org_id IS NOT NULL AND
196: l_qte_header_rec.org_id <> FND_API.G_MISS_NUM AND
197: l_qte_header_rec.currency_code IS NOT NULL AND
198: l_qte_header_rec.currency_code <> FND_API.G_MISS_CHAR AND
199: l_qte_header_rec.invoice_to_party_site_id IS NOT NULL AND
200: l_qte_header_rec.invoice_to_party_site_id <> FND_API.G_MISS_NUM AND

Line 198: l_qte_header_rec.currency_code <> FND_API.G_MISS_CHAR AND

194:
195: IF l_qte_header_rec.org_id IS NOT NULL AND
196: l_qte_header_rec.org_id <> FND_API.G_MISS_NUM AND
197: l_qte_header_rec.currency_code IS NOT NULL AND
198: l_qte_header_rec.currency_code <> FND_API.G_MISS_CHAR AND
199: l_qte_header_rec.invoice_to_party_site_id IS NOT NULL AND
200: l_qte_header_rec.invoice_to_party_site_id <> FND_API.G_MISS_NUM AND
201: NVL(l_qte_header_rec.invoice_to_cust_account_id,l_qte_header_rec.cust_account_id) IS NOT NULL AND
202: NVL(l_qte_header_rec.invoice_to_cust_account_id,l_qte_header_rec.cust_account_id) <> FND_API.G_MISS_NUM

Line 200: l_qte_header_rec.invoice_to_party_site_id <> FND_API.G_MISS_NUM AND

196: l_qte_header_rec.org_id <> FND_API.G_MISS_NUM AND
197: l_qte_header_rec.currency_code IS NOT NULL AND
198: l_qte_header_rec.currency_code <> FND_API.G_MISS_CHAR AND
199: l_qte_header_rec.invoice_to_party_site_id IS NOT NULL AND
200: l_qte_header_rec.invoice_to_party_site_id <> FND_API.G_MISS_NUM AND
201: NVL(l_qte_header_rec.invoice_to_cust_account_id,l_qte_header_rec.cust_account_id) IS NOT NULL AND
202: NVL(l_qte_header_rec.invoice_to_cust_account_id,l_qte_header_rec.cust_account_id) <> FND_API.G_MISS_NUM
203: THEN
204: l_set_of_books_id := OE_PROFILE.VALUE('OE_SET_OF_BOOKS_ID',l_qte_header_rec.org_id);

Line 202: NVL(l_qte_header_rec.invoice_to_cust_account_id,l_qte_header_rec.cust_account_id) <> FND_API.G_MISS_NUM

198: l_qte_header_rec.currency_code <> FND_API.G_MISS_CHAR AND
199: l_qte_header_rec.invoice_to_party_site_id IS NOT NULL AND
200: l_qte_header_rec.invoice_to_party_site_id <> FND_API.G_MISS_NUM AND
201: NVL(l_qte_header_rec.invoice_to_cust_account_id,l_qte_header_rec.cust_account_id) IS NOT NULL AND
202: NVL(l_qte_header_rec.invoice_to_cust_account_id,l_qte_header_rec.cust_account_id) <> FND_API.G_MISS_NUM
203: THEN
204: l_set_of_books_id := OE_PROFILE.VALUE('OE_SET_OF_BOOKS_ID',l_qte_header_rec.org_id);
205:
206: IF aso_debug_pub.g_debug_flag = 'Y' THEN

Line 231: raise FND_API.G_EXC_ERROR;

227: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
228: FND_MESSAGE.Set_Name('ASO', 'ASO_API_MISSING_GL_CURRENCY');
229: FND_MSG_PUB.ADD;
230: END IF;
231: raise FND_API.G_EXC_ERROR;
232: END IF;
233:
234: CLOSE C_functional_currency;
235: ELSE

Line 240: raise FND_API.G_EXC_ERROR;

236: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
237: FND_MESSAGE.Set_Name('ASO', 'ASO_API_MISSING_OE_PROFILE');
238: FND_MSG_PUB.ADD;
239: END IF;
240: raise FND_API.G_EXC_ERROR;
241: END IF;
242:
243: -- Get Bill to Site Use Id.
244:

Line 263: IF l_return_status <> FND_API.G_RET_STS_SUCCESS OR

259: aso_debug_pub.add('After Bill To Site Use Id Fetch :'||NVL(to_char(l_site_use_id),'null'), 1, 'Y');
260: aso_debug_pub.add('After Bill To Site Use Id Fetch l_return_status :'||NVL(l_return_status,' '), 1, 'Y');
261: END IF;
262:
263: IF l_return_status <> FND_API.G_RET_STS_SUCCESS OR
264: NVL(l_site_use_id ,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM
265: THEN
266: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
267: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_BILLTO_INFO');

Line 264: NVL(l_site_use_id ,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM

260: aso_debug_pub.add('After Bill To Site Use Id Fetch l_return_status :'||NVL(l_return_status,' '), 1, 'Y');
261: END IF;
262:
263: IF l_return_status <> FND_API.G_RET_STS_SUCCESS OR
264: NVL(l_site_use_id ,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM
265: THEN
266: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
267: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_BILLTO_INFO');
268: FND_MSG_PUB.ADD;

Line 270: raise FND_API.G_EXC_ERROR;

266: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
267: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_BILLTO_INFO');
268: FND_MSG_PUB.ADD;
269: END IF;
270: raise FND_API.G_EXC_ERROR;
271: END IF;
272:
273: -- Transaction Amount Calculation.
274:

Line 293: raise FND_API.G_EXC_ERROR;

289: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
290: FND_MESSAGE.Set_Name('ASO', 'ASO_API_NO_TAX_FREIGHT_INFO');
291: FND_MSG_PUB.ADD;
292: END IF;
293: raise FND_API.G_EXC_ERROR;
294: END IF;
295:
296: CLOSE C_credit_check_flag;
297:

Line 344: IF x_return_status = FND_API.G_RET_STS_ERROR then

340: aso_debug_pub.add('After OM Public API call - msg count :'||nvl(to_char(x_msg_count),'0'), 1, 'Y');
341: aso_debug_pub.add('After OM Public API call - msg data :'||nvl(x_msg_data,'null'), 1, 'Y');
342: END IF;
343: -- Check return status from the above procedure call
344: IF x_return_status = FND_API.G_RET_STS_ERROR then
345: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
346: oe_msg_pub.count_and_get( p_encoded => 'F'
347: , p_count => x_msg_count
348: , p_data => x_msg_data);

Line 360: raise FND_API.G_EXC_ERROR;

356: FND_MESSAGE.Set_Token('MSG_TXT', x_msg_data, FALSE);
357: FND_MSG_PUB.ADD;
358: end loop;
359: END IF;
360: raise FND_API.G_EXC_ERROR;
361: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
362: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
363: FND_MESSAGE.Set_Name('ASO', 'ASO_API_UNEXP_ERROR');
364: FND_MESSAGE.Set_Token('ROW', 'ASO_CREDIT_CHECK_PVT AFTER OM CALL', TRUE);

Line 361: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then

357: FND_MSG_PUB.ADD;
358: end loop;
359: END IF;
360: raise FND_API.G_EXC_ERROR;
361: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
362: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
363: FND_MESSAGE.Set_Name('ASO', 'ASO_API_UNEXP_ERROR');
364: FND_MESSAGE.Set_Token('ROW', 'ASO_CREDIT_CHECK_PVT AFTER OM CALL', TRUE);
365: FND_MSG_PUB.ADD;

Line 367: raise FND_API.G_EXC_UNEXPECTED_ERROR;

363: FND_MESSAGE.Set_Name('ASO', 'ASO_API_UNEXP_ERROR');
364: FND_MESSAGE.Set_Token('ROW', 'ASO_CREDIT_CHECK_PVT AFTER OM CALL', TRUE);
365: FND_MSG_PUB.ADD;
366: END IF;
367: raise FND_API.G_EXC_UNEXPECTED_ERROR;
368: END IF;
369: ELSE
370: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
371: FND_MESSAGE.Set_Name('ASO', 'ASO_API_MISSING_INFO');

Line 375: raise FND_API.G_EXC_ERROR;

371: FND_MESSAGE.Set_Name('ASO', 'ASO_API_MISSING_INFO');
372: FND_MESSAGE.Set_Token('COLUMN', 'Internal Credit Check Required ', FALSE);
373: FND_MSG_PUB.ADD;
374: END IF;
375: raise FND_API.G_EXC_ERROR;
376: END IF; -- Missing Values Check
377:
378: END IF; -- Credit Check Rule Profile is not set
379:

Line 385: IF FND_API.to_Boolean( p_commit )

381: -- End of API body.
382: --
383:
384: -- Standard check for p_commit
385: IF FND_API.to_Boolean( p_commit )
386: THEN
387: COMMIT WORK;
388: END IF;
389:

Line 400: WHEN FND_API.G_EXC_ERROR THEN

396: p_data => x_msg_data
397: );
398:
399: EXCEPTION
400: WHEN FND_API.G_EXC_ERROR THEN
401: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
402: P_API_NAME => L_API_NAME
403: ,P_PKG_NAME => G_PKG_NAME
404: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR

Line 412: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

408: ,X_MSG_COUNT => X_MSG_COUNT
409: ,X_MSG_DATA => X_MSG_DATA
410: ,X_RETURN_STATUS => X_RETURN_STATUS);
411:
412: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
413: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
414: P_API_NAME => L_API_NAME
415: ,P_PKG_NAME => G_PKG_NAME
416: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR