[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;
1938:
1939: BEGIN
1940: -- Initialize message list if p_init_msg_list is set to TRUE.
1941: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1942: FND_MSG_PUB.initialize;
1943: END IF;
1944:
1945: -- Initialize API return status to success
1946: x_return_status := FND_API.G_RET_STS_SUCCESS;
1955: FETCH C_Contact INTO l_subject_id, l_status;
1956: IF (C_Contact%NOTFOUND OR l_status <>'A') THEN
1957:
1958: x_return_status := FND_API.G_RET_STS_ERROR;
1959: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1960: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
1961: FND_MESSAGE.Set_Token('COLUMN', 'org_contact_id', FALSE);
1962: FND_MESSAGE.Set_Token('VALUE',to_char(p_contact_id),FALSE);
1963: FND_MSG_PUB.ADD;
1959: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1960: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
1961: FND_MESSAGE.Set_Token('COLUMN', 'org_contact_id', FALSE);
1962: FND_MESSAGE.Set_Token('VALUE',to_char(p_contact_id),FALSE);
1963: FND_MSG_PUB.ADD;
1964: END IF;
1965: ELSE
1966: OPEN C_Party_Cust(l_subject_id);
1967: FETCH C_Party_Cust INTO l_status ,l_party_type;
1971: END IF;
1972: IF ( C_Party_Cust%NOTFOUND OR l_status <> 'A' OR l_party_type <> 'PERSON' ) THEN
1973: CLOSE C_Party_Cust;
1974: x_return_status := FND_API.G_RET_STS_ERROR;
1975: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1976: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
1977: FND_MESSAGE.Set_Token('COLUMN', 'org_contact_id', FALSE);
1978: FND_MESSAGE.Set_Token('VALUE',to_char(p_contact_id),FALSE);
1979: FND_MSG_PUB.ADD;
1975: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1976: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
1977: FND_MESSAGE.Set_Token('COLUMN', 'org_contact_id', FALSE);
1978: FND_MESSAGE.Set_Token('VALUE',to_char(p_contact_id),FALSE);
1979: FND_MSG_PUB.ADD;
1980: END IF;
1981: END IF;
1982: CLOSE C_Party_Cust;
1983: END IF;
2007:
2008: BEGIN
2009: -- Initialize message list if p_init_msg_list is set to TRUE.
2010: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2011: FND_MSG_PUB.initialize;
2012: END IF;
2013:
2014: -- Initialize API return status to success
2015: x_return_status := FND_API.G_RET_STS_SUCCESS;
2022: FETCH C_Party INTO l_party_status;
2023: IF (C_Party%NOTFOUND OR l_party_status <> 'A') THEN
2024: CLOSE C_Party;
2025: x_return_status := FND_API.G_RET_STS_ERROR;
2026: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2027: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
2028: FND_MESSAGE.Set_Token('COLUMN', 'party_Id', FALSE);
2029: FND_MESSAGE.Set_Token('VALUE',to_char(p_party_id),FALSE);
2030: FND_MSG_PUB.ADD;
2026: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2027: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
2028: FND_MESSAGE.Set_Token('COLUMN', 'party_Id', FALSE);
2029: FND_MESSAGE.Set_Token('VALUE',to_char(p_party_id),FALSE);
2030: FND_MSG_PUB.ADD;
2031: END IF;
2032: ELSE
2033: CLOSE C_Party;
2034: END IF;
2036:
2037: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2038: aso_debug_pub.add('Validate_PtyBsc: x_return_status: '||x_return_status, 1, 'N');
2039: END IF;
2040: FND_MSG_PUB.Count_And_Get(
2041: p_count => x_msg_count,
2042: p_data => x_msg_data);
2043:
2044: END Validate_Party_bsc;
2059:
2060: BEGIN
2061: -- Initialize message list if p_init_msg_list is set to TRUE.
2062: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2063: FND_MSG_PUB.initialize;
2064: END IF;
2065:
2066: -- Initialize API return status to success
2067: x_return_status := FND_API.G_RET_STS_SUCCESS;
2075: FETCH C_Party INTO l_party_status;
2076: IF (C_Party%NOTFOUND OR l_party_status <> 'A') THEN
2077: CLOSE C_Party;
2078: x_return_status := FND_API.G_RET_STS_ERROR;
2079: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2080: IF p_site_use ='BILL_TO' THEN
2081: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
2082: FND_MESSAGE.Set_Token('COLUMN', 'Invoice_to_party_Id', FALSE);
2083: FND_MESSAGE.Set_Token('VALUE',to_char(p_party_id),FALSE);
2080: IF p_site_use ='BILL_TO' THEN
2081: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
2082: FND_MESSAGE.Set_Token('COLUMN', 'Invoice_to_party_Id', FALSE);
2083: FND_MESSAGE.Set_Token('VALUE',to_char(p_party_id),FALSE);
2084: FND_MSG_PUB.ADD;
2085: ELSIF p_site_use ='END_USER' THEN
2086: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
2087: FND_MESSAGE.Set_Token('COLUMN', 'End_Customer_party_Id', FALSE);
2088: FND_MESSAGE.Set_Token('VALUE',to_char(p_party_id),FALSE);
2085: ELSIF p_site_use ='END_USER' THEN
2086: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
2087: FND_MESSAGE.Set_Token('COLUMN', 'End_Customer_party_Id', FALSE);
2088: FND_MESSAGE.Set_Token('VALUE',to_char(p_party_id),FALSE);
2089: FND_MSG_PUB.ADD;
2090: ELSIF p_site_use ='SHIP_TO' THEN
2091: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
2092: FND_MESSAGE.Set_Token('COLUMN', 'Ship_to_party_Id', FALSE);
2093: FND_MESSAGE.Set_Token('VALUE',to_char(p_party_id),FALSE);
2090: ELSIF p_site_use ='SHIP_TO' THEN
2091: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
2092: FND_MESSAGE.Set_Token('COLUMN', 'Ship_to_party_Id', FALSE);
2093: FND_MESSAGE.Set_Token('VALUE',to_char(p_party_id),FALSE);
2094: FND_MSG_PUB.ADD;
2095: END IF;
2096: END IF;
2097: ELSE
2098: CLOSE C_Party;
2102: aso_debug_pub.add('Validate_InvPtyBsc: x_return_status: '||x_return_status, 1, 'N');
2103: END IF;
2104: END IF;
2105:
2106: FND_MSG_PUB.Count_And_Get(
2107: p_count => x_msg_count,
2108: p_data => x_msg_data);
2109:
2110: END Validate_Inv_Party_bsc;
2133: BEGIN
2134:
2135: -- Initialize message list if p_init_msg_list is set to TRUE.
2136: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2137: FND_MSG_PUB.initialize;
2138: END IF;
2139:
2140: -- Initialize API return status to success
2141: x_return_status := FND_API.G_RET_STS_SUCCESS;
2148: IF (p_party_id IS NOT NULL AND p_party_id <> FND_API.G_MISS_NUM) THEN
2149: IF (p_party_site_id IS NULL OR p_party_site_id = FND_API.G_MISS_NUM) THEN
2150: x_return_status := FND_API.G_RET_STS_ERROR;
2151: IF p_party_site_use = 'BILL_TO' THEN
2152: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2153: FND_MESSAGE.Set_Name('ASO', 'ASO_BILL_ADDRESS_REQD');
2154: FND_MSG_PUB.ADD;
2155: END IF;
2156: ELSIF p_party_site_use = 'END_USER' THEN
2150: x_return_status := FND_API.G_RET_STS_ERROR;
2151: IF p_party_site_use = 'BILL_TO' THEN
2152: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2153: FND_MESSAGE.Set_Name('ASO', 'ASO_BILL_ADDRESS_REQD');
2154: FND_MSG_PUB.ADD;
2155: END IF;
2156: ELSIF p_party_site_use = 'END_USER' THEN
2157: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2158: FND_MESSAGE.Set_Name('ASO', 'ASO_END_ADDRESS_REQD');
2153: FND_MESSAGE.Set_Name('ASO', 'ASO_BILL_ADDRESS_REQD');
2154: FND_MSG_PUB.ADD;
2155: END IF;
2156: ELSIF p_party_site_use = 'END_USER' THEN
2157: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2158: FND_MESSAGE.Set_Name('ASO', 'ASO_END_ADDRESS_REQD');
2159: FND_MSG_PUB.ADD;
2160: END IF;
2161: ELSIF p_party_site_use = 'SHIP_TO' THEN
2155: END IF;
2156: ELSIF p_party_site_use = 'END_USER' THEN
2157: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2158: FND_MESSAGE.Set_Name('ASO', 'ASO_END_ADDRESS_REQD');
2159: FND_MSG_PUB.ADD;
2160: END IF;
2161: ELSIF p_party_site_use = 'SHIP_TO' THEN
2162: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2163: FND_MESSAGE.Set_Name('ASO', 'ASO_SHIP_ADDRESS_REQD');
2158: FND_MESSAGE.Set_Name('ASO', 'ASO_END_ADDRESS_REQD');
2159: FND_MSG_PUB.ADD;
2160: END IF;
2161: ELSIF p_party_site_use = 'SHIP_TO' THEN
2162: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2163: FND_MESSAGE.Set_Name('ASO', 'ASO_SHIP_ADDRESS_REQD');
2164: FND_MSG_PUB.ADD;
2165: END IF;
2166: END IF;
2160: END IF;
2161: ELSIF p_party_site_use = 'SHIP_TO' THEN
2162: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2163: FND_MESSAGE.Set_Name('ASO', 'ASO_SHIP_ADDRESS_REQD');
2164: FND_MSG_PUB.ADD;
2165: END IF;
2166: END IF;
2167: END IF;
2168: ELSE
2171: FETCH C_Inv_Party_Site INTO l_status;
2172: IF (C_Inv_Party_Site%NOTFOUND OR
2173: l_status <> 'A') THEN
2174: x_return_status := FND_API.G_RET_STS_ERROR;
2175: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2176: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
2177: FND_MESSAGE.Set_Token('COLUMN', 'party_site_id', FALSE);
2178: FND_MESSAGE.Set_Token('VALUE',to_char(p_party_site_id),FALSE);
2179: FND_MSG_PUB.ADD;
2175: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2176: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
2177: FND_MESSAGE.Set_Token('COLUMN', 'party_site_id', FALSE);
2178: FND_MESSAGE.Set_Token('VALUE',to_char(p_party_site_id),FALSE);
2179: FND_MSG_PUB.ADD;
2180: END IF;
2181: END IF;
2182: CLOSE C_Inv_Party_Site;
2183: END IF;
2243: BEGIN
2244: --SAVEPOINT Validate_Party_CustAccount;
2245: -- Initialize message list if p_init_msg_list is set to TRUE.
2246: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2247: FND_MSG_PUB.initialize;
2248: END IF;
2249:
2250: -- Initialize API return status to success
2251: x_return_status := FND_API.G_RET_STS_SUCCESS;
2261: OPEN C_Account;
2262: FETCH C_Account INTO l_account_status;
2263: IF (C_Account%NOTFOUND OR l_account_status <> 'A') THEN
2264: x_return_status := FND_API.G_RET_STS_ERROR;
2265: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2266: THEN
2267: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_PARTY_CRS');
2268: FND_MSG_PUB.ADD;
2269: END IF;
2264: x_return_status := FND_API.G_RET_STS_ERROR;
2265: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2266: THEN
2267: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_PARTY_CRS');
2268: FND_MSG_PUB.ADD;
2269: END IF;
2270: END IF;
2271: CLOSE C_Account;
2272: END IF;
2282: IF l_party_type <> 'PARTY_RELATIONSHIP' THEN
2283: IF (p_cust_party_id IS NOT NULL AND p_cust_party_id <> FND_API.G_MISS_NUM) THEN
2284: IF p_party_id <> p_cust_party_id THEN
2285: x_return_status := FND_API.G_RET_STS_ERROR;
2286: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2287: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_PARTY_CRS');
2288: FND_MSG_PUB.ADD;
2289: END IF;
2290: END IF;
2284: IF p_party_id <> p_cust_party_id THEN
2285: x_return_status := FND_API.G_RET_STS_ERROR;
2286: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2287: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_PARTY_CRS');
2288: FND_MSG_PUB.ADD;
2289: END IF;
2290: END IF;
2291: END IF;
2292: ELSE -- relationship
2297: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2298: aso_debug_pub.add('Validate_PtyCrs: Person_Reltn: '||l_dummy, 1, 'N');
2299: END IF;
2300: x_return_status := FND_API.G_RET_STS_ERROR;
2301: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2302: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_RELATIONSHIP');
2303: FND_MSG_PUB.ADD;
2304: END IF;
2305: END IF;
2299: END IF;
2300: x_return_status := FND_API.G_RET_STS_ERROR;
2301: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2302: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_RELATIONSHIP');
2303: FND_MSG_PUB.ADD;
2304: END IF;
2305: END IF;
2306: CLOSE C_Person_Reltn;
2307:
2312: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2313: aso_debug_pub.add('Validate_PtyCrs: Cust_Party Relation not found: '||l_test, 1, 'N');
2314: END IF;
2315: x_return_status := FND_API.G_RET_STS_ERROR;
2316: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2317: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_PARTY_CRS');
2318: FND_MSG_PUB.ADD;
2319: END IF;
2320: END IF;
2314: END IF;
2315: x_return_status := FND_API.G_RET_STS_ERROR;
2316: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2317: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_PARTY_CRS');
2318: FND_MSG_PUB.ADD;
2319: END IF;
2320: END IF;
2321: END IF;
2322:
2328: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2329: aso_debug_pub.add('Validate_PtyCrs: Org Relation not found: '||l_test, 1, 'N');
2330: END IF;
2331: x_return_status := FND_API.G_RET_STS_ERROR;
2332: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2333: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_PARTY_CRS');
2334: FND_MSG_PUB.ADD;
2335: END IF;
2336: END IF;
2330: END IF;
2331: x_return_status := FND_API.G_RET_STS_ERROR;
2332: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2333: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_PARTY_CRS');
2334: FND_MSG_PUB.ADD;
2335: END IF;
2336: END IF;
2337: CLOSE C_org_reltn;
2338: END IF;
2407: BEGIN
2408: --SAVEPOINT Validate_Party_CustAccount;
2409: -- Initialize message list if p_init_msg_list is set to TRUE.
2410: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2411: FND_MSG_PUB.initialize;
2412: END IF;
2413:
2414: -- Initialize API return status to success
2415: x_return_status := FND_API.G_RET_STS_SUCCESS;
2467: aso_debug_pub.add('Validate_InvPtyCrs: in dummy'||l_dummy,1);
2468: END IF;
2469: IF l_dummy = 'X' THEN
2470: x_return_status := FND_API.G_RET_STS_ERROR;
2471: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2472: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_RELATIONSHIP');
2473: FND_MSG_PUB.ADD;
2474: END IF;
2475: END IF;
2469: IF l_dummy = 'X' THEN
2470: x_return_status := FND_API.G_RET_STS_ERROR;
2471: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2472: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_RELATIONSHIP');
2473: FND_MSG_PUB.ADD;
2474: END IF;
2475: END IF;
2476: CLOSE C_Person_Reltn;
2477:
2501: aso_debug_pub.add('Validate_InvPtyCrs: l_exist = ' ||l_exist,1, 'N');
2502: END IF;
2503: IF C_val_inv_id%NOTFOUND or l_exist IS NULL THEN
2504: x_return_status := FND_API.G_RET_STS_ERROR;
2505: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)THEN
2506: IF p_site_use = 'BILL_TO' THEN
2507: FND_MESSAGE.Set_Name('ASO','ASO_VALIDATE_INV_PARTY_PT_CRS');
2508: ELSIF p_site_use = 'END_USER' THEN
2509: FND_MESSAGE.Set_Name('ASO','ASO_VALIDATE_END_PARTY_PT_CRS');
2509: FND_MESSAGE.Set_Name('ASO','ASO_VALIDATE_END_PARTY_PT_CRS');
2510: ELSIF p_site_use = 'SHIP_TO' THEN
2511: FND_MESSAGE.Set_Name('ASO','ASO_VALIDATE_SHP_PARTY_PT_CRS');
2512: END IF;
2513: FND_MSG_PUB.ADD;
2514: END IF;
2515: END IF;
2516: CLOSE C_val_inv_id;
2517: END IF ;
2577:
2578: BEGIN
2579: -- Initialize message list if p_init_msg_list is set to TRUE.
2580: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2581: FND_MSG_PUB.initialize;
2582: END IF;
2583: -- Initialize API return status to success
2584: x_return_status := FND_API.G_RET_STS_SUCCESS;
2585: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2682: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2683: aso_debug_pub.add('Validate_InvPtySiteCrs: x_return_status = ' || x_return_status,1,'N');
2684: END IF;
2685: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2686: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)THEN
2687: IF p_site_usage = 'BILL_TO' THEN
2688: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_INV_SITE_AC_CRS');
2689: ELSIF p_site_usage = 'END_USER' THEN
2690: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_END_SITE_AC_CRS');
2692: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_SHP_SITE_AC_CRS');
2693: ELSIF p_site_usage = 'SOLD_TO' THEN
2694: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_SLD_SITE_AC_CRS'); -- Sold_to
2695: END IF;
2696: FND_MSG_PUB.ADD;
2697: END IF;
2698: END IF;
2699: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2700: aso_debug_pub.add('Validate_inv_partysite_crs: end',1,'N');
2737:
2738: BEGIN
2739: -- Initialize message list if p_init_msg_list is set to TRUE.
2740: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2741: FND_MSG_PUB.initialize;
2742: END IF;
2743:
2744: -- Initialize API return status to success
2745: x_return_status := FND_API.G_RET_STS_SUCCESS;
2754: OPEN C_Contact;
2755: FETCH C_Contact INTO l_object_id,l_status ;
2756: IF (C_Contact%NOTFOUND OR l_status <> 'A') THEN
2757: x_return_status := FND_API.G_RET_STS_ERROR;
2758: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2759: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
2760: FND_MESSAGE.Set_Token('COLUMN', 'Org_contact_id', FALSE);
2761: FND_MESSAGE.Set_Token('VALUE',to_char(p_contact_id),FALSE);
2762: FND_MSG_PUB.ADD;
2758: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2759: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
2760: FND_MESSAGE.Set_Token('COLUMN', 'Org_contact_id', FALSE);
2761: FND_MESSAGE.Set_Token('VALUE',to_char(p_contact_id),FALSE);
2762: FND_MSG_PUB.ADD;
2763: END IF;
2764: END IF;
2765: CLOSE C_Contact;
2766: END IF;
2772: OPEN C_Cust_account(l_object_id);
2773: FETCH C_Cust_account INTO l_acct_status ;
2774: IF C_Cust_account%NOTFOUND or l_acct_status <>'A' THEN
2775: x_return_status := FND_API.G_RET_STS_ERROR;
2776: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2777: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_ORG_CON_ACT_CRS');
2778: -- FND_MESSAGE.Set_Name('ASO', 'INVALID_OBJECT_PARTY_ID');
2779:
2780: FND_MSG_PUB.ADD;
2776: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2777: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_ORG_CON_ACT_CRS');
2778: -- FND_MESSAGE.Set_Name('ASO', 'INVALID_OBJECT_PARTY_ID');
2779:
2780: FND_MSG_PUB.ADD;
2781: END IF;
2782: END IF;
2783: CLOSE C_Cust_account;
2784: END IF;
2794: FETCH C_Contact INTO l_object_id,l_status ;
2795: IF (C_Contact%NOTFOUND OR l_status <> 'A') THEN
2796:
2797: x_return_status := FND_API.G_RET_STS_ERROR;
2798: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2799:
2800: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_ORG_CON_PTY_CRS');
2801:
2802: FND_MSG_PUB.ADD;
2798: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2799:
2800: FND_MESSAGE.Set_Name('ASO', 'ASO_VALIDATE_ORG_CON_PTY_CRS');
2801:
2802: FND_MSG_PUB.ADD;
2803: END IF;
2804: CLOSE C_Contact;
2805: ELSE
2806: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
2808: END IF;
2809: OPEN c_party(l_object_id);
2810: FETCH c_party into l_party_status;
2811: IF c_party%NOTFOUND or l_party_status <> 'A' THEN
2812: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2813: THEN
2814: FND_MESSAGE.Set_Name('ASO',
2815: 'ASO_VALIDATE_ORG_CON_PTY_CRS');
2816: --FND_MESSAGE.Set_Token('COLUMN', 'Org_contact_id', FALSE);
2813: THEN
2814: FND_MESSAGE.Set_Name('ASO',
2815: 'ASO_VALIDATE_ORG_CON_PTY_CRS');
2816: --FND_MESSAGE.Set_Token('COLUMN', 'Org_contact_id', FALSE);
2817: FND_MSG_PUB.ADD;
2818: END IF;
2819: END IF;
2820: CLOSE c_party;
2821: CLOSE C_Contact;
2861: BEGIN
2862: SAVEPOINT VALIDATE_ITEM_TCA_BSC_PVT;
2863: -- Initialize message list if p_init_msg_list is set to TRUE.
2864: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2865: FND_MSG_PUB.initialize;
2866: END IF;
2867:
2868: -- Initialize API return status to success
2869: x_return_status := FND_API.G_RET_STS_SUCCESS;
3165: aso_debug_pub.add('Validate_ItemTcaBsc: InvPtySite: SoldTo: x_return_status: ' || x_return_status,1,'N');
3166: END IF;
3167: -- Sold_to
3168:
3169: FND_MSG_PUB.Count_And_Get
3170: ( p_count => x_msg_count,
3171: p_data => x_msg_data
3172: );
3173:
3175: WHEN FND_API.G_EXC_ERROR THEN
3176: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
3177: P_API_NAME => L_API_NAME
3178: ,P_PKG_NAME => G_PKG_NAME
3179: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
3180: ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
3181: ,P_SQLCODE => SQLCODE
3182: ,P_SQLERRM => SQLERRM
3183: ,X_MSG_COUNT => X_MSG_COUNT
3187: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3188: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
3189: P_API_NAME => L_API_NAME
3190: ,P_PKG_NAME => G_PKG_NAME
3191: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
3192: ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
3193: ,P_SQLCODE => SQLCODE
3194: ,P_SQLERRM => SQLERRM
3195: ,X_MSG_COUNT => X_MSG_COUNT
3246: SAVEPOINT VALIDATE_RECORD_TCA_CRS_PVT;
3247:
3248: -- Initialize message list if p_init_msg_list is set to TRUE.
3249: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3250: FND_MSG_PUB.initialize;
3251: END IF;
3252:
3253: /** Changes for OA uptake **/
3254: lp_qte_header_rec := p_qte_header_rec;
3507: RAISE FND_API.G_EXC_ERROR;
3508: END IF;
3509: -- Sold_to
3510:
3511: FND_MSG_PUB.Count_And_Get
3512: ( p_count => x_msg_count,
3513: p_data => x_msg_data
3514: );
3515:
3517: WHEN FND_API.G_EXC_ERROR THEN
3518: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
3519: P_API_NAME => L_API_NAME
3520: ,P_PKG_NAME => G_PKG_NAME
3521: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
3522: ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
3523: ,P_SQLCODE => SQLCODE
3524: ,P_SQLERRM => SQLERRM
3525: ,X_MSG_COUNT => X_MSG_COUNT
3529: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3530: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
3531: P_API_NAME => L_API_NAME
3532: ,P_PKG_NAME => G_PKG_NAME
3533: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
3534: ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
3535: ,P_SQLCODE => SQLCODE
3536: ,P_SQLERRM => SQLERRM
3537: ,X_MSG_COUNT => X_MSG_COUNT
3569:
3570: -- Initialize message list if p_init_msg_list is set to TRUE.
3571: IF FND_API.to_Boolean( p_init_msg_list )
3572: THEN
3573: FND_MSG_PUB.initialize;
3574: END IF;
3575:
3576:
3577: -- Initialize API return status to SUCCESS
3581: FETCH C1 INTO l_exist;
3582: IF C1%NOTFOUND or l_exist is NULL THEN
3583: CLOSE C1;
3584: x_return_status := FND_API.G_RET_STS_ERROR;
3585: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3586: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
3587: FND_MESSAGE.Set_Token('COLUMN', 'QUOTE_OBJECT_TYPE_CODE', FALSE);
3588: FND_MESSAGE.Set_Token('VALUE',P_QUOTE_OBJECT_TYPE_CODE,FALSE);
3589: FND_MSG_PUB.ADD;
3585: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3586: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
3587: FND_MESSAGE.Set_Token('COLUMN', 'QUOTE_OBJECT_TYPE_CODE', FALSE);
3588: FND_MESSAGE.Set_Token('VALUE',P_QUOTE_OBJECT_TYPE_CODE,FALSE);
3589: FND_MSG_PUB.ADD;
3590: END IF;
3591:
3592: ELSE
3593: CLOSE C1;
3615:
3616: -- Initialize message list if p_init_msg_list is set to TRUE.
3617: IF FND_API.to_Boolean( p_init_msg_list )
3618: THEN
3619: FND_MSG_PUB.initialize;
3620: END IF;
3621:
3622:
3623: -- Initialize API return status to SUCCESS
3628: FETCH C1 INTO l_exist;
3629: IF C1%NOTFOUND or l_exist is NULL THEN
3630: CLOSE C1;
3631: x_return_status := FND_API.G_RET_STS_ERROR;
3632: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3633: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
3634: FND_MESSAGE.Set_Token('COLUMN', 'OBJECT_TYPE_CODE', FALSE);
3635: FND_MESSAGE.Set_Token('VALUE',p_OBJECT_TYPE_CODE,FALSE);
3636: FND_MSG_PUB.ADD;
3632: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3633: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
3634: FND_MESSAGE.Set_Token('COLUMN', 'OBJECT_TYPE_CODE', FALSE);
3635: FND_MESSAGE.Set_Token('VALUE',p_OBJECT_TYPE_CODE,FALSE);
3636: FND_MSG_PUB.ADD;
3637: END IF;
3638:
3639: ELSE
3640: CLOSE C1;
3662:
3663: -- Initialize message list if p_init_msg_list is set to TRUE.
3664: IF FND_API.to_Boolean( p_init_msg_list )
3665: THEN
3666: FND_MSG_PUB.initialize;
3667: END IF;
3668:
3669:
3670: -- Initialize API return status to SUCCESS
3674: FETCH C1 INTO l_exist;
3675: IF C1%NOTFOUND or l_exist is NULL THEN
3676: CLOSE C1;
3677: x_return_status := FND_API.G_RET_STS_ERROR;
3678: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3679: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
3680: FND_MESSAGE.Set_Token('COLUMN', 'RELATIONSHIP_TYPE_CODE', FALSE);
3681: FND_MESSAGE.Set_Token('VALUE',P_RELATIONSHIP_TYPE_CODE,FALSE);
3682: FND_MSG_PUB.ADD;
3678: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3679: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
3680: FND_MESSAGE.Set_Token('COLUMN', 'RELATIONSHIP_TYPE_CODE', FALSE);
3681: FND_MESSAGE.Set_Token('VALUE',P_RELATIONSHIP_TYPE_CODE,FALSE);
3682: FND_MSG_PUB.ADD;
3683: END IF;
3684:
3685: ELSE
3686: CLOSE C1;
3707: l_end_date DATE;
3708: BEGIN
3709: -- Initialize message list if p_init_msg_list is set to TRUE.
3710: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3711: FND_MSG_PUB.initialize;
3712: END IF;
3713:
3714: -- Initialize API return status to success
3715: x_return_status := FND_API.G_RET_STS_SUCCESS;
3721: (sysdate NOT BETWEEN NVL(l_start_date, sysdate) AND
3722: NVL(l_end_date, sysdate))) THEN
3723: CLOSE C_Minisite;
3724: x_return_status := FND_API.G_RET_STS_ERROR;
3725: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3726: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
3727: FND_MESSAGE.Set_Token('COLUMN', 'MSITE_ID', FALSE);
3728: FND_MESSAGE.Set_Token('VALUE',to_char(p_minisite_id),FALSE);
3729: FND_MSG_PUB.ADD;
3725: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3726: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
3727: FND_MESSAGE.Set_Token('COLUMN', 'MSITE_ID', FALSE);
3728: FND_MESSAGE.Set_Token('VALUE',to_char(p_minisite_id),FALSE);
3729: FND_MSG_PUB.ADD;
3730: END IF;
3731: ELSE
3732: CLOSE C_Minisite;
3733: END IF;
3751: l_end_date DATE;
3752: BEGIN
3753: -- Initialize message list if p_init_msg_list is set to TRUE.
3754: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3755: FND_MSG_PUB.initialize;
3756: END IF;
3757:
3758: -- Initialize API return status to success
3759: x_return_status := FND_API.G_RET_STS_SUCCESS;
3765: (sysdate NOT BETWEEN NVL(l_start_date, sysdate) AND
3766: NVL(l_end_date, sysdate))) THEN
3767: CLOSE C_Section;
3768: x_return_status := FND_API.G_RET_STS_ERROR;
3769: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3770: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
3771: FND_MESSAGE.Set_Token('COLUMN', 'SECTION_ID', FALSE);
3772: FND_MESSAGE.Set_Token('VALUE',to_char(p_section_id),FALSE);
3773: FND_MSG_PUB.ADD;
3769: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3770: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
3771: FND_MESSAGE.Set_Token('COLUMN', 'SECTION_ID', FALSE);
3772: FND_MESSAGE.Set_Token('VALUE',to_char(p_section_id),FALSE);
3773: FND_MSG_PUB.ADD;
3774: END IF;
3775: ELSE
3776: CLOSE C_Section;
3777: END IF;
3812: BEGIN
3813:
3814: -- Initialize message list if p_init_msg_list is set to TRUE.
3815: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3816: FND_MSG_PUB.initialize;
3817: END IF;
3818:
3819: -- Initialize API return status to success
3820: x_return_status := FND_API.G_RET_STS_SUCCESS;
3848:
3849: --IF nvl(l_percent_total,0) <> 100 THEN --commented to fix bug5671266
3850: IF l_percent_total IS NOT NULL AND l_percent_total <> 100 THEN
3851: x_return_status := FND_API.G_RET_STS_ERROR;
3852: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3853: FND_MESSAGE.Set_Name('ASO', 'ASO_SALES_CREDIT_PERCENT');
3854: FND_MSG_PUB.ADD;
3855: END IF;
3856: END IF;
3850: IF l_percent_total IS NOT NULL AND l_percent_total <> 100 THEN
3851: x_return_status := FND_API.G_RET_STS_ERROR;
3852: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3853: FND_MESSAGE.Set_Name('ASO', 'ASO_SALES_CREDIT_PERCENT');
3854: FND_MSG_PUB.ADD;
3855: END IF;
3856: END IF;
3857:
3858: END Validate_Quote_Percent;
3870:
3871: BEGIN
3872: -- Initialize message list if p_init_msg_list is set to TRUE.
3873: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3874: FND_MSG_PUB.initialize;
3875: END IF;
3876:
3877: -- Initialize API return status to success
3878: x_return_status := FND_API.G_RET_STS_SUCCESS;
3883:
3884: IF p_qte_line_rec.LINE_CATEGORY_CODE = 'RETURN' THEN
3885: IF p_sales_credit_tbl.count > 0 THEN
3886: x_return_status := FND_API.G_RET_STS_ERROR;
3887: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3888: FND_MESSAGE.Set_Name('ASO', 'ASO_SALES_CREDIT_RETURN');
3889: FND_MSG_PUB.ADD;
3890: END IF;
3891: END IF;
3885: IF p_sales_credit_tbl.count > 0 THEN
3886: x_return_status := FND_API.G_RET_STS_ERROR;
3887: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3888: FND_MESSAGE.Set_Name('ASO', 'ASO_SALES_CREDIT_RETURN');
3889: FND_MSG_PUB.ADD;
3890: END IF;
3891: END IF;
3892: END IF;
3893:
4001: END IF;
4002:
4003: -- Initialize message list if p_init_msg_list is set to TRUE.
4004: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4005: FND_MSG_PUB.initialize;
4006: END IF;
4007:
4008: -- Initialize API return status to success
4009: x_return_status := FND_API.G_RET_STS_SUCCESS;
4076: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4077: aso_debug_pub.add('Validate_Commitment-Invalid Commitment: ', 1, 'N');
4078: END IF;
4079: x_return_status := FND_API.G_RET_STS_ERROR;
4080: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4081: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_COMMITMENT');
4082: FND_MSG_PUB.ADD;
4083: END IF;
4084: END IF;
4078: END IF;
4079: x_return_status := FND_API.G_RET_STS_ERROR;
4080: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4081: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_COMMITMENT');
4082: FND_MSG_PUB.ADD;
4083: END IF;
4084: END IF;
4085:
4086: CLOSE C_Commitment_Cur;
4165: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4166: aso_debug_pub.add('Validate_Commitment-Invalid Commitment: ', 1, 'N');
4167: END IF;
4168: x_return_status := FND_API.G_RET_STS_ERROR;
4169: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4170: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_COMMITMENT');
4171: FND_MSG_PUB.ADD;
4172: END IF;
4173: END IF;
4167: END IF;
4168: x_return_status := FND_API.G_RET_STS_ERROR;
4169: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4170: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_COMMITMENT');
4171: FND_MSG_PUB.ADD;
4172: END IF;
4173: END IF;
4174:
4175: CLOSE C_Commitment_Cur;
4206: END IF;
4207:
4208: -- Initialize message list if p_init_msg_list is set to TRUE.
4209: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4210: FND_MSG_PUB.initialize;
4211: END IF;
4212:
4213: -- Initialize API return status to success
4214: x_return_status := FND_API.G_RET_STS_SUCCESS;
4220: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4221: aso_debug_pub.add('Validate_Agreement-Agreement Not Found', 1, 'N');
4222: END IF;
4223: x_return_status := FND_API.G_RET_STS_ERROR;
4224: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4225: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_AGREEMENT');
4226: FND_MSG_PUB.ADD;
4227: END IF;
4228: END IF;
4222: END IF;
4223: x_return_status := FND_API.G_RET_STS_ERROR;
4224: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4225: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_AGREEMENT');
4226: FND_MSG_PUB.ADD;
4227: END IF;
4228: END IF;
4229:
4230: IF (trunc(sysdate) NOT BETWEEN trunc(l_Start_Date_Active) AND NVL(trunc(l_End_Date_Active),trunc(sysdate))) THEN
4231: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4232: aso_debug_pub.add('Validate_Agreement-Agreement Invalid', 1, 'N');
4233: END IF;
4234: x_return_status := FND_API.G_RET_STS_ERROR;
4235: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4236: FND_MESSAGE.Set_Name('ASO', 'ASO_INACTIVE_AGREEMENT');
4237: FND_MSG_PUB.ADD;
4238: END IF;
4239: END IF;
4233: END IF;
4234: x_return_status := FND_API.G_RET_STS_ERROR;
4235: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4236: FND_MESSAGE.Set_Name('ASO', 'ASO_INACTIVE_AGREEMENT');
4237: FND_MSG_PUB.ADD;
4238: END IF;
4239: END IF;
4240:
4241: CLOSE C_Agreement_Cur;
4264:
4265: BEGIN
4266: -- Initialize message list if p_init_msg_list is set to TRUE.
4267: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4268: FND_MSG_PUB.initialize;
4269: END IF;
4270:
4271: -- Initialize API return status to success
4272: x_return_status := FND_API.G_RET_STS_SUCCESS;
4278: x_msg_count => x_msg_count,
4279: x_msg_data => x_msg_data);
4280:
4281: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4282: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4283: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
4284: FND_MESSAGE.Set_Token('COLUMN', 'SOURCE_STATUS_ID', FALSE);
4285: FND_MESSAGE.Set_Token('VALUE',to_char(p_source_status_id),FALSE);
4286: FND_MSG_PUB.ADD;
4282: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4283: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
4284: FND_MESSAGE.Set_Token('COLUMN', 'SOURCE_STATUS_ID', FALSE);
4285: FND_MESSAGE.Set_Token('VALUE',to_char(p_source_status_id),FALSE);
4286: FND_MSG_PUB.ADD;
4287: END IF;
4288: RETURN;
4289: END IF;
4290:
4295: x_msg_count => x_msg_count,
4296: x_msg_data => x_msg_data);
4297:
4298: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4299: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4300: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
4301: FND_MESSAGE.Set_Token('COLUMN', 'DEST_STATUS_ID', FALSE);
4302: FND_MESSAGE.Set_Token('VALUE',to_char(p_dest_status_id),FALSE);
4303: FND_MSG_PUB.ADD;
4299: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4300: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
4301: FND_MESSAGE.Set_Token('COLUMN', 'DEST_STATUS_ID', FALSE);
4302: FND_MESSAGE.Set_Token('VALUE',to_char(p_dest_status_id),FALSE);
4303: FND_MSG_PUB.ADD;
4304: END IF;
4305: RETURN;
4306: END IF;
4307:
4308: OPEN c_transition(p_source_status_id, p_dest_status_id);
4309: FETCH c_transition INTO l_transition_id, l_enabled_flag;
4310: IF (c_transition%NOTFOUND) THEN
4311: x_return_status := FND_API.G_RET_STS_ERROR;
4312: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4313: FND_MESSAGE.Set_Name('ASO', 'ASO_NONEXISTENT_STATUS_TRANS');
4314: FND_MSG_PUB.ADD;
4315: END IF;
4316: ELSIF (l_enabled_flag <> 'Y') THEN
4310: IF (c_transition%NOTFOUND) THEN
4311: x_return_status := FND_API.G_RET_STS_ERROR;
4312: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4313: FND_MESSAGE.Set_Name('ASO', 'ASO_NONEXISTENT_STATUS_TRANS');
4314: FND_MSG_PUB.ADD;
4315: END IF;
4316: ELSIF (l_enabled_flag <> 'Y') THEN
4317: x_return_status := FND_API.G_RET_STS_ERROR;
4318: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4314: FND_MSG_PUB.ADD;
4315: END IF;
4316: ELSIF (l_enabled_flag <> 'Y') THEN
4317: x_return_status := FND_API.G_RET_STS_ERROR;
4318: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4319: FND_MESSAGE.Set_Name('ASO', 'ASO_DISABLED_STATUS_TRANS');
4320: FND_MSG_PUB.ADD;
4321: END IF;
4322: END IF;
4316: ELSIF (l_enabled_flag <> 'Y') THEN
4317: x_return_status := FND_API.G_RET_STS_ERROR;
4318: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4319: FND_MESSAGE.Set_Name('ASO', 'ASO_DISABLED_STATUS_TRANS');
4320: FND_MSG_PUB.ADD;
4321: END IF;
4322: END IF;
4323: CLOSE c_transition;
4324:
4346: BEGIN
4347:
4348: -- Initialize message list if p_init_msg_list is set to TRUE.
4349: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4350: FND_MSG_PUB.initialize;
4351: END IF;
4352:
4353: -- Initialize API return status to success
4354: x_return_status := FND_API.G_RET_STS_SUCCESS;
4357: FETCH c_k_template INTO l_major_version;
4358: IF c_k_template%NOTFOUND
4359: THEN
4360: x_return_status := FND_API.G_RET_STS_ERROR;
4361: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4362: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
4363: FND_MESSAGE.Set_Token('COLUMN', 'TEMPLATE_ID', FALSE);
4364: FND_MSG_PUB.ADD;
4365: END IF;
4360: x_return_status := FND_API.G_RET_STS_ERROR;
4361: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4362: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
4363: FND_MESSAGE.Set_Token('COLUMN', 'TEMPLATE_ID', FALSE);
4364: FND_MSG_PUB.ADD;
4365: END IF;
4366: ELSE
4367: IF l_major_version <> p_template_major_version
4368: THEN
4366: ELSE
4367: IF l_major_version <> p_template_major_version
4368: THEN
4369: x_return_status := FND_API.G_RET_STS_ERROR;
4370: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4371: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
4372: FND_MESSAGE.Set_Token('COLUMN', 'TEMPLATE_MAJOR_VERSION', FALSE);
4373: FND_MESSAGE.Set_Token('VALUE',to_char(p_template_major_version),FALSE);
4374: FND_MSG_PUB.ADD;
4370: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4371: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
4372: FND_MESSAGE.Set_Token('COLUMN', 'TEMPLATE_MAJOR_VERSION', FALSE);
4373: FND_MESSAGE.Set_Token('VALUE',to_char(p_template_major_version),FALSE);
4374: FND_MSG_PUB.ADD;
4375: END IF;
4376: END IF;
4377: END IF;
4378:
4508: THEN
4509: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4510: aso_debug_pub.add('Begin FND_API.to_Boolean'||p_init_msg_list, 1, 'Y');
4511: END IF;
4512: FND_MSG_PUB.initialize;
4513: END IF;
4514:
4515: x_return_status := FND_API.G_RET_STS_SUCCESS;
4516:
4697: aso_debug_pub.add('Duplicate record for list_header_id: '
4698: ||m_price_attr_tbl(i).pricing_attribute1,1,'N');
4699: END IF;
4700: x_return_status := FND_API.G_RET_STS_ERROR;
4701: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4702: FND_MESSAGE.Set_Name('ASO', 'ASO_VAL_PROMO_DUPLICATE_HDR');
4703: FND_MESSAGE.Set_Token('MODHDRID', m_price_attr_tbl(i).pricing_attribute1, FALSE);
4704: FND_MSG_PUB.Add;
4705: END IF;
4700: x_return_status := FND_API.G_RET_STS_ERROR;
4701: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4702: FND_MESSAGE.Set_Name('ASO', 'ASO_VAL_PROMO_DUPLICATE_HDR');
4703: FND_MESSAGE.Set_Token('MODHDRID', m_price_attr_tbl(i).pricing_attribute1, FALSE);
4704: FND_MSG_PUB.Add;
4705: END IF;
4706: --RAISE FND_API.G_EXC_ERROR;
4707: End If;
4708: End If;-- m_price_attr_tbl(i).pricing_attribute1 IS NOT NULL
4876: aso_debug_pub.add('Duplicate record for list_line_id: '
4877: ||m_price_attr_tbl(i).pricing_attribute2,1,'N');
4878: END IF;
4879: x_return_status := FND_API.G_RET_STS_ERROR;
4880: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4881: FND_MESSAGE.Set_Name('ASO', 'ASO_VAL_PROMO_DUPLICATE_LN');
4882: FND_MESSAGE.Set_Token('MODLNID', m_price_attr_tbl(i).pricing_attribute2, FALSE);
4883: FND_MSG_PUB.Add;
4884: END IF;
4879: x_return_status := FND_API.G_RET_STS_ERROR;
4880: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4881: FND_MESSAGE.Set_Name('ASO', 'ASO_VAL_PROMO_DUPLICATE_LN');
4882: FND_MESSAGE.Set_Token('MODLNID', m_price_attr_tbl(i).pricing_attribute2, FALSE);
4883: FND_MSG_PUB.Add;
4884: END IF;
4885: --RAISE FND_API.G_EXC_ERROR;
4886: End If;
4887:
4896: IF FND_API.to_Boolean( p_commit ) THEN
4897: COMMIT WORK;
4898: END IF;
4899:
4900: FND_MSG_PUB.Count_And_Get
4901: ( p_encoded => 'F',
4902: p_count => x_msg_count,
4903: p_data => x_msg_data
4904: );
4903: p_data => x_msg_data
4904: );
4905:
4906: for l in 1 .. x_msg_count loop
4907: x_msg_data := fnd_msg_pub.get( p_msg_index => l, p_encoded => 'F');
4908: IF ASO_DEBUG_PUB.G_Debug_Flag = 'Y' THEN
4909: aso_debug_pub.add('Messge count and get '||x_msg_data, 1, 'Y');
4910: aso_debug_pub.add('Messge count and get '||x_msg_count, 1, 'Y');
4911: END IF;
4921: END IF;
4922: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
4923: P_API_NAME => L_API_NAME
4924: ,P_PKG_NAME => G_PKG_NAME
4925: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
4926: ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
4927: ,P_SQLCODE => SQLCODE
4928: ,P_SQLERRM => SQLERRM
4929: ,X_MSG_COUNT => X_MSG_COUNT
4933: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4934: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
4935: P_API_NAME => L_API_NAME
4936: ,P_PKG_NAME => G_PKG_NAME
4937: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
4938: ,P_PACKAGE_TYPE => ASO_UTILITY_PVT.G_PVT
4939: ,P_SQLCODE => SQLCODE
4940: ,P_SQLERRM => SQLERRM
4941: ,X_MSG_COUNT => X_MSG_COUNT
4972:
4973: BEGIN
4974: -- Initialize message list if p_init_msg_list is set to TRUE.
4975: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4976: FND_MSG_PUB.initialize;
4977: END IF;
4978:
4979: -- Inititalizing Global Debug Flag Variable.
4980:
4994: (TRUNC(sysdate) NOT BETWEEN NVL(TRUNC(l_start_date), TRUNC(sysdate)) AND
4995: NVL(TRUNC(l_end_date), TRUNC(sysdate)))) THEN
4996: CLOSE C_Payment_Terms;
4997: x_return_status := FND_API.G_RET_STS_ERROR;
4998: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4999: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
5000: FND_MESSAGE.Set_Token('COLUMN', 'PAYMENT_TERM', FALSE);
5001: FND_MESSAGE.Set_Token('VALUE',to_char(p_payment_term_id),FALSE);
5002: FND_MSG_PUB.ADD;
4998: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4999: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
5000: FND_MESSAGE.Set_Token('COLUMN', 'PAYMENT_TERM', FALSE);
5001: FND_MESSAGE.Set_Token('VALUE',to_char(p_payment_term_id),FALSE);
5002: FND_MSG_PUB.ADD;
5003: END IF;
5004: ELSE
5005: CLOSE C_Payment_Terms;
5006: END IF;
5030:
5031: BEGIN
5032: -- Initialize message list if p_init_msg_list is set to TRUE.
5033: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5034: FND_MSG_PUB.initialize;
5035: END IF;
5036:
5037: -- Inititalizing Global Debug Flag Variable.
5038:
5052: (TRUNC(sysdate) NOT BETWEEN NVL(TRUNC(l_start_date), TRUNC(sysdate)) AND
5053: NVL(TRUNC(l_end_date), TRUNC(sysdate)))) THEN
5054: CLOSE C_Freight_Terms;
5055: x_return_status := FND_API.G_RET_STS_ERROR;
5056: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5057: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
5058: FND_MESSAGE.Set_Token('COLUMN', 'FREIGHT_TERM', FALSE);
5059: FND_MESSAGE.Set_Token('VALUE',p_freight_terms_code,FALSE);
5060: FND_MSG_PUB.ADD;
5056: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5057: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
5058: FND_MESSAGE.Set_Token('COLUMN', 'FREIGHT_TERM', FALSE);
5059: FND_MESSAGE.Set_Token('VALUE',p_freight_terms_code,FALSE);
5060: FND_MSG_PUB.ADD;
5061: END IF;
5062: ELSE
5063: CLOSE C_Freight_Terms;
5064: END IF;
5118: BEGIN
5119:
5120: -- Initialize message list if p_init_msg_list is set to TRUE.
5121: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5122: FND_MSG_PUB.initialize;
5123: END IF;
5124:
5125: -- Inititalizing Global Debug Flag Variable.
5126:
5148: IF C_qte_header_org_info%FOUND THEN
5149: l_org_id := TO_NUMBER(OE_PROFILE.VALUE('OE_ORGANIZATION_ID',l_hdr_org_id));
5150: ELSE
5151: x_return_status := FND_API.G_RET_STS_ERROR;
5152: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5153: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
5154: FND_MESSAGE.Set_Token('COLUMN', 'SHIPPING_METHOD', FALSE);
5155: FND_MESSAGE.Set_Token('VALUE',p_ship_method_code,FALSE);
5156: FND_MSG_PUB.ADD;
5152: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5153: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
5154: FND_MESSAGE.Set_Token('COLUMN', 'SHIPPING_METHOD', FALSE);
5155: FND_MESSAGE.Set_Token('VALUE',p_ship_method_code,FALSE);
5156: FND_MSG_PUB.ADD;
5157: END IF;
5158: END IF;
5159: CLOSE C_qte_header_org_info;
5160: ELSIF (p_qte_line_id IS NOT NULL AND p_qte_line_id <> FND_API.G_MISS_NUM) THEN
5175: IF C_qte_line_org_id_info%FOUND THEN
5176: l_org_id := TO_NUMBER(OE_PROFILE.VALUE('OE_ORGANIZATION_ID',l_line_org_id));
5177: ELSE
5178: x_return_status := FND_API.G_RET_STS_ERROR;
5179: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5180: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
5181: FND_MESSAGE.Set_Token('COLUMN', 'SHIPPING_METHOD', FALSE);
5182: FND_MESSAGE.Set_Token('VALUE',p_ship_method_code,FALSE);
5183: FND_MSG_PUB.ADD;
5179: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5180: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
5181: FND_MESSAGE.Set_Token('COLUMN', 'SHIPPING_METHOD', FALSE);
5182: FND_MESSAGE.Set_Token('VALUE',p_ship_method_code,FALSE);
5183: FND_MSG_PUB.ADD;
5184: END IF;
5185: END IF;
5186:
5187: CLOSE C_qte_line_org_id_info;
5189: CLOSE C_qte_line_organization;
5190: END IF;
5191: ELSIF (p_qte_header_id IS NULL OR p_qte_header_id = FND_API.G_MISS_NUM) THEN
5192: x_return_status := FND_API.G_RET_STS_ERROR;
5193: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5194: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
5195: FND_MESSAGE.Set_Token('COLUMN', 'SHIPPING_METHOD', FALSE);
5196: FND_MESSAGE.Set_Token('VALUE',p_ship_method_code,FALSE);
5197: FND_MSG_PUB.ADD;
5193: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5194: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
5195: FND_MESSAGE.Set_Token('COLUMN', 'SHIPPING_METHOD', FALSE);
5196: FND_MESSAGE.Set_Token('VALUE',p_ship_method_code,FALSE);
5197: FND_MSG_PUB.ADD;
5198: END IF;
5199: END IF;
5200: ELSE -- Ship_from_org_id is not null.
5201: l_org_id := p_ship_from_org_id;
5216: (TRUNC(sysdate) NOT BETWEEN NVL(TRUNC(l_start_date), TRUNC(sysdate)) AND
5217: NVL(TRUNC(l_end_date), TRUNC(sysdate)))) THEN
5218: CLOSE C_ship_method_code;
5219: x_return_status := FND_API.G_RET_STS_ERROR;
5220: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5221: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
5222: FND_MESSAGE.Set_Token('COLUMN', 'SHIP_METHOD_CODE', FALSE);
5223: FND_MESSAGE.Set_Token('VALUE',p_ship_method_code,FALSE);
5224: FND_MSG_PUB.ADD;
5220: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5221: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
5222: FND_MESSAGE.Set_Token('COLUMN', 'SHIP_METHOD_CODE', FALSE);
5223: FND_MESSAGE.Set_Token('VALUE',p_ship_method_code,FALSE);
5224: FND_MSG_PUB.ADD;
5225: END IF;
5226: ELSE
5227: CLOSE C_ship_method_code;
5228: END IF;
5268: IF c_ln_type_for_ord_type%NOTFOUND THEN
5269:
5270: x_return_status := FND_API.G_RET_STS_ERROR;
5271:
5272: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5273: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_LINE_TYPE');
5274: FND_MSG_PUB.ADD;
5275: END IF;
5276: END IF;
5270: x_return_status := FND_API.G_RET_STS_ERROR;
5271:
5272: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5273: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_LINE_TYPE');
5274: FND_MSG_PUB.ADD;
5275: END IF;
5276: END IF;
5277: CLOSE c_ln_type_for_ord_type;
5278: END IF;
5318: IF l_line_category_code = 'RETURN' THEN
5319: IF (l_quote_category_code <> 'MIXED') THEN
5320:
5321: x_return_status := FND_API.G_RET_STS_ERROR;
5322: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5323: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_LINE_CATEGORY_CODE');
5324: FND_MSG_PUB.ADD;
5325: END IF;
5326: END IF;
5320:
5321: x_return_status := FND_API.G_RET_STS_ERROR;
5322: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5323: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_LINE_CATEGORY_CODE');
5324: FND_MSG_PUB.ADD;
5325: END IF;
5326: END IF;
5327:
5328: END IF;
5398:
5399: IF l_ln_hd_po_number is null THEN
5400: x_return_status := FND_API.G_RET_STS_ERROR;
5401:
5402: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5403: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_PO_NUMBER');
5404: FND_MSG_PUB.ADD;
5405: END IF;
5406:
5400: x_return_status := FND_API.G_RET_STS_ERROR;
5401:
5402: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5403: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_PO_NUMBER');
5404: FND_MSG_PUB.ADD;
5405: END IF;
5406:
5407: end if;
5408:
5434: IF l_po_ln_number_lines is not null THEN
5435:
5436: x_return_status := FND_API.G_RET_STS_ERROR;
5437:
5438: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5439: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_PO_NUMBER');
5440: FND_MSG_PUB.ADD;
5441: END IF;
5442: end if;
5436: x_return_status := FND_API.G_RET_STS_ERROR;
5437:
5438: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5439: FND_MESSAGE.Set_Name('ASO', 'ASO_INVALID_PO_NUMBER');
5440: FND_MSG_PUB.ADD;
5441: END IF;
5442: end if;
5443:
5444: close c_po_ln_number_lines;
5449:
5450:
5451: END IF;
5452:
5453: FND_MSG_PUB.Count_And_Get(
5454: p_count => x_msg_count,
5455: p_data => x_msg_data);
5456:
5457: End Validate_po_line_number;
5489: aso_debug_pub.add('Begin validate_service_ref_line_id', 1, 'Y');
5490: end if;
5491:
5492: if p_init_msg_list = fnd_api.g_true then
5493: fnd_msg_pub.initialize;
5494: end if;
5495:
5496: x_return_status := fnd_api.g_ret_sts_success;
5497:
5507: if c_quote%notfound then
5508:
5509: x_return_status := fnd_api.g_ret_sts_error;
5510:
5511: IF fnd_msg_pub.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5512: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
5513: FND_MESSAGE.Set_Token('COLUMN', 'SERVICE_REF_LINE_ID', FALSE);
5514: FND_MESSAGE.Set_Token('VALUE',p_service_ref_line_id,FALSE);
5515: FND_MSG_PUB.ADD;
5511: IF fnd_msg_pub.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5512: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
5513: FND_MESSAGE.Set_Token('COLUMN', 'SERVICE_REF_LINE_ID', FALSE);
5514: FND_MESSAGE.Set_Token('VALUE',p_service_ref_line_id,FALSE);
5515: FND_MSG_PUB.ADD;
5516: END IF;
5517:
5518: end if;
5519:
5531: if c_order%notfound then
5532:
5533: x_return_status := fnd_api.g_ret_sts_error;
5534:
5535: IF fnd_msg_pub.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5536: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
5537: FND_MESSAGE.Set_Token('COLUMN', 'SERVICE_REF_LINE_ID', FALSE);
5538: FND_MESSAGE.Set_Token('VALUE',p_service_ref_line_id,FALSE);
5539: FND_MSG_PUB.ADD;
5535: IF fnd_msg_pub.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5536: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
5537: FND_MESSAGE.Set_Token('COLUMN', 'SERVICE_REF_LINE_ID', FALSE);
5538: FND_MESSAGE.Set_Token('VALUE',p_service_ref_line_id,FALSE);
5539: FND_MSG_PUB.ADD;
5540: END IF;
5541:
5542: end if;
5543:
5555: if c_customer_product%notfound then
5556:
5557: x_return_status := fnd_api.g_ret_sts_error;
5558:
5559: IF fnd_msg_pub.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5560: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
5561: FND_MESSAGE.Set_Token('COLUMN', 'SERVICE_REF_LINE_ID', FALSE);
5562: FND_MESSAGE.Set_Token('VALUE',p_service_ref_line_id,FALSE);
5563: FND_MSG_PUB.ADD;
5559: IF fnd_msg_pub.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5560: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
5561: FND_MESSAGE.Set_Token('COLUMN', 'SERVICE_REF_LINE_ID', FALSE);
5562: FND_MESSAGE.Set_Token('VALUE',p_service_ref_line_id,FALSE);
5563: FND_MSG_PUB.ADD;
5564: END IF;
5565:
5566: end if;
5567:
5569: /*** Start: BugNo 8647883: R12.1.2 Service reference SUN ER ***/
5570: elsif p_service_ref_type_code = 'PRODUCT_CATALOG' then
5571: if p_service_ref_line_id is null then
5572: x_return_status := fnd_api.g_ret_sts_error;
5573: IF fnd_msg_pub.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5574: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
5575: FND_MESSAGE.Set_Token('COLUMN', 'SERVICE_REF_LINE_ID', FALSE);
5576: FND_MESSAGE.Set_Token('VALUE',p_service_ref_line_id,FALSE);
5577: FND_MSG_PUB.ADD;
5573: IF fnd_msg_pub.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5574: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
5575: FND_MESSAGE.Set_Token('COLUMN', 'SERVICE_REF_LINE_ID', FALSE);
5576: FND_MESSAGE.Set_Token('VALUE',p_service_ref_line_id,FALSE);
5577: FND_MSG_PUB.ADD;
5578: END IF;
5579:
5580:
5581: end if;
5866: aso_debug_pub.add('No Data Found for Cursor...C_VALIDATE_PHONE_CONTACT', 1, 'Y');
5867:
5868: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
5869: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_QUOTE_PHONE_NO', TRUE);
5870: FND_MSG_PUB.ADD;
5871: END IF;
5872: aso_debug_pub.add('before Closing the Cursor...C_VALIDATE_PHONE_CONTACT', 1, 'Y');
5873: CLOSE C_VALIDATE_PHONE_CONTACT;
5874: aso_debug_pub.add('After Closing the Cursor...C_VALIDATE_PHONE_CONTACT', 1, 'Y');
5890: aso_debug_pub.add('No Data Found for Cursor...C_VALIDATE_PHONE_CUSTOMER', 1, 'Y');
5891:
5892: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
5893: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_QUOTE_PHONE_NO', TRUE);
5894: FND_MSG_PUB.ADD;
5895: END IF;
5896: aso_debug_pub.add('Before Closing the Cursor...C_VALIDATE_PHONE_CUSTOMER', 1, 'Y');
5897: CLOSE C_VALIDATE_PHONE_CUSTOMER;
5898: aso_debug_pub.add('After Closing the Cursor...C_VALIDATE_PHONE_CUSTOMER', 1, 'Y');
6046: aso_debug_pub.add('No Data Found for Cursor...C_CUST_PARTY(Line Header)', 1, 'Y');
6047:
6048: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
6049: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_QUOTE_CUSTOMER', TRUE);
6050: FND_MSG_PUB.ADD;
6051: END IF;
6052: END IF;
6053:
6054: IF ( p_flag = 'END' ) THEN
6057: aso_debug_pub.add('No Data Found for Cursor...C_CUST_PARTY(Line Header)', 1, 'Y');
6058:
6059: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
6060: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_END_CUSTOMER', TRUE);
6061: FND_MSG_PUB.ADD;
6062: END IF;
6063:
6064: IF ( p_header = 'N' ) THEN
6065: x_quote_line_rec.end_customer_cust_party_id := NULL;
6120: aso_debug_pub.add('No Data Found for Cursor...C_CUST_PARTY_MANAGER(Line/Header)', 1, 'Y');
6121:
6122: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
6123: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_QUOTE_CUSTOMER', TRUE);
6124: FND_MSG_PUB.ADD;
6125: END IF;
6126: END IF;
6127:
6128: IF ( p_flag = 'END' ) THEN
6132: aso_debug_pub.add('No Data Found for Cursor...C_CUST_PARTY_MANAGER(Line/Header)', 1, 'Y');
6133:
6134: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
6135: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_END_CUSTOMER', TRUE);
6136: FND_MSG_PUB.ADD;
6137: END IF;
6138:
6139: IF ( p_header = 'N' ) THEN
6140: x_quote_line_rec.end_customer_cust_party_id := NULL;
6175: IF ( p_header = 'Y' ) THEN
6176: x_quote_header_rec.cust_party_id := NULL;
6177: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
6178: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_QUOTE_CUSTOMER', TRUE);
6179: FND_MSG_PUB.ADD;
6180: END IF;
6181: END IF;
6182:
6183: IF ( p_flag = 'END' ) THEN
6184: IF ( p_header = 'Y' ) THEN
6185: x_quote_header_rec.end_customer_cust_party_id := NULL;
6186: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
6187: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_END_CUSTOMER', TRUE);
6188: FND_MSG_PUB.ADD;
6189: END IF;
6190: IF ( p_header = 'N' ) THEN
6191: x_quote_line_rec.end_customer_cust_party_id := NULL;
6192: END IF;
6304: IF ( p_header = 'Y' ) THEN
6305: x_quote_header_rec.INVOICE_TO_PARTY_ID := NULL;
6306: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
6307: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_BILL_CONTACT', TRUE);
6308: FND_MSG_PUB.ADD;
6309: END IF;
6310:
6311: IF ( p_header = 'N' ) THEN
6312: x_quote_line_rec.INVOICE_TO_PARTY_ID := NULL;
6319: IF ( p_header = 'Y' ) THEN
6320: x_shipment_header_rec.SHIP_TO_PARTY_ID := NULL;
6321: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
6322: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_SHIP_CONTACT', TRUE);
6323: FND_MSG_PUB.ADD;
6324: END IF;
6325:
6326: IF ( p_header = 'N' ) THEN
6327: x_shipment_line_rec.SHIP_TO_PARTY_ID := NULL;
6333: IF ( p_header = 'Y' ) THEN
6334: x_quote_header_rec.END_CUSTOMER_PARTY_ID := NULL;
6335: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
6336: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_END_CONTACT', TRUE);
6337: FND_MSG_PUB.ADD;
6338: END IF;
6339:
6340: IF ( p_header = 'N' ) THEN
6341: x_quote_line_rec.END_CUSTOMER_PARTY_ID := NULL;
6347: IF ( p_header = 'Y' ) THEN
6348: x_quote_header_rec.PARTY_ID := NULL;
6349: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
6350: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_QUOTE_CONTACT', TRUE);
6351: FND_MSG_PUB.ADD;
6352: END IF;
6353: END IF;
6354:
6355: END IF;
6541: IF ( p_header = 'Y' ) THEN
6542: x_quote_header_rec.INVOICE_TO_CUST_PARTY_ID := NULL ;
6543: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
6544: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_BILL_CUSTOMER', TRUE);
6545: FND_MSG_PUB.ADD;
6546: END IF;
6547:
6548: IF ( p_header = 'N' ) THEN
6549: x_quote_line_rec.INVOICE_TO_CUST_PARTY_ID := NULL;
6572: IF ( p_header = 'Y' ) THEN
6573: x_shipment_header_rec.SHIP_TO_CUST_PARTY_ID := NULL;
6574: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
6575: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_SHIP_CUSTOMER', TRUE);
6576: FND_MSG_PUB.ADD;
6577: END IF;
6578:
6579: IF ( p_header = 'N' ) THEN
6580: x_shipment_line_rec.SHIP_TO_CUST_PARTY_ID := NULL;
6626: IF ( p_header = 'Y' ) THEN
6627: x_quote_header_rec.INVOICE_TO_CUST_PARTY_ID := NULL ;
6628: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
6629: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_BILL_CUSTOMER', TRUE);
6630: FND_MSG_PUB.ADD;
6631: END IF;
6632:
6633: IF ( p_header = 'N' ) THEN
6634: x_quote_line_rec.INVOICE_TO_CUST_PARTY_ID := NULL;
6640: IF ( p_header = 'Y' ) THEN
6641: x_shipment_header_rec.SHIP_TO_CUST_PARTY_ID := NULL;
6642: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
6643: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_SHIP_CUSTOMER', TRUE);
6644: FND_MSG_PUB.ADD;
6645: END IF;
6646:
6647: IF ( p_header = 'N' ) THEN
6648: x_shipment_line_rec.SHIP_TO_CUST_PARTY_ID := NULL;
6702: IF ( p_header = 'Y' ) THEN
6703: x_quote_header_rec.INVOICE_TO_CUST_PARTY_ID := NULL ;
6704: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
6705: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_BILL_CUSTOMER', TRUE);
6706: FND_MSG_PUB.ADD;
6707: END IF;
6708:
6709: IF ( p_header = 'N' ) THEN
6710: x_quote_line_rec.INVOICE_TO_CUST_PARTY_ID := NULL;
6716: IF ( p_header = 'Y' ) THEN
6717: x_shipment_header_rec.SHIP_TO_CUST_PARTY_ID := NULL;
6718: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
6719: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_SHIP_CUSTOMER', TRUE);
6720: FND_MSG_PUB.ADD;
6721: END IF;
6722:
6723: IF ( p_header = 'N' ) THEN
6724: x_shipment_line_rec.SHIP_TO_CUST_PARTY_ID := NULL;
6767: IF ( p_header = 'Y' ) THEN
6768: x_quote_header_rec.INVOICE_TO_CUST_PARTY_ID := NULL ;
6769: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
6770: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_BILL_CUSTOMER', TRUE);
6771: FND_MSG_PUB.ADD;
6772: END IF;
6773:
6774: IF ( p_header = 'N' ) THEN
6775: x_quote_line_rec.INVOICE_TO_CUST_PARTY_ID := NULL;
6781: IF ( p_header = 'Y' ) THEN
6782: x_shipment_header_rec.SHIP_TO_CUST_PARTY_ID := NULL;
6783: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
6784: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_SHIP_CUSTOMER', TRUE);
6785: FND_MSG_PUB.ADD;
6786: END IF;
6787:
6788: IF ( p_header = 'N' ) THEN
6789: x_shipment_line_rec.SHIP_TO_CUST_PARTY_ID := NULL;
7065: IF ( p_header = 'Y' ) THEN
7066: x_quote_header_rec.invoice_to_cust_account_id := NULL;
7067: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7068: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_BILL_ACCOUNT', TRUE);
7069: FND_MSG_PUB.ADD;
7070: END IF;
7071: IF ( p_header = 'N' ) THEN
7072: x_quote_line_rec.invoice_to_cust_account_id := NULL;
7073: END IF;
7097: IF ( p_header = 'Y' ) THEN
7098: x_shipment_header_rec.ship_to_cust_account_id := NULL;
7099: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7100: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_SHIP_ACCOUNT', TRUE);
7101: FND_MSG_PUB.ADD;
7102: END IF;
7103: IF ( p_header = 'N' ) THEN
7104: x_shipment_line_rec.ship_to_cust_account_id := NULL;
7105: END IF;
7148: IF ( p_header = 'Y' ) THEN
7149: x_quote_header_rec.invoice_to_cust_account_id := NULL;
7150: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7151: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_BILL_ACCOUNT', TRUE);
7152: FND_MSG_PUB.ADD;
7153: END IF;
7154: IF ( p_header = 'N' ) THEN
7155: x_quote_line_rec.invoice_to_cust_account_id := NULL;
7156: END IF;
7159: IF ( p_header = 'Y' ) THEN
7160: x_shipment_header_rec.ship_to_cust_account_id := NULL;
7161: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7162: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_SHIP_ACCOUNT', TRUE);
7163: FND_MSG_PUB.ADD;
7164: END IF;
7165: IF ( p_header = 'N' ) THEN
7166: x_shipment_line_rec.ship_to_cust_account_id := NULL;
7167: END IF;
7217: IF ( p_header = 'Y' ) THEN
7218: x_quote_header_rec.invoice_to_cust_account_id := NULL;
7219: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7220: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_BILL_ACCOUNT', TRUE);
7221: FND_MSG_PUB.ADD;
7222: END IF;
7223: IF ( p_header = 'N' ) THEN
7224: x_quote_line_rec.invoice_to_cust_account_id := NULL;
7225: END IF;
7229: IF ( p_header = 'Y' ) THEN
7230: x_shipment_header_rec.ship_to_cust_account_id := NULL;
7231: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7232: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_SHIP_ACCOUNT', TRUE);
7233: FND_MSG_PUB.ADD;
7234: END IF;
7235: IF ( p_header = 'N' ) THEN
7236: x_shipment_line_rec.ship_to_cust_account_id := NULL;
7237: END IF;
7274: IF ( p_header = 'Y' ) THEN
7275: x_quote_header_rec.invoice_to_cust_account_id := NULL;
7276: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7277: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_BILL_ACCOUNT', TRUE);
7278: FND_MSG_PUB.ADD;
7279: END IF;
7280: IF ( p_header = 'N' ) THEN
7281: x_quote_line_rec.invoice_to_cust_account_id := NULL;
7282: END IF;
7286: IF ( p_header = 'Y' ) THEN
7287: x_shipment_header_rec.ship_to_cust_account_id := NULL;
7288: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7289: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_SHIP_ACCOUNT', TRUE);
7290: FND_MSG_PUB.ADD;
7291: END IF;
7292:
7293: IF ( p_header = 'N' ) THEN
7294: x_shipment_line_rec.ship_to_cust_account_id := NULL;
7421: IF ( p_header = 'Y' ) THEN
7422: x_quote_header_rec.INVOICE_TO_PARTY_SITE_ID := NULL;
7423: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7424: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_BILL_ADDRESS', TRUE);
7425: FND_MSG_PUB.ADD;
7426: END IF;
7427:
7428: IF ( p_header = 'N' ) THEN
7429: x_quote_line_rec.INVOICE_TO_PARTY_SITE_ID := NULL;
7434: IF ( p_header = 'Y' ) THEN
7435: x_shipment_header_rec.SHIP_TO_PARTY_SITE_ID := NULL;
7436: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7437: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_SHIP_ADDRESS', TRUE);
7438: FND_MSG_PUB.ADD;
7439: END IF;
7440:
7441: IF ( p_header = 'N' ) THEN
7442: x_shipment_line_rec.SHIP_TO_PARTY_SITE_ID := NULL;
7447: IF ( p_header = 'Y' ) THEN
7448: x_quote_header_rec.END_CUSTOMER_PARTY_SITE_ID := NULL;
7449: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7450: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_END_ADDRESS', TRUE);
7451: FND_MSG_PUB.ADD;
7452: END IF;
7453:
7454: IF ( p_header = 'N' ) THEN
7455: x_quote_line_rec.END_CUSTOMER_PARTY_SITE_ID := NULL;
7460: IF ( p_header = 'Y' ) THEN
7461: x_quote_header_rec.SOLD_TO_PARTY_SITE_ID := NULL;
7462: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7463: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_QUOTE_ADDRESS', TRUE);
7464: FND_MSG_PUB.ADD;
7465: END IF;
7466: END IF;
7467: aso_debug_pub.add('No data found for the cursor...C_CUST_ACCOUNT_MANAGER', 1, 'Y');
7468: END IF ;
7523: IF ( p_header = 'Y' ) THEN
7524: x_quote_header_rec.INVOICE_TO_PARTY_SITE_ID := NULL;
7525: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7526: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_BILL_ADDRESS', TRUE);
7527: FND_MSG_PUB.ADD;
7528: END IF;
7529:
7530: IF ( p_header = 'N' ) THEN
7531: x_quote_line_rec.INVOICE_TO_PARTY_SITE_ID := NULL;
7536: IF ( p_header = 'Y' ) THEN
7537: x_shipment_header_rec.SHIP_TO_PARTY_SITE_ID := NULL;
7538: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7539: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_SHIP_ADDRESS', TRUE);
7540: FND_MSG_PUB.ADD;
7541: END IF;
7542:
7543: IF ( p_header = 'N' ) THEN
7544: x_shipment_line_rec.SHIP_TO_PARTY_SITE_ID := NULL;
7549: IF ( p_header = 'Y' ) THEN
7550: x_quote_header_rec.END_CUSTOMER_PARTY_SITE_ID := NULL;
7551: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7552: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_END_ADDRESS', TRUE);
7553: FND_MSG_PUB.ADD;
7554: END IF;
7555:
7556: IF ( p_header = 'N' ) THEN
7557: x_quote_line_rec.END_CUSTOMER_PARTY_SITE_ID := NULL;
7562: IF ( p_header = 'Y' ) THEN
7563: x_quote_header_rec.SOLD_TO_PARTY_SITE_ID := NULL;
7564: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7565: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_QUOTE_ADDRESS', TRUE);
7566: FND_MSG_PUB.ADD;
7567: END IF;
7568: END IF;
7569: aso_debug_pub.add('No Data Found for the cursor...C_CUST_PARTY_ADDRESS_NOT_NULL', 1, 'Y');
7570: END IF ;
7625: IF ( p_header = 'Y' ) THEN
7626: x_quote_header_rec.INVOICE_TO_PARTY_SITE_ID := NULL;
7627: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7628: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_BILL_ADDRESS', TRUE);
7629: FND_MSG_PUB.ADD;
7630: END IF;
7631:
7632: IF ( p_header = 'N' ) THEN
7633: x_quote_line_rec.INVOICE_TO_PARTY_SITE_ID := NULL;
7638: IF ( p_header = 'Y' ) THEN
7639: x_shipment_header_rec.SHIP_TO_PARTY_SITE_ID := NULL;
7640: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7641: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_SHIP_ADDRESS', TRUE);
7642: FND_MSG_PUB.ADD;
7643: END IF;
7644:
7645: IF ( p_header = 'N' ) THEN
7646: x_shipment_line_rec.SHIP_TO_PARTY_SITE_ID := NULL;
7651: IF ( p_header = 'Y' ) THEN
7652: x_quote_header_rec.END_CUSTOMER_PARTY_SITE_ID := NULL;
7653: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7654: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_END_ADDRESS', TRUE);
7655: FND_MSG_PUB.ADD;
7656: END IF;
7657:
7658: IF ( p_header = 'N' ) THEN
7659: x_quote_line_rec.END_CUSTOMER_PARTY_SITE_ID := NULL;
7664: IF ( p_header = 'Y' ) THEN
7665: x_quote_header_rec.SOLD_TO_PARTY_SITE_ID := NULL;
7666: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7667: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_QUOTE_ADDRESS', TRUE);
7668: FND_MSG_PUB.ADD;
7669: END IF;
7670: END IF;
7671: aso_debug_pub.add('no data found for the cursor...C_CUSTOMER_ADDRESS_NOT_NULL', 1, 'Y');
7672: END IF ;
7827: IF ( p_header = 'Y' ) THEN
7828: x_quote_header_rec.CUST_ACCOUNT_ID := NULL;
7829: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7830: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_QUOTE_ACCOUNT', TRUE);
7831: FND_MSG_PUB.ADD;
7832: END IF;
7833: END IF;
7834: IF ( p_flag = 'END' ) THEN
7835: IF ( p_header = 'Y' ) THEN
7835: IF ( p_header = 'Y' ) THEN
7836: x_quote_header_rec.END_CUSTOMER_CUST_ACCOUNT_ID := NULL;
7837: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7838: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_END_ACCOUNT', TRUE);
7839: FND_MSG_PUB.ADD;
7840: END IF;
7841: IF ( p_header = 'N' ) THEN
7842: x_quote_line_rec.END_CUSTOMER_CUST_ACCOUNT_ID := NULL;
7843: END IF;
7893: IF ( p_header = 'Y' ) THEN
7894: x_quote_header_rec.CUST_ACCOUNT_ID := NULL;
7895: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7896: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_QUOTE_ACCOUNT', TRUE);
7897: FND_MSG_PUB.ADD;
7898: END IF;
7899: END IF;
7900: IF ( p_flag = 'END' ) THEN
7901: IF ( p_header = 'Y' ) THEN
7901: IF ( p_header = 'Y' ) THEN
7902: x_quote_header_rec.END_CUSTOMER_CUST_ACCOUNT_ID := NULL;
7903: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7904: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_END_ACCOUNT', TRUE);
7905: FND_MSG_PUB.ADD;
7906: END IF;
7907: IF ( p_header = 'N' ) THEN
7908: x_quote_line_rec.END_CUSTOMER_CUST_ACCOUNT_ID := NULL;
7909: END IF;
7942: IF ( p_header = 'Y' ) THEN
7943: x_quote_header_rec.CUST_ACCOUNT_ID := NULL;
7944: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7945: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_QUOTE_ACCOUNT', TRUE);
7946: FND_MSG_PUB.ADD;
7947: END IF;
7948: END IF;
7949: IF ( p_flag = 'END' ) THEN
7950: IF ( p_header = 'Y' ) THEN
7950: IF ( p_header = 'Y' ) THEN
7951: x_quote_header_rec.END_CUSTOMER_CUST_ACCOUNT_ID := NULL;
7952: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
7953: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_END_ACCOUNT', TRUE);
7954: FND_MSG_PUB.ADD;
7955: END IF;
7956: IF ( p_header = 'N' ) THEN
7957: x_quote_line_rec.END_CUSTOMER_CUST_ACCOUNT_ID := NULL;
7958: END IF;
8391: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8392: -- END IF;
8393: -- Initialize message list if p_init_msg_list is set to TRUE.
8394: IF FND_API.to_Boolean( p_init_msg_list ) THEN
8395: FND_MSG_PUB.initialize;
8396: END IF;
8397:
8398: --- Initialize API return status to SUCCESS
8399: x_return_status := FND_API.G_RET_STS_SUCCESS;
8442: aso_debug_pub.add('No Data Found for Cursor...C_SHIPMENT_PRIORITY_CODE--Header Level', 1, 'Y');
8443:
8444: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
8445: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_SHPMT_PRIORITY', TRUE);
8446: FND_MSG_PUB.ADD;
8447:
8448: aso_debug_pub.add('No Data Found for Cursor C_SHIPMENT_PRIORITY_CODE--Header Level', 1, 'Y');
8449: END IF;
8450: aso_debug_pub.add('Before Closing Cursor C_SHIPMENT_PRIORITY_CODE-Header Level', 1, 'Y');
8492: aso_debug_pub.add('No Data Found for Cursor...C_FOB--Header Level', 1, 'Y');
8493:
8494: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
8495: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_FOB', TRUE);
8496: FND_MSG_PUB.ADD;
8497:
8498: --x_return_status := FND_API.G_RET_STS_ERROR;
8499: END IF;
8500: aso_debug_pub.add('Before Closing Cursor C_FOB--Header Level', 1, 'Y');
8543: aso_debug_pub.add('No Data Found for Cursor...C_CREDIT_CARD_TYPE--Header Level', 1, 'Y');
8544:
8545: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
8546: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_CREDIT_CARD_TYPE', TRUE);
8547: FND_MSG_PUB.ADD;
8548:
8549: --x_return_status := FND_API.G_RET_STS_ERROR;
8550: END IF;
8551: aso_debug_pub.add('Before Closing Cursor C_CREDIT_CARD_TYPE--Header Level', 1, 'Y');
8557: aso_debug_pub.add('Credit card code needs to be null if payment type is not CREDIT_CARD.', 1, 'Y');
8558:
8559: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
8560: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_CREDIT_CARD_TYPE', TRUE);
8561: FND_MSG_PUB.ADD;
8562:
8563: END IF ;
8564: end if;
8565:
8609: aso_debug_pub.add('No Data Found for Cursor...C_DEMAND_CLASS--Header Level', 1, 'Y');
8610:
8611: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
8612: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_DEMAND_CLASS', TRUE);
8613: FND_MSG_PUB.ADD;
8614: --x_return_status := FND_API.G_RET_STS_ERROR;
8615: END IF;
8616: aso_debug_pub.add('before Closing Cursor C_DEMAND_CLASS--Header Level', 1, 'Y');
8617: CLOSE C_DEMAND_CLASS;
8658: aso_debug_pub.add('No Data Found for Cursor...C_REQUEST_DATE_TYPE--Header Level', 1, 'Y');
8659:
8660: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
8661: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_RQSTD_DATE_TYPE', TRUE);
8662: FND_MSG_PUB.ADD;
8663:
8664: --x_return_status := FND_API.G_RET_STS_ERROR;
8665: END IF;
8666: aso_debug_pub.add('Before closing Cursor C_REQUEST_DATE_TYPE--Header Level', 1, 'Y');
8708: aso_debug_pub.add('No Data Found for Cursor...C_REQUEST_DATE--Header Level', 1, 'Y');
8709:
8710: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
8711: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_REQUESTED_DATE', TRUE);
8712: FND_MSG_PUB.ADD;
8713:
8714: --x_return_status := FND_API.G_RET_STS_ERROR;
8715: END IF;
8716: aso_debug_pub.add('before Closing Cursor C_REQUEST_DATE--Header Level', 1, 'Y');
8761: x_quote_header_rec.ORG_ID := NULL;
8762:
8763: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
8764: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_OPERATING_UNIT', TRUE);
8765: FND_MSG_PUB.ADD;
8766: end if;
8767: ELSE
8768: x_quote_header_rec.ORG_ID := NULL ;
8769: aso_debug_pub.add('No Data Found for Cursor...C_OPERATING_UNIT', 1, 'Y');
8769: aso_debug_pub.add('No Data Found for Cursor...C_OPERATING_UNIT', 1, 'Y');
8770:
8771: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
8772: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_OPERATING_UNIT', TRUE);
8773: FND_MSG_PUB.ADD;
8774:
8775: --x_return_status := FND_API.G_RET_STS_ERROR;
8776: END IF;
8777: aso_debug_pub.add('Before closing Cursor C_OPERATING_UNIT--Header Level', 1, 'Y');
8849: aso_debug_pub.add('No Data Found for Cursor...C_AUTOMATIC_PRICING', 1, 'Y');
8850:
8851: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
8852: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_AUTO_PRICING', TRUE);
8853: FND_MSG_PUB.ADD;
8854: --x_return_status := FND_API.G_RET_STS_ERROR;
8855: END IF;
8856: aso_debug_pub.add('Before closing Cursor C_AUTOMATIC_PRICING', 1, 'Y');
8857: CLOSE C_AUTOMATIC_PRICING;
8877: aso_debug_pub.add('No Data Found for Cursor...C_AUTOMATIC_TAX', 1, 'Y');
8878:
8879: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
8880: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_AUTOMATIC_TAX', TRUE);
8881: FND_MSG_PUB.ADD;
8882:
8883: --x_return_status := FND_API.G_RET_STS_ERROR;
8884: END IF;
8885: aso_debug_pub.add('Before closing Cursor C_AUTOMATIC_TAX', 1, 'Y');
8907: aso_debug_pub.add('No Data Found for Cursor...C_PAYMENT_TYPE--Header Level', 1, 'Y');
8908:
8909: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
8910: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_PAYMENT_TYPE', TRUE);
8911: FND_MSG_PUB.ADD;
8912:
8913: --x_return_status := FND_API.G_RET_STS_ERROR;
8914: END IF;
8915: aso_debug_pub.add('before Closing Cursor C_PAYMENT_TYPE--Header Level', 1, 'Y');
8961: aso_debug_pub.add('No Data Found for Cursor...C_SALESCHANNEL', 1, 'Y');
8962:
8963: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
8964: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_SALES_CHANNEL', TRUE);
8965: FND_MSG_PUB.ADD;
8966:
8967: --x_return_status := FND_API.G_RET_STS_ERROR;
8968:
8969: END IF;
8994: aso_debug_pub.add('No Data Found for Cursor...C_QOTHDDET_CURRENCY_NOT_NULL', 1, 'Y');
8995:
8996: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
8997: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_CURRENCY', TRUE);
8998: FND_MSG_PUB.ADD;
8999:
9000: --x_return_status := FND_API.G_RET_STS_ERROR;
9001:
9002: END IF;
9020: aso_debug_pub.add('No Data Found for Cursor...C_QOTHDDET_CURRENCY_NULL', 1, 'Y');
9021:
9022: FND_MESSAGE.SET_NAME('ASO', 'ASO_DFLT_VLDN_ERR_MSG');
9023: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', 'ASO_DFLT_VLDN_CURRENCY', TRUE);
9024: FND_MSG_PUB.ADD;
9025: --x_return_status := FND_API.G_RET_STS_ERROR;
9026:
9027: END IF;
9028: aso_debug_pub.add('Before closing Cursor..C_QOTHDDET_CURRENCY_NULL', 1, 'Y');
9513:
9514: --TCA Calls End
9515:
9516: -- Standard call to get message count and if count is 1, get message info.
9517: FND_MSG_PUB.Count_And_Get
9518: ( p_count => x_msg_count,
9519: p_data => x_msg_data
9520: );
9521:
9559: aso_debug_pub.add('Begin Validate_payment_rec', 1, 'Y');
9560: end if;
9561:
9562: if p_init_msg_list = fnd_api.g_true then
9563: fnd_msg_pub.initialize;
9564: end if;
9565:
9566: x_return_status := fnd_api.g_ret_sts_success;
9567:
9585: then
9586:
9587: x_return_status := fnd_api.g_ret_sts_error;
9588:
9589: IF fnd_msg_pub.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
9590: FND_MESSAGE.Set_Name('ASO', 'ASO_MISSING_BILLTOPARTY');
9591: FND_MSG_PUB.ADD;
9592: END IF;
9593:
9587: x_return_status := fnd_api.g_ret_sts_error;
9588:
9589: IF fnd_msg_pub.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
9590: FND_MESSAGE.Set_Name('ASO', 'ASO_MISSING_BILLTOPARTY');
9591: FND_MSG_PUB.ADD;
9592: END IF;
9593:
9594: end if;
9595:
9606: if nvl(l_payment_type_code,'null') = 'CREDIT_CARD' then
9607:
9608: x_return_status := fnd_api.g_ret_sts_error;
9609:
9610: IF fnd_msg_pub.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
9611: FND_MESSAGE.Set_Name('ASO', 'ASO_MISSING_PAYMENT_DETAILS');
9612: FND_MSG_PUB.ADD;
9613: END IF;
9614:
9608: x_return_status := fnd_api.g_ret_sts_error;
9609:
9610: IF fnd_msg_pub.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
9611: FND_MESSAGE.Set_Name('ASO', 'ASO_MISSING_PAYMENT_DETAILS');
9612: FND_MSG_PUB.ADD;
9613: END IF;
9614:
9615: end if;
9616:
9627: if c_get_lines_with_null_payment%FOUND Then
9628: close c_get_lines_with_null_payment;
9629: x_return_status := fnd_api.g_ret_sts_error;
9630:
9631: IF fnd_msg_pub.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
9632: FND_MESSAGE.Set_Name('ASO', 'ASO_MISSING_LN_PAYMENT_DETAILS');
9633: FND_MSG_PUB.ADD;
9634: END IF;
9635:
9629: x_return_status := fnd_api.g_ret_sts_error;
9630:
9631: IF fnd_msg_pub.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
9632: FND_MESSAGE.Set_Name('ASO', 'ASO_MISSING_LN_PAYMENT_DETAILS');
9633: FND_MSG_PUB.ADD;
9634: END IF;
9635:
9636: end if;
9637:
9662: IF ((p_qte_header_rec.org_id <> FND_API.G_MISS_NUM)
9663: AND (p_qte_header_rec.org_id IS NOT NULL)
9664: AND (l_org_id <> p_qte_header_rec.org_id)) THEN
9665:
9666: IF fnd_msg_pub.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
9667: FND_MESSAGE.Set_Name('ASO', 'ASO_ORG_ID_MISMATCH');
9668: FND_MSG_PUB.ADD;
9669: END IF;
9670:
9664: AND (l_org_id <> p_qte_header_rec.org_id)) THEN
9665:
9666: IF fnd_msg_pub.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
9667: FND_MESSAGE.Set_Name('ASO', 'ASO_ORG_ID_MISMATCH');
9668: FND_MSG_PUB.ADD;
9669: END IF;
9670:
9671: RAISE FND_API.G_EXC_ERROR;
9672: END IF;
9671: RAISE FND_API.G_EXC_ERROR;
9672: END IF;
9673: END ;
9674: ELSE
9675: IF fnd_msg_pub.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
9676: FND_MESSAGE.Set_Name('ASO', 'ASO_WRONG_ACCESS_MODE');
9677: FND_MSG_PUB.ADD;
9678: END IF;
9679:
9673: END ;
9674: ELSE
9675: IF fnd_msg_pub.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
9676: FND_MESSAGE.Set_Name('ASO', 'ASO_WRONG_ACCESS_MODE');
9677: FND_MSG_PUB.ADD;
9678: END IF;
9679:
9680: RAISE FND_API.G_EXC_ERROR;
9681: END IF;
9733: aso_debug_pub.add('Begin validate_ship_method_code', 1, 'Y');
9734: end if;
9735:
9736: if p_init_msg_list = fnd_api.g_true then
9737: fnd_msg_pub.initialize;
9738: end if;
9739:
9740: x_return_status := fnd_api.g_ret_sts_success;
9741:
9759:
9760: if C_Get_ship_method%NOTFOUND THEN
9761: Close C_Get_ship_method;
9762: x_return_status := FND_API.G_RET_STS_ERROR;
9763: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
9764: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
9765: FND_MESSAGE.Set_Token('COLUMN', 'SHIP_METHOD', FALSE);
9766: FND_MESSAGE.Set_Token('VALUE', p_ship_method_code, FALSE);
9767: FND_MSG_PUB.ADD;
9763: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
9764: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
9765: FND_MESSAGE.Set_Token('COLUMN', 'SHIP_METHOD', FALSE);
9766: FND_MESSAGE.Set_Token('VALUE', p_ship_method_code, FALSE);
9767: FND_MSG_PUB.ADD;
9768: END IF;
9769: else
9770: Close C_Get_ship_method;
9771: end if;
9808:
9809: if C_Get_ship_method%NOTFOUND THEN
9810: Close C_Get_ship_method;
9811: x_return_status := FND_API.G_RET_STS_ERROR;
9812: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
9813: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
9814: FND_MESSAGE.Set_Token('COLUMN', 'SHIP_METHOD', FALSE);
9815: FND_MESSAGE.Set_Token('VALUE', l_ship_method_code, FALSE);
9816: FND_MSG_PUB.ADD;
9812: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
9813: FND_MESSAGE.Set_Name('ASO', 'ASO_API_INVALID_ID');
9814: FND_MESSAGE.Set_Token('COLUMN', 'SHIP_METHOD', FALSE);
9815: FND_MESSAGE.Set_Token('VALUE', l_ship_method_code, FALSE);
9816: FND_MSG_PUB.ADD;
9817: END IF;
9818: else
9819: Close C_Get_ship_method;
9820: end if;