[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);
1935: l_party_type VARCHAR2(30);
1936:
1937: BEGIN
1938: -- Initialize message list if p_init_msg_list is set to TRUE.
1939: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1940: FND_MSG_PUB.initialize;
1941: END IF;
1942:
1943: -- Initialize API return status to success
1940: FND_MSG_PUB.initialize;
1941: END IF;
1942:
1943: -- Initialize API return status to success
1944: x_return_status := FND_API.G_RET_STS_SUCCESS;
1945:
1946:
1947: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1948: aso_debug_pub.add('Validate_OrgContBsc: p_contact_id: '||p_contact_id, 1, 'N');
1947: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
1948: aso_debug_pub.add('Validate_OrgContBsc: p_contact_id: '||p_contact_id, 1, 'N');
1949: aso_debug_pub.add('Validate_OrgContBsc: p_cust_account_id: '||p_cust_account_id, 1, 'N');
1950: END IF;
1951: IF (p_contact_id IS NOT NULL AND p_contact_id <> FND_API.G_MISS_NUM) THEN
1952: OPEN C_Contact(p_contact_id);
1953: FETCH C_Contact INTO l_subject_id, l_status;
1954: IF (C_Contact%NOTFOUND OR l_status <>'A') THEN
1955:
1952: OPEN C_Contact(p_contact_id);
1953: FETCH C_Contact INTO l_subject_id, l_status;
1954: IF (C_Contact%NOTFOUND OR l_status <>'A') THEN
1955:
1956: x_return_status := FND_API.G_RET_STS_ERROR;
1957: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1958: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
1959: FND_MESSAGE.Set_Token('COLUMN', 'org_contact_id', FALSE);
1960: FND_MESSAGE.Set_Token('VALUE',to_char(p_contact_id),FALSE);
1968: aso_debug_pub.add('Validate_OrgContBsc: l_party_type: '||l_party_type, 1, 'N');
1969: END IF;
1970: IF ( C_Party_Cust%NOTFOUND OR l_status <> 'A' OR l_party_type <> 'PERSON' ) THEN
1971: CLOSE C_Party_Cust;
1972: x_return_status := FND_API.G_RET_STS_ERROR;
1973: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1974: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
1975: FND_MESSAGE.Set_Token('COLUMN', 'org_contact_id', FALSE);
1976: FND_MESSAGE.Set_Token('VALUE',to_char(p_contact_id),FALSE);
2004: l_party_status VARCHAR2(1);
2005:
2006: BEGIN
2007: -- Initialize message list if p_init_msg_list is set to TRUE.
2008: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2009: FND_MSG_PUB.initialize;
2010: END IF;
2011:
2012: -- Initialize API return status to success
2009: FND_MSG_PUB.initialize;
2010: END IF;
2011:
2012: -- Initialize API return status to success
2013: x_return_status := FND_API.G_RET_STS_SUCCESS;
2014:
2015: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2016: aso_debug_pub.add('Validate_PtyBsc: p_party_id: '||p_party_id, 1, 'N');
2017: END IF;
2014:
2015: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2016: aso_debug_pub.add('Validate_PtyBsc: p_party_id: '||p_party_id, 1, 'N');
2017: END IF;
2018: IF (p_party_id IS NOT NULL AND p_party_id <> FND_API.G_MISS_NUM) THEN
2019: OPEN C_Party(p_party_id);
2020: FETCH C_Party INTO l_party_status;
2021: IF (C_Party%NOTFOUND OR l_party_status <> 'A') THEN
2022: CLOSE C_Party;
2019: OPEN C_Party(p_party_id);
2020: FETCH C_Party INTO l_party_status;
2021: IF (C_Party%NOTFOUND OR l_party_status <> 'A') THEN
2022: CLOSE C_Party;
2023: x_return_status := FND_API.G_RET_STS_ERROR;
2024: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2025: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
2026: FND_MESSAGE.Set_Token('COLUMN', 'party_Id', FALSE);
2027: FND_MESSAGE.Set_Token('VALUE',to_char(p_party_id),FALSE);
2056: l_party_status VARCHAR2(1);
2057:
2058: BEGIN
2059: -- Initialize message list if p_init_msg_list is set to TRUE.
2060: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2061: FND_MSG_PUB.initialize;
2062: END IF;
2063:
2064: -- Initialize API return status to success
2061: FND_MSG_PUB.initialize;
2062: END IF;
2063:
2064: -- Initialize API return status to success
2065: x_return_status := FND_API.G_RET_STS_SUCCESS;
2066:
2067: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2068: aso_debug_pub.add('Validate_InvPtyBsc: p_party_id: '||p_party_id, 1, 'N');
2069: aso_debug_pub.add('Validate_InvPtyBsc: p_site_use: '||p_site_use, 1, 'N');
2067: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2068: aso_debug_pub.add('Validate_InvPtyBsc: p_party_id: '||p_party_id, 1, 'N');
2069: aso_debug_pub.add('Validate_InvPtyBsc: p_site_use: '||p_site_use, 1, 'N');
2070: END IF;
2071: IF (p_party_id IS NOT NULL AND p_party_id <> FND_API.G_MISS_NUM) THEN
2072: OPEN C_Party(p_party_id);
2073: FETCH C_Party INTO l_party_status;
2074: IF (C_Party%NOTFOUND OR l_party_status <> 'A') THEN
2075: CLOSE C_Party;
2072: OPEN C_Party(p_party_id);
2073: FETCH C_Party INTO l_party_status;
2074: IF (C_Party%NOTFOUND OR l_party_status <> 'A') THEN
2075: CLOSE C_Party;
2076: x_return_status := FND_API.G_RET_STS_ERROR;
2077: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2078: IF p_site_use ='BILL_TO' THEN
2079: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
2080: FND_MESSAGE.Set_Token('COLUMN', 'Invoice_to_party_Id', FALSE);
2130:
2131: BEGIN
2132:
2133: -- Initialize message list if p_init_msg_list is set to TRUE.
2134: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2135: FND_MSG_PUB.initialize;
2136: END IF;
2137:
2138: -- Initialize API return status to success
2135: FND_MSG_PUB.initialize;
2136: END IF;
2137:
2138: -- Initialize API return status to success
2139: x_return_status := FND_API.G_RET_STS_SUCCESS;
2140:
2141: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2142: aso_debug_pub.add('Validate_InvPtySiteBsc: p_party_id: '||p_party_id, 1, 'N');
2143: aso_debug_pub.add('Validate_InvPtySiteBsc: p_party_site_id: '||p_party_site_id, 1, 'N');
2142: aso_debug_pub.add('Validate_InvPtySiteBsc: p_party_id: '||p_party_id, 1, 'N');
2143: 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_site_use: '||p_party_site_use, 1, 'N');
2145: END IF;
2146: IF (p_party_id IS NOT NULL AND p_party_id <> FND_API.G_MISS_NUM) THEN
2147: IF (p_party_site_id IS NULL OR p_party_site_id = FND_API.G_MISS_NUM) THEN
2148: x_return_status := FND_API.G_RET_STS_ERROR;
2149: IF p_party_site_use = 'BILL_TO' THEN
2150: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2143: 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_site_use: '||p_party_site_use, 1, 'N');
2145: END IF;
2146: IF (p_party_id IS NOT NULL AND p_party_id <> FND_API.G_MISS_NUM) THEN
2147: IF (p_party_site_id IS NULL OR p_party_site_id = FND_API.G_MISS_NUM) THEN
2148: x_return_status := FND_API.G_RET_STS_ERROR;
2149: IF p_party_site_use = 'BILL_TO' THEN
2150: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2151: FND_MESSAGE.Set_Name('ASO', 'ASO_BILL_ADDRESS_REQD');
2144: aso_debug_pub.add('Validate_InvPtySiteBsc: p_party_site_use: '||p_party_site_use, 1, 'N');
2145: END IF;
2146: IF (p_party_id IS NOT NULL AND p_party_id <> FND_API.G_MISS_NUM) THEN
2147: IF (p_party_site_id IS NULL OR p_party_site_id = FND_API.G_MISS_NUM) THEN
2148: x_return_status := FND_API.G_RET_STS_ERROR;
2149: IF p_party_site_use = 'BILL_TO' THEN
2150: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2151: FND_MESSAGE.Set_Name('ASO', 'ASO_BILL_ADDRESS_REQD');
2152: FND_MSG_PUB.ADD;
2163: END IF;
2164: END IF;
2165: END IF;
2166: ELSE
2167: IF (p_party_site_id IS NOT NULL AND p_party_site_id <> FND_API.G_MISS_NUM) THEN
2168: OPEN C_Inv_Party_Site(p_party_site_id);
2169: FETCH C_Inv_Party_Site INTO l_status;
2170: IF (C_Inv_Party_Site%NOTFOUND OR
2171: l_status <> 'A') THEN
2168: OPEN C_Inv_Party_Site(p_party_site_id);
2169: FETCH C_Inv_Party_Site INTO l_status;
2170: IF (C_Inv_Party_Site%NOTFOUND OR
2171: l_status <> 'A') THEN
2172: x_return_status := FND_API.G_RET_STS_ERROR;
2173: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2174: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
2175: FND_MESSAGE.Set_Token('COLUMN', 'party_site_id', FALSE);
2176: FND_MESSAGE.Set_Token('VALUE',to_char(p_party_site_id),FALSE);
2240:
2241: BEGIN
2242: --SAVEPOINT Validate_Party_CustAccount;
2243: -- Initialize message list if p_init_msg_list is set to TRUE.
2244: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2245: FND_MSG_PUB.initialize;
2246: END IF;
2247:
2248: -- Initialize API return status to success
2245: FND_MSG_PUB.initialize;
2246: END IF;
2247:
2248: -- Initialize API return status to success
2249: x_return_status := FND_API.G_RET_STS_SUCCESS;
2250:
2251: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2252: aso_debug_pub.add('Validate_PtyCrs: p_party_id: '||p_party_id, 1, 'N');
2253: aso_debug_pub.add('Validate_PtyCrs: p_cust_party_id: '||p_cust_party_id, 1, 'N');
2253: aso_debug_pub.add('Validate_PtyCrs: p_cust_party_id: '||p_cust_party_id, 1, 'N');
2254: aso_debug_pub.add('Validate_PtyCrs: p_cust_account_id: '||p_cust_account_id, 1, 'N');
2255: END IF;
2256:
2257: IF (p_cust_account_id IS NOT NULL AND p_cust_account_id <> FND_API.G_MISS_NUM) THEN
2258: IF (p_cust_party_id IS NOT NULL AND p_cust_party_id <> FND_API.G_MISS_NUM) THEN
2259: OPEN C_Account;
2260: FETCH C_Account INTO l_account_status;
2261: IF (C_Account%NOTFOUND OR l_account_status <> 'A') THEN
2254: aso_debug_pub.add('Validate_PtyCrs: p_cust_account_id: '||p_cust_account_id, 1, 'N');
2255: END IF;
2256:
2257: IF (p_cust_account_id IS NOT NULL AND p_cust_account_id <> FND_API.G_MISS_NUM) THEN
2258: IF (p_cust_party_id IS NOT NULL AND p_cust_party_id <> FND_API.G_MISS_NUM) THEN
2259: OPEN C_Account;
2260: FETCH C_Account INTO l_account_status;
2261: IF (C_Account%NOTFOUND OR l_account_status <> 'A') THEN
2262: x_return_status := FND_API.G_RET_STS_ERROR;
2258: IF (p_cust_party_id IS NOT NULL AND p_cust_party_id <> FND_API.G_MISS_NUM) THEN
2259: OPEN C_Account;
2260: FETCH C_Account INTO l_account_status;
2261: IF (C_Account%NOTFOUND OR l_account_status <> 'A') THEN
2262: x_return_status := FND_API.G_RET_STS_ERROR;
2263: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2264: THEN
2265: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_PARTY_CRS');
2266: FND_MSG_PUB.ADD;
2269: CLOSE C_Account;
2270: END IF;
2271: END IF;
2272:
2273: IF p_party_id IS NOT NULL AND p_party_id <> FND_API.G_MISS_NUM THEN
2274: OPEN C_party(p_party_id);
2275: FETCH C_party into l_party_type;
2276:
2277: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2277: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2278: aso_debug_pub.add('Validate_PtyCrs: l_party_type: '||l_party_type, 1, 'N');
2279: END IF;
2280: IF l_party_type <> 'PARTY_RELATIONSHIP' THEN
2281: IF (p_cust_party_id IS NOT NULL AND p_cust_party_id <> FND_API.G_MISS_NUM) THEN
2282: IF p_party_id <> p_cust_party_id THEN
2283: x_return_status := FND_API.G_RET_STS_ERROR;
2284: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2285: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_PARTY_CRS');
2279: END IF;
2280: IF l_party_type <> 'PARTY_RELATIONSHIP' THEN
2281: IF (p_cust_party_id IS NOT NULL AND p_cust_party_id <> FND_API.G_MISS_NUM) THEN
2282: IF p_party_id <> p_cust_party_id THEN
2283: x_return_status := FND_API.G_RET_STS_ERROR;
2284: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2285: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_PARTY_CRS');
2286: FND_MSG_PUB.ADD;
2287: END IF;
2294: IF l_dummy = 'X' THEN
2295: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2296: aso_debug_pub.add('Validate_PtyCrs: Person_Reltn: '||l_dummy, 1, 'N');
2297: END IF;
2298: x_return_status := FND_API.G_RET_STS_ERROR;
2299: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2300: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_RELATIONSHIP');
2301: FND_MSG_PUB.ADD;
2302: END IF;
2302: END IF;
2303: END IF;
2304: CLOSE C_Person_Reltn;
2305:
2306: IF (p_cust_party_id IS NOT NULL AND p_cust_party_id <> FND_API.G_MISS_NUM) THEN
2307: OPEN C_relation;
2308: FETCH C_relation into l_test;
2309: IF (C_relation%NOTFOUND OR l_test IS NULL) THEN
2310: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2309: IF (C_relation%NOTFOUND OR l_test IS NULL) THEN
2310: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2311: aso_debug_pub.add('Validate_PtyCrs: Cust_Party Relation not found: '||l_test, 1, 'N');
2312: END IF;
2313: x_return_status := FND_API.G_RET_STS_ERROR;
2314: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2315: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_PARTY_CRS');
2316: FND_MSG_PUB.ADD;
2317: END IF;
2318: END IF;
2319: END IF;
2320:
2321: IF (p_cust_account_id IS NOT NULL AND
2322: p_cust_account_id <> FND_API.G_MISS_NUM) THEN
2323: OPEN C_org_reltn;
2324: FETCH C_org_reltn into l_test;
2325: IF (C_org_reltn%NOTFOUND OR l_test IS NULL ) THEN
2326: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2325: IF (C_org_reltn%NOTFOUND OR l_test IS NULL ) THEN
2326: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2327: aso_debug_pub.add('Validate_PtyCrs: Org Relation not found: '||l_test, 1, 'N');
2328: END IF;
2329: x_return_status := FND_API.G_RET_STS_ERROR;
2330: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2331: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_PARTY_CRS');
2332: FND_MSG_PUB.ADD;
2333: END IF;
2404:
2405: BEGIN
2406: --SAVEPOINT Validate_Party_CustAccount;
2407: -- Initialize message list if p_init_msg_list is set to TRUE.
2408: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2409: FND_MSG_PUB.initialize;
2410: END IF;
2411:
2412: -- Initialize API return status to success
2409: FND_MSG_PUB.initialize;
2410: END IF;
2411:
2412: -- Initialize API return status to success
2413: x_return_status := FND_API.G_RET_STS_SUCCESS;
2414: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2415: aso_debug_pub.add('in validate_inv_party_crs',1,'N');
2416: aso_debug_pub.add('Validate_InvPtyCrs: p_inv_party_id = '|| p_inv_party_id ,1,'N');
2417: aso_debug_pub.add('Validate_InvPtyCrs: p_inv_cust_party_id = '|| p_inv_cust_party_id ,1,'N');
2419: aso_debug_pub.add('Validate_InvPtyCrs: p_cust_party_id = '|| p_cust_party_id ,1,'N');
2420: aso_debug_pub.add('Validate_InvPtyCrs: p_cust_account_id = '|| p_cust_account_id ,1,'N');
2421: aso_debug_pub.add('Validate_InvPtyCrs: p_party_id = '|| p_party_id ,1,'N');
2422: END IF;
2423: IF (p_inv_party_id IS NOT NULL AND p_inv_party_id <> FND_API.G_MISS_NUM) THEN
2424: IF (p_inv_cust_party_id IS NOT NULL AND
2425: p_inv_cust_party_id <> FND_API.G_MISS_NUM) THEN
2426: l_party_id := p_inv_cust_party_id;
2427: ELSE
2421: aso_debug_pub.add('Validate_InvPtyCrs: p_party_id = '|| p_party_id ,1,'N');
2422: END IF;
2423: IF (p_inv_party_id IS NOT NULL AND p_inv_party_id <> FND_API.G_MISS_NUM) THEN
2424: IF (p_inv_cust_party_id IS NOT NULL AND
2425: p_inv_cust_party_id <> FND_API.G_MISS_NUM) THEN
2426: l_party_id := p_inv_cust_party_id;
2427: ELSE
2428: IF (p_inv_cust_account_id IS NOT NULL AND
2429: p_inv_cust_account_id <> FND_API.G_MISS_NUM) THEN
2425: p_inv_cust_party_id <> FND_API.G_MISS_NUM) THEN
2426: l_party_id := p_inv_cust_party_id;
2427: ELSE
2428: IF (p_inv_cust_account_id IS NOT NULL AND
2429: p_inv_cust_account_id <> FND_API.G_MISS_NUM) THEN
2430: OPEN C_cust_party_id(p_inv_cust_account_id);
2431: FETCH C_cust_party_id INTO l_party_id;
2432: CLOSE C_cust_party_id;
2433: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2434: aso_debug_pub.add('Validate_InvPtyCrs: 1: l_party_id = '|| l_party_id ,1,'N');
2435: END IF;
2436: ELSE
2437: IF (p_cust_party_id IS NOT NULL AND
2438: p_cust_party_id <> FND_API.G_MISS_NUM) THEN
2439: l_party_id := p_cust_party_id;
2440: ELSE
2441: IF (p_cust_account_id IS NOT NULL AND
2442: p_cust_account_id <> FND_API.G_MISS_NUM) THEN
2438: p_cust_party_id <> FND_API.G_MISS_NUM) THEN
2439: l_party_id := p_cust_party_id;
2440: ELSE
2441: IF (p_cust_account_id IS NOT NULL AND
2442: p_cust_account_id <> FND_API.G_MISS_NUM) THEN
2443: OPEN C_cust_party_id(p_cust_account_id);
2444: FETCH C_cust_party_id INTO l_party_id;
2445: CLOSE C_cust_party_id;
2446: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2447: aso_debug_pub.add('Validate_InvPtyCrs: 2: l_party_id = '|| l_party_id ,1,'N');
2448: END IF;
2449: ELSE
2450: IF (p_party_id IS NOT NULL AND
2451: p_party_id <> FND_API.G_MISS_NUM) THEN
2452: OPEN C_party_type;
2453: FETCH C_party_type into l_party_type;
2454: CLOSE C_party_type;
2455: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2464: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2465: aso_debug_pub.add('Validate_InvPtyCrs: in dummy'||l_dummy,1);
2466: END IF;
2467: IF l_dummy = 'X' THEN
2468: x_return_status := FND_API.G_RET_STS_ERROR;
2469: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2470: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_RELATIONSHIP');
2471: FND_MSG_PUB.ADD;
2472: END IF;
2490:
2491: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2492: aso_debug_pub.add('Validate_InvPtyCrs: 4: l_party_id = '|| l_party_id ,1,'N');
2493: END IF;
2494: IF l_party_id IS NOT NULL AND l_party_id <> FND_API.G_MISS_NUM THEN
2495: IF l_party_id <> p_inv_party_id THEN
2496: OPEN C_val_inv_id(l_party_id);
2497: FETCH C_val_inv_id INTO l_exist;
2498: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2498: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2499: aso_debug_pub.add('Validate_InvPtyCrs: l_exist = ' ||l_exist,1, 'N');
2500: END IF;
2501: IF C_val_inv_id%NOTFOUND or l_exist IS NULL THEN
2502: x_return_status := FND_API.G_RET_STS_ERROR;
2503: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)THEN
2504: IF p_site_use = 'BILL_TO' THEN
2505: FND_MESSAGE.Set_Name('ASO','ASO_VALIDATE_INV_PARTY_PT_CRS');
2506: ELSIF p_site_use = 'END_USER' THEN
2574: l_party_site_object_id number;
2575:
2576: BEGIN
2577: -- Initialize message list if p_init_msg_list is set to TRUE.
2578: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2579: FND_MSG_PUB.initialize;
2580: END IF;
2581: -- Initialize API return status to success
2582: x_return_status := FND_API.G_RET_STS_SUCCESS;
2578: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2579: FND_MSG_PUB.initialize;
2580: END IF;
2581: -- Initialize API return status to success
2582: x_return_status := FND_API.G_RET_STS_SUCCESS;
2583: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2584: aso_debug_pub.add('in validate_inv_party_site_crs',1,'N');
2585: aso_debug_pub.add('Validate_InvPtySiteCrs: validate inv party site- p_party_site_id '||p_party_site_id, 1, 'N');
2586: aso_debug_pub.add('Validate_InvPtySiteCrs: p_inv_party_id = '|| p_inv_party_id ,1,'N');
2590: aso_debug_pub.add('Validate_InvPtySiteCrs: p_cust_account_id = '|| p_cust_account_id ,1,'N');
2591: aso_debug_pub.add('Validate_InvPtySiteCrs: p_party_id = '|| p_party_id ,1,'N');
2592: END IF;
2593:
2594: IF (p_party_site_id IS NOT NULL AND p_party_site_id <> FND_API.G_MISS_NUM) THEN
2595: IF (p_inv_cust_party_id IS NOT NULL AND
2596: p_inv_cust_party_id <> FND_API.G_MISS_NUM) THEN
2597: l_party_id := p_inv_cust_party_id;
2598: ELSE
2592: END IF;
2593:
2594: IF (p_party_site_id IS NOT NULL AND p_party_site_id <> FND_API.G_MISS_NUM) THEN
2595: IF (p_inv_cust_party_id IS NOT NULL AND
2596: p_inv_cust_party_id <> FND_API.G_MISS_NUM) THEN
2597: l_party_id := p_inv_cust_party_id;
2598: ELSE
2599: IF (p_inv_cust_account_id IS NOT NULL AND
2600: p_inv_cust_account_id <> FND_API.G_MISS_NUM) THEN
2596: p_inv_cust_party_id <> FND_API.G_MISS_NUM) THEN
2597: l_party_id := p_inv_cust_party_id;
2598: ELSE
2599: IF (p_inv_cust_account_id IS NOT NULL AND
2600: p_inv_cust_account_id <> FND_API.G_MISS_NUM) THEN
2601: OPEN C_cust_party_id(p_inv_cust_account_id);
2602: FETCH C_cust_party_id INTO l_party_id;
2603: CLOSE C_cust_party_id;
2604: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2605: aso_debug_pub.add('Validate_InvPtySiteCrs: 1: l_party_id = '|| l_party_id ,1,'N');
2606: END IF;
2607: ELSE
2608: IF (p_cust_party_id IS NOT NULL AND
2609: p_cust_party_id <> FND_API.G_MISS_NUM) THEN
2610: l_party_id := p_cust_party_id;
2611: ELSE
2612: IF (p_cust_account_id IS NOT NULL AND
2613: p_cust_account_id <> FND_API.G_MISS_NUM) THEN
2609: p_cust_party_id <> FND_API.G_MISS_NUM) THEN
2610: l_party_id := p_cust_party_id;
2611: ELSE
2612: IF (p_cust_account_id IS NOT NULL AND
2613: p_cust_account_id <> FND_API.G_MISS_NUM) THEN
2614: OPEN C_cust_party_id(p_cust_account_id);
2615: FETCH C_cust_party_id INTO l_party_id;
2616: CLOSE C_cust_party_id;
2617: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2618: aso_debug_pub.add('Validate_InvPtySiteCrs: 2: l_party_id = '|| l_party_id ,1,'N');
2619: END IF;
2620: ELSE
2621: IF (p_party_id IS NOT NULL AND
2622: p_party_id <> FND_API.G_MISS_NUM) THEN
2623: OPEN C_party_type;
2624: FETCH C_party_type into l_party_type;
2625: CLOSE C_party_type;
2626: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2651: aso_debug_pub.add('Validate_InvPtySiteCrs: lp_party_id = ' ||lp_party_id, 1,'N');
2652: aso_debug_pub.add('Validate_InvPtySiteCrs: lp_party_type = ' || lp_party_type, 1 , 'N');
2653: END IF;
2654: IF c_party_site%NOTFOUND THEN
2655: x_return_status := FND_API.G_RET_STS_ERROR;
2656: ELSIF lp_party_type = 'PARTY_RELATIONSHIP' THEN
2657: IF (p_inv_party_id IS NOT NULL AND p_inv_party_id <> FND_API.G_MISS_NUM) THEN
2658: IF p_inv_party_id <> lp_party_id THEN
2659: x_return_status := FND_API.G_RET_STS_ERROR;
2653: END IF;
2654: IF c_party_site%NOTFOUND THEN
2655: x_return_status := FND_API.G_RET_STS_ERROR;
2656: ELSIF lp_party_type = 'PARTY_RELATIONSHIP' THEN
2657: IF (p_inv_party_id IS NOT NULL AND p_inv_party_id <> FND_API.G_MISS_NUM) THEN
2658: IF p_inv_party_id <> lp_party_id THEN
2659: x_return_status := FND_API.G_RET_STS_ERROR;
2660: END IF;
2661: ELSE
2655: x_return_status := FND_API.G_RET_STS_ERROR;
2656: ELSIF lp_party_type = 'PARTY_RELATIONSHIP' THEN
2657: IF (p_inv_party_id IS NOT NULL AND p_inv_party_id <> FND_API.G_MISS_NUM) THEN
2658: IF p_inv_party_id <> lp_party_id THEN
2659: x_return_status := FND_API.G_RET_STS_ERROR;
2660: END IF;
2661: ELSE
2662: OPEN C_relation_object(lp_party_id);
2663: FETCH C_relation_object into l_party_site_object_id;
2665: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2666: aso_debug_pub.add('Validate_InvPtySiteCrs: l_party_site_object_id = ' || l_party_site_object_id,1,'N');
2667: END IF;
2668: IF l_party_site_object_id <> l_party_id THEN
2669: x_return_status := FND_API.G_RET_STS_ERROR;
2670: END IF;
2671: END IF;
2672: ELSE
2673: IF lp_party_id <> l_party_id THEN
2670: END IF;
2671: END IF;
2672: ELSE
2673: IF lp_party_id <> l_party_id THEN
2674: x_return_status := FND_API.G_RET_STS_ERROR;
2675: END IF;
2676: END IF;
2677: CLOSE C_party_site;
2678: END IF;
2679:
2680: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2681: aso_debug_pub.add('Validate_InvPtySiteCrs: x_return_status = ' || x_return_status,1,'N');
2682: END IF;
2683: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2684: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)THEN
2685: IF p_site_usage = 'BILL_TO' THEN
2686: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_INV_SITE_AC_CRS');
2687: ELSIF p_site_usage = 'END_USER' THEN
2733: l_party_status VARCHAR2(1);
2734:
2735: BEGIN
2736: -- Initialize message list if p_init_msg_list is set to TRUE.
2737: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2738: FND_MSG_PUB.initialize;
2739: END IF;
2740:
2741: -- Initialize API return status to success
2738: FND_MSG_PUB.initialize;
2739: END IF;
2740:
2741: -- Initialize API return status to success
2742: x_return_status := FND_API.G_RET_STS_SUCCESS;
2743:
2744:
2745: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2746: aso_debug_pub.add('Validate_OrgConCrs: p_contact_id = ' || p_contact_id,1,'N');
2746: aso_debug_pub.add('Validate_OrgConCrs: p_contact_id = ' || p_contact_id,1,'N');
2747: aso_debug_pub.add('Validate_OrgConCrs: p_cust_account_id = ' || p_cust_account_id,1,'N');
2748: aso_debug_pub.add('Validate_OrgConCrs: p_party_id = ' || p_party_id,1,'N');
2749: END IF;
2750: IF (p_contact_id IS NOT NULL AND p_contact_id <> FND_API.G_MISS_NUM) THEN
2751: OPEN C_Contact;
2752: FETCH C_Contact INTO l_object_id,l_status ;
2753: IF (C_Contact%NOTFOUND OR l_status <> 'A') THEN
2754: x_return_status := FND_API.G_RET_STS_ERROR;
2750: IF (p_contact_id IS NOT NULL AND p_contact_id <> FND_API.G_MISS_NUM) THEN
2751: OPEN C_Contact;
2752: FETCH C_Contact INTO l_object_id,l_status ;
2753: IF (C_Contact%NOTFOUND OR l_status <> 'A') THEN
2754: x_return_status := FND_API.G_RET_STS_ERROR;
2755: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2756: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
2757: FND_MESSAGE.Set_Token('COLUMN', 'Org_contact_id', FALSE);
2758: FND_MESSAGE.Set_Token('VALUE',to_char(p_contact_id),FALSE);
2760: END IF;
2761: END IF;
2762: CLOSE C_Contact;
2763: END IF;
2764: IF (p_cust_account_id IS NOT NULL AND p_cust_account_id <> FND_API.G_MISS_NUM)
2765: AND (p_contact_id IS NOT NULL AND p_contact_id <> FND_API.G_MISS_NUM) THEN
2766: OPEN C_Contact ;
2767: FETCH C_Contact INTO l_object_id,l_status ;
2768: IF C_Contact%FOUND and l_object_id is NOT NULL THEN
2761: END IF;
2762: CLOSE C_Contact;
2763: END IF;
2764: IF (p_cust_account_id IS NOT NULL AND p_cust_account_id <> FND_API.G_MISS_NUM)
2765: AND (p_contact_id IS NOT NULL AND p_contact_id <> FND_API.G_MISS_NUM) THEN
2766: OPEN C_Contact ;
2767: FETCH C_Contact INTO l_object_id,l_status ;
2768: IF C_Contact%FOUND and l_object_id is NOT NULL THEN
2769: OPEN C_Cust_account(l_object_id);
2768: IF C_Contact%FOUND and l_object_id is NOT NULL THEN
2769: OPEN C_Cust_account(l_object_id);
2770: FETCH C_Cust_account INTO l_acct_status ;
2771: IF C_Cust_account%NOTFOUND or l_acct_status <>'A' THEN
2772: x_return_status := FND_API.G_RET_STS_ERROR;
2773: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2774: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_ORG_CON_ACT_CRS');
2775: -- FND_MESSAGE.Set_Name('ASO', 'INVALID_OBJECT_PARTY_ID');
2776:
2784: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2785: aso_debug_pub.add('Validate_OrgConCrs: x_return_status = ' || x_return_status,1,'N');
2786: END IF;
2787: ELSE
2788: IF (p_party_id IS NOT NULL AND p_party_id <> FND_API.G_MISS_NUM)
2789: AND (p_contact_id IS NOT NULL AND p_contact_id <> FND_API.G_MISS_NUM) THEN
2790: OPEN C_Contact;
2791: FETCH C_Contact INTO l_object_id,l_status ;
2792: IF (C_Contact%NOTFOUND OR l_status <> 'A') THEN
2785: aso_debug_pub.add('Validate_OrgConCrs: x_return_status = ' || x_return_status,1,'N');
2786: END IF;
2787: ELSE
2788: IF (p_party_id IS NOT NULL AND p_party_id <> FND_API.G_MISS_NUM)
2789: AND (p_contact_id IS NOT NULL AND p_contact_id <> FND_API.G_MISS_NUM) THEN
2790: OPEN C_Contact;
2791: FETCH C_Contact INTO l_object_id,l_status ;
2792: IF (C_Contact%NOTFOUND OR l_status <> 'A') THEN
2793:
2790: OPEN C_Contact;
2791: FETCH C_Contact INTO l_object_id,l_status ;
2792: IF (C_Contact%NOTFOUND OR l_status <> 'A') THEN
2793:
2794: x_return_status := FND_API.G_RET_STS_ERROR;
2795: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2796:
2797: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_ORG_CON_PTY_CRS');
2798:
2830: p_qte_header_rec IN ASO_QUOTE_PUB.Qte_Header_Rec_Type :=
2831: ASO_QUOTE_PUB.G_Miss_Qte_Header_Rec,
2832: p_shipment_rec IN ASO_QUOTE_PUB.shipment_rec_type :=
2833: ASO_QUOTE_PUB.G_MISS_SHIPMENT_REC,
2834: p_operation_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2835: p_application_type_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2836: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
2837: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
2838: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
2831: ASO_QUOTE_PUB.G_Miss_Qte_Header_Rec,
2832: p_shipment_rec IN ASO_QUOTE_PUB.shipment_rec_type :=
2833: ASO_QUOTE_PUB.G_MISS_SHIPMENT_REC,
2834: p_operation_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2835: p_application_type_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
2836: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
2837: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
2838: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
2839: IS
2857:
2858: BEGIN
2859: SAVEPOINT VALIDATE_ITEM_TCA_BSC_PVT;
2860: -- Initialize message list if p_init_msg_list is set to TRUE.
2861: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2862: FND_MSG_PUB.initialize;
2863: END IF;
2864:
2865: -- Initialize API return status to success
2862: FND_MSG_PUB.initialize;
2863: END IF;
2864:
2865: -- Initialize API return status to success
2866: x_return_status := FND_API.G_RET_STS_SUCCESS;
2867:
2868: /** Changes for OA uptake **/
2869: lp_qte_header_rec := p_qte_header_rec;
2870: lp_shipment_rec := p_shipment_rec;
2876:
2877: IF (p_application_type_code = 'QUOTING HTML' AND p_operation_code = 'UPDATE') THEN
2878: l_qte_header_rec := ASO_UTILITY_PVT.query_header_row (lp_qte_header_rec.quote_header_id);
2879:
2880: IF lp_qte_header_rec.party_id = FND_API.G_MISS_NUM THEN
2881: lp_qte_header_rec.party_id := l_qte_header_rec.party_id;
2882: END IF;
2883: IF lp_qte_header_rec.cust_party_id = FND_API.G_MISS_NUM THEN
2884: lp_qte_header_rec.cust_party_id := l_qte_header_rec.cust_party_id;
2879:
2880: IF lp_qte_header_rec.party_id = FND_API.G_MISS_NUM THEN
2881: lp_qte_header_rec.party_id := l_qte_header_rec.party_id;
2882: END IF;
2883: IF lp_qte_header_rec.cust_party_id = FND_API.G_MISS_NUM THEN
2884: lp_qte_header_rec.cust_party_id := l_qte_header_rec.cust_party_id;
2885: END IF;
2886: IF lp_qte_header_rec.invoice_to_cust_party_id = FND_API.G_MISS_NUM THEN
2887: lp_qte_header_rec.invoice_to_cust_party_id := l_qte_header_rec.invoice_to_cust_party_id;
2882: END IF;
2883: IF lp_qte_header_rec.cust_party_id = FND_API.G_MISS_NUM THEN
2884: lp_qte_header_rec.cust_party_id := l_qte_header_rec.cust_party_id;
2885: END IF;
2886: IF lp_qte_header_rec.invoice_to_cust_party_id = FND_API.G_MISS_NUM THEN
2887: lp_qte_header_rec.invoice_to_cust_party_id := l_qte_header_rec.invoice_to_cust_party_id;
2888: END IF;
2889: IF lp_qte_header_rec.End_Customer_cust_party_id = FND_API.G_MISS_NUM THEN
2890: lp_qte_header_rec.End_Customer_cust_party_id := l_qte_header_rec.End_Customer_cust_party_id;
2885: END IF;
2886: IF lp_qte_header_rec.invoice_to_cust_party_id = FND_API.G_MISS_NUM THEN
2887: lp_qte_header_rec.invoice_to_cust_party_id := l_qte_header_rec.invoice_to_cust_party_id;
2888: END IF;
2889: IF lp_qte_header_rec.End_Customer_cust_party_id = FND_API.G_MISS_NUM THEN
2890: lp_qte_header_rec.End_Customer_cust_party_id := l_qte_header_rec.End_Customer_cust_party_id;
2891: END IF;
2892: IF lp_qte_header_rec.cust_account_id = FND_API.G_MISS_NUM THEN
2893: lp_qte_header_rec.cust_account_id := l_qte_header_rec.cust_account_id;
2888: END IF;
2889: IF lp_qte_header_rec.End_Customer_cust_party_id = FND_API.G_MISS_NUM THEN
2890: lp_qte_header_rec.End_Customer_cust_party_id := l_qte_header_rec.End_Customer_cust_party_id;
2891: END IF;
2892: IF lp_qte_header_rec.cust_account_id = FND_API.G_MISS_NUM THEN
2893: lp_qte_header_rec.cust_account_id := l_qte_header_rec.cust_account_id;
2894: END IF;
2895: IF lp_qte_header_rec.invoice_to_cust_account_id = FND_API.G_MISS_NUM THEN
2896: lp_qte_header_rec.invoice_to_cust_account_id := l_qte_header_rec.invoice_to_cust_account_id;
2891: END IF;
2892: IF lp_qte_header_rec.cust_account_id = FND_API.G_MISS_NUM THEN
2893: lp_qte_header_rec.cust_account_id := l_qte_header_rec.cust_account_id;
2894: END IF;
2895: IF lp_qte_header_rec.invoice_to_cust_account_id = FND_API.G_MISS_NUM THEN
2896: lp_qte_header_rec.invoice_to_cust_account_id := l_qte_header_rec.invoice_to_cust_account_id;
2897: END IF;
2898: IF lp_qte_header_rec.End_Customer_cust_account_id = FND_API.G_MISS_NUM THEN
2899: lp_qte_header_rec.End_Customer_cust_account_id := l_qte_header_rec.End_Customer_cust_account_id;
2894: END IF;
2895: IF lp_qte_header_rec.invoice_to_cust_account_id = FND_API.G_MISS_NUM THEN
2896: lp_qte_header_rec.invoice_to_cust_account_id := l_qte_header_rec.invoice_to_cust_account_id;
2897: END IF;
2898: IF lp_qte_header_rec.End_Customer_cust_account_id = FND_API.G_MISS_NUM THEN
2899: lp_qte_header_rec.End_Customer_cust_account_id := l_qte_header_rec.End_Customer_cust_account_id;
2900: END IF;
2901: IF lp_qte_header_rec.org_contact_id = FND_API.G_MISS_NUM THEN
2902: lp_qte_header_rec.org_contact_id := l_qte_header_rec.org_contact_id;
2897: END IF;
2898: IF lp_qte_header_rec.End_Customer_cust_account_id = FND_API.G_MISS_NUM THEN
2899: lp_qte_header_rec.End_Customer_cust_account_id := l_qte_header_rec.End_Customer_cust_account_id;
2900: END IF;
2901: IF lp_qte_header_rec.org_contact_id = FND_API.G_MISS_NUM THEN
2902: lp_qte_header_rec.org_contact_id := l_qte_header_rec.org_contact_id;
2903: END IF;
2904: IF lp_qte_header_rec.invoice_to_party_id = FND_API.G_MISS_NUM THEN
2905: lp_qte_header_rec.invoice_to_party_id := l_qte_header_rec.invoice_to_party_id;
2900: END IF;
2901: IF lp_qte_header_rec.org_contact_id = FND_API.G_MISS_NUM THEN
2902: lp_qte_header_rec.org_contact_id := l_qte_header_rec.org_contact_id;
2903: END IF;
2904: IF lp_qte_header_rec.invoice_to_party_id = FND_API.G_MISS_NUM THEN
2905: lp_qte_header_rec.invoice_to_party_id := l_qte_header_rec.invoice_to_party_id;
2906: END IF;
2907: IF lp_qte_header_rec.End_Customer_party_id = FND_API.G_MISS_NUM THEN
2908: lp_qte_header_rec.End_Customer_party_id := l_qte_header_rec.End_Customer_party_id;
2903: END IF;
2904: IF lp_qte_header_rec.invoice_to_party_id = FND_API.G_MISS_NUM THEN
2905: lp_qte_header_rec.invoice_to_party_id := l_qte_header_rec.invoice_to_party_id;
2906: END IF;
2907: IF lp_qte_header_rec.End_Customer_party_id = FND_API.G_MISS_NUM THEN
2908: lp_qte_header_rec.End_Customer_party_id := l_qte_header_rec.End_Customer_party_id;
2909: END IF;
2910: IF lp_qte_header_rec.invoice_to_party_site_id = FND_API.G_MISS_NUM THEN
2911: lp_qte_header_rec.invoice_to_party_site_id := l_qte_header_rec.invoice_to_party_site_id;
2906: END IF;
2907: IF lp_qte_header_rec.End_Customer_party_id = FND_API.G_MISS_NUM THEN
2908: lp_qte_header_rec.End_Customer_party_id := l_qte_header_rec.End_Customer_party_id;
2909: END IF;
2910: IF lp_qte_header_rec.invoice_to_party_site_id = FND_API.G_MISS_NUM THEN
2911: lp_qte_header_rec.invoice_to_party_site_id := l_qte_header_rec.invoice_to_party_site_id;
2912: END IF;
2913: IF lp_qte_header_rec.End_Customer_party_site_id = FND_API.G_MISS_NUM THEN
2914: lp_qte_header_rec.End_Customer_party_site_id := l_qte_header_rec.End_Customer_party_site_id;
2909: END IF;
2910: IF lp_qte_header_rec.invoice_to_party_site_id = FND_API.G_MISS_NUM THEN
2911: lp_qte_header_rec.invoice_to_party_site_id := l_qte_header_rec.invoice_to_party_site_id;
2912: END IF;
2913: IF lp_qte_header_rec.End_Customer_party_site_id = FND_API.G_MISS_NUM THEN
2914: lp_qte_header_rec.End_Customer_party_site_id := l_qte_header_rec.End_Customer_party_site_id;
2915: END IF;
2916: IF lp_qte_header_rec.sold_to_party_site_id = FND_API.G_MISS_NUM THEN
2917: lp_qte_header_rec.sold_to_party_site_id := l_qte_header_rec.sold_to_party_site_id;
2912: END IF;
2913: IF lp_qte_header_rec.End_Customer_party_site_id = FND_API.G_MISS_NUM THEN
2914: lp_qte_header_rec.End_Customer_party_site_id := l_qte_header_rec.End_Customer_party_site_id;
2915: END IF;
2916: IF lp_qte_header_rec.sold_to_party_site_id = FND_API.G_MISS_NUM THEN
2917: lp_qte_header_rec.sold_to_party_site_id := l_qte_header_rec.sold_to_party_site_id;
2918: END IF;
2919:
2920: IF lp_shipment_rec.operation_code = 'UPDATE' THEN
2917: lp_qte_header_rec.sold_to_party_site_id := l_qte_header_rec.sold_to_party_site_id;
2918: END IF;
2919:
2920: IF lp_shipment_rec.operation_code = 'UPDATE' THEN
2921: IF lp_shipment_rec.shipment_id IS NOT NULL AND lp_shipment_rec.shipment_id <> FND_API.G_MISS_NUM THEN
2922: l_shipment_rec := ASO_UTILITY_PVT.query_shipment_row (lp_shipment_rec.shipment_id);
2923: IF lp_shipment_rec.ship_to_cust_party_id = FND_API.G_MISS_NUM THEN
2924: lp_shipment_rec.ship_to_cust_party_id := l_shipment_rec.ship_to_cust_party_id;
2925: END IF;
2919:
2920: IF lp_shipment_rec.operation_code = 'UPDATE' THEN
2921: IF lp_shipment_rec.shipment_id IS NOT NULL AND lp_shipment_rec.shipment_id <> FND_API.G_MISS_NUM THEN
2922: l_shipment_rec := ASO_UTILITY_PVT.query_shipment_row (lp_shipment_rec.shipment_id);
2923: IF lp_shipment_rec.ship_to_cust_party_id = FND_API.G_MISS_NUM THEN
2924: lp_shipment_rec.ship_to_cust_party_id := l_shipment_rec.ship_to_cust_party_id;
2925: END IF;
2926: IF lp_shipment_rec.ship_to_cust_account_id = FND_API.G_MISS_NUM THEN
2927: lp_shipment_rec.ship_to_cust_account_id := l_shipment_rec.ship_to_cust_account_id;
2922: l_shipment_rec := ASO_UTILITY_PVT.query_shipment_row (lp_shipment_rec.shipment_id);
2923: IF lp_shipment_rec.ship_to_cust_party_id = FND_API.G_MISS_NUM THEN
2924: lp_shipment_rec.ship_to_cust_party_id := l_shipment_rec.ship_to_cust_party_id;
2925: END IF;
2926: IF lp_shipment_rec.ship_to_cust_account_id = FND_API.G_MISS_NUM THEN
2927: lp_shipment_rec.ship_to_cust_account_id := l_shipment_rec.ship_to_cust_account_id;
2928: END IF;
2929: IF lp_shipment_rec.ship_to_party_id = FND_API.G_MISS_NUM THEN
2930: lp_shipment_rec.ship_to_party_id := l_shipment_rec.ship_to_party_id;
2925: END IF;
2926: IF lp_shipment_rec.ship_to_cust_account_id = FND_API.G_MISS_NUM THEN
2927: lp_shipment_rec.ship_to_cust_account_id := l_shipment_rec.ship_to_cust_account_id;
2928: END IF;
2929: IF lp_shipment_rec.ship_to_party_id = FND_API.G_MISS_NUM THEN
2930: lp_shipment_rec.ship_to_party_id := l_shipment_rec.ship_to_party_id;
2931: END IF;
2932: IF lp_shipment_rec.ship_to_party_site_id = FND_API.G_MISS_NUM THEN
2933: lp_shipment_rec.ship_to_party_site_id := l_shipment_rec.ship_to_party_site_id;
2928: END IF;
2929: IF lp_shipment_rec.ship_to_party_id = FND_API.G_MISS_NUM THEN
2930: lp_shipment_rec.ship_to_party_id := l_shipment_rec.ship_to_party_id;
2931: END IF;
2932: IF lp_shipment_rec.ship_to_party_site_id = FND_API.G_MISS_NUM THEN
2933: lp_shipment_rec.ship_to_party_site_id := l_shipment_rec.ship_to_party_site_id;
2934: END IF;
2935: END IF;
2936: END IF;
2945: p_party_id => lp_qte_header_rec.party_id,
2946: x_return_status => x_return_status,
2947: x_msg_count => x_msg_count,
2948: x_msg_data => x_msg_data);
2949: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2950: RAISE FND_API.G_EXC_ERROR;
2951: END IF;
2952: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2953: aso_debug_pub.add('Validate_ItemTcaBsc: party_id: x_return_status: ' || x_return_status,1,'N');
2946: x_return_status => x_return_status,
2947: x_msg_count => x_msg_count,
2948: x_msg_data => x_msg_data);
2949: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2950: RAISE FND_API.G_EXC_ERROR;
2951: END IF;
2952: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2953: aso_debug_pub.add('Validate_ItemTcaBsc: party_id: x_return_status: ' || x_return_status,1,'N');
2954: END IF;
2958: p_party_id => lp_qte_header_rec.cust_party_id,
2959: x_return_status => x_return_status,
2960: x_msg_count => x_msg_count,
2961: x_msg_data => x_msg_data);
2962: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2963: RAISE FND_API.G_EXC_ERROR;
2964: END IF;
2965: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2966: aso_debug_pub.add('Validate_ItemTcaBsc: cust_party_id: x_return_status: ' || x_return_status,1,'N');
2959: x_return_status => x_return_status,
2960: x_msg_count => x_msg_count,
2961: x_msg_data => x_msg_data);
2962: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2963: RAISE FND_API.G_EXC_ERROR;
2964: END IF;
2965: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2966: aso_debug_pub.add('Validate_ItemTcaBsc: cust_party_id: x_return_status: ' || x_return_status,1,'N');
2967: END IF;
2971: p_party_id => lp_qte_header_rec.invoice_to_cust_party_id,
2972: x_return_status => x_return_status,
2973: x_msg_count => x_msg_count,
2974: x_msg_data => x_msg_data);
2975: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2976: RAISE FND_API.G_EXC_ERROR;
2977: END IF;
2978: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2979: aso_debug_pub.add('Validate_ItemTcaBsc: inv_cust_party_id: x_return_status: ' || x_return_status,1,'N');
2972: x_return_status => x_return_status,
2973: x_msg_count => x_msg_count,
2974: x_msg_data => x_msg_data);
2975: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2976: RAISE FND_API.G_EXC_ERROR;
2977: END IF;
2978: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2979: aso_debug_pub.add('Validate_ItemTcaBsc: inv_cust_party_id: x_return_status: ' || x_return_status,1,'N');
2980: END IF;
2984: p_party_id => lp_qte_header_rec.End_Customer_cust_party_id,
2985: x_return_status => x_return_status,
2986: x_msg_count => x_msg_count,
2987: x_msg_data => x_msg_data);
2988: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2989: RAISE FND_API.G_EXC_ERROR;
2990: END IF;
2991: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2992: aso_debug_pub.add('Validate_ItemTcaBsc: end_cust_party_id: x_return_status: ' || x_return_status,1,'N');
2985: x_return_status => x_return_status,
2986: x_msg_count => x_msg_count,
2987: x_msg_data => x_msg_data);
2988: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
2989: RAISE FND_API.G_EXC_ERROR;
2990: END IF;
2991: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2992: aso_debug_pub.add('Validate_ItemTcaBsc: end_cust_party_id: x_return_status: ' || x_return_status,1,'N');
2993: END IF;
2997: p_party_id => lp_shipment_rec.ship_to_cust_party_id,
2998: x_return_status => x_return_status,
2999: x_msg_count => x_msg_count,
3000: x_msg_data => x_msg_data);
3001: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3002: RAISE FND_API.G_EXC_ERROR;
3003: END IF;
3004: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3005: aso_debug_pub.add('Validate_ItemTcaBsc: shp_cust_party_id: x_return_status: ' || x_return_status,1,'N');
2998: x_return_status => x_return_status,
2999: x_msg_count => x_msg_count,
3000: x_msg_data => x_msg_data);
3001: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3002: RAISE FND_API.G_EXC_ERROR;
3003: END IF;
3004: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3005: aso_debug_pub.add('Validate_ItemTcaBsc: shp_cust_party_id: x_return_status: ' || x_return_status,1,'N');
3006: END IF;
3015: p_shp_cust_account_id => lp_shipment_rec.ship_to_cust_account_id,
3016: x_return_status => x_return_status,
3017: x_msg_count => x_msg_count,
3018: x_msg_data => x_msg_data);
3019: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3020: RAISE FND_API.G_EXC_ERROR;
3021: END IF;
3022: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3023: aso_debug_pub.add('Validate_ItemTcaBsc: custAcctBsc: x_return_status: ' || x_return_status,1,'N');
3016: x_return_status => x_return_status,
3017: x_msg_count => x_msg_count,
3018: x_msg_data => x_msg_data);
3019: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3020: RAISE FND_API.G_EXC_ERROR;
3021: END IF;
3022: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3023: aso_debug_pub.add('Validate_ItemTcaBsc: custAcctBsc: x_return_status: ' || x_return_status,1,'N');
3024: END IF;
3029: p_cust_account_id => lp_qte_header_rec.cust_account_id,
3030: x_return_status => x_return_status,
3031: x_msg_count => x_msg_count,
3032: x_msg_data => x_msg_data);
3033: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3034: RAISE FND_API.G_EXC_ERROR;
3035: END IF;
3036: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3037: aso_debug_pub.add('Validate_ItemTcaBsc: OrgConBsc: x_return_status: ' || x_return_status,1,'N');
3030: x_return_status => x_return_status,
3031: x_msg_count => x_msg_count,
3032: x_msg_data => x_msg_data);
3033: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3034: RAISE FND_API.G_EXC_ERROR;
3035: END IF;
3036: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3037: aso_debug_pub.add('Validate_ItemTcaBsc: OrgConBsc: x_return_status: ' || x_return_status,1,'N');
3038: END IF;
3044: p_site_use => 'BILL_TO',
3045: x_return_status => x_return_status,
3046: x_msg_count => x_msg_count,
3047: x_msg_data => x_msg_data);
3048: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3049: RAISE FND_API.G_EXC_ERROR;
3050: END IF;
3051: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3052: aso_debug_pub.add('Validate_ItemTcaBsc: InvPty: BillTo: x_return_status: ' || x_return_status,1,'N');
3045: x_return_status => x_return_status,
3046: x_msg_count => x_msg_count,
3047: x_msg_data => x_msg_data);
3048: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3049: RAISE FND_API.G_EXC_ERROR;
3050: END IF;
3051: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3052: aso_debug_pub.add('Validate_ItemTcaBsc: InvPty: BillTo: x_return_status: ' || x_return_status,1,'N');
3053: END IF;
3058: p_site_use => 'END_USER',
3059: x_return_status => x_return_status,
3060: x_msg_count => x_msg_count,
3061: x_msg_data => x_msg_data);
3062: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3063: RAISE FND_API.G_EXC_ERROR;
3064: END IF;
3065: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3066: aso_debug_pub.add('Validate_ItemTcaBsc: InvPty: EndUser: x_return_status: ' || x_return_status,1,'N');
3059: x_return_status => x_return_status,
3060: x_msg_count => x_msg_count,
3061: x_msg_data => x_msg_data);
3062: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3063: RAISE FND_API.G_EXC_ERROR;
3064: END IF;
3065: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3066: aso_debug_pub.add('Validate_ItemTcaBsc: InvPty: EndUser: x_return_status: ' || x_return_status,1,'N');
3067: END IF;
3072: p_site_use => 'SHIP_TO',
3073: x_return_status => x_return_status,
3074: x_msg_count => x_msg_count,
3075: x_msg_data => x_msg_data);
3076: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3077: RAISE FND_API.G_EXC_ERROR;
3078: END IF;
3079: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3080: aso_debug_pub.add('Validate_ItemTcaBsc: InvPty: ShipTo: x_return_status: ' || x_return_status,1,'N');
3073: x_return_status => x_return_status,
3074: x_msg_count => x_msg_count,
3075: x_msg_data => x_msg_data);
3076: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3077: RAISE FND_API.G_EXC_ERROR;
3078: END IF;
3079: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3080: aso_debug_pub.add('Validate_ItemTcaBsc: InvPty: ShipTo: x_return_status: ' || x_return_status,1,'N');
3081: 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');
3089: p_party_site_use => 'BILL_TO',
3090: x_return_status => x_return_status,
3091: x_msg_count => x_msg_count,
3092: x_msg_data => x_msg_data);
3093: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3094: RAISE FND_API.G_EXC_ERROR;
3095: END IF;
3096: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3097: aso_debug_pub.add('Validate_ItemTcaBsc: InvPtySite: ShipTo: x_return_status: ' || x_return_status,1,'N');
3090: x_return_status => x_return_status,
3091: x_msg_count => x_msg_count,
3092: x_msg_data => x_msg_data);
3093: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3094: RAISE FND_API.G_EXC_ERROR;
3095: END IF;
3096: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3097: aso_debug_pub.add('Validate_ItemTcaBsc: InvPtySite: ShipTo: x_return_status: ' || x_return_status,1,'N');
3098: 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');
3106: p_party_site_use => 'END_USER',
3107: x_return_status => x_return_status,
3108: x_msg_count => x_msg_count,
3109: x_msg_data => x_msg_data);
3110: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3111: RAISE FND_API.G_EXC_ERROR;
3112: END IF;
3113: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3114: aso_debug_pub.add('Validate_ItemTcaBsc: InvPtySite: ShipTo: x_return_status: ' || x_return_status,1,'N');
3107: x_return_status => x_return_status,
3108: x_msg_count => x_msg_count,
3109: x_msg_data => x_msg_data);
3110: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3111: RAISE FND_API.G_EXC_ERROR;
3112: END IF;
3113: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3114: aso_debug_pub.add('Validate_ItemTcaBsc: InvPtySite: ShipTo: x_return_status: ' || x_return_status,1,'N');
3115: 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');
3123: p_party_site_use => 'SHIP_TO',
3124: x_return_status => x_return_status,
3125: x_msg_count => x_msg_count,
3126: x_msg_data => x_msg_data);
3127: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3128: RAISE FND_API.G_EXC_ERROR;
3129: END IF;
3130: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3131: aso_debug_pub.add('Validate_ItemTcaBsc: InvPtySite: ShipTo: x_return_status: ' || x_return_status,1,'N');
3124: x_return_status => x_return_status,
3125: x_msg_count => x_msg_count,
3126: x_msg_data => x_msg_data);
3127: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3128: RAISE FND_API.G_EXC_ERROR;
3129: END IF;
3130: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3131: aso_debug_pub.add('Validate_ItemTcaBsc: InvPtySite: ShipTo: x_return_status: ' || x_return_status,1,'N');
3132: END IF;
3132: END IF;
3133:
3134: -- Sold_to
3135: IF lp_qte_header_rec.sold_to_party_site_id IS NOT NULL
3136: AND lp_qte_header_rec.sold_to_party_site_id <> FND_API.G_MISS_NUM THEN
3137: IF lp_qte_header_rec.org_contact_id IS NOT NULL
3138: AND lp_qte_header_rec.org_contact_id <> FND_API.G_MISS_NUM THEN
3139: OPEN C_Get_Party_From_Org(lp_qte_header_rec.org_contact_id);
3140: FETCH C_Get_Party_From_Org INTO l_party_id;
3134: -- Sold_to
3135: IF lp_qte_header_rec.sold_to_party_site_id IS NOT NULL
3136: AND lp_qte_header_rec.sold_to_party_site_id <> FND_API.G_MISS_NUM THEN
3137: IF lp_qte_header_rec.org_contact_id IS NOT NULL
3138: AND lp_qte_header_rec.org_contact_id <> FND_API.G_MISS_NUM THEN
3139: OPEN C_Get_Party_From_Org(lp_qte_header_rec.org_contact_id);
3140: FETCH C_Get_Party_From_Org INTO l_party_id;
3141: CLOSE C_Get_Party_From_Org;
3142: ELSE
3153: p_party_site_use => 'SOLD_TO',
3154: x_return_status => x_return_status,
3155: x_msg_count => x_msg_count,
3156: x_msg_data => x_msg_data);
3157: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3158: RAISE FND_API.G_EXC_ERROR;
3159: END IF;
3160: END IF;
3161: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3154: x_return_status => x_return_status,
3155: x_msg_count => x_msg_count,
3156: x_msg_data => x_msg_data);
3157: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3158: RAISE FND_API.G_EXC_ERROR;
3159: END IF;
3160: END IF;
3161: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3162: aso_debug_pub.add('Validate_ItemTcaBsc: InvPtySite: SoldTo: x_return_status: ' || x_return_status,1,'N');
3168: p_data => x_msg_data
3169: );
3170:
3171: EXCEPTION
3172: WHEN FND_API.G_EXC_ERROR THEN
3173: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
3174: P_API_NAME => L_API_NAME
3175: ,P_PKG_NAME => G_PKG_NAME
3176: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
3180: ,X_MSG_COUNT => X_MSG_COUNT
3181: ,X_MSG_DATA => X_MSG_DATA
3182: ,X_RETURN_STATUS => X_RETURN_STATUS);
3183:
3184: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3185: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
3186: P_API_NAME => L_API_NAME
3187: ,P_PKG_NAME => G_PKG_NAME
3188: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
3213: p_qte_header_rec IN ASO_QUOTE_PUB.Qte_Header_Rec_Type :=
3214: ASO_QUOTE_PUB.G_Miss_Qte_Header_Rec,
3215: p_shipment_rec IN ASO_QUOTE_PUB.shipment_rec_type :=
3216: ASO_QUOTE_PUB.G_MISS_SHIPMENT_REC,
3217: p_operation_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
3218: p_application_type_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
3219: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
3220: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
3221: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
3214: ASO_QUOTE_PUB.G_Miss_Qte_Header_Rec,
3215: p_shipment_rec IN ASO_QUOTE_PUB.shipment_rec_type :=
3216: ASO_QUOTE_PUB.G_MISS_SHIPMENT_REC,
3217: p_operation_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
3218: p_application_type_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
3219: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
3220: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
3221: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
3222: IS
3242: BEGIN
3243: SAVEPOINT VALIDATE_RECORD_TCA_CRS_PVT;
3244:
3245: -- Initialize message list if p_init_msg_list is set to TRUE.
3246: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3247: FND_MSG_PUB.initialize;
3248: END IF;
3249:
3250: /** Changes for OA uptake **/
3258:
3259: IF (p_application_type_code = 'QUOTING HTML' AND p_operation_code = 'UPDATE') THEN
3260: l_qte_header_rec := ASO_UTILITY_PVT.query_header_row (lp_qte_header_rec.quote_header_id);
3261:
3262: IF lp_qte_header_rec.party_id = FND_API.G_MISS_NUM THEN
3263: lp_qte_header_rec.party_id := l_qte_header_rec.party_id;
3264: END IF;
3265: IF lp_qte_header_rec.cust_party_id = FND_API.G_MISS_NUM THEN
3266: lp_qte_header_rec.cust_party_id := l_qte_header_rec.cust_party_id;
3261:
3262: IF lp_qte_header_rec.party_id = FND_API.G_MISS_NUM THEN
3263: lp_qte_header_rec.party_id := l_qte_header_rec.party_id;
3264: END IF;
3265: IF lp_qte_header_rec.cust_party_id = FND_API.G_MISS_NUM THEN
3266: lp_qte_header_rec.cust_party_id := l_qte_header_rec.cust_party_id;
3267: END IF;
3268: IF lp_qte_header_rec.invoice_to_cust_party_id = FND_API.G_MISS_NUM THEN
3269: lp_qte_header_rec.invoice_to_cust_party_id := l_qte_header_rec.invoice_to_cust_party_id;
3264: END IF;
3265: IF lp_qte_header_rec.cust_party_id = FND_API.G_MISS_NUM THEN
3266: lp_qte_header_rec.cust_party_id := l_qte_header_rec.cust_party_id;
3267: END IF;
3268: IF lp_qte_header_rec.invoice_to_cust_party_id = FND_API.G_MISS_NUM THEN
3269: lp_qte_header_rec.invoice_to_cust_party_id := l_qte_header_rec.invoice_to_cust_party_id;
3270: END IF;
3271: IF lp_qte_header_rec.End_Customer_cust_party_id = FND_API.G_MISS_NUM THEN
3272: lp_qte_header_rec.End_Customer_cust_party_id := l_qte_header_rec.End_Customer_cust_party_id;
3267: END IF;
3268: IF lp_qte_header_rec.invoice_to_cust_party_id = FND_API.G_MISS_NUM THEN
3269: lp_qte_header_rec.invoice_to_cust_party_id := l_qte_header_rec.invoice_to_cust_party_id;
3270: END IF;
3271: IF lp_qte_header_rec.End_Customer_cust_party_id = FND_API.G_MISS_NUM THEN
3272: lp_qte_header_rec.End_Customer_cust_party_id := l_qte_header_rec.End_Customer_cust_party_id;
3273: END IF;
3274: IF lp_qte_header_rec.cust_account_id = FND_API.G_MISS_NUM THEN
3275: lp_qte_header_rec.cust_account_id := l_qte_header_rec.cust_account_id;
3270: END IF;
3271: IF lp_qte_header_rec.End_Customer_cust_party_id = FND_API.G_MISS_NUM THEN
3272: lp_qte_header_rec.End_Customer_cust_party_id := l_qte_header_rec.End_Customer_cust_party_id;
3273: END IF;
3274: IF lp_qte_header_rec.cust_account_id = FND_API.G_MISS_NUM THEN
3275: lp_qte_header_rec.cust_account_id := l_qte_header_rec.cust_account_id;
3276: END IF;
3277: IF lp_qte_header_rec.invoice_to_cust_account_id = FND_API.G_MISS_NUM THEN
3278: lp_qte_header_rec.invoice_to_cust_account_id := l_qte_header_rec.invoice_to_cust_account_id;
3273: END IF;
3274: IF lp_qte_header_rec.cust_account_id = FND_API.G_MISS_NUM THEN
3275: lp_qte_header_rec.cust_account_id := l_qte_header_rec.cust_account_id;
3276: END IF;
3277: IF lp_qte_header_rec.invoice_to_cust_account_id = FND_API.G_MISS_NUM THEN
3278: lp_qte_header_rec.invoice_to_cust_account_id := l_qte_header_rec.invoice_to_cust_account_id;
3279: END IF;
3280: IF lp_qte_header_rec.End_Customer_cust_account_id = FND_API.G_MISS_NUM THEN
3281: lp_qte_header_rec.End_Customer_cust_account_id := l_qte_header_rec.End_Customer_cust_account_id;
3276: END IF;
3277: IF lp_qte_header_rec.invoice_to_cust_account_id = FND_API.G_MISS_NUM THEN
3278: lp_qte_header_rec.invoice_to_cust_account_id := l_qte_header_rec.invoice_to_cust_account_id;
3279: END IF;
3280: IF lp_qte_header_rec.End_Customer_cust_account_id = FND_API.G_MISS_NUM THEN
3281: lp_qte_header_rec.End_Customer_cust_account_id := l_qte_header_rec.End_Customer_cust_account_id;
3282: END IF;
3283: IF lp_qte_header_rec.org_contact_id = FND_API.G_MISS_NUM THEN
3284: lp_qte_header_rec.org_contact_id := l_qte_header_rec.org_contact_id;
3279: END IF;
3280: IF lp_qte_header_rec.End_Customer_cust_account_id = FND_API.G_MISS_NUM THEN
3281: lp_qte_header_rec.End_Customer_cust_account_id := l_qte_header_rec.End_Customer_cust_account_id;
3282: END IF;
3283: IF lp_qte_header_rec.org_contact_id = FND_API.G_MISS_NUM THEN
3284: lp_qte_header_rec.org_contact_id := l_qte_header_rec.org_contact_id;
3285: END IF;
3286: IF lp_qte_header_rec.invoice_to_party_id = FND_API.G_MISS_NUM THEN
3287: lp_qte_header_rec.invoice_to_party_id := l_qte_header_rec.invoice_to_party_id;
3282: END IF;
3283: IF lp_qte_header_rec.org_contact_id = FND_API.G_MISS_NUM THEN
3284: lp_qte_header_rec.org_contact_id := l_qte_header_rec.org_contact_id;
3285: END IF;
3286: IF lp_qte_header_rec.invoice_to_party_id = FND_API.G_MISS_NUM THEN
3287: lp_qte_header_rec.invoice_to_party_id := l_qte_header_rec.invoice_to_party_id;
3288: END IF;
3289: IF lp_qte_header_rec.End_Customer_party_id = FND_API.G_MISS_NUM THEN
3290: lp_qte_header_rec.End_Customer_party_id := l_qte_header_rec.End_Customer_party_id;
3285: END IF;
3286: IF lp_qte_header_rec.invoice_to_party_id = FND_API.G_MISS_NUM THEN
3287: lp_qte_header_rec.invoice_to_party_id := l_qte_header_rec.invoice_to_party_id;
3288: END IF;
3289: IF lp_qte_header_rec.End_Customer_party_id = FND_API.G_MISS_NUM THEN
3290: lp_qte_header_rec.End_Customer_party_id := l_qte_header_rec.End_Customer_party_id;
3291: END IF;
3292: IF lp_qte_header_rec.invoice_to_party_site_id = FND_API.G_MISS_NUM THEN
3293: lp_qte_header_rec.invoice_to_party_site_id := l_qte_header_rec.invoice_to_party_site_id;
3288: END IF;
3289: IF lp_qte_header_rec.End_Customer_party_id = FND_API.G_MISS_NUM THEN
3290: lp_qte_header_rec.End_Customer_party_id := l_qte_header_rec.End_Customer_party_id;
3291: END IF;
3292: IF lp_qte_header_rec.invoice_to_party_site_id = FND_API.G_MISS_NUM THEN
3293: lp_qte_header_rec.invoice_to_party_site_id := l_qte_header_rec.invoice_to_party_site_id;
3294: END IF;
3295: IF lp_qte_header_rec.End_Customer_party_site_id = FND_API.G_MISS_NUM THEN
3296: lp_qte_header_rec.End_Customer_party_site_id := l_qte_header_rec.End_Customer_party_site_id;
3291: END IF;
3292: IF lp_qte_header_rec.invoice_to_party_site_id = FND_API.G_MISS_NUM THEN
3293: lp_qte_header_rec.invoice_to_party_site_id := l_qte_header_rec.invoice_to_party_site_id;
3294: END IF;
3295: IF lp_qte_header_rec.End_Customer_party_site_id = FND_API.G_MISS_NUM THEN
3296: lp_qte_header_rec.End_Customer_party_site_id := l_qte_header_rec.End_Customer_party_site_id;
3297: END IF;
3298: IF lp_qte_header_rec.sold_to_party_site_id = FND_API.G_MISS_NUM THEN
3299: lp_qte_header_rec.sold_to_party_site_id := l_qte_header_rec.sold_to_party_site_id;
3294: END IF;
3295: IF lp_qte_header_rec.End_Customer_party_site_id = FND_API.G_MISS_NUM THEN
3296: lp_qte_header_rec.End_Customer_party_site_id := l_qte_header_rec.End_Customer_party_site_id;
3297: END IF;
3298: IF lp_qte_header_rec.sold_to_party_site_id = FND_API.G_MISS_NUM THEN
3299: lp_qte_header_rec.sold_to_party_site_id := l_qte_header_rec.sold_to_party_site_id;
3300: END IF;
3301:
3302: IF lp_shipment_rec.operation_code = 'UPDATE' THEN
3299: lp_qte_header_rec.sold_to_party_site_id := l_qte_header_rec.sold_to_party_site_id;
3300: END IF;
3301:
3302: IF lp_shipment_rec.operation_code = 'UPDATE' THEN
3303: IF lp_shipment_rec.shipment_id IS NOT NULL AND lp_shipment_rec.shipment_id <> FND_API.G_MISS_NUM THEN
3304: l_shipment_rec := ASO_UTILITY_PVT.query_shipment_row (lp_shipment_rec.shipment_id);
3305: IF lp_shipment_rec.ship_to_cust_party_id = FND_API.G_MISS_NUM THEN
3306: lp_shipment_rec.ship_to_cust_party_id := l_shipment_rec.ship_to_cust_party_id;
3307: END IF;
3301:
3302: IF lp_shipment_rec.operation_code = 'UPDATE' THEN
3303: IF lp_shipment_rec.shipment_id IS NOT NULL AND lp_shipment_rec.shipment_id <> FND_API.G_MISS_NUM THEN
3304: l_shipment_rec := ASO_UTILITY_PVT.query_shipment_row (lp_shipment_rec.shipment_id);
3305: IF lp_shipment_rec.ship_to_cust_party_id = FND_API.G_MISS_NUM THEN
3306: lp_shipment_rec.ship_to_cust_party_id := l_shipment_rec.ship_to_cust_party_id;
3307: END IF;
3308: IF lp_shipment_rec.ship_to_cust_account_id = FND_API.G_MISS_NUM THEN
3309: lp_shipment_rec.ship_to_cust_account_id := l_shipment_rec.ship_to_cust_account_id;
3304: l_shipment_rec := ASO_UTILITY_PVT.query_shipment_row (lp_shipment_rec.shipment_id);
3305: IF lp_shipment_rec.ship_to_cust_party_id = FND_API.G_MISS_NUM THEN
3306: lp_shipment_rec.ship_to_cust_party_id := l_shipment_rec.ship_to_cust_party_id;
3307: END IF;
3308: IF lp_shipment_rec.ship_to_cust_account_id = FND_API.G_MISS_NUM THEN
3309: lp_shipment_rec.ship_to_cust_account_id := l_shipment_rec.ship_to_cust_account_id;
3310: END IF;
3311: IF lp_shipment_rec.ship_to_party_id = FND_API.G_MISS_NUM THEN
3312: lp_shipment_rec.ship_to_party_id := l_shipment_rec.ship_to_party_id;
3307: END IF;
3308: IF lp_shipment_rec.ship_to_cust_account_id = FND_API.G_MISS_NUM THEN
3309: lp_shipment_rec.ship_to_cust_account_id := l_shipment_rec.ship_to_cust_account_id;
3310: END IF;
3311: IF lp_shipment_rec.ship_to_party_id = FND_API.G_MISS_NUM THEN
3312: lp_shipment_rec.ship_to_party_id := l_shipment_rec.ship_to_party_id;
3313: END IF;
3314: IF lp_shipment_rec.ship_to_party_site_id = FND_API.G_MISS_NUM THEN
3315: lp_shipment_rec.ship_to_party_site_id := l_shipment_rec.ship_to_party_site_id;
3310: END IF;
3311: IF lp_shipment_rec.ship_to_party_id = FND_API.G_MISS_NUM THEN
3312: lp_shipment_rec.ship_to_party_id := l_shipment_rec.ship_to_party_id;
3313: END IF;
3314: IF lp_shipment_rec.ship_to_party_site_id = FND_API.G_MISS_NUM THEN
3315: lp_shipment_rec.ship_to_party_site_id := l_shipment_rec.ship_to_party_site_id;
3316: END IF;
3317: END IF;
3318: END IF;
3319:
3320: END IF; -- UPDATE
3321:
3322: -- Initialize API return status to success
3323: x_return_status := FND_API.G_RET_STS_SUCCESS;
3324: ASO_VALIDATE_PVT.Validate_Party_Crs(
3325: p_init_msg_list => p_init_msg_list,
3326: p_party_id => lp_qte_header_rec.party_id,
3327: p_cust_party_id => lp_qte_header_rec.cust_party_id,
3332: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3333: aso_debug_pub.add('validate record tca crs - after validate party crs '||x_return_status, 1, 'N');
3334: END IF;
3335:
3336: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3337: RAISE FND_API.G_EXC_ERROR;
3338: END IF;
3339: ASO_VALIDATE_PVT.Validate_org_contact_crs(
3340: p_init_msg_list => p_init_msg_list,
3333: aso_debug_pub.add('validate record tca crs - after validate party crs '||x_return_status, 1, 'N');
3334: END IF;
3335:
3336: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3337: RAISE FND_API.G_EXC_ERROR;
3338: END IF;
3339: ASO_VALIDATE_PVT.Validate_org_contact_crs(
3340: p_init_msg_list => p_init_msg_list,
3341: p_contact_id => lp_qte_header_rec.org_contact_id,
3347: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3348: aso_debug_pub.add('validate record tca crs - after validate org contact crs '||x_return_status, 1, 'N');
3349: END IF;
3350:
3351: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3352: RAISE FND_API.G_EXC_ERROR;
3353: END IF;
3354: ASO_VALIDATE_PVT.Validate_Inv_Party_Crs(
3355: p_init_msg_list => p_init_msg_list,
3348: aso_debug_pub.add('validate record tca crs - after validate org contact crs '||x_return_status, 1, 'N');
3349: END IF;
3350:
3351: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3352: RAISE FND_API.G_EXC_ERROR;
3353: END IF;
3354: ASO_VALIDATE_PVT.Validate_Inv_Party_Crs(
3355: p_init_msg_list => p_init_msg_list,
3356: p_party_id => lp_qte_header_rec.party_id,
3366: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3367: aso_debug_pub.add('validate record tca crs - after validate Inv party crs(Bill to) '||x_return_status, 1, 'N');
3368: END IF;
3369:
3370: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3371: RAISE FND_API.G_EXC_ERROR;
3372: END IF;
3373:
3374: ASO_VALIDATE_PVT.Validate_Inv_Party_Crs(
3367: aso_debug_pub.add('validate record tca crs - after validate Inv party crs(Bill to) '||x_return_status, 1, 'N');
3368: END IF;
3369:
3370: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3371: RAISE FND_API.G_EXC_ERROR;
3372: END IF;
3373:
3374: ASO_VALIDATE_PVT.Validate_Inv_Party_Crs(
3375: p_init_msg_list => p_init_msg_list,
3386: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3387: aso_debug_pub.add('validate record tca crs - after validate Inv party crs(End User) '||x_return_status, 1, 'N');
3388: END IF;
3389:
3390: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3391: RAISE FND_API.G_EXC_ERROR;
3392: END IF;
3393:
3394: ASO_VALIDATE_PVT.Validate_Inv_Party_Crs(
3387: aso_debug_pub.add('validate record tca crs - after validate Inv party crs(End User) '||x_return_status, 1, 'N');
3388: END IF;
3389:
3390: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3391: RAISE FND_API.G_EXC_ERROR;
3392: END IF;
3393:
3394: ASO_VALIDATE_PVT.Validate_Inv_Party_Crs(
3395: p_init_msg_list => p_init_msg_list,
3406: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3407: aso_debug_pub.add('validate record tca crs - after validate Inv party crs(Ship to) '||x_return_status, 1, 'N');
3408: END IF;
3409:
3410: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3411: RAISE FND_API.G_EXC_ERROR;
3412: END IF;
3413: ASO_VALIDATE_PVT.Validate_inv_PartySite_crs(
3414: p_init_msg_list => p_init_msg_list,
3407: aso_debug_pub.add('validate record tca crs - after validate Inv party crs(Ship to) '||x_return_status, 1, 'N');
3408: END IF;
3409:
3410: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3411: RAISE FND_API.G_EXC_ERROR;
3412: END IF;
3413: ASO_VALIDATE_PVT.Validate_inv_PartySite_crs(
3414: p_init_msg_list => p_init_msg_list,
3415: p_party_id => lp_qte_header_rec.party_id,
3426: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3427: aso_debug_pub.add('validate record tca crs - after validate Inv party site crs(Bill to) '||x_return_status, 1, 'N');
3428: END IF;
3429:
3430: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3431: RAISE FND_API.G_EXC_ERROR;
3432: END IF;
3433:
3434: ASO_VALIDATE_PVT.Validate_inv_PartySite_crs(
3427: aso_debug_pub.add('validate record tca crs - after validate Inv party site crs(Bill to) '||x_return_status, 1, 'N');
3428: END IF;
3429:
3430: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3431: RAISE FND_API.G_EXC_ERROR;
3432: END IF;
3433:
3434: ASO_VALIDATE_PVT.Validate_inv_PartySite_crs(
3435: p_init_msg_list => p_init_msg_list,
3447: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3448: aso_debug_pub.add('validate record tca crs - after validate Inv party site crs(End User) '||x_return_status, 1, 'N');
3449: END IF;
3450:
3451: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3452: RAISE FND_API.G_EXC_ERROR;
3453: END IF;
3454:
3455: ASO_VALIDATE_PVT.Validate_inv_PartySite_crs(
3448: aso_debug_pub.add('validate record tca crs - after validate Inv party site crs(End User) '||x_return_status, 1, 'N');
3449: END IF;
3450:
3451: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3452: RAISE FND_API.G_EXC_ERROR;
3453: END IF;
3454:
3455: ASO_VALIDATE_PVT.Validate_inv_PartySite_crs(
3456: p_init_msg_list => p_init_msg_list,
3468: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3469: aso_debug_pub.add('validate record tca crs - after validate Inv party site crs(Ship to) '||x_return_status, 1, 'N');
3470: END IF;
3471:
3472: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3473: RAISE FND_API.G_EXC_ERROR;
3474: END IF;
3475:
3476: -- Sold_to
3469: aso_debug_pub.add('validate record tca crs - after validate Inv party site crs(Ship to) '||x_return_status, 1, 'N');
3470: END IF;
3471:
3472: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3473: RAISE FND_API.G_EXC_ERROR;
3474: END IF;
3475:
3476: -- Sold_to
3477: IF lp_qte_header_rec.org_contact_id IS NOT NULL
3474: END IF;
3475:
3476: -- Sold_to
3477: IF lp_qte_header_rec.org_contact_id IS NOT NULL
3478: AND lp_qte_header_rec.org_contact_id <> FND_API.G_MISS_NUM THEN
3479: OPEN C_Get_Party_From_Org(lp_qte_header_rec.org_contact_id);
3480: FETCH C_Get_Party_From_Org INTO l_party_id;
3481: CLOSE C_Get_Party_From_Org;
3482: ELSE
3499: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3500: aso_debug_pub.add('validate record tca crs - after validate Inv party site crs(Sold to) '||x_return_status, 1, 'N');
3501: END IF;
3502:
3503: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3504: RAISE FND_API.G_EXC_ERROR;
3505: END IF;
3506: -- Sold_to
3507:
3500: aso_debug_pub.add('validate record tca crs - after validate Inv party site crs(Sold to) '||x_return_status, 1, 'N');
3501: END IF;
3502:
3503: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3504: RAISE FND_API.G_EXC_ERROR;
3505: END IF;
3506: -- Sold_to
3507:
3508: FND_MSG_PUB.Count_And_Get
3510: p_data => x_msg_data
3511: );
3512:
3513: EXCEPTION
3514: WHEN FND_API.G_EXC_ERROR THEN
3515: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
3516: P_API_NAME => L_API_NAME
3517: ,P_PKG_NAME => G_PKG_NAME
3518: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
3522: ,X_MSG_COUNT => X_MSG_COUNT
3523: ,X_MSG_DATA => X_MSG_DATA
3524: ,X_RETURN_STATUS => X_RETURN_STATUS);
3525:
3526: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3527: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
3528: P_API_NAME => L_API_NAME
3529: ,P_PKG_NAME => G_PKG_NAME
3530: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
3549:
3550: END Validate_record_tca_crs;
3551:
3552: PROCEDURE Validate_QTE_OBJ_TYPE_CODE (
3553: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3554: P_QUOTE_OBJECT_TYPE_CODE IN VARCHAR2,
3555: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
3556: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
3557: X_Msg_Data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
3564: l_exist VARCHAR2(1);
3565: BEGIN
3566:
3567: -- Initialize message list if p_init_msg_list is set to TRUE.
3568: IF FND_API.to_Boolean( p_init_msg_list )
3569: THEN
3570: FND_MSG_PUB.initialize;
3571: END IF;
3572:
3571: END IF;
3572:
3573:
3574: -- Initialize API return status to SUCCESS
3575: x_return_status := FND_API.G_RET_STS_SUCCESS;
3576: IF P_QUOTE_OBJECT_TYPE_CODE IS NOT NULL AND P_QUOTE_OBJECT_TYPE_CODE <> FND_API.G_MISS_CHAR THEN
3577: OPEN C1;
3578: FETCH C1 INTO l_exist;
3579: IF C1%NOTFOUND or l_exist is NULL THEN
3572:
3573:
3574: -- Initialize API return status to SUCCESS
3575: x_return_status := FND_API.G_RET_STS_SUCCESS;
3576: IF P_QUOTE_OBJECT_TYPE_CODE IS NOT NULL AND P_QUOTE_OBJECT_TYPE_CODE <> FND_API.G_MISS_CHAR THEN
3577: OPEN C1;
3578: FETCH C1 INTO l_exist;
3579: IF C1%NOTFOUND or l_exist is NULL THEN
3580: CLOSE C1;
3577: OPEN C1;
3578: FETCH C1 INTO l_exist;
3579: IF C1%NOTFOUND or l_exist is NULL THEN
3580: CLOSE C1;
3581: x_return_status := FND_API.G_RET_STS_ERROR;
3582: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3583: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
3584: FND_MESSAGE.Set_Token('COLUMN', 'QUOTE_OBJECT_TYPE_CODE', FALSE);
3585: FND_MESSAGE.Set_Token('VALUE',P_QUOTE_OBJECT_TYPE_CODE,FALSE);
3594:
3595: END Validate_QTE_OBJ_TYPE_CODE;
3596:
3597: PROCEDURE Validate_OBJECT_TYPE_CODE (
3598: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3599: P_OBJECT_TYPE_CODE IN VARCHAR2,
3600: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
3601: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
3602: X_Msg_Data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
3610: l_exist VARCHAR2(1);
3611: BEGIN
3612:
3613: -- Initialize message list if p_init_msg_list is set to TRUE.
3614: IF FND_API.to_Boolean( p_init_msg_list )
3615: THEN
3616: FND_MSG_PUB.initialize;
3617: END IF;
3618:
3617: END IF;
3618:
3619:
3620: -- Initialize API return status to SUCCESS
3621: x_return_status := FND_API.G_RET_STS_SUCCESS;
3622:
3623: IF p_OBJECT_TYPE_CODE IS NOT NULL AND p_OBJECT_TYPE_CODE <> FND_API.G_MISS_CHAR THEN
3624: OPEN C1;
3625: FETCH C1 INTO l_exist;
3619:
3620: -- Initialize API return status to SUCCESS
3621: x_return_status := FND_API.G_RET_STS_SUCCESS;
3622:
3623: IF p_OBJECT_TYPE_CODE IS NOT NULL AND p_OBJECT_TYPE_CODE <> FND_API.G_MISS_CHAR THEN
3624: OPEN C1;
3625: FETCH C1 INTO l_exist;
3626: IF C1%NOTFOUND or l_exist is NULL THEN
3627: CLOSE C1;
3624: OPEN C1;
3625: FETCH C1 INTO l_exist;
3626: IF C1%NOTFOUND or l_exist is NULL THEN
3627: CLOSE C1;
3628: x_return_status := FND_API.G_RET_STS_ERROR;
3629: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3630: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
3631: FND_MESSAGE.Set_Token('COLUMN', 'OBJECT_TYPE_CODE', FALSE);
3632: FND_MESSAGE.Set_Token('VALUE',p_OBJECT_TYPE_CODE,FALSE);
3641:
3642:
3643: END Validate_OBJECT_TYPE_CODE;
3644: PROCEDURE Validate_RLTSHIP_TYPE_CODE (
3645: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3646: P_RELATIONSHIP_TYPE_CODE IN VARCHAR2,
3647: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
3648: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
3649: X_Msg_Data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
3657: l_exist VARCHAR2(1);
3658: BEGIN
3659:
3660: -- Initialize message list if p_init_msg_list is set to TRUE.
3661: IF FND_API.to_Boolean( p_init_msg_list )
3662: THEN
3663: FND_MSG_PUB.initialize;
3664: END IF;
3665:
3664: END IF;
3665:
3666:
3667: -- Initialize API return status to SUCCESS
3668: x_return_status := FND_API.G_RET_STS_SUCCESS;
3669: IF P_RELATIONSHIP_TYPE_CODE IS NOT NULL AND P_RELATIONSHIP_TYPE_CODE <> FND_API.G_MISS_CHAR THEN
3670: OPEN C1;
3671: FETCH C1 INTO l_exist;
3672: IF C1%NOTFOUND or l_exist is NULL THEN
3665:
3666:
3667: -- Initialize API return status to SUCCESS
3668: x_return_status := FND_API.G_RET_STS_SUCCESS;
3669: IF P_RELATIONSHIP_TYPE_CODE IS NOT NULL AND P_RELATIONSHIP_TYPE_CODE <> FND_API.G_MISS_CHAR THEN
3670: OPEN C1;
3671: FETCH C1 INTO l_exist;
3672: IF C1%NOTFOUND or l_exist is NULL THEN
3673: CLOSE C1;
3670: OPEN C1;
3671: FETCH C1 INTO l_exist;
3672: IF C1%NOTFOUND or l_exist is NULL THEN
3673: CLOSE C1;
3674: x_return_status := FND_API.G_RET_STS_ERROR;
3675: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3676: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
3677: FND_MESSAGE.Set_Token('COLUMN', 'RELATIONSHIP_TYPE_CODE', FALSE);
3678: FND_MESSAGE.Set_Token('VALUE',P_RELATIONSHIP_TYPE_CODE,FALSE);
3703: l_start_date DATE;
3704: l_end_date DATE;
3705: BEGIN
3706: -- Initialize message list if p_init_msg_list is set to TRUE.
3707: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3708: FND_MSG_PUB.initialize;
3709: END IF;
3710:
3711: -- Initialize API return status to success
3708: FND_MSG_PUB.initialize;
3709: END IF;
3710:
3711: -- Initialize API return status to success
3712: x_return_status := FND_API.G_RET_STS_SUCCESS;
3713:
3714: IF (p_minisite_id IS NOT NULL AND p_minisite_id <> FND_API.G_MISS_NUM) THEN
3715: OPEN C_Minisite;
3716: FETCH C_Minisite INTO l_start_date, l_end_date;
3710:
3711: -- Initialize API return status to success
3712: x_return_status := FND_API.G_RET_STS_SUCCESS;
3713:
3714: IF (p_minisite_id IS NOT NULL AND p_minisite_id <> FND_API.G_MISS_NUM) THEN
3715: OPEN C_Minisite;
3716: FETCH C_Minisite INTO l_start_date, l_end_date;
3717: IF (C_Minisite%NOTFOUND OR
3718: (sysdate NOT BETWEEN NVL(l_start_date, sysdate) AND
3717: IF (C_Minisite%NOTFOUND OR
3718: (sysdate NOT BETWEEN NVL(l_start_date, sysdate) AND
3719: NVL(l_end_date, sysdate))) THEN
3720: CLOSE C_Minisite;
3721: x_return_status := FND_API.G_RET_STS_ERROR;
3722: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3723: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
3724: FND_MESSAGE.Set_Token('COLUMN', 'MSITE_ID', FALSE);
3725: FND_MESSAGE.Set_Token('VALUE',to_char(p_minisite_id),FALSE);
3747: l_start_date DATE;
3748: l_end_date DATE;
3749: BEGIN
3750: -- Initialize message list if p_init_msg_list is set to TRUE.
3751: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3752: FND_MSG_PUB.initialize;
3753: END IF;
3754:
3755: -- Initialize API return status to success
3752: FND_MSG_PUB.initialize;
3753: END IF;
3754:
3755: -- Initialize API return status to success
3756: x_return_status := FND_API.G_RET_STS_SUCCESS;
3757:
3758: IF (p_section_id IS NOT NULL AND p_section_id <> FND_API.G_MISS_NUM) THEN
3759: OPEN C_Section;
3760: FETCH C_Section INTO l_start_date, l_end_date;
3754:
3755: -- Initialize API return status to success
3756: x_return_status := FND_API.G_RET_STS_SUCCESS;
3757:
3758: IF (p_section_id IS NOT NULL AND p_section_id <> FND_API.G_MISS_NUM) THEN
3759: OPEN C_Section;
3760: FETCH C_Section INTO l_start_date, l_end_date;
3761: IF (C_Section%NOTFOUND OR
3762: (sysdate NOT BETWEEN NVL(l_start_date, sysdate) AND
3761: IF (C_Section%NOTFOUND OR
3762: (sysdate NOT BETWEEN NVL(l_start_date, sysdate) AND
3763: NVL(l_end_date, sysdate))) THEN
3764: CLOSE C_Section;
3765: x_return_status := FND_API.G_RET_STS_ERROR;
3766: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3767: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
3768: FND_MESSAGE.Set_Token('COLUMN', 'SECTION_ID', FALSE);
3769: FND_MESSAGE.Set_Token('VALUE',to_char(p_section_id),FALSE);
3808:
3809: BEGIN
3810:
3811: -- Initialize message list if p_init_msg_list is set to TRUE.
3812: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3813: FND_MSG_PUB.initialize;
3814: END IF;
3815:
3816: -- Initialize API return status to success
3813: FND_MSG_PUB.initialize;
3814: END IF;
3815:
3816: -- Initialize API return status to success
3817: x_return_status := FND_API.G_RET_STS_SUCCESS;
3818:
3819: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3820: aso_debug_pub.add('validate_quote_percent: sales_credit_tbl.cnt: '|| p_sales_credit_tbl.count, 1, 'N');
3821: aso_debug_pub.add('validate_quote_percent: quote_header_id: '|| p_sales_credit_tbl(1).quote_header_id, 1, 'N');
3822: aso_debug_pub.add('validate_quote_percent: quote_line_id: '|| p_sales_credit_tbl(1).quote_line_id, 1, 'N');
3823: aso_debug_pub.add('validate_quote_percent: qte_line_index: '|| p_sales_credit_tbl(1).qte_line_index, 1, 'N');
3824: END IF;
3825:
3826: 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
3827: 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
3828: FOR percent_rec IN c_quota_line(p_sales_credit_tbl(1).quote_header_id, p_sales_credit_tbl(1).quote_line_id) LOOP
3829: l_percent_total := percent_rec.total;
3830: END LOOP;
3823: aso_debug_pub.add('validate_quote_percent: qte_line_index: '|| p_sales_credit_tbl(1).qte_line_index, 1, 'N');
3824: END IF;
3825:
3826: 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
3827: 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
3828: FOR percent_rec IN c_quota_line(p_sales_credit_tbl(1).quote_header_id, p_sales_credit_tbl(1).quote_line_id) LOOP
3829: l_percent_total := percent_rec.total;
3830: END LOOP;
3831: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3844: END IF;
3845:
3846: --IF nvl(l_percent_total,0) <> 100 THEN --commented to fix bug5671266
3847: IF l_percent_total IS NOT NULL AND l_percent_total <> 100 THEN
3848: x_return_status := FND_API.G_RET_STS_ERROR;
3849: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3850: FND_MESSAGE.Set_Name('ASO', 'ASO_SALES_CREDIT_PERCENT');
3851: FND_MSG_PUB.ADD;
3852: END IF;
3866: IS
3867:
3868: BEGIN
3869: -- Initialize message list if p_init_msg_list is set to TRUE.
3870: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3871: FND_MSG_PUB.initialize;
3872: END IF;
3873:
3874: -- Initialize API return status to success
3871: FND_MSG_PUB.initialize;
3872: END IF;
3873:
3874: -- Initialize API return status to success
3875: x_return_status := FND_API.G_RET_STS_SUCCESS;
3876:
3877: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
3878: aso_debug_pub.add('validate_sales_credit_return: start '|| x_return_status, 1, 'N');
3879: END IF;
3879: END IF;
3880:
3881: IF p_qte_line_rec.LINE_CATEGORY_CODE = 'RETURN' THEN
3882: IF p_sales_credit_tbl.count > 0 THEN
3883: x_return_status := FND_API.G_RET_STS_ERROR;
3884: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3885: FND_MESSAGE.Set_Name('ASO', 'ASO_SALES_CREDIT_RETURN');
3886: FND_MSG_PUB.ADD;
3887: END IF;
3924: aso_debug_pub.add('ASO_VALIDATE_PVT organization_id: '||p_qte_line_rec.organization_id, 1, 'N');
3925: aso_debug_pub.add('ASO_VALIDATE_PVT ship_from_org_id: '||p_shipment_rec.ship_from_org_id, 1, 'N');
3926: END IF;
3927:
3928: x_return_status := FND_API.G_RET_STS_SUCCESS;
3929: 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
3930: (p_qte_line_rec.organization_id is not null AND p_qte_line_rec.organization_id <> FND_API.G_MISS_NUM) AND
3931: (p_shipment_rec.ship_from_org_id is not null AND p_shipment_rec.ship_from_org_id <> FND_API.G_MISS_NUM) THEN
3932:
3925: aso_debug_pub.add('ASO_VALIDATE_PVT ship_from_org_id: '||p_shipment_rec.ship_from_org_id, 1, 'N');
3926: END IF;
3927:
3928: x_return_status := FND_API.G_RET_STS_SUCCESS;
3929: 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
3930: (p_qte_line_rec.organization_id is not null AND p_qte_line_rec.organization_id <> FND_API.G_MISS_NUM) AND
3931: (p_shipment_rec.ship_from_org_id is not null AND p_shipment_rec.ship_from_org_id <> FND_API.G_MISS_NUM) THEN
3932:
3933: open c_org_id;
3926: END IF;
3927:
3928: x_return_status := FND_API.G_RET_STS_SUCCESS;
3929: 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
3930: (p_qte_line_rec.organization_id is not null AND p_qte_line_rec.organization_id <> FND_API.G_MISS_NUM) AND
3931: (p_shipment_rec.ship_from_org_id is not null AND p_shipment_rec.ship_from_org_id <> FND_API.G_MISS_NUM) THEN
3932:
3933: open c_org_id;
3934: fetch c_org_id into l_org_id;
3927:
3928: x_return_status := FND_API.G_RET_STS_SUCCESS;
3929: 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
3930: (p_qte_line_rec.organization_id is not null AND p_qte_line_rec.organization_id <> FND_API.G_MISS_NUM) AND
3931: (p_shipment_rec.ship_from_org_id is not null AND p_shipment_rec.ship_from_org_id <> FND_API.G_MISS_NUM) THEN
3932:
3933: open c_org_id;
3934: fetch c_org_id into l_org_id;
3935: IF c_org_id%NOTFOUND THEN
3932:
3933: open c_org_id;
3934: fetch c_org_id into l_org_id;
3935: IF c_org_id%NOTFOUND THEN
3936: x_return_status := FND_API.G_RET_STS_ERROR;
3937: END IF;
3938: close c_org_id;
3939: END IF;
3940: END validate_ship_from_org_ID;
3997: aso_debug_pub.add('Entering Validate_Commitment', 1, 'N');
3998: END IF;
3999:
4000: -- Initialize message list if p_init_msg_list is set to TRUE.
4001: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4002: FND_MSG_PUB.initialize;
4003: END IF;
4004:
4005: -- Initialize API return status to success
4002: FND_MSG_PUB.initialize;
4003: END IF;
4004:
4005: -- Initialize API return status to success
4006: x_return_status := FND_API.G_RET_STS_SUCCESS;
4007:
4008: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4009: aso_debug_pub.add('Validate_Commitment-P_Qte_Header_Rec.Quote_Header_Id: '||P_Qte_Header_Rec.Quote_Header_Id, 1, 'N');
4010: aso_debug_pub.add('Validate_Commitment-P_Qte_Line_Rec.Commitment_Id: '||P_Qte_Line_Rec.Commitment_Id, 1, 'N');
4010: aso_debug_pub.add('Validate_Commitment-P_Qte_Line_Rec.Commitment_Id: '||P_Qte_Line_Rec.Commitment_Id, 1, 'N');
4011: END IF;
4012:
4013: IF P_Qte_Line_Rec.Commitment_Id IS NOT NULL AND
4014: P_Qte_Line_Rec.Commitment_Id <> FND_API.G_MISS_NUM THEN
4015:
4016: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4017: aso_debug_pub.add('Validate_Commitment-P_Qte_Line_Rec.Operation_Code: '||P_Qte_Line_Rec.Operation_Code, 1, 'N');
4018: END IF;
4030: l_Org_Id := P_Qte_Header_Rec.Org_Id;
4031: l_Currency_Code := P_Qte_Header_Rec.Currency_Code;
4032: /*
4033: IF P_Qte_Line_Rec.Invoice_To_Cust_Account_Id IS NOT NULL AND
4034: P_Qte_Line_Rec.Invoice_To_Cust_Account_Id <> FND_API.G_MISS_NUM THEN
4035: 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');
4036:
4037: l_Cust_Account_Id := P_Qte_Line_Rec.Invoice_To_Cust_Account_Id;
4038:
4036:
4037: l_Cust_Account_Id := P_Qte_Line_Rec.Invoice_To_Cust_Account_Id;
4038:
4039: ELSIF P_Qte_Header_Rec.Invoice_To_Cust_Account_Id IS NOT NULL AND
4040: P_Qte_Header_Rec.Invoice_To_Cust_Account_Id <> FND_API.G_MISS_NUM THEN
4041: 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');
4042:
4043: l_Cust_Account_Id := P_Qte_Header_Rec.Invoice_To_Cust_Account_Id;
4044:
4052: l_Agreement_Id := P_Qte_Line_Rec.Agreement_Id;
4053: l_Commitment_Id := P_Qte_Line_Rec.Commitment_Id;
4054: l_Inventory_Item_Id := P_Qte_Line_Rec.Inventory_Item_Id;
4055:
4056: IF l_Agreement_Id IS NULL OR l_agreement_id = FND_API.G_MISS_NUM
4057: THEN
4058: OPEN C_Get_Agreement(P_Qte_Header_Rec.Quote_Header_id);
4059: FETCH C_Get_Agreement INTO l_Agreement_Id;
4060: CLOSE C_Get_Agreement;
4072: IF C_Commitment_Cur%NOTFOUND OR l_Cur_Variable <> 'VALID' THEN
4073: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4074: aso_debug_pub.add('Validate_Commitment-Invalid Commitment: ', 1, 'N');
4075: END IF;
4076: x_return_status := FND_API.G_RET_STS_ERROR;
4077: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4078: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_COMMITMENT');
4079: FND_MSG_PUB.ADD;
4080: END IF;
4088: FETCH C_Header_Cur INTO l_Org_Id, l_Currency_Code, l_Cust_Account_Id;
4089: CLOSE C_Header_Cur;
4090:
4091: IF P_Qte_Header_Rec.Org_Id IS NOT NULL AND
4092: P_Qte_Header_Rec.Org_Id <> FND_API.G_MISS_NUM THEN
4093: l_Org_Id := P_Qte_Header_Rec.Org_Id;
4094: END IF;
4095:
4096: IF P_Qte_Header_Rec.Currency_Code IS NOT NULL AND
4093: l_Org_Id := P_Qte_Header_Rec.Org_Id;
4094: END IF;
4095:
4096: IF P_Qte_Header_Rec.Currency_Code IS NOT NULL AND
4097: P_Qte_Header_Rec.Currency_Code <> FND_API.G_MISS_CHAR THEN
4098: l_Currency_Code := P_Qte_Header_Rec.Currency_Code;
4099: END IF;
4100:
4101: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4103: aso_debug_pub.add('Validate_Commitment-l_Currency_Code: '||l_Currency_Code, 1, 'N');
4104: END IF;
4105: /*
4106: IF P_Qte_Line_Rec.Invoice_To_Cust_Account_Id IS NOT NULL AND
4107: P_Qte_Line_Rec.Invoice_To_Cust_Account_Id <> FND_API.G_MISS_NUM THEN
4108: 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');
4109:
4110: l_Cust_Account_Id := P_Qte_Line_Rec.Invoice_To_Cust_Account_Id;
4111:
4109:
4110: l_Cust_Account_Id := P_Qte_Line_Rec.Invoice_To_Cust_Account_Id;
4111:
4112: ELSIF P_Qte_Header_Rec.Invoice_To_Cust_Account_Id IS NOT NULL AND
4113: P_Qte_Header_Rec.Invoice_To_Cust_Account_Id <> FND_API.G_MISS_NUM THEN
4114: 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');
4115:
4116: l_Cust_Account_Id := P_Qte_Header_Rec.Invoice_To_Cust_Account_Id;
4117:
4130: FETCH C_Line_Cur INTO l_Agreement_Id, l_Commitment_Id, l_Inventory_Item_Id;
4131: CLOSE C_Line_Cur;
4132:
4133: IF P_Qte_Line_Rec.Agreement_Id IS NOT NULL AND
4134: P_Qte_Line_Rec.Agreement_Id <> FND_API.G_MISS_NUM THEN
4135: l_Agreement_Id := P_Qte_Line_Rec.Agreement_Id;
4136: END IF;
4137:
4138: IF P_Qte_Line_Rec.Commitment_id IS NOT NULL AND
4135: l_Agreement_Id := P_Qte_Line_Rec.Agreement_Id;
4136: END IF;
4137:
4138: IF P_Qte_Line_Rec.Commitment_id IS NOT NULL AND
4139: P_Qte_Line_Rec.Commitment_Id <> FND_API.G_MISS_NUM THEN
4140: l_Commitment_Id := P_Qte_Line_Rec.Commitment_Id;
4141: END IF;
4142:
4143: IF P_Qte_Line_Rec.Inventory_Item_Id IS NOT NULL AND
4140: l_Commitment_Id := P_Qte_Line_Rec.Commitment_Id;
4141: END IF;
4142:
4143: IF P_Qte_Line_Rec.Inventory_Item_Id IS NOT NULL AND
4144: P_Qte_Line_Rec.Inventory_Item_Id <> FND_API.G_MISS_NUM THEN
4145: l_Inventory_Item_Id := P_Qte_Line_Rec.Inventory_Item_Id;
4146: END IF;
4147:
4148: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4161: IF C_Commitment_Cur%NOTFOUND OR l_Cur_Variable <> 'VALID' THEN
4162: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4163: aso_debug_pub.add('Validate_Commitment-Invalid Commitment: ', 1, 'N');
4164: END IF;
4165: x_return_status := FND_API.G_RET_STS_ERROR;
4166: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4167: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_COMMITMENT');
4168: FND_MSG_PUB.ADD;
4169: END IF;
4202: aso_debug_pub.add('Validate_Agreement-P_Agreement_Id: '||P_Agreement_Id, 1, 'N');
4203: END IF;
4204:
4205: -- Initialize message list if p_init_msg_list is set to TRUE.
4206: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4207: FND_MSG_PUB.initialize;
4208: END IF;
4209:
4210: -- Initialize API return status to success
4207: FND_MSG_PUB.initialize;
4208: END IF;
4209:
4210: -- Initialize API return status to success
4211: x_return_status := FND_API.G_RET_STS_SUCCESS;
4212:
4213: OPEN C_Agreement_Cur(P_Agreement_Id);
4214: FETCH C_Agreement_Cur INTO l_Start_Date_Active, l_End_Date_Active;
4215:
4216: IF C_Agreement_Cur%NOTFOUND THEN
4217: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4218: aso_debug_pub.add('Validate_Agreement-Agreement Not Found', 1, 'N');
4219: END IF;
4220: x_return_status := FND_API.G_RET_STS_ERROR;
4221: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4222: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_AGREEMENT');
4223: FND_MSG_PUB.ADD;
4224: END IF;
4227: IF (trunc(sysdate) NOT BETWEEN trunc(l_Start_Date_Active) AND NVL(trunc(l_End_Date_Active),trunc(sysdate))) THEN
4228: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4229: aso_debug_pub.add('Validate_Agreement-Agreement Invalid', 1, 'N');
4230: END IF;
4231: x_return_status := FND_API.G_RET_STS_ERROR;
4232: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4233: FND_MESSAGE.Set_Name('ASO', 'ASO_INACTIVE_AGREEMENT');
4234: FND_MSG_PUB.ADD;
4235: END IF;
4260: l_enabled_flag VARCHAR2(1);
4261:
4262: BEGIN
4263: -- Initialize message list if p_init_msg_list is set to TRUE.
4264: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4265: FND_MSG_PUB.initialize;
4266: END IF;
4267:
4268: -- Initialize API return status to success
4265: FND_MSG_PUB.initialize;
4266: END IF;
4267:
4268: -- Initialize API return status to success
4269: x_return_status := FND_API.G_RET_STS_SUCCESS;
4270:
4271: Validate_Quote_Status(
4272: p_init_msg_list => p_init_msg_list,
4273: p_quote_status_id => p_source_status_id,
4274: x_return_status => x_return_status,
4275: x_msg_count => x_msg_count,
4276: x_msg_data => x_msg_data);
4277:
4278: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4279: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4280: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
4281: FND_MESSAGE.Set_Token('COLUMN', 'SOURCE_STATUS_ID', FALSE);
4282: FND_MESSAGE.Set_Token('VALUE',to_char(p_source_status_id),FALSE);
4291: x_return_status => x_return_status,
4292: x_msg_count => x_msg_count,
4293: x_msg_data => x_msg_data);
4294:
4295: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4296: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4297: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
4298: FND_MESSAGE.Set_Token('COLUMN', 'DEST_STATUS_ID', FALSE);
4299: FND_MESSAGE.Set_Token('VALUE',to_char(p_dest_status_id),FALSE);
4304:
4305: OPEN c_transition(p_source_status_id, p_dest_status_id);
4306: FETCH c_transition INTO l_transition_id, l_enabled_flag;
4307: IF (c_transition%NOTFOUND) THEN
4308: x_return_status := FND_API.G_RET_STS_ERROR;
4309: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4310: FND_MESSAGE.Set_Name('ASO', 'ASO_NONEXISTENT_STATUS_TRANS');
4311: FND_MSG_PUB.ADD;
4312: END IF;
4310: FND_MESSAGE.Set_Name('ASO', 'ASO_NONEXISTENT_STATUS_TRANS');
4311: FND_MSG_PUB.ADD;
4312: END IF;
4313: ELSIF (l_enabled_flag <> 'Y') THEN
4314: x_return_status := FND_API.G_RET_STS_ERROR;
4315: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4316: FND_MESSAGE.Set_Name('ASO', 'ASO_DISABLED_STATUS_TRANS');
4317: FND_MSG_PUB.ADD;
4318: END IF;
4342:
4343: BEGIN
4344:
4345: -- Initialize message list if p_init_msg_list is set to TRUE.
4346: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4347: FND_MSG_PUB.initialize;
4348: END IF;
4349:
4350: -- Initialize API return status to success
4347: FND_MSG_PUB.initialize;
4348: END IF;
4349:
4350: -- Initialize API return status to success
4351: x_return_status := FND_API.G_RET_STS_SUCCESS;
4352:
4353: OPEN c_k_template(p_template_id);
4354: FETCH c_k_template INTO l_major_version;
4355: IF c_k_template%NOTFOUND
4353: OPEN c_k_template(p_template_id);
4354: FETCH c_k_template INTO l_major_version;
4355: IF c_k_template%NOTFOUND
4356: THEN
4357: x_return_status := FND_API.G_RET_STS_ERROR;
4358: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4359: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
4360: FND_MESSAGE.Set_Token('COLUMN', 'TEMPLATE_ID', FALSE);
4361: FND_MSG_PUB.ADD;
4362: END IF;
4363: ELSE
4364: IF l_major_version <> p_template_major_version
4365: THEN
4366: x_return_status := FND_API.G_RET_STS_ERROR;
4367: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4368: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
4369: FND_MESSAGE.Set_Token('COLUMN', 'TEMPLATE_MAJOR_VERSION', FALSE);
4370: FND_MESSAGE.Set_Token('VALUE',to_char(p_template_major_version),FALSE);
4380: -- end of hyang okc
4381:
4382: PROCEDURE Validate_Promotion (
4383: P_Api_Version_Number IN NUMBER,
4384: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
4385: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
4386: p_price_attr_tbl IN ASO_QUOTE_PUB.Price_Attributes_Tbl_Type,
4387: x_price_attr_tbl OUT NOCOPY /* file.sql.39 change */ ASO_QUOTE_PUB.Price_Attributes_Tbl_Type,
4388: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
4381:
4382: PROCEDURE Validate_Promotion (
4383: P_Api_Version_Number IN NUMBER,
4384: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
4385: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
4386: p_price_attr_tbl IN ASO_QUOTE_PUB.Price_Attributes_Tbl_Type,
4387: x_price_attr_tbl OUT NOCOPY /* file.sql.39 change */ ASO_QUOTE_PUB.Price_Attributes_Tbl_Type,
4388: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
4389: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
4426: p_pricing_attribute2 VARCHAR2 ) IS
4427: SELECT price_attribute_id
4428: FROM aso_price_attributes
4429: WHERE quote_header_id = p_quote_header_id
4430: AND nvl(quote_line_id,0) = nvl(decode(p_quote_line_id,FND_API.G_MISS_NUM,null,p_quote_line_id),0)
4431: AND nvl(pricing_attribute1,'X') = nvl(p_pricing_attribute1,'X')
4432: AND nvl(pricing_attribute2,'Y') = nvl(p_pricing_attribute2,'Y');
4433:
4434: Cursor C_get_attr1(p_quote_header_id NUMBER,
4436: p_list_line_id NUMBER) IS
4437: SELECT price_attribute_id
4438: FROM aso_price_attributes
4439: WHERE quote_header_id = p_quote_header_id
4440: AND nvl(quote_line_id,0) = nvl(decode(p_quote_line_id,FND_API.G_MISS_NUM,null,p_quote_line_id),0)
4441: AND pricing_attribute1 IN ( SELECT to_char(qpe.list_header_id)
4442: FROM qp_list_lines qpe
4443: WHERE qpe.list_line_id = p_list_line_id);
4444:
4448: p_pricing_attribute2 VARCHAR2) IS
4449: SELECT price_attribute_id
4450: FROM aso_price_attributes
4451: WHERE quote_header_id = p_quote_header_id
4452: AND nvl(quote_line_id,0) = nvl(decode(p_quote_line_id,FND_API.G_MISS_NUM,null,p_quote_line_id),0)
4453: AND (
4454: ( nvl(pricing_attribute2,'X') = nvl(p_pricing_attribute2,'X') AND
4455: p_pricing_attribute2 IS NOT NULL
4456: )
4485: -- Standard Start of API savepoint
4486: SAVEPOINT VALIDATE_PROMOTION_PVT;
4487:
4488: -- Standard call to check for call compatibility.
4489: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
4490: p_api_version_number,
4491: l_api_name,
4492: G_PKG_NAME)
4493: THEN
4490: p_api_version_number,
4491: l_api_name,
4492: G_PKG_NAME)
4493: THEN
4494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4495: END IF;
4496:
4497: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
4498:
4500: aso_debug_pub.add('Start of Validate_Promotion .....',1,'Y');
4501: END IF;
4502:
4503: -- Initialize message list if p_init_msg_list is set to TRUE.
4504: IF FND_API.to_Boolean( p_init_msg_list )
4505: THEN
4506: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4507: aso_debug_pub.add('Begin FND_API.to_Boolean'||p_init_msg_list, 1, 'Y');
4508: END IF;
4503: -- Initialize message list if p_init_msg_list is set to TRUE.
4504: IF FND_API.to_Boolean( p_init_msg_list )
4505: THEN
4506: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4507: aso_debug_pub.add('Begin FND_API.to_Boolean'||p_init_msg_list, 1, 'Y');
4508: END IF;
4509: FND_MSG_PUB.initialize;
4510: END IF;
4511:
4508: END IF;
4509: FND_MSG_PUB.initialize;
4510: END IF;
4511:
4512: x_return_status := FND_API.G_RET_STS_SUCCESS;
4513:
4514: l_price_attr_tbl := p_price_attr_tbl;
4515: m_price_attr_tbl := p_price_attr_tbl;
4516:
4524: END IF;
4525: If m_price_attr_tbl(i).operation_code = 'CREATE' Then
4526:
4527: If m_price_attr_tbl(i).pricing_attribute1 IS NOT NULL
4528: AND m_price_attr_tbl(i).pricing_attribute1 <> FND_API.G_MISS_CHAR THEN
4529: m_price_attr_tbl(i).pricing_attribute2 := null;
4530: l_list_header_id := to_number(m_price_attr_tbl(i).pricing_attribute1);
4531: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4532: aso_debug_pub.add('If m_price_attr_tbl(i).pricing_attribute1 IS NOT NULL l_list_header_id:'
4580: l_dup_ln_count := l_dup_ln_count + 1;
4581: else
4582: l_search_price_attr2_tbl(l_list_line_id).qte_line_index := l_list_line_id;
4583: For j IN 1..l_price_attr_tbl.count LOOP
4584: if ( l_price_attr_tbl(j).pricing_attribute2 = FND_API.G_MISS_CHAR ) then
4585: l_price_attr_tbl(j).pricing_attribute2 := null;
4586: end if;
4587: If l_list_line_id = to_number(nvl(l_price_attr_tbl(j).pricing_attribute2,'0'))
4588: AND l_price_attr_tbl(j).operation_code = 'CREATE' THEN
4693: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4694: aso_debug_pub.add('Duplicate record for list_header_id: '
4695: ||m_price_attr_tbl(i).pricing_attribute1,1,'N');
4696: END IF;
4697: x_return_status := FND_API.G_RET_STS_ERROR;
4698: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4699: FND_MESSAGE.Set_Name('ASO', 'ASO_VAL_PROMO_DUPLICATE_HDR');
4700: FND_MESSAGE.Set_Token('MODHDRID', m_price_attr_tbl(i).pricing_attribute1, FALSE);
4701: FND_MSG_PUB.Add;
4699: FND_MESSAGE.Set_Name('ASO', 'ASO_VAL_PROMO_DUPLICATE_HDR');
4700: FND_MESSAGE.Set_Token('MODHDRID', m_price_attr_tbl(i).pricing_attribute1, FALSE);
4701: FND_MSG_PUB.Add;
4702: END IF;
4703: --RAISE FND_API.G_EXC_ERROR;
4704: End If;
4705: End If;-- m_price_attr_tbl(i).pricing_attribute1 IS NOT NULL
4706:
4707: If m_price_attr_tbl(i).pricing_attribute2 IS NOT NULL
4704: End If;
4705: End If;-- m_price_attr_tbl(i).pricing_attribute1 IS NOT NULL
4706:
4707: If m_price_attr_tbl(i).pricing_attribute2 IS NOT NULL
4708: AND m_price_attr_tbl(i).pricing_attribute2 <> FND_API.G_MISS_CHAR THEN
4709:
4710: m_price_attr_tbl(i).pricing_attribute1 := null;
4711:
4712: l_list_line_id := to_number(m_price_attr_tbl(i).pricing_attribute2);
4763: else
4764: l_search_price_attr1_tbl(l_list_header_id).qte_line_index := l_list_header_id;
4765:
4766: For j IN 1..l_price_attr_tbl.count LOOP
4767: if ( l_price_attr_tbl(j).pricing_attribute1 = FND_API.G_MISS_CHAR ) then
4768: l_price_attr_tbl(j).pricing_attribute1 := null;
4769: end if;
4770: If l_list_header_id = to_number(nvl(l_price_attr_tbl(j).pricing_attribute1,'0'))
4771: AND l_price_attr_tbl(j).operation_code = 'CREATE' THEN
4872: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4873: aso_debug_pub.add('Duplicate record for list_line_id: '
4874: ||m_price_attr_tbl(i).pricing_attribute2,1,'N');
4875: END IF;
4876: x_return_status := FND_API.G_RET_STS_ERROR;
4877: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4878: FND_MESSAGE.Set_Name('ASO', 'ASO_VAL_PROMO_DUPLICATE_LN');
4879: FND_MESSAGE.Set_Token('MODLNID', m_price_attr_tbl(i).pricing_attribute2, FALSE);
4880: FND_MSG_PUB.Add;
4878: FND_MESSAGE.Set_Name('ASO', 'ASO_VAL_PROMO_DUPLICATE_LN');
4879: FND_MESSAGE.Set_Token('MODLNID', m_price_attr_tbl(i).pricing_attribute2, FALSE);
4880: FND_MSG_PUB.Add;
4881: END IF;
4882: --RAISE FND_API.G_EXC_ERROR;
4883: End If;
4884:
4885:
4886: End If;-- m_price_attr_tbl(i).pricing_attribute2 IS NOT NULL
4889:
4890: END LOOP;
4891:
4892: -- Standard check for p_commit
4893: IF FND_API.to_Boolean( p_commit ) THEN
4894: COMMIT WORK;
4895: END IF;
4896:
4897: FND_MSG_PUB.Count_And_Get
4911: aso_debug_pub.add('End Validate_Promotion',1,'N');
4912: END IF;
4913:
4914: EXCEPTION
4915: WHEN FND_API.G_EXC_ERROR THEN
4916: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4917: aso_debug_pub.add('after inside EXCEPTION return status'||x_return_status, 1, 'Y');
4918: END IF;
4919: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
4926: ,X_MSG_COUNT => X_MSG_COUNT
4927: ,X_MSG_DATA => X_MSG_DATA
4928: ,X_RETURN_STATUS => X_RETURN_STATUS);
4929:
4930: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4931: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
4932: P_API_NAME => L_API_NAME
4933: ,P_PKG_NAME => G_PKG_NAME
4934: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
4954: END Validate_Promotion;
4955:
4956:
4957: FUNCTION Validate_PaymentTerms(
4958: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
4959: p_payment_term_id IN NUMBER)
4960: RETURN VARCHAR2
4961: IS
4962: CURSOR C_Payment_Terms IS
4968: x_return_status VARCHAR2(1);
4969:
4970: BEGIN
4971: -- Initialize message list if p_init_msg_list is set to TRUE.
4972: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4973: FND_MSG_PUB.initialize;
4974: END IF;
4975:
4976: -- Inititalizing Global Debug Flag Variable.
4977:
4978: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
4979:
4980: -- Initialize API return status to success
4981: x_return_status := FND_API.G_RET_STS_SUCCESS;
4982:
4983: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4984: aso_debug_pub.add('Validate_PaymentTerms: p_payment_term_id: '||p_payment_term_id, 1, 'N');
4985: END IF;
4983: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4984: aso_debug_pub.add('Validate_PaymentTerms: p_payment_term_id: '||p_payment_term_id, 1, 'N');
4985: END IF;
4986:
4987: IF (p_payment_term_id IS NOT NULL AND p_payment_term_id <> FND_API.G_MISS_NUM) THEN
4988: OPEN C_Payment_Terms;
4989: FETCH C_Payment_Terms INTO l_start_date, l_end_date;
4990: IF (C_Payment_Terms%NOTFOUND OR
4991: (TRUNC(sysdate) NOT BETWEEN NVL(TRUNC(l_start_date), TRUNC(sysdate)) AND
4990: IF (C_Payment_Terms%NOTFOUND OR
4991: (TRUNC(sysdate) NOT BETWEEN NVL(TRUNC(l_start_date), TRUNC(sysdate)) AND
4992: NVL(TRUNC(l_end_date), TRUNC(sysdate)))) THEN
4993: CLOSE C_Payment_Terms;
4994: x_return_status := FND_API.G_RET_STS_ERROR;
4995: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4996: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
4997: FND_MESSAGE.Set_Token('COLUMN', 'PAYMENT_TERM', FALSE);
4998: FND_MESSAGE.Set_Token('VALUE',to_char(p_payment_term_id),FALSE);
5010: END Validate_PaymentTerms;
5011:
5012:
5013: FUNCTION Validate_FreightTerms(
5014: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
5015: p_freight_terms_code IN VARCHAR2)
5016: RETURN VARCHAR2
5017: IS
5018: CURSOR C_Freight_Terms IS
5026: x_return_status VARCHAR2(1);
5027:
5028: BEGIN
5029: -- Initialize message list if p_init_msg_list is set to TRUE.
5030: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5031: FND_MSG_PUB.initialize;
5032: END IF;
5033:
5034: -- Inititalizing Global Debug Flag Variable.
5035:
5036: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
5037:
5038: -- Initialize API return status to success
5039: x_return_status := FND_API.G_RET_STS_SUCCESS;
5040:
5041: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5042: aso_debug_pub.add('Validate_FreightTerms: p_freight_terms_code: '||p_freight_terms_code, 1, 'N');
5043: END IF;
5041: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5042: aso_debug_pub.add('Validate_FreightTerms: p_freight_terms_code: '||p_freight_terms_code, 1, 'N');
5043: END IF;
5044:
5045: IF (p_freight_terms_code IS NOT NULL AND p_freight_terms_code <> FND_API.G_MISS_NUM) THEN
5046: OPEN C_Freight_Terms;
5047: FETCH C_Freight_Terms INTO l_start_date, l_end_date;
5048: IF (C_Freight_Terms%NOTFOUND OR
5049: (TRUNC(sysdate) NOT BETWEEN NVL(TRUNC(l_start_date), TRUNC(sysdate)) AND
5048: IF (C_Freight_Terms%NOTFOUND OR
5049: (TRUNC(sysdate) NOT BETWEEN NVL(TRUNC(l_start_date), TRUNC(sysdate)) AND
5050: NVL(TRUNC(l_end_date), TRUNC(sysdate)))) THEN
5051: CLOSE C_Freight_Terms;
5052: x_return_status := FND_API.G_RET_STS_ERROR;
5053: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5054: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
5055: FND_MESSAGE.Set_Token('COLUMN', 'FREIGHT_TERM', FALSE);
5056: FND_MESSAGE.Set_Token('VALUE',p_freight_terms_code,FALSE);
5068: END Validate_FreightTerms;
5069:
5070:
5071: FUNCTION Validate_ShipMethods(
5072: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
5073: p_ship_method_code IN VARCHAR2,
5074: p_ship_from_org_id IN NUMBER := FND_API.G_MISS_NUM,
5075: p_qte_header_id IN NUMBER,
5076: p_qte_line_id IN NUMBER := FND_API.G_MISS_NUM)
5070:
5071: FUNCTION Validate_ShipMethods(
5072: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
5073: p_ship_method_code IN VARCHAR2,
5074: p_ship_from_org_id IN NUMBER := FND_API.G_MISS_NUM,
5075: p_qte_header_id IN NUMBER,
5076: p_qte_line_id IN NUMBER := FND_API.G_MISS_NUM)
5077: RETURN VARCHAR2
5078: IS
5072: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
5073: p_ship_method_code IN VARCHAR2,
5074: p_ship_from_org_id IN NUMBER := FND_API.G_MISS_NUM,
5075: p_qte_header_id IN NUMBER,
5076: p_qte_line_id IN NUMBER := FND_API.G_MISS_NUM)
5077: RETURN VARCHAR2
5078: IS
5079: CURSOR C_ship_method_code (p_org_id NUMBER) IS
5080: SELECT start_date_active, end_date_active
5105: WHERE aso.quote_line_id = p_qte_line_id;
5106:
5107: l_start_date DATE;
5108: l_end_date DATE;
5109: l_org_id NUMBER := FND_API.G_MISS_NUM;
5110: l_hdr_org_id NUMBER;
5111: l_line_organization_id NUMBER;
5112: l_line_org_id NUMBER;
5113: x_return_status VARCHAR2(1);
5114:
5115: BEGIN
5116:
5117: -- Initialize message list if p_init_msg_list is set to TRUE.
5118: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5119: FND_MSG_PUB.initialize;
5120: END IF;
5121:
5122: -- Inititalizing Global Debug Flag Variable.
5123:
5124: aso_debug_pub.g_debug_flag := nvl(fnd_profile.value('ASO_ENABLE_DEBUG'),'N');
5125:
5126: -- Initialize API return status to success
5127: x_return_status := FND_API.G_RET_STS_SUCCESS;
5128:
5129: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5130: aso_debug_pub.add('Validate_ShipMethods: p_ship_method_code :'||p_ship_method_code, 1, 'N');
5131: aso_debug_pub.add('Validate_ShipMethods: p_ship_from_org_id :'||p_ship_from_org_id, 1, 'N');
5132: aso_debug_pub.add('Validate_ShipMethods: p_qte_header_id:'||p_qte_header_id, 1, 'N');
5133: aso_debug_pub.add('Validate_ShipMethods: p_qte_line_id:'||p_qte_line_id, 1, 'N');
5134: END IF;
5135:
5136: IF (p_ship_from_org_id IS NULL OR p_ship_from_org_id = FND_API.G_MISS_NUM) THEN
5137: IF (p_qte_header_id IS NOT NULL AND p_qte_header_id <> FND_API.G_MISS_NUM) THEN
5138: IF (p_qte_line_id IS NULL OR p_qte_line_id = FND_API.G_MISS_NUM) THEN
5139: -- Header Level
5140: OPEN C_qte_header_org_info;
5133: aso_debug_pub.add('Validate_ShipMethods: p_qte_line_id:'||p_qte_line_id, 1, 'N');
5134: END IF;
5135:
5136: IF (p_ship_from_org_id IS NULL OR p_ship_from_org_id = FND_API.G_MISS_NUM) THEN
5137: IF (p_qte_header_id IS NOT NULL AND p_qte_header_id <> FND_API.G_MISS_NUM) THEN
5138: IF (p_qte_line_id IS NULL OR p_qte_line_id = FND_API.G_MISS_NUM) THEN
5139: -- Header Level
5140: OPEN C_qte_header_org_info;
5141: FETCH C_qte_header_org_info INTO l_hdr_org_id;
5134: END IF;
5135:
5136: IF (p_ship_from_org_id IS NULL OR p_ship_from_org_id = FND_API.G_MISS_NUM) THEN
5137: IF (p_qte_header_id IS NOT NULL AND p_qte_header_id <> FND_API.G_MISS_NUM) THEN
5138: IF (p_qte_line_id IS NULL OR p_qte_line_id = FND_API.G_MISS_NUM) THEN
5139: -- Header Level
5140: OPEN C_qte_header_org_info;
5141: FETCH C_qte_header_org_info INTO l_hdr_org_id;
5142: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5144: END IF;
5145: IF C_qte_header_org_info%FOUND THEN
5146: l_org_id := TO_NUMBER(OE_PROFILE.VALUE('OE_ORGANIZATION_ID',l_hdr_org_id));
5147: ELSE
5148: x_return_status := FND_API.G_RET_STS_ERROR;
5149: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5150: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
5151: FND_MESSAGE.Set_Token('COLUMN', 'SHIPPING_METHOD', FALSE);
5152: FND_MESSAGE.Set_Token('VALUE',p_ship_method_code,FALSE);
5153: FND_MSG_PUB.ADD;
5154: END IF;
5155: END IF;
5156: CLOSE C_qte_header_org_info;
5157: ELSIF (p_qte_line_id IS NOT NULL AND p_qte_line_id <> FND_API.G_MISS_NUM) THEN
5158: -- Line Level
5159: OPEN C_qte_line_organization;
5160: FETCH C_qte_line_organization INTO l_line_organization_id;
5161: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5171: END IF;
5172: IF C_qte_line_org_id_info%FOUND THEN
5173: l_org_id := TO_NUMBER(OE_PROFILE.VALUE('OE_ORGANIZATION_ID',l_line_org_id));
5174: ELSE
5175: x_return_status := FND_API.G_RET_STS_ERROR;
5176: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5177: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
5178: FND_MESSAGE.Set_Token('COLUMN', 'SHIPPING_METHOD', FALSE);
5179: FND_MESSAGE.Set_Token('VALUE',p_ship_method_code,FALSE);
5184: CLOSE C_qte_line_org_id_info;
5185: END IF;
5186: CLOSE C_qte_line_organization;
5187: END IF;
5188: ELSIF (p_qte_header_id IS NULL OR p_qte_header_id = FND_API.G_MISS_NUM) THEN
5189: x_return_status := FND_API.G_RET_STS_ERROR;
5190: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5191: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
5192: FND_MESSAGE.Set_Token('COLUMN', 'SHIPPING_METHOD', FALSE);
5185: END IF;
5186: CLOSE C_qte_line_organization;
5187: END IF;
5188: ELSIF (p_qte_header_id IS NULL OR p_qte_header_id = FND_API.G_MISS_NUM) THEN
5189: x_return_status := FND_API.G_RET_STS_ERROR;
5190: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5191: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
5192: FND_MESSAGE.Set_Token('COLUMN', 'SHIPPING_METHOD', FALSE);
5193: FND_MESSAGE.Set_Token('VALUE',p_ship_method_code,FALSE);
5202: aso_debug_pub.add('Validate_ShipMethods: l_org_id:'||l_org_id, 1, 'N');
5203: aso_debug_pub.add('Validate_ShipMethods: Before Process x_return_status:'||x_return_status, 1, 'N');
5204: END IF;
5205: IF (p_ship_method_code IS NOT NULL ) AND
5206: -- AND p_ship_method_code <> FND_API.G_MISS_CHAR) AND
5207: (l_org_id IS NOT NULL AND l_org_id <> FND_API.G_MISS_NUM) AND
5208: (x_return_status = FND_API.G_RET_STS_SUCCESS)
5209: THEN
5210: OPEN C_ship_method_code(l_org_id);
5203: aso_debug_pub.add('Validate_ShipMethods: Before Process x_return_status:'||x_return_status, 1, 'N');
5204: END IF;
5205: IF (p_ship_method_code IS NOT NULL ) AND
5206: -- AND p_ship_method_code <> FND_API.G_MISS_CHAR) AND
5207: (l_org_id IS NOT NULL AND l_org_id <> FND_API.G_MISS_NUM) AND
5208: (x_return_status = FND_API.G_RET_STS_SUCCESS)
5209: THEN
5210: OPEN C_ship_method_code(l_org_id);
5211: FETCH C_ship_method_code INTO l_start_date, l_end_date;
5204: END IF;
5205: IF (p_ship_method_code IS NOT NULL ) AND
5206: -- AND p_ship_method_code <> FND_API.G_MISS_CHAR) AND
5207: (l_org_id IS NOT NULL AND l_org_id <> FND_API.G_MISS_NUM) AND
5208: (x_return_status = FND_API.G_RET_STS_SUCCESS)
5209: THEN
5210: OPEN C_ship_method_code(l_org_id);
5211: FETCH C_ship_method_code INTO l_start_date, l_end_date;
5212: IF (C_ship_method_code%NOTFOUND OR
5212: IF (C_ship_method_code%NOTFOUND OR
5213: (TRUNC(sysdate) NOT BETWEEN NVL(TRUNC(l_start_date), TRUNC(sysdate)) AND
5214: NVL(TRUNC(l_end_date), TRUNC(sysdate)))) THEN
5215: CLOSE C_ship_method_code;
5216: x_return_status := FND_API.G_RET_STS_ERROR;
5217: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5218: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
5219: FND_MESSAGE.Set_Token('COLUMN', 'SHIP_METHOD_CODE', FALSE);
5220: FND_MESSAGE.Set_Token('VALUE',p_ship_method_code,FALSE);
5256: l_end_date date;
5257:
5258: Begin
5259: IF p_qte_line_rec.order_line_type_id IS NOT NULL AND
5260: p_qte_line_rec.order_line_type_id <> FND_API.G_MISS_NUM THEN
5261:
5262: OPEN c_ln_type_for_ord_type;
5263: FETCH c_ln_type_for_ord_type into l_start_date, l_end_Date;
5264:
5263: FETCH c_ln_type_for_ord_type into l_start_date, l_end_Date;
5264:
5265: IF c_ln_type_for_ord_type%NOTFOUND THEN
5266:
5267: x_return_status := FND_API.G_RET_STS_ERROR;
5268:
5269: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5270: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_LINE_TYPE');
5271: FND_MSG_PUB.ADD;
5303: OPEN c_ln_category_code;
5304: FETCH c_ln_category_code into l_line_category_code;
5305: CLOSE c_ln_category_code;
5306:
5307: IF (p_qte_header_rec.quote_category_code = FND_API.G_MISS_CHAR) THEN
5308: OPEN c_qte_category_code;
5309: FETCH c_qte_category_code into l_quote_category_code;
5310: CLOSE c_qte_category_code;
5311: else
5314:
5315: IF l_line_category_code = 'RETURN' THEN
5316: IF (l_quote_category_code <> 'MIXED') THEN
5317:
5318: x_return_status := FND_API.G_RET_STS_ERROR;
5319: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5320: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_LINE_CATEGORY_CODE');
5321: FND_MSG_PUB.ADD;
5322: END IF;
5328:
5329:
5330: Procedure Validate_po_line_number
5331: (
5332: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
5333: p_qte_header_rec IN ASO_QUOTE_PUB.Qte_Header_Rec_Type,
5334: P_Qte_Line_rec IN ASO_QUOTE_PUB.Qte_Line_Rec_Type := ASO_QUOTE_PUB.G_MISS_QTE_LINE_REC,
5335: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
5336: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
5361: l_po_ln_number_lines varchar2(50);
5362:
5363:
5364: Begin
5365: x_return_status := FND_API.G_RET_STS_SUCCESS;
5366:
5367: 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
5368:
5369: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5363:
5364: Begin
5365: x_return_status := FND_API.G_RET_STS_SUCCESS;
5366:
5367: 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
5368:
5369: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
5370: aso_debug_pub.add('Validate_po_line_number:quote_header_id:'||p_qte_header_rec.quote_header_id , 1, 'N');
5371: aso_debug_pub.add('Validate_po_line_number:quote_line_id:'||P_Qte_Line_rec.quote_line_id , 1, 'N');
5393: END IF;
5394:
5395:
5396: IF l_ln_hd_po_number is null THEN
5397: x_return_status := FND_API.G_RET_STS_ERROR;
5398:
5399: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5400: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_PO_NUMBER');
5401: FND_MSG_PUB.ADD;
5429: FETCH c_po_ln_number_lines into l_po_ln_number_lines;
5430:
5431: IF l_po_ln_number_lines is not null THEN
5432:
5433: x_return_status := FND_API.G_RET_STS_ERROR;
5434:
5435: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5436: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_PO_NUMBER');
5437: FND_MSG_PUB.ADD;
5455:
5456:
5457: PROCEDURE validate_service_ref_line_id
5458: (
5459: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
5460: p_service_ref_type_code IN VARCHAR2,
5461: p_service_ref_line_id IN NUMBER,
5462: p_qte_header_id IN NUMBER := fnd_api.g_miss_num,
5463: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
5458: (
5459: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
5460: p_service_ref_type_code IN VARCHAR2,
5461: p_service_ref_line_id IN NUMBER,
5462: p_qte_header_id IN NUMBER := fnd_api.g_miss_num,
5463: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
5464: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
5465: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
5466: is
5485: if aso_debug_pub.g_debug_flag = 'Y' then
5486: aso_debug_pub.add('Begin validate_service_ref_line_id', 1, 'Y');
5487: end if;
5488:
5489: if p_init_msg_list = fnd_api.g_true then
5490: fnd_msg_pub.initialize;
5491: end if;
5492:
5493: x_return_status := fnd_api.g_ret_sts_success;
5489: if p_init_msg_list = fnd_api.g_true then
5490: fnd_msg_pub.initialize;
5491: end if;
5492:
5493: x_return_status := fnd_api.g_ret_sts_success;
5494:
5495: if p_service_ref_type_code = 'QUOTE' then
5496:
5497: open c_quote;
5502: end if;
5503:
5504: if c_quote%notfound then
5505:
5506: x_return_status := fnd_api.g_ret_sts_error;
5507:
5508: IF fnd_msg_pub.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5509: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
5510: FND_MESSAGE.Set_Token('COLUMN', 'SERVICE_REF_LINE_ID', FALSE);
5526: end if;
5527:
5528: if c_order%notfound then
5529:
5530: x_return_status := fnd_api.g_ret_sts_error;
5531:
5532: IF fnd_msg_pub.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5533: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
5534: FND_MESSAGE.Set_Token('COLUMN', 'SERVICE_REF_LINE_ID', FALSE);
5550: end if;
5551:
5552: if c_customer_product%notfound then
5553:
5554: x_return_status := fnd_api.g_ret_sts_error;
5555:
5556: IF fnd_msg_pub.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5557: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
5558: FND_MESSAGE.Set_Token('COLUMN', 'SERVICE_REF_LINE_ID', FALSE);
5595:
5596:
5597: l_data_exists VARCHAR2(10);
5598: P_Api_Version_Number NUMBER;
5599: P_Init_Msg_List VARCHAR2(100) := FND_API.G_FALSE ;
5600: l_api_version_number CONSTANT NUMBER := 1.0;
5601: l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_DEFAULTING_DATA';
5602: G_PKG_NAME CONSTANT VARCHAR2(30) := 'ASO_VALIDATE_PVT';
5603: l_periodicity_profile varchar2(30);
8334: aso_debug_pub.add('Begin VALIDATE_DEFAULTING_DATA', 1, 'Y');
8335: aso_debug_pub.add('******************************************************', 1, 'Y');
8336: END IF;
8337: -- Standard call to check for call compatibility.
8338: -- IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
8339: -- p_api_version_number,
8340: -- l_api_name,
8341: -- G_PKG_NAME) THEN
8342: --
8339: -- p_api_version_number,
8340: -- l_api_name,
8341: -- G_PKG_NAME) THEN
8342: --
8343: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8344: -- END IF;
8345: -- Initialize message list if p_init_msg_list is set to TRUE.
8346: IF FND_API.to_Boolean( p_init_msg_list ) THEN
8347: FND_MSG_PUB.initialize;
8342: --
8343: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8344: -- END IF;
8345: -- Initialize message list if p_init_msg_list is set to TRUE.
8346: IF FND_API.to_Boolean( p_init_msg_list ) THEN
8347: FND_MSG_PUB.initialize;
8348: END IF;
8349:
8350: --- Initialize API return status to SUCCESS
8347: FND_MSG_PUB.initialize;
8348: END IF;
8349:
8350: --- Initialize API return status to SUCCESS
8351: x_return_status := FND_API.G_RET_STS_SUCCESS;
8352:
8353: IF aso_debug_pub.g_debug_flag = 'Y' THEN
8354: aso_debug_pub.add('Before copying all the input parameters to output parameters', 1, 'Y');
8355: END IF;
8379:
8380: --Shipment Priority
8381:
8382: if ( p_shipment_header_rec.SHIPMENT_PRIORITY_CODE is NOT NULL
8383: AND p_shipment_header_rec.SHIPMENT_PRIORITY_CODE <> FND_API.G_MISS_CHAR) THEN
8384:
8385: aso_debug_pub.add('Before opening Cursor C_SHIPMENT_PRIORITY_CODE--Header Level', 1, 'Y');
8386: OPEN C_SHIPMENT_PRIORITY_CODE(P_Shipment_header_rec.SHIPMENT_PRIORITY_CODE); --Header Level
8387: aso_debug_pub.add('Before fetching Cursor C_SHIPMENT_PRIORITY_CODE--Header Level', 1, 'Y');
8405:
8406: END IF;
8407:
8408: if ( p_shipment_line_rec.SHIPMENT_PRIORITY_CODE is NOT NULL
8409: AND p_shipment_line_rec.SHIPMENT_PRIORITY_CODE <> FND_API.G_MISS_CHAR) THEN
8410:
8411: aso_debug_pub.add('Before opening Cursor C_SHIPMENT_PRIORITY_CODE--Line Level', 1, 'Y');
8412: OPEN C_SHIPMENT_PRIORITY_CODE(P_Shipment_line_rec.SHIPMENT_PRIORITY_CODE); --line Level
8413: aso_debug_pub.add('Before fetching Cursor C_SHIPMENT_PRIORITY_CODE--Line Level', 1, 'Y');
8418: x_Shipment_line_rec.SHIPMENT_PRIORITY_CODE := P_Shipment_line_rec.SHIPMENT_PRIORITY_CODE;
8419: ELSE
8420: x_Shipment_line_rec.SHIPMENT_PRIORITY_CODE := NULL ;
8421: aso_debug_pub.add('No Data Found for Cursor...C_SHIPMENT_PRIORITY_CODE--Line Level', 1, 'Y');
8422: --x_return_status := FND_API.G_RET_STS_ERROR;
8423: END IF;
8424: aso_debug_pub.add('Before Closing Cursor C_SHIPMENT_PRIORITY_CODE-Line Level', 1, 'Y');
8425: CLOSE C_SHIPMENT_PRIORITY_CODE;
8426: aso_debug_pub.add('After Closing Cursor C_SHIPMENT_PRIORITY_CODE-Line Level', 1, 'Y');
8429:
8430: --FOB CODE
8431:
8432: if ( p_shipment_header_rec.FOB_CODE is NOT NULL
8433: AND p_shipment_header_rec.FOB_CODE <> FND_API.G_MISS_CHAR) THEN
8434: aso_debug_pub.add('Before opening Cursor C_FOB--Header Level', 1, 'Y');
8435: OPEN C_FOB(P_Shipment_header_rec.FOB_CODE) ; --Header Level
8436: aso_debug_pub.add('Before fetching Cursor C_FOB--Header Level', 1, 'Y');
8437:
8446: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
8447: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_FOB', TRUE);
8448: FND_MSG_PUB.ADD;
8449:
8450: --x_return_status := FND_API.G_RET_STS_ERROR;
8451: END IF;
8452: aso_debug_pub.add('Before Closing Cursor C_FOB--Header Level', 1, 'Y');
8453: CLOSE C_FOB;
8454: aso_debug_pub.add('After Closing Cursor C_FOB--Header Level', 1, 'Y');
8455:
8456: END IF;
8457:
8458: if ( p_shipment_line_rec.FOB_CODE is NOT NULL
8459: AND p_shipment_line_rec.FOB_CODE <> FND_API.G_MISS_CHAR) THEN
8460: aso_debug_pub.add('Before opening Cursor C_FOB--Line Level', 1, 'Y');
8461: OPEN C_FOB(P_Shipment_line_rec.FOB_CODE) ; --line Level
8462: aso_debug_pub.add('Before fetching Cursor C_FOB--Line Level', 1, 'Y');
8463: FETCH C_FOB INTO l_data_exists ;
8466: x_Shipment_line_rec.FOB_CODE := P_Shipment_line_rec.FOB_CODE ;
8467: ELSE
8468: x_Shipment_line_rec.FOB_CODE := NULL ;
8469: aso_debug_pub.add('No Data Found for Cursor...C_FOB--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_FOB--Line Level', 1, 'Y');
8473: CLOSE C_FOB;
8474: aso_debug_pub.add('After Closing Cursor C_FOB--Line Level', 1, 'Y');
8477:
8478: --Credit Card Type
8479:
8480: if ( P_Payment_header_rec.CREDIT_CARD_CODE is NOT NULL
8481: AND P_Payment_header_rec.CREDIT_CARD_CODE <> FND_API.G_MISS_CHAR ) THEN
8482:
8483: IF (P_Payment_header_rec.PAYMENT_TYPE_CODE = 'CREDIT_CARD') THEN
8484:
8485: aso_debug_pub.add('Before opening Cursor C_CREDIT_CARD_TYPE--Header Level', 1, 'Y');
8497: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
8498: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_CREDIT_CARD_TYPE', TRUE);
8499: FND_MSG_PUB.ADD;
8500:
8501: --x_return_status := FND_API.G_RET_STS_ERROR;
8502: END IF;
8503: aso_debug_pub.add('Before Closing Cursor C_CREDIT_CARD_TYPE--Header Level', 1, 'Y');
8504: CLOSE C_CREDIT_CARD_TYPE;
8505: aso_debug_pub.add('After Closing Cursor C_CREDIT_CARD_TYPE--Header Level', 1, 'Y');
8516: end if;
8517:
8518:
8519: if ( P_Payment_line_rec.CREDIT_CARD_CODE is NOT NULL
8520: AND P_Payment_line_rec.CREDIT_CARD_CODE <> FND_API.G_MISS_CHAR ) THEN
8521:
8522: IF (P_Payment_header_rec.PAYMENT_TYPE_CODE = 'CREDIT_CARD') THEN
8523:
8524: aso_debug_pub.add('Before opening Cursor C_CREDIT_CARD_TYPE--Line Level', 1, 'Y');
8530: x_Payment_line_rec.CREDIT_CARD_CODE := P_Payment_line_rec.CREDIT_CARD_CODE;
8531: ELSE
8532: x_Payment_line_rec.CREDIT_CARD_CODE := NULL ;
8533: aso_debug_pub.add('No Data Found for Cursor...C_CREDIT_CARD_TYPE--Line Level', 1, 'Y');
8534: --x_return_status := FND_API.G_RET_STS_ERROR;
8535: END IF;
8536: aso_debug_pub.add('Before Closing Cursor C_CREDIT_CARD_TYPE--Line Level', 1, 'Y');
8537: CLOSE C_CREDIT_CARD_TYPE;
8538: aso_debug_pub.add('After Closing Cursor C_CREDIT_CARD_TYPE--Line Level', 1, 'Y');
8546:
8547: --Demand Class
8548:
8549: if ( P_Shipment_header_rec.DEMAND_CLASS_CODE is NOT NULL
8550: AND P_Shipment_header_rec.DEMAND_CLASS_CODE <> FND_API.G_MISS_CHAR) THEN
8551: aso_debug_pub.add('Before opening Cursor C_DEMAND_CLASS--Header Level', 1, 'Y');
8552:
8553: OPEN C_DEMAND_CLASS(P_Shipment_header_rec.DEMAND_CLASS_CODE) ; --Header Level
8554: aso_debug_pub.add('Before fetching Cursor C_DEMAND_CLASS--Header Level', 1, 'Y');
8562:
8563: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
8564: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_DEMAND_CLASS', TRUE);
8565: FND_MSG_PUB.ADD;
8566: --x_return_status := FND_API.G_RET_STS_ERROR;
8567: END IF;
8568: aso_debug_pub.add('before Closing Cursor C_DEMAND_CLASS--Header Level', 1, 'Y');
8569: CLOSE C_DEMAND_CLASS;
8570: aso_debug_pub.add('After Closing Cursor C_DEMAND_CLASS--Header Level', 1, 'Y');
8571:
8572: end if;
8573:
8574: if ( P_Shipment_line_rec.DEMAND_CLASS_CODE is NOT NULL
8575: AND P_Shipment_line_rec.DEMAND_CLASS_CODE <> FND_API.G_MISS_CHAR) THEN
8576: aso_debug_pub.add('Before opening Cursor C_DEMAND_CLASS--Line Level', 1, 'Y');
8577:
8578: OPEN C_DEMAND_CLASS(P_Shipment_line_rec.DEMAND_CLASS_CODE) ; --Line Level
8579: aso_debug_pub.add('Before fetching Cursor C_DEMAND_CLASS--Line Level', 1, 'Y');
8583: x_Shipment_line_rec.DEMAND_CLASS_CODE := P_Shipment_line_rec.DEMAND_CLASS_CODE ;
8584: ELSE
8585: x_Shipment_line_rec.DEMAND_CLASS_CODE := NULL ;
8586: aso_debug_pub.add('No Data Found for Cursor...C_DEMAND_CLASS--Line Level', 1, 'Y');
8587: --x_return_status := FND_API.G_RET_STS_ERROR;
8588: END IF;
8589: aso_debug_pub.add('Before Closing Cursor C_DEMAND_CLASS--Line Level', 1, 'Y');
8590: CLOSE C_DEMAND_CLASS;
8591: aso_debug_pub.add('After Closing Cursor C_DEMAND_CLASS--Line Level', 1, 'Y');
8594:
8595: --Request Date Type
8596:
8597: if ( P_Shipment_header_rec.REQUEST_DATE_TYPE is NOT NULL
8598: AND P_Shipment_header_rec.REQUEST_DATE_TYPE <> FND_API.G_MISS_CHAR) THEN
8599:
8600: aso_debug_pub.add('Before opening Cursor C_REQUEST_DATE_TYPE--Header Level', 1, 'Y');
8601:
8602: OPEN C_REQUEST_DATE_TYPE(p_Shipment_header_rec.REQUEST_DATE_TYPE) ; --Header Level
8612: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
8613: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_RQSTD_DATE_TYPE', TRUE);
8614: FND_MSG_PUB.ADD;
8615:
8616: --x_return_status := FND_API.G_RET_STS_ERROR;
8617: END IF;
8618: aso_debug_pub.add('Before closing Cursor C_REQUEST_DATE_TYPE--Header Level', 1, 'Y');
8619: CLOSE C_REQUEST_DATE_TYPE;
8620: aso_debug_pub.add('After Closing Cursor C_REQUEST_DATE_TYPE--Header Level', 1, 'Y');
8621:
8622: end if;
8623:
8624: if ( P_Shipment_line_rec.REQUEST_DATE_TYPE is NOT NULL
8625: AND P_Shipment_line_rec.REQUEST_DATE_TYPE <> FND_API.G_MISS_CHAR) THEN
8626:
8627: aso_debug_pub.add('Before opening Cursor REQUEST_DATE_TYPE--Line Level', 1, 'Y');
8628:
8629: OPEN C_REQUEST_DATE_TYPE(p_Shipment_line_rec.REQUEST_DATE_TYPE) ; --Line Level
8634: x_Shipment_line_rec.REQUEST_DATE_TYPE := p_Shipment_line_rec.REQUEST_DATE_TYPE ;
8635: ELSE
8636: x_Shipment_line_rec.REQUEST_DATE_TYPE := NULL ;
8637: aso_debug_pub.add('No Data Found for Cursor...C_REQUEST_DATE_TYPE--Line Level', 1, 'Y');
8638: --x_return_status := FND_API.G_RET_STS_ERROR;
8639: END IF;
8640: aso_debug_pub.add('Before Closing Cursor REQUEST_DATE_TYPE--Line Level', 1, 'Y');
8641: CLOSE C_REQUEST_DATE_TYPE;
8642: aso_debug_pub.add('After Closing Cursor REQUEST_DATE_TYPE--Line Level', 1, 'Y');
8645:
8646: --Request Date
8647:
8648: if ( P_Shipment_header_rec.REQUEST_DATE is NOT NULL
8649: AND P_Shipment_header_rec.REQUEST_DATE <> FND_API.G_MISS_DATE) THEN
8650:
8651: aso_debug_pub.add('Before opening Cursor C_REQUEST_DATE--Header Level', 1, 'Y');
8652: OPEN C_REQUEST_DATE(p_Shipment_header_rec.REQUEST_DATE) ; --Header Level
8653: aso_debug_pub.add('Before fetching Cursor C_REQUEST_DATE--Header Level', 1, 'Y');
8662: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
8663: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_REQUESTED_DATE', TRUE);
8664: FND_MSG_PUB.ADD;
8665:
8666: --x_return_status := FND_API.G_RET_STS_ERROR;
8667: END IF;
8668: aso_debug_pub.add('before Closing Cursor C_REQUEST_DATE--Header Level', 1, 'Y');
8669: CLOSE C_REQUEST_DATE;
8670: aso_debug_pub.add('After Closing Cursor C_REQUEST_DATE--Header Level', 1, 'Y');
8671:
8672: end if;
8673:
8674: if ( P_Shipment_line_rec.REQUEST_DATE is NOT NULL
8675: AND P_Shipment_line_rec.REQUEST_DATE <> FND_API.G_MISS_DATE) THEN
8676:
8677: aso_debug_pub.add('Before opening Cursor C_REQUEST_DATE--Line Level', 1, 'Y');
8678:
8679: OPEN C_REQUEST_DATE(p_Shipment_line_rec.REQUEST_DATE) ; --Line Level
8684: x_Shipment_line_rec.REQUEST_DATE := p_Shipment_line_rec.REQUEST_DATE ;
8685: ELSE
8686: x_Shipment_line_rec.REQUEST_DATE := NULL ;
8687: aso_debug_pub.add('No Data Found for Cursor...C_REQUEST_DATE--Line Level', 1, 'Y');
8688: --x_return_status := FND_API.G_RET_STS_ERROR;
8689: END IF;
8690: aso_debug_pub.add('Before closing Cursor C_REQUEST_DATE--Line Level', 1, 'Y');
8691: CLOSE C_REQUEST_DATE;
8692: aso_debug_pub.add('After Closing Cursor C_REQUEST_DATE--Line Level', 1, 'Y');
8696: --Operating Unit
8697:
8698:
8699: if ( p_quote_header_rec.ORG_ID is NOT NULL
8700: AND p_quote_header_rec.ORG_ID <> FND_API.G_MISS_NUM) THEN
8701:
8702: aso_debug_pub.add('Before opening Cursor C_OPERATING_UNIT--Header Level', 1, 'Y');
8703:
8704: OPEN C_OPERATING_UNIT(p_quote_header_rec.ORG_ID) ; --Header Level
8723: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
8724: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_OPERATING_UNIT', TRUE);
8725: FND_MSG_PUB.ADD;
8726:
8727: --x_return_status := FND_API.G_RET_STS_ERROR;
8728: END IF;
8729: aso_debug_pub.add('Before closing Cursor C_OPERATING_UNIT--Header Level', 1, 'Y');
8730: CLOSE C_OPERATING_UNIT;
8731: aso_debug_pub.add('After Closing Cursor C_CHARGE_PERIODICITY_CODE--Header Level', 1, 'Y');
8731: aso_debug_pub.add('After Closing Cursor C_CHARGE_PERIODICITY_CODE--Header Level', 1, 'Y');
8732: end if;
8733:
8734: if ( p_quote_line_rec.ORG_ID is NOT NULL
8735: AND p_quote_line_rec.ORG_ID <> FND_API.G_MISS_NUM) THEN
8736:
8737: aso_debug_pub.add('Before opening Cursor C_OPERATING_UNIT--Line Level', 1, 'Y');
8738: OPEN C_OPERATING_UNIT(p_quote_line_rec.ORG_ID) ; --Line Level
8739: aso_debug_pub.add('Before fetching Cursor C_OPERATING_UNIT--Line Level', 1, 'Y');
8747: end if;
8748: ELSE
8749: x_quote_line_rec.ORG_ID := NULL ;
8750: aso_debug_pub.add('No Data Found for Cursor...C_OPERATING_UNIT--Line Level', 1, 'Y');
8751: --x_return_status := FND_API.G_RET_STS_ERROR;
8752: END IF;
8753: aso_debug_pub.add('before Closing Cursor C_CHARGE_PERIODICITY_CODE--Line Level', 1, 'Y');
8754: CLOSE C_OPERATING_UNIT;
8755: aso_debug_pub.add('After Closing Cursor C_CHARGE_PERIODICITY_CODE--Line Level', 1, 'Y');
8758:
8759: --Charged Periodicity
8760:
8761: if ( p_quote_line_rec.CHARGE_PERIODICITY_CODE is NOT NULL
8762: AND p_quote_line_rec.CHARGE_PERIODICITY_CODE <> FND_API.G_MISS_CHAR) THEN
8763:
8764: if ( l_periodicity_profile is NOT NULL
8765: AND l_periodicity_profile <> FND_API.G_MISS_CHAR) THEN
8766: aso_debug_pub.add('Before opening Cursor C_CHARGE_PERIODICITY_CODE', 1, 'Y');
8761: if ( p_quote_line_rec.CHARGE_PERIODICITY_CODE is NOT NULL
8762: AND p_quote_line_rec.CHARGE_PERIODICITY_CODE <> FND_API.G_MISS_CHAR) THEN
8763:
8764: if ( l_periodicity_profile is NOT NULL
8765: AND l_periodicity_profile <> FND_API.G_MISS_CHAR) THEN
8766: aso_debug_pub.add('Before opening Cursor C_CHARGE_PERIODICITY_CODE', 1, 'Y');
8767:
8768: OPEN C_CHARGE_PERIODICITY_CODE(p_quote_line_rec.CHARGE_PERIODICITY_CODE,l_periodicity_profile) ; --Line Level Only
8769:
8774: x_quote_line_rec.CHARGE_PERIODICITY_CODE := p_quote_line_rec.CHARGE_PERIODICITY_CODE ;
8775: ELSE
8776: x_quote_line_rec.CHARGE_PERIODICITY_CODE := NULL ;
8777: aso_debug_pub.add('No Data Found for Cursor...CHARGE_PERIODICITY_CODE', 1, 'Y');
8778: --x_return_status := FND_API.G_RET_STS_ERROR;
8779: END IF;
8780: aso_debug_pub.add('Before closing Cursor C_CHARGE_PERIODICITY_CODE', 1, 'Y');
8781: CLOSE C_CHARGE_PERIODICITY_CODE;
8782: aso_debug_pub.add('After Closing Cursor C_CHARGE_PERIODICITY_CODE', 1, 'Y');
8786:
8787: --Auotmatic Pricing
8788:
8789: if ( p_quote_header_rec.AUTOMATIC_PRICE_FLAG is NOT NULL
8790: AND p_quote_header_rec.AUTOMATIC_PRICE_FLAG <> FND_API.G_MISS_CHAR) THEN
8791: aso_debug_pub.add('Before opening Cursor C_AUTOMATIC_PRICING', 1, 'Y');
8792:
8793: OPEN C_AUTOMATIC_PRICING(p_quote_header_rec.AUTOMATIC_PRICE_FLAG) ; --Header Level
8794: aso_debug_pub.add('Before fetching Cursor C_AUTOMATIC_PRICING', 1, 'Y');
8802:
8803: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
8804: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_AUTO_PRICING', TRUE);
8805: FND_MSG_PUB.ADD;
8806: --x_return_status := FND_API.G_RET_STS_ERROR;
8807: END IF;
8808: aso_debug_pub.add('Before closing Cursor C_AUTOMATIC_PRICING', 1, 'Y');
8809: CLOSE C_AUTOMATIC_PRICING;
8810: aso_debug_pub.add('After Closing Cursor C_AUTOMATIC_PRICING', 1, 'Y');
8813:
8814: --Auotmatic TAX
8815:
8816: if ( p_quote_header_rec.AUTOMATIC_TAX_FLAG is NOT NULL
8817: AND p_quote_header_rec.AUTOMATIC_TAX_FLAG <> FND_API.G_MISS_CHAR) THEN
8818:
8819: aso_debug_pub.add('Before opening Cursor C_AUTOMATIC_TAX', 1, 'Y');
8820:
8821: OPEN C_AUTOMATIC_TAX(p_quote_header_rec.AUTOMATIC_TAX_FLAG) ; --Header Level
8831: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
8832: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_AUTOMATIC_TAX', TRUE);
8833: FND_MSG_PUB.ADD;
8834:
8835: --x_return_status := FND_API.G_RET_STS_ERROR;
8836: END IF;
8837: aso_debug_pub.add('Before closing Cursor C_AUTOMATIC_TAX', 1, 'Y');
8838: CLOSE C_AUTOMATIC_TAX;
8839: aso_debug_pub.add('After Closing Cursor C_AUTOMATIC_TAX.', 1, 'Y');
8843:
8844: --Payment Type
8845:
8846: if ( P_Payment_header_rec.PAYMENT_TYPE_CODE is NOT NULL
8847: AND P_Payment_header_rec.PAYMENT_TYPE_CODE <> FND_API.G_MISS_CHAR) THEN
8848:
8849: aso_debug_pub.add('Before opening C_PAYMENT_TYPE--Header Level', 1, 'Y');
8850:
8851: OPEN C_PAYMENT_TYPE(P_Payment_header_rec.PAYMENT_TYPE_CODE) ; --Header Level
8861: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
8862: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_PAYMENT_TYPE', TRUE);
8863: FND_MSG_PUB.ADD;
8864:
8865: --x_return_status := FND_API.G_RET_STS_ERROR;
8866: END IF;
8867: aso_debug_pub.add('before Closing Cursor C_PAYMENT_TYPE--Header Level', 1, 'Y');
8868: CLOSE C_PAYMENT_TYPE;
8869: aso_debug_pub.add('After Closing Cursor C_PAYMENT_TYPE--Header Level', 1, 'Y');
8870:
8871: end if;
8872:
8873: if ( P_Payment_line_rec.PAYMENT_TYPE_CODE is NOT NULL
8874: AND P_Payment_line_rec.PAYMENT_TYPE_CODE <> FND_API.G_MISS_CHAR) THEN
8875:
8876: aso_debug_pub.add('Before opening cursor C_PAYMENT_TYPE--Line Level', 1, 'Y');
8877:
8878: OPEN C_PAYMENT_TYPE(P_Payment_line_rec.PAYMENT_TYPE_CODE) ; --Line Level
8884: x_Payment_line_rec.PAYMENT_TYPE_CODE := P_Payment_line_rec.PAYMENT_TYPE_CODE ;
8885: ELSE
8886: x_Payment_line_rec.PAYMENT_TYPE_CODE := NULL ;
8887: aso_debug_pub.add('No Data Found for Cursor...C_PAYMENT_TYPE--Line Level', 1, 'Y');
8888: --x_return_status := FND_API.G_RET_STS_ERROR;
8889: END IF;
8890:
8891: aso_debug_pub.add('Before closing cursor C_PAYMENT_TYPE--Line Level', 1, 'Y');
8892: CLOSE C_PAYMENT_TYPE;
8895:
8896: END IF;
8897:
8898: if ( p_quote_header_rec.SALES_CHANNEL_CODE is NOT NULL
8899: AND p_quote_header_rec.SALES_CHANNEL_CODE <> FND_API.G_MISS_CHAR) THEN
8900:
8901: aso_debug_pub.add('Before opening Cursor..C_SALESCHANNEL', 1, 'Y');
8902:
8903: OPEN C_SALESCHANNEL(p_quote_header_rec.SALES_CHANNEL_CODE) ; -- Sales Channel(Header)
8915: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
8916: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_SALES_CHANNEL', TRUE);
8917: FND_MSG_PUB.ADD;
8918:
8919: --x_return_status := FND_API.G_RET_STS_ERROR;
8920:
8921: END IF;
8922: aso_debug_pub.add('Before closing Cursor..C_SALESCHANNEL', 1, 'Y');
8923: CLOSE C_SALESCHANNEL;
8927: END IF;
8928: -- ============ Currency-queries (Start) ====================
8929:
8930: if ( p_quote_header_rec.CURRENCY_CODE is NOT NULL
8931: AND p_quote_header_rec.CURRENCY_CODE <> FND_API.G_MISS_CHAR) THEN
8932:
8933: if ( p_quote_header_rec.PRICE_LIST_ID is NOT NULL
8934: AND p_quote_header_rec.PRICE_LIST_ID <> FND_API.G_MISS_NUM ) THEN
8935:
8930: if ( p_quote_header_rec.CURRENCY_CODE is NOT NULL
8931: AND p_quote_header_rec.CURRENCY_CODE <> FND_API.G_MISS_CHAR) THEN
8932:
8933: if ( p_quote_header_rec.PRICE_LIST_ID is NOT NULL
8934: AND p_quote_header_rec.PRICE_LIST_ID <> FND_API.G_MISS_NUM ) THEN
8935:
8936: aso_debug_pub.add('Before opening Cursor..C_QOTHDDET_CURRENCY_NOT_NULL', 1, 'Y');
8937:
8938: OPEN C_QOTHDDET_CURRENCY_NOT_NULL(p_quote_header_rec.CURRENCY_CODE,p_quote_header_rec.PRICE_LIST_ID) ; -- Header Record
8948: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
8949: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_CURRENCY', TRUE);
8950: FND_MSG_PUB.ADD;
8951:
8952: --x_return_status := FND_API.G_RET_STS_ERROR;
8953:
8954: END IF;
8955: aso_debug_pub.add('Before closing Cursor..C_QOTHDDET_CURRENCY_NOT_NULL', 1, 'Y');
8956:
8973:
8974: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
8975: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_CURRENCY', TRUE);
8976: FND_MSG_PUB.ADD;
8977: --x_return_status := FND_API.G_RET_STS_ERROR;
8978:
8979: END IF;
8980: aso_debug_pub.add('Before closing Cursor..C_QOTHDDET_CURRENCY_NULL', 1, 'Y');
8981: CLOSE C_QOTHDDET_CURRENCY_NULL;
8989: --1. ***Validate Contact - Header and Line Level***
8990:
8991: --Validate Contact(Header/Bill)
8992: if ( p_quote_header_rec.invoice_to_party_id is NOT NULL
8993: AND p_quote_header_rec.invoice_to_party_id <> FND_API.G_MISS_NUM) THEN
8994:
8995: aso_debug_pub.add('Before Calling Validate Contact(Header/Bill)', 1, 'Y');
8996:
8997: VALIDATE_CONTACT(p_party_id=>p_quote_header_rec.INVOICE_TO_PARTY_ID,
9005:
9006:
9007: --Validate Contact(Header/Ship)
9008: if ( p_shipment_header_rec.ship_to_party_id is NOT NULL
9009: AND p_shipment_header_rec.ship_to_party_id <> FND_API.G_MISS_NUM) THEN
9010:
9011: aso_debug_pub.add('Before Calling Validate Contact(Header/Ship)', 1, 'Y');
9012:
9013: VALIDATE_CONTACT(p_party_id=>p_shipment_header_rec.SHIP_TO_PARTY_ID,
9019: END IF ;
9020:
9021: --Validate Contact(Header/End)
9022: if ( p_quote_header_rec.end_customer_party_id is NOT NULL
9023: AND p_quote_header_rec.end_customer_party_id <> FND_API.G_MISS_NUM) THEN
9024:
9025: aso_debug_pub.add('Before Calling Validate Contact(Header/End)', 1, 'Y');
9026:
9027: VALIDATE_CONTACT(p_party_id=>p_quote_header_rec.END_CUSTOMER_PARTY_ID,
9033: END IF ;
9034:
9035: --Validate Contact(Header/SOLD)
9036: if ( p_quote_header_rec.party_id is NOT NULL
9037: AND p_quote_header_rec.party_id <> FND_API.G_MISS_NUM) THEN
9038:
9039: aso_debug_pub.add('Before Calling Validate Contact(Header/SOLD)', 1, 'Y');
9040:
9041: VALIDATE_CONTACT(p_party_id=>p_quote_header_rec.PARTY_ID,
9047: END IF ;
9048:
9049: --Validate Contact(Line/Bill)
9050: if ( p_quote_line_rec.invoice_to_party_id is NOT NULL
9051: AND p_quote_line_rec.invoice_to_party_id <> FND_API.G_MISS_NUM) THEN
9052:
9053: aso_debug_pub.add('Before Calling Validate Contact(Line/Bill)', 1, 'Y');
9054:
9055: VALIDATE_CONTACT(p_party_id=>p_quote_line_rec.INVOICE_TO_PARTY_ID,
9062: END IF ;
9063:
9064: --Validate Contact(Line/Ship)
9065: if ( p_shipment_line_rec.ship_to_party_id is NOT NULL
9066: AND p_shipment_line_rec.ship_to_party_id <> FND_API.G_MISS_NUM) THEN
9067:
9068: aso_debug_pub.add('Before Calling Validate Contact(Line/Ship))', 1, 'Y');
9069:
9070: VALIDATE_CONTACT(p_party_id=>p_shipment_line_rec.ship_to_party_id,
9077: END IF;
9078:
9079: --Validate Contact(Line/End)
9080: if ( p_quote_line_rec.end_customer_party_id is NOT NULL
9081: AND p_quote_line_rec.end_customer_party_id <> FND_API.G_MISS_NUM) THEN
9082:
9083: aso_debug_pub.add('Before Calling Validate Contact(Line/End)', 1, 'Y');
9084:
9085: VALIDATE_CONTACT(p_party_id=>p_quote_line_rec.end_customer_party_id,
9094:
9095: --2. ***Validate Phone - Header Level Only***
9096:
9097: if ( p_quote_header_rec.phone_id is NOT NULL
9098: AND p_quote_header_rec.phone_id <> FND_API.G_MISS_NUM) THEN
9099:
9100: aso_debug_pub.add('Before Calling Validate Phone', 1, 'Y');
9101:
9102: VALIDATE_PHONE(p_phone_id => p_quote_header_rec.phone_id,
9111: --3. ***Validate Address - Header and Line Level***
9112:
9113: --Validate Address(Header/Bill)
9114: if ( p_quote_header_rec.INVOICE_TO_PARTY_SITE_ID is NOT NULL
9115: AND p_quote_header_rec.INVOICE_TO_PARTY_SITE_ID <> FND_API.G_MISS_NUM) THEN
9116:
9117: aso_debug_pub.add('Before Calling Validate Address(Header/Bill)', 1, 'Y');
9118:
9119: VALIDATE_ADDRESS(p_party_site_id => p_quote_header_rec.INVOICE_TO_PARTY_SITE_ID,
9128:
9129: --Validate Address(Header/Ship)
9130:
9131: if ( p_shipment_header_rec.SHIP_TO_PARTY_SITE_ID is NOT NULL
9132: AND p_shipment_header_rec.SHIP_TO_PARTY_SITE_ID <> FND_API.G_MISS_NUM) THEN
9133:
9134: aso_debug_pub.add('Before Calling Validate Address(Header/Ship)', 1, 'Y');
9135:
9136: VALIDATE_ADDRESS(p_party_site_id => p_shipment_header_rec.SHIP_TO_PARTY_SITE_ID,
9145: END IF ;
9146:
9147: --Validate Address(Header/end)
9148: if ( p_quote_header_rec.END_CUSTOMER_PARTY_SITE_ID is NOT NULL
9149: AND p_quote_header_rec.END_CUSTOMER_PARTY_SITE_ID <> FND_API.G_MISS_NUM) THEN
9150:
9151: aso_debug_pub.add('Before Calling Validate Address(Header/end)', 1, 'Y');
9152:
9153: VALIDATE_ADDRESS(p_party_site_id => p_quote_header_rec.END_CUSTOMER_PARTY_SITE_ID,
9163:
9164:
9165: --Validate Address(Header/SOLD)
9166: if ( p_quote_header_rec.SOLD_TO_PARTY_SITE_ID is NOT NULL
9167: AND p_quote_header_rec.SOLD_TO_PARTY_SITE_ID <> FND_API.G_MISS_NUM) THEN
9168:
9169: aso_debug_pub.add('Before Calling Validate Address(Header/SOLD)', 1, 'Y');
9170:
9171: VALIDATE_ADDRESS(p_party_site_id => p_quote_header_rec.SOLD_TO_PARTY_SITE_ID,
9179:
9180:
9181: --Validate Address(Line/Bill)
9182: if ( p_quote_line_rec.INVOICE_TO_PARTY_SITE_ID is NOT NULL
9183: AND p_quote_line_rec.INVOICE_TO_PARTY_SITE_ID <> FND_API.G_MISS_NUM) THEN
9184: aso_debug_pub.add('Before Calling Validate Address(Line/Bill)', 1, 'Y');
9185:
9186: VALIDATE_ADDRESS(p_party_site_id => p_quote_line_rec.INVOICE_TO_PARTY_SITE_ID,
9187: p_party_id => p_quote_line_rec.INVOICE_TO_PARTY_ID,
9193: END IF;
9194:
9195: --Validate Address(Line/Ship)
9196: if ( p_shipment_line_rec.SHIP_TO_PARTY_SITE_ID is NOT NULL
9197: AND p_shipment_line_rec.SHIP_TO_PARTY_SITE_ID <> FND_API.G_MISS_NUM) THEN
9198:
9199: aso_debug_pub.add('Before Calling Validate Address(Line/Ship)', 1, 'Y');
9200:
9201: VALIDATE_ADDRESS(p_party_site_id => p_shipment_line_rec.SHIP_TO_PARTY_SITE_ID,
9208: END IF;
9209:
9210: --Validate Address(Line/end)
9211: if ( p_quote_line_rec.END_CUSTOMER_PARTY_SITE_ID is NOT NULL
9212: AND p_quote_line_rec.END_CUSTOMER_PARTY_SITE_ID <> FND_API.G_MISS_NUM) THEN
9213:
9214: aso_debug_pub.add('Before Calling Validate Address(Line/end)', 1, 'Y');
9215:
9216: VALIDATE_ADDRESS(p_party_site_id => p_quote_line_rec.END_CUSTOMER_PARTY_SITE_ID,
9227: --4. ***Validate Customer - Header and Line Level***
9228:
9229: --Validate Customer(Header/Sold)
9230: if ( P_QUOTE_HEADER_REC.CUST_PARTY_ID is NOT NULL
9231: AND P_QUOTE_HEADER_REC.CUST_PARTY_ID <> FND_API.G_MISS_NUM) THEN
9232:
9233: aso_debug_pub.add('Before Calling Validate Customer(Header/Sold)', 1, 'Y');
9234:
9235: VALIDATE_CUSTOMER(p_cust_party_id => p_quote_header_rec.cust_party_id,
9243:
9244:
9245: --Validate Customer(Header/End)
9246: if ( P_QUOTE_HEADER_REC.END_CUSTOMER_CUST_PARTY_ID is NOT NULL
9247: AND P_QUOTE_HEADER_REC.END_CUSTOMER_CUST_PARTY_ID <> FND_API.G_MISS_NUM) THEN
9248:
9249: aso_debug_pub.add('Before Calling Validate Customer(Header/End)', 1, 'Y');
9250:
9251: VALIDATE_CUSTOMER(p_cust_party_id => p_quote_header_rec.end_customer_cust_party_id,
9259:
9260:
9261: --Validate Customer(Line/End)
9262: if ( P_QUOTE_LINE_REC.END_CUSTOMER_CUST_PARTY_ID is NOT NULL
9263: AND P_QUOTE_LINE_REC.END_CUSTOMER_CUST_PARTY_ID <> FND_API.G_MISS_NUM) THEN
9264:
9265: aso_debug_pub.add('Before Calling Validate Customer(Line/End)', 1, 'Y');
9266:
9267: VALIDATE_CUSTOMER(p_cust_party_id => p_quote_line_rec.end_customer_cust_party_id,
9276: --5. ***Validate Bill Ship Customer***
9277:
9278: --Validate Bill Ship Customer (Header/Bill)
9279: if ( p_quote_header_rec.INVOICE_TO_CUST_PARTY_ID is NOT NULL
9280: AND p_quote_header_rec.INVOICE_TO_CUST_PARTY_ID <> FND_API.G_MISS_NUM) THEN
9281:
9282: aso_debug_pub.add('Before calling Validate Bill Ship Customer (Header/Bill)', 1, 'Y');
9283:
9284: VALIDATE_BILL_SHIP_CUSTOMER(p_cust_party_id =>p_quote_header_rec.INVOICE_TO_CUST_PARTY_ID,
9293:
9294:
9295: --Validate Bill Ship Customer (Header/Ship)
9296: if ( p_shipment_header_rec.SHIP_TO_CUST_PARTY_ID is NOT NULL
9297: AND p_shipment_header_rec.SHIP_TO_CUST_PARTY_ID <> FND_API.G_MISS_NUM) THEN
9298:
9299: aso_debug_pub.add('Before Calling Validate Bill Ship Customer (Header/Ship)', 1, 'Y');
9300:
9301: VALIDATE_BILL_SHIP_CUSTOMER(p_cust_party_id =>p_shipment_header_rec.SHIP_TO_CUST_PARTY_ID,
9309:
9310:
9311: --Validate Bill Ship Customer (Line/Bill)
9312: if ( p_quote_line_rec.INVOICE_TO_CUST_PARTY_ID is NOT NULL
9313: AND p_quote_line_rec.INVOICE_TO_CUST_PARTY_ID <> FND_API.G_MISS_NUM) THEN
9314:
9315: aso_debug_pub.add('Before Calling Validate Bill Ship Customer (Line/Bill)', 1, 'Y');
9316:
9317: VALIDATE_BILL_SHIP_CUSTOMER(p_cust_party_id =>p_quote_line_rec.INVOICE_TO_CUST_PARTY_ID,
9325:
9326:
9327: --Validate Bill Ship Customer (Line/Ship)
9328: if ( p_shipment_line_rec.SHIP_TO_CUST_PARTY_ID is NOT NULL
9329: AND p_shipment_line_rec.SHIP_TO_CUST_PARTY_ID <> FND_API.G_MISS_NUM) THEN
9330:
9331: aso_debug_pub.add('Before Calling Validate Bill Ship Customer (Line/Ship)', 1, 'Y');
9332:
9333: VALIDATE_BILL_SHIP_CUSTOMER(p_cust_party_id =>p_shipment_line_rec.SHIP_TO_CUST_PARTY_ID,
9342: --6. ***Validate Bill Ship Account***
9343:
9344: --Validate Bill Ship Account(Header/Bill)
9345: if ( p_quote_header_rec.INVOICE_TO_CUST_ACCOUNT_ID is NOT NULL
9346: AND p_quote_header_rec.INVOICE_TO_CUST_ACCOUNT_ID <> FND_API.G_MISS_NUM) THEN
9347:
9348: aso_debug_pub.add('Before Calling Validate Bill Ship Account(Header/Bill)', 1, 'Y');
9349:
9350: VALIDATE_BILL_SHIP_ACCOUNT(p_cust_acct_id =>p_quote_header_rec.INVOICE_TO_CUST_ACCOUNT_ID,
9359:
9360:
9361: --Validate Bill Ship Account(Header/Ship)
9362: if ( p_shipment_header_rec.SHIP_TO_CUST_ACCOUNT_ID is NOT NULL
9363: AND p_shipment_header_rec.SHIP_TO_CUST_ACCOUNT_ID <> FND_API.G_MISS_NUM) THEN
9364:
9365: aso_debug_pub.add('Before Calling Validate Bill Ship Account(Header/Ship)', 1, 'Y');
9366:
9367:
9378:
9379:
9380: --Validate Bill Ship Account(Line/Bill)
9381: if ( p_quote_line_rec.INVOICE_TO_CUST_ACCOUNT_ID is NOT NULL
9382: AND p_quote_line_rec.INVOICE_TO_CUST_ACCOUNT_ID <> FND_API.G_MISS_NUM) THEN
9383:
9384: aso_debug_pub.add('Before Calling Validate Bill Ship Account(Line/Bill)', 1, 'Y');
9385:
9386: VALIDATE_BILL_SHIP_ACCOUNT(p_cust_acct_id =>p_quote_line_rec.INVOICE_TO_CUST_ACCOUNT_ID,
9396:
9397:
9398: --Validate Bill Ship Account(Line/Ship)
9399: if ( p_shipment_line_rec.SHIP_TO_CUST_ACCOUNT_ID is NOT NULL
9400: AND p_shipment_line_rec.SHIP_TO_CUST_ACCOUNT_ID <> FND_API.G_MISS_NUM) THEN
9401:
9402: aso_debug_pub.add('Before Calling Validate Bill Ship Account(Line/Ship)', 1, 'Y');
9403:
9404: VALIDATE_BILL_SHIP_ACCOUNT(p_cust_acct_id =>p_shipment_line_rec.SHIP_TO_CUST_ACCOUNT_ID,
9416: --7. ***Validate Account***
9417:
9418: --Validate Account (Header/SOLD)
9419: if ( p_quote_header_rec.CUST_ACCOUNT_ID is NOT NULL
9420: AND p_quote_header_rec.CUST_ACCOUNT_ID <> FND_API.G_MISS_NUM) THEN
9421:
9422: aso_debug_pub.add('Before Calling Validate Account (Header/SOLD)', 1, 'Y');
9423:
9424: VALIDATE_ACCOUNT(p_cust_acct_id => p_quote_header_rec.CUST_ACCOUNT_ID,
9432:
9433:
9434: --Validate Account (Header/END)
9435: if ( p_quote_header_rec.END_CUSTOMER_CUST_ACCOUNT_ID is NOT NULL
9436: AND p_quote_header_rec.END_CUSTOMER_CUST_ACCOUNT_ID <> FND_API.G_MISS_NUM) THEN
9437:
9438: aso_debug_pub.add('Before Calling Validate Account (Header/END)', 1, 'Y');
9439:
9440: VALIDATE_ACCOUNT(p_cust_acct_id => p_quote_header_rec.END_CUSTOMER_CUST_ACCOUNT_ID,
9448:
9449:
9450: --Validate Account (Line/END)
9451: if ( p_quote_line_rec.END_CUSTOMER_CUST_ACCOUNT_ID is NOT NULL
9452: AND p_quote_line_rec.END_CUSTOMER_CUST_ACCOUNT_ID <> FND_API.G_MISS_NUM) THEN
9453:
9454: aso_debug_pub.add('Before Calling Validate Account (Line/END)', 1, 'Y');
9455:
9456: VALIDATE_ACCOUNT(p_cust_acct_id => p_quote_line_rec.END_CUSTOMER_CUST_ACCOUNT_ID,
9478: --Changes for Validating Defaulting Parameters (End):14/09/2005
9479:
9480: Procedure Validate_cc_info
9481: (
9482: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
9483: p_payment_rec IN aso_quote_pub.payment_rec_type,
9484: p_qte_header_rec IN ASO_QUOTE_PUB.Qte_Header_Rec_Type,
9485: P_Qte_Line_rec IN ASO_QUOTE_PUB.Qte_Line_Rec_Type := ASO_QUOTE_PUB.G_MISS_QTE_LINE_REC,
9486: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
9510: if aso_debug_pub.g_debug_flag = 'Y' then
9511: aso_debug_pub.add('Begin Validate_payment_rec', 1, 'Y');
9512: end if;
9513:
9514: if p_init_msg_list = fnd_api.g_true then
9515: fnd_msg_pub.initialize;
9516: end if;
9517:
9518: x_return_status := fnd_api.g_ret_sts_success;
9514: if p_init_msg_list = fnd_api.g_true then
9515: fnd_msg_pub.initialize;
9516: end if;
9517:
9518: x_return_status := fnd_api.g_ret_sts_success;
9519:
9520: if aso_debug_pub.g_debug_flag = 'Y' then
9521: aso_debug_pub.add('Payment Rec.payment_type_code: '||p_payment_rec.payment_type_code, 1, 'Y');
9522: aso_debug_pub.add('Payment Rec.quote_header_id: '||p_payment_rec.quote_header_id, 1, 'Y');
9527:
9528:
9529:
9530: if (p_payment_rec.payment_type_code = 'CREDIT_CARD' and
9531: (p_payment_rec.quote_line_id is null or p_payment_rec.quote_line_id = fnd_api.g_miss_num) and
9532: (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))
9533: or
9534: (p_payment_rec.payment_type_code = 'CREDIT_CARD' and
9535: (p_payment_rec.quote_line_id is not null and p_payment_rec.quote_line_id <> fnd_api.g_miss_num) and
9528:
9529:
9530: if (p_payment_rec.payment_type_code = 'CREDIT_CARD' and
9531: (p_payment_rec.quote_line_id is null or p_payment_rec.quote_line_id = fnd_api.g_miss_num) and
9532: (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))
9533: or
9534: (p_payment_rec.payment_type_code = 'CREDIT_CARD' and
9535: (p_payment_rec.quote_line_id is not null and p_payment_rec.quote_line_id <> fnd_api.g_miss_num) and
9536: (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))
9531: (p_payment_rec.quote_line_id is null or p_payment_rec.quote_line_id = fnd_api.g_miss_num) and
9532: (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))
9533: or
9534: (p_payment_rec.payment_type_code = 'CREDIT_CARD' and
9535: (p_payment_rec.quote_line_id is not null and p_payment_rec.quote_line_id <> fnd_api.g_miss_num) and
9536: (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))
9537: then
9538:
9539: x_return_status := fnd_api.g_ret_sts_error;
9532: (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))
9533: or
9534: (p_payment_rec.payment_type_code = 'CREDIT_CARD' and
9535: (p_payment_rec.quote_line_id is not null and p_payment_rec.quote_line_id <> fnd_api.g_miss_num) and
9536: (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))
9537: then
9538:
9539: x_return_status := fnd_api.g_ret_sts_error;
9540:
9535: (p_payment_rec.quote_line_id is not null and p_payment_rec.quote_line_id <> fnd_api.g_miss_num) and
9536: (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))
9537: then
9538:
9539: x_return_status := fnd_api.g_ret_sts_error;
9540:
9541: IF fnd_msg_pub.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
9542: FND_MESSAGE.Set_Name('ASO', 'ASO_MISSING_BILLTOPARTY');
9543: FND_MSG_PUB.ADD;
9545:
9546: end if;
9547:
9548: -- if line payment has bill to and payment type is null while header has payment type credit card, throw error
9549: if ((p_payment_rec.quote_line_id is not null and p_payment_rec.quote_line_id <> fnd_api.g_miss_num) and
9550: (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
9551: (p_payment_rec.payment_type_code is null or p_payment_rec.payment_type_code = fnd_api.g_miss_char)) then
9552:
9553: -- get the payment type from header payment record
9546: end if;
9547:
9548: -- if line payment has bill to and payment type is null while header has payment type credit card, throw error
9549: if ((p_payment_rec.quote_line_id is not null and p_payment_rec.quote_line_id <> fnd_api.g_miss_num) and
9550: (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
9551: (p_payment_rec.payment_type_code is null or p_payment_rec.payment_type_code = fnd_api.g_miss_char)) then
9552:
9553: -- get the payment type from header payment record
9554: open c_get_payment_type_code(p_payment_rec.quote_header_id);
9547:
9548: -- if line payment has bill to and payment type is null while header has payment type credit card, throw error
9549: if ((p_payment_rec.quote_line_id is not null and p_payment_rec.quote_line_id <> fnd_api.g_miss_num) and
9550: (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
9551: (p_payment_rec.payment_type_code is null or p_payment_rec.payment_type_code = fnd_api.g_miss_char)) then
9552:
9553: -- get the payment type from header payment record
9554: open c_get_payment_type_code(p_payment_rec.quote_header_id);
9555: fetch c_get_payment_type_code into l_payment_type_code;
9556: close c_get_payment_type_code;
9557:
9558: if nvl(l_payment_type_code,'null') = 'CREDIT_CARD' then
9559:
9560: x_return_status := fnd_api.g_ret_sts_error;
9561:
9562: IF fnd_msg_pub.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
9563: FND_MESSAGE.Set_Name('ASO', 'ASO_MISSING_PAYMENT_DETAILS');
9564: FND_MSG_PUB.ADD;
9568:
9569: end if;
9570:
9571: -- if hdr payment is changed to cc, then make sure all lines have no null payment type if bill to is specified at line
9572: if ((p_payment_rec.quote_line_id is null or p_payment_rec.quote_line_id = fnd_api.g_miss_num) and
9573: (p_payment_rec.payment_type_code = 'CREDIT_CARD' )) then
9574:
9575: -- get all the lines in quote and check their payment type
9576: open c_get_lines_with_null_payment(p_payment_rec.quote_header_id);
9577: fetch c_get_lines_with_null_payment into l_inv_cust_party_id;
9578:
9579: if c_get_lines_with_null_payment%FOUND Then
9580: close c_get_lines_with_null_payment;
9581: x_return_status := fnd_api.g_ret_sts_error;
9582:
9583: IF fnd_msg_pub.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
9584: FND_MESSAGE.Set_Name('ASO', 'ASO_MISSING_LN_PAYMENT_DETAILS');
9585: FND_MSG_PUB.ADD;
9610: --when access mode is set to 'S'
9611: --Check if the current org_id matches with the org_id in p_qte_header_rec
9612: IF l_access_mode IS NOT NULL AND l_access_mode = 'S' THEN
9613: BEGIN
9614: IF ((p_qte_header_rec.org_id <> FND_API.G_MISS_NUM)
9615: AND (p_qte_header_rec.org_id IS NOT NULL)
9616: AND (l_org_id <> p_qte_header_rec.org_id)) THEN
9617:
9618: IF fnd_msg_pub.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
9619: FND_MESSAGE.Set_Name('ASO', 'ASO_ORG_ID_MISMATCH');
9620: FND_MSG_PUB.ADD;
9621: END IF;
9622:
9623: RAISE FND_API.G_EXC_ERROR;
9624: END IF;
9625: END ;
9626: ELSE
9627: IF fnd_msg_pub.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
9628: FND_MESSAGE.Set_Name('ASO', 'ASO_WRONG_ACCESS_MODE');
9629: FND_MSG_PUB.ADD;
9630: END IF;
9631:
9632: RAISE FND_API.G_EXC_ERROR;
9633: END IF;
9634: END VALIDATE_OU;
9635:
9636: PROCEDURE validate_ship_method_code
9634: END VALIDATE_OU;
9635:
9636: PROCEDURE validate_ship_method_code
9637: (
9638: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
9639: p_qte_header_id IN NUMBER := fnd_api.g_miss_num,
9640: p_qte_line_id IN NUMBER := fnd_api.g_miss_num,
9641: p_organization_id IN NUMBER := fnd_api.g_miss_num,
9642: p_ship_method_code IN VARCHAR2 := fnd_api.g_miss_char,
9635:
9636: PROCEDURE validate_ship_method_code
9637: (
9638: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
9639: p_qte_header_id IN NUMBER := fnd_api.g_miss_num,
9640: p_qte_line_id IN NUMBER := fnd_api.g_miss_num,
9641: p_organization_id IN NUMBER := fnd_api.g_miss_num,
9642: p_ship_method_code IN VARCHAR2 := fnd_api.g_miss_char,
9643: p_operation_code IN VARCHAR2 := fnd_api.g_miss_char,
9636: PROCEDURE validate_ship_method_code
9637: (
9638: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
9639: p_qte_header_id IN NUMBER := fnd_api.g_miss_num,
9640: p_qte_line_id IN NUMBER := fnd_api.g_miss_num,
9641: p_organization_id IN NUMBER := fnd_api.g_miss_num,
9642: p_ship_method_code IN VARCHAR2 := fnd_api.g_miss_char,
9643: p_operation_code IN VARCHAR2 := fnd_api.g_miss_char,
9644: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
9637: (
9638: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
9639: p_qte_header_id IN NUMBER := fnd_api.g_miss_num,
9640: p_qte_line_id IN NUMBER := fnd_api.g_miss_num,
9641: p_organization_id IN NUMBER := fnd_api.g_miss_num,
9642: p_ship_method_code IN VARCHAR2 := fnd_api.g_miss_char,
9643: p_operation_code IN VARCHAR2 := fnd_api.g_miss_char,
9644: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
9645: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
9638: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
9639: p_qte_header_id IN NUMBER := fnd_api.g_miss_num,
9640: p_qte_line_id IN NUMBER := fnd_api.g_miss_num,
9641: p_organization_id IN NUMBER := fnd_api.g_miss_num,
9642: p_ship_method_code IN VARCHAR2 := fnd_api.g_miss_char,
9643: p_operation_code IN VARCHAR2 := fnd_api.g_miss_char,
9644: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
9645: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
9646: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2) is
9639: p_qte_header_id IN NUMBER := fnd_api.g_miss_num,
9640: p_qte_line_id IN NUMBER := fnd_api.g_miss_num,
9641: p_organization_id IN NUMBER := fnd_api.g_miss_num,
9642: p_ship_method_code IN VARCHAR2 := fnd_api.g_miss_char,
9643: p_operation_code IN VARCHAR2 := fnd_api.g_miss_char,
9644: x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
9645: x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER,
9646: x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2) is
9647:
9684: if aso_debug_pub.g_debug_flag = 'Y' then
9685: aso_debug_pub.add('Begin validate_ship_method_code', 1, 'Y');
9686: end if;
9687:
9688: if p_init_msg_list = fnd_api.g_true then
9689: fnd_msg_pub.initialize;
9690: end if;
9691:
9692: x_return_status := fnd_api.g_ret_sts_success;
9688: if p_init_msg_list = fnd_api.g_true then
9689: fnd_msg_pub.initialize;
9690: end if;
9691:
9692: x_return_status := fnd_api.g_ret_sts_success;
9693:
9694: if aso_debug_pub.g_debug_flag = 'Y' then
9695: aso_debug_pub.add('p_qte_header_id : '||p_qte_header_id, 1, 'Y');
9696: aso_debug_pub.add('p_qte_line_id: '||p_qte_line_id, 1, 'Y');
9698: aso_debug_pub.add('p_ship_method_code: '||p_ship_method_code, 1, 'Y');
9699: aso_debug_pub.add('p_operation_code: '||p_operation_code, 1, 'Y');
9700: end if;
9701:
9702: IF (p_operation_code = 'CREATE' and p_ship_method_code is not null and p_ship_method_code <> fnd_api.g_miss_char) THEN
9703:
9704: OPEN C_Get_ship_method(p_ship_method_code,p_organization_id);
9705: fetch C_Get_ship_method into lx_ship_method_code;
9706:
9710: end if;
9711:
9712: if C_Get_ship_method%NOTFOUND THEN
9713: Close C_Get_ship_method;
9714: x_return_status := FND_API.G_RET_STS_ERROR;
9715: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
9716: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
9717: FND_MESSAGE.Set_Token('COLUMN', 'SHIP_METHOD', FALSE);
9718: FND_MESSAGE.Set_Token('VALUE', p_ship_method_code, FALSE);
9725:
9726: ELSIF p_operation_code = 'UPDATE' THEN
9727:
9728: -- get the value from the db if not passed in
9729: IF (p_organization_id is null or p_organization_id = fnd_api.g_miss_num) then
9730: open get_organization_id(p_qte_line_id);
9731: fetch get_organization_id into l_organization_id;
9732: close get_organization_id;
9733: END IF;
9731: fetch get_organization_id into l_organization_id;
9732: close get_organization_id;
9733: END IF;
9734:
9735: IF (p_ship_method_code is null or p_ship_method_code = fnd_api.g_miss_char) then
9736: IF (p_qte_line_id is not null and p_qte_line_id <> fnd_api.g_miss_num) then
9737: open get_ship_code(p_qte_line_id);
9738: fetch get_ship_code into l_ship_method_code;
9739: close get_ship_code;
9732: close get_organization_id;
9733: END IF;
9734:
9735: IF (p_ship_method_code is null or p_ship_method_code = fnd_api.g_miss_char) then
9736: IF (p_qte_line_id is not null and p_qte_line_id <> fnd_api.g_miss_num) then
9737: open get_ship_code(p_qte_line_id);
9738: fetch get_ship_code into l_ship_method_code;
9739: close get_ship_code;
9740: ELSE
9748: aso_debug_pub.add('l_organization_id: '|| l_organization_id, 1, 'Y');
9749: aso_debug_pub.add('l_ship_method_code: '|| l_ship_method_code, 1, 'Y');
9750: end if;
9751:
9752: IF (l_ship_method_code is not null and l_ship_method_code <> fnd_api.g_miss_char) then
9753: OPEN C_Get_ship_method(l_ship_method_code,l_organization_id);
9754: fetch C_Get_ship_method into lx_ship_method_code;
9755:
9756: if aso_debug_pub.g_debug_flag = 'Y' then
9759: end if;
9760:
9761: if C_Get_ship_method%NOTFOUND THEN
9762: Close C_Get_ship_method;
9763: x_return_status := FND_API.G_RET_STS_ERROR;
9764: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
9765: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
9766: FND_MESSAGE.Set_Token('COLUMN', 'SHIP_METHOD', FALSE);
9767: FND_MESSAGE.Set_Token('VALUE', l_ship_method_code, FALSE);