[Home] [Help]
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
31: x_return_status := FND_API.G_RET_STS_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;
39: END IF;
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;
39: END IF;
40: END IF;
41:
42: FND_MSG_PUB.Count_And_Get(
38: FND_MSG_PUB.ADD;
39: END IF;
40: END IF;
41:
42: FND_MSG_PUB.Count_And_Get(
43: p_count => x_msg_count,
44: p_data => x_msg_data);
45:
46: END Validate_NotNULL_NUMBER;
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
64: x_return_status := FND_API.G_RET_STS_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;
72: END IF;
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;
72: END IF;
73: END IF;
74:
75: FND_MSG_PUB.Count_And_Get(
71: FND_MSG_PUB.ADD;
72: END IF;
73: END IF;
74:
75: FND_MSG_PUB.Count_And_Get(
76: p_count => x_msg_count,
77: p_data => x_msg_data);
78:
79: END Validate_NotNULL_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
97: x_return_status := FND_API.G_RET_STS_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;
105: END IF;
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;
105: END IF;
106: END IF;
107:
108: FND_MSG_PUB.Count_And_Get(
104: FND_MSG_PUB.ADD;
105: END IF;
106: END IF;
107:
108: FND_MSG_PUB.Count_And_Get(
109: p_count => x_msg_count,
110: p_data => x_msg_data);
111:
112: END Validate_NotNULL_DATE;
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
130: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
141: END IF;
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;
141: END IF;
142: END IF;
143: END IF;
144:
141: END IF;
142: END IF;
143: END IF;
144:
145: FND_MSG_PUB.Count_And_Get(
146: p_count => x_msg_count,
147: p_data => x_msg_data);
148:
149: END Validate_For_GreaterEndDate;
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
172: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
189: END IF;
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;
189: END IF;
190: ELSE
191: CLOSE C_Party;
192: END IF;
195: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
196: aso_debug_pub.add('Validate_Party: x_return_status: '||x_return_status, 1, 'N');
197: END IF;
198:
199: FND_MSG_PUB.Count_And_Get(
200: p_count => x_msg_count,
201: p_data => x_msg_data);
202:
203: END Validate_Party;
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
226: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
243: END IF;
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;
243: END IF;
244: ELSE
245: CLOSE C_Contact;
246: END IF;
248:
249: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
250: aso_debug_pub.add('Validate_Contact: x_return_status: '||x_return_status, 1, 'N');
251: END IF;
252: FND_MSG_PUB.Count_And_Get(
253: p_count => x_msg_count,
254: p_data => x_msg_data);
255:
256: END Validate_Contact;
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
282: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
302: END IF;
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;
302: END IF;
303: ELSE
304: CLOSE C_Party_Site;
305: END IF;
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
332: x_return_status := FND_API.G_RET_STS_SUCCESS;
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 );
349: FND_MSG_PUB.ADD;
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 );
349: FND_MSG_PUB.ADD;
350: END IF;
351: ELSE
352: CLOSE C_Order_Type;
353: END IF;
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
382: x_return_status := FND_API.G_RET_STS_SUCCESS;
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 );
399: FND_MSG_PUB.ADD;
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 );
399: FND_MSG_PUB.ADD;
400: END IF;
401: ELSE
402: CLOSE C_Order_Line_Type;
403: END IF;
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
443: x_return_status := FND_API.G_RET_STS_SUCCESS;
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);
464: FND_MSG_PUB.ADD;
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);
464: FND_MSG_PUB.ADD;
465: END IF;
466: ELSE
467: CLOSE C_Price_List;
468: END IF;
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
504: x_return_status := FND_API.G_RET_STS_SUCCESS;
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);
519: FND_MSG_PUB.ADD;
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);
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;
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);
528: FND_MSG_PUB.ADD;
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);
528: FND_MSG_PUB.ADD;
529: END IF;
530: --CLOSE C_Price_List;
531: END IF;
532: CLOSE C_Price_List;
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
559: x_return_status := FND_API.G_RET_STS_SUCCESS;
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
597: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
607: END IF;
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;
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
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;
614: 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;
614: END IF;
615: CLOSE C_Quote_Status;
616:
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
648: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
655: END IF;
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;
655: END IF;
656: ELSE
657: OPEN C_Inventory_Item;
658: FETCH C_Inventory_Item INTO l_start_date, l_end_date,l_war_flag,l_svr_flag;
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;
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;
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;
677: END IF;
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;
677: END IF;
678: ELSE
679: CLOSE C_Inventory_Item;
680: END IF;
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
710: x_return_status := FND_API.G_RET_STS_SUCCESS;
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);
722: FND_MSG_PUB.ADD;
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);
722: FND_MSG_PUB.ADD;
723: END IF;
724: ELSE
725: CLOSE C_item_type_code;
726: END IF;
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
752: x_return_status := FND_API.G_RET_STS_SUCCESS;
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);
764: FND_MSG_PUB.ADD;
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);
764: FND_MSG_PUB.ADD;
765: END IF;
766: ELSE
767: CLOSE C_marketing_code;
768: END IF;
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
797: x_return_status := FND_API.G_RET_STS_SUCCESS;
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);
809: FND_MSG_PUB.ADD;
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);
809: FND_MSG_PUB.ADD;
810: END IF;
811: ELSE
812: CLOSE C_uom_code;
813: END IF;
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
834: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
844: END IF;
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;
844: END IF;
845: END IF;
846:
847: FND_MSG_PUB.Count_And_Get(
843: FND_MSG_PUB.ADD;
844: END IF;
845: END IF;
846:
847: FND_MSG_PUB.Count_And_Get(
848: p_count => x_msg_count,
849: p_data => x_msg_data);
850:
851: END Validate_Tax_Exemption;
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
883: x_return_status := FND_API.G_RET_STS_SUCCESS;
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);
897: FND_MESSAGE.Set_Token('CONFIG_ITEM_ID',p_config_item_id, FALSE);
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);
897: FND_MESSAGE.Set_Token('CONFIG_ITEM_ID',p_config_item_id, FALSE);
898: FND_MSG_PUB.ADD;
899: END IF;
900: ELSE
901: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
902: aso_debug_pub.add('ASO_VALIDATE_PVT.validate_configuration: Inside C_configuration Not Found ELSE condition', 1, 'N');
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
938: x_return_status := FND_API.G_RET_STS_SUCCESS;
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);
950: FND_MSG_PUB.ADD;
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);
950: FND_MSG_PUB.ADD;
951: END IF;
952: ELSE
953: CLOSE C_servicetypes;
954: null;
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
997: x_return_status := FND_API.G_RET_STS_SUCCESS;
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);
1023: FND_MESSAGE.Set_Token('VALUE',to_char(p_inventory_item_id),FALSE);
1024: FND_MSG_PUB.ADD;
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);
1023: FND_MESSAGE.Set_Token('VALUE',to_char(p_inventory_item_id),FALSE);
1024: FND_MSG_PUB.ADD;
1025: END IF;
1026:
1027: ELSE
1028: CLOSE C_service_item;
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;
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
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);
1055: FND_MSG_PUB.ADD;
1056: END IF;
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);
1055: FND_MSG_PUB.ADD;
1056: END IF;
1057:
1058: END IF; -- start and end date active
1059:
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
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);
1092: FND_MSG_PUB.ADD;
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);
1092: FND_MSG_PUB.ADD;
1093: END IF;
1094: END IF;
1095: END IF;
1096:
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
1133: x_return_status := FND_API.G_RET_STS_SUCCESS;
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);
1145: FND_MSG_PUB.ADD;
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);
1145: FND_MSG_PUB.ADD;
1146: END IF;
1147: ELSE
1148: CLOSE C_returntypes;
1149: END IF;
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
1178: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
1191: END IF;
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;
1191: END IF;
1192: ELSE
1193: CLOSE C_employperson;
1194: IF trunc(sysdate) > nvl(trunc(l_end_date), trunc(sysdate)) THEN
1191: END IF;
1192: ELSE
1193: CLOSE C_employperson;
1194: IF trunc(sysdate) > nvl(trunc(l_end_date), trunc(sysdate)) THEN
1195: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1196: FND_MESSAGE.Set_Name('ASO', 'NOT_EFFECTIVE');
1197: FND_MESSAGE.Set_Token('COLUMN','EMPLOYEE_PERSON_ID' , FALSE);
1198: FND_MSG_PUB.ADD;
1199: END IF;
1194: IF trunc(sysdate) > nvl(trunc(l_end_date), trunc(sysdate)) THEN
1195: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1196: FND_MESSAGE.Set_Name('ASO', 'NOT_EFFECTIVE');
1197: FND_MESSAGE.Set_Token('COLUMN','EMPLOYEE_PERSON_ID' , FALSE);
1198: FND_MSG_PUB.ADD;
1199: END IF;
1200: END IF;
1201: END IF;
1202: END IF;
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
1233: x_return_status := FND_API.G_RET_STS_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;
1241: END IF;
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;
1241: END IF;
1242: END IF;
1243:
1244: FND_MSG_PUB.Count_And_Get(
1240: FND_MSG_PUB.ADD;
1241: END IF;
1242: END IF;
1243:
1244: FND_MSG_PUB.Count_And_Get(
1245: p_count => x_msg_count,
1246: p_data => x_msg_data);
1247:
1248: END Validate_For_Positive;
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
1276: x_return_status := FND_API.G_RET_STS_SUCCESS;
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);
1288: FND_MSG_PUB.ADD;
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);
1288: FND_MSG_PUB.ADD;
1289: END IF;
1290: ELSE
1291: CLOSE C_salescredit_type;
1292: END IF;
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
1318: x_return_status := FND_API.G_RET_STS_SUCCESS;
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);
1333: FND_MSG_PUB.ADD;
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);
1333: FND_MSG_PUB.ADD;
1334: END IF;
1335: ELSE
1336: CLOSE C_party_type;
1337: END IF;
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
1376: x_return_status := FND_API.G_RET_STS_SUCCESS;
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
1415: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
1428: END IF;
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;
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;
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;
1436: END IF;
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;
1436: END IF;
1437: END IF;
1438: END IF;
1439:
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
1464: x_return_status := FND_API.G_RET_STS_SUCCESS;
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);
1476: FND_MSG_PUB.ADD;
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);
1476: FND_MSG_PUB.ADD;
1477: END IF;
1478: ELSE
1479: CLOSE C_resource_group;
1480: END IF;
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
1506: x_return_status := FND_API.G_RET_STS_SUCCESS;
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);
1521: FND_MSG_PUB.ADD;
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);
1521: FND_MSG_PUB.ADD;
1522: END IF;
1523: ELSE
1524: CLOSE C_party_object_type;
1525: END IF;
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
1555: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
1569: END IF;
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;
1569: END IF;
1570: END IF;
1571:
1572: /* IF (p_party_object_type = 'PARTY_SITE') THEN
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;
1595: END IF;
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;
1595: END IF;
1596: ELSE
1597: CLOSE C_contact_point;
1598: END IF;
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
1634: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
1649: END IF;
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;
1649: END IF;
1650: END IF;
1651:
1652: END IF;
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;
1689: END IF;
1690: CLOSE desc_flex_exists;
1691:
1711: THEN
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);
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 ;
1721: END IF;
1722:
1723: l_count := fnd_flex_descval.segment_count;
1724:
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
1809: x_return_status := FND_API.G_RET_STS_SUCCESS;
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);
1826: FND_MSG_PUB.ADD;
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);
1826: FND_MSG_PUB.ADD;
1827: END IF;
1828:
1829: END IF;
1830: CLOSE C_Account;
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);
1854: FND_MSG_PUB.ADD;
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);
1854: FND_MSG_PUB.ADD;
1855: END IF;
1856:
1857: END IF;
1858: CLOSE C_Account;
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);
1876: FND_MSG_PUB.ADD;
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);
1876: FND_MSG_PUB.ADD;
1877: END IF;
1878:
1879: END IF;
1880: CLOSE C_Account;
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);
1898: FND_MSG_PUB.ADD;
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);
1898: FND_MSG_PUB.ADD;
1899: END IF;
1900:
1901: END IF;
1902: CLOSE C_Account;
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
1944: x_return_status := FND_API.G_RET_STS_SUCCESS;
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);
1961: FND_MSG_PUB.ADD;
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);
1961: FND_MSG_PUB.ADD;
1962: END IF;
1963: ELSE
1964: OPEN C_Party_Cust(l_subject_id);
1965: FETCH C_Party_Cust INTO l_status ,l_party_type;
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);
1977: FND_MSG_PUB.ADD;
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);
1977: FND_MSG_PUB.ADD;
1978: END IF;
1979: END IF;
1980: CLOSE C_Party_Cust;
1981: END IF;
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
2013: x_return_status := FND_API.G_RET_STS_SUCCESS;
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);
2028: FND_MSG_PUB.ADD;
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);
2028: FND_MSG_PUB.ADD;
2029: END IF;
2030: ELSE
2031: CLOSE C_Party;
2032: END IF;
2034:
2035: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2036: aso_debug_pub.add('Validate_PtyBsc: x_return_status: '||x_return_status, 1, 'N');
2037: END IF;
2038: FND_MSG_PUB.Count_And_Get(
2039: p_count => x_msg_count,
2040: p_data => x_msg_data);
2041:
2042: END Validate_Party_bsc;
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
2065: x_return_status := FND_API.G_RET_STS_SUCCESS;
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);
2081: FND_MESSAGE.Set_Token('VALUE',to_char(p_party_id),FALSE);
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);
2081: FND_MESSAGE.Set_Token('VALUE',to_char(p_party_id),FALSE);
2082: FND_MSG_PUB.ADD;
2083: ELSIF p_site_use ='END_USER' THEN
2084: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
2085: FND_MESSAGE.Set_Token('COLUMN', 'End_Customer_party_Id', FALSE);
2086: FND_MESSAGE.Set_Token('VALUE',to_char(p_party_id),FALSE);
2083: ELSIF p_site_use ='END_USER' THEN
2084: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
2085: FND_MESSAGE.Set_Token('COLUMN', 'End_Customer_party_Id', FALSE);
2086: FND_MESSAGE.Set_Token('VALUE',to_char(p_party_id),FALSE);
2087: FND_MSG_PUB.ADD;
2088: ELSIF p_site_use ='SHIP_TO' THEN
2089: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
2090: FND_MESSAGE.Set_Token('COLUMN', 'Ship_to_party_Id', FALSE);
2091: FND_MESSAGE.Set_Token('VALUE',to_char(p_party_id),FALSE);
2088: ELSIF p_site_use ='SHIP_TO' THEN
2089: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
2090: FND_MESSAGE.Set_Token('COLUMN', 'Ship_to_party_Id', FALSE);
2091: FND_MESSAGE.Set_Token('VALUE',to_char(p_party_id),FALSE);
2092: FND_MSG_PUB.ADD;
2093: END IF;
2094: END IF;
2095: ELSE
2096: CLOSE C_Party;
2100: aso_debug_pub.add('Validate_InvPtyBsc: x_return_status: '||x_return_status, 1, 'N');
2101: END IF;
2102: END IF;
2103:
2104: FND_MSG_PUB.Count_And_Get(
2105: p_count => x_msg_count,
2106: p_data => x_msg_data);
2107:
2108: END Validate_Inv_Party_bsc;
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
2139: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
2153: END IF;
2154: ELSIF p_party_site_use = 'END_USER' 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;
2153: END IF;
2154: ELSIF p_party_site_use = 'END_USER' THEN
2155: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2156: FND_MESSAGE.Set_Name('ASO', 'ASO_END_ADDRESS_REQD');
2151: FND_MESSAGE.Set_Name('ASO', 'ASO_BILL_ADDRESS_REQD');
2152: FND_MSG_PUB.ADD;
2153: END IF;
2154: ELSIF p_party_site_use = 'END_USER' THEN
2155: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2156: FND_MESSAGE.Set_Name('ASO', 'ASO_END_ADDRESS_REQD');
2157: FND_MSG_PUB.ADD;
2158: END IF;
2159: ELSIF p_party_site_use = 'SHIP_TO' THEN
2153: END IF;
2154: ELSIF p_party_site_use = 'END_USER' THEN
2155: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2156: FND_MESSAGE.Set_Name('ASO', 'ASO_END_ADDRESS_REQD');
2157: FND_MSG_PUB.ADD;
2158: END IF;
2159: ELSIF p_party_site_use = 'SHIP_TO' THEN
2160: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2161: FND_MESSAGE.Set_Name('ASO', 'ASO_SHIP_ADDRESS_REQD');
2156: FND_MESSAGE.Set_Name('ASO', 'ASO_END_ADDRESS_REQD');
2157: FND_MSG_PUB.ADD;
2158: END IF;
2159: ELSIF p_party_site_use = 'SHIP_TO' THEN
2160: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2161: FND_MESSAGE.Set_Name('ASO', 'ASO_SHIP_ADDRESS_REQD');
2162: FND_MSG_PUB.ADD;
2163: END IF;
2164: END IF;
2158: END IF;
2159: ELSIF p_party_site_use = 'SHIP_TO' THEN
2160: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2161: FND_MESSAGE.Set_Name('ASO', 'ASO_SHIP_ADDRESS_REQD');
2162: FND_MSG_PUB.ADD;
2163: END IF;
2164: END IF;
2165: END IF;
2166: ELSE
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);
2177: FND_MSG_PUB.ADD;
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);
2177: FND_MSG_PUB.ADD;
2178: END IF;
2179: END IF;
2180: CLOSE C_Inv_Party_Site;
2181: END IF;
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
2249: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
2267: END IF;
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;
2267: END IF;
2268: END IF;
2269: CLOSE C_Account;
2270: 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;
2288: END IF;
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;
2288: END IF;
2289: END IF;
2290: ELSE -- relationship
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;
2303: END IF;
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;
2303: END IF;
2304: CLOSE C_Person_Reltn;
2305:
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;
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:
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;
2334: END IF;
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;
2334: END IF;
2335: CLOSE C_org_reltn;
2336: END IF;
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
2413: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
2473: 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;
2473: END IF;
2474: CLOSE C_Person_Reltn;
2475:
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
2507: FND_MESSAGE.Set_Name('ASO','ASO_VALIDATE_END_PARTY_PT_CRS');
2507: FND_MESSAGE.Set_Name('ASO','ASO_VALIDATE_END_PARTY_PT_CRS');
2508: ELSIF p_site_use = 'SHIP_TO' THEN
2509: FND_MESSAGE.Set_Name('ASO','ASO_VALIDATE_SHP_PARTY_PT_CRS');
2510: END IF;
2511: FND_MSG_PUB.ADD;
2512: END IF;
2513: END IF;
2514: CLOSE C_val_inv_id;
2515: END IF ;
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;
2583: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
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
2688: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_END_SITE_AC_CRS');
2690: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_SHP_SITE_AC_CRS');
2691: ELSIF p_site_usage = 'SOLD_TO' THEN
2692: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_SLD_SITE_AC_CRS'); -- Sold_to
2693: END IF;
2694: FND_MSG_PUB.ADD;
2695: END IF;
2696: END IF;
2697: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2698: aso_debug_pub.add('Validate_inv_partysite_crs: end',1,'N');
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
2742: x_return_status := FND_API.G_RET_STS_SUCCESS;
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);
2759: FND_MSG_PUB.ADD;
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);
2759: FND_MSG_PUB.ADD;
2760: END IF;
2761: END IF;
2762: CLOSE C_Contact;
2763: END IF;
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:
2777: FND_MSG_PUB.ADD;
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:
2777: FND_MSG_PUB.ADD;
2778: END IF;
2779: END IF;
2780: CLOSE C_Cust_account;
2781: END IF;
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:
2799: FND_MSG_PUB.ADD;
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:
2799: FND_MSG_PUB.ADD;
2800: END IF;
2801: CLOSE C_Contact;
2802: ELSE
2803: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2805: END IF;
2806: OPEN c_party(l_object_id);
2807: FETCH c_party into l_party_status;
2808: IF c_party%NOTFOUND or l_party_status <> 'A' THEN
2809: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2810: THEN
2811: FND_MESSAGE.Set_Name('ASO',
2812: 'ASO_VALIDATE_ORG_CON_PTY_CRS');
2813: --FND_MESSAGE.Set_Token('COLUMN', 'Org_contact_id', FALSE);
2810: THEN
2811: FND_MESSAGE.Set_Name('ASO',
2812: 'ASO_VALIDATE_ORG_CON_PTY_CRS');
2813: --FND_MESSAGE.Set_Token('COLUMN', 'Org_contact_id', FALSE);
2814: FND_MSG_PUB.ADD;
2815: END IF;
2816: END IF;
2817: CLOSE c_party;
2818: CLOSE C_Contact;
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
2866: x_return_status := FND_API.G_RET_STS_SUCCESS;
3162: aso_debug_pub.add('Validate_ItemTcaBsc: InvPtySite: SoldTo: x_return_status: ' || x_return_status,1,'N');
3163: END IF;
3164: -- Sold_to
3165:
3166: FND_MSG_PUB.Count_And_Get
3167: ( p_count => x_msg_count,
3168: p_data => x_msg_data
3169: );
3170:
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
3177: ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
3178: ,P_SQLCODE => SQLCODE
3179: ,P_SQLERRM => SQLERRM
3180: ,X_MSG_COUNT => X_MSG_COUNT
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
3189: ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
3190: ,P_SQLCODE => SQLCODE
3191: ,P_SQLERRM => SQLERRM
3192: ,X_MSG_COUNT => X_MSG_COUNT
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 **/
3251: lp_qte_header_rec := p_qte_header_rec;
3504: RAISE FND_API.G_EXC_ERROR;
3505: END IF;
3506: -- Sold_to
3507:
3508: FND_MSG_PUB.Count_And_Get
3509: ( p_count => x_msg_count,
3510: p_data => x_msg_data
3511: );
3512:
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
3519: ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
3520: ,P_SQLCODE => SQLCODE
3521: ,P_SQLERRM => SQLERRM
3522: ,X_MSG_COUNT => X_MSG_COUNT
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
3531: ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
3532: ,P_SQLCODE => SQLCODE
3533: ,P_SQLERRM => SQLERRM
3534: ,X_MSG_COUNT => X_MSG_COUNT
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:
3573:
3574: -- Initialize API return status to SUCCESS
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);
3586: FND_MSG_PUB.ADD;
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);
3586: FND_MSG_PUB.ADD;
3587: END IF;
3588:
3589: ELSE
3590: CLOSE C1;
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:
3619:
3620: -- Initialize API return status to SUCCESS
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);
3633: FND_MSG_PUB.ADD;
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);
3633: FND_MSG_PUB.ADD;
3634: END IF;
3635:
3636: ELSE
3637: CLOSE C1;
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:
3666:
3667: -- Initialize API return status to SUCCESS
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);
3679: FND_MSG_PUB.ADD;
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);
3679: FND_MSG_PUB.ADD;
3680: END IF;
3681:
3682: ELSE
3683: CLOSE C1;
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
3712: x_return_status := FND_API.G_RET_STS_SUCCESS;
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);
3726: FND_MSG_PUB.ADD;
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);
3726: FND_MSG_PUB.ADD;
3727: END IF;
3728: ELSE
3729: CLOSE C_Minisite;
3730: END IF;
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
3756: x_return_status := FND_API.G_RET_STS_SUCCESS;
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);
3770: FND_MSG_PUB.ADD;
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);
3770: FND_MSG_PUB.ADD;
3771: END IF;
3772: ELSE
3773: CLOSE C_Section;
3774: END IF;
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
3817: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
3853: END IF;
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;
3853: END IF;
3854:
3855: END Validate_Quote_Percent;
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
3875: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
3888: END IF;
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;
3888: END IF;
3889: END IF;
3890:
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
4006: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
4081: END IF;
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;
4081: END IF;
4082:
4083: CLOSE C_Commitment_Cur;
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;
4170: END IF;
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;
4170: END IF;
4171:
4172: CLOSE C_Commitment_Cur;
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
4211: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
4225: END IF;
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;
4225: END IF;
4226:
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;
4236: END IF;
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;
4236: END IF;
4237:
4238: CLOSE C_Agreement_Cur;
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
4269: x_return_status := FND_API.G_RET_STS_SUCCESS;
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);
4283: FND_MSG_PUB.ADD;
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);
4283: FND_MSG_PUB.ADD;
4284: END IF;
4285: RETURN;
4286: END IF;
4287:
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);
4300: FND_MSG_PUB.ADD;
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);
4300: FND_MSG_PUB.ADD;
4301: END IF;
4302: RETURN;
4303: END IF;
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;
4313: ELSIF (l_enabled_flag <> 'Y') THEN
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;
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
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;
4319: 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;
4319: END IF;
4320: CLOSE c_transition;
4321:
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
4351: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
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
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);
4371: FND_MSG_PUB.ADD;
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);
4371: FND_MSG_PUB.ADD;
4372: END IF;
4373: END IF;
4374: END IF;
4375:
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:
4512: x_return_status := FND_API.G_RET_STS_SUCCESS;
4513:
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;
4702: 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;
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
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;
4881: 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;
4881: END IF;
4882: --RAISE FND_API.G_EXC_ERROR;
4883: End If;
4884:
4893: IF FND_API.to_Boolean( p_commit ) THEN
4894: COMMIT WORK;
4895: END IF;
4896:
4897: FND_MSG_PUB.Count_And_Get
4898: ( p_encoded => 'F',
4899: p_count => x_msg_count,
4900: p_data => x_msg_data
4901: );
4900: p_data => x_msg_data
4901: );
4902:
4903: for l in 1 .. x_msg_count loop
4904: x_msg_data := fnd_msg_pub.get( p_msg_index => l, p_encoded => 'F');
4905: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4906: aso_debug_pub.add('Messge count and get '||x_msg_data, 1, 'Y');
4907: aso_debug_pub.add('Messge count and get '||x_msg_count, 1, 'Y');
4908: END IF;
4918: END IF;
4919: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
4920: P_API_NAME => L_API_NAME
4921: ,P_PKG_NAME => G_PKG_NAME
4922: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
4923: ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
4924: ,P_SQLCODE => SQLCODE
4925: ,P_SQLERRM => SQLERRM
4926: ,X_MSG_COUNT => X_MSG_COUNT
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
4935: ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
4936: ,P_SQLCODE => SQLCODE
4937: ,P_SQLERRM => SQLERRM
4938: ,X_MSG_COUNT => X_MSG_COUNT
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:
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);
4999: FND_MSG_PUB.ADD;
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);
4999: FND_MSG_PUB.ADD;
5000: END IF;
5001: ELSE
5002: CLOSE C_Payment_Terms;
5003: END IF;
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:
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);
5057: FND_MSG_PUB.ADD;
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);
5057: FND_MSG_PUB.ADD;
5058: END IF;
5059: ELSE
5060: CLOSE C_Freight_Terms;
5061: END IF;
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:
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;
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
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);
5180: FND_MSG_PUB.ADD;
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);
5180: FND_MSG_PUB.ADD;
5181: END IF;
5182: END IF;
5183:
5184: CLOSE C_qte_line_org_id_info;
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);
5194: FND_MSG_PUB.ADD;
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);
5194: FND_MSG_PUB.ADD;
5195: END IF;
5196: END IF;
5197: ELSE -- Ship_from_org_id is not null.
5198: l_org_id := p_ship_from_org_id;
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);
5221: FND_MSG_PUB.ADD;
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);
5221: FND_MSG_PUB.ADD;
5222: END IF;
5223: ELSE
5224: CLOSE C_ship_method_code;
5225: END IF;
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;
5272: END IF;
5273: END IF;
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;
5272: END IF;
5273: END IF;
5274: CLOSE c_ln_type_for_ord_type;
5275: END IF;
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;
5323: END IF;
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;
5323: END IF;
5324:
5325: END IF;
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;
5402: END IF;
5403:
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;
5402: END IF;
5403:
5404: end if;
5405:
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;
5438: END IF;
5439: end if;
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;
5438: END IF;
5439: end if;
5440:
5441: close c_po_ln_number_lines;
5446:
5447:
5448: END IF;
5449:
5450: FND_MSG_PUB.Count_And_Get(
5451: p_count => x_msg_count,
5452: p_data => x_msg_data);
5453:
5454: End Validate_po_line_number;
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;
5494:
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);
5511: FND_MESSAGE.Set_Token('VALUE',p_service_ref_line_id,FALSE);
5512: FND_MSG_PUB.ADD;
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);
5511: FND_MESSAGE.Set_Token('VALUE',p_service_ref_line_id,FALSE);
5512: FND_MSG_PUB.ADD;
5513: END IF;
5514:
5515: end if;
5516:
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);
5535: FND_MESSAGE.Set_Token('VALUE',p_service_ref_line_id,FALSE);
5536: FND_MSG_PUB.ADD;
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);
5535: FND_MESSAGE.Set_Token('VALUE',p_service_ref_line_id,FALSE);
5536: FND_MSG_PUB.ADD;
5537: END IF;
5538:
5539: end if;
5540:
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);
5559: FND_MESSAGE.Set_Token('VALUE',p_service_ref_line_id,FALSE);
5560: FND_MSG_PUB.ADD;
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);
5559: FND_MESSAGE.Set_Token('VALUE',p_service_ref_line_id,FALSE);
5560: FND_MSG_PUB.ADD;
5561: END IF;
5562:
5563: end if;
5564:
5850: aso_debug_pub.add('No Data Found for Cursor...C_VALIDATE_PHONE_CONTACT', 1, 'Y');
5851:
5852: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
5853: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_QUOTE_PHONE_NO', TRUE);
5854: FND_MSG_PUB.ADD;
5855: END IF;
5856: aso_debug_pub.add('before Closing the Cursor...C_VALIDATE_PHONE_CONTACT', 1, 'Y');
5857: CLOSE C_VALIDATE_PHONE_CONTACT;
5858: aso_debug_pub.add('After Closing the Cursor...C_VALIDATE_PHONE_CONTACT', 1, 'Y');
5874: aso_debug_pub.add('No Data Found for Cursor...C_VALIDATE_PHONE_CUSTOMER', 1, 'Y');
5875:
5876: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
5877: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_QUOTE_PHONE_NO', TRUE);
5878: FND_MSG_PUB.ADD;
5879: END IF;
5880: aso_debug_pub.add('Before Closing the Cursor...C_VALIDATE_PHONE_CUSTOMER', 1, 'Y');
5881: CLOSE C_VALIDATE_PHONE_CUSTOMER;
5882: aso_debug_pub.add('After Closing the Cursor...C_VALIDATE_PHONE_CUSTOMER', 1, 'Y');
6030: aso_debug_pub.add('No Data Found for Cursor...C_CUST_PARTY(Line Header)', 1, 'Y');
6031:
6032: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
6033: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_QUOTE_CUSTOMER', TRUE);
6034: FND_MSG_PUB.ADD;
6035: END IF;
6036: END IF;
6037:
6038: IF ( p_flag = 'END' ) THEN
6041: aso_debug_pub.add('No Data Found for Cursor...C_CUST_PARTY(Line Header)', 1, 'Y');
6042:
6043: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
6044: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_END_CUSTOMER', TRUE);
6045: FND_MSG_PUB.ADD;
6046: END IF;
6047:
6048: IF ( p_header = 'N' ) THEN
6049: x_quote_line_rec.end_customer_cust_party_id := NULL;
6104: aso_debug_pub.add('No Data Found for Cursor...C_CUST_PARTY_MANAGER(Line/Header)', 1, 'Y');
6105:
6106: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
6107: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_QUOTE_CUSTOMER', TRUE);
6108: FND_MSG_PUB.ADD;
6109: END IF;
6110: END IF;
6111:
6112: IF ( p_flag = 'END' ) THEN
6116: aso_debug_pub.add('No Data Found for Cursor...C_CUST_PARTY_MANAGER(Line/Header)', 1, 'Y');
6117:
6118: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
6119: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_END_CUSTOMER', TRUE);
6120: FND_MSG_PUB.ADD;
6121: END IF;
6122:
6123: IF ( p_header = 'N' ) THEN
6124: x_quote_line_rec.end_customer_cust_party_id := NULL;
6159: IF ( p_header = 'Y' ) THEN
6160: x_quote_header_rec.cust_party_id := NULL;
6161: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
6162: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_QUOTE_CUSTOMER', TRUE);
6163: FND_MSG_PUB.ADD;
6164: END IF;
6165: END IF;
6166:
6167: IF ( p_flag = 'END' ) THEN
6168: IF ( p_header = 'Y' ) THEN
6169: x_quote_header_rec.end_customer_cust_party_id := NULL;
6170: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
6171: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_END_CUSTOMER', TRUE);
6172: FND_MSG_PUB.ADD;
6173: END IF;
6174: IF ( p_header = 'N' ) THEN
6175: x_quote_line_rec.end_customer_cust_party_id := NULL;
6176: END IF;
6288: IF ( p_header = 'Y' ) THEN
6289: x_quote_header_rec.INVOICE_TO_PARTY_ID := NULL;
6290: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
6291: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_BILL_CONTACT', TRUE);
6292: FND_MSG_PUB.ADD;
6293: END IF;
6294:
6295: IF ( p_header = 'N' ) THEN
6296: x_quote_line_rec.INVOICE_TO_PARTY_ID := NULL;
6303: IF ( p_header = 'Y' ) THEN
6304: x_shipment_header_rec.SHIP_TO_PARTY_ID := NULL;
6305: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
6306: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_SHIP_CONTACT', TRUE);
6307: FND_MSG_PUB.ADD;
6308: END IF;
6309:
6310: IF ( p_header = 'N' ) THEN
6311: x_shipment_line_rec.SHIP_TO_PARTY_ID := NULL;
6317: IF ( p_header = 'Y' ) THEN
6318: x_quote_header_rec.END_CUSTOMER_PARTY_ID := NULL;
6319: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
6320: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_END_CONTACT', TRUE);
6321: FND_MSG_PUB.ADD;
6322: END IF;
6323:
6324: IF ( p_header = 'N' ) THEN
6325: x_quote_line_rec.END_CUSTOMER_PARTY_ID := NULL;
6331: IF ( p_header = 'Y' ) THEN
6332: x_quote_header_rec.PARTY_ID := NULL;
6333: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
6334: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_QUOTE_CONTACT', TRUE);
6335: FND_MSG_PUB.ADD;
6336: END IF;
6337: END IF;
6338:
6339: END IF;
6525: IF ( p_header = 'Y' ) THEN
6526: x_quote_header_rec.INVOICE_TO_CUST_PARTY_ID := NULL ;
6527: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
6528: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_BILL_CUSTOMER', TRUE);
6529: FND_MSG_PUB.ADD;
6530: END IF;
6531:
6532: IF ( p_header = 'N' ) THEN
6533: x_quote_line_rec.INVOICE_TO_CUST_PARTY_ID := NULL;
6556: IF ( p_header = 'Y' ) THEN
6557: x_shipment_header_rec.SHIP_TO_CUST_PARTY_ID := NULL;
6558: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
6559: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_SHIP_CUSTOMER', TRUE);
6560: FND_MSG_PUB.ADD;
6561: END IF;
6562:
6563: IF ( p_header = 'N' ) THEN
6564: x_shipment_line_rec.SHIP_TO_CUST_PARTY_ID := NULL;
6610: IF ( p_header = 'Y' ) THEN
6611: x_quote_header_rec.INVOICE_TO_CUST_PARTY_ID := NULL ;
6612: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
6613: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_BILL_CUSTOMER', TRUE);
6614: FND_MSG_PUB.ADD;
6615: END IF;
6616:
6617: IF ( p_header = 'N' ) THEN
6618: x_quote_line_rec.INVOICE_TO_CUST_PARTY_ID := NULL;
6624: IF ( p_header = 'Y' ) THEN
6625: x_shipment_header_rec.SHIP_TO_CUST_PARTY_ID := NULL;
6626: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
6627: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_SHIP_CUSTOMER', TRUE);
6628: FND_MSG_PUB.ADD;
6629: END IF;
6630:
6631: IF ( p_header = 'N' ) THEN
6632: x_shipment_line_rec.SHIP_TO_CUST_PARTY_ID := NULL;
6686: IF ( p_header = 'Y' ) THEN
6687: x_quote_header_rec.INVOICE_TO_CUST_PARTY_ID := NULL ;
6688: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
6689: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_BILL_CUSTOMER', TRUE);
6690: FND_MSG_PUB.ADD;
6691: END IF;
6692:
6693: IF ( p_header = 'N' ) THEN
6694: x_quote_line_rec.INVOICE_TO_CUST_PARTY_ID := NULL;
6700: IF ( p_header = 'Y' ) THEN
6701: x_shipment_header_rec.SHIP_TO_CUST_PARTY_ID := NULL;
6702: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
6703: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_SHIP_CUSTOMER', TRUE);
6704: FND_MSG_PUB.ADD;
6705: END IF;
6706:
6707: IF ( p_header = 'N' ) THEN
6708: x_shipment_line_rec.SHIP_TO_CUST_PARTY_ID := NULL;
6751: IF ( p_header = 'Y' ) THEN
6752: x_quote_header_rec.INVOICE_TO_CUST_PARTY_ID := NULL ;
6753: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
6754: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_BILL_CUSTOMER', TRUE);
6755: FND_MSG_PUB.ADD;
6756: END IF;
6757:
6758: IF ( p_header = 'N' ) THEN
6759: x_quote_line_rec.INVOICE_TO_CUST_PARTY_ID := NULL;
6765: IF ( p_header = 'Y' ) THEN
6766: x_shipment_header_rec.SHIP_TO_CUST_PARTY_ID := NULL;
6767: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
6768: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_SHIP_CUSTOMER', TRUE);
6769: FND_MSG_PUB.ADD;
6770: END IF;
6771:
6772: IF ( p_header = 'N' ) THEN
6773: x_shipment_line_rec.SHIP_TO_CUST_PARTY_ID := NULL;
7049: IF ( p_header = 'Y' ) THEN
7050: x_quote_header_rec.invoice_to_cust_account_id := NULL;
7051: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7052: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_BILL_ACCOUNT', TRUE);
7053: FND_MSG_PUB.ADD;
7054: END IF;
7055: IF ( p_header = 'N' ) THEN
7056: x_quote_line_rec.invoice_to_cust_account_id := NULL;
7057: END IF;
7081: IF ( p_header = 'Y' ) THEN
7082: x_shipment_header_rec.ship_to_cust_account_id := NULL;
7083: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7084: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_SHIP_ACCOUNT', TRUE);
7085: FND_MSG_PUB.ADD;
7086: END IF;
7087: IF ( p_header = 'N' ) THEN
7088: x_shipment_line_rec.ship_to_cust_account_id := NULL;
7089: END IF;
7132: IF ( p_header = 'Y' ) THEN
7133: x_quote_header_rec.invoice_to_cust_account_id := NULL;
7134: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7135: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_BILL_ACCOUNT', TRUE);
7136: FND_MSG_PUB.ADD;
7137: END IF;
7138: IF ( p_header = 'N' ) THEN
7139: x_quote_line_rec.invoice_to_cust_account_id := NULL;
7140: END IF;
7143: IF ( p_header = 'Y' ) THEN
7144: x_shipment_header_rec.ship_to_cust_account_id := NULL;
7145: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7146: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_SHIP_ACCOUNT', TRUE);
7147: FND_MSG_PUB.ADD;
7148: END IF;
7149: IF ( p_header = 'N' ) THEN
7150: x_shipment_line_rec.ship_to_cust_account_id := NULL;
7151: END IF;
7201: IF ( p_header = 'Y' ) THEN
7202: x_quote_header_rec.invoice_to_cust_account_id := NULL;
7203: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7204: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_BILL_ACCOUNT', TRUE);
7205: FND_MSG_PUB.ADD;
7206: END IF;
7207: IF ( p_header = 'N' ) THEN
7208: x_quote_line_rec.invoice_to_cust_account_id := NULL;
7209: END IF;
7213: IF ( p_header = 'Y' ) THEN
7214: x_shipment_header_rec.ship_to_cust_account_id := NULL;
7215: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7216: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_SHIP_ACCOUNT', TRUE);
7217: FND_MSG_PUB.ADD;
7218: END IF;
7219: IF ( p_header = 'N' ) THEN
7220: x_shipment_line_rec.ship_to_cust_account_id := NULL;
7221: END IF;
7258: IF ( p_header = 'Y' ) THEN
7259: x_quote_header_rec.invoice_to_cust_account_id := NULL;
7260: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7261: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_BILL_ACCOUNT', TRUE);
7262: FND_MSG_PUB.ADD;
7263: END IF;
7264: IF ( p_header = 'N' ) THEN
7265: x_quote_line_rec.invoice_to_cust_account_id := NULL;
7266: END IF;
7270: IF ( p_header = 'Y' ) THEN
7271: x_shipment_header_rec.ship_to_cust_account_id := NULL;
7272: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7273: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_SHIP_ACCOUNT', TRUE);
7274: FND_MSG_PUB.ADD;
7275: END IF;
7276:
7277: IF ( p_header = 'N' ) THEN
7278: x_shipment_line_rec.ship_to_cust_account_id := NULL;
7405: IF ( p_header = 'Y' ) THEN
7406: x_quote_header_rec.INVOICE_TO_PARTY_SITE_ID := NULL;
7407: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7408: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_BILL_ADDRESS', TRUE);
7409: FND_MSG_PUB.ADD;
7410: END IF;
7411:
7412: IF ( p_header = 'N' ) THEN
7413: x_quote_line_rec.INVOICE_TO_PARTY_SITE_ID := NULL;
7418: IF ( p_header = 'Y' ) THEN
7419: x_shipment_header_rec.SHIP_TO_PARTY_SITE_ID := NULL;
7420: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7421: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_SHIP_ADDRESS', TRUE);
7422: FND_MSG_PUB.ADD;
7423: END IF;
7424:
7425: IF ( p_header = 'N' ) THEN
7426: x_shipment_line_rec.SHIP_TO_PARTY_SITE_ID := NULL;
7431: IF ( p_header = 'Y' ) THEN
7432: x_quote_header_rec.END_CUSTOMER_PARTY_SITE_ID := NULL;
7433: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7434: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_END_ADDRESS', TRUE);
7435: FND_MSG_PUB.ADD;
7436: END IF;
7437:
7438: IF ( p_header = 'N' ) THEN
7439: x_quote_line_rec.END_CUSTOMER_PARTY_SITE_ID := NULL;
7444: IF ( p_header = 'Y' ) THEN
7445: x_quote_header_rec.SOLD_TO_PARTY_SITE_ID := NULL;
7446: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7447: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_QUOTE_ADDRESS', TRUE);
7448: FND_MSG_PUB.ADD;
7449: END IF;
7450: END IF;
7451: aso_debug_pub.add('No data found for the cursor...C_CUST_ACCOUNT_MANAGER', 1, 'Y');
7452: END IF ;
7507: IF ( p_header = 'Y' ) THEN
7508: x_quote_header_rec.INVOICE_TO_PARTY_SITE_ID := NULL;
7509: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7510: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_BILL_ADDRESS', TRUE);
7511: FND_MSG_PUB.ADD;
7512: END IF;
7513:
7514: IF ( p_header = 'N' ) THEN
7515: x_quote_line_rec.INVOICE_TO_PARTY_SITE_ID := NULL;
7520: IF ( p_header = 'Y' ) THEN
7521: x_shipment_header_rec.SHIP_TO_PARTY_SITE_ID := NULL;
7522: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7523: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_SHIP_ADDRESS', TRUE);
7524: FND_MSG_PUB.ADD;
7525: END IF;
7526:
7527: IF ( p_header = 'N' ) THEN
7528: x_shipment_line_rec.SHIP_TO_PARTY_SITE_ID := NULL;
7533: IF ( p_header = 'Y' ) THEN
7534: x_quote_header_rec.END_CUSTOMER_PARTY_SITE_ID := NULL;
7535: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7536: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_END_ADDRESS', TRUE);
7537: FND_MSG_PUB.ADD;
7538: END IF;
7539:
7540: IF ( p_header = 'N' ) THEN
7541: x_quote_line_rec.END_CUSTOMER_PARTY_SITE_ID := NULL;
7546: IF ( p_header = 'Y' ) THEN
7547: x_quote_header_rec.SOLD_TO_PARTY_SITE_ID := NULL;
7548: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7549: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_QUOTE_ADDRESS', TRUE);
7550: FND_MSG_PUB.ADD;
7551: END IF;
7552: END IF;
7553: aso_debug_pub.add('No Data Found for the cursor...C_CUST_PARTY_ADDRESS_NOT_NULL', 1, 'Y');
7554: END IF ;
7609: IF ( p_header = 'Y' ) THEN
7610: x_quote_header_rec.INVOICE_TO_PARTY_SITE_ID := NULL;
7611: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7612: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_BILL_ADDRESS', TRUE);
7613: FND_MSG_PUB.ADD;
7614: END IF;
7615:
7616: IF ( p_header = 'N' ) THEN
7617: x_quote_line_rec.INVOICE_TO_PARTY_SITE_ID := NULL;
7622: IF ( p_header = 'Y' ) THEN
7623: x_shipment_header_rec.SHIP_TO_PARTY_SITE_ID := NULL;
7624: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7625: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_SHIP_ADDRESS', TRUE);
7626: FND_MSG_PUB.ADD;
7627: END IF;
7628:
7629: IF ( p_header = 'N' ) THEN
7630: x_shipment_line_rec.SHIP_TO_PARTY_SITE_ID := NULL;
7635: IF ( p_header = 'Y' ) THEN
7636: x_quote_header_rec.END_CUSTOMER_PARTY_SITE_ID := NULL;
7637: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7638: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_END_ADDRESS', TRUE);
7639: FND_MSG_PUB.ADD;
7640: END IF;
7641:
7642: IF ( p_header = 'N' ) THEN
7643: x_quote_line_rec.END_CUSTOMER_PARTY_SITE_ID := NULL;
7648: IF ( p_header = 'Y' ) THEN
7649: x_quote_header_rec.SOLD_TO_PARTY_SITE_ID := NULL;
7650: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7651: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_QUOTE_ADDRESS', TRUE);
7652: FND_MSG_PUB.ADD;
7653: END IF;
7654: END IF;
7655: aso_debug_pub.add('no data found for the cursor...C_CUSTOMER_ADDRESS_NOT_NULL', 1, 'Y');
7656: END IF ;
7811: IF ( p_header = 'Y' ) THEN
7812: x_quote_header_rec.CUST_ACCOUNT_ID := NULL;
7813: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7814: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_QUOTE_ACCOUNT', TRUE);
7815: FND_MSG_PUB.ADD;
7816: END IF;
7817: END IF;
7818: IF ( p_flag = 'END' ) THEN
7819: IF ( p_header = 'Y' ) THEN
7819: IF ( p_header = 'Y' ) THEN
7820: x_quote_header_rec.END_CUSTOMER_CUST_ACCOUNT_ID := NULL;
7821: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7822: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_END_ACCOUNT', TRUE);
7823: FND_MSG_PUB.ADD;
7824: END IF;
7825: IF ( p_header = 'N' ) THEN
7826: x_quote_line_rec.END_CUSTOMER_CUST_ACCOUNT_ID := NULL;
7827: END IF;
7877: IF ( p_header = 'Y' ) THEN
7878: x_quote_header_rec.CUST_ACCOUNT_ID := NULL;
7879: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7880: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_QUOTE_ACCOUNT', TRUE);
7881: FND_MSG_PUB.ADD;
7882: END IF;
7883: END IF;
7884: IF ( p_flag = 'END' ) THEN
7885: IF ( p_header = 'Y' ) THEN
7885: IF ( p_header = 'Y' ) THEN
7886: x_quote_header_rec.END_CUSTOMER_CUST_ACCOUNT_ID := NULL;
7887: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7888: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_END_ACCOUNT', TRUE);
7889: FND_MSG_PUB.ADD;
7890: END IF;
7891: IF ( p_header = 'N' ) THEN
7892: x_quote_line_rec.END_CUSTOMER_CUST_ACCOUNT_ID := NULL;
7893: END IF;
7926: IF ( p_header = 'Y' ) THEN
7927: x_quote_header_rec.CUST_ACCOUNT_ID := NULL;
7928: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7929: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_QUOTE_ACCOUNT', TRUE);
7930: FND_MSG_PUB.ADD;
7931: END IF;
7932: END IF;
7933: IF ( p_flag = 'END' ) THEN
7934: IF ( p_header = 'Y' ) THEN
7934: IF ( p_header = 'Y' ) THEN
7935: x_quote_header_rec.END_CUSTOMER_CUST_ACCOUNT_ID := NULL;
7936: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7937: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_END_ACCOUNT', TRUE);
7938: FND_MSG_PUB.ADD;
7939: END IF;
7940: IF ( p_header = 'N' ) THEN
7941: x_quote_line_rec.END_CUSTOMER_CUST_ACCOUNT_ID := NULL;
7942: END IF;
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
8351: x_return_status := FND_API.G_RET_STS_SUCCESS;
8394: aso_debug_pub.add('No Data Found for Cursor...C_SHIPMENT_PRIORITY_CODE--Header Level', 1, 'Y');
8395:
8396: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
8397: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_SHPMT_PRIORITY', TRUE);
8398: FND_MSG_PUB.ADD;
8399:
8400: aso_debug_pub.add('No Data Found for Cursor C_SHIPMENT_PRIORITY_CODE--Header Level', 1, 'Y');
8401: END IF;
8402: aso_debug_pub.add('Before Closing Cursor C_SHIPMENT_PRIORITY_CODE-Header Level', 1, 'Y');
8444: aso_debug_pub.add('No Data Found for Cursor...C_FOB--Header Level', 1, 'Y');
8445:
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');
8495: aso_debug_pub.add('No Data Found for Cursor...C_CREDIT_CARD_TYPE--Header Level', 1, 'Y');
8496:
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');
8509: aso_debug_pub.add('Credit card code needs to be null if payment type is not CREDIT_CARD.', 1, 'Y');
8510:
8511: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
8512: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_CREDIT_CARD_TYPE', TRUE);
8513: FND_MSG_PUB.ADD;
8514:
8515: END IF ;
8516: end if;
8517:
8561: aso_debug_pub.add('No Data Found for 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;
8610: aso_debug_pub.add('No Data Found for Cursor...C_REQUEST_DATE_TYPE--Header Level', 1, 'Y');
8611:
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');
8660: aso_debug_pub.add('No Data Found for Cursor...C_REQUEST_DATE--Header Level', 1, 'Y');
8661:
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');
8713: x_quote_header_rec.ORG_ID := NULL;
8714:
8715: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
8716: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_OPERATING_UNIT', TRUE);
8717: FND_MSG_PUB.ADD;
8718: end if;
8719: ELSE
8720: x_quote_header_rec.ORG_ID := NULL ;
8721: aso_debug_pub.add('No Data Found for Cursor...C_OPERATING_UNIT', 1, 'Y');
8721: aso_debug_pub.add('No Data Found for Cursor...C_OPERATING_UNIT', 1, 'Y');
8722:
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');
8801: aso_debug_pub.add('No Data Found for 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;
8829: aso_debug_pub.add('No Data Found for Cursor...C_AUTOMATIC_TAX', 1, 'Y');
8830:
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');
8859: aso_debug_pub.add('No Data Found for Cursor...C_PAYMENT_TYPE--Header Level', 1, 'Y');
8860:
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');
8913: aso_debug_pub.add('No Data Found for Cursor...C_SALESCHANNEL', 1, 'Y');
8914:
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;
8946: aso_debug_pub.add('No Data Found for Cursor...C_QOTHDDET_CURRENCY_NOT_NULL', 1, 'Y');
8947:
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;
8972: aso_debug_pub.add('No Data Found for Cursor...C_QOTHDDET_CURRENCY_NULL', 1, 'Y');
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');
9465:
9466: --TCA Calls End
9467:
9468: -- Standard call to get message count and if count is 1, get message info.
9469: FND_MSG_PUB.Count_And_Get
9470: ( p_count => x_msg_count,
9471: p_data => x_msg_data
9472: );
9473:
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;
9519:
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;
9544: END IF;
9545:
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;
9544: END IF;
9545:
9546: end if;
9547:
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;
9565: END IF;
9566:
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;
9565: END IF;
9566:
9567: end if;
9568:
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;
9586: END IF;
9587:
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;
9586: END IF;
9587:
9588: end if;
9589:
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:
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;
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:
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;
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;
9693:
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);
9719: FND_MSG_PUB.ADD;
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);
9719: FND_MSG_PUB.ADD;
9720: END IF;
9721: else
9722: Close C_Get_ship_method;
9723: 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);
9768: FND_MSG_PUB.ADD;
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);
9768: FND_MSG_PUB.ADD;
9769: END IF;
9770: else
9771: Close C_Get_ship_method;
9772: end if;