[Home] [Help]
22: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
23: IS
24: BEGIN
25: -- Initialize message list if p_init_msg_list is set to TRUE.
26: IF FND_API.to_Boolean( p_init_msg_list ) THEN
27: FND_MSG_PUB.initialize;
28: END IF;
29:
30: -- Initialize API return status to success
27: FND_MSG_PUB.initialize;
28: END IF;
29:
30: -- Initialize API return status to success
31: x_return_status := FND_API.G_RET_STS_SUCCESS;
32:
33: IF (p_notnull_column IS NULL OR p_notnull_column = FND_API.G_MISS_NUM) THEN
34: x_return_status := FND_API.G_RET_STS_ERROR;
35: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
29:
30: -- Initialize API return status to success
31: x_return_status := FND_API.G_RET_STS_SUCCESS;
32:
33: IF (p_notnull_column IS NULL OR p_notnull_column = FND_API.G_MISS_NUM) THEN
34: x_return_status := FND_API.G_RET_STS_ERROR;
35: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
36: FND_MESSAGE.Set_Name('ASO', 'API_MISSING_COLUMN');
37: FND_MESSAGE.Set_Token('COLUMN', p_column_name, FALSE);
30: -- Initialize API return status to success
31: x_return_status := FND_API.G_RET_STS_SUCCESS;
32:
33: IF (p_notnull_column IS NULL OR p_notnull_column = FND_API.G_MISS_NUM) THEN
34: x_return_status := FND_API.G_RET_STS_ERROR;
35: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
36: FND_MESSAGE.Set_Name('ASO', 'API_MISSING_COLUMN');
37: FND_MESSAGE.Set_Token('COLUMN', p_column_name, FALSE);
38: FND_MSG_PUB.ADD;
55: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
56: IS
57: BEGIN
58: -- Initialize message list if p_init_msg_list is set to TRUE.
59: IF FND_API.to_Boolean( p_init_msg_list ) THEN
60: FND_MSG_PUB.initialize;
61: END IF;
62:
63: -- Initialize API return status to success
60: FND_MSG_PUB.initialize;
61: END IF;
62:
63: -- Initialize API return status to success
64: x_return_status := FND_API.G_RET_STS_SUCCESS;
65:
66: IF (p_notnull_column IS NULL OR p_notnull_column = FND_API.G_MISS_CHAR) THEN
67: x_return_status := FND_API.G_RET_STS_ERROR;
68: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
62:
63: -- Initialize API return status to success
64: x_return_status := FND_API.G_RET_STS_SUCCESS;
65:
66: IF (p_notnull_column IS NULL OR p_notnull_column = FND_API.G_MISS_CHAR) THEN
67: x_return_status := FND_API.G_RET_STS_ERROR;
68: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
69: FND_MESSAGE.Set_Name('ASO', 'API_MISSING_COLUMN');
70: FND_MESSAGE.Set_Token('COLUMN', p_column_name, FALSE);
63: -- Initialize API return status to success
64: x_return_status := FND_API.G_RET_STS_SUCCESS;
65:
66: IF (p_notnull_column IS NULL OR p_notnull_column = FND_API.G_MISS_CHAR) THEN
67: x_return_status := FND_API.G_RET_STS_ERROR;
68: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
69: FND_MESSAGE.Set_Name('ASO', 'API_MISSING_COLUMN');
70: FND_MESSAGE.Set_Token('COLUMN', p_column_name, FALSE);
71: FND_MSG_PUB.ADD;
88: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
89: IS
90: BEGIN
91: -- Initialize message list if p_init_msg_list is set to TRUE.
92: IF FND_API.to_Boolean( p_init_msg_list ) THEN
93: FND_MSG_PUB.initialize;
94: END IF;
95:
96: -- Initialize API return status to success
93: FND_MSG_PUB.initialize;
94: END IF;
95:
96: -- Initialize API return status to success
97: x_return_status := FND_API.G_RET_STS_SUCCESS;
98:
99: IF (p_notnull_column IS NULL OR p_notnull_column = FND_API.G_MISS_DATE) THEN
100: x_return_status := FND_API.G_RET_STS_ERROR;
101: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
95:
96: -- Initialize API return status to success
97: x_return_status := FND_API.G_RET_STS_SUCCESS;
98:
99: IF (p_notnull_column IS NULL OR p_notnull_column = FND_API.G_MISS_DATE) THEN
100: x_return_status := FND_API.G_RET_STS_ERROR;
101: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
102: FND_MESSAGE.Set_Name('ASO', 'API_MISSING_COLUMN');
103: FND_MESSAGE.Set_Token('COLUMN', p_column_name, FALSE);
96: -- Initialize API return status to success
97: x_return_status := FND_API.G_RET_STS_SUCCESS;
98:
99: IF (p_notnull_column IS NULL OR p_notnull_column = FND_API.G_MISS_DATE) THEN
100: x_return_status := FND_API.G_RET_STS_ERROR;
101: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
102: FND_MESSAGE.Set_Name('ASO', 'API_MISSING_COLUMN');
103: FND_MESSAGE.Set_Token('COLUMN', p_column_name, FALSE);
104: FND_MSG_PUB.ADD;
121: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
122: IS
123: BEGIN
124: -- Initialize message list if p_init_msg_list is set to TRUE.
125: IF FND_API.to_Boolean( p_init_msg_list ) THEN
126: FND_MSG_PUB.initialize;
127: END IF;
128:
129: -- Initialize API return status to success
126: FND_MSG_PUB.initialize;
127: END IF;
128:
129: -- Initialize API return status to success
130: x_return_status := FND_API.G_RET_STS_SUCCESS;
131:
132: IF (p_start_date IS NOT NULL AND p_start_date <> FND_API.G_MISS_DATE) AND
133: (p_end_date IS NOT NULL AND p_end_date <> FND_API.G_MISS_DATE) THEN
134:
128:
129: -- Initialize API return status to success
130: x_return_status := FND_API.G_RET_STS_SUCCESS;
131:
132: IF (p_start_date IS NOT NULL AND p_start_date <> FND_API.G_MISS_DATE) AND
133: (p_end_date IS NOT NULL AND p_end_date <> FND_API.G_MISS_DATE) THEN
134:
135: IF (p_end_date < p_start_date ) THEN
136: x_return_status := FND_API.G_RET_STS_ERROR;
129: -- Initialize API return status to success
130: x_return_status := FND_API.G_RET_STS_SUCCESS;
131:
132: IF (p_start_date IS NOT NULL AND p_start_date <> FND_API.G_MISS_DATE) AND
133: (p_end_date IS NOT NULL AND p_end_date <> FND_API.G_MISS_DATE) THEN
134:
135: IF (p_end_date < p_start_date ) THEN
136: x_return_status := FND_API.G_RET_STS_ERROR;
137: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
132: IF (p_start_date IS NOT NULL AND p_start_date <> FND_API.G_MISS_DATE) AND
133: (p_end_date IS NOT NULL AND p_end_date <> FND_API.G_MISS_DATE) THEN
134:
135: IF (p_end_date < p_start_date ) THEN
136: x_return_status := FND_API.G_RET_STS_ERROR;
137: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
138: FND_MESSAGE.Set_Name('ASO', 'INVALID COLUMN');
139: FND_MESSAGE.Set_Token('COLUMN', 'END DATE', FALSE);
140: FND_MSG_PUB.ADD;
163: l_party_status VARCHAR2(1);
164:
165: BEGIN
166: -- Initialize message list if p_init_msg_list is set to TRUE.
167: IF FND_API.to_Boolean( p_init_msg_list ) THEN
168: FND_MSG_PUB.initialize;
169: END IF;
170:
171: -- Initialize API return status to success
168: FND_MSG_PUB.initialize;
169: END IF;
170:
171: -- Initialize API return status to success
172: x_return_status := FND_API.G_RET_STS_SUCCESS;
173:
174: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
175: aso_debug_pub.add('Validate_Party: Begin: p_party_id: '||p_party_id, 1, 'N');
176: aso_debug_pub.add('Validate_Party: p_party_usage: '||p_party_usage, 1, 'N');
175: aso_debug_pub.add('Validate_Party: Begin: p_party_id: '||p_party_id, 1, 'N');
176: aso_debug_pub.add('Validate_Party: p_party_usage: '||p_party_usage, 1, 'N');
177: END IF;
178:
179: IF (p_party_id IS NOT NULL AND p_party_id <> FND_API.G_MISS_NUM) THEN
180: OPEN C_Party;
181: FETCH C_Party INTO l_party_status;
182: IF (C_Party%NOTFOUND OR l_party_status <> 'A') THEN
183: CLOSE C_Party;
180: OPEN C_Party;
181: FETCH C_Party INTO l_party_status;
182: IF (C_Party%NOTFOUND OR l_party_status <> 'A') THEN
183: CLOSE C_Party;
184: x_return_status := FND_API.G_RET_STS_ERROR;
185: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
186: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
187: FND_MESSAGE.Set_Token('COLUMN', p_party_usage, FALSE);
188: FND_MSG_PUB.ADD;
217: l_contact_status VARCHAR2(1);
218:
219: BEGIN
220: -- Initialize message list if p_init_msg_list is set to TRUE.
221: IF FND_API.to_Boolean( p_init_msg_list ) THEN
222: FND_MSG_PUB.initialize;
223: END IF;
224:
225: -- Initialize API return status to success
222: FND_MSG_PUB.initialize;
223: END IF;
224:
225: -- Initialize API return status to success
226: x_return_status := FND_API.G_RET_STS_SUCCESS;
227:
228: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
229: aso_debug_pub.add('Validate_Contact: p_contact_id: '||p_contact_id, 1, 'N');
230: aso_debug_pub.add('Validate_Contact: p_contact_usage: '||p_contact_usage, 1, 'N');
229: aso_debug_pub.add('Validate_Contact: p_contact_id: '||p_contact_id, 1, 'N');
230: aso_debug_pub.add('Validate_Contact: p_contact_usage: '||p_contact_usage, 1, 'N');
231: END IF;
232:
233: IF (p_contact_id IS NOT NULL AND p_contact_id <> FND_API.G_MISS_NUM) THEN
234: OPEN C_Contact;
235: FETCH C_Contact INTO l_contact_status;
236: IF (C_Contact%NOTFOUND OR l_contact_status <> 'A') THEN
237: CLOSE C_Contact;
234: OPEN C_Contact;
235: FETCH C_Contact INTO l_contact_status;
236: IF (C_Contact%NOTFOUND OR l_contact_status <> 'A') THEN
237: CLOSE C_Contact;
238: x_return_status := FND_API.G_RET_STS_ERROR;
239: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
240: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
241: FND_MESSAGE.Set_Token('COLUMN', p_contact_usage, FALSE);
242: FND_MSG_PUB.ADD;
273: l_status VARCHAR2(1);
274:
275: BEGIN
276: -- Initialize message list if p_init_msg_list is set to TRUE.
277: IF FND_API.to_Boolean( p_init_msg_list ) THEN
278: FND_MSG_PUB.initialize;
279: END IF;
280:
281: -- Initialize API return status to success
278: FND_MSG_PUB.initialize;
279: END IF;
280:
281: -- Initialize API return status to success
282: x_return_status := FND_API.G_RET_STS_SUCCESS;
283:
284: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
285: aso_debug_pub.add('Validate_PartySite: p_party_id: '||p_party_id, 1, 'N');
286: aso_debug_pub.add('Validate_PartySite: p_party_site_id: '||p_party_site_id, 1, 'N');
286: aso_debug_pub.add('Validate_PartySite: p_party_site_id: '||p_party_site_id, 1, 'N');
287: aso_debug_pub.add('Validate_PartySite: p_site_usage: '||p_site_usage, 1, 'N');
288: END IF;
289:
290: IF (p_party_site_id IS NOT NULL AND p_party_site_id <> FND_API.G_MISS_NUM) THEN
291: OPEN C_Party_Site;
292: FETCH C_Party_Site INTO l_status;
293: IF C_Party_Site%NOTFOUND OR
294: l_status <> 'A' THEN
293: IF C_Party_Site%NOTFOUND OR
294: l_status <> 'A' THEN
295:
296: CLOSE C_Party_Site;
297: x_return_status := FND_API.G_RET_STS_ERROR;
298: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
299: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
300: FND_MESSAGE.Set_Token('COLUMN', p_site_usage, FALSE);
301: FND_MSG_PUB.ADD;
323: l_start_date DATE;
324: l_end_date DATE;
325: BEGIN
326: -- Initialize message list if p_init_msg_list is set to TRUE.
327: IF FND_API.to_Boolean( p_init_msg_list ) THEN
328: FND_MSG_PUB.initialize;
329: END IF;
330:
331: -- Initialize API return status to success
328: FND_MSG_PUB.initialize;
329: END IF;
330:
331: -- Initialize API return status to success
332: x_return_status := FND_API.G_RET_STS_SUCCESS;
333:
334: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
335: aso_debug_pub.add('Validate_OrderType: p_order_type_id: '||p_order_type_id, 1, 'N');
336: END IF;
333:
334: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
335: aso_debug_pub.add('Validate_OrderType: p_order_type_id: '||p_order_type_id, 1, 'N');
336: END IF;
337: IF (p_order_type_id IS NOT NULL AND p_order_type_id <> FND_API.G_MISS_NUM) THEN
338: OPEN C_Order_Type;
339: FETCH C_Order_Type INTO l_start_date, l_end_date;
340: IF (C_Order_Type%NOTFOUND OR
341: (sysdate NOT BETWEEN NVL(l_start_date, sysdate) AND
340: IF (C_Order_Type%NOTFOUND OR
341: (sysdate NOT BETWEEN NVL(l_start_date, sysdate) AND
342: NVL(l_end_date, sysdate))) THEN
343: CLOSE C_Order_Type;
344: x_return_status := FND_API.G_RET_STS_ERROR;
345: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
346: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
347: FND_MESSAGE.Set_Token('COLUMN', 'ORDER_TYPE_ID', FALSE);
348: FND_MESSAGE.Set_Token ('VALUE' ,to_char(p_order_type_id), FALSE );
373: l_start_date DATE;
374: l_end_date DATE;
375: BEGIN
376: -- Initialize message list if p_init_msg_list is set to TRUE.
377: IF FND_API.to_Boolean( p_init_msg_list ) THEN
378: FND_MSG_PUB.initialize;
379: END IF;
380:
381: -- Initialize API return status to success
378: FND_MSG_PUB.initialize;
379: END IF;
380:
381: -- Initialize API return status to success
382: x_return_status := FND_API.G_RET_STS_SUCCESS;
383:
384: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
385: aso_debug_pub.add('Validate_LineType: p_order_line_type_id: '||p_order_line_type_id, 1, 'N');
386: END IF;
383:
384: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
385: aso_debug_pub.add('Validate_LineType: p_order_line_type_id: '||p_order_line_type_id, 1, 'N');
386: END IF;
387: IF (p_order_line_type_id IS NOT NULL AND p_order_line_type_id <> FND_API.G_MISS_NUM) THEN
388: OPEN C_Order_Line_Type;
389: FETCH C_Order_Line_Type INTO l_start_date, l_end_date;
390: IF (C_Order_Line_Type%NOTFOUND OR
391: (sysdate NOT BETWEEN NVL(l_start_date, sysdate) AND
390: IF (C_Order_Line_Type%NOTFOUND OR
391: (sysdate NOT BETWEEN NVL(l_start_date, sysdate) AND
392: NVL(l_end_date, sysdate))) THEN
393: CLOSE C_Order_Line_Type;
394: x_return_status := FND_API.G_RET_STS_ERROR;
395: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
396: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
397: FND_MESSAGE.Set_Token('COLUMN', 'ORDER_LINE_TYPE_ID', FALSE);
398: FND_MESSAGE.Set_Token ('VALUE' ,to_char(p_order_line_type_id), FALSE );
434: l_end_date DATE;
435: l_org_id NUMBER := mo_global.get_current_org_id;
436: BEGIN
437: -- Initialize message list if p_init_msg_list is set to TRUE.
438: IF FND_API.to_Boolean( p_init_msg_list ) THEN
439: FND_MSG_PUB.initialize;
440: END IF;
441:
442: -- Initialize API return status to success
439: FND_MSG_PUB.initialize;
440: END IF;
441:
442: -- Initialize API return status to success
443: x_return_status := FND_API.G_RET_STS_SUCCESS;
444:
445: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
446: aso_debug_pub.add('Validate_PriceList Begin: p_price_list_id: '||p_price_list_id, 1, 'N');
447: aso_debug_pub.add('Validate_PriceList :mo_global.get_current_org_id '||l_org_id, 1, 'N');
448: END IF;
449:
450:
451:
452: IF (p_price_list_id IS NOT NULL AND p_price_list_id <> FND_API.G_MISS_NUM) THEN
453: OPEN C_Price_List;
454: FETCH C_Price_List INTO l_start_date, l_end_date;
455: IF (C_Price_List%NOTFOUND OR
456: (trunc(sysdate) NOT BETWEEN NVL(trunc(l_start_date), trunc(sysdate)) AND
455: IF (C_Price_List%NOTFOUND OR
456: (trunc(sysdate) NOT BETWEEN NVL(trunc(l_start_date), trunc(sysdate)) AND
457: NVL(trunc(l_end_date), trunc(sysdate)))) THEN
458: CLOSE C_Price_List;
459: x_return_status := FND_API.G_RET_STS_ERROR;
460: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
461: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
462: FND_MESSAGE.Set_Token('COLUMN', 'PRICE_LIST_ID', FALSE);
463: FND_MESSAGE.Set_Token('VALUE',to_char(p_price_list_id),FALSE);
495: l_end_date DATE;
496: l_quote_expiration_date DATE;
497: BEGIN
498: -- Initialize message list if p_init_msg_list is set to TRUE.
499: IF FND_API.to_Boolean( p_init_msg_list ) THEN
500: FND_MSG_PUB.initialize;
501: END IF;
502:
503: -- Initialize API return status to success
500: FND_MSG_PUB.initialize;
501: END IF;
502:
503: -- Initialize API return status to success
504: x_return_status := FND_API.G_RET_STS_SUCCESS;
505:
506: IF (p_price_list_id IS NOT NULL AND p_price_list_id <> FND_API.G_MISS_NUM) THEN
507:
508: OPEN C_Price_List;
502:
503: -- Initialize API return status to success
504: x_return_status := FND_API.G_RET_STS_SUCCESS;
505:
506: IF (p_price_list_id IS NOT NULL AND p_price_list_id <> FND_API.G_MISS_NUM) THEN
507:
508: OPEN C_Price_List;
509: FETCH C_Price_List INTO l_start_date, l_end_date;
510: IF (C_Price_List%NOTFOUND OR
510: IF (C_Price_List%NOTFOUND OR
511: (sysdate NOT BETWEEN NVL(l_start_date, sysdate) AND
512: NVL(l_end_date, sysdate))) THEN
513: CLOSE C_Price_List;
514: x_return_status := FND_API.G_RET_STS_ERROR;
515: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
516: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
517: FND_MESSAGE.Set_Token('COLUMN', 'PRICE_LIST_ID', FALSE);
518: FND_MESSAGE.Set_Token('VALUE',to_char(p_price_list_id),FALSE);
517: FND_MESSAGE.Set_Token('COLUMN', 'PRICE_LIST_ID', FALSE);
518: FND_MESSAGE.Set_Token('VALUE',to_char(p_price_list_id),FALSE);
519: FND_MSG_PUB.ADD;
520: END IF;
521: ELSIF l_end_date IS NOT NULL AND p_quote_expiration_date <> FND_API.G_MISS_DATE AND nvl(trunc(p_quote_expiration_date), trunc(l_end_date)) > trunc(l_end_date) THEN
522: -- ELSIF nvl(p_quote_expiration_date,(sysdate+30)) > l_end_date THEN
523: x_return_status := FND_API.G_RET_STS_ERROR;
524: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
525: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
519: FND_MSG_PUB.ADD;
520: END IF;
521: ELSIF l_end_date IS NOT NULL AND p_quote_expiration_date <> FND_API.G_MISS_DATE AND nvl(trunc(p_quote_expiration_date), trunc(l_end_date)) > trunc(l_end_date) THEN
522: -- ELSIF nvl(p_quote_expiration_date,(sysdate+30)) > l_end_date THEN
523: x_return_status := FND_API.G_RET_STS_ERROR;
524: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
525: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
526: FND_MESSAGE.Set_Token('COLUMN', 'Price List Expires Before Quote', FALSE);
527: FND_MESSAGE.Set_Token('VALUE',to_char(p_price_list_id),FALSE);
550:
551: BEGIN
552:
553: -- Initialize message list if p_init_msg_list is set to TRUE.
554: IF FND_API.to_Boolean( p_init_msg_list ) THEN
555: FND_MSG_PUB.initialize;
556: END IF;
557:
558: -- Initialize API return status to success
555: FND_MSG_PUB.initialize;
556: END IF;
557:
558: -- Initialize API return status to success
559: x_return_status := FND_API.G_RET_STS_SUCCESS;
560:
561: IF p_quote_expiration_date IS NOT NULL and p_quote_expiration_date <> FND_API.G_MISS_DATE THEN
562: IF (trunc(sysdate) > trunc(p_quote_expiration_date))THEN
563: x_return_status := FND_API.G_RET_STS_ERROR;
557:
558: -- Initialize API return status to success
559: x_return_status := FND_API.G_RET_STS_SUCCESS;
560:
561: IF p_quote_expiration_date IS NOT NULL and p_quote_expiration_date <> FND_API.G_MISS_DATE THEN
562: IF (trunc(sysdate) > trunc(p_quote_expiration_date))THEN
563: x_return_status := FND_API.G_RET_STS_ERROR;
564: END IF;
565: END IF;
559: x_return_status := FND_API.G_RET_STS_SUCCESS;
560:
561: IF p_quote_expiration_date IS NOT NULL and p_quote_expiration_date <> FND_API.G_MISS_DATE THEN
562: IF (trunc(sysdate) > trunc(p_quote_expiration_date))THEN
563: x_return_status := FND_API.G_RET_STS_ERROR;
564: END IF;
565: END IF;
566:
567: END Validate_Quote_Exp_date;
588: l_enabled_flag VARCHAR2(1);
589:
590: BEGIN
591: -- Initialize message list if p_init_msg_list is set to TRUE.
592: IF FND_API.to_Boolean( p_init_msg_list ) THEN
593: FND_MSG_PUB.initialize;
594: END IF;
595:
596: -- Initialize API return status to success
593: FND_MSG_PUB.initialize;
594: END IF;
595:
596: -- Initialize API return status to success
597: x_return_status := FND_API.G_RET_STS_SUCCESS;
598:
599: OPEN c_Quote_Status;
600: FETCH c_Quote_Status INTO l_quote_status_id, l_enabled_flag;
601: IF (c_Quote_Status%NOTFOUND) THEN
598:
599: OPEN c_Quote_Status;
600: FETCH c_Quote_Status INTO l_quote_status_id, l_enabled_flag;
601: IF (c_Quote_Status%NOTFOUND) THEN
602: x_return_status := FND_API.G_RET_STS_ERROR;
603: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
604: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
605: FND_MESSAGE.Set_Token('COLUMN', 'QUOTE_STATUS_ID', FALSE);
606: FND_MSG_PUB.ADD;
605: FND_MESSAGE.Set_Token('COLUMN', 'QUOTE_STATUS_ID', FALSE);
606: FND_MSG_PUB.ADD;
607: END IF;
608: ELSIF (l_enabled_flag <> 'Y') THEN
609: x_return_status := FND_API.G_RET_STS_ERROR;
610: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
611: FND_MESSAGE.Set_Name('ASO', 'ASO_DISABLED_STATUS');
612: FND_MSG_PUB.ADD;
613: END IF;
639: l_war_flag VARCHAR2(1);
640: l_svr_flag VARCHAr2(1);
641: BEGIN
642: -- Initialize message list if p_init_msg_list is set to TRUE.
643: IF FND_API.to_Boolean( p_init_msg_list ) THEN
644: FND_MSG_PUB.initialize;
645: END IF;
646:
647: -- Initialize API return status to success
644: FND_MSG_PUB.initialize;
645: END IF;
646:
647: -- Initialize API return status to success
648: x_return_status := FND_API.G_RET_STS_SUCCESS;
649: IF (p_inventory_item_id IS NULL OR p_inventory_item_id = FND_API.G_MISS_NUM) THEN
650: x_return_status := FND_API.G_RET_STS_ERROR;
651: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
652: FND_MESSAGE.Set_Name('ASO', 'API_MISSING_COLUMN');
645: END IF;
646:
647: -- Initialize API return status to success
648: x_return_status := FND_API.G_RET_STS_SUCCESS;
649: IF (p_inventory_item_id IS NULL OR p_inventory_item_id = FND_API.G_MISS_NUM) THEN
650: x_return_status := FND_API.G_RET_STS_ERROR;
651: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
652: FND_MESSAGE.Set_Name('ASO', 'API_MISSING_COLUMN');
653: FND_MESSAGE.Set_Token('COLUMN', 'INVENTORY_ITEM_ID', FALSE);
646:
647: -- Initialize API return status to success
648: x_return_status := FND_API.G_RET_STS_SUCCESS;
649: IF (p_inventory_item_id IS NULL OR p_inventory_item_id = FND_API.G_MISS_NUM) THEN
650: x_return_status := FND_API.G_RET_STS_ERROR;
651: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
652: FND_MESSAGE.Set_Name('ASO', 'API_MISSING_COLUMN');
653: FND_MESSAGE.Set_Token('COLUMN', 'INVENTORY_ITEM_ID', FALSE);
654: FND_MSG_PUB.ADD;
659: IF (C_Inventory_Item%NOTFOUND OR
660: (sysdate NOT BETWEEN NVL(l_start_date, sysdate) AND
661: NVL(l_end_date, sysdate))) THEN
662: CLOSE C_Inventory_Item;
663: x_return_status := FND_API.G_RET_STS_ERROR;
664: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
665: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
666: FND_MESSAGE.Set_Token('COLUMN', 'INVENTORY_ITEM_ID', FALSE);
667: FND_MESSAGE.Set_Token('VALUE',to_char(p_inventory_item_id),FALSE);
668: FND_MSG_PUB.ADD;
669: END IF;
670: ELSIF l_war_flag ='Y'and l_svr_flag ='Y' THEN
671: CLOSE C_Inventory_Item;
672: x_return_status := FND_API.G_RET_STS_ERROR;
673: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
674: FND_MESSAGE.Set_Name('ASO', 'ASO_API_MISSING_SRV_INFO4');
675: -- FND_MESSAGE.Set_Token('COLUMN', 'INVENTORY_ITEM_ID', FALSE);
676: FND_MSG_PUB.ADD;
701: l_item_type_code VARCHAR2(30);
702: BEGIN
703: --dbms_output.put_line('beginning of item type code '||p_item_type_code);
704: -- Initialize message list if p_init_msg_list is set to TRUE.
705: IF FND_API.to_Boolean( p_init_msg_list ) THEN
706: FND_MSG_PUB.initialize;
707: END IF;
708:
709: -- Initialize API return status to success
706: FND_MSG_PUB.initialize;
707: END IF;
708:
709: -- Initialize API return status to success
710: x_return_status := FND_API.G_RET_STS_SUCCESS;
711: IF (p_item_type_code IS NOT NULL AND p_item_type_code <> FND_API.G_MISS_CHAR) THEN
712: -- dbms_output.put_line('in item type code '|| x_return_status);
713: OPEN C_item_type_code;
714: FETCH C_item_type_code INTO l_item_type_code;
707: END IF;
708:
709: -- Initialize API return status to success
710: x_return_status := FND_API.G_RET_STS_SUCCESS;
711: IF (p_item_type_code IS NOT NULL AND p_item_type_code <> FND_API.G_MISS_CHAR) THEN
712: -- dbms_output.put_line('in item type code '|| x_return_status);
713: OPEN C_item_type_code;
714: FETCH C_item_type_code INTO l_item_type_code;
715: IF (C_item_type_code%NOTFOUND) THEN
713: OPEN C_item_type_code;
714: FETCH C_item_type_code INTO l_item_type_code;
715: IF (C_item_type_code%NOTFOUND) THEN
716: CLOSE C_item_type_code;
717: x_return_status := FND_API.G_RET_STS_ERROR;
718: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
719: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
720: FND_MESSAGE.Set_Token('COLUMN', 'ITEM_TYPE_CODE', FALSE);
721: FND_MESSAGE.Set_Token('VALUE',p_item_type_code,FALSE);
743:
744: l_mkting_source_code NUMBER;
745: BEGIN
746: -- Initialize message list if p_init_msg_list is set to TRUE.
747: IF FND_API.to_Boolean( p_init_msg_list ) THEN
748: FND_MSG_PUB.initialize;
749: END IF;
750:
751: -- Initialize API return status to success
748: FND_MSG_PUB.initialize;
749: END IF;
750:
751: -- Initialize API return status to success
752: x_return_status := FND_API.G_RET_STS_SUCCESS;
753:
754: IF (p_mkting_source_code_id IS NOT NULL AND p_mkting_source_code_id <> FND_API.G_MISS_NUM) THEN
755: OPEN C_marketing_code;
756: FETCH C_marketing_code INTO l_mkting_source_code;
750:
751: -- Initialize API return status to success
752: x_return_status := FND_API.G_RET_STS_SUCCESS;
753:
754: IF (p_mkting_source_code_id IS NOT NULL AND p_mkting_source_code_id <> FND_API.G_MISS_NUM) THEN
755: OPEN C_marketing_code;
756: FETCH C_marketing_code INTO l_mkting_source_code;
757: IF (C_marketing_code%NOTFOUND) THEN
758: CLOSE C_marketing_code;
755: OPEN C_marketing_code;
756: FETCH C_marketing_code INTO l_mkting_source_code;
757: IF (C_marketing_code%NOTFOUND) THEN
758: CLOSE C_marketing_code;
759: x_return_status := FND_API.G_RET_STS_ERROR;
760: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
761: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
762: FND_MESSAGE.Set_Token('COLUMN', 'MARKETING_SOURCE_CODE_ID', FALSE);
763: FND_MESSAGE.Set_Token('VALUE',to_char(p_mkting_source_code_id),FALSE);
788:
789: l_uom_code VARCHAR2(30);
790: BEGIN
791: -- Initialize message list if p_init_msg_list is set to TRUE.
792: IF FND_API.to_Boolean( p_init_msg_list ) THEN
793: FND_MSG_PUB.initialize;
794: END IF;
795:
796: -- Initialize API return status to success
793: FND_MSG_PUB.initialize;
794: END IF;
795:
796: -- Initialize API return status to success
797: x_return_status := FND_API.G_RET_STS_SUCCESS;
798:
799: IF (p_uom_code IS NOT NULL AND p_uom_code <> FND_API.G_MISS_CHAR) THEN
800: OPEN C_uom_code;
801: FETCH C_uom_code INTO l_uom_code;
795:
796: -- Initialize API return status to success
797: x_return_status := FND_API.G_RET_STS_SUCCESS;
798:
799: IF (p_uom_code IS NOT NULL AND p_uom_code <> FND_API.G_MISS_CHAR) THEN
800: OPEN C_uom_code;
801: FETCH C_uom_code INTO l_uom_code;
802: IF (C_uom_code%NOTFOUND) THEN
803: CLOSE C_uom_code;
800: OPEN C_uom_code;
801: FETCH C_uom_code INTO l_uom_code;
802: IF (C_uom_code%NOTFOUND) THEN
803: CLOSE C_uom_code;
804: x_return_status := FND_API.G_RET_STS_ERROR;
805: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
806: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
807: FND_MESSAGE.Set_Token('COLUMN', 'UOM_CODE', FALSE);
808: FND_MESSAGE.Set_Token('VALUE',p_uom_code,FALSE);
825: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
826: IS
827: BEGIN
828: -- Initialize message list if p_init_msg_list is set to TRUE.
829: IF FND_API.to_Boolean( p_init_msg_list ) THEN
830: FND_MSG_PUB.initialize;
831: END IF;
832:
833: -- Initialize API return status to success
830: FND_MSG_PUB.initialize;
831: END IF;
832:
833: -- Initialize API return status to success
834: x_return_status := FND_API.G_RET_STS_SUCCESS;
835:
836: IF p_tax_exempt_flag = 'E' AND
837: (p_tax_exempt_reason_code IS NULL OR
838: p_tax_exempt_reason_code = FND_API.G_MISS_CHAR) THEN
834: x_return_status := FND_API.G_RET_STS_SUCCESS;
835:
836: IF p_tax_exempt_flag = 'E' AND
837: (p_tax_exempt_reason_code IS NULL OR
838: p_tax_exempt_reason_code = FND_API.G_MISS_CHAR) THEN
839: x_return_status := FND_API.G_RET_STS_ERROR;
840: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
841: FND_MESSAGE.Set_Name('ASO', 'API_MISSING_COLUMN');
842: FND_MESSAGE.Set_Token('COLUMN', 'TAX_EXEMPT_REASON', FALSE);
835:
836: IF p_tax_exempt_flag = 'E' AND
837: (p_tax_exempt_reason_code IS NULL OR
838: p_tax_exempt_reason_code = FND_API.G_MISS_CHAR) THEN
839: x_return_status := FND_API.G_RET_STS_ERROR;
840: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
841: FND_MESSAGE.Set_Name('ASO', 'API_MISSING_COLUMN');
842: FND_MESSAGE.Set_Token('COLUMN', 'TAX_EXEMPT_REASON', FALSE);
843: FND_MSG_PUB.ADD;
874:
875: l_component_code VARCHAR2(1000);
876: BEGIN
877: -- Initialize message list if p_init_msg_list is set to TRUE.
878: IF FND_API.to_Boolean( p_init_msg_list ) THEN
879: FND_MSG_PUB.initialize;
880: END IF;
881:
882: -- Initialize API return status to success
879: FND_MSG_PUB.initialize;
880: END IF;
881:
882: -- Initialize API return status to success
883: x_return_status := FND_API.G_RET_STS_SUCCESS;
884:
885: OPEN C_configuration;
886: FETCH C_configuration INTO l_component_code;
887: IF (C_configuration%NOTFOUND) THEN
888: CLOSE C_configuration;
889: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
890: aso_debug_pub.add('ASO_VALIDATE_PVT.validate_configuration: Inside C_configuration Not Found condition',1,'N');
891: END IF;
892: x_return_status := FND_API.G_RET_STS_ERROR;
893: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
894: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_CONFIGURATION');
895: FND_MESSAGE.Set_Token('HDR_ID',p_config_header_id, FALSE);
896: FND_MESSAGE.Set_Token('REV_NO',p_config_revision_num, FALSE);
929: l_service_code VARCHAR2(30);
930:
931: BEGIN
932: -- Initialize message list if p_init_msg_list is set to TRUE.
933: IF FND_API.to_Boolean( p_init_msg_list ) THEN
934: FND_MSG_PUB.initialize;
935: END IF;
936:
937: -- Initialize API return status to success
934: FND_MSG_PUB.initialize;
935: END IF;
936:
937: -- Initialize API return status to success
938: x_return_status := FND_API.G_RET_STS_SUCCESS;
939:
940: IF (p_service_ref_type_code IS NOT NULL AND p_service_ref_type_code <> FND_API.G_MISS_CHAR) THEN
941: OPEN C_servicetypes;
942: FETCH C_servicetypes INTO l_service_code;
936:
937: -- Initialize API return status to success
938: x_return_status := FND_API.G_RET_STS_SUCCESS;
939:
940: IF (p_service_ref_type_code IS NOT NULL AND p_service_ref_type_code <> FND_API.G_MISS_CHAR) THEN
941: OPEN C_servicetypes;
942: FETCH C_servicetypes INTO l_service_code;
943: IF (C_servicetypes%NOTFOUND) THEN
944: CLOSE C_servicetypes;
941: OPEN C_servicetypes;
942: FETCH C_servicetypes INTO l_service_code;
943: IF (C_servicetypes%NOTFOUND) THEN
944: CLOSE C_servicetypes;
945: x_return_status := FND_API.G_RET_STS_ERROR;
946: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
947: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
948: FND_MESSAGE.Set_Token('COLUMN', 'SERVICE_TYPE_CODE', FALSE);
949: FND_MESSAGE.Set_Token('VALUE',p_service_ref_type_code,FALSE);
988:
989: BEGIN
990:
991: --Initialize message list if p_init_msg_list is set to TRUE.
992: IF FND_API.to_Boolean( p_init_msg_list ) THEN
993: FND_MSG_PUB.initialize;
994: END IF;
995:
996: --Initialize API return status to success
993: FND_MSG_PUB.initialize;
994: END IF;
995:
996: --Initialize API return status to success
997: x_return_status := FND_API.G_RET_STS_SUCCESS;
998:
999: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1000: aso_debug_pub.add('ASO_VALIDATE_PVT: Validate_Service: Begin validate_service procedure.');
1001: aso_debug_pub.add('Validate_Service: p_inventory_item_id: '|| p_inventory_item_id);
1006: aso_debug_pub.add('Validate_Service: p_service_coterminate_flag: '|| p_service_coterminate_flag);
1007: aso_debug_pub.add('Validate_Service: p_organization_id: '|| p_organization_id);
1008: END IF;
1009:
1010: IF p_inventory_item_id <> FND_API.G_MISS_NUM THEN
1011:
1012: OPEN C_service_item;
1013: FETCH C_service_item INTO l_inventory_item_id, l_service_item_flag;
1014:
1014:
1015: IF C_service_item%NOTFOUND THEN
1016:
1017: CLOSE C_service_item;
1018: x_return_status := FND_API.G_RET_STS_ERROR;
1019:
1020: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1021: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
1022: FND_MESSAGE.Set_Token('COLUMN', 'Inventory_item_id', FALSE);
1029:
1030: --if service start date must exist
1031: IF l_service_item_flag = 'Y' THEN
1032:
1033: IF p_start_date_active IS NULL OR p_start_date_active = FND_API.G_MISS_DATE THEN
1034:
1035: x_return_status := FND_API.G_RET_STS_ERROR;
1036:
1037: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1031: IF l_service_item_flag = 'Y' THEN
1032:
1033: IF p_start_date_active IS NULL OR p_start_date_active = FND_API.G_MISS_DATE THEN
1034:
1035: x_return_status := FND_API.G_RET_STS_ERROR;
1036:
1037: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1038: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
1039: FND_MESSAGE.Set_Token('COLUMN', 'SERVICE_START_DATE', FALSE);
1040: FND_MSG_PUB.ADD;
1041: END IF;
1042:
1043: -- if service we should be able to calc end date
1044: ELSIF (p_end_date_active IS NULL OR p_end_date_active = FND_API.G_MISS_DATE) AND
1045: (p_service_duration IS NULL OR p_service_duration = FND_API.G_MISS_NUM) AND
1046: (p_service_coterminate_flag IS NULL OR
1047: p_service_coterminate_flag = FND_API.G_MISS_CHAR) THEN
1048:
1041: END IF;
1042:
1043: -- if service we should be able to calc end date
1044: ELSIF (p_end_date_active IS NULL OR p_end_date_active = FND_API.G_MISS_DATE) AND
1045: (p_service_duration IS NULL OR p_service_duration = FND_API.G_MISS_NUM) AND
1046: (p_service_coterminate_flag IS NULL OR
1047: p_service_coterminate_flag = FND_API.G_MISS_CHAR) THEN
1048:
1049:
1043: -- if service we should be able to calc end date
1044: ELSIF (p_end_date_active IS NULL OR p_end_date_active = FND_API.G_MISS_DATE) AND
1045: (p_service_duration IS NULL OR p_service_duration = FND_API.G_MISS_NUM) AND
1046: (p_service_coterminate_flag IS NULL OR
1047: p_service_coterminate_flag = FND_API.G_MISS_CHAR) THEN
1048:
1049:
1050: x_return_status := FND_API.G_RET_STS_ERROR;
1051:
1046: (p_service_coterminate_flag IS NULL OR
1047: p_service_coterminate_flag = FND_API.G_MISS_CHAR) THEN
1048:
1049:
1050: x_return_status := FND_API.G_RET_STS_ERROR;
1051:
1052: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1053: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
1054: FND_MESSAGE.Set_Token('COLUMN', 'SERVICE_END_DATE', FALSE);
1060: END IF; -- l_service_item_flag = 'Y'
1061:
1062: END IF; -- C_service_item%NOTFOUND
1063:
1064: END IF; -- p_inventory_item_id <> FND_API.G_MISS_NUM
1065: END;
1066:
1067:
1068:
1074: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
1075: IS
1076: BEGIN
1077: -- Initialize message list if p_init_msg_list is set to TRUE.
1078: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1079: FND_MSG_PUB.initialize;
1080: END IF;
1081:
1082: -- Initialize API return status to success
1079: FND_MSG_PUB.initialize;
1080: END IF;
1081:
1082: -- Initialize API return status to success
1083: x_return_status := FND_API.G_RET_STS_SUCCESS;
1084:
1085: IF (p_service_duration IS NOT NULL AND p_service_duration <> FND_API.G_MISS_NUM) THEN
1086: IF p_service_duration < 1 THEN
1087: x_return_status := FND_API.G_RET_STS_ERROR;
1081:
1082: -- Initialize API return status to success
1083: x_return_status := FND_API.G_RET_STS_SUCCESS;
1084:
1085: IF (p_service_duration IS NOT NULL AND p_service_duration <> FND_API.G_MISS_NUM) THEN
1086: IF p_service_duration < 1 THEN
1087: x_return_status := FND_API.G_RET_STS_ERROR;
1088: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1089: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
1083: x_return_status := FND_API.G_RET_STS_SUCCESS;
1084:
1085: IF (p_service_duration IS NOT NULL AND p_service_duration <> FND_API.G_MISS_NUM) THEN
1086: IF p_service_duration < 1 THEN
1087: x_return_status := FND_API.G_RET_STS_ERROR;
1088: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1089: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
1090: FND_MESSAGE.Set_Token('COLUMN', 'SERVICE_DURATION', FALSE);
1091: FND_MESSAGE.Set_Token('VALUE',to_char(p_service_duration),FALSE);
1124: l_return_code VARCHAR2(30);
1125:
1126: BEGIN
1127: -- Initialize message list if p_init_msg_list is set to TRUE.
1128: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1129: FND_MSG_PUB.initialize;
1130: END IF;
1131:
1132: -- Initialize API return status to success
1129: FND_MSG_PUB.initialize;
1130: END IF;
1131:
1132: -- Initialize API return status to success
1133: x_return_status := FND_API.G_RET_STS_SUCCESS;
1134:
1135: IF (p_return_ref_type_code IS NOT NULL AND p_return_ref_type_code <> FND_API.G_MISS_CHAR) THEN
1136: OPEN C_returntypes;
1137: FETCH C_returntypes INTO l_return_code;
1131:
1132: -- Initialize API return status to success
1133: x_return_status := FND_API.G_RET_STS_SUCCESS;
1134:
1135: IF (p_return_ref_type_code IS NOT NULL AND p_return_ref_type_code <> FND_API.G_MISS_CHAR) THEN
1136: OPEN C_returntypes;
1137: FETCH C_returntypes INTO l_return_code;
1138: IF (C_returntypes%NOTFOUND) THEN
1139: CLOSE C_returntypes;
1136: OPEN C_returntypes;
1137: FETCH C_returntypes INTO l_return_code;
1138: IF (C_returntypes%NOTFOUND) THEN
1139: CLOSE C_returntypes;
1140: x_return_status := FND_API.G_RET_STS_ERROR;
1141: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1142: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
1143: FND_MESSAGE.Set_Token('COLUMN', 'RETURN_TYPE_CODE', FALSE);
1144: FND_MESSAGE.Set_Token('VALUE',p_return_ref_type_code,FALSE);
1169: l_end_date DATE;
1170: l_status VARCHAR2(1);
1171: BEGIN
1172:
1173: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1174: FND_MSG_PUB.initialize;
1175: END IF;
1176:
1177: -- Initialize API return status to success
1174: FND_MSG_PUB.initialize;
1175: END IF;
1176:
1177: -- Initialize API return status to success
1178: x_return_status := FND_API.G_RET_STS_SUCCESS;
1179:
1180: IF p_employee_id IS NOT NULL AND p_employee_id <> FND_API.G_MISS_NUM THEN
1181: Open C_employperson;
1182: FETCH C_employperson into l_start_date, l_end_date,l_status;
1176:
1177: -- Initialize API return status to success
1178: x_return_status := FND_API.G_RET_STS_SUCCESS;
1179:
1180: IF p_employee_id IS NOT NULL AND p_employee_id <> FND_API.G_MISS_NUM THEN
1181: Open C_employperson;
1182: FETCH C_employperson into l_start_date, l_end_date,l_status;
1183:
1184: IF (C_employperson%NOTFOUND OR l_status<> 'A') THEN
1182: FETCH C_employperson into l_start_date, l_end_date,l_status;
1183:
1184: IF (C_employperson%NOTFOUND OR l_status<> 'A') THEN
1185: CLOSE C_employperson;
1186: x_return_status := FND_API.G_RET_STS_ERROR;
1187: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1188: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_SALES_REP');
1189: FND_MESSAGE.Set_Token('COLUMN','EMPLOYEE_PERSON_ID' , FALSE);
1190: FND_MSG_PUB.ADD;
1224: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
1225: IS
1226: BEGIN
1227: -- Initialize message list if p_init_msg_list is set to TRUE.
1228: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1229: FND_MSG_PUB.initialize;
1230: END IF;
1231:
1232: -- Initialize API return status to success
1229: FND_MSG_PUB.initialize;
1230: END IF;
1231:
1232: -- Initialize API return status to success
1233: x_return_status := FND_API.G_RET_STS_SUCCESS;
1234:
1235: IF (p_value < 0) THEN
1236: x_return_status := FND_API.G_RET_STS_ERROR;
1237: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1232: -- Initialize API return status to success
1233: x_return_status := FND_API.G_RET_STS_SUCCESS;
1234:
1235: IF (p_value < 0) THEN
1236: x_return_status := FND_API.G_RET_STS_ERROR;
1237: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1238: FND_MESSAGE.Set_Name('ASO', 'API_MISSING_COLUMN');
1239: FND_MESSAGE.Set_Token('COLUMN', p_column_name, FALSE);
1240: FND_MSG_PUB.ADD;
1267:
1268: l_sc_type VARCHAR2(240);
1269: BEGIN
1270: -- Initialize message list if p_init_msg_list is set to TRUE.
1271: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1272: FND_MSG_PUB.initialize;
1273: END IF;
1274:
1275: -- Initialize API return status to success
1272: FND_MSG_PUB.initialize;
1273: END IF;
1274:
1275: -- Initialize API return status to success
1276: x_return_status := FND_API.G_RET_STS_SUCCESS;
1277:
1278: IF (p_salescredit_type_id IS NOT NULL AND p_salescredit_type_id <> FND_API.G_MISS_NUM) THEN
1279: OPEN C_salescredit_type;
1280: FETCH C_salescredit_type INTO l_sc_type;
1274:
1275: -- Initialize API return status to success
1276: x_return_status := FND_API.G_RET_STS_SUCCESS;
1277:
1278: IF (p_salescredit_type_id IS NOT NULL AND p_salescredit_type_id <> FND_API.G_MISS_NUM) THEN
1279: OPEN C_salescredit_type;
1280: FETCH C_salescredit_type INTO l_sc_type;
1281: IF (C_salescredit_type%NOTFOUND) THEN
1282: CLOSE C_salescredit_type;
1279: OPEN C_salescredit_type;
1280: FETCH C_salescredit_type INTO l_sc_type;
1281: IF (C_salescredit_type%NOTFOUND) THEN
1282: CLOSE C_salescredit_type;
1283: x_return_status := FND_API.G_RET_STS_ERROR;
1284: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1285: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
1286: FND_MESSAGE.Set_Token('COLUMN', 'SALES CREDIT TYPE', FALSE);
1287: FND_MESSAGE.Set_Token('VALUE',to_char(p_salescredit_type_id),FALSE);
1309:
1310: l_valid VARCHAR2(240);
1311: BEGIN
1312: -- Initialize message list if p_init_msg_list is set to TRUE.
1313: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1314: FND_MSG_PUB.initialize;
1315: END IF;
1316:
1317: -- Initialize API return status to success
1314: FND_MSG_PUB.initialize;
1315: END IF;
1316:
1317: -- Initialize API return status to success
1318: x_return_status := FND_API.G_RET_STS_SUCCESS;
1319:
1320: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1321: aso_debug_pub.add('Validate_PartyType: p_party_type: '||p_party_type, 1, 'N');
1322: END IF;
1319:
1320: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1321: aso_debug_pub.add('Validate_PartyType: p_party_type: '||p_party_type, 1, 'N');
1322: END IF;
1323: IF (p_party_type IS NOT NULL AND p_party_type <> FND_API.G_MISS_CHAR) THEN
1324: OPEN C_party_type;
1325: FETCH C_party_type INTO l_valid;
1326: IF (C_party_type%NOTFOUND) THEN
1327: CLOSE C_party_type;
1324: OPEN C_party_type;
1325: FETCH C_party_type INTO l_valid;
1326: IF (C_party_type%NOTFOUND) THEN
1327: CLOSE C_party_type;
1328: x_return_status := FND_API.G_RET_STS_ERROR;
1329: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1330: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
1331: FND_MESSAGE.Set_Token('COLUMN', 'PARTY TYPE', FALSE);
1332: FND_MESSAGE.Set_Token('VALUE',p_party_type,FALSE);
1367:
1368: BEGIN
1369:
1370: -- Initialize message list if p_init_msg_list is set to TRUE.
1371: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1372: FND_MSG_PUB.initialize;
1373: END IF;
1374:
1375: -- Initialize API return status to success
1372: FND_MSG_PUB.initialize;
1373: END IF;
1374:
1375: -- Initialize API return status to success
1376: x_return_status := FND_API.G_RET_STS_SUCCESS;
1377:
1378: IF (p_resource_id IS NOT NULL AND p_resource_id <> FND_API.G_MISS_NUM) THEN
1379: OPEN C_sales_rep(p_resource_id);
1380: FETCH C_sales_rep INTO l_valid;
1374:
1375: -- Initialize API return status to success
1376: x_return_status := FND_API.G_RET_STS_SUCCESS;
1377:
1378: IF (p_resource_id IS NOT NULL AND p_resource_id <> FND_API.G_MISS_NUM) THEN
1379: OPEN C_sales_rep(p_resource_id);
1380: FETCH C_sales_rep INTO l_valid;
1381: IF (C_sales_rep%NOTFOUND) THEN
1382: x_return_status := FND_API.G_RET_STS_ERROR;
1378: IF (p_resource_id IS NOT NULL AND p_resource_id <> FND_API.G_MISS_NUM) THEN
1379: OPEN C_sales_rep(p_resource_id);
1380: FETCH C_sales_rep INTO l_valid;
1381: IF (C_sales_rep%NOTFOUND) THEN
1382: x_return_status := FND_API.G_RET_STS_ERROR;
1383: END IF;
1384: CLOSE C_sales_rep;
1385: END IF;
1386:
1406:
1407: l_person_id NUMBER;
1408: BEGIN
1409: -- Initialize message list if p_init_msg_list is set to TRUE.
1410: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1411: FND_MSG_PUB.initialize;
1412: END IF;
1413:
1414: -- Initialize API return status to success
1411: FND_MSG_PUB.initialize;
1412: END IF;
1413:
1414: -- Initialize API return status to success
1415: x_return_status := FND_API.G_RET_STS_SUCCESS;
1416:
1417: IF (p_resource_id IS NOT NULL AND p_resource_id <> FND_API.G_MISS_NUM)
1418: AND (p_employee_person_id IS NOT NULL AND p_employee_person_id <> FND_API.G_MISS_NUM) THEN
1419: OPEN C_emp_res;
1413:
1414: -- Initialize API return status to success
1415: x_return_status := FND_API.G_RET_STS_SUCCESS;
1416:
1417: IF (p_resource_id IS NOT NULL AND p_resource_id <> FND_API.G_MISS_NUM)
1418: AND (p_employee_person_id IS NOT NULL AND p_employee_person_id <> FND_API.G_MISS_NUM) THEN
1419: OPEN C_emp_res;
1420: FETCH C_emp_res INTO l_person_id;
1421: IF (C_emp_res%NOTFOUND) OR l_person_id IS NULL OR l_person_id = FND_API.G_MISS_NUM THEN
1414: -- Initialize API return status to success
1415: x_return_status := FND_API.G_RET_STS_SUCCESS;
1416:
1417: IF (p_resource_id IS NOT NULL AND p_resource_id <> FND_API.G_MISS_NUM)
1418: AND (p_employee_person_id IS NOT NULL AND p_employee_person_id <> FND_API.G_MISS_NUM) THEN
1419: OPEN C_emp_res;
1420: FETCH C_emp_res INTO l_person_id;
1421: IF (C_emp_res%NOTFOUND) OR l_person_id IS NULL OR l_person_id = FND_API.G_MISS_NUM THEN
1422: CLOSE C_emp_res;
1417: IF (p_resource_id IS NOT NULL AND p_resource_id <> FND_API.G_MISS_NUM)
1418: AND (p_employee_person_id IS NOT NULL AND p_employee_person_id <> FND_API.G_MISS_NUM) THEN
1419: OPEN C_emp_res;
1420: FETCH C_emp_res INTO l_person_id;
1421: IF (C_emp_res%NOTFOUND) OR l_person_id IS NULL OR l_person_id = FND_API.G_MISS_NUM THEN
1422: CLOSE C_emp_res;
1423: x_return_status := FND_API.G_RET_STS_ERROR;
1424: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1425: FND_MESSAGE.Set_Name('ASO', 'ASO_SALESREP');
1419: OPEN C_emp_res;
1420: FETCH C_emp_res INTO l_person_id;
1421: IF (C_emp_res%NOTFOUND) OR l_person_id IS NULL OR l_person_id = FND_API.G_MISS_NUM THEN
1422: CLOSE C_emp_res;
1423: x_return_status := FND_API.G_RET_STS_ERROR;
1424: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1425: FND_MESSAGE.Set_Name('ASO', 'ASO_SALESREP');
1426: FND_MESSAGE.Set_Token('COLUMN', 'RESOURCE ID', FALSE);
1427: FND_MSG_PUB.ADD;
1427: FND_MSG_PUB.ADD;
1428: END IF;
1429: ELSIF l_person_id <> p_employee_person_id THEN
1430: CLOSE C_emp_res;
1431: x_return_status := FND_API.G_RET_STS_ERROR;
1432: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1433: FND_MESSAGE.Set_Name('ASO', 'ASO_SALESREP');
1434: FND_MESSAGE.Set_Token('COLUMN', 'RESOURCE ID', FALSE);
1435: FND_MSG_PUB.ADD;
1455:
1456: l_valid VARCHAR2(240);
1457: BEGIN
1458: -- Initialize message list if p_init_msg_list is set to TRUE.
1459: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1460: FND_MSG_PUB.initialize;
1461: END IF;
1462:
1463: -- Initialize API return status to success
1460: FND_MSG_PUB.initialize;
1461: END IF;
1462:
1463: -- Initialize API return status to success
1464: x_return_status := FND_API.G_RET_STS_SUCCESS;
1465:
1466: IF (p_resource_group_id IS NOT NULL AND p_resource_group_id <> FND_API.G_MISS_NUM) THEN
1467: OPEN C_resource_group;
1468: FETCH C_resource_group INTO l_valid;
1462:
1463: -- Initialize API return status to success
1464: x_return_status := FND_API.G_RET_STS_SUCCESS;
1465:
1466: IF (p_resource_group_id IS NOT NULL AND p_resource_group_id <> FND_API.G_MISS_NUM) THEN
1467: OPEN C_resource_group;
1468: FETCH C_resource_group INTO l_valid;
1469: IF (C_resource_group%NOTFOUND) THEN
1470: CLOSE C_resource_group;
1467: OPEN C_resource_group;
1468: FETCH C_resource_group INTO l_valid;
1469: IF (C_resource_group%NOTFOUND) THEN
1470: CLOSE C_resource_group;
1471: x_return_status := FND_API.G_RET_STS_ERROR;
1472: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1473: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
1474: FND_MESSAGE.Set_Token('COLUMN', 'RESOURCE GROUP', FALSE);
1475: FND_MESSAGE.Set_Token('VALUE',to_char(p_resource_group_id),FALSE);
1497:
1498: l_valid VARCHAR2(240);
1499: BEGIN
1500: -- Initialize message list if p_init_msg_list is set to TRUE.
1501: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1502: FND_MSG_PUB.initialize;
1503: END IF;
1504:
1505: -- Initialize API return status to success
1502: FND_MSG_PUB.initialize;
1503: END IF;
1504:
1505: -- Initialize API return status to success
1506: x_return_status := FND_API.G_RET_STS_SUCCESS;
1507:
1508: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1509: aso_debug_pub.add('Validate_PartyObjType: p_party_object_type: '||p_party_object_type, 1, 'N');
1510: END IF;
1507:
1508: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1509: aso_debug_pub.add('Validate_PartyObjType: p_party_object_type: '||p_party_object_type, 1, 'N');
1510: END IF;
1511: IF (p_party_object_type IS NOT NULL AND p_party_object_type <> FND_API.G_MISS_CHAR) THEN
1512: OPEN C_party_object_type;
1513: FETCH C_party_object_type INTO l_valid;
1514: IF (C_party_object_type%NOTFOUND) THEN
1515: CLOSE C_party_object_type;
1512: OPEN C_party_object_type;
1513: FETCH C_party_object_type INTO l_valid;
1514: IF (C_party_object_type%NOTFOUND) THEN
1515: CLOSE C_party_object_type;
1516: x_return_status := FND_API.G_RET_STS_ERROR;
1517: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1518: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
1519: FND_MESSAGE.Set_Token('COLUMN', 'PARTY OBJECT TYPE', FALSE);
1520: FND_MESSAGE.Set_Token('VALUE',p_party_object_type,FALSE);
1546:
1547: l_type varchar(240);
1548: BEGIN
1549: -- Initialize message list if p_init_msg_list is set to TRUE.
1550: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1551: FND_MSG_PUB.initialize;
1552: END IF;
1553:
1554: -- Initialize API return status to success
1551: FND_MSG_PUB.initialize;
1552: END IF;
1553:
1554: -- Initialize API return status to success
1555: x_return_status := FND_API.G_RET_STS_SUCCESS;
1556:
1557:
1558: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1559: aso_debug_pub.add('Validate_PartyObjId: p_party_object_type: '||p_party_object_type, 1, 'N');
1558: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1559: aso_debug_pub.add('Validate_PartyObjId: p_party_object_type: '||p_party_object_type, 1, 'N');
1560: aso_debug_pub.add('Validate_PartyObjId: p_party_object_id: '||p_party_object_id, 1, 'N');
1561: END IF;
1562: IF p_party_object_type IS NOT NULL and p_party_object_type <> FND_API.G_MISS_CHAR THEN
1563: IF p_party_object_id is null OR p_party_object_id = FND_API.G_MISS_NUM THEN
1564: x_return_status := FND_API.G_RET_STS_ERROR;
1565: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1566: FND_MESSAGE.Set_Name('ASO', 'API_MISSING_COLUMN');
1559: aso_debug_pub.add('Validate_PartyObjId: p_party_object_type: '||p_party_object_type, 1, 'N');
1560: aso_debug_pub.add('Validate_PartyObjId: p_party_object_id: '||p_party_object_id, 1, 'N');
1561: END IF;
1562: IF p_party_object_type IS NOT NULL and p_party_object_type <> FND_API.G_MISS_CHAR THEN
1563: IF p_party_object_id is null OR p_party_object_id = FND_API.G_MISS_NUM THEN
1564: x_return_status := FND_API.G_RET_STS_ERROR;
1565: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1566: FND_MESSAGE.Set_Name('ASO', 'API_MISSING_COLUMN');
1567: FND_MESSAGE.Set_Token('COLUMN', 'PARTY OBJECT ID', FALSE);
1560: aso_debug_pub.add('Validate_PartyObjId: p_party_object_id: '||p_party_object_id, 1, 'N');
1561: END IF;
1562: IF p_party_object_type IS NOT NULL and p_party_object_type <> FND_API.G_MISS_CHAR THEN
1563: IF p_party_object_id is null OR p_party_object_id = FND_API.G_MISS_NUM THEN
1564: x_return_status := FND_API.G_RET_STS_ERROR;
1565: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1566: FND_MESSAGE.Set_Name('ASO', 'API_MISSING_COLUMN');
1567: FND_MESSAGE.Set_Token('COLUMN', 'PARTY OBJECT ID', FALSE);
1568: FND_MSG_PUB.ADD;
1586: OPEN C_contact_point;
1587: FETCH C_contact_point INTO l_type;
1588: IF (C_contact_point%NOTFOUND) THEN
1589: CLOSE C_contact_point;
1590: x_return_status := FND_API.G_RET_STS_ERROR;
1591: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1592: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
1593: FND_MESSAGE.Set_Token('COLUMN', 'CONTACT POINT', FALSE);
1594: FND_MSG_PUB.ADD;
1625:
1626: l_version varchar(240);
1627: BEGIN
1628: -- Initialize message list if p_init_msg_list is set to TRUE.
1629: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1630: FND_MSG_PUB.initialize;
1631: END IF;
1632:
1633: -- Initialize API return status to success
1630: FND_MSG_PUB.initialize;
1631: END IF;
1632:
1633: -- Initialize API return status to success
1634: x_return_status := FND_API.G_RET_STS_SUCCESS;
1635:
1636: IF p_quote_number is not NULL and p_quote_number <> FND_API.G_MISS_NUM THEN
1637:
1638: OPEN C_quote_number;
1632:
1633: -- Initialize API return status to success
1634: x_return_status := FND_API.G_RET_STS_SUCCESS;
1635:
1636: IF p_quote_number is not NULL and p_quote_number <> FND_API.G_MISS_NUM THEN
1637:
1638: OPEN C_quote_number;
1639: FETCH C_quote_number INTO l_version;
1640: IF (C_quote_number%NOTFOUND) THEN
1640: IF (C_quote_number%NOTFOUND) THEN
1641: CLOSE C_quote_number; -- unique quote number
1642: ELSE
1643: CLOSE C_quote_number;
1644: x_return_status := FND_API.G_RET_STS_ERROR;
1645: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1646: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
1647: FND_MESSAGE.Set_Token('COLUMN', 'QUOTE NUMBER', FALSE);
1648: FND_MSG_PUB.ADD;
1673:
1674:
1675: BEGIN
1676:
1677: x_return_status := FND_API.G_RET_STS_SUCCESS;
1678:
1679:
1680: OPEN desc_flex_exists;
1681: FETCH desc_flex_exists INTO l_flex_exists;
1680: OPEN desc_flex_exists;
1681: FETCH desc_flex_exists INTO l_flex_exists;
1682: IF desc_flex_exists%NOTFOUND THEN
1683: CLOSE desc_flex_exists;
1684: x_return_status := FND_API.G_RET_STS_ERROR;
1685: FND_MESSAGE.SET_NAME('ASO', 'ASO_FLEX_INVALID_NAME');
1686: FND_MESSAGE.SET_TOKEN('FLEX_NAME',p_desc_flex_name);
1687: FND_MSG_PUB.ADD ;
1688: return;
1712:
1713: FND_MESSAGE.SET_NAME('ASO', 'ASO_DESC_FLEX_INVALID');
1714: FND_MESSAGE.SET_TOKEN('DFF_NAME',p_desc_flex_name);
1715: FND_MSG_PUB.ADD ;
1716: x_return_status := FND_API.G_RET_STS_ERROR;
1717: l_error_msg := FND_FLEX_DESCVAL.error_message;
1718: FND_MESSAGE.SET_NAME('ASO', 'ASO_FLEX_INVALID_MSG');
1719: FND_MESSAGE.SET_TOKEN('MSG_TEXT',l_error_msg);
1720: FND_MSG_PUB.ADD ;
1765: END LOOP;
1766:
1767: EXCEPTION
1768: WHEN OTHERS THEN
1769: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1770: RETURN;
1771:
1772: END Validate_Desc_Flexfield;
1773:
1800: l_termination_date DATE;
1801: BEGIN
1802: -- SAVEPOINT VALIDATE_CUSTACCOUNT_PVT;
1803: -- Initialize message list if p_init_msg_list is set to TRUE.
1804: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1805: FND_MSG_PUB.initialize;
1806: END IF;
1807:
1808: -- Initialize API return status to success
1805: FND_MSG_PUB.initialize;
1806: END IF;
1807:
1808: -- Initialize API return status to success
1809: x_return_status := FND_API.G_RET_STS_SUCCESS;
1810:
1811: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1812: aso_debug_pub.add('Validate_custAcctBsc: p_cust_account_id: '||p_cust_account_id, 1, 'N');
1813: END IF;
1810:
1811: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1812: aso_debug_pub.add('Validate_custAcctBsc: p_cust_account_id: '||p_cust_account_id, 1, 'N');
1813: END IF;
1814: IF (p_cust_account_id IS NOT NULL AND p_cust_account_id <> FND_API.G_MISS_NUM) THEN
1815: OPEN C_Account(p_cust_account_id);
1816: FETCH C_Account INTO l_account_status, l_activation_date, l_termination_date;
1817: IF (C_Account%NOTFOUND OR
1818: (sysdate NOT BETWEEN NVL(l_activation_date, sysdate) AND
1817: IF (C_Account%NOTFOUND OR
1818: (sysdate NOT BETWEEN NVL(l_activation_date, sysdate) AND
1819: NVL(l_termination_date, sysdate))OR
1820: l_account_status <> 'A') THEN
1821: x_return_status := FND_API.G_RET_STS_ERROR;
1822: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1823: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
1824: FND_MESSAGE.Set_Token('COLUMN', 'CUST_ACCOUNT', FALSE);
1825: FND_MESSAGE.Set_Token('VALUE',to_char(p_cust_account_id),FALSE);
1836: aso_debug_pub.add('p_end_cust_account = ' || p_end_cust_account_id , 2, 'N');
1837: END IF;
1838:
1839: IF (p_inv_cust_account_id IS NOT NULL AND
1840: p_inv_cust_account_id <> FND_API.G_MISS_NUM) THEN
1841:
1842: OPEN C_Account(p_inv_cust_account_id);
1843: FETCH C_Account INTO l_account_status, l_activation_date, l_termination_date;
1844: IF (C_Account%NOTFOUND OR
1845: (sysdate NOT BETWEEN NVL(l_activation_date, sysdate) AND
1846: NVL(l_termination_date, sysdate))OR
1847: l_account_status <> 'A') THEN
1848:
1849: x_return_status := FND_API.G_RET_STS_ERROR;
1850: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1851: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
1852: FND_MESSAGE.Set_Token('COLUMN', 'INVOICE_CUST_ACCOUNT', FALSE);
1853: FND_MESSAGE.Set_Token('VALUE',to_char(p_inv_cust_account_id),FALSE);
1858: CLOSE C_Account;
1859: END IF;
1860:
1861: IF (p_end_cust_account_id IS NOT NULL AND
1862: p_end_cust_account_id <> FND_API.G_MISS_NUM) THEN
1863:
1864: OPEN C_Account(p_end_cust_account_id);
1865: FETCH C_Account INTO l_account_status, l_activation_date, l_termination_date;
1866: IF (C_Account%NOTFOUND OR
1867: (sysdate NOT BETWEEN NVL(l_activation_date, sysdate) AND
1868: NVL(l_termination_date, sysdate))OR
1869: l_account_status <> 'A') THEN
1870:
1871: x_return_status := FND_API.G_RET_STS_ERROR;
1872: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1873: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
1874: FND_MESSAGE.Set_Token('COLUMN', 'END_CUST_ACCOUNT', FALSE);
1875: FND_MESSAGE.Set_Token('VALUE',to_char(p_end_cust_account_id),FALSE);
1880: CLOSE C_Account;
1881: END IF;
1882:
1883: IF (p_shp_cust_account_id IS NOT NULL AND
1884: p_shp_cust_account_id <> FND_API.G_MISS_NUM) THEN
1885:
1886: OPEN C_Account(p_shp_cust_account_id);
1887: FETCH C_Account INTO l_account_status, l_activation_date, l_termination_date;
1888: IF (C_Account%NOTFOUND OR
1889: (sysdate NOT BETWEEN NVL(l_activation_date, sysdate) AND
1890: NVL(l_termination_date, sysdate))OR
1891: l_account_status <> 'A') THEN
1892:
1893: x_return_status := FND_API.G_RET_STS_ERROR;
1894: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1895: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
1896: FND_MESSAGE.Set_Token('COLUMN', 'SHIP_CUST_ACCOUNT', FALSE);
1897: FND_MESSAGE.Set_Token('VALUE',to_char(p_shp_cust_account_id),FALSE);
1937: l_party_type VARCHAR2(30);
1938:
1939: BEGIN
1940: -- Initialize message list if p_init_msg_list is set to TRUE.
1941: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1942: FND_MSG_PUB.initialize;
1943: END IF;
1944:
1945: -- Initialize API return status to success
1942: FND_MSG_PUB.initialize;
1943: END IF;
1944:
1945: -- Initialize API return status to success
1946: x_return_status := FND_API.G_RET_STS_SUCCESS;
1947:
1948:
1949: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1950: aso_debug_pub.add('Validate_OrgContBsc: p_contact_id: '||p_contact_id, 1, 'N');
1949: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1950: aso_debug_pub.add('Validate_OrgContBsc: p_contact_id: '||p_contact_id, 1, 'N');
1951: aso_debug_pub.add('Validate_OrgContBsc: p_cust_account_id: '||p_cust_account_id, 1, 'N');
1952: END IF;
1953: IF (p_contact_id IS NOT NULL AND p_contact_id <> FND_API.G_MISS_NUM) THEN
1954: OPEN C_Contact(p_contact_id);
1955: FETCH C_Contact INTO l_subject_id, l_status;
1956: IF (C_Contact%NOTFOUND OR l_status <>'A') THEN
1957:
1954: OPEN C_Contact(p_contact_id);
1955: FETCH C_Contact INTO l_subject_id, l_status;
1956: IF (C_Contact%NOTFOUND OR l_status <>'A') THEN
1957:
1958: x_return_status := FND_API.G_RET_STS_ERROR;
1959: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1960: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
1961: FND_MESSAGE.Set_Token('COLUMN', 'org_contact_id', FALSE);
1962: FND_MESSAGE.Set_Token('VALUE',to_char(p_contact_id),FALSE);
1970: aso_debug_pub.add('Validate_OrgContBsc: l_party_type: '||l_party_type, 1, 'N');
1971: END IF;
1972: IF ( C_Party_Cust%NOTFOUND OR l_status <> 'A' OR l_party_type <> 'PERSON' ) THEN
1973: CLOSE C_Party_Cust;
1974: x_return_status := FND_API.G_RET_STS_ERROR;
1975: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1976: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
1977: FND_MESSAGE.Set_Token('COLUMN', 'org_contact_id', FALSE);
1978: FND_MESSAGE.Set_Token('VALUE',to_char(p_contact_id),FALSE);
2006: l_party_status VARCHAR2(1);
2007:
2008: BEGIN
2009: -- Initialize message list if p_init_msg_list is set to TRUE.
2010: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2011: FND_MSG_PUB.initialize;
2012: END IF;
2013:
2014: -- Initialize API return status to success
2011: FND_MSG_PUB.initialize;
2012: END IF;
2013:
2014: -- Initialize API return status to success
2015: x_return_status := FND_API.G_RET_STS_SUCCESS;
2016:
2017: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2018: aso_debug_pub.add('Validate_PtyBsc: p_party_id: '||p_party_id, 1, 'N');
2019: END IF;
2016:
2017: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2018: aso_debug_pub.add('Validate_PtyBsc: p_party_id: '||p_party_id, 1, 'N');
2019: END IF;
2020: IF (p_party_id IS NOT NULL AND p_party_id <> FND_API.G_MISS_NUM) THEN
2021: OPEN C_Party(p_party_id);
2022: FETCH C_Party INTO l_party_status;
2023: IF (C_Party%NOTFOUND OR l_party_status <> 'A') THEN
2024: CLOSE C_Party;
2021: OPEN C_Party(p_party_id);
2022: FETCH C_Party INTO l_party_status;
2023: IF (C_Party%NOTFOUND OR l_party_status <> 'A') THEN
2024: CLOSE C_Party;
2025: x_return_status := FND_API.G_RET_STS_ERROR;
2026: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2027: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
2028: FND_MESSAGE.Set_Token('COLUMN', 'party_Id', FALSE);
2029: FND_MESSAGE.Set_Token('VALUE',to_char(p_party_id),FALSE);
2058: l_party_status VARCHAR2(1);
2059:
2060: BEGIN
2061: -- Initialize message list if p_init_msg_list is set to TRUE.
2062: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2063: FND_MSG_PUB.initialize;
2064: END IF;
2065:
2066: -- Initialize API return status to success
2063: FND_MSG_PUB.initialize;
2064: END IF;
2065:
2066: -- Initialize API return status to success
2067: x_return_status := FND_API.G_RET_STS_SUCCESS;
2068:
2069: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2070: aso_debug_pub.add('Validate_InvPtyBsc: p_party_id: '||p_party_id, 1, 'N');
2071: aso_debug_pub.add('Validate_InvPtyBsc: p_site_use: '||p_site_use, 1, 'N');
2069: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2070: aso_debug_pub.add('Validate_InvPtyBsc: p_party_id: '||p_party_id, 1, 'N');
2071: aso_debug_pub.add('Validate_InvPtyBsc: p_site_use: '||p_site_use, 1, 'N');
2072: END IF;
2073: IF (p_party_id IS NOT NULL AND p_party_id <> FND_API.G_MISS_NUM) THEN
2074: OPEN C_Party(p_party_id);
2075: FETCH C_Party INTO l_party_status;
2076: IF (C_Party%NOTFOUND OR l_party_status <> 'A') THEN
2077: CLOSE C_Party;
2074: OPEN C_Party(p_party_id);
2075: FETCH C_Party INTO l_party_status;
2076: IF (C_Party%NOTFOUND OR l_party_status <> 'A') THEN
2077: CLOSE C_Party;
2078: x_return_status := FND_API.G_RET_STS_ERROR;
2079: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2080: IF p_site_use ='BILL_TO' THEN
2081: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
2082: FND_MESSAGE.Set_Token('COLUMN', 'Invoice_to_party_Id', FALSE);
2132:
2133: BEGIN
2134:
2135: -- Initialize message list if p_init_msg_list is set to TRUE.
2136: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2137: FND_MSG_PUB.initialize;
2138: END IF;
2139:
2140: -- Initialize API return status to success
2137: FND_MSG_PUB.initialize;
2138: END IF;
2139:
2140: -- Initialize API return status to success
2141: x_return_status := FND_API.G_RET_STS_SUCCESS;
2142:
2143: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2144: aso_debug_pub.add('Validate_InvPtySiteBsc: p_party_id: '||p_party_id, 1, 'N');
2145: aso_debug_pub.add('Validate_InvPtySiteBsc: p_party_site_id: '||p_party_site_id, 1, 'N');
2144: aso_debug_pub.add('Validate_InvPtySiteBsc: p_party_id: '||p_party_id, 1, 'N');
2145: aso_debug_pub.add('Validate_InvPtySiteBsc: p_party_site_id: '||p_party_site_id, 1, 'N');
2146: aso_debug_pub.add('Validate_InvPtySiteBsc: p_party_site_use: '||p_party_site_use, 1, 'N');
2147: END IF;
2148: IF (p_party_id IS NOT NULL AND p_party_id <> FND_API.G_MISS_NUM) THEN
2149: IF (p_party_site_id IS NULL OR p_party_site_id = FND_API.G_MISS_NUM) THEN
2150: x_return_status := FND_API.G_RET_STS_ERROR;
2151: IF p_party_site_use = 'BILL_TO' THEN
2152: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2145: aso_debug_pub.add('Validate_InvPtySiteBsc: p_party_site_id: '||p_party_site_id, 1, 'N');
2146: aso_debug_pub.add('Validate_InvPtySiteBsc: p_party_site_use: '||p_party_site_use, 1, 'N');
2147: END IF;
2148: IF (p_party_id IS NOT NULL AND p_party_id <> FND_API.G_MISS_NUM) THEN
2149: IF (p_party_site_id IS NULL OR p_party_site_id = FND_API.G_MISS_NUM) THEN
2150: x_return_status := FND_API.G_RET_STS_ERROR;
2151: IF p_party_site_use = 'BILL_TO' THEN
2152: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2153: FND_MESSAGE.Set_Name('ASO', 'ASO_BILL_ADDRESS_REQD');
2146: aso_debug_pub.add('Validate_InvPtySiteBsc: p_party_site_use: '||p_party_site_use, 1, 'N');
2147: END IF;
2148: IF (p_party_id IS NOT NULL AND p_party_id <> FND_API.G_MISS_NUM) THEN
2149: IF (p_party_site_id IS NULL OR p_party_site_id = FND_API.G_MISS_NUM) THEN
2150: x_return_status := FND_API.G_RET_STS_ERROR;
2151: IF p_party_site_use = 'BILL_TO' THEN
2152: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2153: FND_MESSAGE.Set_Name('ASO', 'ASO_BILL_ADDRESS_REQD');
2154: FND_MSG_PUB.ADD;
2165: END IF;
2166: END IF;
2167: END IF;
2168: ELSE
2169: IF (p_party_site_id IS NOT NULL AND p_party_site_id <> FND_API.G_MISS_NUM) THEN
2170: OPEN C_Inv_Party_Site(p_party_site_id);
2171: FETCH C_Inv_Party_Site INTO l_status;
2172: IF (C_Inv_Party_Site%NOTFOUND OR
2173: l_status <> 'A') THEN
2170: OPEN C_Inv_Party_Site(p_party_site_id);
2171: FETCH C_Inv_Party_Site INTO l_status;
2172: IF (C_Inv_Party_Site%NOTFOUND OR
2173: l_status <> 'A') THEN
2174: x_return_status := FND_API.G_RET_STS_ERROR;
2175: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2176: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
2177: FND_MESSAGE.Set_Token('COLUMN', 'party_site_id', FALSE);
2178: FND_MESSAGE.Set_Token('VALUE',to_char(p_party_site_id),FALSE);
2242:
2243: BEGIN
2244: --SAVEPOINT Validate_Party_CustAccount;
2245: -- Initialize message list if p_init_msg_list is set to TRUE.
2246: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2247: FND_MSG_PUB.initialize;
2248: END IF;
2249:
2250: -- Initialize API return status to success
2247: FND_MSG_PUB.initialize;
2248: END IF;
2249:
2250: -- Initialize API return status to success
2251: x_return_status := FND_API.G_RET_STS_SUCCESS;
2252:
2253: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2254: aso_debug_pub.add('Validate_PtyCrs: p_party_id: '||p_party_id, 1, 'N');
2255: aso_debug_pub.add('Validate_PtyCrs: p_cust_party_id: '||p_cust_party_id, 1, 'N');
2255: aso_debug_pub.add('Validate_PtyCrs: p_cust_party_id: '||p_cust_party_id, 1, 'N');
2256: aso_debug_pub.add('Validate_PtyCrs: p_cust_account_id: '||p_cust_account_id, 1, 'N');
2257: END IF;
2258:
2259: IF (p_cust_account_id IS NOT NULL AND p_cust_account_id <> FND_API.G_MISS_NUM) THEN
2260: IF (p_cust_party_id IS NOT NULL AND p_cust_party_id <> FND_API.G_MISS_NUM) THEN
2261: OPEN C_Account;
2262: FETCH C_Account INTO l_account_status;
2263: IF (C_Account%NOTFOUND OR l_account_status <> 'A') THEN
2256: aso_debug_pub.add('Validate_PtyCrs: p_cust_account_id: '||p_cust_account_id, 1, 'N');
2257: END IF;
2258:
2259: IF (p_cust_account_id IS NOT NULL AND p_cust_account_id <> FND_API.G_MISS_NUM) THEN
2260: IF (p_cust_party_id IS NOT NULL AND p_cust_party_id <> FND_API.G_MISS_NUM) THEN
2261: OPEN C_Account;
2262: FETCH C_Account INTO l_account_status;
2263: IF (C_Account%NOTFOUND OR l_account_status <> 'A') THEN
2264: x_return_status := FND_API.G_RET_STS_ERROR;
2260: IF (p_cust_party_id IS NOT NULL AND p_cust_party_id <> FND_API.G_MISS_NUM) THEN
2261: OPEN C_Account;
2262: FETCH C_Account INTO l_account_status;
2263: IF (C_Account%NOTFOUND OR l_account_status <> 'A') THEN
2264: x_return_status := FND_API.G_RET_STS_ERROR;
2265: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2266: THEN
2267: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_PARTY_CRS');
2268: FND_MSG_PUB.ADD;
2271: CLOSE C_Account;
2272: END IF;
2273: END IF;
2274:
2275: IF p_party_id IS NOT NULL AND p_party_id <> FND_API.G_MISS_NUM THEN
2276: OPEN C_party(p_party_id);
2277: FETCH C_party into l_party_type;
2278:
2279: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2279: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2280: aso_debug_pub.add('Validate_PtyCrs: l_party_type: '||l_party_type, 1, 'N');
2281: END IF;
2282: IF l_party_type <> 'PARTY_RELATIONSHIP' THEN
2283: IF (p_cust_party_id IS NOT NULL AND p_cust_party_id <> FND_API.G_MISS_NUM) THEN
2284: IF p_party_id <> p_cust_party_id THEN
2285: x_return_status := FND_API.G_RET_STS_ERROR;
2286: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2287: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_PARTY_CRS');
2281: END IF;
2282: IF l_party_type <> 'PARTY_RELATIONSHIP' THEN
2283: IF (p_cust_party_id IS NOT NULL AND p_cust_party_id <> FND_API.G_MISS_NUM) THEN
2284: IF p_party_id <> p_cust_party_id THEN
2285: x_return_status := FND_API.G_RET_STS_ERROR;
2286: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2287: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_PARTY_CRS');
2288: FND_MSG_PUB.ADD;
2289: END IF;
2296: IF l_dummy = 'X' THEN
2297: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2298: aso_debug_pub.add('Validate_PtyCrs: Person_Reltn: '||l_dummy, 1, 'N');
2299: END IF;
2300: x_return_status := FND_API.G_RET_STS_ERROR;
2301: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2302: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_RELATIONSHIP');
2303: FND_MSG_PUB.ADD;
2304: END IF;
2304: END IF;
2305: END IF;
2306: CLOSE C_Person_Reltn;
2307:
2308: IF (p_cust_party_id IS NOT NULL AND p_cust_party_id <> FND_API.G_MISS_NUM) THEN
2309: OPEN C_relation;
2310: FETCH C_relation into l_test;
2311: IF (C_relation%NOTFOUND OR l_test IS NULL) THEN
2312: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2311: IF (C_relation%NOTFOUND OR l_test IS NULL) THEN
2312: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2313: aso_debug_pub.add('Validate_PtyCrs: Cust_Party Relation not found: '||l_test, 1, 'N');
2314: END IF;
2315: x_return_status := FND_API.G_RET_STS_ERROR;
2316: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2317: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_PARTY_CRS');
2318: FND_MSG_PUB.ADD;
2319: END IF;
2320: END IF;
2321: END IF;
2322:
2323: IF (p_cust_account_id IS NOT NULL AND
2324: p_cust_account_id <> FND_API.G_MISS_NUM) THEN
2325: OPEN C_org_reltn;
2326: FETCH C_org_reltn into l_test;
2327: IF (C_org_reltn%NOTFOUND OR l_test IS NULL ) THEN
2328: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2327: IF (C_org_reltn%NOTFOUND OR l_test IS NULL ) THEN
2328: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2329: aso_debug_pub.add('Validate_PtyCrs: Org Relation not found: '||l_test, 1, 'N');
2330: END IF;
2331: x_return_status := FND_API.G_RET_STS_ERROR;
2332: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2333: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_PARTY_CRS');
2334: FND_MSG_PUB.ADD;
2335: END IF;
2406:
2407: BEGIN
2408: --SAVEPOINT Validate_Party_CustAccount;
2409: -- Initialize message list if p_init_msg_list is set to TRUE.
2410: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2411: FND_MSG_PUB.initialize;
2412: END IF;
2413:
2414: -- Initialize API return status to success
2411: FND_MSG_PUB.initialize;
2412: END IF;
2413:
2414: -- Initialize API return status to success
2415: x_return_status := FND_API.G_RET_STS_SUCCESS;
2416: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2417: aso_debug_pub.add('in validate_inv_party_crs',1,'N');
2418: aso_debug_pub.add('Validate_InvPtyCrs: p_inv_party_id = '|| p_inv_party_id ,1,'N');
2419: aso_debug_pub.add('Validate_InvPtyCrs: p_inv_cust_party_id = '|| p_inv_cust_party_id ,1,'N');
2421: aso_debug_pub.add('Validate_InvPtyCrs: p_cust_party_id = '|| p_cust_party_id ,1,'N');
2422: aso_debug_pub.add('Validate_InvPtyCrs: p_cust_account_id = '|| p_cust_account_id ,1,'N');
2423: aso_debug_pub.add('Validate_InvPtyCrs: p_party_id = '|| p_party_id ,1,'N');
2424: END IF;
2425: IF (p_inv_party_id IS NOT NULL AND p_inv_party_id <> FND_API.G_MISS_NUM) THEN
2426: IF (p_inv_cust_party_id IS NOT NULL AND
2427: p_inv_cust_party_id <> FND_API.G_MISS_NUM) THEN
2428: l_party_id := p_inv_cust_party_id;
2429: ELSE
2423: aso_debug_pub.add('Validate_InvPtyCrs: p_party_id = '|| p_party_id ,1,'N');
2424: END IF;
2425: IF (p_inv_party_id IS NOT NULL AND p_inv_party_id <> FND_API.G_MISS_NUM) THEN
2426: IF (p_inv_cust_party_id IS NOT NULL AND
2427: p_inv_cust_party_id <> FND_API.G_MISS_NUM) THEN
2428: l_party_id := p_inv_cust_party_id;
2429: ELSE
2430: IF (p_inv_cust_account_id IS NOT NULL AND
2431: p_inv_cust_account_id <> FND_API.G_MISS_NUM) THEN
2427: p_inv_cust_party_id <> FND_API.G_MISS_NUM) THEN
2428: l_party_id := p_inv_cust_party_id;
2429: ELSE
2430: IF (p_inv_cust_account_id IS NOT NULL AND
2431: p_inv_cust_account_id <> FND_API.G_MISS_NUM) THEN
2432: OPEN C_cust_party_id(p_inv_cust_account_id);
2433: FETCH C_cust_party_id INTO l_party_id;
2434: CLOSE C_cust_party_id;
2435: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2436: aso_debug_pub.add('Validate_InvPtyCrs: 1: l_party_id = '|| l_party_id ,1,'N');
2437: END IF;
2438: ELSE
2439: IF (p_cust_party_id IS NOT NULL AND
2440: p_cust_party_id <> FND_API.G_MISS_NUM) THEN
2441: l_party_id := p_cust_party_id;
2442: ELSE
2443: IF (p_cust_account_id IS NOT NULL AND
2444: p_cust_account_id <> FND_API.G_MISS_NUM) THEN
2440: p_cust_party_id <> FND_API.G_MISS_NUM) THEN
2441: l_party_id := p_cust_party_id;
2442: ELSE
2443: IF (p_cust_account_id IS NOT NULL AND
2444: p_cust_account_id <> FND_API.G_MISS_NUM) THEN
2445: OPEN C_cust_party_id(p_cust_account_id);
2446: FETCH C_cust_party_id INTO l_party_id;
2447: CLOSE C_cust_party_id;
2448: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2449: aso_debug_pub.add('Validate_InvPtyCrs: 2: l_party_id = '|| l_party_id ,1,'N');
2450: END IF;
2451: ELSE
2452: IF (p_party_id IS NOT NULL AND
2453: p_party_id <> FND_API.G_MISS_NUM) THEN
2454: OPEN C_party_type;
2455: FETCH C_party_type into l_party_type;
2456: CLOSE C_party_type;
2457: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2466: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2467: aso_debug_pub.add('Validate_InvPtyCrs: in dummy'||l_dummy,1);
2468: END IF;
2469: IF l_dummy = 'X' THEN
2470: x_return_status := FND_API.G_RET_STS_ERROR;
2471: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2472: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_RELATIONSHIP');
2473: FND_MSG_PUB.ADD;
2474: END IF;
2492:
2493: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2494: aso_debug_pub.add('Validate_InvPtyCrs: 4: l_party_id = '|| l_party_id ,1,'N');
2495: END IF;
2496: IF l_party_id IS NOT NULL AND l_party_id <> FND_API.G_MISS_NUM THEN
2497: IF l_party_id <> p_inv_party_id THEN
2498: OPEN C_val_inv_id(l_party_id);
2499: FETCH C_val_inv_id INTO l_exist;
2500: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2500: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2501: aso_debug_pub.add('Validate_InvPtyCrs: l_exist = ' ||l_exist,1, 'N');
2502: END IF;
2503: IF C_val_inv_id%NOTFOUND or l_exist IS NULL THEN
2504: x_return_status := FND_API.G_RET_STS_ERROR;
2505: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)THEN
2506: IF p_site_use = 'BILL_TO' THEN
2507: FND_MESSAGE.Set_Name('ASO','ASO_VALIDATE_INV_PARTY_PT_CRS');
2508: ELSIF p_site_use = 'END_USER' THEN
2576: l_party_site_object_id number;
2577:
2578: BEGIN
2579: -- Initialize message list if p_init_msg_list is set to TRUE.
2580: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2581: FND_MSG_PUB.initialize;
2582: END IF;
2583: -- Initialize API return status to success
2584: x_return_status := FND_API.G_RET_STS_SUCCESS;
2580: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2581: FND_MSG_PUB.initialize;
2582: END IF;
2583: -- Initialize API return status to success
2584: x_return_status := FND_API.G_RET_STS_SUCCESS;
2585: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2586: aso_debug_pub.add('in validate_inv_party_site_crs',1,'N');
2587: aso_debug_pub.add('Validate_InvPtySiteCrs: validate inv party site- p_party_site_id '||p_party_site_id, 1, 'N');
2588: aso_debug_pub.add('Validate_InvPtySiteCrs: p_inv_party_id = '|| p_inv_party_id ,1,'N');
2592: aso_debug_pub.add('Validate_InvPtySiteCrs: p_cust_account_id = '|| p_cust_account_id ,1,'N');
2593: aso_debug_pub.add('Validate_InvPtySiteCrs: p_party_id = '|| p_party_id ,1,'N');
2594: END IF;
2595:
2596: IF (p_party_site_id IS NOT NULL AND p_party_site_id <> FND_API.G_MISS_NUM) THEN
2597: IF (p_inv_cust_party_id IS NOT NULL AND
2598: p_inv_cust_party_id <> FND_API.G_MISS_NUM) THEN
2599: l_party_id := p_inv_cust_party_id;
2600: ELSE
2594: END IF;
2595:
2596: IF (p_party_site_id IS NOT NULL AND p_party_site_id <> FND_API.G_MISS_NUM) THEN
2597: IF (p_inv_cust_party_id IS NOT NULL AND
2598: p_inv_cust_party_id <> FND_API.G_MISS_NUM) THEN
2599: l_party_id := p_inv_cust_party_id;
2600: ELSE
2601: IF (p_inv_cust_account_id IS NOT NULL AND
2602: p_inv_cust_account_id <> FND_API.G_MISS_NUM) THEN
2598: p_inv_cust_party_id <> FND_API.G_MISS_NUM) THEN
2599: l_party_id := p_inv_cust_party_id;
2600: ELSE
2601: IF (p_inv_cust_account_id IS NOT NULL AND
2602: p_inv_cust_account_id <> FND_API.G_MISS_NUM) THEN
2603: OPEN C_cust_party_id(p_inv_cust_account_id);
2604: FETCH C_cust_party_id INTO l_party_id;
2605: CLOSE C_cust_party_id;
2606: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2607: aso_debug_pub.add('Validate_InvPtySiteCrs: 1: l_party_id = '|| l_party_id ,1,'N');
2608: END IF;
2609: ELSE
2610: IF (p_cust_party_id IS NOT NULL AND
2611: p_cust_party_id <> FND_API.G_MISS_NUM) THEN
2612: l_party_id := p_cust_party_id;
2613: ELSE
2614: IF (p_cust_account_id IS NOT NULL AND
2615: p_cust_account_id <> FND_API.G_MISS_NUM) THEN
2611: p_cust_party_id <> FND_API.G_MISS_NUM) THEN
2612: l_party_id := p_cust_party_id;
2613: ELSE
2614: IF (p_cust_account_id IS NOT NULL AND
2615: p_cust_account_id <> FND_API.G_MISS_NUM) THEN
2616: OPEN C_cust_party_id(p_cust_account_id);
2617: FETCH C_cust_party_id INTO l_party_id;
2618: CLOSE C_cust_party_id;
2619: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2620: aso_debug_pub.add('Validate_InvPtySiteCrs: 2: l_party_id = '|| l_party_id ,1,'N');
2621: END IF;
2622: ELSE
2623: IF (p_party_id IS NOT NULL AND
2624: p_party_id <> FND_API.G_MISS_NUM) THEN
2625: OPEN C_party_type;
2626: FETCH C_party_type into l_party_type;
2627: CLOSE C_party_type;
2628: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2653: aso_debug_pub.add('Validate_InvPtySiteCrs: lp_party_id = ' ||lp_party_id, 1,'N');
2654: aso_debug_pub.add('Validate_InvPtySiteCrs: lp_party_type = ' || lp_party_type, 1 , 'N');
2655: END IF;
2656: IF c_party_site%NOTFOUND THEN
2657: x_return_status := FND_API.G_RET_STS_ERROR;
2658: ELSIF lp_party_type = 'PARTY_RELATIONSHIP' THEN
2659: IF (p_inv_party_id IS NOT NULL AND p_inv_party_id <> FND_API.G_MISS_NUM) THEN
2660: IF p_inv_party_id <> lp_party_id THEN
2661: x_return_status := FND_API.G_RET_STS_ERROR;
2655: END IF;
2656: IF c_party_site%NOTFOUND THEN
2657: x_return_status := FND_API.G_RET_STS_ERROR;
2658: ELSIF lp_party_type = 'PARTY_RELATIONSHIP' THEN
2659: IF (p_inv_party_id IS NOT NULL AND p_inv_party_id <> FND_API.G_MISS_NUM) THEN
2660: IF p_inv_party_id <> lp_party_id THEN
2661: x_return_status := FND_API.G_RET_STS_ERROR;
2662: END IF;
2663: ELSE
2657: x_return_status := FND_API.G_RET_STS_ERROR;
2658: ELSIF lp_party_type = 'PARTY_RELATIONSHIP' THEN
2659: IF (p_inv_party_id IS NOT NULL AND p_inv_party_id <> FND_API.G_MISS_NUM) THEN
2660: IF p_inv_party_id <> lp_party_id THEN
2661: x_return_status := FND_API.G_RET_STS_ERROR;
2662: END IF;
2663: ELSE
2664: OPEN C_relation_object(lp_party_id);
2665: FETCH C_relation_object into l_party_site_object_id;
2667: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2668: aso_debug_pub.add('Validate_InvPtySiteCrs: l_party_site_object_id = ' || l_party_site_object_id,1,'N');
2669: END IF;
2670: IF l_party_site_object_id <> l_party_id THEN
2671: x_return_status := FND_API.G_RET_STS_ERROR;
2672: END IF;
2673: END IF;
2674: ELSE
2675: IF lp_party_id <> l_party_id THEN
2672: END IF;
2673: END IF;
2674: ELSE
2675: IF lp_party_id <> l_party_id THEN
2676: x_return_status := FND_API.G_RET_STS_ERROR;
2677: END IF;
2678: END IF;
2679: CLOSE C_party_site;
2680: END IF;
2681:
2682: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2683: aso_debug_pub.add('Validate_InvPtySiteCrs: x_return_status = ' || x_return_status,1,'N');
2684: END IF;
2685: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2686: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)THEN
2687: IF p_site_usage = 'BILL_TO' THEN
2688: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_INV_SITE_AC_CRS');
2689: ELSIF p_site_usage = 'END_USER' THEN
2736: l_party_status VARCHAR2(1);
2737:
2738: BEGIN
2739: -- Initialize message list if p_init_msg_list is set to TRUE.
2740: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2741: FND_MSG_PUB.initialize;
2742: END IF;
2743:
2744: -- Initialize API return status to success
2741: FND_MSG_PUB.initialize;
2742: END IF;
2743:
2744: -- Initialize API return status to success
2745: x_return_status := FND_API.G_RET_STS_SUCCESS;
2746:
2747:
2748: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2749: aso_debug_pub.add('Validate_OrgConCrs: p_contact_id = ' || p_contact_id,1,'N');
2749: aso_debug_pub.add('Validate_OrgConCrs: p_contact_id = ' || p_contact_id,1,'N');
2750: aso_debug_pub.add('Validate_OrgConCrs: p_cust_account_id = ' || p_cust_account_id,1,'N');
2751: aso_debug_pub.add('Validate_OrgConCrs: p_party_id = ' || p_party_id,1,'N');
2752: END IF;
2753: IF (p_contact_id IS NOT NULL AND p_contact_id <> FND_API.G_MISS_NUM) THEN
2754: OPEN C_Contact;
2755: FETCH C_Contact INTO l_object_id,l_status ;
2756: IF (C_Contact%NOTFOUND OR l_status <> 'A') THEN
2757: x_return_status := FND_API.G_RET_STS_ERROR;
2753: IF (p_contact_id IS NOT NULL AND p_contact_id <> FND_API.G_MISS_NUM) THEN
2754: OPEN C_Contact;
2755: FETCH C_Contact INTO l_object_id,l_status ;
2756: IF (C_Contact%NOTFOUND OR l_status <> 'A') THEN
2757: x_return_status := FND_API.G_RET_STS_ERROR;
2758: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2759: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
2760: FND_MESSAGE.Set_Token('COLUMN', 'Org_contact_id', FALSE);
2761: FND_MESSAGE.Set_Token('VALUE',to_char(p_contact_id),FALSE);
2763: END IF;
2764: END IF;
2765: CLOSE C_Contact;
2766: END IF;
2767: IF (p_cust_account_id IS NOT NULL AND p_cust_account_id <> FND_API.G_MISS_NUM)
2768: AND (p_contact_id IS NOT NULL AND p_contact_id <> FND_API.G_MISS_NUM) THEN
2769: OPEN C_Contact ;
2770: FETCH C_Contact INTO l_object_id,l_status ;
2771: IF C_Contact%FOUND and l_object_id is NOT NULL THEN
2764: END IF;
2765: CLOSE C_Contact;
2766: END IF;
2767: IF (p_cust_account_id IS NOT NULL AND p_cust_account_id <> FND_API.G_MISS_NUM)
2768: AND (p_contact_id IS NOT NULL AND p_contact_id <> FND_API.G_MISS_NUM) THEN
2769: OPEN C_Contact ;
2770: FETCH C_Contact INTO l_object_id,l_status ;
2771: IF C_Contact%FOUND and l_object_id is NOT NULL THEN
2772: OPEN C_Cust_account(l_object_id);
2771: IF C_Contact%FOUND and l_object_id is NOT NULL THEN
2772: OPEN C_Cust_account(l_object_id);
2773: FETCH C_Cust_account INTO l_acct_status ;
2774: IF C_Cust_account%NOTFOUND or l_acct_status <>'A' THEN
2775: x_return_status := FND_API.G_RET_STS_ERROR;
2776: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2777: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_ORG_CON_ACT_CRS');
2778: -- FND_MESSAGE.Set_Name('ASO', 'INVALID_OBJECT_PARTY_ID');
2779:
2787: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2788: aso_debug_pub.add('Validate_OrgConCrs: x_return_status = ' || x_return_status,1,'N');
2789: END IF;
2790: ELSE
2791: IF (p_party_id IS NOT NULL AND p_party_id <> FND_API.G_MISS_NUM)
2792: AND (p_contact_id IS NOT NULL AND p_contact_id <> FND_API.G_MISS_NUM) THEN
2793: OPEN C_Contact;
2794: FETCH C_Contact INTO l_object_id,l_status ;
2795: IF (C_Contact%NOTFOUND OR l_status <> 'A') THEN
2788: aso_debug_pub.add('Validate_OrgConCrs: x_return_status = ' || x_return_status,1,'N');
2789: END IF;
2790: ELSE
2791: IF (p_party_id IS NOT NULL AND p_party_id <> FND_API.G_MISS_NUM)
2792: AND (p_contact_id IS NOT NULL AND p_contact_id <> FND_API.G_MISS_NUM) THEN
2793: OPEN C_Contact;
2794: FETCH C_Contact INTO l_object_id,l_status ;
2795: IF (C_Contact%NOTFOUND OR l_status <> 'A') THEN
2796:
2793: OPEN C_Contact;
2794: FETCH C_Contact INTO l_object_id,l_status ;
2795: IF (C_Contact%NOTFOUND OR l_status <> 'A') THEN
2796:
2797: x_return_status := FND_API.G_RET_STS_ERROR;
2798: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2799:
2800: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_ORG_CON_PTY_CRS');
2801:
2833: p_qte_header_rec IN ASO_QUOTE_PUB.Qte_Header_Rec_Type :=
2834: ASO_QUOTE_PUB.G_Miss_Qte_Header_Rec,
2835: p_shipment_rec IN ASO_QUOTE_PUB.shipment_rec_type :=
2836: ASO_QUOTE_PUB.G_MISS_SHIPMENT_REC,
2837: p_operation_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2838: p_application_type_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2839: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
2840: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
2841: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
2834: ASO_QUOTE_PUB.G_Miss_Qte_Header_Rec,
2835: p_shipment_rec IN ASO_QUOTE_PUB.shipment_rec_type :=
2836: ASO_QUOTE_PUB.G_MISS_SHIPMENT_REC,
2837: p_operation_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2838: p_application_type_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2839: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
2840: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
2841: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
2842: IS
2860:
2861: BEGIN
2862: SAVEPOINT VALIDATE_ITEM_TCA_BSC_PVT;
2863: -- Initialize message list if p_init_msg_list is set to TRUE.
2864: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2865: FND_MSG_PUB.initialize;
2866: END IF;
2867:
2868: -- Initialize API return status to success
2865: FND_MSG_PUB.initialize;
2866: END IF;
2867:
2868: -- Initialize API return status to success
2869: x_return_status := FND_API.G_RET_STS_SUCCESS;
2870:
2871: /** Changes for OA uptake **/
2872: lp_qte_header_rec := p_qte_header_rec;
2873: lp_shipment_rec := p_shipment_rec;
2879:
2880: IF (p_application_type_code = 'QUOTING HTML' AND p_operation_code = 'UPDATE') THEN
2881: l_qte_header_rec := ASO_UTILITY_PVT.query_header_row (lp_qte_header_rec.quote_header_id);
2882:
2883: IF lp_qte_header_rec.party_id = FND_API.G_MISS_NUM THEN
2884: lp_qte_header_rec.party_id := l_qte_header_rec.party_id;
2885: END IF;
2886: IF lp_qte_header_rec.cust_party_id = FND_API.G_MISS_NUM THEN
2887: lp_qte_header_rec.cust_party_id := l_qte_header_rec.cust_party_id;
2882:
2883: IF lp_qte_header_rec.party_id = FND_API.G_MISS_NUM THEN
2884: lp_qte_header_rec.party_id := l_qte_header_rec.party_id;
2885: END IF;
2886: IF lp_qte_header_rec.cust_party_id = FND_API.G_MISS_NUM THEN
2887: lp_qte_header_rec.cust_party_id := l_qte_header_rec.cust_party_id;
2888: END IF;
2889: IF lp_qte_header_rec.invoice_to_cust_party_id = FND_API.G_MISS_NUM THEN
2890: lp_qte_header_rec.invoice_to_cust_party_id := l_qte_header_rec.invoice_to_cust_party_id;
2885: END IF;
2886: IF lp_qte_header_rec.cust_party_id = FND_API.G_MISS_NUM THEN
2887: lp_qte_header_rec.cust_party_id := l_qte_header_rec.cust_party_id;
2888: END IF;
2889: IF lp_qte_header_rec.invoice_to_cust_party_id = FND_API.G_MISS_NUM THEN
2890: lp_qte_header_rec.invoice_to_cust_party_id := l_qte_header_rec.invoice_to_cust_party_id;
2891: END IF;
2892: IF lp_qte_header_rec.End_Customer_cust_party_id = FND_API.G_MISS_NUM THEN
2893: lp_qte_header_rec.End_Customer_cust_party_id := l_qte_header_rec.End_Customer_cust_party_id;
2888: END IF;
2889: IF lp_qte_header_rec.invoice_to_cust_party_id = FND_API.G_MISS_NUM THEN
2890: lp_qte_header_rec.invoice_to_cust_party_id := l_qte_header_rec.invoice_to_cust_party_id;
2891: END IF;
2892: IF lp_qte_header_rec.End_Customer_cust_party_id = FND_API.G_MISS_NUM THEN
2893: lp_qte_header_rec.End_Customer_cust_party_id := l_qte_header_rec.End_Customer_cust_party_id;
2894: END IF;
2895: IF lp_qte_header_rec.cust_account_id = FND_API.G_MISS_NUM THEN
2896: lp_qte_header_rec.cust_account_id := l_qte_header_rec.cust_account_id;
2891: END IF;
2892: IF lp_qte_header_rec.End_Customer_cust_party_id = FND_API.G_MISS_NUM THEN
2893: lp_qte_header_rec.End_Customer_cust_party_id := l_qte_header_rec.End_Customer_cust_party_id;
2894: END IF;
2895: IF lp_qte_header_rec.cust_account_id = FND_API.G_MISS_NUM THEN
2896: lp_qte_header_rec.cust_account_id := l_qte_header_rec.cust_account_id;
2897: END IF;
2898: IF lp_qte_header_rec.invoice_to_cust_account_id = FND_API.G_MISS_NUM THEN
2899: lp_qte_header_rec.invoice_to_cust_account_id := l_qte_header_rec.invoice_to_cust_account_id;
2894: END IF;
2895: IF lp_qte_header_rec.cust_account_id = FND_API.G_MISS_NUM THEN
2896: lp_qte_header_rec.cust_account_id := l_qte_header_rec.cust_account_id;
2897: END IF;
2898: IF lp_qte_header_rec.invoice_to_cust_account_id = FND_API.G_MISS_NUM THEN
2899: lp_qte_header_rec.invoice_to_cust_account_id := l_qte_header_rec.invoice_to_cust_account_id;
2900: END IF;
2901: IF lp_qte_header_rec.End_Customer_cust_account_id = FND_API.G_MISS_NUM THEN
2902: lp_qte_header_rec.End_Customer_cust_account_id := l_qte_header_rec.End_Customer_cust_account_id;
2897: END IF;
2898: IF lp_qte_header_rec.invoice_to_cust_account_id = FND_API.G_MISS_NUM THEN
2899: lp_qte_header_rec.invoice_to_cust_account_id := l_qte_header_rec.invoice_to_cust_account_id;
2900: END IF;
2901: IF lp_qte_header_rec.End_Customer_cust_account_id = FND_API.G_MISS_NUM THEN
2902: lp_qte_header_rec.End_Customer_cust_account_id := l_qte_header_rec.End_Customer_cust_account_id;
2903: END IF;
2904: IF lp_qte_header_rec.org_contact_id = FND_API.G_MISS_NUM THEN
2905: lp_qte_header_rec.org_contact_id := l_qte_header_rec.org_contact_id;
2900: END IF;
2901: IF lp_qte_header_rec.End_Customer_cust_account_id = FND_API.G_MISS_NUM THEN
2902: lp_qte_header_rec.End_Customer_cust_account_id := l_qte_header_rec.End_Customer_cust_account_id;
2903: END IF;
2904: IF lp_qte_header_rec.org_contact_id = FND_API.G_MISS_NUM THEN
2905: lp_qte_header_rec.org_contact_id := l_qte_header_rec.org_contact_id;
2906: END IF;
2907: IF lp_qte_header_rec.invoice_to_party_id = FND_API.G_MISS_NUM THEN
2908: lp_qte_header_rec.invoice_to_party_id := l_qte_header_rec.invoice_to_party_id;
2903: END IF;
2904: IF lp_qte_header_rec.org_contact_id = FND_API.G_MISS_NUM THEN
2905: lp_qte_header_rec.org_contact_id := l_qte_header_rec.org_contact_id;
2906: END IF;
2907: IF lp_qte_header_rec.invoice_to_party_id = FND_API.G_MISS_NUM THEN
2908: lp_qte_header_rec.invoice_to_party_id := l_qte_header_rec.invoice_to_party_id;
2909: END IF;
2910: IF lp_qte_header_rec.End_Customer_party_id = FND_API.G_MISS_NUM THEN
2911: lp_qte_header_rec.End_Customer_party_id := l_qte_header_rec.End_Customer_party_id;
2906: END IF;
2907: IF lp_qte_header_rec.invoice_to_party_id = FND_API.G_MISS_NUM THEN
2908: lp_qte_header_rec.invoice_to_party_id := l_qte_header_rec.invoice_to_party_id;
2909: END IF;
2910: IF lp_qte_header_rec.End_Customer_party_id = FND_API.G_MISS_NUM THEN
2911: lp_qte_header_rec.End_Customer_party_id := l_qte_header_rec.End_Customer_party_id;
2912: END IF;
2913: IF lp_qte_header_rec.invoice_to_party_site_id = FND_API.G_MISS_NUM THEN
2914: lp_qte_header_rec.invoice_to_party_site_id := l_qte_header_rec.invoice_to_party_site_id;
2909: END IF;
2910: IF lp_qte_header_rec.End_Customer_party_id = FND_API.G_MISS_NUM THEN
2911: lp_qte_header_rec.End_Customer_party_id := l_qte_header_rec.End_Customer_party_id;
2912: END IF;
2913: IF lp_qte_header_rec.invoice_to_party_site_id = FND_API.G_MISS_NUM THEN
2914: lp_qte_header_rec.invoice_to_party_site_id := l_qte_header_rec.invoice_to_party_site_id;
2915: END IF;
2916: IF lp_qte_header_rec.End_Customer_party_site_id = FND_API.G_MISS_NUM THEN
2917: lp_qte_header_rec.End_Customer_party_site_id := l_qte_header_rec.End_Customer_party_site_id;
2912: END IF;
2913: IF lp_qte_header_rec.invoice_to_party_site_id = FND_API.G_MISS_NUM THEN
2914: lp_qte_header_rec.invoice_to_party_site_id := l_qte_header_rec.invoice_to_party_site_id;
2915: END IF;
2916: IF lp_qte_header_rec.End_Customer_party_site_id = FND_API.G_MISS_NUM THEN
2917: lp_qte_header_rec.End_Customer_party_site_id := l_qte_header_rec.End_Customer_party_site_id;
2918: END IF;
2919: IF lp_qte_header_rec.sold_to_party_site_id = FND_API.G_MISS_NUM THEN
2920: lp_qte_header_rec.sold_to_party_site_id := l_qte_header_rec.sold_to_party_site_id;
2915: END IF;
2916: IF lp_qte_header_rec.End_Customer_party_site_id = FND_API.G_MISS_NUM THEN
2917: lp_qte_header_rec.End_Customer_party_site_id := l_qte_header_rec.End_Customer_party_site_id;
2918: END IF;
2919: IF lp_qte_header_rec.sold_to_party_site_id = FND_API.G_MISS_NUM THEN
2920: lp_qte_header_rec.sold_to_party_site_id := l_qte_header_rec.sold_to_party_site_id;
2921: END IF;
2922:
2923: IF lp_shipment_rec.operation_code = 'UPDATE' THEN
2920: lp_qte_header_rec.sold_to_party_site_id := l_qte_header_rec.sold_to_party_site_id;
2921: END IF;
2922:
2923: IF lp_shipment_rec.operation_code = 'UPDATE' THEN
2924: IF lp_shipment_rec.shipment_id IS NOT NULL AND lp_shipment_rec.shipment_id <> FND_API.G_MISS_NUM THEN
2925: l_shipment_rec := ASO_UTILITY_PVT.query_shipment_row (lp_shipment_rec.shipment_id);
2926: IF lp_shipment_rec.ship_to_cust_party_id = FND_API.G_MISS_NUM THEN
2927: lp_shipment_rec.ship_to_cust_party_id := l_shipment_rec.ship_to_cust_party_id;
2928: END IF;
2922:
2923: IF lp_shipment_rec.operation_code = 'UPDATE' THEN
2924: IF lp_shipment_rec.shipment_id IS NOT NULL AND lp_shipment_rec.shipment_id <> FND_API.G_MISS_NUM THEN
2925: l_shipment_rec := ASO_UTILITY_PVT.query_shipment_row (lp_shipment_rec.shipment_id);
2926: IF lp_shipment_rec.ship_to_cust_party_id = FND_API.G_MISS_NUM THEN
2927: lp_shipment_rec.ship_to_cust_party_id := l_shipment_rec.ship_to_cust_party_id;
2928: END IF;
2929: IF lp_shipment_rec.ship_to_cust_account_id = FND_API.G_MISS_NUM THEN
2930: lp_shipment_rec.ship_to_cust_account_id := l_shipment_rec.ship_to_cust_account_id;
2925: l_shipment_rec := ASO_UTILITY_PVT.query_shipment_row (lp_shipment_rec.shipment_id);
2926: IF lp_shipment_rec.ship_to_cust_party_id = FND_API.G_MISS_NUM THEN
2927: lp_shipment_rec.ship_to_cust_party_id := l_shipment_rec.ship_to_cust_party_id;
2928: END IF;
2929: IF lp_shipment_rec.ship_to_cust_account_id = FND_API.G_MISS_NUM THEN
2930: lp_shipment_rec.ship_to_cust_account_id := l_shipment_rec.ship_to_cust_account_id;
2931: END IF;
2932: IF lp_shipment_rec.ship_to_party_id = FND_API.G_MISS_NUM THEN
2933: lp_shipment_rec.ship_to_party_id := l_shipment_rec.ship_to_party_id;
2928: END IF;
2929: IF lp_shipment_rec.ship_to_cust_account_id = FND_API.G_MISS_NUM THEN
2930: lp_shipment_rec.ship_to_cust_account_id := l_shipment_rec.ship_to_cust_account_id;
2931: END IF;
2932: IF lp_shipment_rec.ship_to_party_id = FND_API.G_MISS_NUM THEN
2933: lp_shipment_rec.ship_to_party_id := l_shipment_rec.ship_to_party_id;
2934: END IF;
2935: IF lp_shipment_rec.ship_to_party_site_id = FND_API.G_MISS_NUM THEN
2936: lp_shipment_rec.ship_to_party_site_id := l_shipment_rec.ship_to_party_site_id;
2931: END IF;
2932: IF lp_shipment_rec.ship_to_party_id = FND_API.G_MISS_NUM THEN
2933: lp_shipment_rec.ship_to_party_id := l_shipment_rec.ship_to_party_id;
2934: END IF;
2935: IF lp_shipment_rec.ship_to_party_site_id = FND_API.G_MISS_NUM THEN
2936: lp_shipment_rec.ship_to_party_site_id := l_shipment_rec.ship_to_party_site_id;
2937: END IF;
2938: END IF;
2939: END IF;
2948: p_party_id => lp_qte_header_rec.party_id,
2949: x_return_status => x_return_status,
2950: x_msg_count => x_msg_count,
2951: x_msg_data => x_msg_data);
2952: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2953: RAISE FND_API.G_EXC_ERROR;
2954: END IF;
2955: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2956: aso_debug_pub.add('Validate_ItemTcaBsc: party_id: x_return_status: ' || x_return_status,1,'N');
2949: x_return_status => x_return_status,
2950: x_msg_count => x_msg_count,
2951: x_msg_data => x_msg_data);
2952: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2953: RAISE FND_API.G_EXC_ERROR;
2954: END IF;
2955: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2956: aso_debug_pub.add('Validate_ItemTcaBsc: party_id: x_return_status: ' || x_return_status,1,'N');
2957: END IF;
2961: p_party_id => lp_qte_header_rec.cust_party_id,
2962: x_return_status => x_return_status,
2963: x_msg_count => x_msg_count,
2964: x_msg_data => x_msg_data);
2965: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2966: RAISE FND_API.G_EXC_ERROR;
2967: END IF;
2968: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2969: aso_debug_pub.add('Validate_ItemTcaBsc: cust_party_id: x_return_status: ' || x_return_status,1,'N');
2962: x_return_status => x_return_status,
2963: x_msg_count => x_msg_count,
2964: x_msg_data => x_msg_data);
2965: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2966: RAISE FND_API.G_EXC_ERROR;
2967: END IF;
2968: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2969: aso_debug_pub.add('Validate_ItemTcaBsc: cust_party_id: x_return_status: ' || x_return_status,1,'N');
2970: END IF;
2974: p_party_id => lp_qte_header_rec.invoice_to_cust_party_id,
2975: x_return_status => x_return_status,
2976: x_msg_count => x_msg_count,
2977: x_msg_data => x_msg_data);
2978: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2979: RAISE FND_API.G_EXC_ERROR;
2980: END IF;
2981: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2982: aso_debug_pub.add('Validate_ItemTcaBsc: inv_cust_party_id: x_return_status: ' || x_return_status,1,'N');
2975: x_return_status => x_return_status,
2976: x_msg_count => x_msg_count,
2977: x_msg_data => x_msg_data);
2978: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2979: RAISE FND_API.G_EXC_ERROR;
2980: END IF;
2981: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2982: aso_debug_pub.add('Validate_ItemTcaBsc: inv_cust_party_id: x_return_status: ' || x_return_status,1,'N');
2983: END IF;
2987: p_party_id => lp_qte_header_rec.End_Customer_cust_party_id,
2988: x_return_status => x_return_status,
2989: x_msg_count => x_msg_count,
2990: x_msg_data => x_msg_data);
2991: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2992: RAISE FND_API.G_EXC_ERROR;
2993: END IF;
2994: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2995: aso_debug_pub.add('Validate_ItemTcaBsc: end_cust_party_id: x_return_status: ' || x_return_status,1,'N');
2988: x_return_status => x_return_status,
2989: x_msg_count => x_msg_count,
2990: x_msg_data => x_msg_data);
2991: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2992: RAISE FND_API.G_EXC_ERROR;
2993: END IF;
2994: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2995: aso_debug_pub.add('Validate_ItemTcaBsc: end_cust_party_id: x_return_status: ' || x_return_status,1,'N');
2996: END IF;
3000: p_party_id => lp_shipment_rec.ship_to_cust_party_id,
3001: x_return_status => x_return_status,
3002: x_msg_count => x_msg_count,
3003: x_msg_data => x_msg_data);
3004: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3005: RAISE FND_API.G_EXC_ERROR;
3006: END IF;
3007: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3008: aso_debug_pub.add('Validate_ItemTcaBsc: shp_cust_party_id: x_return_status: ' || x_return_status,1,'N');
3001: x_return_status => x_return_status,
3002: x_msg_count => x_msg_count,
3003: x_msg_data => x_msg_data);
3004: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3005: RAISE FND_API.G_EXC_ERROR;
3006: END IF;
3007: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3008: aso_debug_pub.add('Validate_ItemTcaBsc: shp_cust_party_id: x_return_status: ' || x_return_status,1,'N');
3009: END IF;
3018: p_shp_cust_account_id => lp_shipment_rec.ship_to_cust_account_id,
3019: x_return_status => x_return_status,
3020: x_msg_count => x_msg_count,
3021: x_msg_data => x_msg_data);
3022: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3023: RAISE FND_API.G_EXC_ERROR;
3024: END IF;
3025: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3026: aso_debug_pub.add('Validate_ItemTcaBsc: custAcctBsc: x_return_status: ' || x_return_status,1,'N');
3019: x_return_status => x_return_status,
3020: x_msg_count => x_msg_count,
3021: x_msg_data => x_msg_data);
3022: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3023: RAISE FND_API.G_EXC_ERROR;
3024: END IF;
3025: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3026: aso_debug_pub.add('Validate_ItemTcaBsc: custAcctBsc: x_return_status: ' || x_return_status,1,'N');
3027: END IF;
3032: p_cust_account_id => lp_qte_header_rec.cust_account_id,
3033: x_return_status => x_return_status,
3034: x_msg_count => x_msg_count,
3035: x_msg_data => x_msg_data);
3036: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3037: RAISE FND_API.G_EXC_ERROR;
3038: END IF;
3039: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3040: aso_debug_pub.add('Validate_ItemTcaBsc: OrgConBsc: x_return_status: ' || x_return_status,1,'N');
3033: x_return_status => x_return_status,
3034: x_msg_count => x_msg_count,
3035: x_msg_data => x_msg_data);
3036: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3037: RAISE FND_API.G_EXC_ERROR;
3038: END IF;
3039: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3040: aso_debug_pub.add('Validate_ItemTcaBsc: OrgConBsc: x_return_status: ' || x_return_status,1,'N');
3041: END IF;
3047: p_site_use => 'BILL_TO',
3048: x_return_status => x_return_status,
3049: x_msg_count => x_msg_count,
3050: x_msg_data => x_msg_data);
3051: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3052: RAISE FND_API.G_EXC_ERROR;
3053: END IF;
3054: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3055: aso_debug_pub.add('Validate_ItemTcaBsc: InvPty: BillTo: x_return_status: ' || x_return_status,1,'N');
3048: x_return_status => x_return_status,
3049: x_msg_count => x_msg_count,
3050: x_msg_data => x_msg_data);
3051: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3052: RAISE FND_API.G_EXC_ERROR;
3053: END IF;
3054: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3055: aso_debug_pub.add('Validate_ItemTcaBsc: InvPty: BillTo: x_return_status: ' || x_return_status,1,'N');
3056: END IF;
3061: p_site_use => 'END_USER',
3062: x_return_status => x_return_status,
3063: x_msg_count => x_msg_count,
3064: x_msg_data => x_msg_data);
3065: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3066: RAISE FND_API.G_EXC_ERROR;
3067: END IF;
3068: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3069: aso_debug_pub.add('Validate_ItemTcaBsc: InvPty: EndUser: x_return_status: ' || x_return_status,1,'N');
3062: x_return_status => x_return_status,
3063: x_msg_count => x_msg_count,
3064: x_msg_data => x_msg_data);
3065: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3066: RAISE FND_API.G_EXC_ERROR;
3067: END IF;
3068: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3069: aso_debug_pub.add('Validate_ItemTcaBsc: InvPty: EndUser: x_return_status: ' || x_return_status,1,'N');
3070: END IF;
3075: p_site_use => 'SHIP_TO',
3076: x_return_status => x_return_status,
3077: x_msg_count => x_msg_count,
3078: x_msg_data => x_msg_data);
3079: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3080: RAISE FND_API.G_EXC_ERROR;
3081: END IF;
3082: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3083: aso_debug_pub.add('Validate_ItemTcaBsc: InvPty: ShipTo: x_return_status: ' || x_return_status,1,'N');
3076: x_return_status => x_return_status,
3077: x_msg_count => x_msg_count,
3078: x_msg_data => x_msg_data);
3079: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3080: RAISE FND_API.G_EXC_ERROR;
3081: END IF;
3082: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3083: aso_debug_pub.add('Validate_ItemTcaBsc: InvPty: ShipTo: x_return_status: ' || x_return_status,1,'N');
3084: aso_debug_pub.add('before Validate_Inv_PartySite_bsc:lp_qte_header_rec.invoice_to_cust_party_id: '||p_qte_header_rec.invoice_to_cust_party_id, 1, 'Y');
3092: p_party_site_use => 'BILL_TO',
3093: x_return_status => x_return_status,
3094: x_msg_count => x_msg_count,
3095: x_msg_data => x_msg_data);
3096: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3097: RAISE FND_API.G_EXC_ERROR;
3098: END IF;
3099: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3100: aso_debug_pub.add('Validate_ItemTcaBsc: InvPtySite: ShipTo: x_return_status: ' || x_return_status,1,'N');
3093: x_return_status => x_return_status,
3094: x_msg_count => x_msg_count,
3095: x_msg_data => x_msg_data);
3096: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3097: RAISE FND_API.G_EXC_ERROR;
3098: END IF;
3099: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3100: aso_debug_pub.add('Validate_ItemTcaBsc: InvPtySite: ShipTo: x_return_status: ' || x_return_status,1,'N');
3101: aso_debug_pub.add('before Validate_Inv_PartySite_bsc:lp_qte_header_rec.End_Customer_cust_party_id: '||p_qte_header_rec.End_Customer_cust_party_id, 1, 'Y');
3109: p_party_site_use => 'END_USER',
3110: x_return_status => x_return_status,
3111: x_msg_count => x_msg_count,
3112: x_msg_data => x_msg_data);
3113: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3114: RAISE FND_API.G_EXC_ERROR;
3115: END IF;
3116: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3117: aso_debug_pub.add('Validate_ItemTcaBsc: InvPtySite: ShipTo: x_return_status: ' || x_return_status,1,'N');
3110: x_return_status => x_return_status,
3111: x_msg_count => x_msg_count,
3112: x_msg_data => x_msg_data);
3113: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3114: RAISE FND_API.G_EXC_ERROR;
3115: END IF;
3116: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3117: aso_debug_pub.add('Validate_ItemTcaBsc: InvPtySite: ShipTo: x_return_status: ' || x_return_status,1,'N');
3118: aso_debug_pub.add('before Validate_Inv_PartySite_bsc:lp_shipment_rec.ship_to_cust_party_id: '||p_shipment_rec.ship_to_cust_party_id, 1, 'Y');
3126: p_party_site_use => 'SHIP_TO',
3127: x_return_status => x_return_status,
3128: x_msg_count => x_msg_count,
3129: x_msg_data => x_msg_data);
3130: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3131: RAISE FND_API.G_EXC_ERROR;
3132: END IF;
3133: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3134: aso_debug_pub.add('Validate_ItemTcaBsc: InvPtySite: ShipTo: x_return_status: ' || x_return_status,1,'N');
3127: x_return_status => x_return_status,
3128: x_msg_count => x_msg_count,
3129: x_msg_data => x_msg_data);
3130: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3131: RAISE FND_API.G_EXC_ERROR;
3132: END IF;
3133: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3134: aso_debug_pub.add('Validate_ItemTcaBsc: InvPtySite: ShipTo: x_return_status: ' || x_return_status,1,'N');
3135: END IF;
3135: END IF;
3136:
3137: -- Sold_to
3138: IF lp_qte_header_rec.sold_to_party_site_id IS NOT NULL
3139: AND lp_qte_header_rec.sold_to_party_site_id <> FND_API.G_MISS_NUM THEN
3140: IF lp_qte_header_rec.org_contact_id IS NOT NULL
3141: AND lp_qte_header_rec.org_contact_id <> FND_API.G_MISS_NUM THEN
3142: OPEN C_Get_Party_From_Org(lp_qte_header_rec.org_contact_id);
3143: FETCH C_Get_Party_From_Org INTO l_party_id;
3137: -- Sold_to
3138: IF lp_qte_header_rec.sold_to_party_site_id IS NOT NULL
3139: AND lp_qte_header_rec.sold_to_party_site_id <> FND_API.G_MISS_NUM THEN
3140: IF lp_qte_header_rec.org_contact_id IS NOT NULL
3141: AND lp_qte_header_rec.org_contact_id <> FND_API.G_MISS_NUM THEN
3142: OPEN C_Get_Party_From_Org(lp_qte_header_rec.org_contact_id);
3143: FETCH C_Get_Party_From_Org INTO l_party_id;
3144: CLOSE C_Get_Party_From_Org;
3145: ELSE
3156: p_party_site_use => 'SOLD_TO',
3157: x_return_status => x_return_status,
3158: x_msg_count => x_msg_count,
3159: x_msg_data => x_msg_data);
3160: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3161: RAISE FND_API.G_EXC_ERROR;
3162: END IF;
3163: END IF;
3164: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3157: x_return_status => x_return_status,
3158: x_msg_count => x_msg_count,
3159: x_msg_data => x_msg_data);
3160: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3161: RAISE FND_API.G_EXC_ERROR;
3162: END IF;
3163: END IF;
3164: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3165: aso_debug_pub.add('Validate_ItemTcaBsc: InvPtySite: SoldTo: x_return_status: ' || x_return_status,1,'N');
3171: p_data => x_msg_data
3172: );
3173:
3174: EXCEPTION
3175: WHEN FND_API.G_EXC_ERROR THEN
3176: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
3177: P_API_NAME => L_API_NAME
3178: ,P_PKG_NAME => G_PKG_NAME
3179: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
3183: ,X_MSG_COUNT => X_MSG_COUNT
3184: ,X_MSG_DATA => X_MSG_DATA
3185: ,X_RETURN_STATUS => X_RETURN_STATUS);
3186:
3187: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3188: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
3189: P_API_NAME => L_API_NAME
3190: ,P_PKG_NAME => G_PKG_NAME
3191: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
3216: p_qte_header_rec IN ASO_QUOTE_PUB.Qte_Header_Rec_Type :=
3217: ASO_QUOTE_PUB.G_Miss_Qte_Header_Rec,
3218: p_shipment_rec IN ASO_QUOTE_PUB.shipment_rec_type :=
3219: ASO_QUOTE_PUB.G_MISS_SHIPMENT_REC,
3220: p_operation_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
3221: p_application_type_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
3222: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
3223: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
3224: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
3217: ASO_QUOTE_PUB.G_Miss_Qte_Header_Rec,
3218: p_shipment_rec IN ASO_QUOTE_PUB.shipment_rec_type :=
3219: ASO_QUOTE_PUB.G_MISS_SHIPMENT_REC,
3220: p_operation_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
3221: p_application_type_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
3222: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
3223: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
3224: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
3225: IS
3245: BEGIN
3246: SAVEPOINT VALIDATE_RECORD_TCA_CRS_PVT;
3247:
3248: -- Initialize message list if p_init_msg_list is set to TRUE.
3249: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3250: FND_MSG_PUB.initialize;
3251: END IF;
3252:
3253: /** Changes for OA uptake **/
3261:
3262: IF (p_application_type_code = 'QUOTING HTML' AND p_operation_code = 'UPDATE') THEN
3263: l_qte_header_rec := ASO_UTILITY_PVT.query_header_row (lp_qte_header_rec.quote_header_id);
3264:
3265: IF lp_qte_header_rec.party_id = FND_API.G_MISS_NUM THEN
3266: lp_qte_header_rec.party_id := l_qte_header_rec.party_id;
3267: END IF;
3268: IF lp_qte_header_rec.cust_party_id = FND_API.G_MISS_NUM THEN
3269: lp_qte_header_rec.cust_party_id := l_qte_header_rec.cust_party_id;
3264:
3265: IF lp_qte_header_rec.party_id = FND_API.G_MISS_NUM THEN
3266: lp_qte_header_rec.party_id := l_qte_header_rec.party_id;
3267: END IF;
3268: IF lp_qte_header_rec.cust_party_id = FND_API.G_MISS_NUM THEN
3269: lp_qte_header_rec.cust_party_id := l_qte_header_rec.cust_party_id;
3270: END IF;
3271: IF lp_qte_header_rec.invoice_to_cust_party_id = FND_API.G_MISS_NUM THEN
3272: lp_qte_header_rec.invoice_to_cust_party_id := l_qte_header_rec.invoice_to_cust_party_id;
3267: END IF;
3268: IF lp_qte_header_rec.cust_party_id = FND_API.G_MISS_NUM THEN
3269: lp_qte_header_rec.cust_party_id := l_qte_header_rec.cust_party_id;
3270: END IF;
3271: IF lp_qte_header_rec.invoice_to_cust_party_id = FND_API.G_MISS_NUM THEN
3272: lp_qte_header_rec.invoice_to_cust_party_id := l_qte_header_rec.invoice_to_cust_party_id;
3273: END IF;
3274: IF lp_qte_header_rec.End_Customer_cust_party_id = FND_API.G_MISS_NUM THEN
3275: lp_qte_header_rec.End_Customer_cust_party_id := l_qte_header_rec.End_Customer_cust_party_id;
3270: END IF;
3271: IF lp_qte_header_rec.invoice_to_cust_party_id = FND_API.G_MISS_NUM THEN
3272: lp_qte_header_rec.invoice_to_cust_party_id := l_qte_header_rec.invoice_to_cust_party_id;
3273: END IF;
3274: IF lp_qte_header_rec.End_Customer_cust_party_id = FND_API.G_MISS_NUM THEN
3275: lp_qte_header_rec.End_Customer_cust_party_id := l_qte_header_rec.End_Customer_cust_party_id;
3276: END IF;
3277: IF lp_qte_header_rec.cust_account_id = FND_API.G_MISS_NUM THEN
3278: lp_qte_header_rec.cust_account_id := l_qte_header_rec.cust_account_id;
3273: END IF;
3274: IF lp_qte_header_rec.End_Customer_cust_party_id = FND_API.G_MISS_NUM THEN
3275: lp_qte_header_rec.End_Customer_cust_party_id := l_qte_header_rec.End_Customer_cust_party_id;
3276: END IF;
3277: IF lp_qte_header_rec.cust_account_id = FND_API.G_MISS_NUM THEN
3278: lp_qte_header_rec.cust_account_id := l_qte_header_rec.cust_account_id;
3279: END IF;
3280: IF lp_qte_header_rec.invoice_to_cust_account_id = FND_API.G_MISS_NUM THEN
3281: lp_qte_header_rec.invoice_to_cust_account_id := l_qte_header_rec.invoice_to_cust_account_id;
3276: END IF;
3277: IF lp_qte_header_rec.cust_account_id = FND_API.G_MISS_NUM THEN
3278: lp_qte_header_rec.cust_account_id := l_qte_header_rec.cust_account_id;
3279: END IF;
3280: IF lp_qte_header_rec.invoice_to_cust_account_id = FND_API.G_MISS_NUM THEN
3281: lp_qte_header_rec.invoice_to_cust_account_id := l_qte_header_rec.invoice_to_cust_account_id;
3282: END IF;
3283: IF lp_qte_header_rec.End_Customer_cust_account_id = FND_API.G_MISS_NUM THEN
3284: lp_qte_header_rec.End_Customer_cust_account_id := l_qte_header_rec.End_Customer_cust_account_id;
3279: END IF;
3280: IF lp_qte_header_rec.invoice_to_cust_account_id = FND_API.G_MISS_NUM THEN
3281: lp_qte_header_rec.invoice_to_cust_account_id := l_qte_header_rec.invoice_to_cust_account_id;
3282: END IF;
3283: IF lp_qte_header_rec.End_Customer_cust_account_id = FND_API.G_MISS_NUM THEN
3284: lp_qte_header_rec.End_Customer_cust_account_id := l_qte_header_rec.End_Customer_cust_account_id;
3285: END IF;
3286: IF lp_qte_header_rec.org_contact_id = FND_API.G_MISS_NUM THEN
3287: lp_qte_header_rec.org_contact_id := l_qte_header_rec.org_contact_id;
3282: END IF;
3283: IF lp_qte_header_rec.End_Customer_cust_account_id = FND_API.G_MISS_NUM THEN
3284: lp_qte_header_rec.End_Customer_cust_account_id := l_qte_header_rec.End_Customer_cust_account_id;
3285: END IF;
3286: IF lp_qte_header_rec.org_contact_id = FND_API.G_MISS_NUM THEN
3287: lp_qte_header_rec.org_contact_id := l_qte_header_rec.org_contact_id;
3288: END IF;
3289: IF lp_qte_header_rec.invoice_to_party_id = FND_API.G_MISS_NUM THEN
3290: lp_qte_header_rec.invoice_to_party_id := l_qte_header_rec.invoice_to_party_id;
3285: END IF;
3286: IF lp_qte_header_rec.org_contact_id = FND_API.G_MISS_NUM THEN
3287: lp_qte_header_rec.org_contact_id := l_qte_header_rec.org_contact_id;
3288: END IF;
3289: IF lp_qte_header_rec.invoice_to_party_id = FND_API.G_MISS_NUM THEN
3290: lp_qte_header_rec.invoice_to_party_id := l_qte_header_rec.invoice_to_party_id;
3291: END IF;
3292: IF lp_qte_header_rec.End_Customer_party_id = FND_API.G_MISS_NUM THEN
3293: lp_qte_header_rec.End_Customer_party_id := l_qte_header_rec.End_Customer_party_id;
3288: END IF;
3289: IF lp_qte_header_rec.invoice_to_party_id = FND_API.G_MISS_NUM THEN
3290: lp_qte_header_rec.invoice_to_party_id := l_qte_header_rec.invoice_to_party_id;
3291: END IF;
3292: IF lp_qte_header_rec.End_Customer_party_id = FND_API.G_MISS_NUM THEN
3293: lp_qte_header_rec.End_Customer_party_id := l_qte_header_rec.End_Customer_party_id;
3294: END IF;
3295: IF lp_qte_header_rec.invoice_to_party_site_id = FND_API.G_MISS_NUM THEN
3296: lp_qte_header_rec.invoice_to_party_site_id := l_qte_header_rec.invoice_to_party_site_id;
3291: END IF;
3292: IF lp_qte_header_rec.End_Customer_party_id = FND_API.G_MISS_NUM THEN
3293: lp_qte_header_rec.End_Customer_party_id := l_qte_header_rec.End_Customer_party_id;
3294: END IF;
3295: IF lp_qte_header_rec.invoice_to_party_site_id = FND_API.G_MISS_NUM THEN
3296: lp_qte_header_rec.invoice_to_party_site_id := l_qte_header_rec.invoice_to_party_site_id;
3297: END IF;
3298: IF lp_qte_header_rec.End_Customer_party_site_id = FND_API.G_MISS_NUM THEN
3299: lp_qte_header_rec.End_Customer_party_site_id := l_qte_header_rec.End_Customer_party_site_id;
3294: END IF;
3295: IF lp_qte_header_rec.invoice_to_party_site_id = FND_API.G_MISS_NUM THEN
3296: lp_qte_header_rec.invoice_to_party_site_id := l_qte_header_rec.invoice_to_party_site_id;
3297: END IF;
3298: IF lp_qte_header_rec.End_Customer_party_site_id = FND_API.G_MISS_NUM THEN
3299: lp_qte_header_rec.End_Customer_party_site_id := l_qte_header_rec.End_Customer_party_site_id;
3300: END IF;
3301: IF lp_qte_header_rec.sold_to_party_site_id = FND_API.G_MISS_NUM THEN
3302: lp_qte_header_rec.sold_to_party_site_id := l_qte_header_rec.sold_to_party_site_id;
3297: END IF;
3298: IF lp_qte_header_rec.End_Customer_party_site_id = FND_API.G_MISS_NUM THEN
3299: lp_qte_header_rec.End_Customer_party_site_id := l_qte_header_rec.End_Customer_party_site_id;
3300: END IF;
3301: IF lp_qte_header_rec.sold_to_party_site_id = FND_API.G_MISS_NUM THEN
3302: lp_qte_header_rec.sold_to_party_site_id := l_qte_header_rec.sold_to_party_site_id;
3303: END IF;
3304:
3305: IF lp_shipment_rec.operation_code = 'UPDATE' THEN
3302: lp_qte_header_rec.sold_to_party_site_id := l_qte_header_rec.sold_to_party_site_id;
3303: END IF;
3304:
3305: IF lp_shipment_rec.operation_code = 'UPDATE' THEN
3306: IF lp_shipment_rec.shipment_id IS NOT NULL AND lp_shipment_rec.shipment_id <> FND_API.G_MISS_NUM THEN
3307: l_shipment_rec := ASO_UTILITY_PVT.query_shipment_row (lp_shipment_rec.shipment_id);
3308: IF lp_shipment_rec.ship_to_cust_party_id = FND_API.G_MISS_NUM THEN
3309: lp_shipment_rec.ship_to_cust_party_id := l_shipment_rec.ship_to_cust_party_id;
3310: END IF;
3304:
3305: IF lp_shipment_rec.operation_code = 'UPDATE' THEN
3306: IF lp_shipment_rec.shipment_id IS NOT NULL AND lp_shipment_rec.shipment_id <> FND_API.G_MISS_NUM THEN
3307: l_shipment_rec := ASO_UTILITY_PVT.query_shipment_row (lp_shipment_rec.shipment_id);
3308: IF lp_shipment_rec.ship_to_cust_party_id = FND_API.G_MISS_NUM THEN
3309: lp_shipment_rec.ship_to_cust_party_id := l_shipment_rec.ship_to_cust_party_id;
3310: END IF;
3311: IF lp_shipment_rec.ship_to_cust_account_id = FND_API.G_MISS_NUM THEN
3312: lp_shipment_rec.ship_to_cust_account_id := l_shipment_rec.ship_to_cust_account_id;
3307: l_shipment_rec := ASO_UTILITY_PVT.query_shipment_row (lp_shipment_rec.shipment_id);
3308: IF lp_shipment_rec.ship_to_cust_party_id = FND_API.G_MISS_NUM THEN
3309: lp_shipment_rec.ship_to_cust_party_id := l_shipment_rec.ship_to_cust_party_id;
3310: END IF;
3311: IF lp_shipment_rec.ship_to_cust_account_id = FND_API.G_MISS_NUM THEN
3312: lp_shipment_rec.ship_to_cust_account_id := l_shipment_rec.ship_to_cust_account_id;
3313: END IF;
3314: IF lp_shipment_rec.ship_to_party_id = FND_API.G_MISS_NUM THEN
3315: lp_shipment_rec.ship_to_party_id := l_shipment_rec.ship_to_party_id;
3310: END IF;
3311: IF lp_shipment_rec.ship_to_cust_account_id = FND_API.G_MISS_NUM THEN
3312: lp_shipment_rec.ship_to_cust_account_id := l_shipment_rec.ship_to_cust_account_id;
3313: END IF;
3314: IF lp_shipment_rec.ship_to_party_id = FND_API.G_MISS_NUM THEN
3315: lp_shipment_rec.ship_to_party_id := l_shipment_rec.ship_to_party_id;
3316: END IF;
3317: IF lp_shipment_rec.ship_to_party_site_id = FND_API.G_MISS_NUM THEN
3318: lp_shipment_rec.ship_to_party_site_id := l_shipment_rec.ship_to_party_site_id;
3313: END IF;
3314: IF lp_shipment_rec.ship_to_party_id = FND_API.G_MISS_NUM THEN
3315: lp_shipment_rec.ship_to_party_id := l_shipment_rec.ship_to_party_id;
3316: END IF;
3317: IF lp_shipment_rec.ship_to_party_site_id = FND_API.G_MISS_NUM THEN
3318: lp_shipment_rec.ship_to_party_site_id := l_shipment_rec.ship_to_party_site_id;
3319: END IF;
3320: END IF;
3321: END IF;
3322:
3323: END IF; -- UPDATE
3324:
3325: -- Initialize API return status to success
3326: x_return_status := FND_API.G_RET_STS_SUCCESS;
3327: ASO_VALIDATE_PVT.Validate_Party_Crs(
3328: p_init_msg_list => p_init_msg_list,
3329: p_party_id => lp_qte_header_rec.party_id,
3330: p_cust_party_id => lp_qte_header_rec.cust_party_id,
3335: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3336: aso_debug_pub.add('validate record tca crs - after validate party crs '||x_return_status, 1, 'N');
3337: END IF;
3338:
3339: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3340: RAISE FND_API.G_EXC_ERROR;
3341: END IF;
3342: ASO_VALIDATE_PVT.Validate_org_contact_crs(
3343: p_init_msg_list => p_init_msg_list,
3336: aso_debug_pub.add('validate record tca crs - after validate party crs '||x_return_status, 1, 'N');
3337: END IF;
3338:
3339: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3340: RAISE FND_API.G_EXC_ERROR;
3341: END IF;
3342: ASO_VALIDATE_PVT.Validate_org_contact_crs(
3343: p_init_msg_list => p_init_msg_list,
3344: p_contact_id => lp_qte_header_rec.org_contact_id,
3350: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3351: aso_debug_pub.add('validate record tca crs - after validate org contact crs '||x_return_status, 1, 'N');
3352: END IF;
3353:
3354: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3355: RAISE FND_API.G_EXC_ERROR;
3356: END IF;
3357: ASO_VALIDATE_PVT.Validate_Inv_Party_Crs(
3358: p_init_msg_list => p_init_msg_list,
3351: aso_debug_pub.add('validate record tca crs - after validate org contact crs '||x_return_status, 1, 'N');
3352: END IF;
3353:
3354: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3355: RAISE FND_API.G_EXC_ERROR;
3356: END IF;
3357: ASO_VALIDATE_PVT.Validate_Inv_Party_Crs(
3358: p_init_msg_list => p_init_msg_list,
3359: p_party_id => lp_qte_header_rec.party_id,
3369: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3370: aso_debug_pub.add('validate record tca crs - after validate Inv party crs(Bill to) '||x_return_status, 1, 'N');
3371: END IF;
3372:
3373: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3374: RAISE FND_API.G_EXC_ERROR;
3375: END IF;
3376:
3377: ASO_VALIDATE_PVT.Validate_Inv_Party_Crs(
3370: aso_debug_pub.add('validate record tca crs - after validate Inv party crs(Bill to) '||x_return_status, 1, 'N');
3371: END IF;
3372:
3373: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3374: RAISE FND_API.G_EXC_ERROR;
3375: END IF;
3376:
3377: ASO_VALIDATE_PVT.Validate_Inv_Party_Crs(
3378: p_init_msg_list => p_init_msg_list,
3389: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3390: aso_debug_pub.add('validate record tca crs - after validate Inv party crs(End User) '||x_return_status, 1, 'N');
3391: END IF;
3392:
3393: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3394: RAISE FND_API.G_EXC_ERROR;
3395: END IF;
3396:
3397: ASO_VALIDATE_PVT.Validate_Inv_Party_Crs(
3390: aso_debug_pub.add('validate record tca crs - after validate Inv party crs(End User) '||x_return_status, 1, 'N');
3391: END IF;
3392:
3393: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3394: RAISE FND_API.G_EXC_ERROR;
3395: END IF;
3396:
3397: ASO_VALIDATE_PVT.Validate_Inv_Party_Crs(
3398: p_init_msg_list => p_init_msg_list,
3409: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3410: aso_debug_pub.add('validate record tca crs - after validate Inv party crs(Ship to) '||x_return_status, 1, 'N');
3411: END IF;
3412:
3413: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3414: RAISE FND_API.G_EXC_ERROR;
3415: END IF;
3416: ASO_VALIDATE_PVT.Validate_inv_PartySite_crs(
3417: p_init_msg_list => p_init_msg_list,
3410: aso_debug_pub.add('validate record tca crs - after validate Inv party crs(Ship to) '||x_return_status, 1, 'N');
3411: END IF;
3412:
3413: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3414: RAISE FND_API.G_EXC_ERROR;
3415: END IF;
3416: ASO_VALIDATE_PVT.Validate_inv_PartySite_crs(
3417: p_init_msg_list => p_init_msg_list,
3418: p_party_id => lp_qte_header_rec.party_id,
3429: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3430: aso_debug_pub.add('validate record tca crs - after validate Inv party site crs(Bill to) '||x_return_status, 1, 'N');
3431: END IF;
3432:
3433: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3434: RAISE FND_API.G_EXC_ERROR;
3435: END IF;
3436:
3437: ASO_VALIDATE_PVT.Validate_inv_PartySite_crs(
3430: aso_debug_pub.add('validate record tca crs - after validate Inv party site crs(Bill to) '||x_return_status, 1, 'N');
3431: END IF;
3432:
3433: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3434: RAISE FND_API.G_EXC_ERROR;
3435: END IF;
3436:
3437: ASO_VALIDATE_PVT.Validate_inv_PartySite_crs(
3438: p_init_msg_list => p_init_msg_list,
3450: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3451: aso_debug_pub.add('validate record tca crs - after validate Inv party site crs(End User) '||x_return_status, 1, 'N');
3452: END IF;
3453:
3454: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3455: RAISE FND_API.G_EXC_ERROR;
3456: END IF;
3457:
3458: ASO_VALIDATE_PVT.Validate_inv_PartySite_crs(
3451: aso_debug_pub.add('validate record tca crs - after validate Inv party site crs(End User) '||x_return_status, 1, 'N');
3452: END IF;
3453:
3454: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3455: RAISE FND_API.G_EXC_ERROR;
3456: END IF;
3457:
3458: ASO_VALIDATE_PVT.Validate_inv_PartySite_crs(
3459: p_init_msg_list => p_init_msg_list,
3471: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3472: aso_debug_pub.add('validate record tca crs - after validate Inv party site crs(Ship to) '||x_return_status, 1, 'N');
3473: END IF;
3474:
3475: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3476: RAISE FND_API.G_EXC_ERROR;
3477: END IF;
3478:
3479: -- Sold_to
3472: aso_debug_pub.add('validate record tca crs - after validate Inv party site crs(Ship to) '||x_return_status, 1, 'N');
3473: END IF;
3474:
3475: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3476: RAISE FND_API.G_EXC_ERROR;
3477: END IF;
3478:
3479: -- Sold_to
3480: IF lp_qte_header_rec.org_contact_id IS NOT NULL
3477: END IF;
3478:
3479: -- Sold_to
3480: IF lp_qte_header_rec.org_contact_id IS NOT NULL
3481: AND lp_qte_header_rec.org_contact_id <> FND_API.G_MISS_NUM THEN
3482: OPEN C_Get_Party_From_Org(lp_qte_header_rec.org_contact_id);
3483: FETCH C_Get_Party_From_Org INTO l_party_id;
3484: CLOSE C_Get_Party_From_Org;
3485: ELSE
3502: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3503: aso_debug_pub.add('validate record tca crs - after validate Inv party site crs(Sold to) '||x_return_status, 1, 'N');
3504: END IF;
3505:
3506: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3507: RAISE FND_API.G_EXC_ERROR;
3508: END IF;
3509: -- Sold_to
3510:
3503: aso_debug_pub.add('validate record tca crs - after validate Inv party site crs(Sold to) '||x_return_status, 1, 'N');
3504: END IF;
3505:
3506: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3507: RAISE FND_API.G_EXC_ERROR;
3508: END IF;
3509: -- Sold_to
3510:
3511: FND_MSG_PUB.Count_And_Get
3513: p_data => x_msg_data
3514: );
3515:
3516: EXCEPTION
3517: WHEN FND_API.G_EXC_ERROR THEN
3518: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
3519: P_API_NAME => L_API_NAME
3520: ,P_PKG_NAME => G_PKG_NAME
3521: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
3525: ,X_MSG_COUNT => X_MSG_COUNT
3526: ,X_MSG_DATA => X_MSG_DATA
3527: ,X_RETURN_STATUS => X_RETURN_STATUS);
3528:
3529: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3530: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
3531: P_API_NAME => L_API_NAME
3532: ,P_PKG_NAME => G_PKG_NAME
3533: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
3552:
3553: END Validate_record_tca_crs;
3554:
3555: PROCEDURE Validate_QTE_OBJ_TYPE_CODE (
3556: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3557: P_QUOTE_OBJECT_TYPE_CODE IN VARCHAR2,
3558: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
3559: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
3560: X_Msg_Data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
3567: l_exist VARCHAR2(1);
3568: BEGIN
3569:
3570: -- Initialize message list if p_init_msg_list is set to TRUE.
3571: IF FND_API.to_Boolean( p_init_msg_list )
3572: THEN
3573: FND_MSG_PUB.initialize;
3574: END IF;
3575:
3574: END IF;
3575:
3576:
3577: -- Initialize API return status to SUCCESS
3578: x_return_status := FND_API.G_RET_STS_SUCCESS;
3579: IF P_QUOTE_OBJECT_TYPE_CODE IS NOT NULL AND P_QUOTE_OBJECT_TYPE_CODE <> FND_API.G_MISS_CHAR THEN
3580: OPEN C1;
3581: FETCH C1 INTO l_exist;
3582: IF C1%NOTFOUND or l_exist is NULL THEN
3575:
3576:
3577: -- Initialize API return status to SUCCESS
3578: x_return_status := FND_API.G_RET_STS_SUCCESS;
3579: IF P_QUOTE_OBJECT_TYPE_CODE IS NOT NULL AND P_QUOTE_OBJECT_TYPE_CODE <> FND_API.G_MISS_CHAR THEN
3580: OPEN C1;
3581: FETCH C1 INTO l_exist;
3582: IF C1%NOTFOUND or l_exist is NULL THEN
3583: CLOSE C1;
3580: OPEN C1;
3581: FETCH C1 INTO l_exist;
3582: IF C1%NOTFOUND or l_exist is NULL THEN
3583: CLOSE C1;
3584: x_return_status := FND_API.G_RET_STS_ERROR;
3585: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3586: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
3587: FND_MESSAGE.Set_Token('COLUMN', 'QUOTE_OBJECT_TYPE_CODE', FALSE);
3588: FND_MESSAGE.Set_Token('VALUE',P_QUOTE_OBJECT_TYPE_CODE,FALSE);
3597:
3598: END Validate_QTE_OBJ_TYPE_CODE;
3599:
3600: PROCEDURE Validate_OBJECT_TYPE_CODE (
3601: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3602: P_OBJECT_TYPE_CODE IN VARCHAR2,
3603: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
3604: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
3605: X_Msg_Data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
3613: l_exist VARCHAR2(1);
3614: BEGIN
3615:
3616: -- Initialize message list if p_init_msg_list is set to TRUE.
3617: IF FND_API.to_Boolean( p_init_msg_list )
3618: THEN
3619: FND_MSG_PUB.initialize;
3620: END IF;
3621:
3620: END IF;
3621:
3622:
3623: -- Initialize API return status to SUCCESS
3624: x_return_status := FND_API.G_RET_STS_SUCCESS;
3625:
3626: IF p_OBJECT_TYPE_CODE IS NOT NULL AND p_OBJECT_TYPE_CODE <> FND_API.G_MISS_CHAR THEN
3627: OPEN C1;
3628: FETCH C1 INTO l_exist;
3622:
3623: -- Initialize API return status to SUCCESS
3624: x_return_status := FND_API.G_RET_STS_SUCCESS;
3625:
3626: IF p_OBJECT_TYPE_CODE IS NOT NULL AND p_OBJECT_TYPE_CODE <> FND_API.G_MISS_CHAR THEN
3627: OPEN C1;
3628: FETCH C1 INTO l_exist;
3629: IF C1%NOTFOUND or l_exist is NULL THEN
3630: CLOSE C1;
3627: OPEN C1;
3628: FETCH C1 INTO l_exist;
3629: IF C1%NOTFOUND or l_exist is NULL THEN
3630: CLOSE C1;
3631: x_return_status := FND_API.G_RET_STS_ERROR;
3632: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3633: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
3634: FND_MESSAGE.Set_Token('COLUMN', 'OBJECT_TYPE_CODE', FALSE);
3635: FND_MESSAGE.Set_Token('VALUE',p_OBJECT_TYPE_CODE,FALSE);
3644:
3645:
3646: END Validate_OBJECT_TYPE_CODE;
3647: PROCEDURE Validate_RLTSHIP_TYPE_CODE (
3648: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3649: P_RELATIONSHIP_TYPE_CODE IN VARCHAR2,
3650: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
3651: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
3652: X_Msg_Data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
3660: l_exist VARCHAR2(1);
3661: BEGIN
3662:
3663: -- Initialize message list if p_init_msg_list is set to TRUE.
3664: IF FND_API.to_Boolean( p_init_msg_list )
3665: THEN
3666: FND_MSG_PUB.initialize;
3667: END IF;
3668:
3667: END IF;
3668:
3669:
3670: -- Initialize API return status to SUCCESS
3671: x_return_status := FND_API.G_RET_STS_SUCCESS;
3672: IF P_RELATIONSHIP_TYPE_CODE IS NOT NULL AND P_RELATIONSHIP_TYPE_CODE <> FND_API.G_MISS_CHAR THEN
3673: OPEN C1;
3674: FETCH C1 INTO l_exist;
3675: IF C1%NOTFOUND or l_exist is NULL THEN
3668:
3669:
3670: -- Initialize API return status to SUCCESS
3671: x_return_status := FND_API.G_RET_STS_SUCCESS;
3672: IF P_RELATIONSHIP_TYPE_CODE IS NOT NULL AND P_RELATIONSHIP_TYPE_CODE <> FND_API.G_MISS_CHAR THEN
3673: OPEN C1;
3674: FETCH C1 INTO l_exist;
3675: IF C1%NOTFOUND or l_exist is NULL THEN
3676: CLOSE C1;
3673: OPEN C1;
3674: FETCH C1 INTO l_exist;
3675: IF C1%NOTFOUND or l_exist is NULL THEN
3676: CLOSE C1;
3677: x_return_status := FND_API.G_RET_STS_ERROR;
3678: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3679: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
3680: FND_MESSAGE.Set_Token('COLUMN', 'RELATIONSHIP_TYPE_CODE', FALSE);
3681: FND_MESSAGE.Set_Token('VALUE',P_RELATIONSHIP_TYPE_CODE,FALSE);
3706: l_start_date DATE;
3707: l_end_date DATE;
3708: BEGIN
3709: -- Initialize message list if p_init_msg_list is set to TRUE.
3710: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3711: FND_MSG_PUB.initialize;
3712: END IF;
3713:
3714: -- Initialize API return status to success
3711: FND_MSG_PUB.initialize;
3712: END IF;
3713:
3714: -- Initialize API return status to success
3715: x_return_status := FND_API.G_RET_STS_SUCCESS;
3716:
3717: IF (p_minisite_id IS NOT NULL AND p_minisite_id <> FND_API.G_MISS_NUM) THEN
3718: OPEN C_Minisite;
3719: FETCH C_Minisite INTO l_start_date, l_end_date;
3713:
3714: -- Initialize API return status to success
3715: x_return_status := FND_API.G_RET_STS_SUCCESS;
3716:
3717: IF (p_minisite_id IS NOT NULL AND p_minisite_id <> FND_API.G_MISS_NUM) THEN
3718: OPEN C_Minisite;
3719: FETCH C_Minisite INTO l_start_date, l_end_date;
3720: IF (C_Minisite%NOTFOUND OR
3721: (sysdate NOT BETWEEN NVL(l_start_date, sysdate) AND
3720: IF (C_Minisite%NOTFOUND OR
3721: (sysdate NOT BETWEEN NVL(l_start_date, sysdate) AND
3722: NVL(l_end_date, sysdate))) THEN
3723: CLOSE C_Minisite;
3724: x_return_status := FND_API.G_RET_STS_ERROR;
3725: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3726: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
3727: FND_MESSAGE.Set_Token('COLUMN', 'MSITE_ID', FALSE);
3728: FND_MESSAGE.Set_Token('VALUE',to_char(p_minisite_id),FALSE);
3750: l_start_date DATE;
3751: l_end_date DATE;
3752: BEGIN
3753: -- Initialize message list if p_init_msg_list is set to TRUE.
3754: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3755: FND_MSG_PUB.initialize;
3756: END IF;
3757:
3758: -- Initialize API return status to success
3755: FND_MSG_PUB.initialize;
3756: END IF;
3757:
3758: -- Initialize API return status to success
3759: x_return_status := FND_API.G_RET_STS_SUCCESS;
3760:
3761: IF (p_section_id IS NOT NULL AND p_section_id <> FND_API.G_MISS_NUM) THEN
3762: OPEN C_Section;
3763: FETCH C_Section INTO l_start_date, l_end_date;
3757:
3758: -- Initialize API return status to success
3759: x_return_status := FND_API.G_RET_STS_SUCCESS;
3760:
3761: IF (p_section_id IS NOT NULL AND p_section_id <> FND_API.G_MISS_NUM) THEN
3762: OPEN C_Section;
3763: FETCH C_Section INTO l_start_date, l_end_date;
3764: IF (C_Section%NOTFOUND OR
3765: (sysdate NOT BETWEEN NVL(l_start_date, sysdate) AND
3764: IF (C_Section%NOTFOUND OR
3765: (sysdate NOT BETWEEN NVL(l_start_date, sysdate) AND
3766: NVL(l_end_date, sysdate))) THEN
3767: CLOSE C_Section;
3768: x_return_status := FND_API.G_RET_STS_ERROR;
3769: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3770: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
3771: FND_MESSAGE.Set_Token('COLUMN', 'SECTION_ID', FALSE);
3772: FND_MESSAGE.Set_Token('VALUE',to_char(p_section_id),FALSE);
3811:
3812: BEGIN
3813:
3814: -- Initialize message list if p_init_msg_list is set to TRUE.
3815: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3816: FND_MSG_PUB.initialize;
3817: END IF;
3818:
3819: -- Initialize API return status to success
3816: FND_MSG_PUB.initialize;
3817: END IF;
3818:
3819: -- Initialize API return status to success
3820: x_return_status := FND_API.G_RET_STS_SUCCESS;
3821:
3822: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3823: aso_debug_pub.add('validate_quote_percent: sales_credit_tbl.cnt: '|| p_sales_credit_tbl.count, 1, 'N');
3824: aso_debug_pub.add('validate_quote_percent: quote_header_id: '|| p_sales_credit_tbl(1).quote_header_id, 1, 'N');
3825: aso_debug_pub.add('validate_quote_percent: quote_line_id: '|| p_sales_credit_tbl(1).quote_line_id, 1, 'N');
3826: aso_debug_pub.add('validate_quote_percent: qte_line_index: '|| p_sales_credit_tbl(1).qte_line_index, 1, 'N');
3827: END IF;
3828:
3829: IF p_sales_credit_tbl(1).quote_header_id IS NOT NULL AND p_sales_credit_tbl(1).quote_header_id <> FND_API.G_MISS_NUM THEN
3830: IF p_sales_credit_tbl(1).quote_line_id IS NOT NULL AND p_sales_credit_tbl(1).quote_line_id <> FND_API.G_MISS_NUM THEN
3831: FOR percent_rec IN c_quota_line(p_sales_credit_tbl(1).quote_header_id, p_sales_credit_tbl(1).quote_line_id) LOOP
3832: l_percent_total := percent_rec.total;
3833: END LOOP;
3826: aso_debug_pub.add('validate_quote_percent: qte_line_index: '|| p_sales_credit_tbl(1).qte_line_index, 1, 'N');
3827: END IF;
3828:
3829: IF p_sales_credit_tbl(1).quote_header_id IS NOT NULL AND p_sales_credit_tbl(1).quote_header_id <> FND_API.G_MISS_NUM THEN
3830: IF p_sales_credit_tbl(1).quote_line_id IS NOT NULL AND p_sales_credit_tbl(1).quote_line_id <> FND_API.G_MISS_NUM THEN
3831: FOR percent_rec IN c_quota_line(p_sales_credit_tbl(1).quote_header_id, p_sales_credit_tbl(1).quote_line_id) LOOP
3832: l_percent_total := percent_rec.total;
3833: END LOOP;
3834: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3847: END IF;
3848:
3849: --IF nvl(l_percent_total,0) <> 100 THEN --commented to fix bug5671266
3850: IF l_percent_total IS NOT NULL AND l_percent_total <> 100 THEN
3851: x_return_status := FND_API.G_RET_STS_ERROR;
3852: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3853: FND_MESSAGE.Set_Name('ASO', 'ASO_SALES_CREDIT_PERCENT');
3854: FND_MSG_PUB.ADD;
3855: END IF;
3869: IS
3870:
3871: BEGIN
3872: -- Initialize message list if p_init_msg_list is set to TRUE.
3873: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3874: FND_MSG_PUB.initialize;
3875: END IF;
3876:
3877: -- Initialize API return status to success
3874: FND_MSG_PUB.initialize;
3875: END IF;
3876:
3877: -- Initialize API return status to success
3878: x_return_status := FND_API.G_RET_STS_SUCCESS;
3879:
3880: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3881: aso_debug_pub.add('validate_sales_credit_return: start '|| x_return_status, 1, 'N');
3882: END IF;
3882: END IF;
3883:
3884: IF p_qte_line_rec.LINE_CATEGORY_CODE = 'RETURN' THEN
3885: IF p_sales_credit_tbl.count > 0 THEN
3886: x_return_status := FND_API.G_RET_STS_ERROR;
3887: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3888: FND_MESSAGE.Set_Name('ASO', 'ASO_SALES_CREDIT_RETURN');
3889: FND_MSG_PUB.ADD;
3890: END IF;
3927: aso_debug_pub.add('ASO_VALIDATE_PVT organization_id: '||p_qte_line_rec.organization_id, 1, 'N');
3928: aso_debug_pub.add('ASO_VALIDATE_PVT ship_from_org_id: '||p_shipment_rec.ship_from_org_id, 1, 'N');
3929: END IF;
3930:
3931: x_return_status := FND_API.G_RET_STS_SUCCESS;
3932: IF (p_qte_line_rec.inventory_item_id is not null AND p_qte_line_rec.inventory_item_id <> FND_API.G_MISS_NUM) AND
3933: (p_qte_line_rec.organization_id is not null AND p_qte_line_rec.organization_id <> FND_API.G_MISS_NUM) AND
3934: (p_shipment_rec.ship_from_org_id is not null AND p_shipment_rec.ship_from_org_id <> FND_API.G_MISS_NUM) THEN
3935:
3928: aso_debug_pub.add('ASO_VALIDATE_PVT ship_from_org_id: '||p_shipment_rec.ship_from_org_id, 1, 'N');
3929: END IF;
3930:
3931: x_return_status := FND_API.G_RET_STS_SUCCESS;
3932: IF (p_qte_line_rec.inventory_item_id is not null AND p_qte_line_rec.inventory_item_id <> FND_API.G_MISS_NUM) AND
3933: (p_qte_line_rec.organization_id is not null AND p_qte_line_rec.organization_id <> FND_API.G_MISS_NUM) AND
3934: (p_shipment_rec.ship_from_org_id is not null AND p_shipment_rec.ship_from_org_id <> FND_API.G_MISS_NUM) THEN
3935:
3936: open c_org_id;
3929: END IF;
3930:
3931: x_return_status := FND_API.G_RET_STS_SUCCESS;
3932: IF (p_qte_line_rec.inventory_item_id is not null AND p_qte_line_rec.inventory_item_id <> FND_API.G_MISS_NUM) AND
3933: (p_qte_line_rec.organization_id is not null AND p_qte_line_rec.organization_id <> FND_API.G_MISS_NUM) AND
3934: (p_shipment_rec.ship_from_org_id is not null AND p_shipment_rec.ship_from_org_id <> FND_API.G_MISS_NUM) THEN
3935:
3936: open c_org_id;
3937: fetch c_org_id into l_org_id;
3930:
3931: x_return_status := FND_API.G_RET_STS_SUCCESS;
3932: IF (p_qte_line_rec.inventory_item_id is not null AND p_qte_line_rec.inventory_item_id <> FND_API.G_MISS_NUM) AND
3933: (p_qte_line_rec.organization_id is not null AND p_qte_line_rec.organization_id <> FND_API.G_MISS_NUM) AND
3934: (p_shipment_rec.ship_from_org_id is not null AND p_shipment_rec.ship_from_org_id <> FND_API.G_MISS_NUM) THEN
3935:
3936: open c_org_id;
3937: fetch c_org_id into l_org_id;
3938: IF c_org_id%NOTFOUND THEN
3935:
3936: open c_org_id;
3937: fetch c_org_id into l_org_id;
3938: IF c_org_id%NOTFOUND THEN
3939: x_return_status := FND_API.G_RET_STS_ERROR;
3940: END IF;
3941: close c_org_id;
3942: END IF;
3943: END validate_ship_from_org_ID;
4000: aso_debug_pub.add('Entering Validate_Commitment', 1, 'N');
4001: END IF;
4002:
4003: -- Initialize message list if p_init_msg_list is set to TRUE.
4004: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4005: FND_MSG_PUB.initialize;
4006: END IF;
4007:
4008: -- Initialize API return status to success
4005: FND_MSG_PUB.initialize;
4006: END IF;
4007:
4008: -- Initialize API return status to success
4009: x_return_status := FND_API.G_RET_STS_SUCCESS;
4010:
4011: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4012: aso_debug_pub.add('Validate_Commitment-P_Qte_Header_Rec.Quote_Header_Id: '||P_Qte_Header_Rec.Quote_Header_Id, 1, 'N');
4013: aso_debug_pub.add('Validate_Commitment-P_Qte_Line_Rec.Commitment_Id: '||P_Qte_Line_Rec.Commitment_Id, 1, 'N');
4013: aso_debug_pub.add('Validate_Commitment-P_Qte_Line_Rec.Commitment_Id: '||P_Qte_Line_Rec.Commitment_Id, 1, 'N');
4014: END IF;
4015:
4016: IF P_Qte_Line_Rec.Commitment_Id IS NOT NULL AND
4017: P_Qte_Line_Rec.Commitment_Id <> FND_API.G_MISS_NUM THEN
4018:
4019: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4020: aso_debug_pub.add('Validate_Commitment-P_Qte_Line_Rec.Operation_Code: '||P_Qte_Line_Rec.Operation_Code, 1, 'N');
4021: END IF;
4033: l_Org_Id := P_Qte_Header_Rec.Org_Id;
4034: l_Currency_Code := P_Qte_Header_Rec.Currency_Code;
4035: /*
4036: IF P_Qte_Line_Rec.Invoice_To_Cust_Account_Id IS NOT NULL AND
4037: P_Qte_Line_Rec.Invoice_To_Cust_Account_Id <> FND_API.G_MISS_NUM THEN
4038: aso_debug_pub.add('Validate_Commitment-P_Qte_Line_Rec.Invoice_To_Cust_Account_Id: '||P_Qte_Line_Rec.Invoice_To_Cust_Account_Id, 1, 'N');
4039:
4040: l_Cust_Account_Id := P_Qte_Line_Rec.Invoice_To_Cust_Account_Id;
4041:
4039:
4040: l_Cust_Account_Id := P_Qte_Line_Rec.Invoice_To_Cust_Account_Id;
4041:
4042: ELSIF P_Qte_Header_Rec.Invoice_To_Cust_Account_Id IS NOT NULL AND
4043: P_Qte_Header_Rec.Invoice_To_Cust_Account_Id <> FND_API.G_MISS_NUM THEN
4044: aso_debug_pub.add('Validate_Commitment-P_Qte_Header_Rec.Invoice_To_Cust_Account_Id: '||P_Qte_Header_Rec.Invoice_To_Cust_Account_Id, 1, 'N');
4045:
4046: l_Cust_Account_Id := P_Qte_Header_Rec.Invoice_To_Cust_Account_Id;
4047:
4055: l_Agreement_Id := P_Qte_Line_Rec.Agreement_Id;
4056: l_Commitment_Id := P_Qte_Line_Rec.Commitment_Id;
4057: l_Inventory_Item_Id := P_Qte_Line_Rec.Inventory_Item_Id;
4058:
4059: IF l_Agreement_Id IS NULL OR l_agreement_id = FND_API.G_MISS_NUM
4060: THEN
4061: OPEN C_Get_Agreement(P_Qte_Header_Rec.Quote_Header_id);
4062: FETCH C_Get_Agreement INTO l_Agreement_Id;
4063: CLOSE C_Get_Agreement;
4075: IF C_Commitment_Cur%NOTFOUND OR l_Cur_Variable <> 'VALID' THEN
4076: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4077: aso_debug_pub.add('Validate_Commitment-Invalid Commitment: ', 1, 'N');
4078: END IF;
4079: x_return_status := FND_API.G_RET_STS_ERROR;
4080: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4081: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_COMMITMENT');
4082: FND_MSG_PUB.ADD;
4083: END IF;
4091: FETCH C_Header_Cur INTO l_Org_Id, l_Currency_Code, l_Cust_Account_Id;
4092: CLOSE C_Header_Cur;
4093:
4094: IF P_Qte_Header_Rec.Org_Id IS NOT NULL AND
4095: P_Qte_Header_Rec.Org_Id <> FND_API.G_MISS_NUM THEN
4096: l_Org_Id := P_Qte_Header_Rec.Org_Id;
4097: END IF;
4098:
4099: IF P_Qte_Header_Rec.Currency_Code IS NOT NULL AND
4096: l_Org_Id := P_Qte_Header_Rec.Org_Id;
4097: END IF;
4098:
4099: IF P_Qte_Header_Rec.Currency_Code IS NOT NULL AND
4100: P_Qte_Header_Rec.Currency_Code <> FND_API.G_MISS_CHAR THEN
4101: l_Currency_Code := P_Qte_Header_Rec.Currency_Code;
4102: END IF;
4103:
4104: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4106: aso_debug_pub.add('Validate_Commitment-l_Currency_Code: '||l_Currency_Code, 1, 'N');
4107: END IF;
4108: /*
4109: IF P_Qte_Line_Rec.Invoice_To_Cust_Account_Id IS NOT NULL AND
4110: P_Qte_Line_Rec.Invoice_To_Cust_Account_Id <> FND_API.G_MISS_NUM THEN
4111: aso_debug_pub.add('Validate_Commitment-P_Qte_Line_Rec.Invoice_To_Cust_Account_Id: '||P_Qte_Line_Rec.Invoice_To_Cust_Account_Id, 1, 'N');
4112:
4113: l_Cust_Account_Id := P_Qte_Line_Rec.Invoice_To_Cust_Account_Id;
4114:
4112:
4113: l_Cust_Account_Id := P_Qte_Line_Rec.Invoice_To_Cust_Account_Id;
4114:
4115: ELSIF P_Qte_Header_Rec.Invoice_To_Cust_Account_Id IS NOT NULL AND
4116: P_Qte_Header_Rec.Invoice_To_Cust_Account_Id <> FND_API.G_MISS_NUM THEN
4117: aso_debug_pub.add('Validate_Commitment-P_Qte_Header_Rec.Invoice_To_Cust_Account_Id: '||P_Qte_Header_Rec.Invoice_To_Cust_Account_Id, 1, 'N');
4118:
4119: l_Cust_Account_Id := P_Qte_Header_Rec.Invoice_To_Cust_Account_Id;
4120:
4133: FETCH C_Line_Cur INTO l_Agreement_Id, l_Commitment_Id, l_Inventory_Item_Id;
4134: CLOSE C_Line_Cur;
4135:
4136: IF P_Qte_Line_Rec.Agreement_Id IS NOT NULL AND
4137: P_Qte_Line_Rec.Agreement_Id <> FND_API.G_MISS_NUM THEN
4138: l_Agreement_Id := P_Qte_Line_Rec.Agreement_Id;
4139: END IF;
4140:
4141: IF P_Qte_Line_Rec.Commitment_id IS NOT NULL AND
4138: l_Agreement_Id := P_Qte_Line_Rec.Agreement_Id;
4139: END IF;
4140:
4141: IF P_Qte_Line_Rec.Commitment_id IS NOT NULL AND
4142: P_Qte_Line_Rec.Commitment_Id <> FND_API.G_MISS_NUM THEN
4143: l_Commitment_Id := P_Qte_Line_Rec.Commitment_Id;
4144: END IF;
4145:
4146: IF P_Qte_Line_Rec.Inventory_Item_Id IS NOT NULL AND
4143: l_Commitment_Id := P_Qte_Line_Rec.Commitment_Id;
4144: END IF;
4145:
4146: IF P_Qte_Line_Rec.Inventory_Item_Id IS NOT NULL AND
4147: P_Qte_Line_Rec.Inventory_Item_Id <> FND_API.G_MISS_NUM THEN
4148: l_Inventory_Item_Id := P_Qte_Line_Rec.Inventory_Item_Id;
4149: END IF;
4150:
4151: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4164: IF C_Commitment_Cur%NOTFOUND OR l_Cur_Variable <> 'VALID' THEN
4165: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4166: aso_debug_pub.add('Validate_Commitment-Invalid Commitment: ', 1, 'N');
4167: END IF;
4168: x_return_status := FND_API.G_RET_STS_ERROR;
4169: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4170: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_COMMITMENT');
4171: FND_MSG_PUB.ADD;
4172: END IF;
4205: aso_debug_pub.add('Validate_Agreement-P_Agreement_Id: '||P_Agreement_Id, 1, 'N');
4206: END IF;
4207:
4208: -- Initialize message list if p_init_msg_list is set to TRUE.
4209: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4210: FND_MSG_PUB.initialize;
4211: END IF;
4212:
4213: -- Initialize API return status to success
4210: FND_MSG_PUB.initialize;
4211: END IF;
4212:
4213: -- Initialize API return status to success
4214: x_return_status := FND_API.G_RET_STS_SUCCESS;
4215:
4216: OPEN C_Agreement_Cur(P_Agreement_Id);
4217: FETCH C_Agreement_Cur INTO l_Start_Date_Active, l_End_Date_Active;
4218:
4219: IF C_Agreement_Cur%NOTFOUND THEN
4220: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4221: aso_debug_pub.add('Validate_Agreement-Agreement Not Found', 1, 'N');
4222: END IF;
4223: x_return_status := FND_API.G_RET_STS_ERROR;
4224: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4225: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_AGREEMENT');
4226: FND_MSG_PUB.ADD;
4227: END IF;
4230: IF (trunc(sysdate) NOT BETWEEN trunc(l_Start_Date_Active) AND NVL(trunc(l_End_Date_Active),trunc(sysdate))) THEN
4231: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4232: aso_debug_pub.add('Validate_Agreement-Agreement Invalid', 1, 'N');
4233: END IF;
4234: x_return_status := FND_API.G_RET_STS_ERROR;
4235: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4236: FND_MESSAGE.Set_Name('ASO', 'ASO_INACTIVE_AGREEMENT');
4237: FND_MSG_PUB.ADD;
4238: END IF;
4263: l_enabled_flag VARCHAR2(1);
4264:
4265: BEGIN
4266: -- Initialize message list if p_init_msg_list is set to TRUE.
4267: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4268: FND_MSG_PUB.initialize;
4269: END IF;
4270:
4271: -- Initialize API return status to success
4268: FND_MSG_PUB.initialize;
4269: END IF;
4270:
4271: -- Initialize API return status to success
4272: x_return_status := FND_API.G_RET_STS_SUCCESS;
4273:
4274: Validate_Quote_Status(
4275: p_init_msg_list => p_init_msg_list,
4276: p_quote_status_id => p_source_status_id,
4277: x_return_status => x_return_status,
4278: x_msg_count => x_msg_count,
4279: x_msg_data => x_msg_data);
4280:
4281: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4282: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4283: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
4284: FND_MESSAGE.Set_Token('COLUMN', 'SOURCE_STATUS_ID', FALSE);
4285: FND_MESSAGE.Set_Token('VALUE',to_char(p_source_status_id),FALSE);
4294: x_return_status => x_return_status,
4295: x_msg_count => x_msg_count,
4296: x_msg_data => x_msg_data);
4297:
4298: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4299: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4300: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
4301: FND_MESSAGE.Set_Token('COLUMN', 'DEST_STATUS_ID', FALSE);
4302: FND_MESSAGE.Set_Token('VALUE',to_char(p_dest_status_id),FALSE);
4307:
4308: OPEN c_transition(p_source_status_id, p_dest_status_id);
4309: FETCH c_transition INTO l_transition_id, l_enabled_flag;
4310: IF (c_transition%NOTFOUND) THEN
4311: x_return_status := FND_API.G_RET_STS_ERROR;
4312: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4313: FND_MESSAGE.Set_Name('ASO', 'ASO_NONEXISTENT_STATUS_TRANS');
4314: FND_MSG_PUB.ADD;
4315: END IF;
4313: FND_MESSAGE.Set_Name('ASO', 'ASO_NONEXISTENT_STATUS_TRANS');
4314: FND_MSG_PUB.ADD;
4315: END IF;
4316: ELSIF (l_enabled_flag <> 'Y') THEN
4317: x_return_status := FND_API.G_RET_STS_ERROR;
4318: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4319: FND_MESSAGE.Set_Name('ASO', 'ASO_DISABLED_STATUS_TRANS');
4320: FND_MSG_PUB.ADD;
4321: END IF;
4345:
4346: BEGIN
4347:
4348: -- Initialize message list if p_init_msg_list is set to TRUE.
4349: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4350: FND_MSG_PUB.initialize;
4351: END IF;
4352:
4353: -- Initialize API return status to success
4350: FND_MSG_PUB.initialize;
4351: END IF;
4352:
4353: -- Initialize API return status to success
4354: x_return_status := FND_API.G_RET_STS_SUCCESS;
4355:
4356: OPEN c_k_template(p_template_id);
4357: FETCH c_k_template INTO l_major_version;
4358: IF c_k_template%NOTFOUND
4356: OPEN c_k_template(p_template_id);
4357: FETCH c_k_template INTO l_major_version;
4358: IF c_k_template%NOTFOUND
4359: THEN
4360: x_return_status := FND_API.G_RET_STS_ERROR;
4361: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4362: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
4363: FND_MESSAGE.Set_Token('COLUMN', 'TEMPLATE_ID', FALSE);
4364: FND_MSG_PUB.ADD;
4365: END IF;
4366: ELSE
4367: IF l_major_version <> p_template_major_version
4368: THEN
4369: x_return_status := FND_API.G_RET_STS_ERROR;
4370: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4371: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
4372: FND_MESSAGE.Set_Token('COLUMN', 'TEMPLATE_MAJOR_VERSION', FALSE);
4373: FND_MESSAGE.Set_Token('VALUE',to_char(p_template_major_version),FALSE);
4383: -- end of hyang okc
4384:
4385: PROCEDURE Validate_Promotion (
4386: P_Api_Version_Number IN NUMBER,
4387: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
4388: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
4389: p_price_attr_tbl IN ASO_QUOTE_PUB.Price_Attributes_Tbl_Type,
4390: x_price_attr_tbl OUT NOCOPY /* file.sql.39 change */ ASO_QUOTE_PUB.Price_Attributes_Tbl_Type,
4391: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
4384:
4385: PROCEDURE Validate_Promotion (
4386: P_Api_Version_Number IN NUMBER,
4387: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
4388: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
4389: p_price_attr_tbl IN ASO_QUOTE_PUB.Price_Attributes_Tbl_Type,
4390: x_price_attr_tbl OUT NOCOPY /* file.sql.39 change */ ASO_QUOTE_PUB.Price_Attributes_Tbl_Type,
4391: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
4392: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
4429: p_pricing_attribute2 VARCHAR2 ) IS
4430: SELECT price_attribute_id
4431: FROM aso_price_attributes
4432: WHERE quote_header_id = p_quote_header_id
4433: AND nvl(quote_line_id,0) = nvl(decode(p_quote_line_id,FND_API.G_MISS_NUM,null,p_quote_line_id),0)
4434: AND nvl(pricing_attribute1,'X') = nvl(p_pricing_attribute1,'X')
4435: AND nvl(pricing_attribute2,'Y') = nvl(p_pricing_attribute2,'Y');
4436:
4437: Cursor C_get_attr1(p_quote_header_id NUMBER,
4439: p_list_line_id NUMBER) IS
4440: SELECT price_attribute_id
4441: FROM aso_price_attributes
4442: WHERE quote_header_id = p_quote_header_id
4443: AND nvl(quote_line_id,0) = nvl(decode(p_quote_line_id,FND_API.G_MISS_NUM,null,p_quote_line_id),0)
4444: AND pricing_attribute1 IN ( SELECT to_char(qpe.list_header_id)
4445: FROM qp_list_lines qpe
4446: WHERE qpe.list_line_id = p_list_line_id);
4447:
4451: p_pricing_attribute2 VARCHAR2) IS
4452: SELECT price_attribute_id
4453: FROM aso_price_attributes
4454: WHERE quote_header_id = p_quote_header_id
4455: AND nvl(quote_line_id,0) = nvl(decode(p_quote_line_id,FND_API.G_MISS_NUM,null,p_quote_line_id),0)
4456: AND (
4457: ( nvl(pricing_attribute2,'X') = nvl(p_pricing_attribute2,'X') AND
4458: p_pricing_attribute2 IS NOT NULL
4459: )
4488: -- Standard Start of API savepoint
4489: SAVEPOINT VALIDATE_PROMOTION_PVT;
4490:
4491: -- Standard call to check for call compatibility.
4492: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
4493: p_api_version_number,
4494: l_api_name,
4495: G_PKG_NAME)
4496: THEN
4493: p_api_version_number,
4494: l_api_name,
4495: G_PKG_NAME)
4496: THEN
4497: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4498: END IF;
4499:
4500: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
4501:
4503: aso_debug_pub.add('Start of Validate_Promotion .....',1,'Y');
4504: END IF;
4505:
4506: -- Initialize message list if p_init_msg_list is set to TRUE.
4507: IF FND_API.to_Boolean( p_init_msg_list )
4508: THEN
4509: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4510: aso_debug_pub.add('Begin FND_API.to_Boolean'||p_init_msg_list, 1, 'Y');
4511: END IF;
4506: -- Initialize message list if p_init_msg_list is set to TRUE.
4507: IF FND_API.to_Boolean( p_init_msg_list )
4508: THEN
4509: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4510: aso_debug_pub.add('Begin FND_API.to_Boolean'||p_init_msg_list, 1, 'Y');
4511: END IF;
4512: FND_MSG_PUB.initialize;
4513: END IF;
4514:
4511: END IF;
4512: FND_MSG_PUB.initialize;
4513: END IF;
4514:
4515: x_return_status := FND_API.G_RET_STS_SUCCESS;
4516:
4517: l_price_attr_tbl := p_price_attr_tbl;
4518: m_price_attr_tbl := p_price_attr_tbl;
4519:
4527: END IF;
4528: If m_price_attr_tbl(i).operation_code = 'CREATE' Then
4529:
4530: If m_price_attr_tbl(i).pricing_attribute1 IS NOT NULL
4531: AND m_price_attr_tbl(i).pricing_attribute1 <> FND_API.G_MISS_CHAR THEN
4532: m_price_attr_tbl(i).pricing_attribute2 := null;
4533: l_list_header_id := to_number(m_price_attr_tbl(i).pricing_attribute1);
4534: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4535: aso_debug_pub.add('If m_price_attr_tbl(i).pricing_attribute1 IS NOT NULL l_list_header_id:'
4583: l_dup_ln_count := l_dup_ln_count + 1;
4584: else
4585: l_search_price_attr2_tbl(l_list_line_id).qte_line_index := l_list_line_id;
4586: For j IN 1..l_price_attr_tbl.count LOOP
4587: if ( l_price_attr_tbl(j).pricing_attribute2 = FND_API.G_MISS_CHAR ) then
4588: l_price_attr_tbl(j).pricing_attribute2 := null;
4589: end if;
4590: If l_list_line_id = to_number(nvl(l_price_attr_tbl(j).pricing_attribute2,'0'))
4591: AND l_price_attr_tbl(j).operation_code = 'CREATE' THEN
4696: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4697: aso_debug_pub.add('Duplicate record for list_header_id: '
4698: ||m_price_attr_tbl(i).pricing_attribute1,1,'N');
4699: END IF;
4700: x_return_status := FND_API.G_RET_STS_ERROR;
4701: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4702: FND_MESSAGE.Set_Name('ASO', 'ASO_VAL_PROMO_DUPLICATE_HDR');
4703: FND_MESSAGE.Set_Token('MODHDRID', m_price_attr_tbl(i).pricing_attribute1, FALSE);
4704: FND_MSG_PUB.Add;
4702: FND_MESSAGE.Set_Name('ASO', 'ASO_VAL_PROMO_DUPLICATE_HDR');
4703: FND_MESSAGE.Set_Token('MODHDRID', m_price_attr_tbl(i).pricing_attribute1, FALSE);
4704: FND_MSG_PUB.Add;
4705: END IF;
4706: --RAISE FND_API.G_EXC_ERROR;
4707: End If;
4708: End If;-- m_price_attr_tbl(i).pricing_attribute1 IS NOT NULL
4709:
4710: If m_price_attr_tbl(i).pricing_attribute2 IS NOT NULL
4707: End If;
4708: End If;-- m_price_attr_tbl(i).pricing_attribute1 IS NOT NULL
4709:
4710: If m_price_attr_tbl(i).pricing_attribute2 IS NOT NULL
4711: AND m_price_attr_tbl(i).pricing_attribute2 <> FND_API.G_MISS_CHAR THEN
4712:
4713: m_price_attr_tbl(i).pricing_attribute1 := null;
4714:
4715: l_list_line_id := to_number(m_price_attr_tbl(i).pricing_attribute2);
4766: else
4767: l_search_price_attr1_tbl(l_list_header_id).qte_line_index := l_list_header_id;
4768:
4769: For j IN 1..l_price_attr_tbl.count LOOP
4770: if ( l_price_attr_tbl(j).pricing_attribute1 = FND_API.G_MISS_CHAR ) then
4771: l_price_attr_tbl(j).pricing_attribute1 := null;
4772: end if;
4773: If l_list_header_id = to_number(nvl(l_price_attr_tbl(j).pricing_attribute1,'0'))
4774: AND l_price_attr_tbl(j).operation_code = 'CREATE' THEN
4875: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4876: aso_debug_pub.add('Duplicate record for list_line_id: '
4877: ||m_price_attr_tbl(i).pricing_attribute2,1,'N');
4878: END IF;
4879: x_return_status := FND_API.G_RET_STS_ERROR;
4880: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4881: FND_MESSAGE.Set_Name('ASO', 'ASO_VAL_PROMO_DUPLICATE_LN');
4882: FND_MESSAGE.Set_Token('MODLNID', m_price_attr_tbl(i).pricing_attribute2, FALSE);
4883: FND_MSG_PUB.Add;
4881: FND_MESSAGE.Set_Name('ASO', 'ASO_VAL_PROMO_DUPLICATE_LN');
4882: FND_MESSAGE.Set_Token('MODLNID', m_price_attr_tbl(i).pricing_attribute2, FALSE);
4883: FND_MSG_PUB.Add;
4884: END IF;
4885: --RAISE FND_API.G_EXC_ERROR;
4886: End If;
4887:
4888:
4889: End If;-- m_price_attr_tbl(i).pricing_attribute2 IS NOT NULL
4892:
4893: END LOOP;
4894:
4895: -- Standard check for p_commit
4896: IF FND_API.to_Boolean( p_commit ) THEN
4897: COMMIT WORK;
4898: END IF;
4899:
4900: FND_MSG_PUB.Count_And_Get
4914: aso_debug_pub.add('End Validate_Promotion',1,'N');
4915: END IF;
4916:
4917: EXCEPTION
4918: WHEN FND_API.G_EXC_ERROR THEN
4919: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4920: aso_debug_pub.add('after inside EXCEPTION return status'||x_return_status, 1, 'Y');
4921: END IF;
4922: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
4929: ,X_MSG_COUNT => X_MSG_COUNT
4930: ,X_MSG_DATA => X_MSG_DATA
4931: ,X_RETURN_STATUS => X_RETURN_STATUS);
4932:
4933: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4934: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
4935: P_API_NAME => L_API_NAME
4936: ,P_PKG_NAME => G_PKG_NAME
4937: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
4957: END Validate_Promotion;
4958:
4959:
4960: FUNCTION Validate_PaymentTerms(
4961: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
4962: p_payment_term_id IN NUMBER)
4963: RETURN VARCHAR2
4964: IS
4965: CURSOR C_Payment_Terms IS
4971: x_return_status VARCHAR2(1);
4972:
4973: BEGIN
4974: -- Initialize message list if p_init_msg_list is set to TRUE.
4975: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4976: FND_MSG_PUB.initialize;
4977: END IF;
4978:
4979: -- Inititalizing Global Debug Flag Variable.
4980:
4981: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
4982:
4983: -- Initialize API return status to success
4984: x_return_status := FND_API.G_RET_STS_SUCCESS;
4985:
4986: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4987: aso_debug_pub.add('Validate_PaymentTerms: p_payment_term_id: '||p_payment_term_id, 1, 'N');
4988: END IF;
4986: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4987: aso_debug_pub.add('Validate_PaymentTerms: p_payment_term_id: '||p_payment_term_id, 1, 'N');
4988: END IF;
4989:
4990: IF (p_payment_term_id IS NOT NULL AND p_payment_term_id <> FND_API.G_MISS_NUM) THEN
4991: OPEN C_Payment_Terms;
4992: FETCH C_Payment_Terms INTO l_start_date, l_end_date;
4993: IF (C_Payment_Terms%NOTFOUND OR
4994: (TRUNC(sysdate) NOT BETWEEN NVL(TRUNC(l_start_date), TRUNC(sysdate)) AND
4993: IF (C_Payment_Terms%NOTFOUND OR
4994: (TRUNC(sysdate) NOT BETWEEN NVL(TRUNC(l_start_date), TRUNC(sysdate)) AND
4995: NVL(TRUNC(l_end_date), TRUNC(sysdate)))) THEN
4996: CLOSE C_Payment_Terms;
4997: x_return_status := FND_API.G_RET_STS_ERROR;
4998: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4999: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
5000: FND_MESSAGE.Set_Token('COLUMN', 'PAYMENT_TERM', FALSE);
5001: FND_MESSAGE.Set_Token('VALUE',to_char(p_payment_term_id),FALSE);
5013: END Validate_PaymentTerms;
5014:
5015:
5016: FUNCTION Validate_FreightTerms(
5017: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
5018: p_freight_terms_code IN VARCHAR2)
5019: RETURN VARCHAR2
5020: IS
5021: CURSOR C_Freight_Terms IS
5029: x_return_status VARCHAR2(1);
5030:
5031: BEGIN
5032: -- Initialize message list if p_init_msg_list is set to TRUE.
5033: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5034: FND_MSG_PUB.initialize;
5035: END IF;
5036:
5037: -- Inititalizing Global Debug Flag Variable.
5038:
5039: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
5040:
5041: -- Initialize API return status to success
5042: x_return_status := FND_API.G_RET_STS_SUCCESS;
5043:
5044: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5045: aso_debug_pub.add('Validate_FreightTerms: p_freight_terms_code: '||p_freight_terms_code, 1, 'N');
5046: END IF;
5044: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5045: aso_debug_pub.add('Validate_FreightTerms: p_freight_terms_code: '||p_freight_terms_code, 1, 'N');
5046: END IF;
5047:
5048: IF (p_freight_terms_code IS NOT NULL AND p_freight_terms_code <> FND_API.G_MISS_NUM) THEN
5049: OPEN C_Freight_Terms;
5050: FETCH C_Freight_Terms INTO l_start_date, l_end_date;
5051: IF (C_Freight_Terms%NOTFOUND OR
5052: (TRUNC(sysdate) NOT BETWEEN NVL(TRUNC(l_start_date), TRUNC(sysdate)) AND
5051: IF (C_Freight_Terms%NOTFOUND OR
5052: (TRUNC(sysdate) NOT BETWEEN NVL(TRUNC(l_start_date), TRUNC(sysdate)) AND
5053: NVL(TRUNC(l_end_date), TRUNC(sysdate)))) THEN
5054: CLOSE C_Freight_Terms;
5055: x_return_status := FND_API.G_RET_STS_ERROR;
5056: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5057: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
5058: FND_MESSAGE.Set_Token('COLUMN', 'FREIGHT_TERM', FALSE);
5059: FND_MESSAGE.Set_Token('VALUE',p_freight_terms_code,FALSE);
5071: END Validate_FreightTerms;
5072:
5073:
5074: FUNCTION Validate_ShipMethods(
5075: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
5076: p_ship_method_code IN VARCHAR2,
5077: p_ship_from_org_id IN NUMBER := FND_API.G_MISS_NUM,
5078: p_qte_header_id IN NUMBER,
5079: p_qte_line_id IN NUMBER := FND_API.G_MISS_NUM)
5073:
5074: FUNCTION Validate_ShipMethods(
5075: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
5076: p_ship_method_code IN VARCHAR2,
5077: p_ship_from_org_id IN NUMBER := FND_API.G_MISS_NUM,
5078: p_qte_header_id IN NUMBER,
5079: p_qte_line_id IN NUMBER := FND_API.G_MISS_NUM)
5080: RETURN VARCHAR2
5081: IS
5075: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
5076: p_ship_method_code IN VARCHAR2,
5077: p_ship_from_org_id IN NUMBER := FND_API.G_MISS_NUM,
5078: p_qte_header_id IN NUMBER,
5079: p_qte_line_id IN NUMBER := FND_API.G_MISS_NUM)
5080: RETURN VARCHAR2
5081: IS
5082: CURSOR C_ship_method_code (p_org_id NUMBER) IS
5083: SELECT start_date_active, end_date_active
5108: WHERE aso.quote_line_id = p_qte_line_id;
5109:
5110: l_start_date DATE;
5111: l_end_date DATE;
5112: l_org_id NUMBER := FND_API.G_MISS_NUM;
5113: l_hdr_org_id NUMBER;
5114: l_line_organization_id NUMBER;
5115: l_line_org_id NUMBER;
5116: x_return_status VARCHAR2(1);
5117:
5118: BEGIN
5119:
5120: -- Initialize message list if p_init_msg_list is set to TRUE.
5121: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5122: FND_MSG_PUB.initialize;
5123: END IF;
5124:
5125: -- Inititalizing Global Debug Flag Variable.
5126:
5127: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
5128:
5129: -- Initialize API return status to success
5130: x_return_status := FND_API.G_RET_STS_SUCCESS;
5131:
5132: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5133: aso_debug_pub.add('Validate_ShipMethods: p_ship_method_code :'||p_ship_method_code, 1, 'N');
5134: aso_debug_pub.add('Validate_ShipMethods: p_ship_from_org_id :'||p_ship_from_org_id, 1, 'N');
5135: aso_debug_pub.add('Validate_ShipMethods: p_qte_header_id:'||p_qte_header_id, 1, 'N');
5136: aso_debug_pub.add('Validate_ShipMethods: p_qte_line_id:'||p_qte_line_id, 1, 'N');
5137: END IF;
5138:
5139: IF (p_ship_from_org_id IS NULL OR p_ship_from_org_id = FND_API.G_MISS_NUM) THEN
5140: IF (p_qte_header_id IS NOT NULL AND p_qte_header_id <> FND_API.G_MISS_NUM) THEN
5141: IF (p_qte_line_id IS NULL OR p_qte_line_id = FND_API.G_MISS_NUM) THEN
5142: -- Header Level
5143: OPEN C_qte_header_org_info;
5136: aso_debug_pub.add('Validate_ShipMethods: p_qte_line_id:'||p_qte_line_id, 1, 'N');
5137: END IF;
5138:
5139: IF (p_ship_from_org_id IS NULL OR p_ship_from_org_id = FND_API.G_MISS_NUM) THEN
5140: IF (p_qte_header_id IS NOT NULL AND p_qte_header_id <> FND_API.G_MISS_NUM) THEN
5141: IF (p_qte_line_id IS NULL OR p_qte_line_id = FND_API.G_MISS_NUM) THEN
5142: -- Header Level
5143: OPEN C_qte_header_org_info;
5144: FETCH C_qte_header_org_info INTO l_hdr_org_id;
5137: END IF;
5138:
5139: IF (p_ship_from_org_id IS NULL OR p_ship_from_org_id = FND_API.G_MISS_NUM) THEN
5140: IF (p_qte_header_id IS NOT NULL AND p_qte_header_id <> FND_API.G_MISS_NUM) THEN
5141: IF (p_qte_line_id IS NULL OR p_qte_line_id = FND_API.G_MISS_NUM) THEN
5142: -- Header Level
5143: OPEN C_qte_header_org_info;
5144: FETCH C_qte_header_org_info INTO l_hdr_org_id;
5145: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5147: END IF;
5148: IF C_qte_header_org_info%FOUND THEN
5149: l_org_id := TO_NUMBER(OE_PROFILE.VALUE('OE_ORGANIZATION_ID',l_hdr_org_id));
5150: ELSE
5151: x_return_status := FND_API.G_RET_STS_ERROR;
5152: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5153: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
5154: FND_MESSAGE.Set_Token('COLUMN', 'SHIPPING_METHOD', FALSE);
5155: FND_MESSAGE.Set_Token('VALUE',p_ship_method_code,FALSE);
5156: FND_MSG_PUB.ADD;
5157: END IF;
5158: END IF;
5159: CLOSE C_qte_header_org_info;
5160: ELSIF (p_qte_line_id IS NOT NULL AND p_qte_line_id <> FND_API.G_MISS_NUM) THEN
5161: -- Line Level
5162: OPEN C_qte_line_organization;
5163: FETCH C_qte_line_organization INTO l_line_organization_id;
5164: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5174: END IF;
5175: IF C_qte_line_org_id_info%FOUND THEN
5176: l_org_id := TO_NUMBER(OE_PROFILE.VALUE('OE_ORGANIZATION_ID',l_line_org_id));
5177: ELSE
5178: x_return_status := FND_API.G_RET_STS_ERROR;
5179: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5180: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
5181: FND_MESSAGE.Set_Token('COLUMN', 'SHIPPING_METHOD', FALSE);
5182: FND_MESSAGE.Set_Token('VALUE',p_ship_method_code,FALSE);
5187: CLOSE C_qte_line_org_id_info;
5188: END IF;
5189: CLOSE C_qte_line_organization;
5190: END IF;
5191: ELSIF (p_qte_header_id IS NULL OR p_qte_header_id = FND_API.G_MISS_NUM) THEN
5192: x_return_status := FND_API.G_RET_STS_ERROR;
5193: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5194: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
5195: FND_MESSAGE.Set_Token('COLUMN', 'SHIPPING_METHOD', FALSE);
5188: END IF;
5189: CLOSE C_qte_line_organization;
5190: END IF;
5191: ELSIF (p_qte_header_id IS NULL OR p_qte_header_id = FND_API.G_MISS_NUM) THEN
5192: x_return_status := FND_API.G_RET_STS_ERROR;
5193: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5194: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
5195: FND_MESSAGE.Set_Token('COLUMN', 'SHIPPING_METHOD', FALSE);
5196: FND_MESSAGE.Set_Token('VALUE',p_ship_method_code,FALSE);
5205: aso_debug_pub.add('Validate_ShipMethods: l_org_id:'||l_org_id, 1, 'N');
5206: aso_debug_pub.add('Validate_ShipMethods: Before Process x_return_status:'||x_return_status, 1, 'N');
5207: END IF;
5208: IF (p_ship_method_code IS NOT NULL ) AND
5209: -- AND p_ship_method_code <> FND_API.G_MISS_CHAR) AND
5210: (l_org_id IS NOT NULL AND l_org_id <> FND_API.G_MISS_NUM) AND
5211: (x_return_status = FND_API.G_RET_STS_SUCCESS)
5212: THEN
5213: OPEN C_ship_method_code(l_org_id);
5206: aso_debug_pub.add('Validate_ShipMethods: Before Process x_return_status:'||x_return_status, 1, 'N');
5207: END IF;
5208: IF (p_ship_method_code IS NOT NULL ) AND
5209: -- AND p_ship_method_code <> FND_API.G_MISS_CHAR) AND
5210: (l_org_id IS NOT NULL AND l_org_id <> FND_API.G_MISS_NUM) AND
5211: (x_return_status = FND_API.G_RET_STS_SUCCESS)
5212: THEN
5213: OPEN C_ship_method_code(l_org_id);
5214: FETCH C_ship_method_code INTO l_start_date, l_end_date;
5207: END IF;
5208: IF (p_ship_method_code IS NOT NULL ) AND
5209: -- AND p_ship_method_code <> FND_API.G_MISS_CHAR) AND
5210: (l_org_id IS NOT NULL AND l_org_id <> FND_API.G_MISS_NUM) AND
5211: (x_return_status = FND_API.G_RET_STS_SUCCESS)
5212: THEN
5213: OPEN C_ship_method_code(l_org_id);
5214: FETCH C_ship_method_code INTO l_start_date, l_end_date;
5215: IF (C_ship_method_code%NOTFOUND OR
5215: IF (C_ship_method_code%NOTFOUND OR
5216: (TRUNC(sysdate) NOT BETWEEN NVL(TRUNC(l_start_date), TRUNC(sysdate)) AND
5217: NVL(TRUNC(l_end_date), TRUNC(sysdate)))) THEN
5218: CLOSE C_ship_method_code;
5219: x_return_status := FND_API.G_RET_STS_ERROR;
5220: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5221: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
5222: FND_MESSAGE.Set_Token('COLUMN', 'SHIP_METHOD_CODE', FALSE);
5223: FND_MESSAGE.Set_Token('VALUE',p_ship_method_code,FALSE);
5259: l_end_date date;
5260:
5261: Begin
5262: IF p_qte_line_rec.order_line_type_id IS NOT NULL AND
5263: p_qte_line_rec.order_line_type_id <> FND_API.G_MISS_NUM THEN
5264:
5265: OPEN c_ln_type_for_ord_type;
5266: FETCH c_ln_type_for_ord_type into l_start_date, l_end_Date;
5267:
5266: FETCH c_ln_type_for_ord_type into l_start_date, l_end_Date;
5267:
5268: IF c_ln_type_for_ord_type%NOTFOUND THEN
5269:
5270: x_return_status := FND_API.G_RET_STS_ERROR;
5271:
5272: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5273: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_LINE_TYPE');
5274: FND_MSG_PUB.ADD;
5306: OPEN c_ln_category_code;
5307: FETCH c_ln_category_code into l_line_category_code;
5308: CLOSE c_ln_category_code;
5309:
5310: IF (p_qte_header_rec.quote_category_code = FND_API.G_MISS_CHAR) THEN
5311: OPEN c_qte_category_code;
5312: FETCH c_qte_category_code into l_quote_category_code;
5313: CLOSE c_qte_category_code;
5314: else
5317:
5318: IF l_line_category_code = 'RETURN' THEN
5319: IF (l_quote_category_code <> 'MIXED') THEN
5320:
5321: x_return_status := FND_API.G_RET_STS_ERROR;
5322: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5323: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_LINE_CATEGORY_CODE');
5324: FND_MSG_PUB.ADD;
5325: END IF;
5331:
5332:
5333: Procedure Validate_po_line_number
5334: (
5335: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
5336: p_qte_header_rec IN ASO_QUOTE_PUB.Qte_Header_Rec_Type,
5337: P_Qte_Line_rec IN ASO_QUOTE_PUB.Qte_Line_Rec_Type := ASO_QUOTE_PUB.G_MISS_QTE_LINE_REC,
5338: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
5339: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
5364: l_po_ln_number_lines varchar2(50);
5365:
5366:
5367: Begin
5368: x_return_status := FND_API.G_RET_STS_SUCCESS;
5369:
5370: if (P_Qte_Line_rec.quote_line_id is not null) and (P_Qte_Line_rec.quote_line_id <> FND_API.G_MISS_NUM) then
5371:
5372: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5366:
5367: Begin
5368: x_return_status := FND_API.G_RET_STS_SUCCESS;
5369:
5370: if (P_Qte_Line_rec.quote_line_id is not null) and (P_Qte_Line_rec.quote_line_id <> FND_API.G_MISS_NUM) then
5371:
5372: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5373: aso_debug_pub.add('Validate_po_line_number:quote_header_id:'||p_qte_header_rec.quote_header_id , 1, 'N');
5374: aso_debug_pub.add('Validate_po_line_number:quote_line_id:'||P_Qte_Line_rec.quote_line_id , 1, 'N');
5396: END IF;
5397:
5398:
5399: IF l_ln_hd_po_number is null THEN
5400: x_return_status := FND_API.G_RET_STS_ERROR;
5401:
5402: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5403: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_PO_NUMBER');
5404: FND_MSG_PUB.ADD;
5432: FETCH c_po_ln_number_lines into l_po_ln_number_lines;
5433:
5434: IF l_po_ln_number_lines is not null THEN
5435:
5436: x_return_status := FND_API.G_RET_STS_ERROR;
5437:
5438: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5439: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_PO_NUMBER');
5440: FND_MSG_PUB.ADD;
5458:
5459:
5460: PROCEDURE validate_service_ref_line_id
5461: (
5462: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
5463: p_service_ref_type_code IN VARCHAR2,
5464: p_service_ref_line_id IN NUMBER,
5465: p_qte_header_id IN NUMBER := fnd_api.g_miss_num,
5466: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
5461: (
5462: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
5463: p_service_ref_type_code IN VARCHAR2,
5464: p_service_ref_line_id IN NUMBER,
5465: p_qte_header_id IN NUMBER := fnd_api.g_miss_num,
5466: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
5467: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
5468: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
5469: is
5488: if aso_debug_pub.g_debug_flag = 'Y' then
5489: aso_debug_pub.add('Begin validate_service_ref_line_id', 1, 'Y');
5490: end if;
5491:
5492: if p_init_msg_list = fnd_api.g_true then
5493: fnd_msg_pub.initialize;
5494: end if;
5495:
5496: x_return_status := fnd_api.g_ret_sts_success;
5492: if p_init_msg_list = fnd_api.g_true then
5493: fnd_msg_pub.initialize;
5494: end if;
5495:
5496: x_return_status := fnd_api.g_ret_sts_success;
5497:
5498: if p_service_ref_type_code = 'QUOTE' then
5499:
5500: open c_quote;
5505: end if;
5506:
5507: if c_quote%notfound then
5508:
5509: x_return_status := fnd_api.g_ret_sts_error;
5510:
5511: IF fnd_msg_pub.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5512: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
5513: FND_MESSAGE.Set_Token('COLUMN', 'SERVICE_REF_LINE_ID', FALSE);
5529: end if;
5530:
5531: if c_order%notfound then
5532:
5533: x_return_status := fnd_api.g_ret_sts_error;
5534:
5535: IF fnd_msg_pub.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5536: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
5537: FND_MESSAGE.Set_Token('COLUMN', 'SERVICE_REF_LINE_ID', FALSE);
5553: end if;
5554:
5555: if c_customer_product%notfound then
5556:
5557: x_return_status := fnd_api.g_ret_sts_error;
5558:
5559: IF fnd_msg_pub.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5560: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
5561: FND_MESSAGE.Set_Token('COLUMN', 'SERVICE_REF_LINE_ID', FALSE);
5568: close c_customer_product;
5569: /*** Start: BugNo 8647883: R12.1.2 Service reference SUN ER ***/
5570: elsif p_service_ref_type_code = 'PRODUCT_CATALOG' then
5571: if p_service_ref_line_id is null then
5572: x_return_status := fnd_api.g_ret_sts_error;
5573: IF fnd_msg_pub.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5574: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
5575: FND_MESSAGE.Set_Token('COLUMN', 'SERVICE_REF_LINE_ID', FALSE);
5576: FND_MESSAGE.Set_Token('VALUE',p_service_ref_line_id,FALSE);
5611:
5612:
5613: l_data_exists VARCHAR2(10);
5614: P_Api_Version_Number NUMBER;
5615: P_Init_Msg_List VARCHAR2(100) := FND_API.G_FALSE ;
5616: l_api_version_number CONSTANT NUMBER := 1.0;
5617: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_DEFAULTING_DATA';
5618: G_PKG_NAME CONSTANT VARCHAR2(30) := 'ASO_VALIDATE_PVT';
5619: l_periodicity_profile varchar2(30);
8382: aso_debug_pub.add('Begin VALIDATE_DEFAULTING_DATA', 1, 'Y');
8383: aso_debug_pub.add('******************************************************', 1, 'Y');
8384: END IF;
8385: -- Standard call to check for call compatibility.
8386: -- IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
8387: -- p_api_version_number,
8388: -- l_api_name,
8389: -- G_PKG_NAME) THEN
8390: --
8387: -- p_api_version_number,
8388: -- l_api_name,
8389: -- G_PKG_NAME) THEN
8390: --
8391: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8392: -- END IF;
8393: -- Initialize message list if p_init_msg_list is set to TRUE.
8394: IF FND_API.to_Boolean( p_init_msg_list ) THEN
8395: FND_MSG_PUB.initialize;
8390: --
8391: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8392: -- END IF;
8393: -- Initialize message list if p_init_msg_list is set to TRUE.
8394: IF FND_API.to_Boolean( p_init_msg_list ) THEN
8395: FND_MSG_PUB.initialize;
8396: END IF;
8397:
8398: --- Initialize API return status to SUCCESS
8395: FND_MSG_PUB.initialize;
8396: END IF;
8397:
8398: --- Initialize API return status to SUCCESS
8399: x_return_status := FND_API.G_RET_STS_SUCCESS;
8400:
8401: IF aso_debug_pub.g_debug_flag = 'Y' THEN
8402: aso_debug_pub.add('Before copying all the input parameters to output parameters', 1, 'Y');
8403: END IF;
8427:
8428: --Shipment Priority
8429:
8430: if ( p_shipment_header_rec.SHIPMENT_PRIORITY_CODE is NOT NULL
8431: AND p_shipment_header_rec.SHIPMENT_PRIORITY_CODE <> FND_API.G_MISS_CHAR) THEN
8432:
8433: aso_debug_pub.add('Before opening Cursor C_SHIPMENT_PRIORITY_CODE--Header Level', 1, 'Y');
8434: OPEN C_SHIPMENT_PRIORITY_CODE(P_Shipment_header_rec.SHIPMENT_PRIORITY_CODE); --Header Level
8435: aso_debug_pub.add('Before fetching Cursor C_SHIPMENT_PRIORITY_CODE--Header Level', 1, 'Y');
8453:
8454: END IF;
8455:
8456: if ( p_shipment_line_rec.SHIPMENT_PRIORITY_CODE is NOT NULL
8457: AND p_shipment_line_rec.SHIPMENT_PRIORITY_CODE <> FND_API.G_MISS_CHAR) THEN
8458:
8459: aso_debug_pub.add('Before opening Cursor C_SHIPMENT_PRIORITY_CODE--Line Level', 1, 'Y');
8460: OPEN C_SHIPMENT_PRIORITY_CODE(P_Shipment_line_rec.SHIPMENT_PRIORITY_CODE); --line Level
8461: aso_debug_pub.add('Before fetching Cursor C_SHIPMENT_PRIORITY_CODE--Line Level', 1, 'Y');
8466: x_Shipment_line_rec.SHIPMENT_PRIORITY_CODE := P_Shipment_line_rec.SHIPMENT_PRIORITY_CODE;
8467: ELSE
8468: x_Shipment_line_rec.SHIPMENT_PRIORITY_CODE := NULL ;
8469: aso_debug_pub.add('No Data Found for Cursor...C_SHIPMENT_PRIORITY_CODE--Line Level', 1, 'Y');
8470: --x_return_status := FND_API.G_RET_STS_ERROR;
8471: END IF;
8472: aso_debug_pub.add('Before Closing Cursor C_SHIPMENT_PRIORITY_CODE-Line Level', 1, 'Y');
8473: CLOSE C_SHIPMENT_PRIORITY_CODE;
8474: aso_debug_pub.add('After Closing Cursor C_SHIPMENT_PRIORITY_CODE-Line Level', 1, 'Y');
8477:
8478: --FOB CODE
8479:
8480: if ( p_shipment_header_rec.FOB_CODE is NOT NULL
8481: AND p_shipment_header_rec.FOB_CODE <> FND_API.G_MISS_CHAR) THEN
8482: aso_debug_pub.add('Before opening Cursor C_FOB--Header Level', 1, 'Y');
8483: OPEN C_FOB(P_Shipment_header_rec.FOB_CODE) ; --Header Level
8484: aso_debug_pub.add('Before fetching Cursor C_FOB--Header Level', 1, 'Y');
8485:
8494: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
8495: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_FOB', TRUE);
8496: FND_MSG_PUB.ADD;
8497:
8498: --x_return_status := FND_API.G_RET_STS_ERROR;
8499: END IF;
8500: aso_debug_pub.add('Before Closing Cursor C_FOB--Header Level', 1, 'Y');
8501: CLOSE C_FOB;
8502: aso_debug_pub.add('After Closing Cursor C_FOB--Header Level', 1, 'Y');
8503:
8504: END IF;
8505:
8506: if ( p_shipment_line_rec.FOB_CODE is NOT NULL
8507: AND p_shipment_line_rec.FOB_CODE <> FND_API.G_MISS_CHAR) THEN
8508: aso_debug_pub.add('Before opening Cursor C_FOB--Line Level', 1, 'Y');
8509: OPEN C_FOB(P_Shipment_line_rec.FOB_CODE) ; --line Level
8510: aso_debug_pub.add('Before fetching Cursor C_FOB--Line Level', 1, 'Y');
8511: FETCH C_FOB INTO l_data_exists ;
8514: x_Shipment_line_rec.FOB_CODE := P_Shipment_line_rec.FOB_CODE ;
8515: ELSE
8516: x_Shipment_line_rec.FOB_CODE := NULL ;
8517: aso_debug_pub.add('No Data Found for Cursor...C_FOB--Line Level', 1, 'Y');
8518: --x_return_status := FND_API.G_RET_STS_ERROR;
8519: END IF;
8520: aso_debug_pub.add('Before Closing Cursor C_FOB--Line Level', 1, 'Y');
8521: CLOSE C_FOB;
8522: aso_debug_pub.add('After Closing Cursor C_FOB--Line Level', 1, 'Y');
8525:
8526: --Credit Card Type
8527:
8528: if ( P_Payment_header_rec.CREDIT_CARD_CODE is NOT NULL
8529: AND P_Payment_header_rec.CREDIT_CARD_CODE <> FND_API.G_MISS_CHAR ) THEN
8530:
8531: IF (P_Payment_header_rec.PAYMENT_TYPE_CODE = 'CREDIT_CARD') THEN
8532:
8533: aso_debug_pub.add('Before opening Cursor C_CREDIT_CARD_TYPE--Header Level', 1, 'Y');
8545: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
8546: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_CREDIT_CARD_TYPE', TRUE);
8547: FND_MSG_PUB.ADD;
8548:
8549: --x_return_status := FND_API.G_RET_STS_ERROR;
8550: END IF;
8551: aso_debug_pub.add('Before Closing Cursor C_CREDIT_CARD_TYPE--Header Level', 1, 'Y');
8552: CLOSE C_CREDIT_CARD_TYPE;
8553: aso_debug_pub.add('After Closing Cursor C_CREDIT_CARD_TYPE--Header Level', 1, 'Y');
8564: end if;
8565:
8566:
8567: if ( P_Payment_line_rec.CREDIT_CARD_CODE is NOT NULL
8568: AND P_Payment_line_rec.CREDIT_CARD_CODE <> FND_API.G_MISS_CHAR ) THEN
8569:
8570: IF (P_Payment_header_rec.PAYMENT_TYPE_CODE = 'CREDIT_CARD') THEN
8571:
8572: aso_debug_pub.add('Before opening Cursor C_CREDIT_CARD_TYPE--Line Level', 1, 'Y');
8578: x_Payment_line_rec.CREDIT_CARD_CODE := P_Payment_line_rec.CREDIT_CARD_CODE;
8579: ELSE
8580: x_Payment_line_rec.CREDIT_CARD_CODE := NULL ;
8581: aso_debug_pub.add('No Data Found for Cursor...C_CREDIT_CARD_TYPE--Line Level', 1, 'Y');
8582: --x_return_status := FND_API.G_RET_STS_ERROR;
8583: END IF;
8584: aso_debug_pub.add('Before Closing Cursor C_CREDIT_CARD_TYPE--Line Level', 1, 'Y');
8585: CLOSE C_CREDIT_CARD_TYPE;
8586: aso_debug_pub.add('After Closing Cursor C_CREDIT_CARD_TYPE--Line Level', 1, 'Y');
8594:
8595: --Demand Class
8596:
8597: if ( P_Shipment_header_rec.DEMAND_CLASS_CODE is NOT NULL
8598: AND P_Shipment_header_rec.DEMAND_CLASS_CODE <> FND_API.G_MISS_CHAR) THEN
8599: aso_debug_pub.add('Before opening Cursor C_DEMAND_CLASS--Header Level', 1, 'Y');
8600:
8601: OPEN C_DEMAND_CLASS(P_Shipment_header_rec.DEMAND_CLASS_CODE) ; --Header Level
8602: aso_debug_pub.add('Before fetching Cursor C_DEMAND_CLASS--Header Level', 1, 'Y');
8610:
8611: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
8612: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_DEMAND_CLASS', TRUE);
8613: FND_MSG_PUB.ADD;
8614: --x_return_status := FND_API.G_RET_STS_ERROR;
8615: END IF;
8616: aso_debug_pub.add('before Closing Cursor C_DEMAND_CLASS--Header Level', 1, 'Y');
8617: CLOSE C_DEMAND_CLASS;
8618: aso_debug_pub.add('After Closing Cursor C_DEMAND_CLASS--Header Level', 1, 'Y');
8619:
8620: end if;
8621:
8622: if ( P_Shipment_line_rec.DEMAND_CLASS_CODE is NOT NULL
8623: AND P_Shipment_line_rec.DEMAND_CLASS_CODE <> FND_API.G_MISS_CHAR) THEN
8624: aso_debug_pub.add('Before opening Cursor C_DEMAND_CLASS--Line Level', 1, 'Y');
8625:
8626: OPEN C_DEMAND_CLASS(P_Shipment_line_rec.DEMAND_CLASS_CODE) ; --Line Level
8627: aso_debug_pub.add('Before fetching Cursor C_DEMAND_CLASS--Line Level', 1, 'Y');
8631: x_Shipment_line_rec.DEMAND_CLASS_CODE := P_Shipment_line_rec.DEMAND_CLASS_CODE ;
8632: ELSE
8633: x_Shipment_line_rec.DEMAND_CLASS_CODE := NULL ;
8634: aso_debug_pub.add('No Data Found for Cursor...C_DEMAND_CLASS--Line Level', 1, 'Y');
8635: --x_return_status := FND_API.G_RET_STS_ERROR;
8636: END IF;
8637: aso_debug_pub.add('Before Closing Cursor C_DEMAND_CLASS--Line Level', 1, 'Y');
8638: CLOSE C_DEMAND_CLASS;
8639: aso_debug_pub.add('After Closing Cursor C_DEMAND_CLASS--Line Level', 1, 'Y');
8642:
8643: --Request Date Type
8644:
8645: if ( P_Shipment_header_rec.REQUEST_DATE_TYPE is NOT NULL
8646: AND P_Shipment_header_rec.REQUEST_DATE_TYPE <> FND_API.G_MISS_CHAR) THEN
8647:
8648: aso_debug_pub.add('Before opening Cursor C_REQUEST_DATE_TYPE--Header Level', 1, 'Y');
8649:
8650: OPEN C_REQUEST_DATE_TYPE(p_Shipment_header_rec.REQUEST_DATE_TYPE) ; --Header Level
8660: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
8661: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_RQSTD_DATE_TYPE', TRUE);
8662: FND_MSG_PUB.ADD;
8663:
8664: --x_return_status := FND_API.G_RET_STS_ERROR;
8665: END IF;
8666: aso_debug_pub.add('Before closing Cursor C_REQUEST_DATE_TYPE--Header Level', 1, 'Y');
8667: CLOSE C_REQUEST_DATE_TYPE;
8668: aso_debug_pub.add('After Closing Cursor C_REQUEST_DATE_TYPE--Header Level', 1, 'Y');
8669:
8670: end if;
8671:
8672: if ( P_Shipment_line_rec.REQUEST_DATE_TYPE is NOT NULL
8673: AND P_Shipment_line_rec.REQUEST_DATE_TYPE <> FND_API.G_MISS_CHAR) THEN
8674:
8675: aso_debug_pub.add('Before opening Cursor REQUEST_DATE_TYPE--Line Level', 1, 'Y');
8676:
8677: OPEN C_REQUEST_DATE_TYPE(p_Shipment_line_rec.REQUEST_DATE_TYPE) ; --Line Level
8682: x_Shipment_line_rec.REQUEST_DATE_TYPE := p_Shipment_line_rec.REQUEST_DATE_TYPE ;
8683: ELSE
8684: x_Shipment_line_rec.REQUEST_DATE_TYPE := NULL ;
8685: aso_debug_pub.add('No Data Found for Cursor...C_REQUEST_DATE_TYPE--Line Level', 1, 'Y');
8686: --x_return_status := FND_API.G_RET_STS_ERROR;
8687: END IF;
8688: aso_debug_pub.add('Before Closing Cursor REQUEST_DATE_TYPE--Line Level', 1, 'Y');
8689: CLOSE C_REQUEST_DATE_TYPE;
8690: aso_debug_pub.add('After Closing Cursor REQUEST_DATE_TYPE--Line Level', 1, 'Y');
8693:
8694: --Request Date
8695:
8696: if ( P_Shipment_header_rec.REQUEST_DATE is NOT NULL
8697: AND P_Shipment_header_rec.REQUEST_DATE <> FND_API.G_MISS_DATE) THEN
8698:
8699: aso_debug_pub.add('Before opening Cursor C_REQUEST_DATE--Header Level', 1, 'Y');
8700: OPEN C_REQUEST_DATE(p_Shipment_header_rec.REQUEST_DATE) ; --Header Level
8701: aso_debug_pub.add('Before fetching Cursor C_REQUEST_DATE--Header Level', 1, 'Y');
8710: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
8711: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_REQUESTED_DATE', TRUE);
8712: FND_MSG_PUB.ADD;
8713:
8714: --x_return_status := FND_API.G_RET_STS_ERROR;
8715: END IF;
8716: aso_debug_pub.add('before Closing Cursor C_REQUEST_DATE--Header Level', 1, 'Y');
8717: CLOSE C_REQUEST_DATE;
8718: aso_debug_pub.add('After Closing Cursor C_REQUEST_DATE--Header Level', 1, 'Y');
8719:
8720: end if;
8721:
8722: if ( P_Shipment_line_rec.REQUEST_DATE is NOT NULL
8723: AND P_Shipment_line_rec.REQUEST_DATE <> FND_API.G_MISS_DATE) THEN
8724:
8725: aso_debug_pub.add('Before opening Cursor C_REQUEST_DATE--Line Level', 1, 'Y');
8726:
8727: OPEN C_REQUEST_DATE(p_Shipment_line_rec.REQUEST_DATE) ; --Line Level
8732: x_Shipment_line_rec.REQUEST_DATE := p_Shipment_line_rec.REQUEST_DATE ;
8733: ELSE
8734: x_Shipment_line_rec.REQUEST_DATE := NULL ;
8735: aso_debug_pub.add('No Data Found for Cursor...C_REQUEST_DATE--Line Level', 1, 'Y');
8736: --x_return_status := FND_API.G_RET_STS_ERROR;
8737: END IF;
8738: aso_debug_pub.add('Before closing Cursor C_REQUEST_DATE--Line Level', 1, 'Y');
8739: CLOSE C_REQUEST_DATE;
8740: aso_debug_pub.add('After Closing Cursor C_REQUEST_DATE--Line Level', 1, 'Y');
8744: --Operating Unit
8745:
8746:
8747: if ( p_quote_header_rec.ORG_ID is NOT NULL
8748: AND p_quote_header_rec.ORG_ID <> FND_API.G_MISS_NUM) THEN
8749:
8750: aso_debug_pub.add('Before opening Cursor C_OPERATING_UNIT--Header Level', 1, 'Y');
8751:
8752: OPEN C_OPERATING_UNIT(p_quote_header_rec.ORG_ID) ; --Header Level
8771: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
8772: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_OPERATING_UNIT', TRUE);
8773: FND_MSG_PUB.ADD;
8774:
8775: --x_return_status := FND_API.G_RET_STS_ERROR;
8776: END IF;
8777: aso_debug_pub.add('Before closing Cursor C_OPERATING_UNIT--Header Level', 1, 'Y');
8778: CLOSE C_OPERATING_UNIT;
8779: aso_debug_pub.add('After Closing Cursor C_CHARGE_PERIODICITY_CODE--Header Level', 1, 'Y');
8779: aso_debug_pub.add('After Closing Cursor C_CHARGE_PERIODICITY_CODE--Header Level', 1, 'Y');
8780: end if;
8781:
8782: if ( p_quote_line_rec.ORG_ID is NOT NULL
8783: AND p_quote_line_rec.ORG_ID <> FND_API.G_MISS_NUM) THEN
8784:
8785: aso_debug_pub.add('Before opening Cursor C_OPERATING_UNIT--Line Level', 1, 'Y');
8786: OPEN C_OPERATING_UNIT(p_quote_line_rec.ORG_ID) ; --Line Level
8787: aso_debug_pub.add('Before fetching Cursor C_OPERATING_UNIT--Line Level', 1, 'Y');
8795: end if;
8796: ELSE
8797: x_quote_line_rec.ORG_ID := NULL ;
8798: aso_debug_pub.add('No Data Found for Cursor...C_OPERATING_UNIT--Line Level', 1, 'Y');
8799: --x_return_status := FND_API.G_RET_STS_ERROR;
8800: END IF;
8801: aso_debug_pub.add('before Closing Cursor C_CHARGE_PERIODICITY_CODE--Line Level', 1, 'Y');
8802: CLOSE C_OPERATING_UNIT;
8803: aso_debug_pub.add('After Closing Cursor C_CHARGE_PERIODICITY_CODE--Line Level', 1, 'Y');
8806:
8807: --Charged Periodicity
8808:
8809: if ( p_quote_line_rec.CHARGE_PERIODICITY_CODE is NOT NULL
8810: AND p_quote_line_rec.CHARGE_PERIODICITY_CODE <> FND_API.G_MISS_CHAR) THEN
8811:
8812: if ( l_periodicity_profile is NOT NULL
8813: AND l_periodicity_profile <> FND_API.G_MISS_CHAR) THEN
8814: aso_debug_pub.add('Before opening Cursor C_CHARGE_PERIODICITY_CODE', 1, 'Y');
8809: if ( p_quote_line_rec.CHARGE_PERIODICITY_CODE is NOT NULL
8810: AND p_quote_line_rec.CHARGE_PERIODICITY_CODE <> FND_API.G_MISS_CHAR) THEN
8811:
8812: if ( l_periodicity_profile is NOT NULL
8813: AND l_periodicity_profile <> FND_API.G_MISS_CHAR) THEN
8814: aso_debug_pub.add('Before opening Cursor C_CHARGE_PERIODICITY_CODE', 1, 'Y');
8815:
8816: OPEN C_CHARGE_PERIODICITY_CODE(p_quote_line_rec.CHARGE_PERIODICITY_CODE,l_periodicity_profile) ; --Line Level Only
8817:
8822: x_quote_line_rec.CHARGE_PERIODICITY_CODE := p_quote_line_rec.CHARGE_PERIODICITY_CODE ;
8823: ELSE
8824: x_quote_line_rec.CHARGE_PERIODICITY_CODE := NULL ;
8825: aso_debug_pub.add('No Data Found for Cursor...CHARGE_PERIODICITY_CODE', 1, 'Y');
8826: --x_return_status := FND_API.G_RET_STS_ERROR;
8827: END IF;
8828: aso_debug_pub.add('Before closing Cursor C_CHARGE_PERIODICITY_CODE', 1, 'Y');
8829: CLOSE C_CHARGE_PERIODICITY_CODE;
8830: aso_debug_pub.add('After Closing Cursor C_CHARGE_PERIODICITY_CODE', 1, 'Y');
8834:
8835: --Auotmatic Pricing
8836:
8837: if ( p_quote_header_rec.AUTOMATIC_PRICE_FLAG is NOT NULL
8838: AND p_quote_header_rec.AUTOMATIC_PRICE_FLAG <> FND_API.G_MISS_CHAR) THEN
8839: aso_debug_pub.add('Before opening Cursor C_AUTOMATIC_PRICING', 1, 'Y');
8840:
8841: OPEN C_AUTOMATIC_PRICING(p_quote_header_rec.AUTOMATIC_PRICE_FLAG) ; --Header Level
8842: aso_debug_pub.add('Before fetching Cursor C_AUTOMATIC_PRICING', 1, 'Y');
8850:
8851: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
8852: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_AUTO_PRICING', TRUE);
8853: FND_MSG_PUB.ADD;
8854: --x_return_status := FND_API.G_RET_STS_ERROR;
8855: END IF;
8856: aso_debug_pub.add('Before closing Cursor C_AUTOMATIC_PRICING', 1, 'Y');
8857: CLOSE C_AUTOMATIC_PRICING;
8858: aso_debug_pub.add('After Closing Cursor C_AUTOMATIC_PRICING', 1, 'Y');
8861:
8862: --Auotmatic TAX
8863:
8864: if ( p_quote_header_rec.AUTOMATIC_TAX_FLAG is NOT NULL
8865: AND p_quote_header_rec.AUTOMATIC_TAX_FLAG <> FND_API.G_MISS_CHAR) THEN
8866:
8867: aso_debug_pub.add('Before opening Cursor C_AUTOMATIC_TAX', 1, 'Y');
8868:
8869: OPEN C_AUTOMATIC_TAX(p_quote_header_rec.AUTOMATIC_TAX_FLAG) ; --Header Level
8879: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
8880: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_AUTOMATIC_TAX', TRUE);
8881: FND_MSG_PUB.ADD;
8882:
8883: --x_return_status := FND_API.G_RET_STS_ERROR;
8884: END IF;
8885: aso_debug_pub.add('Before closing Cursor C_AUTOMATIC_TAX', 1, 'Y');
8886: CLOSE C_AUTOMATIC_TAX;
8887: aso_debug_pub.add('After Closing Cursor C_AUTOMATIC_TAX.', 1, 'Y');
8891:
8892: --Payment Type
8893:
8894: if ( P_Payment_header_rec.PAYMENT_TYPE_CODE is NOT NULL
8895: AND P_Payment_header_rec.PAYMENT_TYPE_CODE <> FND_API.G_MISS_CHAR) THEN
8896:
8897: aso_debug_pub.add('Before opening C_PAYMENT_TYPE--Header Level', 1, 'Y');
8898:
8899: OPEN C_PAYMENT_TYPE(P_Payment_header_rec.PAYMENT_TYPE_CODE) ; --Header Level
8909: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
8910: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_PAYMENT_TYPE', TRUE);
8911: FND_MSG_PUB.ADD;
8912:
8913: --x_return_status := FND_API.G_RET_STS_ERROR;
8914: END IF;
8915: aso_debug_pub.add('before Closing Cursor C_PAYMENT_TYPE--Header Level', 1, 'Y');
8916: CLOSE C_PAYMENT_TYPE;
8917: aso_debug_pub.add('After Closing Cursor C_PAYMENT_TYPE--Header Level', 1, 'Y');
8918:
8919: end if;
8920:
8921: if ( P_Payment_line_rec.PAYMENT_TYPE_CODE is NOT NULL
8922: AND P_Payment_line_rec.PAYMENT_TYPE_CODE <> FND_API.G_MISS_CHAR) THEN
8923:
8924: aso_debug_pub.add('Before opening cursor C_PAYMENT_TYPE--Line Level', 1, 'Y');
8925:
8926: OPEN C_PAYMENT_TYPE(P_Payment_line_rec.PAYMENT_TYPE_CODE) ; --Line Level
8932: x_Payment_line_rec.PAYMENT_TYPE_CODE := P_Payment_line_rec.PAYMENT_TYPE_CODE ;
8933: ELSE
8934: x_Payment_line_rec.PAYMENT_TYPE_CODE := NULL ;
8935: aso_debug_pub.add('No Data Found for Cursor...C_PAYMENT_TYPE--Line Level', 1, 'Y');
8936: --x_return_status := FND_API.G_RET_STS_ERROR;
8937: END IF;
8938:
8939: aso_debug_pub.add('Before closing cursor C_PAYMENT_TYPE--Line Level', 1, 'Y');
8940: CLOSE C_PAYMENT_TYPE;
8943:
8944: END IF;
8945:
8946: if ( p_quote_header_rec.SALES_CHANNEL_CODE is NOT NULL
8947: AND p_quote_header_rec.SALES_CHANNEL_CODE <> FND_API.G_MISS_CHAR) THEN
8948:
8949: aso_debug_pub.add('Before opening Cursor..C_SALESCHANNEL', 1, 'Y');
8950:
8951: OPEN C_SALESCHANNEL(p_quote_header_rec.SALES_CHANNEL_CODE) ; -- Sales Channel(Header)
8963: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
8964: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_SALES_CHANNEL', TRUE);
8965: FND_MSG_PUB.ADD;
8966:
8967: --x_return_status := FND_API.G_RET_STS_ERROR;
8968:
8969: END IF;
8970: aso_debug_pub.add('Before closing Cursor..C_SALESCHANNEL', 1, 'Y');
8971: CLOSE C_SALESCHANNEL;
8975: END IF;
8976: -- ============ Currency-queries (Start) ====================
8977:
8978: if ( p_quote_header_rec.CURRENCY_CODE is NOT NULL
8979: AND p_quote_header_rec.CURRENCY_CODE <> FND_API.G_MISS_CHAR) THEN
8980:
8981: if ( p_quote_header_rec.PRICE_LIST_ID is NOT NULL
8982: AND p_quote_header_rec.PRICE_LIST_ID <> FND_API.G_MISS_NUM ) THEN
8983:
8978: if ( p_quote_header_rec.CURRENCY_CODE is NOT NULL
8979: AND p_quote_header_rec.CURRENCY_CODE <> FND_API.G_MISS_CHAR) THEN
8980:
8981: if ( p_quote_header_rec.PRICE_LIST_ID is NOT NULL
8982: AND p_quote_header_rec.PRICE_LIST_ID <> FND_API.G_MISS_NUM ) THEN
8983:
8984: aso_debug_pub.add('Before opening Cursor..C_QOTHDDET_CURRENCY_NOT_NULL', 1, 'Y');
8985:
8986: OPEN C_QOTHDDET_CURRENCY_NOT_NULL(p_quote_header_rec.CURRENCY_CODE,p_quote_header_rec.PRICE_LIST_ID) ; -- Header Record
8996: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
8997: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_CURRENCY', TRUE);
8998: FND_MSG_PUB.ADD;
8999:
9000: --x_return_status := FND_API.G_RET_STS_ERROR;
9001:
9002: END IF;
9003: aso_debug_pub.add('Before closing Cursor..C_QOTHDDET_CURRENCY_NOT_NULL', 1, 'Y');
9004:
9021:
9022: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
9023: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_CURRENCY', TRUE);
9024: FND_MSG_PUB.ADD;
9025: --x_return_status := FND_API.G_RET_STS_ERROR;
9026:
9027: END IF;
9028: aso_debug_pub.add('Before closing Cursor..C_QOTHDDET_CURRENCY_NULL', 1, 'Y');
9029: CLOSE C_QOTHDDET_CURRENCY_NULL;
9037: --1. ***Validate Contact - Header and Line Level***
9038:
9039: --Validate Contact(Header/Bill)
9040: if ( p_quote_header_rec.invoice_to_party_id is NOT NULL
9041: AND p_quote_header_rec.invoice_to_party_id <> FND_API.G_MISS_NUM) THEN
9042:
9043: aso_debug_pub.add('Before Calling Validate Contact(Header/Bill)', 1, 'Y');
9044:
9045: VALIDATE_CONTACT(p_party_id=>p_quote_header_rec.INVOICE_TO_PARTY_ID,
9053:
9054:
9055: --Validate Contact(Header/Ship)
9056: if ( p_shipment_header_rec.ship_to_party_id is NOT NULL
9057: AND p_shipment_header_rec.ship_to_party_id <> FND_API.G_MISS_NUM) THEN
9058:
9059: aso_debug_pub.add('Before Calling Validate Contact(Header/Ship)', 1, 'Y');
9060:
9061: VALIDATE_CONTACT(p_party_id=>p_shipment_header_rec.SHIP_TO_PARTY_ID,
9067: END IF ;
9068:
9069: --Validate Contact(Header/End)
9070: if ( p_quote_header_rec.end_customer_party_id is NOT NULL
9071: AND p_quote_header_rec.end_customer_party_id <> FND_API.G_MISS_NUM) THEN
9072:
9073: aso_debug_pub.add('Before Calling Validate Contact(Header/End)', 1, 'Y');
9074:
9075: VALIDATE_CONTACT(p_party_id=>p_quote_header_rec.END_CUSTOMER_PARTY_ID,
9081: END IF ;
9082:
9083: --Validate Contact(Header/SOLD)
9084: if ( p_quote_header_rec.party_id is NOT NULL
9085: AND p_quote_header_rec.party_id <> FND_API.G_MISS_NUM) THEN
9086:
9087: aso_debug_pub.add('Before Calling Validate Contact(Header/SOLD)', 1, 'Y');
9088:
9089: VALIDATE_CONTACT(p_party_id=>p_quote_header_rec.PARTY_ID,
9095: END IF ;
9096:
9097: --Validate Contact(Line/Bill)
9098: if ( p_quote_line_rec.invoice_to_party_id is NOT NULL
9099: AND p_quote_line_rec.invoice_to_party_id <> FND_API.G_MISS_NUM) THEN
9100:
9101: aso_debug_pub.add('Before Calling Validate Contact(Line/Bill)', 1, 'Y');
9102:
9103: VALIDATE_CONTACT(p_party_id=>p_quote_line_rec.INVOICE_TO_PARTY_ID,
9110: END IF ;
9111:
9112: --Validate Contact(Line/Ship)
9113: if ( p_shipment_line_rec.ship_to_party_id is NOT NULL
9114: AND p_shipment_line_rec.ship_to_party_id <> FND_API.G_MISS_NUM) THEN
9115:
9116: aso_debug_pub.add('Before Calling Validate Contact(Line/Ship))', 1, 'Y');
9117:
9118: VALIDATE_CONTACT(p_party_id=>p_shipment_line_rec.ship_to_party_id,
9125: END IF;
9126:
9127: --Validate Contact(Line/End)
9128: if ( p_quote_line_rec.end_customer_party_id is NOT NULL
9129: AND p_quote_line_rec.end_customer_party_id <> FND_API.G_MISS_NUM) THEN
9130:
9131: aso_debug_pub.add('Before Calling Validate Contact(Line/End)', 1, 'Y');
9132:
9133: VALIDATE_CONTACT(p_party_id=>p_quote_line_rec.end_customer_party_id,
9142:
9143: --2. ***Validate Phone - Header Level Only***
9144:
9145: if ( p_quote_header_rec.phone_id is NOT NULL
9146: AND p_quote_header_rec.phone_id <> FND_API.G_MISS_NUM) THEN
9147:
9148: aso_debug_pub.add('Before Calling Validate Phone', 1, 'Y');
9149:
9150: VALIDATE_PHONE(p_phone_id => p_quote_header_rec.phone_id,
9159: --3. ***Validate Address - Header and Line Level***
9160:
9161: --Validate Address(Header/Bill)
9162: if ( p_quote_header_rec.INVOICE_TO_PARTY_SITE_ID is NOT NULL
9163: AND p_quote_header_rec.INVOICE_TO_PARTY_SITE_ID <> FND_API.G_MISS_NUM) THEN
9164:
9165: aso_debug_pub.add('Before Calling Validate Address(Header/Bill)', 1, 'Y');
9166:
9167: VALIDATE_ADDRESS(p_party_site_id => p_quote_header_rec.INVOICE_TO_PARTY_SITE_ID,
9176:
9177: --Validate Address(Header/Ship)
9178:
9179: if ( p_shipment_header_rec.SHIP_TO_PARTY_SITE_ID is NOT NULL
9180: AND p_shipment_header_rec.SHIP_TO_PARTY_SITE_ID <> FND_API.G_MISS_NUM) THEN
9181:
9182: aso_debug_pub.add('Before Calling Validate Address(Header/Ship)', 1, 'Y');
9183:
9184: VALIDATE_ADDRESS(p_party_site_id => p_shipment_header_rec.SHIP_TO_PARTY_SITE_ID,
9193: END IF ;
9194:
9195: --Validate Address(Header/end)
9196: if ( p_quote_header_rec.END_CUSTOMER_PARTY_SITE_ID is NOT NULL
9197: AND p_quote_header_rec.END_CUSTOMER_PARTY_SITE_ID <> FND_API.G_MISS_NUM) THEN
9198:
9199: aso_debug_pub.add('Before Calling Validate Address(Header/end)', 1, 'Y');
9200:
9201: VALIDATE_ADDRESS(p_party_site_id => p_quote_header_rec.END_CUSTOMER_PARTY_SITE_ID,
9211:
9212:
9213: --Validate Address(Header/SOLD)
9214: if ( p_quote_header_rec.SOLD_TO_PARTY_SITE_ID is NOT NULL
9215: AND p_quote_header_rec.SOLD_TO_PARTY_SITE_ID <> FND_API.G_MISS_NUM) THEN
9216:
9217: aso_debug_pub.add('Before Calling Validate Address(Header/SOLD)', 1, 'Y');
9218:
9219: VALIDATE_ADDRESS(p_party_site_id => p_quote_header_rec.SOLD_TO_PARTY_SITE_ID,
9227:
9228:
9229: --Validate Address(Line/Bill)
9230: if ( p_quote_line_rec.INVOICE_TO_PARTY_SITE_ID is NOT NULL
9231: AND p_quote_line_rec.INVOICE_TO_PARTY_SITE_ID <> FND_API.G_MISS_NUM) THEN
9232: aso_debug_pub.add('Before Calling Validate Address(Line/Bill)', 1, 'Y');
9233:
9234: VALIDATE_ADDRESS(p_party_site_id => p_quote_line_rec.INVOICE_TO_PARTY_SITE_ID,
9235: p_party_id => p_quote_line_rec.INVOICE_TO_PARTY_ID,
9241: END IF;
9242:
9243: --Validate Address(Line/Ship)
9244: if ( p_shipment_line_rec.SHIP_TO_PARTY_SITE_ID is NOT NULL
9245: AND p_shipment_line_rec.SHIP_TO_PARTY_SITE_ID <> FND_API.G_MISS_NUM) THEN
9246:
9247: aso_debug_pub.add('Before Calling Validate Address(Line/Ship)', 1, 'Y');
9248:
9249: VALIDATE_ADDRESS(p_party_site_id => p_shipment_line_rec.SHIP_TO_PARTY_SITE_ID,
9256: END IF;
9257:
9258: --Validate Address(Line/end)
9259: if ( p_quote_line_rec.END_CUSTOMER_PARTY_SITE_ID is NOT NULL
9260: AND p_quote_line_rec.END_CUSTOMER_PARTY_SITE_ID <> FND_API.G_MISS_NUM) THEN
9261:
9262: aso_debug_pub.add('Before Calling Validate Address(Line/end)', 1, 'Y');
9263:
9264: VALIDATE_ADDRESS(p_party_site_id => p_quote_line_rec.END_CUSTOMER_PARTY_SITE_ID,
9275: --4. ***Validate Customer - Header and Line Level***
9276:
9277: --Validate Customer(Header/Sold)
9278: if ( P_QUOTE_HEADER_REC.CUST_PARTY_ID is NOT NULL
9279: AND P_QUOTE_HEADER_REC.CUST_PARTY_ID <> FND_API.G_MISS_NUM) THEN
9280:
9281: aso_debug_pub.add('Before Calling Validate Customer(Header/Sold)', 1, 'Y');
9282:
9283: VALIDATE_CUSTOMER(p_cust_party_id => p_quote_header_rec.cust_party_id,
9291:
9292:
9293: --Validate Customer(Header/End)
9294: if ( P_QUOTE_HEADER_REC.END_CUSTOMER_CUST_PARTY_ID is NOT NULL
9295: AND P_QUOTE_HEADER_REC.END_CUSTOMER_CUST_PARTY_ID <> FND_API.G_MISS_NUM) THEN
9296:
9297: aso_debug_pub.add('Before Calling Validate Customer(Header/End)', 1, 'Y');
9298:
9299: VALIDATE_CUSTOMER(p_cust_party_id => p_quote_header_rec.end_customer_cust_party_id,
9307:
9308:
9309: --Validate Customer(Line/End)
9310: if ( P_QUOTE_LINE_REC.END_CUSTOMER_CUST_PARTY_ID is NOT NULL
9311: AND P_QUOTE_LINE_REC.END_CUSTOMER_CUST_PARTY_ID <> FND_API.G_MISS_NUM) THEN
9312:
9313: aso_debug_pub.add('Before Calling Validate Customer(Line/End)', 1, 'Y');
9314:
9315: VALIDATE_CUSTOMER(p_cust_party_id => p_quote_line_rec.end_customer_cust_party_id,
9324: --5. ***Validate Bill Ship Customer***
9325:
9326: --Validate Bill Ship Customer (Header/Bill)
9327: if ( p_quote_header_rec.INVOICE_TO_CUST_PARTY_ID is NOT NULL
9328: AND p_quote_header_rec.INVOICE_TO_CUST_PARTY_ID <> FND_API.G_MISS_NUM) THEN
9329:
9330: aso_debug_pub.add('Before calling Validate Bill Ship Customer (Header/Bill)', 1, 'Y');
9331:
9332: VALIDATE_BILL_SHIP_CUSTOMER(p_cust_party_id =>p_quote_header_rec.INVOICE_TO_CUST_PARTY_ID,
9341:
9342:
9343: --Validate Bill Ship Customer (Header/Ship)
9344: if ( p_shipment_header_rec.SHIP_TO_CUST_PARTY_ID is NOT NULL
9345: AND p_shipment_header_rec.SHIP_TO_CUST_PARTY_ID <> FND_API.G_MISS_NUM) THEN
9346:
9347: aso_debug_pub.add('Before Calling Validate Bill Ship Customer (Header/Ship)', 1, 'Y');
9348:
9349: VALIDATE_BILL_SHIP_CUSTOMER(p_cust_party_id =>p_shipment_header_rec.SHIP_TO_CUST_PARTY_ID,
9357:
9358:
9359: --Validate Bill Ship Customer (Line/Bill)
9360: if ( p_quote_line_rec.INVOICE_TO_CUST_PARTY_ID is NOT NULL
9361: AND p_quote_line_rec.INVOICE_TO_CUST_PARTY_ID <> FND_API.G_MISS_NUM) THEN
9362:
9363: aso_debug_pub.add('Before Calling Validate Bill Ship Customer (Line/Bill)', 1, 'Y');
9364:
9365: VALIDATE_BILL_SHIP_CUSTOMER(p_cust_party_id =>p_quote_line_rec.INVOICE_TO_CUST_PARTY_ID,
9373:
9374:
9375: --Validate Bill Ship Customer (Line/Ship)
9376: if ( p_shipment_line_rec.SHIP_TO_CUST_PARTY_ID is NOT NULL
9377: AND p_shipment_line_rec.SHIP_TO_CUST_PARTY_ID <> FND_API.G_MISS_NUM) THEN
9378:
9379: aso_debug_pub.add('Before Calling Validate Bill Ship Customer (Line/Ship)', 1, 'Y');
9380:
9381: VALIDATE_BILL_SHIP_CUSTOMER(p_cust_party_id =>p_shipment_line_rec.SHIP_TO_CUST_PARTY_ID,
9390: --6. ***Validate Bill Ship Account***
9391:
9392: --Validate Bill Ship Account(Header/Bill)
9393: if ( p_quote_header_rec.INVOICE_TO_CUST_ACCOUNT_ID is NOT NULL
9394: AND p_quote_header_rec.INVOICE_TO_CUST_ACCOUNT_ID <> FND_API.G_MISS_NUM) THEN
9395:
9396: aso_debug_pub.add('Before Calling Validate Bill Ship Account(Header/Bill)', 1, 'Y');
9397:
9398: VALIDATE_BILL_SHIP_ACCOUNT(p_cust_acct_id =>p_quote_header_rec.INVOICE_TO_CUST_ACCOUNT_ID,
9407:
9408:
9409: --Validate Bill Ship Account(Header/Ship)
9410: if ( p_shipment_header_rec.SHIP_TO_CUST_ACCOUNT_ID is NOT NULL
9411: AND p_shipment_header_rec.SHIP_TO_CUST_ACCOUNT_ID <> FND_API.G_MISS_NUM) THEN
9412:
9413: aso_debug_pub.add('Before Calling Validate Bill Ship Account(Header/Ship)', 1, 'Y');
9414:
9415:
9426:
9427:
9428: --Validate Bill Ship Account(Line/Bill)
9429: if ( p_quote_line_rec.INVOICE_TO_CUST_ACCOUNT_ID is NOT NULL
9430: AND p_quote_line_rec.INVOICE_TO_CUST_ACCOUNT_ID <> FND_API.G_MISS_NUM) THEN
9431:
9432: aso_debug_pub.add('Before Calling Validate Bill Ship Account(Line/Bill)', 1, 'Y');
9433:
9434: VALIDATE_BILL_SHIP_ACCOUNT(p_cust_acct_id =>p_quote_line_rec.INVOICE_TO_CUST_ACCOUNT_ID,
9444:
9445:
9446: --Validate Bill Ship Account(Line/Ship)
9447: if ( p_shipment_line_rec.SHIP_TO_CUST_ACCOUNT_ID is NOT NULL
9448: AND p_shipment_line_rec.SHIP_TO_CUST_ACCOUNT_ID <> FND_API.G_MISS_NUM) THEN
9449:
9450: aso_debug_pub.add('Before Calling Validate Bill Ship Account(Line/Ship)', 1, 'Y');
9451:
9452: VALIDATE_BILL_SHIP_ACCOUNT(p_cust_acct_id =>p_shipment_line_rec.SHIP_TO_CUST_ACCOUNT_ID,
9464: --7. ***Validate Account***
9465:
9466: --Validate Account (Header/SOLD)
9467: if ( p_quote_header_rec.CUST_ACCOUNT_ID is NOT NULL
9468: AND p_quote_header_rec.CUST_ACCOUNT_ID <> FND_API.G_MISS_NUM) THEN
9469:
9470: aso_debug_pub.add('Before Calling Validate Account (Header/SOLD)', 1, 'Y');
9471:
9472: VALIDATE_ACCOUNT(p_cust_acct_id => p_quote_header_rec.CUST_ACCOUNT_ID,
9480:
9481:
9482: --Validate Account (Header/END)
9483: if ( p_quote_header_rec.END_CUSTOMER_CUST_ACCOUNT_ID is NOT NULL
9484: AND p_quote_header_rec.END_CUSTOMER_CUST_ACCOUNT_ID <> FND_API.G_MISS_NUM) THEN
9485:
9486: aso_debug_pub.add('Before Calling Validate Account (Header/END)', 1, 'Y');
9487:
9488: VALIDATE_ACCOUNT(p_cust_acct_id => p_quote_header_rec.END_CUSTOMER_CUST_ACCOUNT_ID,
9496:
9497:
9498: --Validate Account (Line/END)
9499: if ( p_quote_line_rec.END_CUSTOMER_CUST_ACCOUNT_ID is NOT NULL
9500: AND p_quote_line_rec.END_CUSTOMER_CUST_ACCOUNT_ID <> FND_API.G_MISS_NUM) THEN
9501:
9502: aso_debug_pub.add('Before Calling Validate Account (Line/END)', 1, 'Y');
9503:
9504: VALIDATE_ACCOUNT(p_cust_acct_id => p_quote_line_rec.END_CUSTOMER_CUST_ACCOUNT_ID,
9526: --Changes for Validating Defaulting Parameters (End):14/09/2005
9527:
9528: Procedure Validate_cc_info
9529: (
9530: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
9531: p_payment_rec IN aso_quote_pub.payment_rec_type,
9532: p_qte_header_rec IN ASO_QUOTE_PUB.Qte_Header_Rec_Type,
9533: P_Qte_Line_rec IN ASO_QUOTE_PUB.Qte_Line_Rec_Type := ASO_QUOTE_PUB.G_MISS_QTE_LINE_REC,
9534: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
9558: if aso_debug_pub.g_debug_flag = 'Y' then
9559: aso_debug_pub.add('Begin Validate_payment_rec', 1, 'Y');
9560: end if;
9561:
9562: if p_init_msg_list = fnd_api.g_true then
9563: fnd_msg_pub.initialize;
9564: end if;
9565:
9566: x_return_status := fnd_api.g_ret_sts_success;
9562: if p_init_msg_list = fnd_api.g_true then
9563: fnd_msg_pub.initialize;
9564: end if;
9565:
9566: x_return_status := fnd_api.g_ret_sts_success;
9567:
9568: if aso_debug_pub.g_debug_flag = 'Y' then
9569: aso_debug_pub.add('Payment Rec.payment_type_code: '||p_payment_rec.payment_type_code, 1, 'Y');
9570: aso_debug_pub.add('Payment Rec.quote_header_id: '||p_payment_rec.quote_header_id, 1, 'Y');
9575:
9576:
9577:
9578: if (p_payment_rec.payment_type_code = 'CREDIT_CARD' and
9579: (p_payment_rec.quote_line_id is null or p_payment_rec.quote_line_id = fnd_api.g_miss_num) and
9580: (p_qte_header_rec.invoice_to_cust_party_id is null or p_qte_header_rec.invoice_to_cust_party_id = fnd_api.g_miss_num))
9581: or
9582: (p_payment_rec.payment_type_code = 'CREDIT_CARD' and
9583: (p_payment_rec.quote_line_id is not null and p_payment_rec.quote_line_id <> fnd_api.g_miss_num) and
9576:
9577:
9578: if (p_payment_rec.payment_type_code = 'CREDIT_CARD' and
9579: (p_payment_rec.quote_line_id is null or p_payment_rec.quote_line_id = fnd_api.g_miss_num) and
9580: (p_qte_header_rec.invoice_to_cust_party_id is null or p_qte_header_rec.invoice_to_cust_party_id = fnd_api.g_miss_num))
9581: or
9582: (p_payment_rec.payment_type_code = 'CREDIT_CARD' and
9583: (p_payment_rec.quote_line_id is not null and p_payment_rec.quote_line_id <> fnd_api.g_miss_num) and
9584: (P_Qte_Line_rec.invoice_to_cust_party_id is null or P_Qte_Line_rec.invoice_to_cust_party_id = fnd_api.g_miss_num))
9579: (p_payment_rec.quote_line_id is null or p_payment_rec.quote_line_id = fnd_api.g_miss_num) and
9580: (p_qte_header_rec.invoice_to_cust_party_id is null or p_qte_header_rec.invoice_to_cust_party_id = fnd_api.g_miss_num))
9581: or
9582: (p_payment_rec.payment_type_code = 'CREDIT_CARD' and
9583: (p_payment_rec.quote_line_id is not null and p_payment_rec.quote_line_id <> fnd_api.g_miss_num) and
9584: (P_Qte_Line_rec.invoice_to_cust_party_id is null or P_Qte_Line_rec.invoice_to_cust_party_id = fnd_api.g_miss_num))
9585: then
9586:
9587: x_return_status := fnd_api.g_ret_sts_error;
9580: (p_qte_header_rec.invoice_to_cust_party_id is null or p_qte_header_rec.invoice_to_cust_party_id = fnd_api.g_miss_num))
9581: or
9582: (p_payment_rec.payment_type_code = 'CREDIT_CARD' and
9583: (p_payment_rec.quote_line_id is not null and p_payment_rec.quote_line_id <> fnd_api.g_miss_num) and
9584: (P_Qte_Line_rec.invoice_to_cust_party_id is null or P_Qte_Line_rec.invoice_to_cust_party_id = fnd_api.g_miss_num))
9585: then
9586:
9587: x_return_status := fnd_api.g_ret_sts_error;
9588:
9583: (p_payment_rec.quote_line_id is not null and p_payment_rec.quote_line_id <> fnd_api.g_miss_num) and
9584: (P_Qte_Line_rec.invoice_to_cust_party_id is null or P_Qte_Line_rec.invoice_to_cust_party_id = fnd_api.g_miss_num))
9585: then
9586:
9587: x_return_status := fnd_api.g_ret_sts_error;
9588:
9589: IF fnd_msg_pub.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
9590: FND_MESSAGE.Set_Name('ASO', 'ASO_MISSING_BILLTOPARTY');
9591: FND_MSG_PUB.ADD;
9593:
9594: end if;
9595:
9596: -- if line payment has bill to and payment type is null while header has payment type credit card, throw error
9597: if ((p_payment_rec.quote_line_id is not null and p_payment_rec.quote_line_id <> fnd_api.g_miss_num) and
9598: (P_Qte_Line_rec.invoice_to_cust_party_id is not null and P_Qte_Line_rec.invoice_to_cust_party_id <> fnd_api.g_miss_num) and
9599: (p_payment_rec.payment_type_code is null or p_payment_rec.payment_type_code = fnd_api.g_miss_char)) then
9600:
9601: -- get the payment type from header payment record
9594: end if;
9595:
9596: -- if line payment has bill to and payment type is null while header has payment type credit card, throw error
9597: if ((p_payment_rec.quote_line_id is not null and p_payment_rec.quote_line_id <> fnd_api.g_miss_num) and
9598: (P_Qte_Line_rec.invoice_to_cust_party_id is not null and P_Qte_Line_rec.invoice_to_cust_party_id <> fnd_api.g_miss_num) and
9599: (p_payment_rec.payment_type_code is null or p_payment_rec.payment_type_code = fnd_api.g_miss_char)) then
9600:
9601: -- get the payment type from header payment record
9602: open c_get_payment_type_code(p_payment_rec.quote_header_id);
9595:
9596: -- if line payment has bill to and payment type is null while header has payment type credit card, throw error
9597: if ((p_payment_rec.quote_line_id is not null and p_payment_rec.quote_line_id <> fnd_api.g_miss_num) and
9598: (P_Qte_Line_rec.invoice_to_cust_party_id is not null and P_Qte_Line_rec.invoice_to_cust_party_id <> fnd_api.g_miss_num) and
9599: (p_payment_rec.payment_type_code is null or p_payment_rec.payment_type_code = fnd_api.g_miss_char)) then
9600:
9601: -- get the payment type from header payment record
9602: open c_get_payment_type_code(p_payment_rec.quote_header_id);
9603: fetch c_get_payment_type_code into l_payment_type_code;
9604: close c_get_payment_type_code;
9605:
9606: if nvl(l_payment_type_code,'null') = 'CREDIT_CARD' then
9607:
9608: x_return_status := fnd_api.g_ret_sts_error;
9609:
9610: IF fnd_msg_pub.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
9611: FND_MESSAGE.Set_Name('ASO', 'ASO_MISSING_PAYMENT_DETAILS');
9612: FND_MSG_PUB.ADD;
9616:
9617: end if;
9618:
9619: -- if hdr payment is changed to cc, then make sure all lines have no null payment type if bill to is specified at line
9620: if ((p_payment_rec.quote_line_id is null or p_payment_rec.quote_line_id = fnd_api.g_miss_num) and
9621: (p_payment_rec.payment_type_code = 'CREDIT_CARD' )) then
9622:
9623: -- get all the lines in quote and check their payment type
9624: open c_get_lines_with_null_payment(p_payment_rec.quote_header_id);
9625: fetch c_get_lines_with_null_payment into l_inv_cust_party_id;
9626:
9627: if c_get_lines_with_null_payment%FOUND Then
9628: close c_get_lines_with_null_payment;
9629: x_return_status := fnd_api.g_ret_sts_error;
9630:
9631: IF fnd_msg_pub.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
9632: FND_MESSAGE.Set_Name('ASO', 'ASO_MISSING_LN_PAYMENT_DETAILS');
9633: FND_MSG_PUB.ADD;
9658: --when access mode is set to 'S'
9659: --Check if the current org_id matches with the org_id in p_qte_header_rec
9660: IF l_access_mode IS NOT NULL AND l_access_mode = 'S' THEN
9661: BEGIN
9662: IF ((p_qte_header_rec.org_id <> FND_API.G_MISS_NUM)
9663: AND (p_qte_header_rec.org_id IS NOT NULL)
9664: AND (l_org_id <> p_qte_header_rec.org_id)) THEN
9665:
9666: IF fnd_msg_pub.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
9667: FND_MESSAGE.Set_Name('ASO', 'ASO_ORG_ID_MISMATCH');
9668: FND_MSG_PUB.ADD;
9669: END IF;
9670:
9671: RAISE FND_API.G_EXC_ERROR;
9672: END IF;
9673: END ;
9674: ELSE
9675: IF fnd_msg_pub.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
9676: FND_MESSAGE.Set_Name('ASO', 'ASO_WRONG_ACCESS_MODE');
9677: FND_MSG_PUB.ADD;
9678: END IF;
9679:
9680: RAISE FND_API.G_EXC_ERROR;
9681: END IF;
9682: END VALIDATE_OU;
9683:
9684: PROCEDURE validate_ship_method_code
9682: END VALIDATE_OU;
9683:
9684: PROCEDURE validate_ship_method_code
9685: (
9686: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
9687: p_qte_header_id IN NUMBER := fnd_api.g_miss_num,
9688: p_qte_line_id IN NUMBER := fnd_api.g_miss_num,
9689: p_organization_id IN NUMBER := fnd_api.g_miss_num,
9690: p_ship_method_code IN VARCHAR2 := fnd_api.g_miss_char,
9683:
9684: PROCEDURE validate_ship_method_code
9685: (
9686: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
9687: p_qte_header_id IN NUMBER := fnd_api.g_miss_num,
9688: p_qte_line_id IN NUMBER := fnd_api.g_miss_num,
9689: p_organization_id IN NUMBER := fnd_api.g_miss_num,
9690: p_ship_method_code IN VARCHAR2 := fnd_api.g_miss_char,
9691: p_operation_code IN VARCHAR2 := fnd_api.g_miss_char,
9684: PROCEDURE validate_ship_method_code
9685: (
9686: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
9687: p_qte_header_id IN NUMBER := fnd_api.g_miss_num,
9688: p_qte_line_id IN NUMBER := fnd_api.g_miss_num,
9689: p_organization_id IN NUMBER := fnd_api.g_miss_num,
9690: p_ship_method_code IN VARCHAR2 := fnd_api.g_miss_char,
9691: p_operation_code IN VARCHAR2 := fnd_api.g_miss_char,
9692: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
9685: (
9686: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
9687: p_qte_header_id IN NUMBER := fnd_api.g_miss_num,
9688: p_qte_line_id IN NUMBER := fnd_api.g_miss_num,
9689: p_organization_id IN NUMBER := fnd_api.g_miss_num,
9690: p_ship_method_code IN VARCHAR2 := fnd_api.g_miss_char,
9691: p_operation_code IN VARCHAR2 := fnd_api.g_miss_char,
9692: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
9693: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
9686: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
9687: p_qte_header_id IN NUMBER := fnd_api.g_miss_num,
9688: p_qte_line_id IN NUMBER := fnd_api.g_miss_num,
9689: p_organization_id IN NUMBER := fnd_api.g_miss_num,
9690: p_ship_method_code IN VARCHAR2 := fnd_api.g_miss_char,
9691: p_operation_code IN VARCHAR2 := fnd_api.g_miss_char,
9692: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
9693: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
9694: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2) is
9687: p_qte_header_id IN NUMBER := fnd_api.g_miss_num,
9688: p_qte_line_id IN NUMBER := fnd_api.g_miss_num,
9689: p_organization_id IN NUMBER := fnd_api.g_miss_num,
9690: p_ship_method_code IN VARCHAR2 := fnd_api.g_miss_char,
9691: p_operation_code IN VARCHAR2 := fnd_api.g_miss_char,
9692: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
9693: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
9694: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2) is
9695:
9732: if aso_debug_pub.g_debug_flag = 'Y' then
9733: aso_debug_pub.add('Begin validate_ship_method_code', 1, 'Y');
9734: end if;
9735:
9736: if p_init_msg_list = fnd_api.g_true then
9737: fnd_msg_pub.initialize;
9738: end if;
9739:
9740: x_return_status := fnd_api.g_ret_sts_success;
9736: if p_init_msg_list = fnd_api.g_true then
9737: fnd_msg_pub.initialize;
9738: end if;
9739:
9740: x_return_status := fnd_api.g_ret_sts_success;
9741:
9742: if aso_debug_pub.g_debug_flag = 'Y' then
9743: aso_debug_pub.add('p_qte_header_id : '||p_qte_header_id, 1, 'Y');
9744: aso_debug_pub.add('p_qte_line_id: '||p_qte_line_id, 1, 'Y');
9746: aso_debug_pub.add('p_ship_method_code: '||p_ship_method_code, 1, 'Y');
9747: aso_debug_pub.add('p_operation_code: '||p_operation_code, 1, 'Y');
9748: end if;
9749:
9750: IF (p_operation_code = 'CREATE' and p_ship_method_code is not null and p_ship_method_code <> fnd_api.g_miss_char) THEN
9751:
9752: OPEN C_Get_ship_method(p_ship_method_code,p_organization_id);
9753: fetch C_Get_ship_method into lx_ship_method_code;
9754:
9758: end if;
9759:
9760: if C_Get_ship_method%NOTFOUND THEN
9761: Close C_Get_ship_method;
9762: x_return_status := FND_API.G_RET_STS_ERROR;
9763: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
9764: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
9765: FND_MESSAGE.Set_Token('COLUMN', 'SHIP_METHOD', FALSE);
9766: FND_MESSAGE.Set_Token('VALUE', p_ship_method_code, FALSE);
9773:
9774: ELSIF p_operation_code = 'UPDATE' THEN
9775:
9776: -- get the value from the db if not passed in
9777: IF (p_organization_id is null or p_organization_id = fnd_api.g_miss_num) then
9778: open get_organization_id(p_qte_line_id);
9779: fetch get_organization_id into l_organization_id;
9780: close get_organization_id;
9781: END IF;
9779: fetch get_organization_id into l_organization_id;
9780: close get_organization_id;
9781: END IF;
9782:
9783: IF (p_ship_method_code is null or p_ship_method_code = fnd_api.g_miss_char) then
9784: IF (p_qte_line_id is not null and p_qte_line_id <> fnd_api.g_miss_num) then
9785: open get_ship_code(p_qte_line_id);
9786: fetch get_ship_code into l_ship_method_code;
9787: close get_ship_code;
9780: close get_organization_id;
9781: END IF;
9782:
9783: IF (p_ship_method_code is null or p_ship_method_code = fnd_api.g_miss_char) then
9784: IF (p_qte_line_id is not null and p_qte_line_id <> fnd_api.g_miss_num) then
9785: open get_ship_code(p_qte_line_id);
9786: fetch get_ship_code into l_ship_method_code;
9787: close get_ship_code;
9788: ELSE
9796: aso_debug_pub.add('l_organization_id: '|| l_organization_id, 1, 'Y');
9797: aso_debug_pub.add('l_ship_method_code: '|| l_ship_method_code, 1, 'Y');
9798: end if;
9799:
9800: IF (l_ship_method_code is not null and l_ship_method_code <> fnd_api.g_miss_char) then
9801: OPEN C_Get_ship_method(l_ship_method_code,l_organization_id);
9802: fetch C_Get_ship_method into lx_ship_method_code;
9803:
9804: if aso_debug_pub.g_debug_flag = 'Y' then
9807: end if;
9808:
9809: if C_Get_ship_method%NOTFOUND THEN
9810: Close C_Get_ship_method;
9811: x_return_status := FND_API.G_RET_STS_ERROR;
9812: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
9813: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
9814: FND_MESSAGE.Set_Token('COLUMN', 'SHIP_METHOD', FALSE);
9815: FND_MESSAGE.Set_Token('VALUE', l_ship_method_code, FALSE);