[Home] [Help]
136: -- If no channel code is passed / null, then also let it be as is.
137: -- Channel selection engine will assign an appropriate channel
138:
139: /* IF (px_SALES_LEAD_rec.channel_code IS NULL) OR
140: (px_SALES_LEAD_rec.channel_code = FND_API.G_MISS_CHAR
141: AND p_mode = AS_UTILITY_PVT.G_CREATE)
142: THEN
143: px_SALES_LEAD_rec.channel_code := FND_PROFILE.VALUE ('AS_DEFAULT_LEAD_CHANNEL');
144: END IF; */
143: px_SALES_LEAD_rec.channel_code := FND_PROFILE.VALUE ('AS_DEFAULT_LEAD_CHANNEL');
144: END IF; */
145:
146: IF (px_SALES_LEAD_rec.status_code IS NULL) OR
147: (px_SALES_LEAD_rec.status_code = FND_API.G_MISS_CHAR
148: AND p_mode = AS_UTILITY_PVT.G_CREATE)
149: THEN
150: px_SALES_LEAD_rec.status_code := FND_PROFILE.VALUE ('AS_DEFAULT_LEAD_STATUS');
151: END IF;
151: END IF;
152:
153:
154: IF (px_SALES_LEAD_rec.vehicle_response_code IS NULL) OR
155: (px_SALES_LEAD_rec.vehicle_response_code = FND_API.G_MISS_CHAR
156: AND p_mode = AS_UTILITY_PVT.G_CREATE)
157: THEN
158: px_SALES_LEAD_rec.vehicle_response_code := FND_PROFILE.VALUE ('AS_DEFAULT_LEAD_VEHICLE_RESPONSE_CODE');
159: END IF;
159: END IF;
160:
161:
162: IF (px_SALES_LEAD_rec.budget_status_code IS NULL) OR
163: (px_SALES_LEAD_rec.budget_status_code = FND_API.G_MISS_CHAR
164: AND p_mode = AS_UTILITY_PVT.G_CREATE)
165: THEN
166: px_SALES_LEAD_rec.budget_status_code := FND_PROFILE.VALUE ('AS_DEFAULT_LEAD_BUDGET_STATUS');
167: END IF;
168:
169:
170:
171: IF (px_SALES_LEAD_rec.decision_timeframe_code IS NULL) OR
172: (px_SALES_LEAD_rec.decision_timeframe_code = FND_API.G_MISS_CHAR
173: AND p_mode = AS_UTILITY_PVT.G_CREATE)
174: THEN
175: px_SALES_LEAD_rec.decision_timeframe_code := FND_PROFILE.VALUE ('AS_DEFAULT_LEAD_DECISION_TIMEFRAME');
176: END IF;
179:
180:
181:
182: IF (px_SALES_LEAD_rec.auto_assignment_type IS NULL) OR
183: (px_SALES_LEAD_rec.auto_assignment_type = FND_API.G_MISS_CHAR
184: AND p_mode = AS_UTILITY_PVT.G_CREATE)
185: THEN
186: px_SALES_LEAD_rec.auto_assignment_type := 'TAP';
187: END IF;
186: px_SALES_LEAD_rec.auto_assignment_type := 'TAP';
187: END IF;
188:
189: IF (px_SALES_LEAD_rec.prm_assignment_type IS NULL) OR
190: (px_SALES_LEAD_rec.prm_assignment_type = FND_API.G_MISS_CHAR
191: AND p_mode = AS_UTILITY_PVT.G_CREATE)
192: THEN
193: px_SALES_LEAD_rec.prm_assignment_type := 'UNASSIGNED';
194: END IF;
196:
197:
198:
199: IF (px_SALES_LEAD_rec.ACCEPT_FLAG IS NULL) OR
200: (px_SALES_LEAD_rec.ACCEPT_FLAG = FND_API.G_MISS_CHAR
201: AND p_mode = AS_UTILITY_PVT.G_CREATE)
202: THEN
203: px_SALES_LEAD_rec.ACCEPT_FLAG := 'N';
204: END IF;
203: px_SALES_LEAD_rec.ACCEPT_FLAG := 'N';
204: END IF;
205:
206: IF (px_SALES_LEAD_rec.KEEP_FLAG IS NULL) OR
207: (px_SALES_LEAD_rec.KEEP_FLAG = FND_API.G_MISS_CHAR
208: AND p_mode = AS_UTILITY_PVT.G_CREATE)
209: THEN
210: px_SALES_LEAD_rec.KEEP_FLAG := 'N';
211: END IF;
210: px_SALES_LEAD_rec.KEEP_FLAG := 'N';
211: END IF;
212:
213: IF (px_SALES_LEAD_rec.URGENT_FLAG IS NULL) OR
214: (px_SALES_LEAD_rec.URGENT_FLAG = FND_API.G_MISS_CHAR
215: AND p_mode = AS_UTILITY_PVT.G_CREATE)
216: THEN
217: px_SALES_LEAD_rec.URGENT_FLAG := 'N';
218: END IF;
217: px_SALES_LEAD_rec.URGENT_FLAG := 'N';
218: END IF;
219:
220: IF (px_SALES_LEAD_rec.IMPORT_FLAG IS NULL) OR
221: (px_SALES_LEAD_rec.IMPORT_FLAG = FND_API.G_MISS_CHAR
222: AND p_mode = AS_UTILITY_PVT.G_CREATE)
223: THEN
224: px_SALES_LEAD_rec.IMPORT_FLAG := 'N';
225: END IF;
224: px_SALES_LEAD_rec.IMPORT_FLAG := 'N';
225: END IF;
226:
227: IF (px_SALES_LEAD_rec.DELETED_FLAG IS NULL) OR
228: (px_SALES_LEAD_rec.DELETED_FLAG = FND_API.G_MISS_CHAR
229: AND p_mode = AS_UTILITY_PVT.G_CREATE)
230: THEN
231: px_SALES_LEAD_rec.DELETED_FLAG := 'N';
232: END IF;
232: END IF;
233:
234:
235: IF (px_SALES_LEAD_rec.QUALIFIED_FLAG IS NULL) OR
236: (px_SALES_LEAD_rec.QUALIFIED_FLAG = FND_API.G_MISS_CHAR
237: AND p_mode = AS_UTILITY_PVT.G_CREATE)
238: THEN
239: px_SALES_LEAD_rec.QUALIFIED_FLAG := 'N';
240: END IF;
238: THEN
239: px_SALES_LEAD_rec.QUALIFIED_FLAG := 'N';
240: END IF;
241: IF (px_SALES_LEAD_rec.LEAD_RANK_IND IS NULL) OR
242: (px_SALES_LEAD_rec.LEAD_RANK_IND = FND_API.G_MISS_CHAR
243: AND p_mode = AS_UTILITY_PVT.G_CREATE)
244: THEN
245: px_SALES_LEAD_rec.LEAD_RANK_IND := 'N';
246: END IF;
246: END IF;
247:
248:
249: --IF (px_SALES_LEAD_rec.budget_amount is not NULL) and
250: -- (px_SALES_LEAD_rec.budget_amount <> FND_API.G_MISS_NUM)
251: --THEN
252: If (px_SALES_LEAD_rec.currency_code IS NULL) or
253: (px_SALES_LEAD_rec.currency_code = FND_API.G_MISS_CHAR
254: and p_mode = AS_UTILITY_PVT.G_CREATE)
249: --IF (px_SALES_LEAD_rec.budget_amount is not NULL) and
250: -- (px_SALES_LEAD_rec.budget_amount <> FND_API.G_MISS_NUM)
251: --THEN
252: If (px_SALES_LEAD_rec.currency_code IS NULL) or
253: (px_SALES_LEAD_rec.currency_code = FND_API.G_MISS_CHAR
254: and p_mode = AS_UTILITY_PVT.G_CREATE)
255: THEN
256: px_SALES_LEAD_rec.currency_code :=
257: FND_PROFILE.VALUE('JTF_PROFILE_DEFAULT_CURRENCY');
273:
274: /* Since this column is not required, this validation procedure
275: is not needed any more. ffang 05/15/00
276: PROCEDURE Validate_LEAD_NUMBER (
277: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
278: P_Validation_mode IN VARCHAR2,
279: P_LEAD_NUMBER IN VARCHAR2,
280: X_Return_Status OUT NOCOPY VARCHAR2,
281: X_Msg_Count OUT NOCOPY NUMBER,
283: )
284: IS
285: BEGIN
286: -- Initialize message list IF p_init_msg_list is set to TRUE.
287: IF FND_API.to_Boolean( p_init_msg_list )
288: THEN
289: FND_MSG_PUB.initialize;
290: END IF;
291:
289: FND_MSG_PUB.initialize;
290: END IF;
291:
292: -- Initialize API return status to SUCCESS
293: x_return_status := FND_API.G_RET_STS_SUCCESS;
294:
295: -- Validate Lead Number
296: IF(p_validation_mode = AS_UTILITY_PVT.G_CREATE) THEN
297: IF (p_LEAD_NUMBER is NULL OR p_LEAD_NUMBER = FND_API.G_MISS_CHAR) THEN
293: x_return_status := FND_API.G_RET_STS_SUCCESS;
294:
295: -- Validate Lead Number
296: IF(p_validation_mode = AS_UTILITY_PVT.G_CREATE) THEN
297: IF (p_LEAD_NUMBER is NULL OR p_LEAD_NUMBER = FND_API.G_MISS_CHAR) THEN
298: x_return_status := FND_API.G_RET_STS_ERROR;
299: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
300: THEN
301: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
294:
295: -- Validate Lead Number
296: IF(p_validation_mode = AS_UTILITY_PVT.G_CREATE) THEN
297: IF (p_LEAD_NUMBER is NULL OR p_LEAD_NUMBER = FND_API.G_MISS_CHAR) THEN
298: x_return_status := FND_API.G_RET_STS_ERROR;
299: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
300: THEN
301: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
302: FND_MESSAGE.Set_Token('COLUMN', 'LEAD_NUMBER', FALSE);
304: END IF;
305: END IF;
306: ELSIF(p_validation_mode = AS_UTILITY_PVT.G_UPDATE) THEN
307: IF p_LEAD_NUMBER IS NULL THEN
308: x_return_status := FND_API.G_RET_STS_ERROR;
309: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
310: THEN
311: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
312: FND_MESSAGE.Set_Token('COLUMN', 'LEAD_NUMBER', FALSE);
323: */
324:
325:
326: PROCEDURE Validate_SALES_LEAD_ID (
327: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
328: P_Validation_mode IN VARCHAR2,
329: P_Sales_Lead_Id IN NUMBER,
330: X_Return_Status OUT NOCOPY VARCHAR2,
331: X_Msg_Count OUT NOCOPY NUMBER,
340: l_val VARCHAR2(1);
341:
342: BEGIN
343: -- Initialize message list IF p_init_msg_list is set to TRUE.
344: IF FND_API.to_Boolean( p_init_msg_list )
345: THEN
346: FND_MSG_PUB.initialize;
347: END IF;
348:
346: FND_MSG_PUB.initialize;
347: END IF;
348:
349: -- Initialize API return status to SUCCESS
350: x_return_status := FND_API.G_RET_STS_SUCCESS;
351:
352: -- Debug Message
353: -- IF (AS_DEBUG_LOW_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
354: -- 'Validate Sales Lead Id'); END IF;
357: -- Calling from Create API
358: IF(p_validation_mode = AS_UTILITY_PVT.G_CREATE)
359: THEN
360: IF (p_SALES_LEAD_ID is NOT NULL) and
361: (p_SALES_LEAD_ID <> FND_API.G_MISS_NUM)
362: THEN
363: OPEN C_Sales_Lead_Id_Exists (p_Sales_Lead_Id);
364: FETCH C_Sales_Lead_Id_Exists into l_val;
365:
370: p_msg_name => 'API_INVALID_ID',
371: p_token1 => 'SALES_LEAD_ID',
372: p_token1_value => p_Sales_Lead_Id);
373:
374: x_return_status := FND_API.G_RET_STS_ERROR;
375: END IF;
376: CLOSE C_Sales_Lead_Id_Exists ;
377: END IF;
378:
379: -- Calling from Update API
380: ELSIF(p_validation_mode = AS_UTILITY_PVT.G_UPDATE)
381: THEN
382: -- validate NOT NULL column
383: IF (p_sales_lead_id is NULL) or (p_sales_lead_id = FND_API.G_MISS_NUM)
384: THEN
385: AS_UTILITY_PVT.Set_Message(
386: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
387: p_msg_name => 'API_MISSING_LEAD_ID');
385: AS_UTILITY_PVT.Set_Message(
386: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
387: p_msg_name => 'API_MISSING_LEAD_ID');
388:
389: x_return_status := FND_API.G_RET_STS_ERROR;
390: ELSE
391: OPEN C_Sales_Lead_Id_Exists (p_sales_lead_id);
392: FETCH C_Sales_Lead_Id_Exists into l_val;
393:
398: p_msg_name => 'API_INVALID_LEAD_ID',
399: p_token1 => 'VALUE',
400: p_token1_value => p_sales_lead_id );
401:
402: x_return_status := FND_API.G_RET_STS_ERROR;
403: END IF;
404:
405: CLOSE C_Sales_Lead_Id_Exists;
406: END IF;
416:
417:
418:
419: PROCEDURE Validate_Sales_Methodology_ID (
420: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
421: P_Validation_mode IN VARCHAR2,
422: P_Sales_Methodology_ID IN NUMBER,
423: X_Return_Status OUT NOCOPY VARCHAR2,
424: X_Msg_Count OUT NOCOPY NUMBER,
455:
456: l_val VARCHAR2(1);
457: BEGIN
458: -- Initialize message list IF p_init_msg_list is set to TRUE.
459: IF FND_API.to_Boolean( p_init_msg_list )
460: THEN
461: FND_MSG_PUB.initialize;
462: END IF;
463:
461: FND_MSG_PUB.initialize;
462: END IF;
463:
464: -- Initialize API return status to SUCCESS
465: x_return_status := FND_API.G_RET_STS_SUCCESS;
466:
467: -- Debug Message
468: IF (AS_DEBUG_LOW_ON) THEN
469: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
469: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
470: 'Validate SALES methodology id'); END IF;
471:
472: IF (p_validation_mode=AS_UTILITY_PVT.G_CREATE and (P_Sales_Methodology_ID IS NOT NULL) and
473: (P_Sales_Methodology_ID <> FND_API.G_MISS_NUM))
474: -- OR
475: -- (p_validation_mode=AS_UTILITY_PVT.G_UPDATE)
476: THEN
477: OPEN C_Methodology_Exists ( p_Sales_Methodology_ID);
485: p_token1_value => 'SALES METHODOLOGY',
486: p_token2 => 'VALUE',
487: p_token2_value => p_Sales_Methodology_ID );
488:
489: x_return_status := FND_API.G_RET_STS_ERROR;
490: END IF;
491: CLOSE C_Methodology_Exists;
492: END IF;
493:
500:
501:
502:
503: PROCEDURE Validate_Sales_Stage_ID (
504: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
505: P_Validation_mode IN VARCHAR2,
506: P_Sales_Methodology_ID IN NUMBER,
507: P_Sales_Stage_ID IN NUMBER,
508: X_Return_Status OUT NOCOPY VARCHAR2,
537: l_val VARCHAR2(1);
538:
539: BEGIN
540: -- Initialize message list IF p_init_msg_list is set to TRUE.
541: IF FND_API.to_Boolean( p_init_msg_list )
542: THEN
543: FND_MSG_PUB.initialize;
544: END IF;
545:
543: FND_MSG_PUB.initialize;
544: END IF;
545:
546: -- Initialize API return status to SUCCESS
547: x_return_status := FND_API.G_RET_STS_SUCCESS;
548:
549: -- Debug Message
550: IF (AS_DEBUG_LOW_ON) THEN
551: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
553:
554: END IF;
555:
556: IF (p_validation_mode=AS_UTILITY_PVT.G_CREATE and (P_Sales_Stage_ID IS NOT NULL) and
557: (P_Sales_Stage_ID <> FND_API.G_MISS_NUM))
558: -- OR
559: -- (p_validation_mode=AS_UTILITY_PVT.G_UPDATE)
560: THEN
561: OPEN C_Sales_Stage_Exists ( p_Sales_Methodology_ID, p_Sales_Stage_ID);
569: p_token1_value => 'SALES STAGE',
570: p_token2 => 'VALUE',
571: p_token2_value => p_Sales_Stage_ID );
572:
573: x_return_status := FND_API.G_RET_STS_ERROR;
574: END IF;
575: CLOSE C_Sales_Stage_Exists;
576: END IF;
577:
586:
587:
588:
589: PROCEDURE Validate_CUSTOMER_ID (
590: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
591: P_Validation_mode IN VARCHAR2,
592: P_CUSTOMER_ID IN NUMBER,
593: X_Return_Status OUT NOCOPY VARCHAR2,
594: X_Msg_Count OUT NOCOPY NUMBER,
611: l_val VARCHAR2(1);
612: l_status VARCHAR2(1);
613: BEGIN
614: -- Initialize message list if p_init_msg_list is set to TRUE.
615: IF FND_API.to_Boolean( p_init_msg_list )
616: THEN
617: FND_MSG_PUB.initialize;
618: END IF;
619:
617: FND_MSG_PUB.initialize;
618: END IF;
619:
620: -- Initialize API return status to SUCCESS
621: x_return_status := FND_API.G_RET_STS_SUCCESS;
622:
623: IF ((p_CUSTOMER_ID is NULL) or (p_CUSTOMER_ID = FND_API.G_MISS_NUM)
624: AND p_validation_mode = AS_UTILITY_PVT.G_CREATE)
625: OR
619:
620: -- Initialize API return status to SUCCESS
621: x_return_status := FND_API.G_RET_STS_SUCCESS;
622:
623: IF ((p_CUSTOMER_ID is NULL) or (p_CUSTOMER_ID = FND_API.G_MISS_NUM)
624: AND p_validation_mode = AS_UTILITY_PVT.G_CREATE)
625: OR
626: (p_CUSTOMER_ID is NULL AND p_validation_mode=AS_UTILITY_PVT.G_UPDATE)
627: THEN
636: p_msg_name => 'API_MISSING_ID',
637: p_token1 => 'COLUMN',
638: p_token1_value => 'CUSTOMER_ID');
639:
640: x_return_status := FND_API.G_RET_STS_ERROR;
641: ELSIF(p_CUSTOMER_ID is not NULL) AND (p_CUSTOMER_ID <> FND_API.G_MISS_NUM)
642: THEN
643: OPEN C_Customer_Id_Exists (p_Customer_Id);
644: FETCH C_Customer_Id_Exists into l_val;
637: p_token1 => 'COLUMN',
638: p_token1_value => 'CUSTOMER_ID');
639:
640: x_return_status := FND_API.G_RET_STS_ERROR;
641: ELSIF(p_CUSTOMER_ID is not NULL) AND (p_CUSTOMER_ID <> FND_API.G_MISS_NUM)
642: THEN
643: OPEN C_Customer_Id_Exists (p_Customer_Id);
644: FETCH C_Customer_Id_Exists into l_val;
645: IF C_Customer_Id_Exists%NOTFOUND
658: p_token1_value => 'CUSTOMER_ID',
659: p_token2 => 'VALUE',
660: p_token2_value => p_CUSTOMER_ID );
661:
662: x_return_status := FND_API.G_RET_STS_ERROR;
663: END IF;
664: CLOSE C_Customer_Id_Exists;
665:
666: -- do the customer is inactive check only at time of create. allow updates.
681: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
682: p_msg_name => 'API_INACTIVE_CUSTOMER_ID');
683:
684:
685: x_return_status := FND_API.G_RET_STS_ERROR;
686: END IF;
687: CLOSE C_Customer_is_active;
688: END IF;
689:
700:
701:
702:
703: PROCEDURE Validate_ADDRESS_ID (
704: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
705: P_Validation_mode IN VARCHAR2,
706: P_CUSTOMER_ID IN NUMBER,
707: P_ADDRESS_ID IN NUMBER,
708: X_Return_Status OUT NOCOPY VARCHAR2,
713: l_check_address VARCHAR2(1);
714:
715: BEGIN
716: -- Initialize message list if p_init_msg_list is set to TRUE.
717: IF FND_API.to_Boolean( p_init_msg_list )
718: THEN
719: FND_MSG_PUB.initialize;
720: END IF;
721:
719: FND_MSG_PUB.initialize;
720: END IF;
721:
722: -- Initialize API return status to SUCCESS
723: x_return_status := FND_API.G_RET_STS_SUCCESS;
724:
725: IF (p_ADDRESS_ID is not NULL) and (p_ADDRESS_ID <> FND_API.G_MISS_NUM)
726: THEN
727: IF (p_CUSTOMER_ID is NULL) or (p_CUSTOMER_ID = FND_API.G_MISS_NUM)
721:
722: -- Initialize API return status to SUCCESS
723: x_return_status := FND_API.G_RET_STS_SUCCESS;
724:
725: IF (p_ADDRESS_ID is not NULL) and (p_ADDRESS_ID <> FND_API.G_MISS_NUM)
726: THEN
727: IF (p_CUSTOMER_ID is NULL) or (p_CUSTOMER_ID = FND_API.G_MISS_NUM)
728: THEN
729: -- IF (AS_DEBUG_LOW_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
723: x_return_status := FND_API.G_RET_STS_SUCCESS;
724:
725: IF (p_ADDRESS_ID is not NULL) and (p_ADDRESS_ID <> FND_API.G_MISS_NUM)
726: THEN
727: IF (p_CUSTOMER_ID is NULL) or (p_CUSTOMER_ID = FND_API.G_MISS_NUM)
728: THEN
729: -- IF (AS_DEBUG_LOW_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
730: -- 'Private API: Violate NOT NULL(CUSTOMER_ID)'); END IF;
731:
734: p_msg_name => 'API_MISSING_ID',
735: p_token1 => 'COLUMN',
736: p_token1_value => 'CUSTOMER_ID');
737:
738: x_return_status := FND_API.G_RET_STS_ERROR;
739: ELSE
740: AS_TCA_PVT.validate_party_site_id(
741: p_init_msg_list => FND_API.G_FALSE,
742: p_party_id => P_CUSTOMER_ID,
737:
738: x_return_status := FND_API.G_RET_STS_ERROR;
739: ELSE
740: AS_TCA_PVT.validate_party_site_id(
741: p_init_msg_list => FND_API.G_FALSE,
742: p_party_id => P_CUSTOMER_ID,
743: p_party_site_id => P_ADDRESS_ID,
744: x_return_status => x_return_status,
745: x_msg_count => x_msg_count,
744: x_return_status => x_return_status,
745: x_msg_count => x_msg_count,
746: x_msg_data => x_msg_data);
747:
748: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
749: IF (AS_DEBUG_LOW_ON) THEN
750:
751: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
752: 'Private API: ADDRESS_ID is invalid');
761: p_token2_value => p_ADDRESS_ID );
762: END IF;
763: END IF;
764: -- For bug 1544448
765: ELSIF p_ADDRESS_ID = FND_API.G_MISS_NUM AND
766: p_validation_mode = AS_UTILITY_PVT.G_UPDATE
767: THEN
768: NULL;
769: ELSE -- address_id is NULL or g_miss_num
791: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
792: p_msg_name => 'API_MISSING_ADDRESS_ID');
793:
794:
795: x_return_status := FND_API.G_RET_STS_ERROR;
796: END IF;
797: END IF;
798:
799: -- Standard call to get message count and if count is 1, get message info.
805: END Validate_ADDRESS_ID;
806:
807:
808: PROCEDURE Validate_STATUS_CODE (
809: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
810: P_Validation_mode IN VARCHAR2,
811: P_STATUS_CODE IN VARCHAR2,
812: P_Sales_Lead_Id IN NUMBER,
813: X_Return_Status OUT NOCOPY VARCHAR2,
841: l_newStateTransition VARCHAR2(1);
842: l_linkStatus VARCHAR2(30);
843: BEGIN
844: -- Initialize message list IF p_init_msg_list is set to TRUE.
845: IF FND_API.to_Boolean( p_init_msg_list )
846: THEN
847: FND_MSG_PUB.initialize;
848: END IF;
849:
847: FND_MSG_PUB.initialize;
848: END IF;
849:
850: -- Initialize API return status to SUCCESS
851: x_return_status := FND_API.G_RET_STS_SUCCESS;
852:
853: -- Debug Message
854: -- IF (AS_DEBUG_LOW_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
855: -- 'Validate status code'); END IF;
853: -- Debug Message
854: -- IF (AS_DEBUG_LOW_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
855: -- 'Validate status code'); END IF;
856: -- Validate status code
857: IF ((p_status_code is NULL or p_status_code = FND_API.G_MISS_CHAR)
858: AND p_validation_mode=AS_UTILITY_PVT.G_CREATE)
859: OR
860: (p_status_code IS NULL AND p_validation_mode=AS_UTILITY_PVT.G_UPDATE)
861: THEN
864: p_msg_name => 'API_MISSING_ID',
865: p_token1 => 'COLUMN',
866: p_token1_value => 'STATUS_CODE' );
867:
868: x_return_status := FND_API.G_RET_STS_ERROR;
869:
870: ELSIF (p_status_code <> FND_API.G_MISS_CHAR)
871: THEN
872: OPEN C_Status_Exists ( p_status_code);
866: p_token1_value => 'STATUS_CODE' );
867:
868: x_return_status := FND_API.G_RET_STS_ERROR;
869:
870: ELSIF (p_status_code <> FND_API.G_MISS_CHAR)
871: THEN
872: OPEN C_Status_Exists ( p_status_code);
873: FETCH C_Status_Exists into l_val;
874:
881: p_token1_value => 'STATUS_CODE',
882: p_token2 => 'VALUE',
883: p_token2_value => p_STATUS_CODE );
884:
885: x_return_status := FND_API.G_RET_STS_ERROR;
886: END IF;
887: CLOSE C_Status_Exists ;
888: END IF;
889:
899: FETCH C_GET_STATUS_CODE INTO l_status_code;
900: CLOSE C_GET_STATUS_CODE;
901:
902:
903: if p_status_code <> FND_API.G_MISS_CHAR and l_status_code <> p_status_code and p_validation_mode = AS_UTILITY_PVT.G_update and l_newStateTransition = 'Y' and l_linkStatus = l_status_code
904: then
905: AS_UTILITY_PVT.Set_Message(
906: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
907: p_msg_name => 'AS_INVALID_STATUS_TRANSITION'
906: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
907: p_msg_name => 'AS_INVALID_STATUS_TRANSITION'
908: );
909:
910: x_return_status := FND_API.G_RET_STS_ERROR;
911:
912: end if;
913:
914:
921: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
922: p_msg_name => 'AS_NO_LEAD_CREATE_STATUS'
923: );
924:
925: x_return_status := FND_API.G_RET_STS_ERROR;
926:
927: end if;
928:
929: -- end ckapoor
941: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
942: p_msg_name => 'AS_NO_LEAD_CREATE_STATUS'
943: );
944:
945: x_return_status := FND_API.G_RET_STS_ERROR;
946:
947: end if;
948:
949: elsif (p_validation_mode=AS_UTILITY_PVT.G_UPDATE) then
959: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
960: p_msg_name => 'AS_NO_LEAD_UPDATE_NO_OPP'
961: );
962:
963: x_return_status := FND_API.G_RET_STS_ERROR;
964: END IF;
965: CLOSE C_opp_exists ;
966:
967: end if;
981: p_data => x_msg_data );
982: END Validate_STATUS_CODE;
983:
984: PROCEDURE Validate_SOURCE_PROMOTION_ID (
985: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
986: P_Validation_mode IN VARCHAR2,
987: P_SOURCE_PROMOTION_ID IN NUMBER,
988: X_Return_Status OUT NOCOPY VARCHAR2,
989: X_Msg_Count OUT NOCOPY NUMBER,
1007: l_val VARCHAR2(1);
1008: l_source_promotion_id VARCHAR2(1);
1009: BEGIN
1010: -- Initialize message list IF p_init_msg_list is set to TRUE.
1011: IF FND_API.to_Boolean( p_init_msg_list )
1012: THEN
1013: FND_MSG_PUB.initialize;
1014: END IF;
1015:
1013: FND_MSG_PUB.initialize;
1014: END IF;
1015:
1016: -- Initialize API return status to SUCCESS
1017: x_return_status := FND_API.G_RET_STS_SUCCESS;
1018:
1019: -- Debug Message
1020: -- IF (AS_DEBUG_LOW_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1021: -- 'Validate source promotion id'); END IF;
1035:
1036:
1037: -- validate SOURCE_PROMOTION_ID (NOT NULL column)
1038: IF (l_source_promotion_id='Y' AND ( p_source_promotion_id is NULL or
1039: p_source_promotion_id =FND_API.G_MISS_NUM)
1040: AND p_validation_mode=AS_UTILITY_PVT.G_CREATE)
1041: OR
1042: (l_source_promotion_id='Y' AND p_source_promotion_id IS NULL
1043: AND p_validation_mode=AS_UTILITY_PVT.G_UPDATE)
1047: p_msg_name => 'API_MISSING_ID',
1048: p_token1 => 'COLUMN',
1049: p_token1_value => 'SOURCE NAME');
1050:
1051: x_return_status := FND_API.G_RET_STS_ERROR;
1052:
1053: ELSIF (p_source_promotion_id <> FND_API.G_MISS_NUM)
1054: and (p_validation_mode <> AS_UTILITY_PVT.G_UPDATE) -- added by bmuthukr for fixing bug 3817333. val not reqd during updates.
1055: --IF ((p_source_promotion_id is NOT NULL AND
1049: p_token1_value => 'SOURCE NAME');
1050:
1051: x_return_status := FND_API.G_RET_STS_ERROR;
1052:
1053: ELSIF (p_source_promotion_id <> FND_API.G_MISS_NUM)
1054: and (p_validation_mode <> AS_UTILITY_PVT.G_UPDATE) -- added by bmuthukr for fixing bug 3817333. val not reqd during updates.
1055: --IF ((p_source_promotion_id is NOT NULL AND
1056: -- p_source_promotion_id <> FND_API.G_MISS_NUM))
1057: THEN
1052:
1053: ELSIF (p_source_promotion_id <> FND_API.G_MISS_NUM)
1054: and (p_validation_mode <> AS_UTILITY_PVT.G_UPDATE) -- added by bmuthukr for fixing bug 3817333. val not reqd during updates.
1055: --IF ((p_source_promotion_id is NOT NULL AND
1056: -- p_source_promotion_id <> FND_API.G_MISS_NUM))
1057: THEN
1058: OPEN C_Promotion_Exists ( p_source_promotion_id);
1059: FETCH C_Promotion_Exists into l_val;
1060: IF C_Promotion_Exists%NOTFOUND
1066: p_token1_value => 'SOURCE PROMOTION',
1067: p_token2 => 'VALUE',
1068: p_token2_value => p_SOURCE_PROMOTION_ID );
1069:
1070: x_return_status := FND_API.G_RET_STS_ERROR;
1071: END IF;
1072: CLOSE C_Promotion_Exists;
1073: END IF;
1074:
1080: END Validate_SOURCE_PROMOTION_ID;
1081:
1082:
1083: PROCEDURE Validate_CHANNEL_CODE (
1084: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1085: P_Validation_mode IN VARCHAR2,
1086: P_CHANNEL_CODE IN VARCHAR2,
1087: X_Return_Status OUT NOCOPY VARCHAR2,
1088: X_Msg_Count OUT NOCOPY NUMBER,
1100:
1101: l_val VARCHAR2(1);
1102: BEGIN
1103: -- Initialize message list IF p_init_msg_list is set to TRUE.
1104: IF FND_API.to_Boolean( p_init_msg_list )
1105: THEN
1106: FND_MSG_PUB.initialize;
1107: END IF;
1108:
1106: FND_MSG_PUB.initialize;
1107: END IF;
1108:
1109: -- Initialize API return status to SUCCESS
1110: x_return_status := FND_API.G_RET_STS_SUCCESS;
1111:
1112: -- Debug Message
1113: -- IF (AS_DEBUG_LOW_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1114: -- 'Validate channel code'); END IF;
1114: -- 'Validate channel code'); END IF;
1115:
1116: -- Validate channel code
1117: IF (p_channel_code is NOT NULL
1118: AND p_channel_code <> FND_API.G_MISS_CHAR)
1119: THEN
1120: OPEN C_Aso_Channel_Exists (p_channel_code);
1121: FETCH C_Aso_Channel_Exists into l_val;
1122: IF C_Aso_Channel_Exists%NOTFOUND
1128: p_token1_value => 'LEAD CHANNEL',
1129: p_token2 => 'VALUE',
1130: p_token2_value => p_CHANNEL_CODE );
1131:
1132: x_return_status := FND_API.G_RET_STS_ERROR;
1133: END IF;
1134: CLOSE C_Aso_Channel_Exists;
1135: END IF;
1136:
1141: END Validate_CHANNEL_CODE;
1142:
1143:
1144: PROCEDURE Validate_CURRENCY_CODE (
1145: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1146: P_Validation_mode IN VARCHAR2,
1147: P_CURRENCY_CODE IN VARCHAR2,
1148: X_Return_Status OUT NOCOPY VARCHAR2,
1149: X_Msg_Count OUT NOCOPY NUMBER,
1163:
1164: l_val VARCHAR2(1);
1165: BEGIN
1166: -- Initialize message list IF p_init_msg_list is set to TRUE.
1167: IF FND_API.to_Boolean( p_init_msg_list )
1168: THEN
1169: FND_MSG_PUB.initialize;
1170: END IF;
1171:
1169: FND_MSG_PUB.initialize;
1170: END IF;
1171:
1172: -- Initialize API return status to SUCCESS
1173: x_return_status := FND_API.G_RET_STS_SUCCESS;
1174:
1175: -- Debug Message
1176: -- IF (AS_DEBUG_LOW_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1177: -- 'Validate currency code'); END IF;
1177: -- 'Validate currency code'); END IF;
1178:
1179: -- Validate Currency Code
1180: IF (p_currency_code is NOT NULL
1181: AND p_currency_code <> FND_API.G_MISS_CHAR)
1182: THEN
1183: OPEN C_Currency_Exists ( p_currency_code );
1184: FETCH C_Currency_Exists into l_val;
1185: IF C_Currency_Exists%NOTFOUND THEN
1190: p_token1_value => 'CURRENCY',
1191: p_token2 => 'VALUE',
1192: p_token2_value => p_CURRENCY_CODE );
1193:
1194: x_return_status := FND_API.G_RET_STS_ERROR;
1195: END IF;
1196: CLOSE C_Currency_Exists;
1197: END IF;
1198:
1203: END Validate_CURRENCY_CODE;
1204:
1205:
1206: PROCEDURE Validate_DECN_TIMEFRAME_CODE (
1207: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1208: P_Validation_mode IN VARCHAR2,
1209: P_DECISION_TIMEFRAME_CODE IN VARCHAR2,
1210: X_Return_Status OUT NOCOPY VARCHAR2,
1211: X_Msg_Count OUT NOCOPY NUMBER,
1223: l_val VARCHAR2(1);
1224: BEGIN
1225:
1226: -- Initialize message list IF p_init_msg_list is set to TRUE.
1227: IF FND_API.to_Boolean( p_init_msg_list )
1228: THEN
1229: FND_MSG_PUB.initialize;
1230: END IF;
1231:
1229: FND_MSG_PUB.initialize;
1230: END IF;
1231:
1232: -- Initialize API return status to SUCCESS
1233: x_return_status := FND_API.G_RET_STS_SUCCESS;
1234:
1235: -- Debug Message
1236: -- IF (AS_DEBUG_LOW_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1237: -- 'Validate decision tf code'); END IF;
1237: -- 'Validate decision tf code'); END IF;
1238:
1239: -- Validate decision timeframe code
1240: IF (p_decision_timeframe_code is NOT NULL
1241: AND p_decision_timeframe_code <> FND_API.G_MISS_CHAR) THEN
1242: OPEN C_Lookup_Exists ( p_decision_timeframe_code, 'DECISION_TIMEFRAME');
1243: FETCH C_Lookup_Exists into l_val;
1244:
1245: IF C_Lookup_Exists%NOTFOUND
1251: p_token1_value => 'DECISION TIMEFRAME_CODE',
1252: p_token2 => 'VALUE',
1253: p_token2_value => p_DECISION_TIMEFRAME_CODE );
1254:
1255: x_return_status := FND_API.G_RET_STS_ERROR;
1256: END IF;
1257: CLOSE C_Lookup_Exists;
1258: END IF;
1259:
1263: END Validate_DECN_TIMEFRAME_CODE;
1264:
1265:
1266: PROCEDURE Validate_CLOSE_REASON (
1267: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1268: P_Validation_mode IN VARCHAR2,
1269: P_CLOSE_REASON IN VARCHAR2,
1270: X_Return_Status OUT NOCOPY VARCHAR2,
1271: X_Msg_Count OUT NOCOPY NUMBER,
1282:
1283: l_val VARCHAR2(1);
1284: BEGIN
1285: -- Initialize message list IF p_init_msg_list is set to TRUE.
1286: IF FND_API.to_Boolean( p_init_msg_list )
1287: THEN
1288: FND_MSG_PUB.initialize;
1289: END IF;
1290:
1288: FND_MSG_PUB.initialize;
1289: END IF;
1290:
1291: -- Initialize API return status to SUCCESS
1292: x_return_status := FND_API.G_RET_STS_SUCCESS;
1293:
1294: -- Debug Message
1295: -- IF (AS_DEBUG_LOW_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1296: -- 'Validate close reason'); END IF;
1295: -- IF (AS_DEBUG_LOW_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1296: -- 'Validate close reason'); END IF;
1297:
1298: -- Validate Close Reason
1299: IF (p_close_reason is NOT NULL AND p_close_reason <> FND_API.G_MISS_CHAR)
1300: THEN
1301: OPEN C_Lookup_Exists ( p_close_reason, 'CLOSE_REASON' );
1302: FETCH C_Lookup_Exists into l_val;
1303:
1312: p_token1_value => 'CLOSE REASON',
1313: p_token2 => 'VALUE',
1314: p_token2_value => p_CLOSE_REASON );
1315: END IF;
1316: x_return_status := FND_API.G_RET_STS_ERROR;
1317: END IF;
1318: CLOSE C_Lookup_Exists;
1319: END IF;
1320: -- Standard call to get message count and IF count is 1, get message info.
1324: END Validate_CLOSE_REASON;
1325:
1326:
1327: PROCEDURE Validate_LEAD_RANK_ID (
1328: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1329: P_Validation_mode IN VARCHAR2,
1330: P_LEAD_RANK_ID IN NUMBER,
1331: X_Return_Status OUT NOCOPY VARCHAR2,
1332: X_Msg_Count OUT NOCOPY NUMBER,
1340: and enabled_flag = 'Y';
1341: l_val VARCHAR2(1);
1342: BEGIN
1343: -- Initialize message list IF p_init_msg_list is set to TRUE.
1344: IF FND_API.to_Boolean( p_init_msg_list )
1345: THEN
1346: FND_MSG_PUB.initialize;
1347: END IF;
1348:
1346: FND_MSG_PUB.initialize;
1347: END IF;
1348:
1349: -- Initialize API return status to SUCCESS
1350: x_return_status := FND_API.G_RET_STS_SUCCESS;
1351:
1352: -- Debug Message
1353: -- IF (AS_DEBUG_LOW_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1354: -- 'Validate rank id'); END IF;
1354: -- 'Validate rank id'); END IF;
1355:
1356: -- Validate rank id
1357: IF (p_LEAD_RANK_ID is NOT NULL
1358: AND p_LEAD_RANK_ID <> FND_API.G_MISS_NUM)
1359: THEN
1360: OPEN C_Rank_Exists ( p_LEAD_RANK_ID );
1361: FETCH C_Rank_Exists into l_val;
1362:
1368: p_token1 => 'COLUMN',
1369: p_token1_value => 'LEAD_RANK_ID',
1370: p_token2 => 'VALUE',
1371: p_token2_value => p_LEAD_RANK_ID );
1372: x_return_status := FND_API.G_RET_STS_ERROR;
1373: END IF;
1374: CLOSE C_Rank_Exists;
1375: END IF;
1376:
1382: -- FFANG 08-30-00 For bug#1391034
1383: -- Assign_to_person_id keep person_id; should be validated against
1384: -- per_all_people_f
1385: PROCEDURE Validate_ASSIGN_TO_PERSON_ID (
1386: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1387: P_Validation_mode IN VARCHAR2,
1388: P_ASSIGN_TO_PERSON_ID IN NUMBER,
1389: X_Return_Status OUT NOCOPY VARCHAR2,
1390: X_Msg_Count OUT NOCOPY NUMBER,
1404:
1405: l_val VARCHAR2(1);
1406: BEGIN
1407: -- Initialize message list IF p_init_msg_list is set to TRUE.
1408: IF FND_API.to_Boolean( p_init_msg_list )
1409: THEN
1410: FND_MSG_PUB.initialize;
1411: END IF;
1412:
1410: FND_MSG_PUB.initialize;
1411: END IF;
1412:
1413: -- Initialize API return status to SUCCESS
1414: x_return_status := FND_API.G_RET_STS_SUCCESS;
1415:
1416: -- Debug Message
1417: -- IF (AS_DEBUG_LOW_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1418: -- 'Validate assign to person id'); END IF;
1418: -- 'Validate assign to person id'); END IF;
1419:
1420: -- Validate ASSIGN_TO_PERSON_ID
1421: IF (p_assign_to_person_id IS NOT NULL
1422: AND p_assign_to_person_id <> FND_API.G_MISS_NUM)
1423: THEN
1424: OPEN C_Check_Assign_Person (p_assign_to_person_id);
1425: FETCH C_Check_Assign_Person INTO l_val;
1426: IF (C_Check_Assign_Person%NOTFOUND)
1432: p_token1_value => 'ASSIGN_TO_PERSON_ID',
1433: p_token2 => 'VALUE',
1434: p_token2_value => p_ASSIGN_TO_PERSON_ID );
1435:
1436: x_return_status := FND_API.G_RET_STS_ERROR;
1437: END IF;
1438: CLOSE C_Check_Assign_Person;
1439: END IF;
1440:
1447: -- FFANG 08-30-00 For bug#1391034
1448: -- Assign_to_salesforce_id keep salesforce_id (resource_id); should be validated
1449: -- against jtf_rs_resource_extns
1450: PROCEDURE Validate_ASSIGN_TO_SF_ID (
1451: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1452: P_Validation_mode IN VARCHAR2,
1453: P_ASSIGN_TO_SALESFORCE_ID IN NUMBER,
1454: X_Return_Status OUT NOCOPY VARCHAR2,
1455: X_Msg_Count OUT NOCOPY NUMBER,
1480:
1481: l_val VARCHAR2(1);
1482: BEGIN
1483: -- Initialize message list IF p_init_msg_list is set to TRUE.
1484: IF FND_API.to_Boolean( p_init_msg_list )
1485: THEN
1486: FND_MSG_PUB.initialize;
1487: END IF;
1488:
1486: FND_MSG_PUB.initialize;
1487: END IF;
1488:
1489: -- Initialize API return status to SUCCESS
1490: x_return_status := FND_API.G_RET_STS_SUCCESS;
1491:
1492: -- Debug Message
1493: -- IF (AS_DEBUG_LOW_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1494: -- 'Validate assign to salesforce id'); END IF;
1494: -- 'Validate assign to salesforce id'); END IF;
1495:
1496: -- Validate ASSIGN_TO_SALESFORCE_ID
1497: IF (p_assign_to_salesforce_id IS NOT NULL
1498: AND p_assign_to_salesforce_id <> FND_API.G_MISS_NUM)
1499: THEN
1500: OPEN C_Check_Assign_Salesforce (p_assign_to_salesforce_id);
1501: FETCH C_Check_Assign_Salesforce INTO l_val;
1502: IF (C_Check_Assign_Salesforce%NOTFOUND)
1508: p_token1_value => 'ASSIGN_TO_SALESFORCE_ID',
1509: p_token2 => 'VALUE',
1510: p_token2_value => p_ASSIGN_TO_SALESFORCE_ID );
1511:
1512: x_return_status := FND_API.G_RET_STS_ERROR;
1513: END IF;
1514: CLOSE C_Check_Assign_Salesforce;
1515: END IF;
1516:
1520: END Validate_ASSIGN_TO_SF_ID;
1521:
1522:
1523: PROCEDURE Validate_BUDGET_STATUS_CODE (
1524: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1525: P_Validation_mode IN VARCHAR2,
1526: P_BUDGET_STATUS_CODE IN VARCHAR2,
1527: X_Return_Status OUT NOCOPY VARCHAR2,
1528: X_Msg_Count OUT NOCOPY NUMBER,
1539:
1540: l_val VARCHAR2(1);
1541: BEGIN
1542: -- Initialize message list IF p_init_msg_list is set to TRUE.
1543: IF FND_API.to_Boolean( p_init_msg_list )
1544: THEN
1545: FND_MSG_PUB.initialize;
1546: END IF;
1547:
1545: FND_MSG_PUB.initialize;
1546: END IF;
1547:
1548: -- Initialize API return status to SUCCESS
1549: x_return_status := FND_API.G_RET_STS_SUCCESS;
1550:
1551: -- Debug Message
1552: -- IF (AS_DEBUG_LOW_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1553: -- 'Validate budget status code'); END IF;
1553: -- 'Validate budget status code'); END IF;
1554:
1555: -- Validate budget status code
1556: IF (p_budget_status_code is NOT NULL
1557: AND p_budget_status_code <> FND_API.G_MISS_CHAR)
1558: THEN
1559: OPEN C_Lookup_Exists ( p_budget_status_code, 'BUDGET_STATUS');
1560: FETCH C_Lookup_Exists into l_val;
1561:
1567: p_token1 => 'COLUMN',
1568: p_token1_value => 'BUDGET_STATUS_CODE',
1569: p_token2 => 'VALUE',
1570: p_token2_value => p_BUDGET_STATUS_CODE );
1571: x_return_status := FND_API.G_RET_STS_ERROR;
1572: END IF;
1573: CLOSE C_Lookup_Exists;
1574: END IF;
1575:
1580: END Validate_BUDGET_STATUS_CODE;
1581:
1582:
1583: PROCEDURE Validate_VEHICLE_RESPONSE_CODE (
1584: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1585: P_Validation_mode IN VARCHAR2,
1586: P_VEHICLE_RESPONSE_CODE IN VARCHAR2,
1587: X_Return_Status OUT NOCOPY VARCHAR2,
1588: X_Msg_Count OUT NOCOPY NUMBER,
1599:
1600: l_val VARCHAR2(1);
1601: BEGIN
1602: -- Initialize message list IF p_init_msg_list is set to TRUE.
1603: IF FND_API.to_Boolean( p_init_msg_list )
1604: THEN
1605: FND_MSG_PUB.initialize;
1606: END IF;
1607:
1605: FND_MSG_PUB.initialize;
1606: END IF;
1607:
1608: -- Initialize API return status to SUCCESS
1609: x_return_status := FND_API.G_RET_STS_SUCCESS;
1610:
1611: -- Debug Message
1612: -- IF (AS_DEBUG_LOW_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1613: -- 'Validate Vehicle Response Code'); END IF;
1613: -- 'Validate Vehicle Response Code'); END IF;
1614:
1615: -- Validate Vehicle Response Code
1616: IF (P_VEHICLE_RESPONSE_CODE is NOT NULL
1617: AND P_VEHICLE_RESPONSE_CODE <> FND_API.G_MISS_CHAR)
1618: THEN
1619: OPEN C_Lookup_Exists (P_VEHICLE_RESPONSE_CODE, 'VEHICLE_RESPONSE_CODE');
1620: FETCH C_Lookup_Exists into l_val;
1621: IF C_Lookup_Exists%NOTFOUND
1627: p_token1_value => 'VEHICLE_RESPONSE_CODE',
1628: p_token2 => 'VALUE',
1629: p_token2_value => p_VEHICLE_RESPONSE_CODE );
1630:
1631: x_return_status := FND_API.G_RET_STS_ERROR;
1632: END IF;
1633: CLOSE C_Lookup_Exists;
1634: END IF;
1635:
1640: END Validate_VEHICLE_RESPONSE_CODE;
1641:
1642:
1643: PROCEDURE Validate_REJECT_REASON_CODE (
1644: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1645: P_Validation_mode IN VARCHAR2,
1646: P_REJECT_REASON_CODE IN VARCHAR2,
1647: X_Return_Status OUT NOCOPY VARCHAR2,
1648: X_Msg_Count OUT NOCOPY NUMBER,
1659:
1660: l_val VARCHAR2(1);
1661: BEGIN
1662: -- Initialize message list IF p_init_msg_list is set to TRUE.
1663: IF FND_API.to_Boolean( p_init_msg_list )
1664: THEN
1665: FND_MSG_PUB.initialize;
1666: END IF;
1667:
1665: FND_MSG_PUB.initialize;
1666: END IF;
1667:
1668: -- Initialize API return status to SUCCESS
1669: x_return_status := FND_API.G_RET_STS_SUCCESS;
1670:
1671: -- Debug Message
1672: -- IF (AS_DEBUG_LOW_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1673: -- 'Validate reject reason Code'); END IF;
1673: -- 'Validate reject reason Code'); END IF;
1674:
1675: -- Validate Reject Reason Code
1676: IF (P_REJECT_REASON_CODE is NOT NULL
1677: AND P_REJECT_REASON_CODE <> FND_API.G_MISS_CHAR)
1678: THEN
1679: OPEN C_Lookup_Exists ( P_REJECT_REASON_CODE, 'REJECT_REASON_CODE');
1680: FETCH C_Lookup_Exists into l_val;
1681: IF C_Lookup_Exists%NOTFOUND
1687: p_token1_value => 'REJECT_REASON_CODE',
1688: p_token2 => 'VALUE',
1689: p_token2_value => p_REJECT_REASON_CODE );
1690:
1691: x_return_status := FND_API.G_RET_STS_ERROR;
1692: END IF;
1693: CLOSE C_Lookup_Exists;
1694: END IF;
1695:
1700: END Validate_REJECT_REASON_CODE;
1701:
1702:
1703: PROCEDURE Validate_Flags (
1704: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1705: P_Validation_mode IN VARCHAR2,
1706: P_Flag_Value IN VARCHAR2,
1707: P_Flag_Type IN VARCHAR2,
1708: X_Return_Status OUT NOCOPY VARCHAR2,
1711: )
1712: IS
1713: BEGIN
1714: -- Initialize message list IF p_init_msg_list is set to TRUE.
1715: IF FND_API.to_Boolean( p_init_msg_list )
1716: THEN
1717: FND_MSG_PUB.initialize;
1718: END IF;
1719:
1717: FND_MSG_PUB.initialize;
1718: END IF;
1719:
1720: -- Initialize API return status to SUCCESS
1721: x_return_status := FND_API.G_RET_STS_SUCCESS;
1722:
1723: -- Debug Message
1724: -- IF (AS_DEBUG_LOW_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1725: -- 'Validate ' || p_flag_type); END IF;
1725: -- 'Validate ' || p_flag_type); END IF;
1726:
1727: -- Validate IF the flag value is 'Y' or 'N'
1728: IF (P_FLAG_VALUE is NOT NULL
1729: AND P_FLAG_VALUE <> FND_API.G_MISS_CHAR)
1730: THEN
1731: IF (P_FLAG_VALUE <>'Y' AND P_FLAG_VALUE <> 'N')
1732: THEN
1733: AS_UTILITY_PVT.Set_Message(
1736: p_token1 => 'COLUMN',
1737: p_token1_value => P_FLAG_TYPE,
1738: p_token2 => 'VALUE',
1739: p_token2_value => p_FLAG_VALUE );
1740: x_return_status := FND_API.G_RET_STS_ERROR;
1741: END IF;
1742: END IF;
1743:
1744: -- Standard call to get message count and IF count is 1, get message info.
1749:
1750:
1751:
1752: PROCEDURE Validate_ACCEPT_REJECT_REASON (
1753: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1754: P_Validation_mode IN VARCHAR2,
1755: P_Accept_Flag IN VARCHAR2,
1756: P_Reject_Reason_Code IN VARCHAR2,
1757: X_Return_Status OUT NOCOPY VARCHAR2,
1760: )
1761: IS
1762: BEGIN
1763: -- Initialize message list IF p_init_msg_list is set to TRUE.
1764: IF FND_API.to_Boolean( p_init_msg_list )
1765: THEN
1766: FND_MSG_PUB.initialize;
1767: END IF;
1768:
1766: FND_MSG_PUB.initialize;
1767: END IF;
1768:
1769: -- Initialize API return status to SUCCESS
1770: x_return_status := FND_API.G_RET_STS_SUCCESS;
1771:
1772: -- Debug Message
1773: -- IF (AS_DEBUG_LOW_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1774: -- 'Validate accept flag reject reason'); END IF;
1778:
1779: IF (P_ACCEPT_FLAG = 'Y')
1780: THEN
1781: IF (P_REJECT_REASON_CODE IS NOT NULL AND
1782: P_REJECT_REASON_CODE <> FND_API.G_MISS_CHAR )
1783: THEN
1784: AS_UTILITY_PVT.Set_Message(
1785: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1786: p_msg_name => 'AS_ACCEPT_FLAG_REJECT_REASON'
1784: AS_UTILITY_PVT.Set_Message(
1785: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1786: p_msg_name => 'AS_ACCEPT_FLAG_REJECT_REASON'
1787: );
1788: x_return_status := FND_API.G_RET_STS_ERROR;
1789: END IF;
1790: END IF;
1791:
1792: -- Standard call to get message count and IF count is 1, get message info.
1797:
1798:
1799:
1800: PROCEDURE Validate_STATUS_CLOSE_REASON (
1801: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1802: P_Validation_mode IN VARCHAR2,
1803: P_STATUS_CODE IN VARCHAR2,
1804: P_CLOSE_REASON_CODE IN OUT NOCOPY VARCHAR2,
1805: X_Return_Status OUT NOCOPY VARCHAR2,
1816: l_profile_opp_lead_link VARCHAR2(200);
1817: l_profile_def_close_reason VARCHAR2(200);
1818: BEGIN
1819: -- Initialize message list IF p_init_msg_list is set to TRUE.
1820: IF FND_API.to_Boolean( p_init_msg_list )
1821: THEN
1822: FND_MSG_PUB.initialize;
1823: END IF;
1824:
1822: FND_MSG_PUB.initialize;
1823: END IF;
1824:
1825: -- Initialize API return status to SUCCESS
1826: x_return_status := FND_API.G_RET_STS_SUCCESS;
1827:
1828: -- Debug Message
1829: -- IF (AS_DEBUG_LOW_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1830: -- 'Validate status close reason'); END IF;
1842: 'l_profile_opp_lead_link: ' || l_profile_opp_lead_link);
1843: END IF;
1844:
1845:
1846: IF l_val = 'N' and (P_CLOSE_REASON_CODE is NULL or P_CLOSE_REASON_CODE = fnd_api.G_MISS_CHAR)
1847: THEN
1848: IF (AS_DEBUG_LOW_ON) THEN
1849:
1850: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1862: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1863: p_msg_name => 'API_MISSING_ID',
1864: p_token1 => 'COLUMN',
1865: p_token1_value => 'CLOSE_REASON');
1866: x_return_status := FND_API.G_RET_STS_ERROR;
1867: ELSE
1868: IF (AS_DEBUG_LOW_ON) THEN
1869:
1870: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1877: 'def_close: ' || l_profile_def_close_reason);
1878: END IF;
1879: --bmuthukr modified the if condition to include g_miss_char to fix bug 3931489.
1880: --if P_CLOSE_REASON_CODE is NULL then
1881: if ((P_CLOSE_REASON_CODE is NULL) or (P_CLOSE_REASON_CODE = fnd_api.G_MISS_CHAR)) then
1882: P_CLOSE_REASON_CODE := l_profile_def_close_reason;
1883: end if;
1884: end IF;
1885: END IF;
1883: end if;
1884: end IF;
1885: END IF;
1886:
1887: IF (l_val = 'Y' and P_CLOSE_REASON_CODE is NOT NULL and P_CLOSE_REASON_CODE <> FND_API.G_MISS_CHAR)
1888: THEN
1889:
1890: IF l_profile_opp_lead_link <> P_STATUS_CODE
1891: THEN
1892: AS_UTILITY_PVT.Set_Message(
1893: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1894: p_msg_name => 'AS_NO_CLOSE_REASON'
1895: );
1896: x_return_status := FND_API.G_RET_STS_ERROR;
1897: ELSE
1898: P_CLOSE_REASON_CODE := null;
1899: END IF;
1900: END IF;
1909: END Validate_STATUS_CLOSE_REASON;
1910:
1911:
1912: PROCEDURE Validate_REF_BY_REF_TYPE (
1913: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1914: P_Validation_mode IN VARCHAR2,
1915: P_REF_BY_ID IN NUMBER,
1916: P_REF_TYPE_CODE IN VARCHAR2,
1917: P_OLD_REF_BY_ID IN NUMBER,
1923: IS
1924: l_val VARCHAR2(1);
1925: BEGIN
1926: -- Initialize message list IF p_init_msg_list is set to TRUE.
1927: IF FND_API.to_Boolean( p_init_msg_list )
1928: THEN
1929: FND_MSG_PUB.initialize;
1930: END IF;
1931:
1929: FND_MSG_PUB.initialize;
1930: END IF;
1931:
1932: -- Initialize API return status to SUCCESS
1933: x_return_status := FND_API.G_RET_STS_SUCCESS;
1934:
1935: -- Debug Message
1936: -- IF (AS_DEBUG_LOW_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1937: -- 'Validate status close reason'); END IF;
1938:
1939: IF p_validation_mode = AS_UTILITY_PVT.G_CREATE
1940: THEN
1941:
1942: IF (P_REF_BY_ID IS NULL or P_REF_BY_ID = FND_API.G_MISS_NUM) and (P_REF_TYPE_CODE IS NOT NULL and P_REF_TYPE_CODE <> FND_API.G_MISS_NUM)
1943: THEN
1944: AS_UTILITY_PVT.Set_Message(
1945: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1946: p_msg_name => 'AS_REF_TYPE_REF_BY');
1944: AS_UTILITY_PVT.Set_Message(
1945: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1946: p_msg_name => 'AS_REF_TYPE_REF_BY');
1947:
1948: x_return_status := FND_API.G_RET_STS_ERROR;
1949: END IF;
1950:
1951:
1952: IF (P_REF_TYPE_CODE IS NULL or P_REF_TYPE_CODE = FND_API.G_MISS_NUM) and (P_REF_BY_ID IS NOT NULL and P_REF_BY_ID <> FND_API.G_MISS_NUM)
1948: x_return_status := FND_API.G_RET_STS_ERROR;
1949: END IF;
1950:
1951:
1952: IF (P_REF_TYPE_CODE IS NULL or P_REF_TYPE_CODE = FND_API.G_MISS_NUM) and (P_REF_BY_ID IS NOT NULL and P_REF_BY_ID <> FND_API.G_MISS_NUM)
1953: THEN
1954: AS_UTILITY_PVT.Set_Message(
1955: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1956: p_msg_name => 'AS_REF_TYPE_REF_BY');
1954: AS_UTILITY_PVT.Set_Message(
1955: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1956: p_msg_name => 'AS_REF_TYPE_REF_BY');
1957:
1958: x_return_status := FND_API.G_RET_STS_ERROR;
1959: END IF;
1960:
1961: ELSIF p_validation_mode = AS_UTILITY_PVT.G_UPDATE
1962: THEN
1962: THEN
1963:
1964: IF (P_REF_TYPE_CODE IS NULL and P_REF_BY_ID IS NOT NULL) or
1965: (P_REF_TYPE_CODE IS NOT NULL and P_REF_BY_ID IS NULL) or
1966: (P_REF_TYPE_CODE = FND_API.G_MISS_CHAR and P_REF_BY_ID IS NOT NULL and P_OLD_REF_TYPE_CODE IS NULL) or
1967: (P_REF_BY_ID = FND_API.G_MISS_NUM and P_REF_TYPE_CODE IS NOT NULL and P_OLD_REF_BY_ID IS NULL) or
1968: (P_REF_BY_ID IS NULL and P_REF_TYPE_CODE = FND_API.G_MISS_CHAR and P_OLD_REF_TYPE_CODE IS NOT NULL) or
1969: (P_REF_BY_ID = FND_API.G_MISS_NUM and P_REF_TYPE_CODE IS NULL and P_OLD_REF_BY_ID IS NOT NULL)
1970:
1963:
1964: IF (P_REF_TYPE_CODE IS NULL and P_REF_BY_ID IS NOT NULL) or
1965: (P_REF_TYPE_CODE IS NOT NULL and P_REF_BY_ID IS NULL) or
1966: (P_REF_TYPE_CODE = FND_API.G_MISS_CHAR and P_REF_BY_ID IS NOT NULL and P_OLD_REF_TYPE_CODE IS NULL) or
1967: (P_REF_BY_ID = FND_API.G_MISS_NUM and P_REF_TYPE_CODE IS NOT NULL and P_OLD_REF_BY_ID IS NULL) or
1968: (P_REF_BY_ID IS NULL and P_REF_TYPE_CODE = FND_API.G_MISS_CHAR and P_OLD_REF_TYPE_CODE IS NOT NULL) or
1969: (P_REF_BY_ID = FND_API.G_MISS_NUM and P_REF_TYPE_CODE IS NULL and P_OLD_REF_BY_ID IS NOT NULL)
1970:
1971: THEN
1964: IF (P_REF_TYPE_CODE IS NULL and P_REF_BY_ID IS NOT NULL) or
1965: (P_REF_TYPE_CODE IS NOT NULL and P_REF_BY_ID IS NULL) or
1966: (P_REF_TYPE_CODE = FND_API.G_MISS_CHAR and P_REF_BY_ID IS NOT NULL and P_OLD_REF_TYPE_CODE IS NULL) or
1967: (P_REF_BY_ID = FND_API.G_MISS_NUM and P_REF_TYPE_CODE IS NOT NULL and P_OLD_REF_BY_ID IS NULL) or
1968: (P_REF_BY_ID IS NULL and P_REF_TYPE_CODE = FND_API.G_MISS_CHAR and P_OLD_REF_TYPE_CODE IS NOT NULL) or
1969: (P_REF_BY_ID = FND_API.G_MISS_NUM and P_REF_TYPE_CODE IS NULL and P_OLD_REF_BY_ID IS NOT NULL)
1970:
1971: THEN
1972:
1965: (P_REF_TYPE_CODE IS NOT NULL and P_REF_BY_ID IS NULL) or
1966: (P_REF_TYPE_CODE = FND_API.G_MISS_CHAR and P_REF_BY_ID IS NOT NULL and P_OLD_REF_TYPE_CODE IS NULL) or
1967: (P_REF_BY_ID = FND_API.G_MISS_NUM and P_REF_TYPE_CODE IS NOT NULL and P_OLD_REF_BY_ID IS NULL) or
1968: (P_REF_BY_ID IS NULL and P_REF_TYPE_CODE = FND_API.G_MISS_CHAR and P_OLD_REF_TYPE_CODE IS NOT NULL) or
1969: (P_REF_BY_ID = FND_API.G_MISS_NUM and P_REF_TYPE_CODE IS NULL and P_OLD_REF_BY_ID IS NOT NULL)
1970:
1971: THEN
1972:
1973: AS_UTILITY_PVT.Set_Message(
1973: AS_UTILITY_PVT.Set_Message(
1974: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1975: p_msg_name => 'AS_REF_TYPE_REF_BY');
1976:
1977: x_return_status := FND_API.G_RET_STS_ERROR;
1978:
1979: END IF;
1980:
1981:
1989: END Validate_REF_BY_REF_TYPE;
1990:
1991:
1992: PROCEDURE Validate_OFFER_ID (
1993: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1994: P_Validation_mode IN VARCHAR2,
1995: P_SOURCE_PROMOTION_ID IN NUMBER,
1996: P_OFFER_ID IN NUMBER,
1997: X_Item_Property_Rec OUT NOCOPY AS_UTILITY_PUB.ITEM_PROPERTY_REC_TYPE,
2025:
2026: BEGIN
2027:
2028: -- Initialize message list IF p_init_msg_list is set to TRUE.
2029: IF FND_API.to_Boolean( p_init_msg_list )
2030: THEN
2031: FND_MSG_PUB.initialize;
2032: END IF;
2033:
2031: FND_MSG_PUB.initialize;
2032: END IF;
2033:
2034: -- Initialize API return status to SUCCESS
2035: x_return_status := FND_API.G_RET_STS_SUCCESS;
2036:
2037: -- Debug Message
2038: -- IF (AS_DEBUG_LOW_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2039: -- 'Validate offer id'); END IF;
2037: -- Debug Message
2038: -- IF (AS_DEBUG_LOW_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2039: -- 'Validate offer id'); END IF;
2040:
2041: IF (p_OFFER_ID is NOT NULL) and (p_OFFER_ID <> FND_API.G_MISS_NUM)
2042: THEN
2043: -- OFFER_ID should exist in ams_act_offers
2044: OPEN C_OFFER_ID_Exists (p_OFFER_ID);
2045: FETCH C_OFFER_ID_Exists into l_val;
2057: p_token1_value => 'OFFER',
2058: p_token2 => 'VALUE',
2059: p_token2_value => p_OFFER_ID );
2060:
2061: x_return_status := FND_API.G_RET_STS_ERROR;
2062: END IF;
2063: CLOSE C_OFFER_ID_Exists;
2064: END IF;
2065:
2072: END Validate_OFFER_ID;
2073:
2074:
2075: PROCEDURE Validate_INC_PARTNER_PARTY_ID (
2076: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2077: P_Validation_mode IN VARCHAR2,
2078: P_INC_PARTNER_PARTY_ID IN NUMBER,
2079: X_Item_Property_Rec OUT NOCOPY AS_UTILITY_PUB.ITEM_PROPERTY_REC_TYPE,
2080: X_Return_Status OUT NOCOPY VARCHAR2,
2090:
2091: BEGIN
2092:
2093: -- Initialize message list if p_init_msg_list is set to TRUE.
2094: IF FND_API.to_Boolean( p_init_msg_list )
2095: THEN
2096: FND_MSG_PUB.initialize;
2097: END IF;
2098:
2097: END IF;
2098:
2099:
2100: -- Initialize API return status to SUCCESS
2101: x_return_status := FND_API.G_RET_STS_SUCCESS;
2102:
2103: IF (P_INC_PARTNER_PARTY_ID is NOT NULL) and
2104: (P_INC_PARTNER_PARTY_ID <> FND_API.G_MISS_NUM)
2105: THEN
2100: -- Initialize API return status to SUCCESS
2101: x_return_status := FND_API.G_RET_STS_SUCCESS;
2102:
2103: IF (P_INC_PARTNER_PARTY_ID is NOT NULL) and
2104: (P_INC_PARTNER_PARTY_ID <> FND_API.G_MISS_NUM)
2105: THEN
2106: OPEN C_INC_PRTN_PARTY_ID_Exist (P_INC_PARTNER_PARTY_ID);
2107: FETCH C_INC_PRTN_PARTY_ID_Exist into l_val;
2108:
2136: END Validate_INC_PARTNER_PARTY_ID;
2137:
2138:
2139: PROCEDURE Validate_INC_PRTNR_RESOURCE_ID (
2140: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2141: P_Validation_mode IN VARCHAR2,
2142: P_INC_PARTNER_RESOURCE_ID IN NUMBER,
2143: X_Item_Property_Rec OUT NOCOPY AS_UTILITY_PUB.ITEM_PROPERTY_REC_TYPE,
2144: X_Return_Status OUT NOCOPY VARCHAR2,
2156: l_val VARCHAR2(1);
2157:
2158: BEGIN
2159: -- Initialize message list if p_init_msg_list is set to TRUE.
2160: IF FND_API.to_Boolean( p_init_msg_list )
2161: THEN
2162: FND_MSG_PUB.initialize;
2163: END IF;
2164:
2162: FND_MSG_PUB.initialize;
2163: END IF;
2164:
2165: -- Initialize API return status to SUCCESS
2166: x_return_status := FND_API.G_RET_STS_SUCCESS;
2167:
2168: IF (p_INC_PARTNER_RESOURCE_ID is NOT NULL) and
2169: (p_INC_PARTNER_RESOURCE_ID <> FND_API.G_MISS_NUM)
2170: THEN
2165: -- Initialize API return status to SUCCESS
2166: x_return_status := FND_API.G_RET_STS_SUCCESS;
2167:
2168: IF (p_INC_PARTNER_RESOURCE_ID is NOT NULL) and
2169: (p_INC_PARTNER_RESOURCE_ID <> FND_API.G_MISS_NUM)
2170: THEN
2171: -- INCUMBENT_PARTNER_RESOURCE_ID should exist in as_sf_ptr_v
2172: OPEN C_RESOURCE_ID_Exists (p_INC_PARTNER_RESOURCE_ID);
2173: FETCH C_RESOURCE_ID_Exists into l_val;
2186: p_token1_value => 'INCUMBENT_PARTNER_RESOURCE_ID',
2187: p_token2 => 'VALUE',
2188: p_token2_value => p_INC_PARTNER_RESOURCE_ID );
2189:
2190: x_return_status := FND_API.G_RET_STS_ERROR;
2191: END IF;
2192:
2193: CLOSE C_RESOURCE_ID_Exists;
2194: END IF;
2202: END Validate_INC_PRTNR_RESOURCE_ID;
2203:
2204:
2205: PROCEDURE Validate_PRM_EXEC_SPONSOR_FLAG (
2206: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2207: P_Validation_mode IN VARCHAR2,
2208: P_PRM_EXEC_SPONSOR_FLAG IN VARCHAR2,
2209: X_Item_Property_Rec OUT NOCOPY AS_UTILITY_PUB.ITEM_PROPERTY_REC_TYPE,
2210: X_Return_Status OUT NOCOPY VARCHAR2,
2213: )
2214: IS
2215: BEGIN
2216: -- Initialize message list IF p_init_msg_list is set to TRUE.
2217: IF FND_API.to_Boolean( p_init_msg_list )
2218: THEN
2219: FND_MSG_PUB.initialize;
2220: END IF;
2221:
2219: FND_MSG_PUB.initialize;
2220: END IF;
2221:
2222: -- Initialize API return status to SUCCESS
2223: x_return_status := FND_API.G_RET_STS_SUCCESS;
2224:
2225: -- Debug Message
2226: -- IF (AS_DEBUG_LOW_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2227: -- 'Validate PRM_EXEC_SPONSOR_FLAG'); END IF;
2226: -- IF (AS_DEBUG_LOW_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2227: -- 'Validate PRM_EXEC_SPONSOR_FLAG'); END IF;
2228:
2229: IF (p_PRM_EXEC_SPONSOR_FLAG is NOT NULL) and
2230: (p_PRM_EXEC_SPONSOR_FLAG <> FND_API.G_MISS_CHAR)
2231: THEN
2232: IF (UPPER(p_PRM_EXEC_SPONSOR_FLAG) <> 'Y') and
2233: (UPPER(p_PRM_EXEC_SPONSOR_FLAG) <> 'N')
2234: THEN
2245: p_token1_value => 'PRM_EXEC_SPONSOR_FLAG',
2246: p_token2 => 'VALUE',
2247: p_token2_value => p_PRM_EXEC_SPONSOR_FLAG );
2248:
2249: x_return_status := FND_API.G_RET_STS_ERROR;
2250: END IF;
2251: END IF;
2252:
2253: -- Standard call to get message count and IF count is 1, get message info.
2259: END Validate_PRM_EXEC_SPONSOR_FLAG;
2260:
2261:
2262: PROCEDURE Validate_PRM_PRJ_LDINPLE_FLAG (
2263: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2264: P_Validation_mode IN VARCHAR2,
2265: P_PRM_PRJ_LEAD_IN_PLACE_FLAG IN VARCHAR2,
2266: X_Item_Property_Rec OUT NOCOPY AS_UTILITY_PUB.ITEM_PROPERTY_REC_TYPE,
2267: X_Return_Status OUT NOCOPY VARCHAR2,
2270: )
2271: IS
2272: BEGIN
2273: -- Initialize message list IF p_init_msg_list is set to TRUE.
2274: IF FND_API.to_Boolean( p_init_msg_list )
2275: THEN
2276: FND_MSG_PUB.initialize;
2277: END IF;
2278:
2276: FND_MSG_PUB.initialize;
2277: END IF;
2278:
2279: -- Initialize API return status to SUCCESS
2280: x_return_status := FND_API.G_RET_STS_SUCCESS;
2281:
2282: -- Debug Message
2283: -- IF (AS_DEBUG_LOW_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2284: -- 'Validate PRM_PRJ_LDINPLE_FLAG'); END IF;
2283: -- IF (AS_DEBUG_LOW_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2284: -- 'Validate PRM_PRJ_LDINPLE_FLAG'); END IF;
2285:
2286: IF (p_PRM_PRJ_LEAD_IN_PLACE_FLAG is NOT NULL) and
2287: (p_PRM_PRJ_LEAD_IN_PLACE_FLAG <> FND_API.G_MISS_CHAR)
2288: THEN
2289: IF (UPPER(p_PRM_PRJ_LEAD_IN_PLACE_FLAG) <> 'Y') and
2290: (UPPER(p_PRM_PRJ_LEAD_IN_PLACE_FLAG) <> 'N')
2291: THEN
2302: p_token1_value => 'PRM_PRJ_LEAD_IN_PLACE_FLAG',
2303: p_token2 => 'VALUE',
2304: p_token2_value => p_PRM_PRJ_LEAD_IN_PLACE_FLAG );
2305:
2306: x_return_status := FND_API.G_RET_STS_ERROR;
2307: END IF;
2308: END IF;
2309:
2310: -- Standard call to get message count and IF count is 1, get message info.
2316: END Validate_PRM_PRJ_LDINPLE_FLAG;
2317:
2318:
2319: PROCEDURE Validate_PRM_LEAD_TYPE (
2320: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2321: P_Validation_mode IN VARCHAR2,
2322: P_PRM_LEAD_TYPE IN VARCHAR2,
2323: X_Item_Property_Rec OUT NOCOPY AS_UTILITY_PUB.ITEM_PROPERTY_REC_TYPE,
2324: X_Return_Status OUT NOCOPY VARCHAR2,
2335:
2336: BEGIN
2337:
2338: -- Initialize message list IF p_init_msg_list is set to TRUE.
2339: IF FND_API.to_Boolean( p_init_msg_list )
2340: THEN
2341: FND_MSG_PUB.initialize;
2342: END IF;
2343:
2342: END IF;
2343:
2344:
2345: -- Initialize API return status to SUCCESS
2346: x_return_status := FND_API.G_RET_STS_SUCCESS;
2347:
2348: -- Debug Message
2349: -- IF (AS_DEBUG_LOW_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2350: -- 'Validate PRM_LEAD_TYPE'); END IF;
2349: -- IF (AS_DEBUG_LOW_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2350: -- 'Validate PRM_LEAD_TYPE'); END IF;
2351:
2352: IF (p_PRM_LEAD_TYPE is NOT NULL) and
2353: (p_PRM_LEAD_TYPE <> FND_API.G_MISS_CHAR)
2354: THEN
2355: -- PRM_LEAD_TYPE should exist in as_lookups
2356: OPEN C_PRM_LEAD_TYPE_Exists (p_PRM_LEAD_TYPE);
2357: FETCH C_PRM_LEAD_TYPE_Exists into l_val;
2368: p_token1 => 'COLUMN',
2369: p_token1_value => 'PRM_LEAD_TYPE',
2370: p_token2 => 'VALUE',
2371: p_token2_value => p_PRM_LEAD_TYPE );
2372: x_return_status := FND_API.G_RET_STS_ERROR;
2373: END IF;
2374: CLOSE C_PRM_LEAD_TYPE_Exists;
2375: END IF;
2376:
2383: END Validate_PRM_LEAD_TYPE;
2384:
2385:
2386: PROCEDURE Validate_PRM_IND_CLS_CODE (
2387: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2388: P_Validation_mode IN VARCHAR2,
2389: P_PRM_IND_CLASSIFICATION_CODE IN VARCHAR2,
2390: x_Item_Property_Rec OUT NOCOPY AS_UTILITY_PUB.ITEM_PROPERTY_REC_TYPE,
2391: X_Return_Status OUT NOCOPY VARCHAR2,
2402:
2403: BEGIN
2404:
2405: -- Initialize message list IF p_init_msg_list is set to TRUE.
2406: IF FND_API.to_Boolean( p_init_msg_list )
2407: THEN
2408: FND_MSG_PUB.initialize;
2409: END IF;
2410:
2409: END IF;
2410:
2411:
2412: -- Initialize API return status to SUCCESS
2413: x_return_status := FND_API.G_RET_STS_SUCCESS;
2414:
2415: -- Debug Message
2416: -- IF (AS_DEBUG_LOW_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2417: -- 'Validate PRM_IND_CLS_CODE'); END IF;
2416: -- IF (AS_DEBUG_LOW_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2417: -- 'Validate PRM_IND_CLS_CODE'); END IF;
2418:
2419: IF (p_PRM_IND_CLASSIFICATION_CODE is NOT NULL) and
2420: (p_PRM_IND_CLASSIFICATION_CODE <> FND_API.G_MISS_CHAR)
2421: THEN
2422: -- PRM_IND_CLASSIFICATION_CODE should exist in as_lookups
2423: OPEN C_PRM_IND_CLS_CODE_Exists (p_PRM_IND_CLASSIFICATION_CODE);
2424: FETCH C_PRM_IND_CLS_CODE_Exists into l_val;
2435: p_token1 => 'COLUMN',
2436: p_token1_value => 'PRM_IND_CLASSIFICATION_CODE',
2437: p_token2 => 'VALUE',
2438: p_token2_value => p_PRM_IND_CLASSIFICATION_CODE );
2439: x_return_status := FND_API.G_RET_STS_ERROR;
2440: END IF;
2441: CLOSE C_PRM_IND_CLS_CODE_Exists;
2442: END IF;
2443:
2451:
2452:
2453:
2454: PROCEDURE Validate_AUTO_ASSIGNMENT_TYPE (
2455: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2456: P_Validation_mode IN VARCHAR2,
2457: P_AUTO_ASSIGNMENT_TYPE IN VARCHAR2,
2458: X_Item_Property_Rec OUT NOCOPY AS_UTILITY_PUB.ITEM_PROPERTY_REC_TYPE,
2459: X_Return_Status OUT NOCOPY VARCHAR2,
2471:
2472: BEGIN
2473:
2474: -- Initialize message list if p_init_msg_list is set to TRUE.
2475: IF FND_API.to_Boolean( p_init_msg_list )
2476: THEN
2477: FND_MSG_PUB.initialize;
2478: END IF;
2479:
2478: END IF;
2479:
2480:
2481: -- Initialize API return status to SUCCESS
2482: x_return_status := FND_API.G_RET_STS_SUCCESS;
2483:
2484: IF (p_AUTO_ASSIGNMENT_TYPE is NOT NULL) and
2485: (p_AUTO_ASSIGNMENT_TYPE <> FND_API.G_MISS_CHAR)
2486: THEN
2481: -- Initialize API return status to SUCCESS
2482: x_return_status := FND_API.G_RET_STS_SUCCESS;
2483:
2484: IF (p_AUTO_ASSIGNMENT_TYPE is NOT NULL) and
2485: (p_AUTO_ASSIGNMENT_TYPE <> FND_API.G_MISS_CHAR)
2486: THEN
2487: -- AUTO_ASSIGNMENT_TYPE should exist in as_lookups
2488: OPEN C_AUTO_ASGN_TYPE_Exists ('AUTO_ASSIGNMENT_TYPE',
2489: p_AUTO_ASSIGNMENT_TYPE);
2498: p_msg_name => 'API_INVALID_AUTO_ASGN_TYPE',
2499: p_token1 => 'VALUE',
2500: p_token1_value => p_AUTO_ASSIGNMENT_TYPE );
2501:
2502: x_return_status := FND_API.G_RET_STS_ERROR;
2503: END IF;
2504:
2505: CLOSE C_AUTO_ASGN_TYPE_Exists;
2506: END IF;
2514: END Validate_AUTO_ASSIGNMENT_TYPE;
2515:
2516:
2517: PROCEDURE Validate_PRM_ASSIGNMENT_TYPE (
2518: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2519: P_Validation_mode IN VARCHAR2,
2520: P_PRM_ASSIGNMENT_TYPE IN VARCHAR2,
2521: X_Item_Property_Rec OUT NOCOPY AS_UTILITY_PUB.ITEM_PROPERTY_REC_TYPE,
2522: X_Return_Status OUT NOCOPY VARCHAR2,
2533: l_val VARCHAR2(1);
2534:
2535: BEGIN
2536: -- Initialize message list if p_init_msg_list is set to TRUE.
2537: IF FND_API.to_Boolean( p_init_msg_list )
2538: THEN
2539: FND_MSG_PUB.initialize;
2540: END IF;
2541:
2539: FND_MSG_PUB.initialize;
2540: END IF;
2541:
2542: -- Initialize API return status to SUCCESS
2543: x_return_status := FND_API.G_RET_STS_SUCCESS;
2544:
2545: IF (p_PRM_ASSIGNMENT_TYPE is NOT NULL) and
2546: (p_PRM_ASSIGNMENT_TYPE <> FND_API.G_MISS_CHAR)
2547: THEN
2542: -- Initialize API return status to SUCCESS
2543: x_return_status := FND_API.G_RET_STS_SUCCESS;
2544:
2545: IF (p_PRM_ASSIGNMENT_TYPE is NOT NULL) and
2546: (p_PRM_ASSIGNMENT_TYPE <> FND_API.G_MISS_CHAR)
2547: THEN
2548: -- PRM_ASSIGNMENT_TYPE should exist in as_lookups
2549: OPEN C_PRM_ASGN_TYPE_Exists ('PRM_ASSIGNMENT_TYPE',
2550: p_PRM_ASSIGNMENT_TYPE);
2559: p_msg_name => 'API_INVALID_PRM_ASGN_TYPE',
2560: p_token1 => 'VALUE',
2561: p_token1_value => p_PRM_ASSIGNMENT_TYPE );
2562:
2563: x_return_status := FND_API.G_RET_STS_ERROR;
2564: END IF;
2565:
2566: CLOSE C_PRM_ASGN_TYPE_Exists;
2567: END IF;
2584: -- Inter-record level validation
2585: --
2586:
2587: PROCEDURE Validate_Budget_Amounts(
2588: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2589: P_Validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2590: P_Validation_mode IN VARCHAR2,
2591: P_SALES_LEAD_ID IN NUMBER,
2592: X_Return_Status OUT NOCOPY VARCHAR2,
2585: --
2586:
2587: PROCEDURE Validate_Budget_Amounts(
2588: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2589: P_Validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2590: P_Validation_mode IN VARCHAR2,
2591: P_SALES_LEAD_ID IN NUMBER,
2592: X_Return_Status OUT NOCOPY VARCHAR2,
2593: X_Msg_Count OUT NOCOPY NUMBER,
2607: l_header_amount NUMBER;
2608: l_lines_amounts NUMBER;
2609: BEGIN
2610: -- Initialize message list IF p_init_msg_list is set to TRUE.
2611: IF FND_API.to_Boolean( p_init_msg_list )
2612: THEN
2613: FND_MSG_PUB.initialize;
2614: END IF;
2615:
2613: FND_MSG_PUB.initialize;
2614: END IF;
2615:
2616: -- Initialize API return status to SUCCESS
2617: x_return_status := FND_API.G_RET_STS_SUCCESS;
2618:
2619: -- Debug Message
2620: -- IF (AS_DEBUG_LOW_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2621: -- 'Validate budget amount'); END IF;
2634: THEN
2635: AS_UTILITY_PVT.Set_Message(
2636: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
2637: p_msg_name => 'AS_BUDGET_AMOUNT_NOT_MATCH');
2638: x_return_status := FND_API.G_RET_STS_ERROR;
2639: END IF;
2640:
2641: -- Standard call to get message count and IF count is 1, get message info.
2642: FND_MSG_PUB.Count_And_Get
2647:
2648: -- validation procedures
2649:
2650: PROCEDURE Validate_sales_lead(
2651: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2652: P_Validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2653: P_Validation_mode IN VARCHAR2,
2654: P_SALES_LEAD_Rec IN OUT NOCOPY AS_SALES_LEADS_PUB.SALES_LEAD_Rec_Type,
2655: P_Referral_Type IN VARCHAR2,
2648: -- validation procedures
2649:
2650: PROCEDURE Validate_sales_lead(
2651: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
2652: P_Validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2653: P_Validation_mode IN VARCHAR2,
2654: P_SALES_LEAD_Rec IN OUT NOCOPY AS_SALES_LEADS_PUB.SALES_LEAD_Rec_Type,
2655: P_Referral_Type IN VARCHAR2,
2656: P_Referred_By IN NUMBER,
2665: l_close_reason_code VARCHAR2(50);
2666:
2667: BEGIN
2668: -- Initialize message list IF p_init_msg_list is set to TRUE.
2669: IF FND_API.to_Boolean( p_init_msg_list )
2670: THEN
2671: FND_MSG_PUB.initialize;
2672: END IF;
2673:
2678: 'PVT:' || l_api_name || ' Start');
2679: END IF;
2680:
2681: -- Initialize API return status to SUCCESS
2682: x_return_status := FND_API.G_RET_STS_SUCCESS;
2683: l_return_status := FND_API.G_RET_STS_SUCCESS;
2684:
2685: IF ( P_validation_level >= AS_UTILITY_PUB.G_VALID_LEVEL_ITEM)
2686: THEN
2679: END IF;
2680:
2681: -- Initialize API return status to SUCCESS
2682: x_return_status := FND_API.G_RET_STS_SUCCESS;
2683: l_return_status := FND_API.G_RET_STS_SUCCESS;
2684:
2685: IF ( P_validation_level >= AS_UTILITY_PUB.G_VALID_LEVEL_ITEM)
2686: THEN
2687: -- Perform item level validation
2685: IF ( P_validation_level >= AS_UTILITY_PUB.G_VALID_LEVEL_ITEM)
2686: THEN
2687: -- Perform item level validation
2688: Validate_CUSTOMER_ID(
2689: p_init_msg_list => FND_API.G_FALSE,
2690: p_validation_mode => p_validation_mode,
2691: p_CUSTOMER_ID => P_SALES_LEAD_Rec.CUSTOMER_ID,
2692: x_return_status => x_return_status,
2693: x_msg_count => x_msg_count,
2691: p_CUSTOMER_ID => P_SALES_LEAD_Rec.CUSTOMER_ID,
2692: x_return_status => x_return_status,
2693: x_msg_count => x_msg_count,
2694: x_msg_data => x_msg_data);
2695: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2696: l_return_status := FND_API.G_RET_STS_ERROR;
2697: -- raise FND_API.G_EXC_ERROR;
2698: END IF;
2699:
2692: x_return_status => x_return_status,
2693: x_msg_count => x_msg_count,
2694: x_msg_data => x_msg_data);
2695: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2696: l_return_status := FND_API.G_RET_STS_ERROR;
2697: -- raise FND_API.G_EXC_ERROR;
2698: END IF;
2699:
2700: Validate_ADDRESS_ID(
2693: x_msg_count => x_msg_count,
2694: x_msg_data => x_msg_data);
2695: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2696: l_return_status := FND_API.G_RET_STS_ERROR;
2697: -- raise FND_API.G_EXC_ERROR;
2698: END IF;
2699:
2700: Validate_ADDRESS_ID(
2701: p_init_msg_list => FND_API.G_FALSE,
2697: -- raise FND_API.G_EXC_ERROR;
2698: END IF;
2699:
2700: Validate_ADDRESS_ID(
2701: p_init_msg_list => FND_API.G_FALSE,
2702: p_validation_mode => p_validation_mode,
2703: p_CUSTOMER_ID => P_SALES_LEAD_Rec.CUSTOMER_ID,
2704: p_ADDRESS_ID => P_SALES_LEAD_Rec.ADDRESS_ID,
2705: x_return_status => x_return_status,
2704: p_ADDRESS_ID => P_SALES_LEAD_Rec.ADDRESS_ID,
2705: x_return_status => x_return_status,
2706: x_msg_count => x_msg_count,
2707: x_msg_data => x_msg_data);
2708: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2709: l_return_status := FND_API.G_RET_STS_ERROR;
2710: -- raise FND_API.G_EXC_ERROR;
2711: END IF;
2712:
2705: x_return_status => x_return_status,
2706: x_msg_count => x_msg_count,
2707: x_msg_data => x_msg_data);
2708: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2709: l_return_status := FND_API.G_RET_STS_ERROR;
2710: -- raise FND_API.G_EXC_ERROR;
2711: END IF;
2712:
2713: /* This column is not required anymore
2706: x_msg_count => x_msg_count,
2707: x_msg_data => x_msg_data);
2708: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2709: l_return_status := FND_API.G_RET_STS_ERROR;
2710: -- raise FND_API.G_EXC_ERROR;
2711: END IF;
2712:
2713: /* This column is not required anymore
2714: Validate_LEAD_NUMBER(
2711: END IF;
2712:
2713: /* This column is not required anymore
2714: Validate_LEAD_NUMBER(
2715: p_init_msg_list => FND_API.G_FALSE,
2716: p_validation_mode => p_validation_mode,
2717: p_LEAD_NUMBER => P_SALES_LEAD_Rec.LEAD_NUMBER,
2718: x_return_status => x_return_status,
2719: x_msg_count => x_msg_count,
2717: p_LEAD_NUMBER => P_SALES_LEAD_Rec.LEAD_NUMBER,
2718: x_return_status => x_return_status,
2719: x_msg_count => x_msg_count,
2720: x_msg_data => x_msg_data);
2721: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2722: l_return_status := FND_API.G_RET_STS_ERROR;
2723: -- raise FND_API.G_EXC_ERROR;
2724: END IF;
2725: */
2718: x_return_status => x_return_status,
2719: x_msg_count => x_msg_count,
2720: x_msg_data => x_msg_data);
2721: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2722: l_return_status := FND_API.G_RET_STS_ERROR;
2723: -- raise FND_API.G_EXC_ERROR;
2724: END IF;
2725: */
2726:
2719: x_msg_count => x_msg_count,
2720: x_msg_data => x_msg_data);
2721: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2722: l_return_status := FND_API.G_RET_STS_ERROR;
2723: -- raise FND_API.G_EXC_ERROR;
2724: END IF;
2725: */
2726:
2727: Validate_STATUS_CODE(
2724: END IF;
2725: */
2726:
2727: Validate_STATUS_CODE(
2728: p_init_msg_list => FND_API.G_FALSE,
2729: p_validation_mode => p_validation_mode,
2730: p_STATUS_CODE => P_SALES_LEAD_Rec.STATUS_CODE,
2731: p_sales_lead_id =>P_SALES_LEAD_Rec.SALES_LEAD_ID,
2732: x_return_status => x_return_status,
2731: p_sales_lead_id =>P_SALES_LEAD_Rec.SALES_LEAD_ID,
2732: x_return_status => x_return_status,
2733: x_msg_count => x_msg_count,
2734: x_msg_data => x_msg_data);
2735: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2736: l_return_status := FND_API.G_RET_STS_ERROR;
2737: -- raise FND_API.G_EXC_ERROR;
2738: END IF;
2739:
2732: x_return_status => x_return_status,
2733: x_msg_count => x_msg_count,
2734: x_msg_data => x_msg_data);
2735: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2736: l_return_status := FND_API.G_RET_STS_ERROR;
2737: -- raise FND_API.G_EXC_ERROR;
2738: END IF;
2739:
2740: Validate_SOURCE_PROMOTION_ID(
2733: x_msg_count => x_msg_count,
2734: x_msg_data => x_msg_data);
2735: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2736: l_return_status := FND_API.G_RET_STS_ERROR;
2737: -- raise FND_API.G_EXC_ERROR;
2738: END IF;
2739:
2740: Validate_SOURCE_PROMOTION_ID(
2741: p_init_msg_list => FND_API.G_FALSE,
2737: -- raise FND_API.G_EXC_ERROR;
2738: END IF;
2739:
2740: Validate_SOURCE_PROMOTION_ID(
2741: p_init_msg_list => FND_API.G_FALSE,
2742: p_validation_mode => p_validation_mode,
2743: p_SOURCE_PROMOTION_ID => P_SALES_LEAD_Rec.SOURCE_PROMOTION_ID,
2744: x_return_status => x_return_status,
2745: x_msg_count => x_msg_count,
2743: p_SOURCE_PROMOTION_ID => P_SALES_LEAD_Rec.SOURCE_PROMOTION_ID,
2744: x_return_status => x_return_status,
2745: x_msg_count => x_msg_count,
2746: x_msg_data => x_msg_data);
2747: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2748: l_return_status := FND_API.G_RET_STS_ERROR;
2749: -- raise FND_API.G_EXC_ERROR;
2750: END IF;
2751:
2744: x_return_status => x_return_status,
2745: x_msg_count => x_msg_count,
2746: x_msg_data => x_msg_data);
2747: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2748: l_return_status := FND_API.G_RET_STS_ERROR;
2749: -- raise FND_API.G_EXC_ERROR;
2750: END IF;
2751:
2752: -- 11.5.10 ckapoor Adding validation for sales methodology ID
2745: x_msg_count => x_msg_count,
2746: x_msg_data => x_msg_data);
2747: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2748: l_return_status := FND_API.G_RET_STS_ERROR;
2749: -- raise FND_API.G_EXC_ERROR;
2750: END IF;
2751:
2752: -- 11.5.10 ckapoor Adding validation for sales methodology ID
2753:
2751:
2752: -- 11.5.10 ckapoor Adding validation for sales methodology ID
2753:
2754: Validate_Sales_Methodology_ID(
2755: p_init_msg_list => FND_API.G_FALSE,
2756: p_validation_mode => p_validation_mode,
2757: p_Sales_Methodology_ID => P_SALES_LEAD_Rec.SALES_METHODOLOGY_ID,
2758: x_return_status => x_return_status,
2759: x_msg_count => x_msg_count,
2757: p_Sales_Methodology_ID => P_SALES_LEAD_Rec.SALES_METHODOLOGY_ID,
2758: x_return_status => x_return_status,
2759: x_msg_count => x_msg_count,
2760: x_msg_data => x_msg_data);
2761: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2762: l_return_status := FND_API.G_RET_STS_ERROR;
2763: -- raise FND_API.G_EXC_ERROR;
2764: END IF;
2765:
2758: x_return_status => x_return_status,
2759: x_msg_count => x_msg_count,
2760: x_msg_data => x_msg_data);
2761: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2762: l_return_status := FND_API.G_RET_STS_ERROR;
2763: -- raise FND_API.G_EXC_ERROR;
2764: END IF;
2765:
2766:
2759: x_msg_count => x_msg_count,
2760: x_msg_data => x_msg_data);
2761: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2762: l_return_status := FND_API.G_RET_STS_ERROR;
2763: -- raise FND_API.G_EXC_ERROR;
2764: END IF;
2765:
2766:
2767:
2765:
2766:
2767:
2768: Validate_Sales_Stage_ID(
2769: p_init_msg_list => FND_API.G_FALSE,
2770: p_validation_mode => p_validation_mode,
2771: p_Sales_Methodology_ID => P_SALES_LEAD_Rec.SALES_METHODOLOGY_ID,
2772: p_Sales_Stage_ID => p_sales_lead_rec.SALES_STAGE_ID,
2773: x_return_status => x_return_status,
2772: p_Sales_Stage_ID => p_sales_lead_rec.SALES_STAGE_ID,
2773: x_return_status => x_return_status,
2774: x_msg_count => x_msg_count,
2775: x_msg_data => x_msg_data);
2776: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2777: l_return_status := FND_API.G_RET_STS_ERROR;
2778: -- raise FND_API.G_EXC_ERROR;
2779: END IF;
2780:
2773: x_return_status => x_return_status,
2774: x_msg_count => x_msg_count,
2775: x_msg_data => x_msg_data);
2776: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2777: l_return_status := FND_API.G_RET_STS_ERROR;
2778: -- raise FND_API.G_EXC_ERROR;
2779: END IF;
2780:
2781:
2774: x_msg_count => x_msg_count,
2775: x_msg_data => x_msg_data);
2776: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2777: l_return_status := FND_API.G_RET_STS_ERROR;
2778: -- raise FND_API.G_EXC_ERROR;
2779: END IF;
2780:
2781:
2782:
2781:
2782:
2783: /* This column is obsoleted in 11i
2784: Validate_CONTACT_ROLE_CODE(
2785: p_init_msg_list => FND_API.G_FALSE,
2786: p_validation_mode => p_validation_mode,
2787: p_CONTACT_ROLE_CODE => P_SALES_LEAD_Rec.CONTACT_ROLE_CODE,
2788: x_return_status => x_return_status,
2789: x_msg_count => x_msg_count,
2787: p_CONTACT_ROLE_CODE => P_SALES_LEAD_Rec.CONTACT_ROLE_CODE,
2788: x_return_status => x_return_status,
2789: x_msg_count => x_msg_count,
2790: x_msg_data => x_msg_data);
2791: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2792: l_return_status := FND_API.G_RET_STS_ERROR;
2793: -- raise FND_API.G_EXC_ERROR;
2794: END IF;
2795: */
2788: x_return_status => x_return_status,
2789: x_msg_count => x_msg_count,
2790: x_msg_data => x_msg_data);
2791: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2792: l_return_status := FND_API.G_RET_STS_ERROR;
2793: -- raise FND_API.G_EXC_ERROR;
2794: END IF;
2795: */
2796:
2789: x_msg_count => x_msg_count,
2790: x_msg_data => x_msg_data);
2791: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2792: l_return_status := FND_API.G_RET_STS_ERROR;
2793: -- raise FND_API.G_EXC_ERROR;
2794: END IF;
2795: */
2796:
2797: Validate_CHANNEL_CODE(
2794: END IF;
2795: */
2796:
2797: Validate_CHANNEL_CODE(
2798: p_init_msg_list => FND_API.G_FALSE,
2799: p_validation_mode => p_validation_mode,
2800: p_CHANNEL_CODE => P_SALES_LEAD_Rec.CHANNEL_CODE,
2801: x_return_status => x_return_status,
2802: x_msg_count => x_msg_count,
2800: p_CHANNEL_CODE => P_SALES_LEAD_Rec.CHANNEL_CODE,
2801: x_return_status => x_return_status,
2802: x_msg_count => x_msg_count,
2803: x_msg_data => x_msg_data);
2804: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2805: l_return_status := FND_API.G_RET_STS_ERROR;
2806: -- raise FND_API.G_EXC_ERROR;
2807: END IF;
2808:
2801: x_return_status => x_return_status,
2802: x_msg_count => x_msg_count,
2803: x_msg_data => x_msg_data);
2804: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2805: l_return_status := FND_API.G_RET_STS_ERROR;
2806: -- raise FND_API.G_EXC_ERROR;
2807: END IF;
2808:
2809: Validate_CURRENCY_CODE(
2802: x_msg_count => x_msg_count,
2803: x_msg_data => x_msg_data);
2804: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2805: l_return_status := FND_API.G_RET_STS_ERROR;
2806: -- raise FND_API.G_EXC_ERROR;
2807: END IF;
2808:
2809: Validate_CURRENCY_CODE(
2810: p_init_msg_list => FND_API.G_FALSE,
2806: -- raise FND_API.G_EXC_ERROR;
2807: END IF;
2808:
2809: Validate_CURRENCY_CODE(
2810: p_init_msg_list => FND_API.G_FALSE,
2811: p_validation_mode => p_validation_mode,
2812: p_CURRENCY_CODE => P_SALES_LEAD_Rec.CURRENCY_CODE,
2813: x_return_status => x_return_status,
2814: x_msg_count => x_msg_count,
2812: p_CURRENCY_CODE => P_SALES_LEAD_Rec.CURRENCY_CODE,
2813: x_return_status => x_return_status,
2814: x_msg_count => x_msg_count,
2815: x_msg_data => x_msg_data);
2816: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2817: l_return_status := FND_API.G_RET_STS_ERROR;
2818: -- raise FND_API.G_EXC_ERROR;
2819: END IF;
2820:
2813: x_return_status => x_return_status,
2814: x_msg_count => x_msg_count,
2815: x_msg_data => x_msg_data);
2816: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2817: l_return_status := FND_API.G_RET_STS_ERROR;
2818: -- raise FND_API.G_EXC_ERROR;
2819: END IF;
2820:
2821: Validate_DECN_TIMEFRAME_CODE(
2814: x_msg_count => x_msg_count,
2815: x_msg_data => x_msg_data);
2816: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2817: l_return_status := FND_API.G_RET_STS_ERROR;
2818: -- raise FND_API.G_EXC_ERROR;
2819: END IF;
2820:
2821: Validate_DECN_TIMEFRAME_CODE(
2822: p_init_msg_list => FND_API.G_FALSE,
2818: -- raise FND_API.G_EXC_ERROR;
2819: END IF;
2820:
2821: Validate_DECN_TIMEFRAME_CODE(
2822: p_init_msg_list => FND_API.G_FALSE,
2823: p_validation_mode => p_validation_mode,
2824: p_DECISION_TIMEFRAME_CODE
2825: => P_SALES_LEAD_Rec.DECISION_TIMEFRAME_CODE,
2826: x_return_status => x_return_status,
2825: => P_SALES_LEAD_Rec.DECISION_TIMEFRAME_CODE,
2826: x_return_status => x_return_status,
2827: x_msg_count => x_msg_count,
2828: x_msg_data => x_msg_data);
2829: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2830: l_return_status := FND_API.G_RET_STS_ERROR;
2831: -- raise FND_API.G_EXC_ERROR;
2832: END IF;
2833:
2826: x_return_status => x_return_status,
2827: x_msg_count => x_msg_count,
2828: x_msg_data => x_msg_data);
2829: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2830: l_return_status := FND_API.G_RET_STS_ERROR;
2831: -- raise FND_API.G_EXC_ERROR;
2832: END IF;
2833:
2834: Validate_CLOSE_REASON(
2827: x_msg_count => x_msg_count,
2828: x_msg_data => x_msg_data);
2829: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2830: l_return_status := FND_API.G_RET_STS_ERROR;
2831: -- raise FND_API.G_EXC_ERROR;
2832: END IF;
2833:
2834: Validate_CLOSE_REASON(
2835: p_init_msg_list => FND_API.G_FALSE,
2831: -- raise FND_API.G_EXC_ERROR;
2832: END IF;
2833:
2834: Validate_CLOSE_REASON(
2835: p_init_msg_list => FND_API.G_FALSE,
2836: p_validation_mode => p_validation_mode,
2837: p_CLOSE_REASON => P_SALES_LEAD_Rec.CLOSE_REASON,
2838: x_return_status => x_return_status,
2839: x_msg_count => x_msg_count,
2837: p_CLOSE_REASON => P_SALES_LEAD_Rec.CLOSE_REASON,
2838: x_return_status => x_return_status,
2839: x_msg_count => x_msg_count,
2840: x_msg_data => x_msg_data);
2841: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2842: l_return_status := FND_API.G_RET_STS_ERROR;
2843: -- raise FND_API.G_EXC_ERROR;
2844: END IF;
2845:
2838: x_return_status => x_return_status,
2839: x_msg_count => x_msg_count,
2840: x_msg_data => x_msg_data);
2841: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2842: l_return_status := FND_API.G_RET_STS_ERROR;
2843: -- raise FND_API.G_EXC_ERROR;
2844: END IF;
2845:
2846: Validate_LEAD_RANK_ID(
2839: x_msg_count => x_msg_count,
2840: x_msg_data => x_msg_data);
2841: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2842: l_return_status := FND_API.G_RET_STS_ERROR;
2843: -- raise FND_API.G_EXC_ERROR;
2844: END IF;
2845:
2846: Validate_LEAD_RANK_ID(
2847: p_init_msg_list => FND_API.G_FALSE,
2843: -- raise FND_API.G_EXC_ERROR;
2844: END IF;
2845:
2846: Validate_LEAD_RANK_ID(
2847: p_init_msg_list => FND_API.G_FALSE,
2848: p_validation_mode => p_validation_mode,
2849: p_LEAD_RANK_ID => P_SALES_LEAD_Rec.LEAD_RANK_ID,
2850: x_return_status => x_return_status,
2851: x_msg_count => x_msg_count,
2849: p_LEAD_RANK_ID => P_SALES_LEAD_Rec.LEAD_RANK_ID,
2850: x_return_status => x_return_status,
2851: x_msg_count => x_msg_count,
2852: x_msg_data => x_msg_data);
2853: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2854: l_return_status := FND_API.G_RET_STS_ERROR;
2855: -- raise FND_API.G_EXC_ERROR;
2856: END IF;
2857:
2850: x_return_status => x_return_status,
2851: x_msg_count => x_msg_count,
2852: x_msg_data => x_msg_data);
2853: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2854: l_return_status := FND_API.G_RET_STS_ERROR;
2855: -- raise FND_API.G_EXC_ERROR;
2856: END IF;
2857:
2858: Validate_ASSIGN_TO_PERSON_ID(
2851: x_msg_count => x_msg_count,
2852: x_msg_data => x_msg_data);
2853: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2854: l_return_status := FND_API.G_RET_STS_ERROR;
2855: -- raise FND_API.G_EXC_ERROR;
2856: END IF;
2857:
2858: Validate_ASSIGN_TO_PERSON_ID(
2859: p_init_msg_list => FND_API.G_FALSE,
2855: -- raise FND_API.G_EXC_ERROR;
2856: END IF;
2857:
2858: Validate_ASSIGN_TO_PERSON_ID(
2859: p_init_msg_list => FND_API.G_FALSE,
2860: p_validation_mode => p_validation_mode,
2861: p_ASSIGN_TO_PERSON_ID => P_SALES_LEAD_Rec.ASSIGN_TO_PERSON_ID,
2862: x_return_status => x_return_status,
2863: x_msg_count => x_msg_count,
2861: p_ASSIGN_TO_PERSON_ID => P_SALES_LEAD_Rec.ASSIGN_TO_PERSON_ID,
2862: x_return_status => x_return_status,
2863: x_msg_count => x_msg_count,
2864: x_msg_data => x_msg_data);
2865: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2866: l_return_status := FND_API.G_RET_STS_ERROR;
2867: -- raise FND_API.G_EXC_ERROR;
2868: END IF;
2869:
2862: x_return_status => x_return_status,
2863: x_msg_count => x_msg_count,
2864: x_msg_data => x_msg_data);
2865: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2866: l_return_status := FND_API.G_RET_STS_ERROR;
2867: -- raise FND_API.G_EXC_ERROR;
2868: END IF;
2869:
2870: Validate_ASSIGN_TO_SF_ID(
2863: x_msg_count => x_msg_count,
2864: x_msg_data => x_msg_data);
2865: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2866: l_return_status := FND_API.G_RET_STS_ERROR;
2867: -- raise FND_API.G_EXC_ERROR;
2868: END IF;
2869:
2870: Validate_ASSIGN_TO_SF_ID(
2871: p_init_msg_list => FND_API.G_FALSE,
2867: -- raise FND_API.G_EXC_ERROR;
2868: END IF;
2869:
2870: Validate_ASSIGN_TO_SF_ID(
2871: p_init_msg_list => FND_API.G_FALSE,
2872: p_validation_mode => p_validation_mode,
2873: p_ASSIGN_TO_SALESFORCE_ID =>
2874: P_SALES_LEAD_Rec.ASSIGN_TO_SALESFORCE_ID,
2875: x_return_status => x_return_status,
2874: P_SALES_LEAD_Rec.ASSIGN_TO_SALESFORCE_ID,
2875: x_return_status => x_return_status,
2876: x_msg_count => x_msg_count,
2877: x_msg_data => x_msg_data);
2878: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2879: l_return_status := FND_API.G_RET_STS_ERROR;
2880: -- raise FND_API.G_EXC_ERROR;
2881: END IF;
2882:
2875: x_return_status => x_return_status,
2876: x_msg_count => x_msg_count,
2877: x_msg_data => x_msg_data);
2878: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2879: l_return_status := FND_API.G_RET_STS_ERROR;
2880: -- raise FND_API.G_EXC_ERROR;
2881: END IF;
2882:
2883: Validate_BUDGET_STATUS_CODE(
2876: x_msg_count => x_msg_count,
2877: x_msg_data => x_msg_data);
2878: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2879: l_return_status := FND_API.G_RET_STS_ERROR;
2880: -- raise FND_API.G_EXC_ERROR;
2881: END IF;
2882:
2883: Validate_BUDGET_STATUS_CODE(
2884: p_init_msg_list => FND_API.G_FALSE,
2880: -- raise FND_API.G_EXC_ERROR;
2881: END IF;
2882:
2883: Validate_BUDGET_STATUS_CODE(
2884: p_init_msg_list => FND_API.G_FALSE,
2885: p_validation_mode => p_validation_mode,
2886: p_BUDGET_STATUS_CODE => P_SALES_LEAD_Rec.BUDGET_STATUS_CODE,
2887: x_return_status => x_return_status,
2888: x_msg_count => x_msg_count,
2886: p_BUDGET_STATUS_CODE => P_SALES_LEAD_Rec.BUDGET_STATUS_CODE,
2887: x_return_status => x_return_status,
2888: x_msg_count => x_msg_count,
2889: x_msg_data => x_msg_data);
2890: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2891: l_return_status := FND_API.G_RET_STS_ERROR;
2892: -- raise FND_API.G_EXC_ERROR;
2893: END IF;
2894:
2887: x_return_status => x_return_status,
2888: x_msg_count => x_msg_count,
2889: x_msg_data => x_msg_data);
2890: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2891: l_return_status := FND_API.G_RET_STS_ERROR;
2892: -- raise FND_API.G_EXC_ERROR;
2893: END IF;
2894:
2895: Validate_VEHICLE_RESPONSE_CODE(
2888: x_msg_count => x_msg_count,
2889: x_msg_data => x_msg_data);
2890: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2891: l_return_status := FND_API.G_RET_STS_ERROR;
2892: -- raise FND_API.G_EXC_ERROR;
2893: END IF;
2894:
2895: Validate_VEHICLE_RESPONSE_CODE(
2896: p_init_msg_list => FND_API.G_FALSE,
2892: -- raise FND_API.G_EXC_ERROR;
2893: END IF;
2894:
2895: Validate_VEHICLE_RESPONSE_CODE(
2896: p_init_msg_list => FND_API.G_FALSE,
2897: p_validation_mode => p_validation_mode,
2898: p_VEHICLE_RESPONSE_CODE => P_SALES_LEAD_Rec.VEHICLE_RESPONSE_CODE,
2899: x_return_status => x_return_status,
2900: x_msg_count => x_msg_count,
2898: p_VEHICLE_RESPONSE_CODE => P_SALES_LEAD_Rec.VEHICLE_RESPONSE_CODE,
2899: x_return_status => x_return_status,
2900: x_msg_count => x_msg_count,
2901: x_msg_data => x_msg_data);
2902: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2903: l_return_status := FND_API.G_RET_STS_ERROR;
2904: -- raise FND_API.G_EXC_ERROR;
2905: END IF;
2906:
2899: x_return_status => x_return_status,
2900: x_msg_count => x_msg_count,
2901: x_msg_data => x_msg_data);
2902: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2903: l_return_status := FND_API.G_RET_STS_ERROR;
2904: -- raise FND_API.G_EXC_ERROR;
2905: END IF;
2906:
2907: Validate_REJECT_REASON_CODE(
2900: x_msg_count => x_msg_count,
2901: x_msg_data => x_msg_data);
2902: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2903: l_return_status := FND_API.G_RET_STS_ERROR;
2904: -- raise FND_API.G_EXC_ERROR;
2905: END IF;
2906:
2907: Validate_REJECT_REASON_CODE(
2908: p_init_msg_list => FND_API.G_FALSE,
2904: -- raise FND_API.G_EXC_ERROR;
2905: END IF;
2906:
2907: Validate_REJECT_REASON_CODE(
2908: p_init_msg_list => FND_API.G_FALSE,
2909: p_validation_mode => p_validation_mode,
2910: p_REJECT_REASON_CODE => P_SALES_LEAD_Rec.REJECT_REASON_CODE,
2911: x_return_status => x_return_status,
2912: x_msg_count => x_msg_count,
2910: p_REJECT_REASON_CODE => P_SALES_LEAD_Rec.REJECT_REASON_CODE,
2911: x_return_status => x_return_status,
2912: x_msg_count => x_msg_count,
2913: x_msg_data => x_msg_data);
2914: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2915: l_return_status := FND_API.G_RET_STS_ERROR;
2916: -- raise FND_API.G_EXC_ERROR;
2917: END IF;
2918:
2911: x_return_status => x_return_status,
2912: x_msg_count => x_msg_count,
2913: x_msg_data => x_msg_data);
2914: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2915: l_return_status := FND_API.G_RET_STS_ERROR;
2916: -- raise FND_API.G_EXC_ERROR;
2917: END IF;
2918:
2919: Validate_OFFER_ID(
2912: x_msg_count => x_msg_count,
2913: x_msg_data => x_msg_data);
2914: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2915: l_return_status := FND_API.G_RET_STS_ERROR;
2916: -- raise FND_API.G_EXC_ERROR;
2917: END IF;
2918:
2919: Validate_OFFER_ID(
2920: p_init_msg_list => FND_API.G_FALSE,
2916: -- raise FND_API.G_EXC_ERROR;
2917: END IF;
2918:
2919: Validate_OFFER_ID(
2920: p_init_msg_list => FND_API.G_FALSE,
2921: p_validation_mode => p_validation_mode,
2922: P_SOURCE_PROMOTION_ID => P_SALES_LEAD_Rec.source_promotion_id,
2923: p_OFFER_ID => P_SALES_LEAD_Rec.OFFER_ID,
2924: x_item_property_rec => l_item_property_rec,
2924: x_item_property_rec => l_item_property_rec,
2925: x_return_status => x_return_status,
2926: x_msg_count => x_msg_count,
2927: x_msg_data => x_msg_data);
2928: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2929: l_return_status := FND_API.G_RET_STS_ERROR;
2930: --
2931: raise FND_API.G_EXC_ERROR;
2932: END IF;
2925: x_return_status => x_return_status,
2926: x_msg_count => x_msg_count,
2927: x_msg_data => x_msg_data);
2928: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2929: l_return_status := FND_API.G_RET_STS_ERROR;
2930: --
2931: raise FND_API.G_EXC_ERROR;
2932: END IF;
2933:
2927: x_msg_data => x_msg_data);
2928: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2929: l_return_status := FND_API.G_RET_STS_ERROR;
2930: --
2931: raise FND_API.G_EXC_ERROR;
2932: END IF;
2933:
2934:
2935:
2933:
2934:
2935:
2936: Validate_INC_PARTNER_PARTY_ID(
2937: p_init_msg_list => FND_API.G_FALSE,
2938: p_validation_mode => p_validation_mode,
2939: p_INC_PARTNER_PARTY_ID =>
2940: P_SALES_LEAD_Rec.INCUMBENT_PARTNER_PARTY_ID,
2941: x_item_property_rec => l_item_property_rec,
2941: x_item_property_rec => l_item_property_rec,
2942: x_return_status => x_return_status,
2943: x_msg_count => x_msg_count,
2944: x_msg_data => x_msg_data);
2945: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2946: l_return_status := FND_API.G_RET_STS_ERROR;
2947: -- raise FND_API.G_EXC_ERROR;
2948: END IF;
2949:
2942: x_return_status => x_return_status,
2943: x_msg_count => x_msg_count,
2944: x_msg_data => x_msg_data);
2945: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2946: l_return_status := FND_API.G_RET_STS_ERROR;
2947: -- raise FND_API.G_EXC_ERROR;
2948: END IF;
2949:
2950: Validate_INC_PRTNR_RESOURCE_ID(
2943: x_msg_count => x_msg_count,
2944: x_msg_data => x_msg_data);
2945: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2946: l_return_status := FND_API.G_RET_STS_ERROR;
2947: -- raise FND_API.G_EXC_ERROR;
2948: END IF;
2949:
2950: Validate_INC_PRTNR_RESOURCE_ID(
2951: p_init_msg_list => FND_API.G_FALSE,
2947: -- raise FND_API.G_EXC_ERROR;
2948: END IF;
2949:
2950: Validate_INC_PRTNR_RESOURCE_ID(
2951: p_init_msg_list => FND_API.G_FALSE,
2952: p_validation_mode => p_validation_mode,
2953: p_INC_PARTNER_RESOURCE_ID =>
2954: P_SALES_LEAD_Rec.INCUMBENT_PARTNER_RESOURCE_ID,
2955: x_item_property_rec => l_item_property_rec,
2955: x_item_property_rec => l_item_property_rec,
2956: x_return_status => x_return_status,
2957: x_msg_count => x_msg_count,
2958: x_msg_data => x_msg_data);
2959: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2960: l_return_status := FND_API.G_RET_STS_ERROR;
2961: -- raise FND_API.G_EXC_ERROR;
2962: END IF;
2963:
2956: x_return_status => x_return_status,
2957: x_msg_count => x_msg_count,
2958: x_msg_data => x_msg_data);
2959: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2960: l_return_status := FND_API.G_RET_STS_ERROR;
2961: -- raise FND_API.G_EXC_ERROR;
2962: END IF;
2963:
2964: Validate_PRM_EXEC_SPONSOR_FLAG(
2957: x_msg_count => x_msg_count,
2958: x_msg_data => x_msg_data);
2959: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2960: l_return_status := FND_API.G_RET_STS_ERROR;
2961: -- raise FND_API.G_EXC_ERROR;
2962: END IF;
2963:
2964: Validate_PRM_EXEC_SPONSOR_FLAG(
2965: p_init_msg_list => FND_API.G_FALSE,
2961: -- raise FND_API.G_EXC_ERROR;
2962: END IF;
2963:
2964: Validate_PRM_EXEC_SPONSOR_FLAG(
2965: p_init_msg_list => FND_API.G_FALSE,
2966: p_validation_mode => p_validation_mode,
2967: p_PRM_EXEC_SPONSOR_FLAG => P_SALES_LEAD_Rec.PRM_EXEC_SPONSOR_FLAG,
2968: x_item_property_rec => l_item_property_rec,
2969: x_return_status => x_return_status,
2968: x_item_property_rec => l_item_property_rec,
2969: x_return_status => x_return_status,
2970: x_msg_count => x_msg_count,
2971: x_msg_data => x_msg_data);
2972: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2973: l_return_status := FND_API.G_RET_STS_ERROR;
2974: -- raise FND_API.G_EXC_ERROR;
2975: END IF;
2976:
2969: x_return_status => x_return_status,
2970: x_msg_count => x_msg_count,
2971: x_msg_data => x_msg_data);
2972: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2973: l_return_status := FND_API.G_RET_STS_ERROR;
2974: -- raise FND_API.G_EXC_ERROR;
2975: END IF;
2976:
2977: Validate_PRM_PRJ_LDINPLE_FLAG(
2970: x_msg_count => x_msg_count,
2971: x_msg_data => x_msg_data);
2972: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2973: l_return_status := FND_API.G_RET_STS_ERROR;
2974: -- raise FND_API.G_EXC_ERROR;
2975: END IF;
2976:
2977: Validate_PRM_PRJ_LDINPLE_FLAG(
2978: p_init_msg_list => FND_API.G_FALSE,
2974: -- raise FND_API.G_EXC_ERROR;
2975: END IF;
2976:
2977: Validate_PRM_PRJ_LDINPLE_FLAG(
2978: p_init_msg_list => FND_API.G_FALSE,
2979: p_validation_mode => p_validation_mode,
2980: p_PRM_PRJ_LEAD_IN_PLACE_FLAG =>
2981: P_SALES_LEAD_Rec.PRM_PRJ_LEAD_IN_PLACE_FLAG,
2982: x_item_property_rec => l_item_property_rec,
2982: x_item_property_rec => l_item_property_rec,
2983: x_return_status => x_return_status,
2984: x_msg_count => x_msg_count,
2985: x_msg_data => x_msg_data);
2986: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2987: l_return_status := FND_API.G_RET_STS_ERROR;
2988: -- raise FND_API.G_EXC_ERROR;
2989: END IF;
2990:
2983: x_return_status => x_return_status,
2984: x_msg_count => x_msg_count,
2985: x_msg_data => x_msg_data);
2986: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2987: l_return_status := FND_API.G_RET_STS_ERROR;
2988: -- raise FND_API.G_EXC_ERROR;
2989: END IF;
2990:
2991: Validate_PRM_LEAD_TYPE(
2984: x_msg_count => x_msg_count,
2985: x_msg_data => x_msg_data);
2986: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2987: l_return_status := FND_API.G_RET_STS_ERROR;
2988: -- raise FND_API.G_EXC_ERROR;
2989: END IF;
2990:
2991: Validate_PRM_LEAD_TYPE(
2992: p_init_msg_list => FND_API.G_FALSE,
2988: -- raise FND_API.G_EXC_ERROR;
2989: END IF;
2990:
2991: Validate_PRM_LEAD_TYPE(
2992: p_init_msg_list => FND_API.G_FALSE,
2993: p_validation_mode => p_validation_mode,
2994: p_PRM_LEAD_TYPE => P_SALES_LEAD_Rec.Prm_Sales_Lead_Type,
2995: x_item_property_rec => l_item_property_rec,
2996: x_return_status => x_return_status,
2995: x_item_property_rec => l_item_property_rec,
2996: x_return_status => x_return_status,
2997: x_msg_count => x_msg_count,
2998: x_msg_data => x_msg_data);
2999: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3000: l_return_status := FND_API.G_RET_STS_ERROR;
3001: -- raise FND_API.G_EXC_ERROR;
3002: END IF;
3003:
2996: x_return_status => x_return_status,
2997: x_msg_count => x_msg_count,
2998: x_msg_data => x_msg_data);
2999: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3000: l_return_status := FND_API.G_RET_STS_ERROR;
3001: -- raise FND_API.G_EXC_ERROR;
3002: END IF;
3003:
3004: Validate_PRM_IND_CLS_CODE(
2997: x_msg_count => x_msg_count,
2998: x_msg_data => x_msg_data);
2999: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3000: l_return_status := FND_API.G_RET_STS_ERROR;
3001: -- raise FND_API.G_EXC_ERROR;
3002: END IF;
3003:
3004: Validate_PRM_IND_CLS_CODE(
3005: p_init_msg_list => FND_API.G_FALSE,
3001: -- raise FND_API.G_EXC_ERROR;
3002: END IF;
3003:
3004: Validate_PRM_IND_CLS_CODE(
3005: p_init_msg_list => FND_API.G_FALSE,
3006: p_validation_mode => p_validation_mode,
3007: p_PRM_IND_CLASSIFICATION_CODE =>
3008: P_SALES_LEAD_Rec.PRM_IND_CLASSIFICATION_CODE,
3009: x_item_property_rec => l_item_property_rec,
3009: x_item_property_rec => l_item_property_rec,
3010: x_return_status => x_return_status,
3011: x_msg_count => x_msg_count,
3012: x_msg_data => x_msg_data);
3013: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3014: l_return_status := FND_API.G_RET_STS_ERROR;
3015: -- raise FND_API.G_EXC_ERROR;
3016: END IF;
3017:
3010: x_return_status => x_return_status,
3011: x_msg_count => x_msg_count,
3012: x_msg_data => x_msg_data);
3013: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3014: l_return_status := FND_API.G_RET_STS_ERROR;
3015: -- raise FND_API.G_EXC_ERROR;
3016: END IF;
3017:
3018: Validate_PRM_ASSIGNMENT_TYPE(
3011: x_msg_count => x_msg_count,
3012: x_msg_data => x_msg_data);
3013: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3014: l_return_status := FND_API.G_RET_STS_ERROR;
3015: -- raise FND_API.G_EXC_ERROR;
3016: END IF;
3017:
3018: Validate_PRM_ASSIGNMENT_TYPE(
3019: p_init_msg_list => FND_API.G_FALSE,
3015: -- raise FND_API.G_EXC_ERROR;
3016: END IF;
3017:
3018: Validate_PRM_ASSIGNMENT_TYPE(
3019: p_init_msg_list => FND_API.G_FALSE,
3020: p_validation_mode => p_validation_mode,
3021: p_PRM_ASSIGNMENT_TYPE =>
3022: P_SALES_LEAD_Rec.PRM_ASSIGNMENT_TYPE,
3023: x_item_property_rec => l_item_property_rec,
3023: x_item_property_rec => l_item_property_rec,
3024: x_return_status => x_return_status,
3025: x_msg_count => x_msg_count,
3026: x_msg_data => x_msg_data);
3027: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3028: l_return_status := FND_API.G_RET_STS_ERROR;
3029: -- raise FND_API.G_EXC_ERROR;
3030: END IF;
3031:
3024: x_return_status => x_return_status,
3025: x_msg_count => x_msg_count,
3026: x_msg_data => x_msg_data);
3027: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3028: l_return_status := FND_API.G_RET_STS_ERROR;
3029: -- raise FND_API.G_EXC_ERROR;
3030: END IF;
3031:
3032:
3025: x_msg_count => x_msg_count,
3026: x_msg_data => x_msg_data);
3027: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3028: l_return_status := FND_API.G_RET_STS_ERROR;
3029: -- raise FND_API.G_EXC_ERROR;
3030: END IF;
3031:
3032:
3033: Validate_AUTO_ASSIGNMENT_TYPE(
3030: END IF;
3031:
3032:
3033: Validate_AUTO_ASSIGNMENT_TYPE(
3034: p_init_msg_list => FND_API.G_FALSE,
3035: p_validation_mode => p_validation_mode,
3036: p_AUTO_ASSIGNMENT_TYPE =>
3037: P_SALES_LEAD_Rec.AUTO_ASSIGNMENT_TYPE,
3038: x_item_property_rec => l_item_property_rec,
3038: x_item_property_rec => l_item_property_rec,
3039: x_return_status => x_return_status,
3040: x_msg_count => x_msg_count,
3041: x_msg_data => x_msg_data);
3042: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3043: l_return_status := FND_API.G_RET_STS_ERROR;
3044: -- raise FND_API.G_EXC_ERROR;
3045: END IF;
3046:
3039: x_return_status => x_return_status,
3040: x_msg_count => x_msg_count,
3041: x_msg_data => x_msg_data);
3042: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3043: l_return_status := FND_API.G_RET_STS_ERROR;
3044: -- raise FND_API.G_EXC_ERROR;
3045: END IF;
3046:
3047:
3040: x_msg_count => x_msg_count,
3041: x_msg_data => x_msg_data);
3042: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3043: l_return_status := FND_API.G_RET_STS_ERROR;
3044: -- raise FND_API.G_EXC_ERROR;
3045: END IF;
3046:
3047:
3048: Validate_FLAGS(
3045: END IF;
3046:
3047:
3048: Validate_FLAGS(
3049: p_init_msg_list => FND_API.G_FALSE,
3050: p_validation_mode => p_validation_mode,
3051: p_Flag_Value => P_SALES_LEAD_Rec.ACCEPT_FLAG,
3052: p_Flag_Type => 'ACCEPT_FLAG',
3053: x_return_status => x_return_status,
3052: p_Flag_Type => 'ACCEPT_FLAG',
3053: x_return_status => x_return_status,
3054: x_msg_count => x_msg_count,
3055: x_msg_data => x_msg_data);
3056: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3057: l_return_status := FND_API.G_RET_STS_ERROR;
3058: -- raise FND_API.G_EXC_ERROR;
3059: END IF;
3060:
3053: x_return_status => x_return_status,
3054: x_msg_count => x_msg_count,
3055: x_msg_data => x_msg_data);
3056: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3057: l_return_status := FND_API.G_RET_STS_ERROR;
3058: -- raise FND_API.G_EXC_ERROR;
3059: END IF;
3060:
3061: Validate_FLAGS(
3054: x_msg_count => x_msg_count,
3055: x_msg_data => x_msg_data);
3056: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3057: l_return_status := FND_API.G_RET_STS_ERROR;
3058: -- raise FND_API.G_EXC_ERROR;
3059: END IF;
3060:
3061: Validate_FLAGS(
3062: p_init_msg_list => FND_API.G_FALSE,
3058: -- raise FND_API.G_EXC_ERROR;
3059: END IF;
3060:
3061: Validate_FLAGS(
3062: p_init_msg_list => FND_API.G_FALSE,
3063: p_validation_mode => p_validation_mode,
3064: p_Flag_Value => P_SALES_LEAD_Rec.KEEP_FLAG,
3065: p_Flag_Type => 'KEEP_FLAG',
3066: x_return_status => x_return_status,
3065: p_Flag_Type => 'KEEP_FLAG',
3066: x_return_status => x_return_status,
3067: x_msg_count => x_msg_count,
3068: x_msg_data => x_msg_data);
3069: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3070: l_return_status := FND_API.G_RET_STS_ERROR;
3071: -- raise FND_API.G_EXC_ERROR;
3072: END IF;
3073:
3066: x_return_status => x_return_status,
3067: x_msg_count => x_msg_count,
3068: x_msg_data => x_msg_data);
3069: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3070: l_return_status := FND_API.G_RET_STS_ERROR;
3071: -- raise FND_API.G_EXC_ERROR;
3072: END IF;
3073:
3074: Validate_FLAGS(
3067: x_msg_count => x_msg_count,
3068: x_msg_data => x_msg_data);
3069: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3070: l_return_status := FND_API.G_RET_STS_ERROR;
3071: -- raise FND_API.G_EXC_ERROR;
3072: END IF;
3073:
3074: Validate_FLAGS(
3075: p_init_msg_list => FND_API.G_FALSE,
3071: -- raise FND_API.G_EXC_ERROR;
3072: END IF;
3073:
3074: Validate_FLAGS(
3075: p_init_msg_list => FND_API.G_FALSE,
3076: p_validation_mode => p_validation_mode,
3077: p_Flag_Value => P_SALES_LEAD_Rec.URGENT_FLAG,
3078: p_Flag_Type => 'URGENT_FLAG',
3079: x_return_status => x_return_status,
3078: p_Flag_Type => 'URGENT_FLAG',
3079: x_return_status => x_return_status,
3080: x_msg_count => x_msg_count,
3081: x_msg_data => x_msg_data);
3082: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3083: l_return_status := FND_API.G_RET_STS_ERROR;
3084: -- raise FND_API.G_EXC_ERROR;
3085: END IF;
3086:
3079: x_return_status => x_return_status,
3080: x_msg_count => x_msg_count,
3081: x_msg_data => x_msg_data);
3082: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3083: l_return_status := FND_API.G_RET_STS_ERROR;
3084: -- raise FND_API.G_EXC_ERROR;
3085: END IF;
3086:
3087: Validate_FLAGS(
3080: x_msg_count => x_msg_count,
3081: x_msg_data => x_msg_data);
3082: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3083: l_return_status := FND_API.G_RET_STS_ERROR;
3084: -- raise FND_API.G_EXC_ERROR;
3085: END IF;
3086:
3087: Validate_FLAGS(
3088: p_init_msg_list => FND_API.G_FALSE,
3084: -- raise FND_API.G_EXC_ERROR;
3085: END IF;
3086:
3087: Validate_FLAGS(
3088: p_init_msg_list => FND_API.G_FALSE,
3089: p_validation_mode => p_validation_mode,
3090: p_Flag_Value => P_SALES_LEAD_Rec.IMPORT_FLAG,
3091: p_Flag_Type => 'IMPORT_FLAG',
3092: x_return_status => x_return_status,
3091: p_Flag_Type => 'IMPORT_FLAG',
3092: x_return_status => x_return_status,
3093: x_msg_count => x_msg_count,
3094: x_msg_data => x_msg_data);
3095: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3096: l_return_status := FND_API.G_RET_STS_ERROR;
3097: -- raise FND_API.G_EXC_ERROR;
3098: END IF;
3099:
3092: x_return_status => x_return_status,
3093: x_msg_count => x_msg_count,
3094: x_msg_data => x_msg_data);
3095: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3096: l_return_status := FND_API.G_RET_STS_ERROR;
3097: -- raise FND_API.G_EXC_ERROR;
3098: END IF;
3099:
3100: Validate_FLAGS(
3093: x_msg_count => x_msg_count,
3094: x_msg_data => x_msg_data);
3095: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3096: l_return_status := FND_API.G_RET_STS_ERROR;
3097: -- raise FND_API.G_EXC_ERROR;
3098: END IF;
3099:
3100: Validate_FLAGS(
3101: p_init_msg_list => FND_API.G_FALSE,
3097: -- raise FND_API.G_EXC_ERROR;
3098: END IF;
3099:
3100: Validate_FLAGS(
3101: p_init_msg_list => FND_API.G_FALSE,
3102: p_validation_mode => p_validation_mode,
3103: p_Flag_Value => P_SALES_LEAD_Rec.QUALIFIED_FLAG,
3104: p_Flag_Type => 'QUALIFIED_FLAG',
3105: x_return_status => x_return_status,
3104: p_Flag_Type => 'QUALIFIED_FLAG',
3105: x_return_status => x_return_status,
3106: x_msg_count => x_msg_count,
3107: x_msg_data => x_msg_data);
3108: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3109: l_return_status := FND_API.G_RET_STS_ERROR;
3110: -- raise FND_API.G_EXC_ERROR;
3111: END IF;
3112:
3105: x_return_status => x_return_status,
3106: x_msg_count => x_msg_count,
3107: x_msg_data => x_msg_data);
3108: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3109: l_return_status := FND_API.G_RET_STS_ERROR;
3110: -- raise FND_API.G_EXC_ERROR;
3111: END IF;
3112:
3113:
3106: x_msg_count => x_msg_count,
3107: x_msg_data => x_msg_data);
3108: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3109: l_return_status := FND_API.G_RET_STS_ERROR;
3110: -- raise FND_API.G_EXC_ERROR;
3111: END IF;
3112:
3113:
3114: END IF;
3119: IF ( P_validation_level >= AS_UTILITY_PUB.G_VALID_LEVEL_RECORD)
3120: THEN
3121: -- Perform record level validation
3122: Validate_STATUS_CLOSE_REASON (
3123: P_Init_Msg_List => FND_API.G_FALSE,
3124: P_Validation_mode => p_validation_mode,
3125: P_STATUS_CODE => P_SALES_LEAD_Rec.STATUS_CODE,
3126: P_CLOSE_REASON_CODE => l_close_reason_code,
3127: X_Return_Status => x_return_status,
3126: P_CLOSE_REASON_CODE => l_close_reason_code,
3127: X_Return_Status => x_return_status,
3128: X_Msg_Count => x_msg_count,
3129: X_Msg_Data => x_msg_data);
3130: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3131: l_return_status := FND_API.G_RET_STS_ERROR;
3132: -- raise FND_API.G_EXC_ERROR;
3133: END IF;
3134:
3127: X_Return_Status => x_return_status,
3128: X_Msg_Count => x_msg_count,
3129: X_Msg_Data => x_msg_data);
3130: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3131: l_return_status := FND_API.G_RET_STS_ERROR;
3132: -- raise FND_API.G_EXC_ERROR;
3133: END IF;
3134:
3135:
3128: X_Msg_Count => x_msg_count,
3129: X_Msg_Data => x_msg_data);
3130: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3131: l_return_status := FND_API.G_RET_STS_ERROR;
3132: -- raise FND_API.G_EXC_ERROR;
3133: END IF;
3134:
3135:
3136: P_SALES_LEAD_Rec.CLOSE_REASON := l_close_reason_code;
3137:
3138:
3139: -- referral type and referred by columns are related for CAPRI
3140: /*Validate_REF_BY_REF_TYPE (
3141: P_Init_Msg_List => FND_API.G_FALSE,
3142: P_Validation_mode => p_validation_mode,
3143: P_REF_BY_ID => P_SALES_LEAD_Rec.REFERRED_BY,
3144: P_REF_TYPE_CODE => P_SALES_LEAD_Rec.REFERRAL_TYPE,
3145: P_OLD_REF_BY_ID => P_REFERRED_BY,
3146: P_OLD_REF_TYPE_CODE => P_REFERRAL_TYPE,
3147: X_Return_Status => x_return_status,
3148: X_Msg_Count => x_msg_count,
3149: X_Msg_Data => x_msg_data);
3150: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3151: l_return_status := FND_API.G_RET_STS_ERROR;
3152: -- raise FND_API.G_EXC_ERROR;
3153: END IF;*/
3154:
3147: X_Return_Status => x_return_status,
3148: X_Msg_Count => x_msg_count,
3149: X_Msg_Data => x_msg_data);
3150: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3151: l_return_status := FND_API.G_RET_STS_ERROR;
3152: -- raise FND_API.G_EXC_ERROR;
3153: END IF;*/
3154:
3155:
3148: X_Msg_Count => x_msg_count,
3149: X_Msg_Data => x_msg_data);
3150: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3151: l_return_status := FND_API.G_RET_STS_ERROR;
3152: -- raise FND_API.G_EXC_ERROR;
3153: END IF;*/
3154:
3155:
3156: END IF;
3159: /* IF ( P_validation_level >= AS_UTILITY_PUB.G_VALID_LEVEL_RECORD)
3160: THEN
3161: -- Perform record level validation
3162: Validate_ACCEPT_REJECT_REASON (
3163: P_Init_Msg_List => FND_API.G_FALSE,
3164: P_Validation_mode => p_validation_mode,
3165: P_ACCEPT_FLAG => P_SALES_LEAD_Rec.ACCEPT_FLAG,
3166: P_REJECT_REASON_CODE => P_SALES_LEAD_Rec.REJECT_REASON_CODE,
3167: X_Return_Status => x_return_status,
3166: P_REJECT_REASON_CODE => P_SALES_LEAD_Rec.REJECT_REASON_CODE,
3167: X_Return_Status => x_return_status,
3168: X_Msg_Count => x_msg_count,
3169: X_Msg_Data => x_msg_data);
3170: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3171: l_return_status := FND_API.G_RET_STS_ERROR;
3172: -- raise FND_API.G_EXC_ERROR;
3173: END IF;
3174: END IF;*/
3167: X_Return_Status => x_return_status,
3168: X_Msg_Count => x_msg_count,
3169: X_Msg_Data => x_msg_data);
3170: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3171: l_return_status := FND_API.G_RET_STS_ERROR;
3172: -- raise FND_API.G_EXC_ERROR;
3173: END IF;
3174: END IF;*/
3175:
3168: X_Msg_Count => x_msg_count,
3169: X_Msg_Data => x_msg_data);
3170: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3171: l_return_status := FND_API.G_RET_STS_ERROR;
3172: -- raise FND_API.G_EXC_ERROR;
3173: END IF;
3174: END IF;*/
3175:
3176:
3178: -- FFANG 112700 For bug 1512008, instead of erroring out once a invalid
3179: -- column was found, raise the exception after all validation procedures
3180: -- have been gone through.
3181: x_return_status := l_return_status;
3182: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3183: raise FND_API.G_EXC_ERROR;
3184: END IF;
3185: -- END FFANG 112700
3186:
3179: -- column was found, raise the exception after all validation procedures
3180: -- have been gone through.
3181: x_return_status := l_return_status;
3182: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3183: raise FND_API.G_EXC_ERROR;
3184: END IF;
3185: -- END FFANG 112700
3186:
3187: -- Debug Message
3200: -- **************************
3201:
3202: PROCEDURE Create_sales_lead(
3203: P_Api_Version_Number IN NUMBER,
3204: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3205: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
3206: P_Validation_Level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3207: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_MISS_CHAR,
3208: P_Admin_Flag IN VARCHAR2 := FND_API.G_MISS_CHAR,
3201:
3202: PROCEDURE Create_sales_lead(
3203: P_Api_Version_Number IN NUMBER,
3204: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3205: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
3206: P_Validation_Level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3207: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_MISS_CHAR,
3208: P_Admin_Flag IN VARCHAR2 := FND_API.G_MISS_CHAR,
3209: P_Admin_Group_Id IN NUMBER := FND_API.G_MISS_NUM,
3202: PROCEDURE Create_sales_lead(
3203: P_Api_Version_Number IN NUMBER,
3204: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3205: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
3206: P_Validation_Level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3207: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_MISS_CHAR,
3208: P_Admin_Flag IN VARCHAR2 := FND_API.G_MISS_CHAR,
3209: P_Admin_Group_Id IN NUMBER := FND_API.G_MISS_NUM,
3210: P_Identity_Salesforce_Id IN NUMBER := FND_API.G_MISS_NUM,
3203: P_Api_Version_Number IN NUMBER,
3204: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3205: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
3206: P_Validation_Level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3207: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_MISS_CHAR,
3208: P_Admin_Flag IN VARCHAR2 := FND_API.G_MISS_CHAR,
3209: P_Admin_Group_Id IN NUMBER := FND_API.G_MISS_NUM,
3210: P_Identity_Salesforce_Id IN NUMBER := FND_API.G_MISS_NUM,
3211: P_Sales_Lead_Profile_Tbl IN AS_UTILITY_PUB.Profile_Tbl_Type
3204: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
3205: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
3206: P_Validation_Level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3207: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_MISS_CHAR,
3208: P_Admin_Flag IN VARCHAR2 := FND_API.G_MISS_CHAR,
3209: P_Admin_Group_Id IN NUMBER := FND_API.G_MISS_NUM,
3210: P_Identity_Salesforce_Id IN NUMBER := FND_API.G_MISS_NUM,
3211: P_Sales_Lead_Profile_Tbl IN AS_UTILITY_PUB.Profile_Tbl_Type
3212: := AS_UTILITY_PUB.G_MISS_PROFILE_TBL,
3205: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
3206: P_Validation_Level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3207: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_MISS_CHAR,
3208: P_Admin_Flag IN VARCHAR2 := FND_API.G_MISS_CHAR,
3209: P_Admin_Group_Id IN NUMBER := FND_API.G_MISS_NUM,
3210: P_Identity_Salesforce_Id IN NUMBER := FND_API.G_MISS_NUM,
3211: P_Sales_Lead_Profile_Tbl IN AS_UTILITY_PUB.Profile_Tbl_Type
3212: := AS_UTILITY_PUB.G_MISS_PROFILE_TBL,
3213: P_SALES_LEAD_Rec IN AS_SALES_LEADS_PUB.SALES_LEAD_Rec_Type
3206: P_Validation_Level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3207: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_MISS_CHAR,
3208: P_Admin_Flag IN VARCHAR2 := FND_API.G_MISS_CHAR,
3209: P_Admin_Group_Id IN NUMBER := FND_API.G_MISS_NUM,
3210: P_Identity_Salesforce_Id IN NUMBER := FND_API.G_MISS_NUM,
3211: P_Sales_Lead_Profile_Tbl IN AS_UTILITY_PUB.Profile_Tbl_Type
3212: := AS_UTILITY_PUB.G_MISS_PROFILE_TBL,
3213: P_SALES_LEAD_Rec IN AS_SALES_LEADS_PUB.SALES_LEAD_Rec_Type
3214: := AS_SALES_LEADS_PUB.G_MISS_SALES_LEAD_REC,
3370: -- Standard Start of API savepoint
3371: SAVEPOINT CREATE_SALES_LEAD_PVT;
3372:
3373: -- Standard call to check for call compatibility.
3374: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
3375: p_api_version_number,
3376: l_api_name,
3377: G_PKG_NAME )
3378: THEN
3375: p_api_version_number,
3376: l_api_name,
3377: G_PKG_NAME )
3378: THEN
3379: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3380: END IF;
3381:
3382: -- Initialize message list IF p_init_msg_list is set to TRUE.
3383: IF FND_API.to_Boolean( p_init_msg_list )
3379: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3380: END IF;
3381:
3382: -- Initialize message list IF p_init_msg_list is set to TRUE.
3383: IF FND_API.to_Boolean( p_init_msg_list )
3384: THEN
3385: FND_MSG_PUB.initialize;
3386: END IF;
3387:
3393: 'PVT: ' || l_api_name || ' Start');
3394: END IF;
3395:
3396: -- Initialize API return status to SUCCESS
3397: x_return_status := FND_API.G_RET_STS_SUCCESS;
3398:
3399: --
3400: -- API body
3401: --
3413: p_token1 => 'PROFILE',
3414: p_token1_value => 'USER_ID');
3415:
3416: END IF;
3417: RAISE FND_API.G_EXC_ERROR;
3418: END IF;
3419:
3420: IF (p_validation_level = fnd_api.g_valid_level_full)
3421: THEN
3416: END IF;
3417: RAISE FND_API.G_EXC_ERROR;
3418: END IF;
3419:
3420: IF (p_validation_level = fnd_api.g_valid_level_full)
3421: THEN
3422: AS_SALES_ORG_MANAGER_PVT.Get_CurrentUser(
3423: p_api_version_number => 2.0
3424: ,p_init_msg_list => p_init_msg_list
3429: ,x_msg_data => x_msg_data
3430: ,x_sales_member_rec => l_identity_sales_member_rec);
3431: END IF;
3432:
3433: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3434: RAISE FND_API.G_EXC_ERROR;
3435: END IF;
3436:
3437: -- Set default value to accept_flag, keep_flag, urgent_flag,
3430: ,x_sales_member_rec => l_identity_sales_member_rec);
3431: END IF;
3432:
3433: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3434: RAISE FND_API.G_EXC_ERROR;
3435: END IF;
3436:
3437: -- Set default value to accept_flag, keep_flag, urgent_flag,
3438: -- import_flag, deleted_flag, and currency_code as profile values.
3436:
3437: -- Set default value to accept_flag, keep_flag, urgent_flag,
3438: -- import_flag, deleted_flag, and currency_code as profile values.
3439: If (l_SALES_LEAD_rec.ACCEPT_FLAG IS NULL) or
3440: (l_SALES_LEAD_rec.ACCEPT_FLAG= FND_API.G_MISS_CHAR) or
3441: (l_SALES_LEAD_rec.KEEP_FLAG IS NULL) or
3442: (l_SALES_LEAD_rec.KEEP_FLAG = FND_API.G_MISS_CHAR) or
3443: (l_SALES_LEAD_rec.URGENT_FLAG IS NULL) or
3444: (l_SALES_LEAD_rec.URGENT_FLAG = FND_API.G_MISS_CHAR) or
3438: -- import_flag, deleted_flag, and currency_code as profile values.
3439: If (l_SALES_LEAD_rec.ACCEPT_FLAG IS NULL) or
3440: (l_SALES_LEAD_rec.ACCEPT_FLAG= FND_API.G_MISS_CHAR) or
3441: (l_SALES_LEAD_rec.KEEP_FLAG IS NULL) or
3442: (l_SALES_LEAD_rec.KEEP_FLAG = FND_API.G_MISS_CHAR) or
3443: (l_SALES_LEAD_rec.URGENT_FLAG IS NULL) or
3444: (l_SALES_LEAD_rec.URGENT_FLAG = FND_API.G_MISS_CHAR) or
3445: (l_SALES_LEAD_rec.IMPORT_FLAG IS NULL) or
3446: (l_SALES_LEAD_rec.IMPORT_FLAG = FND_API.G_MISS_CHAR) or
3440: (l_SALES_LEAD_rec.ACCEPT_FLAG= FND_API.G_MISS_CHAR) or
3441: (l_SALES_LEAD_rec.KEEP_FLAG IS NULL) or
3442: (l_SALES_LEAD_rec.KEEP_FLAG = FND_API.G_MISS_CHAR) or
3443: (l_SALES_LEAD_rec.URGENT_FLAG IS NULL) or
3444: (l_SALES_LEAD_rec.URGENT_FLAG = FND_API.G_MISS_CHAR) or
3445: (l_SALES_LEAD_rec.IMPORT_FLAG IS NULL) or
3446: (l_SALES_LEAD_rec.IMPORT_FLAG = FND_API.G_MISS_CHAR) or
3447: (l_SALES_LEAD_rec.DELETED_FLAG IS NULL) or
3448: (l_SALES_LEAD_rec.DELETED_FLAG = FND_API.G_MISS_CHAR) or
3442: (l_SALES_LEAD_rec.KEEP_FLAG = FND_API.G_MISS_CHAR) or
3443: (l_SALES_LEAD_rec.URGENT_FLAG IS NULL) or
3444: (l_SALES_LEAD_rec.URGENT_FLAG = FND_API.G_MISS_CHAR) or
3445: (l_SALES_LEAD_rec.IMPORT_FLAG IS NULL) or
3446: (l_SALES_LEAD_rec.IMPORT_FLAG = FND_API.G_MISS_CHAR) or
3447: (l_SALES_LEAD_rec.DELETED_FLAG IS NULL) or
3448: (l_SALES_LEAD_rec.DELETED_FLAG = FND_API.G_MISS_CHAR) or
3449: (l_SALES_LEAD_rec.currency_code IS NULL) or
3450: (l_SALES_LEAD_rec.currency_code = FND_API.G_MISS_CHAR)
3444: (l_SALES_LEAD_rec.URGENT_FLAG = FND_API.G_MISS_CHAR) or
3445: (l_SALES_LEAD_rec.IMPORT_FLAG IS NULL) or
3446: (l_SALES_LEAD_rec.IMPORT_FLAG = FND_API.G_MISS_CHAR) or
3447: (l_SALES_LEAD_rec.DELETED_FLAG IS NULL) or
3448: (l_SALES_LEAD_rec.DELETED_FLAG = FND_API.G_MISS_CHAR) or
3449: (l_SALES_LEAD_rec.currency_code IS NULL) or
3450: (l_SALES_LEAD_rec.currency_code = FND_API.G_MISS_CHAR)
3451: THEN
3452: IF (AS_DEBUG_LOW_ON) THEN
3446: (l_SALES_LEAD_rec.IMPORT_FLAG = FND_API.G_MISS_CHAR) or
3447: (l_SALES_LEAD_rec.DELETED_FLAG IS NULL) or
3448: (l_SALES_LEAD_rec.DELETED_FLAG = FND_API.G_MISS_CHAR) or
3449: (l_SALES_LEAD_rec.currency_code IS NULL) or
3450: (l_SALES_LEAD_rec.currency_code = FND_API.G_MISS_CHAR)
3451: THEN
3452: IF (AS_DEBUG_LOW_ON) THEN
3453:
3454: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
3464: -----
3465: -- Default the customer address to primary address if necessary
3466: IF nvl(l_default_address_profile, 'N') = 'Y' AND
3467: ((l_SALES_LEAD_rec.address_id IS NULL) OR
3468: (l_SALES_LEAD_rec.address_id = FND_API.G_MISS_NUM))
3469: THEN
3470: open primary_address(l_SALES_LEAD_rec.customer_id );
3471: fetch primary_address into l_SALES_LEAD_rec.address_id;
3472: close primary_address;
3471: fetch primary_address into l_SALES_LEAD_rec.address_id;
3472: close primary_address;
3473:
3474: If (l_SALES_LEAD_rec.address_id IS NULL OR
3475: l_SALES_LEAD_rec.address_id = FND_API.G_MISS_NUM )
3476: THEN
3477: IF (AS_DEBUG_LOW_ON) THEN
3478: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
3479: 'No primary address for customer');
3493: END IF;
3494:
3495: -- Invoke validation procedures
3496: Validate_sales_lead(
3497: p_init_msg_list => FND_API.G_FALSE,
3498: p_validation_level => p_validation_level,
3499: p_validation_mode => AS_UTILITY_PVT.G_CREATE,
3500: P_SALES_LEAD_Rec => l_SALES_LEAD_Rec,
3501: p_referral_type => FND_API.G_MISS_CHAR,
3497: p_init_msg_list => FND_API.G_FALSE,
3498: p_validation_level => p_validation_level,
3499: p_validation_mode => AS_UTILITY_PVT.G_CREATE,
3500: P_SALES_LEAD_Rec => l_SALES_LEAD_Rec,
3501: p_referral_type => FND_API.G_MISS_CHAR,
3502: p_referred_by => FND_API.G_MISS_NUM,
3503: x_return_status => x_return_status,
3504: x_msg_count => x_msg_count,
3505: x_msg_data => x_msg_data);
3498: p_validation_level => p_validation_level,
3499: p_validation_mode => AS_UTILITY_PVT.G_CREATE,
3500: P_SALES_LEAD_Rec => l_SALES_LEAD_Rec,
3501: p_referral_type => FND_API.G_MISS_CHAR,
3502: p_referred_by => FND_API.G_MISS_NUM,
3503: x_return_status => x_return_status,
3504: x_msg_count => x_msg_count,
3505: x_msg_data => x_msg_data);
3506:
3503: x_return_status => x_return_status,
3504: x_msg_count => x_msg_count,
3505: x_msg_data => x_msg_data);
3506:
3507: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3508: RAISE FND_API.G_EXC_ERROR;
3509: END IF;
3510:
3511: IF(P_Check_Access_Flag = 'Y') THEN
3504: x_msg_count => x_msg_count,
3505: x_msg_data => x_msg_data);
3506:
3507: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
3508: RAISE FND_API.G_EXC_ERROR;
3509: END IF;
3510:
3511: IF(P_Check_Access_Flag = 'Y') THEN
3512: -- Call Get_Access_Profiles to get access_profile_rec
3552:
3553: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
3554: 'API_NO_CREATE_PRIVILEGE');
3555: END IF;
3556: RAISE FND_API.G_EXC_ERROR;
3557: END IF;
3558:
3559: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3560: RAISE FND_API.G_EXC_ERROR;
3555: END IF;
3556: RAISE FND_API.G_EXC_ERROR;
3557: END IF;
3558:
3559: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3560: RAISE FND_API.G_EXC_ERROR;
3561: END IF;
3562:
3563: END IF;
3556: RAISE FND_API.G_EXC_ERROR;
3557: END IF;
3558:
3559: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3560: RAISE FND_API.G_EXC_ERROR;
3561: END IF;
3562:
3563: END IF;
3564:
3623: -- do check on referral type. If a non null referral type is being passed in,
3624: -- then make sure referral status is set to the profile of REF_STATUS_FOR_NEW_LEAD
3625: -- of course use the profile for setting referral status only if referral status is not being manually passed in
3626:
3627: if ((l_SALES_LEAD_rec.REFERRAL_STATUS is null or l_SALES_LEAD_rec.REFERRAL_STATUS = FND_API.G_MISS_CHAR )
3628: and l_SALES_LEAD_rec.REFERRAL_TYPE is not null and l_sales_lead_rec.REFERRAL_TYPE <> FND_API.G_MISS_CHAR)
3629: then
3630: l_referral_status_profile := FND_PROFILE.Value('REF_STATUS_FOR_NEW_LEAD');
3631: else
3624: -- then make sure referral status is set to the profile of REF_STATUS_FOR_NEW_LEAD
3625: -- of course use the profile for setting referral status only if referral status is not being manually passed in
3626:
3627: if ((l_SALES_LEAD_rec.REFERRAL_STATUS is null or l_SALES_LEAD_rec.REFERRAL_STATUS = FND_API.G_MISS_CHAR )
3628: and l_SALES_LEAD_rec.REFERRAL_TYPE is not null and l_sales_lead_rec.REFERRAL_TYPE <> FND_API.G_MISS_CHAR)
3629: then
3630: l_referral_status_profile := FND_PROFILE.Value('REF_STATUS_FOR_NEW_LEAD');
3631: else
3632: l_referral_status_profile := l_sales_lead_rec.REFERRAL_STATUS;
3722: END IF;
3723:
3724:
3725:
3726: if ( ((l_sales_lead_rec.sales_methodology_id is not null) and (l_sales_lead_rec.sales_methodology_id <> FND_API.G_MISS_NUM))
3727: and ((l_sales_lead_rec.SALES_STAGE_ID is null) or (l_sales_lead_rec.sales_stage_id = FND_API.G_MISS_NUM)))
3728: then
3729:
3730:
3723:
3724:
3725:
3726: if ( ((l_sales_lead_rec.sales_methodology_id is not null) and (l_sales_lead_rec.sales_methodology_id <> FND_API.G_MISS_NUM))
3727: and ((l_sales_lead_rec.SALES_STAGE_ID is null) or (l_sales_lead_rec.sales_stage_id = FND_API.G_MISS_NUM)))
3728: then
3729:
3730:
3731: IF (AS_DEBUG_LOW_ON) THEN
3865:
3866: -- new columns for appsperf CRMAP denorm project bug 2928041
3867:
3868: ,p_STATUS_OPEN_FLAG => l_status_open_flag
3869: --FND_API.G_MISS_CHAR
3870: ,p_LEAD_RANK_SCORE => l_lead_rank_score
3871: --FND_API.G_MISS_NUM
3872:
3873:
3867:
3868: ,p_STATUS_OPEN_FLAG => l_status_open_flag
3869: --FND_API.G_MISS_CHAR
3870: ,p_LEAD_RANK_SCORE => l_lead_rank_score
3871: --FND_API.G_MISS_NUM
3872:
3873:
3874: -- ckapoor 11.5.10 New columns
3875:
3882: --l_SALES_LEAD_rec.SALES_STAGE_ID
3883:
3884: );
3885:
3886: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3887: RAISE FND_API.G_EXC_ERROR;
3888: END IF;
3889:
3890: l_SALES_LEAD_ID := x_SALES_LEAD_ID;
3883:
3884: );
3885:
3886: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3887: RAISE FND_API.G_EXC_ERROR;
3888: END IF;
3889:
3890: l_SALES_LEAD_ID := x_SALES_LEAD_ID;
3891:
3924: p_reject_reason_code => l_sales_lead_rec.reject_reason_code,
3925: p_assign_sales_group_id => l_sales_lead_rec.assign_sales_group_id,
3926: p_lead_rank_id => l_sales_lead_rec.lead_rank_id,
3927: p_qualified_flag => l_qualified,
3928: p_category => fnd_api.g_miss_char,
3929: p_manual_rank_flag => l_manual_rank_flag
3930: );
3931:
3932: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3928: p_category => fnd_api.g_miss_char,
3929: p_manual_rank_flag => l_manual_rank_flag
3930: );
3931:
3932: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3933: RAISE FND_API.G_EXC_ERROR;
3934: END IF;
3935:
3936:
3929: p_manual_rank_flag => l_manual_rank_flag
3930: );
3931:
3932: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3933: RAISE FND_API.G_EXC_ERROR;
3934: END IF;
3935:
3936:
3937: -- For referral leads, create another entry in the logs table so that it is tracked as a referral lead also
3935:
3936:
3937: -- For referral leads, create another entry in the logs table so that it is tracked as a referral lead also
3938:
3939: if ( l_SALES_LEAD_rec.REFERRAL_TYPE is not null and l_sales_lead_rec.REFERRAL_TYPE <> FND_API.G_MISS_CHAR) then
3940:
3941: l_sales_lead_log_id := null;
3942:
3943: AS_SALES_LEADS_LOG_PKG.Insert_Row(
3963: p_category => 'REFERRAL'
3964: );
3965:
3966:
3967: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3968: RAISE FND_API.G_EXC_ERROR;
3969: END IF;
3970:
3971: /* IF (AS_DEBUG_LOW_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
3964: );
3965:
3966:
3967: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3968: RAISE FND_API.G_EXC_ERROR;
3969: END IF;
3970:
3971: /* IF (AS_DEBUG_LOW_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
3972: 'Before notify party'); END IF;
3972: 'Before notify party'); END IF;
3973:
3974: AS_SALES_LEAD_REFERRAL.Notify_Party (
3975: p_api_version => 1.0 ,
3976: p_init_msg_list => FND_API.g_false ,
3977: p_commit => FND_API.g_false ,
3978: p_validation_level => FND_API.g_valid_level_full ,
3979: p_lead_id => l_sales_lead_id ,
3980: p_lead_status => l_referral_status_profile ,
3973:
3974: AS_SALES_LEAD_REFERRAL.Notify_Party (
3975: p_api_version => 1.0 ,
3976: p_init_msg_list => FND_API.g_false ,
3977: p_commit => FND_API.g_false ,
3978: p_validation_level => FND_API.g_valid_level_full ,
3979: p_lead_id => l_sales_lead_id ,
3980: p_lead_status => l_referral_status_profile ,
3981: p_salesforce_id => P_identity_salesforce_id ,
3974: AS_SALES_LEAD_REFERRAL.Notify_Party (
3975: p_api_version => 1.0 ,
3976: p_init_msg_list => FND_API.g_false ,
3977: p_commit => FND_API.g_false ,
3978: p_validation_level => FND_API.g_valid_level_full ,
3979: p_lead_id => l_sales_lead_id ,
3980: p_lead_status => l_referral_status_profile ,
3981: p_salesforce_id => P_identity_salesforce_id ,
3982: p_overriding_usernames => AS_SALES_LEAD_REFERRAL.G_MISS_OVER_USERNAMES_TBL ,
3984: x_Msg_Data => x_msg_data ,
3985: x_Return_Status => x_return_status
3986: );
3987:
3988: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3989: IF (AS_DEBUG_LOW_ON) THEN
3990:
3991: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
3992: 'Private API: Notification for creating referral lead failed');
4006:
4007:
4008: -- Create access record
4009: IF l_sales_lead_rec.assign_to_salesforce_id IS NOT NULL AND
4010: l_sales_lead_rec.assign_to_salesforce_id <> FND_API.G_MISS_NUM THEN
4011: -- Create access security in as_accesses_all
4012: -- l_Sales_Team_Rec.access_id := FND_API.G_MISS_NUM;
4013: l_Sales_Team_Rec.last_update_date := SYSDATE;
4014: l_Sales_Team_Rec.last_updated_by := FND_GLOBAL.USER_ID;
4008: -- Create access record
4009: IF l_sales_lead_rec.assign_to_salesforce_id IS NOT NULL AND
4010: l_sales_lead_rec.assign_to_salesforce_id <> FND_API.G_MISS_NUM THEN
4011: -- Create access security in as_accesses_all
4012: -- l_Sales_Team_Rec.access_id := FND_API.G_MISS_NUM;
4013: l_Sales_Team_Rec.last_update_date := SYSDATE;
4014: l_Sales_Team_Rec.last_updated_by := FND_GLOBAL.USER_ID;
4015: l_Sales_Team_Rec.creation_date := SYSDATE;
4016: l_Sales_Team_Rec.created_by := FND_GLOBAL.USER_ID;
4014: l_Sales_Team_Rec.last_updated_by := FND_GLOBAL.USER_ID;
4015: l_Sales_Team_Rec.creation_date := SYSDATE;
4016: l_Sales_Team_Rec.created_by := FND_GLOBAL.USER_ID;
4017: l_Sales_Team_Rec.last_update_login := FND_GLOBAL.CONC_LOGIN_ID;
4018: -- l_Sales_Team_Rec.team_leader_flag := FND_API.G_MISS_CHAR;
4019: l_Sales_Team_Rec.customer_id := l_SALES_LEAD_rec.Customer_Id;
4020: l_Sales_Team_Rec.address_id := l_SALES_LEAD_rec.Address_Id;
4021: l_Sales_Team_Rec.salesforce_id :=
4022: l_SALES_LEAD_rec.ASSIGN_TO_SALESFORCE_ID;
4043: END IF;
4044:
4045: AS_ACCESS_PUB.Create_SalesTeam (
4046: p_api_version_number => 2.0
4047: ,p_init_msg_list => FND_API.G_FALSE
4048: ,p_commit => FND_API.G_FALSE
4049: ,p_validation_level => p_Validation_Level
4050: ,p_access_profile_rec => l_access_profile_rec
4051: ,p_check_access_flag => 'N'
4044:
4045: AS_ACCESS_PUB.Create_SalesTeam (
4046: p_api_version_number => 2.0
4047: ,p_init_msg_list => FND_API.G_FALSE
4048: ,p_commit => FND_API.G_FALSE
4049: ,p_validation_level => p_Validation_Level
4050: ,p_access_profile_rec => l_access_profile_rec
4051: ,p_check_access_flag => 'N'
4052: ,p_admin_flag => P_Admin_Flag
4068: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
4069: 'access_id : ' || l_Access_Id);
4070:
4071: END IF;
4072: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4073: RAISE FND_API.G_EXC_ERROR;
4074: END IF;
4075: END IF;
4076:
4069: 'access_id : ' || l_Access_Id);
4070:
4071: END IF;
4072: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4073: RAISE FND_API.G_EXC_ERROR;
4074: END IF;
4075: END IF;
4076:
4077: -- Create Sales Lead Lines
4087: -- created. P_check_access_flag should pass 'N' to avoid checking
4088: -- has_updateLeadAccess
4089: AS_SALES_LEAD_LINES_PVT.Create_sales_lead_lines(
4090: P_Api_Version_Number => 2.0 ,
4091: P_Init_Msg_List => FND_API.G_FALSE,
4092: P_Commit => FND_API.G_FALSE,
4093: p_validation_level => P_Validation_Level,
4094: P_Check_Access_Flag => 'N',
4095: -- P_Check_Access_Flag => P_Check_Access_Flag,
4088: -- has_updateLeadAccess
4089: AS_SALES_LEAD_LINES_PVT.Create_sales_lead_lines(
4090: P_Api_Version_Number => 2.0 ,
4091: P_Init_Msg_List => FND_API.G_FALSE,
4092: P_Commit => FND_API.G_FALSE,
4093: p_validation_level => P_Validation_Level,
4094: P_Check_Access_Flag => 'N',
4095: -- P_Check_Access_Flag => P_Check_Access_Flag,
4096: P_Admin_Flag => P_Admin_Flag,
4104: X_Msg_Count => X_Msg_Count,
4105: X_Msg_Data => X_Msg_Data
4106: );
4107:
4108: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4109: RAISE FND_API.G_EXC_ERROR;
4110: END IF;
4111: END IF;
4112:
4105: X_Msg_Data => X_Msg_Data
4106: );
4107:
4108: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4109: RAISE FND_API.G_EXC_ERROR;
4110: END IF;
4111: END IF;
4112:
4113: -- OPEN C_Lines_Amounts (X_SALES_LEAD_ID);
4118: -- THEN
4119: -- AS_UTILITY_PVT.Set_Message(
4120: -- p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
4121: -- p_msg_name => 'AS_BUDGET_AMOUNT_NOT_MATCH');
4122: -- RAISE FND_API.G_EXC_ERROR;
4123: -- END IF;
4124:
4125: -- Create sales lead contacts
4126: IF p_SALES_LEAD_CONTACT_tbl.COUNT >= 1 THEN
4135: -- created. P_check_access_flag should pass 'N' to avoid checking
4136: -- has_updateLeadAccess
4137: AS_SALES_LEAD_CONTACTS_PVT.Create_sales_lead_contacts(
4138: P_Api_Version_Number => 2.0,
4139: P_Init_Msg_List => FND_API.G_FALSE,
4140: P_Commit => FND_API.G_FALSE,
4141: p_validation_level => P_Validation_Level,
4142: P_Check_Access_Flag => 'N',
4143: -- P_Check_Access_Flag => P_Check_Access_Flag,
4136: -- has_updateLeadAccess
4137: AS_SALES_LEAD_CONTACTS_PVT.Create_sales_lead_contacts(
4138: P_Api_Version_Number => 2.0,
4139: P_Init_Msg_List => FND_API.G_FALSE,
4140: P_Commit => FND_API.G_FALSE,
4141: p_validation_level => P_Validation_Level,
4142: P_Check_Access_Flag => 'N',
4143: -- P_Check_Access_Flag => P_Check_Access_Flag,
4144: P_Admin_Flag => P_Admin_Flag,
4151: X_Return_Status => x_Return_Status,
4152: X_Msg_Count => X_Msg_Count,
4153: X_Msg_Data => X_Msg_Data );
4154:
4155: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4156: RAISE FND_API.G_EXC_ERROR;
4157: END IF;
4158: END IF;
4159:
4152: X_Msg_Count => X_Msg_Count,
4153: X_Msg_Data => X_Msg_Data );
4154:
4155: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4156: RAISE FND_API.G_EXC_ERROR;
4157: END IF;
4158: END IF;
4159:
4160: -- Debug Message
4166:
4167: -- Check IF there is only one primary contact
4168: AS_SALES_LEAD_CONTACTS_PVT.Check_primary_contact (
4169: P_Api_Version_Number => 2.0
4170: ,P_Init_Msg_List => FND_API.G_FALSE
4171: ,P_Commit => FND_API.G_FALSE
4172: ,p_validation_level => P_Validation_Level
4173: -- ,P_Check_Access_Flag => P_Check_Access_Flag
4174: ,P_Check_Access_Flag => 'N'
4167: -- Check IF there is only one primary contact
4168: AS_SALES_LEAD_CONTACTS_PVT.Check_primary_contact (
4169: P_Api_Version_Number => 2.0
4170: ,P_Init_Msg_List => FND_API.G_FALSE
4171: ,P_Commit => FND_API.G_FALSE
4172: ,p_validation_level => P_Validation_Level
4173: -- ,P_Check_Access_Flag => P_Check_Access_Flag
4174: ,P_Check_Access_Flag => 'N'
4175: ,P_Admin_Flag => P_Admin_Flag
4181: ,X_Msg_Count => X_Msg_Count
4182: ,X_Msg_Data => X_Msg_Data
4183: );
4184:
4185: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4186: RAISE FND_API.G_EXC_ERROR;
4187: END IF;
4188:
4189:
4182: ,X_Msg_Data => X_Msg_Data
4183: );
4184:
4185: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4186: RAISE FND_API.G_EXC_ERROR;
4187: END IF;
4188:
4189:
4190: -- 11.5.10 ckapoor Rivendell lead name changes
4188:
4189:
4190: -- 11.5.10 ckapoor Rivendell lead name changes
4191:
4192: if ( l_sales_lead_rec.description is null OR l_sales_lead_rec.description=FND_API.G_MISS_CHAR) then
4193:
4194: IF (AS_DEBUG_LOW_ON) THEN
4195:
4196: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
4232: -- END of API body
4233: --
4234:
4235: -- Standard check for p_commit
4236: IF FND_API.to_Boolean( p_commit )
4237: THEN
4238: COMMIT WORK;
4239: END IF;
4240:
4250: ( p_count => x_msg_count,
4251: p_data => x_msg_data );
4252:
4253: EXCEPTION
4254: WHEN FND_API.G_EXC_ERROR THEN
4255: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
4256: P_API_NAME => L_API_NAME
4257: ,P_PKG_NAME => G_PKG_NAME
4258: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
4260: ,X_MSG_COUNT => X_MSG_COUNT
4261: ,X_MSG_DATA => X_MSG_DATA
4262: ,X_RETURN_STATUS => X_RETURN_STATUS);
4263:
4264: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4265: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
4266: P_API_NAME => L_API_NAME
4267: ,P_PKG_NAME => G_PKG_NAME
4268: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
4287:
4288:
4289: PROCEDURE Update_sales_lead(
4290: P_Api_Version_Number IN NUMBER,
4291: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
4292: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
4293: P_Validation_Level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4294: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_MISS_CHAR,
4295: P_Admin_Flag IN VARCHAR2 := FND_API.G_MISS_CHAR,
4288:
4289: PROCEDURE Update_sales_lead(
4290: P_Api_Version_Number IN NUMBER,
4291: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
4292: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
4293: P_Validation_Level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4294: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_MISS_CHAR,
4295: P_Admin_Flag IN VARCHAR2 := FND_API.G_MISS_CHAR,
4296: P_Admin_Group_Id IN NUMBER := FND_API.G_MISS_NUM,
4289: PROCEDURE Update_sales_lead(
4290: P_Api_Version_Number IN NUMBER,
4291: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
4292: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
4293: P_Validation_Level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4294: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_MISS_CHAR,
4295: P_Admin_Flag IN VARCHAR2 := FND_API.G_MISS_CHAR,
4296: P_Admin_Group_Id IN NUMBER := FND_API.G_MISS_NUM,
4297: P_Identity_Salesforce_Id IN NUMBER := FND_API.G_MISS_NUM,
4290: P_Api_Version_Number IN NUMBER,
4291: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
4292: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
4293: P_Validation_Level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4294: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_MISS_CHAR,
4295: P_Admin_Flag IN VARCHAR2 := FND_API.G_MISS_CHAR,
4296: P_Admin_Group_Id IN NUMBER := FND_API.G_MISS_NUM,
4297: P_Identity_Salesforce_Id IN NUMBER := FND_API.G_MISS_NUM,
4298: P_Sales_Lead_Profile_Tbl IN AS_UTILITY_PUB.Profile_Tbl_Type
4291: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
4292: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
4293: P_Validation_Level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4294: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_MISS_CHAR,
4295: P_Admin_Flag IN VARCHAR2 := FND_API.G_MISS_CHAR,
4296: P_Admin_Group_Id IN NUMBER := FND_API.G_MISS_NUM,
4297: P_Identity_Salesforce_Id IN NUMBER := FND_API.G_MISS_NUM,
4298: P_Sales_Lead_Profile_Tbl IN AS_UTILITY_PUB.Profile_Tbl_Type
4299: := AS_UTILITY_PUB.G_MISS_PROFILE_TBL,
4292: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
4293: P_Validation_Level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4294: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_MISS_CHAR,
4295: P_Admin_Flag IN VARCHAR2 := FND_API.G_MISS_CHAR,
4296: P_Admin_Group_Id IN NUMBER := FND_API.G_MISS_NUM,
4297: P_Identity_Salesforce_Id IN NUMBER := FND_API.G_MISS_NUM,
4298: P_Sales_Lead_Profile_Tbl IN AS_UTILITY_PUB.Profile_Tbl_Type
4299: := AS_UTILITY_PUB.G_MISS_PROFILE_TBL,
4300: P_SALES_LEAD_Rec IN AS_SALES_LEADS_PUB.SALES_LEAD_Rec_Type,
4293: P_Validation_Level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
4294: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_MISS_CHAR,
4295: P_Admin_Flag IN VARCHAR2 := FND_API.G_MISS_CHAR,
4296: P_Admin_Group_Id IN NUMBER := FND_API.G_MISS_NUM,
4297: P_Identity_Salesforce_Id IN NUMBER := FND_API.G_MISS_NUM,
4298: P_Sales_Lead_Profile_Tbl IN AS_UTILITY_PUB.Profile_Tbl_Type
4299: := AS_UTILITY_PUB.G_MISS_PROFILE_TBL,
4300: P_SALES_LEAD_Rec IN AS_SALES_LEADS_PUB.SALES_LEAD_Rec_Type,
4301: -- P_Calling_From_WF_Flag IN VARCHAR2 := 'N',
4533: l_qualified_flag VARCHAR2(1);
4534: l_lead_rank_id NUMBER;
4535: l_reject_reason_code VARCHAR2(30);
4536:
4537: l_Return_Status VARCHAR2(10) := FND_API.G_RET_STS_SUCCESS;
4538: l_Msg_Count NUMBER := 0;
4539: l_Msg_Data VARCHAR2(4000);
4540: l_check_owner VARCHAR2(1);
4541: l_lead_owner_privilege VARCHAR2(1);
4583:
4584: -- end ckapoor
4585:
4586: --l_country_code VARCHAR2(60);
4587: l_country_code VARCHAR2(60) := FND_API.G_MISS_CHAR; --Default value added by bmuthukr for bug 3675566
4588:
4589:
4590: BEGIN
4591: -- Standard Start of API savepoint
4591: -- Standard Start of API savepoint
4592: SAVEPOINT UPDATE_SALES_LEAD_PVT;
4593:
4594: -- Standard call to check for call compatibility.
4595: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
4596: p_api_version_number,
4597: l_api_name,
4598: G_PKG_NAME)
4599: THEN
4596: p_api_version_number,
4597: l_api_name,
4598: G_PKG_NAME)
4599: THEN
4600: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4601: END IF;
4602:
4603: -- Initialize message list IF p_init_msg_list is set to TRUE.
4604: IF FND_API.to_Boolean( p_init_msg_list )
4600: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4601: END IF;
4602:
4603: -- Initialize message list IF p_init_msg_list is set to TRUE.
4604: IF FND_API.to_Boolean( p_init_msg_list )
4605: THEN
4606: FND_MSG_PUB.initialize;
4607: END IF;
4608:
4613: 'PVT: ' || l_api_name || ' Start');
4614: END IF;
4615:
4616: -- Initialize API return status to SUCCESS
4617: x_return_status := FND_API.G_RET_STS_SUCCESS;
4618:
4619: --
4620: -- Api body
4621: --
4619: --
4620: -- Api body
4621: --
4622:
4623: IF (p_validation_level = fnd_api.g_valid_level_full)
4624: THEN
4625: AS_SALES_ORG_MANAGER_PVT.Get_CurrentUser(
4626: p_api_version_number => 2.0
4627: ,p_init_msg_list => p_init_msg_list
4631: ,x_msg_count => x_msg_count
4632: ,x_msg_data => x_msg_data
4633: ,x_sales_member_rec => l_identity_sales_member_rec);
4634: END IF;
4635: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4636: RAISE FND_API.G_EXC_ERROR;
4637: END IF;
4638:
4639: -- Debug Message
4632: ,x_msg_data => x_msg_data
4633: ,x_sales_member_rec => l_identity_sales_member_rec);
4634: END IF;
4635: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4636: RAISE FND_API.G_EXC_ERROR;
4637: END IF;
4638:
4639: -- Debug Message
4640: IF (AS_DEBUG_LOW_ON) THEN
4669: FND_MESSAGE.Set_Name('AS', 'API_MISSING_UPDATE_TARGET');
4670: FND_MESSAGE.Set_Token ('INFO', 'SALES_LEAD', FALSE);
4671: FND_MSG_PUB.Add;
4672: END IF;
4673: raise FND_API.G_EXC_ERROR;
4674: END IF;
4675:
4676: -- Debug Message
4677: IF (AS_DEBUG_LOW_ON) THEN
4682: Close C_Get_sales_leads;
4683:
4684: -- Check Whether record has been changed by someone else
4685: IF (l_tar_SALES_LEAD_rec.last_update_date is NULL or
4686: l_tar_SALES_LEAD_rec.last_update_date = FND_API.G_MISS_Date )
4687: THEN
4688: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
4689: THEN
4690: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
4690: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
4691: FND_MESSAGE.Set_Token('COLUMN', 'LAST_UPDATE_DATE', FALSE);
4692: FND_MSG_PUB.ADD;
4693: END IF;
4694: raise FND_API.G_EXC_ERROR;
4695: END IF;
4696:
4697: IF (l_tar_SALES_LEAD_rec.last_update_date <> l_last_update_date)
4698: THEN
4701: FND_MESSAGE.Set_Name('AS', 'API_RECORD_CHANGED');
4702: FND_MESSAGE.Set_Token('INFO', 'SALES_LEAD', FALSE);
4703: FND_MSG_PUB.ADD;
4704: END IF;
4705: raise FND_API.G_EXC_ERROR;
4706: END IF;
4707:
4708: -- Bug 1514981
4709: -- Set default value to accept_flag, keep_flag, urgent_flag,
4736: END IF;
4737:
4738: -- Invoke validation procedures
4739: Validate_sales_lead(
4740: p_init_msg_list => FND_API.G_FALSE,
4741: p_validation_level => p_validation_level,
4742: p_validation_mode => AS_UTILITY_PVT.G_UPDATE,
4743: P_SALES_LEAD_Rec => l_tar_SALES_LEAD_Rec,
4744: p_referral_type => l_referral_type,
4746: x_return_status => x_return_status,
4747: x_msg_count => x_msg_count,
4748: x_msg_data => x_msg_data);
4749:
4750: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4751: RAISE FND_API.G_EXC_ERROR;
4752: END IF;
4753:
4754:
4747: x_msg_count => x_msg_count,
4748: x_msg_data => x_msg_data);
4749:
4750: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
4751: RAISE FND_API.G_EXC_ERROR;
4752: END IF;
4753:
4754:
4755: -- Call Get_Access_Profiles to get access_profile_rec
4777: END IF;
4778:
4779: AS_ACCESS_PUB.Has_updateLeadAccess(
4780: p_api_version_number => 2.0
4781: ,p_init_msg_list => FND_API.G_FALSE
4782: ,p_validation_level => p_validation_level
4783: ,p_access_profile_rec => l_access_profile_rec
4784: ,p_admin_flag => p_admin_flag
4785: ,p_admin_group_id => p_admin_group_id
4800:
4801: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
4802: 'API_NO_UPDATE_PRIVILEGE');
4803: END IF;
4804: RAISE FND_API.G_EXC_ERROR;
4805: END IF;
4806:
4807: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4808:
4803: END IF;
4804: RAISE FND_API.G_EXC_ERROR;
4805: END IF;
4806:
4807: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4808:
4809: RAISE FND_API.G_EXC_ERROR;
4810: END IF;
4811:
4805: END IF;
4806:
4807: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4808:
4809: RAISE FND_API.G_EXC_ERROR;
4810: END IF;
4811:
4812:
4813:
4839: 'Calling Has_leadOwnerAccess');
4840: END IF;
4841: AS_ACCESS_PVT.has_leadOwnerAccess(
4842: p_api_version_number => 2.0
4843: ,p_init_msg_list => FND_API.G_FALSE
4844: ,p_validation_level => p_validation_level
4845: ,p_access_profile_rec => l_access_profile_rec
4846: ,p_admin_flag => p_admin_flag
4847: ,p_admin_group_id => p_admin_group_id
4857: ,x_msg_data => x_msg_data
4858: ,x_update_access_flag => l_check_owner);
4859:
4860:
4861: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4862:
4863: RAISE FND_API.G_EXC_ERROR;
4864: END IF;
4865:
4859:
4860:
4861: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4862:
4863: RAISE FND_API.G_EXC_ERROR;
4864: END IF;
4865:
4866:
4867:
4877:
4878: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
4879: 'API_NO_LEAD_UPDATE_PRIVILEGE');
4880: END IF;
4881: RAISE FND_API.G_EXC_ERROR;
4882: END IF;
4883:
4884: end if; -- if current owner is not null
4885:
4901:
4902: END IF;
4903:
4904:
4905: IF (l_tar_SALES_LEAD_Rec.reject_reason_code is not null AND l_tar_SALES_LEAD_Rec.reject_reason_code <> FND_API.G_MISS_CHAR)
4906: AND l_check_owner <> 'Y'
4907: AND l_lead_owner_privilege <> 'Y' -- exception made, even if not owner but if profile is set then lets you
4908: -- change owner. Update access checking in security API
4909: THEN
4911:
4912: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
4913: 'API_NO_DECLINE_PRIVILEGE');
4914: END IF;
4915: RAISE FND_API.G_EXC_ERROR;
4916: END IF;
4917:
4918:
4919: IF (l_tar_SALES_LEAD_Rec.accept_flag <> l_accept_flag) AND (l_tar_SALES_LEAD_rec.accept_flag <> FND_API.G_MISS_CHAR)
4915: RAISE FND_API.G_EXC_ERROR;
4916: END IF;
4917:
4918:
4919: IF (l_tar_SALES_LEAD_Rec.accept_flag <> l_accept_flag) AND (l_tar_SALES_LEAD_rec.accept_flag <> FND_API.G_MISS_CHAR)
4920: AND l_check_owner <> 'Y'
4921: AND l_lead_owner_privilege <> 'Y' -- exception made, even if not owner but if profile is set then lets you
4922: -- change owner. Update access checking in security API
4923: THEN
4925:
4926: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
4927: 'API_NO_ACCEPT_PRIVILEGE');
4928: END IF;
4929: RAISE FND_API.G_EXC_ERROR;
4930: END IF;
4931:
4932:
4933: -- auto qualify lead
4938:
4939: -- ffang 100200: for bug 1416170
4940: -- Do auto-qualify only when keep_flag <> 'Y' or keep_flag is NULL
4941:
4942: -- IF (P_SALES_LEAD_Rec.keep_flag = FND_API.G_MISS_CHAR)
4943: -- THEN
4944: -- OPEN C_Get_Keep_Flag (P_SALES_LEAD_Rec.sales_lead_id);
4945: -- FETCH C_Get_Keep_Flag into l_keep_flag;
4946: -- CLOSE C_Get_Keep_Flag;
4972: IF(P_SALES_LEAD_Rec.qualified_flag = 'N' and
4973: l_auto_qualify_profile = 'Y')
4974: --IF (l_status_code = 'NEW' or l_status_code = 'UNQUALIFIED')
4975: -- and (P_SALES_LEAD_Rec.status_code is null
4976: -- or P_SALES_LEAD_Rec.status_code = FND_API.G_MISS_CHAR)
4977: THEN
4978: -- Launch auto-qualification
4979: IF (AS_DEBUG_LOW_ON) THEN
4980:
5052: -- then clear accept flag and make sure assign to doesnt get changed
5053: -- even if user has changed it while declining
5054:
5055: if l_tar_SALES_LEAD_rec.REJECT_REASON_CODE IS NOT NULL AND
5056: l_tar_SALES_LEAD_rec.REJECT_REASON_CODE <> FND_API.G_MISS_CHAR
5057: THEN
5058: l_tar_SALES_LEAD_rec.accept_flag := 'N';
5059:
5060: IF (l_assign_to_salesforce_id IS NOT NULL AND
5058: l_tar_SALES_LEAD_rec.accept_flag := 'N';
5059:
5060: IF (l_assign_to_salesforce_id IS NOT NULL AND
5061: l_tar_SALES_LEAD_rec.assign_to_salesforce_id <>
5062: FND_API.G_MISS_NUM AND
5063: l_tar_SALES_LEAD_rec.assign_to_salesforce_id <>
5064: l_assign_to_salesforce_id)
5065: OR
5066: (l_tar_SALES_LEAD_rec.assign_to_salesforce_id IS NULL)
5073:
5074: END IF;
5075:
5076: -- this code is ok since noone else modifies assign_date
5077: l_tar_SALES_LEAD_rec.assign_date := FND_API.G_MISS_DATE;
5078:
5079: -- If assign_to_salesforce_id is being set to someone else (manual routing)
5080: -- then, the status should be set from profile and accept_flag = 'N'
5081:
5081:
5082: IF l_assign_to_salesforce_id IS NOT NULL AND
5083: l_tar_SALES_LEAD_rec.assign_to_salesforce_id IS NOT NULL AND
5084: l_tar_SALES_LEAD_rec.assign_to_salesforce_id <>
5085: FND_API.G_MISS_NUM AND
5086: l_tar_SALES_LEAD_rec.assign_to_salesforce_id <>
5087: l_assign_to_salesforce_id
5088: THEN
5089:
5098: -- then make sure referral status is set to the profile of REF_STATUS_FOR_NEW_LEAD
5099:
5100: l_referral_status_profile := l_tar_SALES_LEAD_rec.REFERRAL_STATUS;
5101:
5102: if (l_tar_SALES_LEAD_rec.REFERRAL_STATUS is null or l_tar_SALES_LEAD_rec.REFERRAL_STATUS = FND_API.G_MISS_CHAR)
5103: then
5104: if (l_tar_SALES_LEAD_rec.REFERRAL_TYPE is not null and l_tar_sales_lead_rec.REFERRAL_TYPE <> FND_API.G_MISS_CHAR)
5105: -- if referral type lead and the current referral status in database is null then need to do something.
5106: then
5100: l_referral_status_profile := l_tar_SALES_LEAD_rec.REFERRAL_STATUS;
5101:
5102: if (l_tar_SALES_LEAD_rec.REFERRAL_STATUS is null or l_tar_SALES_LEAD_rec.REFERRAL_STATUS = FND_API.G_MISS_CHAR)
5103: then
5104: if (l_tar_SALES_LEAD_rec.REFERRAL_TYPE is not null and l_tar_sales_lead_rec.REFERRAL_TYPE <> FND_API.G_MISS_CHAR)
5105: -- if referral type lead and the current referral status in database is null then need to do something.
5106: then
5107: if (l_current_ref_status is null) then
5108: l_referral_status_profile := FND_PROFILE.Value('REF_STATUS_FOR_NEW_LEAD');
5106: then
5107: if (l_current_ref_status is null) then
5108: l_referral_status_profile := FND_PROFILE.Value('REF_STATUS_FOR_NEW_LEAD');
5109: else
5110: l_referral_status_profile := FND_API.G_MISS_CHAR; -- you dont want to change the non null referral status
5111: end if ; -- if l_current_ref_status is null
5112: end if; -- if a referral type lead
5113: end if; -- if incoming referral status is null/G_MISS
5114:
5114:
5115:
5116: --bmuthukr modified the following code to fix bug 3675566.
5117: /*IF (l_tar_SALES_LEAD_rec.address_id is not NULL) and
5118: (l_tar_SALES_LEAD_rec.address_id <> FND_API.G_MISS_NUM)
5119: THEN
5120: OPEN c_get_country_code ( l_customer_id, l_tar_SALES_LEAD_rec.address_id);
5121: FETCH c_get_country_code into l_country_code;
5122: Close c_get_country_code;
5122: Close c_get_country_code;
5123: ELSE
5124: l_country_code := null;
5125: END If;*/
5126: IF (nvl(l_tar_SALES_LEAD_rec.address_id,0) <> FND_API.G_MISS_NUM) THEN
5127: IF (l_tar_SALES_LEAD_rec.address_id is not NULL) THEN
5128: OPEN c_get_country_code ( l_customer_id, l_tar_SALES_LEAD_rec.address_id);
5129: FETCH c_get_country_code into l_country_code;
5130: Close c_get_country_code;
5151: -- if status is null (shud not happen since status is non null alwiz), we
5152: -- dont want to fix the status flag
5153: -- if status is g_miss , means anyways the status is not changing so flag is not changing.
5154:
5155: if (l_tar_sales_lead_rec.STATUS_CODE IS NOT NULL AND l_tar_sales_lead_rec.STATUS_CODE <> FND_API.G_MISS_CHAR ) THEN
5156:
5157: OPEN C_Get_Status_open_flag ( l_tar_SALES_LEAD_rec.STATUS_CODE);
5158: FETCH C_Get_Status_open_flag into l_new_status_flag;
5159: Close C_Get_Status_open_flag;
5173: Close C_Get_Lead_Rank_Score;
5174:
5175: -- by default the new score is g_miss i.e do not change the old score in db.
5176:
5177: l_new_lead_rank_score := FND_API.G_MISS_NUM;
5178:
5179: -- if new rank is null, we want to fix the score since old might have been non null.
5180: -- if new rank is g_miss , means anyways the rank is not changing so score is not changing.
5181:
5178:
5179: -- if new rank is null, we want to fix the score since old might have been non null.
5180: -- if new rank is g_miss , means anyways the rank is not changing so score is not changing.
5181:
5182: if ( l_tar_sales_lead_rec.LEAD_RANK_ID <> FND_API.G_MISS_NUM ) THEN
5183:
5184: OPEN C_Get_Lead_Rank_Score ( l_tar_SALES_LEAD_rec.LEAD_RANK_ID);
5185: FETCH C_Get_Lead_Rank_Score into l_new_lead_rank_score;
5186: Close C_Get_Lead_Rank_Score;
5217:
5218:
5219: -- what should the new expiration date be.
5220:
5221: if (l_tar_sales_lead_rec.DECISION_TIMEFRAME_CODE = FND_API.G_MISS_CHAR) then
5222: l_timeframe_code := l_decision_timeframe_code; -- same as the db value
5223: else
5224: l_timeframe_code := l_tar_sales_lead_rec.DECISION_TIMEFRAME_CODE; -- same as the target value
5225:
5250: -- 'U': lead is upgraded.
5251: -- 'D': lead is downgraded.
5252: -- 'N': none of above.
5253: IF l_tar_sales_lead_rec.lead_rank_id <> l_lead_rank_id AND
5254: l_tar_sales_lead_rec.lead_rank_id <> FND_API.G_MISS_NUM
5255: THEN
5256: l_manual_rank_flag := 'Y';
5257: OPEN C_get_last_system_rank(l_tar_SALES_LEAD_rec.SALES_LEAD_ID);
5258: FETCH C_get_last_system_rank INTO l_last_system_rank_id;
5281: ELSE
5282: l_lead_rank_ind := 'N';
5283: END IF;
5284: ELSE
5285: --l_lead_rank_ind := FND_API.G_MISS_CHAR;
5286: l_lead_rank_ind := l_tar_SALES_LEAD_rec.LEAD_RANK_IND;
5287: END IF;
5288: -- SOLIN, end
5289:
5386:
5387: p_TOTAL_AMOUNT => p_SALES_LEAD_rec.TOTAL_AMOUNT,
5388: p_EXPIRATION_DATE => l_exp_date, -- p_SALES_LEAD_rec.EXPIRATION_DATE,
5389: p_LEAD_RANK_IND => l_lead_rank_ind,
5390: p_LEAD_ENGINE_RUN_DATE => FND_API.G_MISS_DATE, --p_SALES_LEAD_rec.LEAD_ENGINE_RUN_DATE,
5391: p_CURRENT_REROUTES => p_SALES_LEAD_rec.CURRENT_REROUTES
5392:
5393: -- new columns for appsperf CRMAP denorm project bug 2928041
5394:
5392:
5393: -- new columns for appsperf CRMAP denorm project bug 2928041
5394:
5395: ,p_STATUS_OPEN_FLAG => l_new_status_flag
5396: --FND_API.G_MISS_CHAR
5397: ,p_LEAD_RANK_SCORE => l_new_lead_rank_score
5398: --FND_API.G_MISS_NUM
5399:
5400: -- ckapoor 11.5.10 New columns
5394:
5395: ,p_STATUS_OPEN_FLAG => l_new_status_flag
5396: --FND_API.G_MISS_CHAR
5397: ,p_LEAD_RANK_SCORE => l_new_lead_rank_score
5398: --FND_API.G_MISS_NUM
5399:
5400: -- ckapoor 11.5.10 New columns
5401:
5402: , p_MARKETING_SCORE => l_tar_SALES_LEAD_rec.MARKETING_SCORE
5417:
5418: -- Kick off Lead Assignment Workflow
5419: CALL_WF_TO_ASSIGN (
5420: P_Api_Version_Number => 2.0,
5421: P_Init_Msg_List => FND_API.G_FALSE,
5422: P_Sales_Lead_Id => l_tar_SALES_LEAD_rec.SALES_LEAD_ID,
5423: P_assigned_resource_id => l_tar_SALES_LEAD_rec.ASSIGN_TO_SALESFORCE_ID,
5424: X_Return_Status => l_Return_Status,
5425: X_Msg_Count => l_Msg_Count,
5425: X_Msg_Count => l_Msg_Count,
5426: X_Msg_Data => l_Msg_Data
5427: );
5428:
5429: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5430: IF (AS_DEBUG_ERROR_ON) THEN
5431:
5432: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
5433: 'AS_LEAD_ASSIGN_FAIL');
5431:
5432: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
5433: 'AS_LEAD_ASSIGN_FAIL');
5434: END IF;
5435: RAISE FND_API.G_EXC_ERROR;
5436: END IF;
5437: */
5438:
5439:
5440:
5441:
5442:
5443:
5444: /* IF ((l_tar_sales_lead_rec.status_code<> FND_API.G_MISS_CHAR) AND (l_tar_sales_lead_rec.status_code <> l_old_status_code)) OR
5445: ((l_tar_sales_lead_rec.assign_to_salesforce_id <> FND_API.G_MISS_NUM) AND (l_tar_sales_lead_rec.assign_to_salesforce_id <> l_assign_to_salesforce_id)) OR
5446: ((l_tar_sales_lead_rec.assign_sales_group_id <> FND_API.G_MISS_NUM) AND (l_tar_sales_lead_rec.assign_sales_group_id <> l_assign_sales_group_id)) OR
5447: ((l_tar_sales_lead_rec.assign_to_person_id <> FND_API.G_MISS_NUM) AND (l_tar_sales_lead_rec.assign_to_person_id <> l_assign_to_person_id)) OR
5448: ((l_tar_sales_lead_rec.lead_rank_id <> FND_API.G_MISS_NUM) AND (l_tar_sales_lead_rec.lead_rank_id <> l_lead_rank_id)) OR
5441:
5442:
5443:
5444: /* IF ((l_tar_sales_lead_rec.status_code<> FND_API.G_MISS_CHAR) AND (l_tar_sales_lead_rec.status_code <> l_old_status_code)) OR
5445: ((l_tar_sales_lead_rec.assign_to_salesforce_id <> FND_API.G_MISS_NUM) AND (l_tar_sales_lead_rec.assign_to_salesforce_id <> l_assign_to_salesforce_id)) OR
5446: ((l_tar_sales_lead_rec.assign_sales_group_id <> FND_API.G_MISS_NUM) AND (l_tar_sales_lead_rec.assign_sales_group_id <> l_assign_sales_group_id)) OR
5447: ((l_tar_sales_lead_rec.assign_to_person_id <> FND_API.G_MISS_NUM) AND (l_tar_sales_lead_rec.assign_to_person_id <> l_assign_to_person_id)) OR
5448: ((l_tar_sales_lead_rec.lead_rank_id <> FND_API.G_MISS_NUM) AND (l_tar_sales_lead_rec.lead_rank_id <> l_lead_rank_id)) OR
5449: ((l_tar_sales_lead_rec.qualified_flag <> FND_API.G_MISS_CHAR) AND (l_tar_sales_lead_rec.qualified_flag <> l_qualified_flag))
5442:
5443:
5444: /* IF ((l_tar_sales_lead_rec.status_code<> FND_API.G_MISS_CHAR) AND (l_tar_sales_lead_rec.status_code <> l_old_status_code)) OR
5445: ((l_tar_sales_lead_rec.assign_to_salesforce_id <> FND_API.G_MISS_NUM) AND (l_tar_sales_lead_rec.assign_to_salesforce_id <> l_assign_to_salesforce_id)) OR
5446: ((l_tar_sales_lead_rec.assign_sales_group_id <> FND_API.G_MISS_NUM) AND (l_tar_sales_lead_rec.assign_sales_group_id <> l_assign_sales_group_id)) OR
5447: ((l_tar_sales_lead_rec.assign_to_person_id <> FND_API.G_MISS_NUM) AND (l_tar_sales_lead_rec.assign_to_person_id <> l_assign_to_person_id)) OR
5448: ((l_tar_sales_lead_rec.lead_rank_id <> FND_API.G_MISS_NUM) AND (l_tar_sales_lead_rec.lead_rank_id <> l_lead_rank_id)) OR
5449: ((l_tar_sales_lead_rec.qualified_flag <> FND_API.G_MISS_CHAR) AND (l_tar_sales_lead_rec.qualified_flag <> l_qualified_flag))
5450: */
5443:
5444: /* IF ((l_tar_sales_lead_rec.status_code<> FND_API.G_MISS_CHAR) AND (l_tar_sales_lead_rec.status_code <> l_old_status_code)) OR
5445: ((l_tar_sales_lead_rec.assign_to_salesforce_id <> FND_API.G_MISS_NUM) AND (l_tar_sales_lead_rec.assign_to_salesforce_id <> l_assign_to_salesforce_id)) OR
5446: ((l_tar_sales_lead_rec.assign_sales_group_id <> FND_API.G_MISS_NUM) AND (l_tar_sales_lead_rec.assign_sales_group_id <> l_assign_sales_group_id)) OR
5447: ((l_tar_sales_lead_rec.assign_to_person_id <> FND_API.G_MISS_NUM) AND (l_tar_sales_lead_rec.assign_to_person_id <> l_assign_to_person_id)) OR
5448: ((l_tar_sales_lead_rec.lead_rank_id <> FND_API.G_MISS_NUM) AND (l_tar_sales_lead_rec.lead_rank_id <> l_lead_rank_id)) OR
5449: ((l_tar_sales_lead_rec.qualified_flag <> FND_API.G_MISS_CHAR) AND (l_tar_sales_lead_rec.qualified_flag <> l_qualified_flag))
5450: */
5451:
5444: /* IF ((l_tar_sales_lead_rec.status_code<> FND_API.G_MISS_CHAR) AND (l_tar_sales_lead_rec.status_code <> l_old_status_code)) OR
5445: ((l_tar_sales_lead_rec.assign_to_salesforce_id <> FND_API.G_MISS_NUM) AND (l_tar_sales_lead_rec.assign_to_salesforce_id <> l_assign_to_salesforce_id)) OR
5446: ((l_tar_sales_lead_rec.assign_sales_group_id <> FND_API.G_MISS_NUM) AND (l_tar_sales_lead_rec.assign_sales_group_id <> l_assign_sales_group_id)) OR
5447: ((l_tar_sales_lead_rec.assign_to_person_id <> FND_API.G_MISS_NUM) AND (l_tar_sales_lead_rec.assign_to_person_id <> l_assign_to_person_id)) OR
5448: ((l_tar_sales_lead_rec.lead_rank_id <> FND_API.G_MISS_NUM) AND (l_tar_sales_lead_rec.lead_rank_id <> l_lead_rank_id)) OR
5449: ((l_tar_sales_lead_rec.qualified_flag <> FND_API.G_MISS_CHAR) AND (l_tar_sales_lead_rec.qualified_flag <> l_qualified_flag))
5450: */
5451:
5452: IF (AS_DEBUG_LOW_ON) THEN
5445: ((l_tar_sales_lead_rec.assign_to_salesforce_id <> FND_API.G_MISS_NUM) AND (l_tar_sales_lead_rec.assign_to_salesforce_id <> l_assign_to_salesforce_id)) OR
5446: ((l_tar_sales_lead_rec.assign_sales_group_id <> FND_API.G_MISS_NUM) AND (l_tar_sales_lead_rec.assign_sales_group_id <> l_assign_sales_group_id)) OR
5447: ((l_tar_sales_lead_rec.assign_to_person_id <> FND_API.G_MISS_NUM) AND (l_tar_sales_lead_rec.assign_to_person_id <> l_assign_to_person_id)) OR
5448: ((l_tar_sales_lead_rec.lead_rank_id <> FND_API.G_MISS_NUM) AND (l_tar_sales_lead_rec.lead_rank_id <> l_lead_rank_id)) OR
5449: ((l_tar_sales_lead_rec.qualified_flag <> FND_API.G_MISS_CHAR) AND (l_tar_sales_lead_rec.qualified_flag <> l_qualified_flag))
5450: */
5451:
5452: IF (AS_DEBUG_LOW_ON) THEN
5453:
5470:
5471:
5472: /*IF (
5473: (
5474: (l_tar_sales_lead_rec.status_code <> FND_API.G_MISS_CHAR)
5475: OR (l_tar_sales_lead_rec.assign_to_salesforce_id <> FND_API.G_MISS_NUM)
5476: OR (l_tar_sales_lead_rec.assign_sales_group_id <> FND_API.G_MISS_NUM)
5477: OR (l_tar_sales_lead_rec.assign_to_person_id <> FND_API.G_MISS_NUM)
5478: OR (l_tar_sales_lead_rec.lead_rank_id <> FND_API.G_MISS_NUM)
5471:
5472: /*IF (
5473: (
5474: (l_tar_sales_lead_rec.status_code <> FND_API.G_MISS_CHAR)
5475: OR (l_tar_sales_lead_rec.assign_to_salesforce_id <> FND_API.G_MISS_NUM)
5476: OR (l_tar_sales_lead_rec.assign_sales_group_id <> FND_API.G_MISS_NUM)
5477: OR (l_tar_sales_lead_rec.assign_to_person_id <> FND_API.G_MISS_NUM)
5478: OR (l_tar_sales_lead_rec.lead_rank_id <> FND_API.G_MISS_NUM)
5479: OR (l_tar_sales_lead_rec.qualified_flag <> FND_API.G_MISS_CHAR)
5472: /*IF (
5473: (
5474: (l_tar_sales_lead_rec.status_code <> FND_API.G_MISS_CHAR)
5475: OR (l_tar_sales_lead_rec.assign_to_salesforce_id <> FND_API.G_MISS_NUM)
5476: OR (l_tar_sales_lead_rec.assign_sales_group_id <> FND_API.G_MISS_NUM)
5477: OR (l_tar_sales_lead_rec.assign_to_person_id <> FND_API.G_MISS_NUM)
5478: OR (l_tar_sales_lead_rec.lead_rank_id <> FND_API.G_MISS_NUM)
5479: OR (l_tar_sales_lead_rec.qualified_flag <> FND_API.G_MISS_CHAR)
5480: OR (l_tar_sales_lead_rec.reject_reason_code <> FND_API.G_MISS_CHAR)
5473: (
5474: (l_tar_sales_lead_rec.status_code <> FND_API.G_MISS_CHAR)
5475: OR (l_tar_sales_lead_rec.assign_to_salesforce_id <> FND_API.G_MISS_NUM)
5476: OR (l_tar_sales_lead_rec.assign_sales_group_id <> FND_API.G_MISS_NUM)
5477: OR (l_tar_sales_lead_rec.assign_to_person_id <> FND_API.G_MISS_NUM)
5478: OR (l_tar_sales_lead_rec.lead_rank_id <> FND_API.G_MISS_NUM)
5479: OR (l_tar_sales_lead_rec.qualified_flag <> FND_API.G_MISS_CHAR)
5480: OR (l_tar_sales_lead_rec.reject_reason_code <> FND_API.G_MISS_CHAR)
5481: )
5474: (l_tar_sales_lead_rec.status_code <> FND_API.G_MISS_CHAR)
5475: OR (l_tar_sales_lead_rec.assign_to_salesforce_id <> FND_API.G_MISS_NUM)
5476: OR (l_tar_sales_lead_rec.assign_sales_group_id <> FND_API.G_MISS_NUM)
5477: OR (l_tar_sales_lead_rec.assign_to_person_id <> FND_API.G_MISS_NUM)
5478: OR (l_tar_sales_lead_rec.lead_rank_id <> FND_API.G_MISS_NUM)
5479: OR (l_tar_sales_lead_rec.qualified_flag <> FND_API.G_MISS_CHAR)
5480: OR (l_tar_sales_lead_rec.reject_reason_code <> FND_API.G_MISS_CHAR)
5481: )
5482: AND
5475: OR (l_tar_sales_lead_rec.assign_to_salesforce_id <> FND_API.G_MISS_NUM)
5476: OR (l_tar_sales_lead_rec.assign_sales_group_id <> FND_API.G_MISS_NUM)
5477: OR (l_tar_sales_lead_rec.assign_to_person_id <> FND_API.G_MISS_NUM)
5478: OR (l_tar_sales_lead_rec.lead_rank_id <> FND_API.G_MISS_NUM)
5479: OR (l_tar_sales_lead_rec.qualified_flag <> FND_API.G_MISS_CHAR)
5480: OR (l_tar_sales_lead_rec.reject_reason_code <> FND_API.G_MISS_CHAR)
5481: )
5482: AND
5483: (
5476: OR (l_tar_sales_lead_rec.assign_sales_group_id <> FND_API.G_MISS_NUM)
5477: OR (l_tar_sales_lead_rec.assign_to_person_id <> FND_API.G_MISS_NUM)
5478: OR (l_tar_sales_lead_rec.lead_rank_id <> FND_API.G_MISS_NUM)
5479: OR (l_tar_sales_lead_rec.qualified_flag <> FND_API.G_MISS_CHAR)
5480: OR (l_tar_sales_lead_rec.reject_reason_code <> FND_API.G_MISS_CHAR)
5481: )
5482: AND
5483: (
5484: (l_tar_sales_lead_rec.status_code <> l_old_status_code)
5496: IF
5497: (
5498: ( (l_tar_sales_lead_rec.status_code = l_old_status_code)
5499: or (l_tar_sales_lead_rec.status_code is null and l_old_status_code is null)
5500: or (l_tar_sales_lead_rec.status_code = FND_API.G_MISS_CHAR) )
5501: AND ( (l_tar_sales_lead_rec.assign_to_salesforce_id = l_assign_to_salesforce_id)
5502: or (l_tar_sales_lead_rec.assign_to_salesforce_id is null and l_assign_to_salesforce_id is null)
5503: or (l_tar_sales_lead_rec.assign_to_salesforce_id = FND_API.G_MISS_NUM) )
5504: AND ( (l_tar_sales_lead_rec.assign_sales_group_id = l_assign_sales_group_id)
5499: or (l_tar_sales_lead_rec.status_code is null and l_old_status_code is null)
5500: or (l_tar_sales_lead_rec.status_code = FND_API.G_MISS_CHAR) )
5501: AND ( (l_tar_sales_lead_rec.assign_to_salesforce_id = l_assign_to_salesforce_id)
5502: or (l_tar_sales_lead_rec.assign_to_salesforce_id is null and l_assign_to_salesforce_id is null)
5503: or (l_tar_sales_lead_rec.assign_to_salesforce_id = FND_API.G_MISS_NUM) )
5504: AND ( (l_tar_sales_lead_rec.assign_sales_group_id = l_assign_sales_group_id)
5505: or (l_tar_sales_lead_rec.assign_sales_group_id is null and l_assign_sales_group_id is null)
5506: or (l_tar_sales_lead_rec.assign_sales_group_id = FND_API.G_MISS_NUM))
5507: AND ( (l_tar_sales_lead_rec.assign_to_person_id = l_assign_to_person_id)
5502: or (l_tar_sales_lead_rec.assign_to_salesforce_id is null and l_assign_to_salesforce_id is null)
5503: or (l_tar_sales_lead_rec.assign_to_salesforce_id = FND_API.G_MISS_NUM) )
5504: AND ( (l_tar_sales_lead_rec.assign_sales_group_id = l_assign_sales_group_id)
5505: or (l_tar_sales_lead_rec.assign_sales_group_id is null and l_assign_sales_group_id is null)
5506: or (l_tar_sales_lead_rec.assign_sales_group_id = FND_API.G_MISS_NUM))
5507: AND ( (l_tar_sales_lead_rec.assign_to_person_id = l_assign_to_person_id)
5508: or (l_tar_sales_lead_rec.assign_to_person_id is null and l_assign_to_person_id is null)
5509: or (l_tar_sales_lead_rec.assign_to_person_id = FND_API.G_MISS_NUM))
5510: AND ( (l_tar_sales_lead_rec.lead_rank_id = l_lead_rank_id)
5505: or (l_tar_sales_lead_rec.assign_sales_group_id is null and l_assign_sales_group_id is null)
5506: or (l_tar_sales_lead_rec.assign_sales_group_id = FND_API.G_MISS_NUM))
5507: AND ( (l_tar_sales_lead_rec.assign_to_person_id = l_assign_to_person_id)
5508: or (l_tar_sales_lead_rec.assign_to_person_id is null and l_assign_to_person_id is null)
5509: or (l_tar_sales_lead_rec.assign_to_person_id = FND_API.G_MISS_NUM))
5510: AND ( (l_tar_sales_lead_rec.lead_rank_id = l_lead_rank_id)
5511: or ( l_tar_sales_lead_rec.lead_rank_id is null and l_lead_rank_id is null)
5512: or (l_tar_sales_lead_rec.lead_rank_id = FND_API.G_MISS_NUM))
5513: AND ( (l_tar_sales_lead_rec.qualified_flag = l_qualified_flag)
5508: or (l_tar_sales_lead_rec.assign_to_person_id is null and l_assign_to_person_id is null)
5509: or (l_tar_sales_lead_rec.assign_to_person_id = FND_API.G_MISS_NUM))
5510: AND ( (l_tar_sales_lead_rec.lead_rank_id = l_lead_rank_id)
5511: or ( l_tar_sales_lead_rec.lead_rank_id is null and l_lead_rank_id is null)
5512: or (l_tar_sales_lead_rec.lead_rank_id = FND_API.G_MISS_NUM))
5513: AND ( (l_tar_sales_lead_rec.qualified_flag = l_qualified_flag)
5514: or (l_tar_sales_lead_rec.qualified_flag is null and l_qualified_flag is null )
5515: or (l_tar_sales_lead_rec.qualified_flag = FND_API.G_MISS_CHAR))
5516:
5511: or ( l_tar_sales_lead_rec.lead_rank_id is null and l_lead_rank_id is null)
5512: or (l_tar_sales_lead_rec.lead_rank_id = FND_API.G_MISS_NUM))
5513: AND ( (l_tar_sales_lead_rec.qualified_flag = l_qualified_flag)
5514: or (l_tar_sales_lead_rec.qualified_flag is null and l_qualified_flag is null )
5515: or (l_tar_sales_lead_rec.qualified_flag = FND_API.G_MISS_CHAR))
5516:
5517: AND ( (l_tar_sales_lead_rec.reject_reason_code = l_reject_reason_code)
5518: or (l_tar_sales_lead_rec.reject_reason_code is null and l_reject_reason_code is null)
5519: or (l_tar_sales_lead_rec.reject_reason_code = FND_API.G_MISS_CHAR))
5515: or (l_tar_sales_lead_rec.qualified_flag = FND_API.G_MISS_CHAR))
5516:
5517: AND ( (l_tar_sales_lead_rec.reject_reason_code = l_reject_reason_code)
5518: or (l_tar_sales_lead_rec.reject_reason_code is null and l_reject_reason_code is null)
5519: or (l_tar_sales_lead_rec.reject_reason_code = FND_API.G_MISS_CHAR))
5520: )
5521:
5522: THEN
5523: IF (AS_DEBUG_LOW_ON) THEN
5533: 'Just after AS_SALES_LEADS_PKG.Sales_Lead_Update_Row');
5534: END IF;
5535:
5536:
5537: if (l_tar_sales_lead_rec.status_code = FND_API.G_MISS_CHAR) then
5538: l_log_status_code := l_old_status_code;
5539: end if;
5540:
5541:
5541:
5542: --IF (AS_DEBUG_LOW_ON) THENAS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5543: -- 'marker 1');END IF;
5544:
5545: if (l_tar_sales_lead_rec.assign_to_salesforce_id = FND_API.G_MISS_NUM) then
5546: l_log_assign_to_sf_id := l_assign_to_salesforce_id;
5547: end if;
5548:
5549: -- IF (AS_DEBUG_LOW_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5548:
5549: -- IF (AS_DEBUG_LOW_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5550: -- 'marker 2'); END IF;
5551:
5552: if (l_tar_sales_lead_rec.assign_sales_group_id = FND_API.G_MISS_NUM) then
5553: l_log_assign_sg_id := l_assign_sales_group_id;
5554: end if;
5555:
5556: -- IF (AS_DEBUG_LOW_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5555:
5556: -- IF (AS_DEBUG_LOW_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5557: -- 'marker 3'); END IF;
5558:
5559: if (l_tar_sales_lead_rec.assign_to_person_id = FND_API.G_MISS_NUM) then
5560: l_log_assign_to_person_id := l_assign_to_person_id;
5561: end if;
5562: -- IF (AS_DEBUG_LOW_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5563: -- 'marker 4'); END IF;
5562: -- IF (AS_DEBUG_LOW_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5563: -- 'marker 4'); END IF;
5564:
5565:
5566: if (l_tar_sales_lead_rec.lead_rank_id = FND_API.G_MISS_NUM) then
5567: l_log_lead_rank_id := l_lead_rank_id;
5568: end if;
5569:
5570: -- IF (AS_DEBUG_LOW_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5569:
5570: -- IF (AS_DEBUG_LOW_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5571: -- 'marker 5'); END IF;
5572:
5573: if (l_tar_sales_lead_rec.reject_reason_code = FND_API.G_MISS_CHAR) then
5574: l_log_reject_reason_code := l_reject_reason_code;
5575: end if;
5576:
5577: if (l_qualified = FND_API.G_MISS_CHAR) then
5573: if (l_tar_sales_lead_rec.reject_reason_code = FND_API.G_MISS_CHAR) then
5574: l_log_reject_reason_code := l_reject_reason_code;
5575: end if;
5576:
5577: if (l_qualified = FND_API.G_MISS_CHAR) then
5578: l_log_qualified := l_qualified_flag;
5579: end if;
5580:
5581:
5618: p_lead_rank_id =>
5619: --l_tar_sales_lead_rec.lead_rank_id,
5620: l_log_lead_rank_id,
5621: p_qualified_flag => l_log_qualified,
5622: p_category => fnd_api.g_miss_char,
5623: p_manual_rank_flag => l_manual_rank_flag
5624:
5625: );
5626:
5640:
5641: -- For referral leads, create another entry in the logs table so that it is tracked as a referral lead also
5642: -- This is to be done only for the first time, the referral type is updated from null to non null.
5643:
5644: if ( l_tar_SALES_LEAD_rec.REFERRAL_TYPE is not null and l_tar_sales_lead_rec.REFERRAL_TYPE <> FND_API.G_MISS_CHAR
5645: and l_referral_type is null )
5646:
5647: then
5648:
5684: p_category => 'REFERRAL'
5685: );
5686:
5687:
5688: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5689: RAISE FND_API.G_EXC_ERROR;
5690: END IF;
5691:
5692: end if;
5685: );
5686:
5687:
5688: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5689: RAISE FND_API.G_EXC_ERROR;
5690: END IF;
5691:
5692: end if;
5693:
5732:
5733: -- Call Create, Update or Delete Sales Team
5734: IF l_assign_to_salesforce_id IS NULL AND
5735: l_tar_SALES_LEAD_rec.assign_to_salesforce_id IS NOT NULL AND
5736: l_tar_SALES_LEAD_rec.assign_to_salesforce_id <> FND_API.G_MISS_NUM
5737: THEN
5738: -- Create access security in as_accesses_all
5739: -- l_Sales_Team_Rec.access_id := FND_API.G_MISS_NUM;
5740: l_Sales_Team_Rec.last_update_date := SYSDATE;
5735: l_tar_SALES_LEAD_rec.assign_to_salesforce_id IS NOT NULL AND
5736: l_tar_SALES_LEAD_rec.assign_to_salesforce_id <> FND_API.G_MISS_NUM
5737: THEN
5738: -- Create access security in as_accesses_all
5739: -- l_Sales_Team_Rec.access_id := FND_API.G_MISS_NUM;
5740: l_Sales_Team_Rec.last_update_date := SYSDATE;
5741: l_Sales_Team_Rec.last_updated_by := FND_GLOBAL.USER_ID;
5742: l_Sales_Team_Rec.creation_date := SYSDATE;
5743: l_Sales_Team_Rec.created_by := FND_GLOBAL.USER_ID;
5742: l_Sales_Team_Rec.creation_date := SYSDATE;
5743: l_Sales_Team_Rec.created_by := FND_GLOBAL.USER_ID;
5744: l_Sales_Team_Rec.last_update_login := FND_GLOBAL.CONC_LOGIN_ID;
5745:
5746: -- l_Sales_Team_Rec.team_leader_flag := FND_API.G_MISS_CHAR;
5747: l_Sales_Team_Rec.customer_id := l_tar_SALES_LEAD_rec.Customer_Id;
5748: l_Sales_Team_Rec.address_id := l_tar_SALES_LEAD_rec.Address_Id;
5749: l_Sales_Team_Rec.salesforce_id :=
5750: l_tar_SALES_LEAD_rec.ASSIGN_TO_SALESFORCE_ID;
5780: END IF;
5781:
5782: AS_ACCESS_PUB.Create_SalesTeam (
5783: p_api_version_number => 2.0
5784: ,p_init_msg_list => FND_API.G_FALSE
5785: ,p_commit => FND_API.G_FALSE
5786: ,p_validation_level => p_Validation_Level
5787: ,p_access_profile_rec => l_access_profile_rec
5788: ,p_check_access_flag => P_Check_Access_flag
5781:
5782: AS_ACCESS_PUB.Create_SalesTeam (
5783: p_api_version_number => 2.0
5784: ,p_init_msg_list => FND_API.G_FALSE
5785: ,p_commit => FND_API.G_FALSE
5786: ,p_validation_level => p_Validation_Level
5787: ,p_access_profile_rec => l_access_profile_rec
5788: ,p_check_access_flag => P_Check_Access_flag
5789: ,p_admin_flag => P_Admin_Flag
5803: 'Create_SalesTeam:x_access_id > ' ||
5804: l_access_id);
5805: END IF;
5806:
5807: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5808: RAISE FND_API.G_EXC_ERROR;
5809: END IF;
5810:
5811: ELSIF l_assign_to_salesforce_id IS NOT NULL -- AND
5804: l_access_id);
5805: END IF;
5806:
5807: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5808: RAISE FND_API.G_EXC_ERROR;
5809: END IF;
5810:
5811: ELSIF l_assign_to_salesforce_id IS NOT NULL -- AND
5812: -- l_tar_SALES_LEAD_rec.assign_to_salesforce_id IS NOT NULL AND
5810:
5811: ELSIF l_assign_to_salesforce_id IS NOT NULL -- AND
5812: -- l_tar_SALES_LEAD_rec.assign_to_salesforce_id IS NOT NULL AND
5813: -- l_tar_SALES_LEAD_rec.assign_to_salesforce_id <>
5814: -- FND_API.G_MISS_NUM AND
5815: -- l_tar_SALES_LEAD_rec.assign_to_salesforce_id <>
5816: -- l_assign_to_salesforce_id
5817: THEN
5818: -- Get access record in as_accesses_all by sales_lead_id
5819:
5820: -- if the assign to is being cleared, then the cursor will not work if use null
5821: -- use the old assign to (database value) instead.
5822:
5823: IF (l_tar_SALES_LEAD_rec.assign_to_salesforce_id IS NOT NULL and l_tar_SALES_LEAD_rec.assign_to_salesforce_id <> FND_API.G_MISS_NUM) THEN
5824:
5825: OPEN C_Get_Access (l_tar_SALES_LEAD_rec.Sales_Lead_Id, l_tar_SALES_LEAD_rec.assign_to_salesforce_id, l_tar_SALES_LEAD_rec.assign_sales_group_id);
5826:
5827: ELSE
5979: --l_login_salesteam_rec.creation_date := SYSDATE;
5980: --l_login_salesteam_rec.created_by := FND_GLOBAL.USER_ID;
5981: l_login_salesteam_rec.last_update_login := FND_GLOBAL.CONC_LOGIN_ID;
5982:
5983: -- l_Sales_Team_Rec.team_leader_flag := FND_API.G_MISS_CHAR;
5984: l_login_salesteam_rec.salesforce_id :=
5985: p_identity_salesforce_id;
5986:
5987: l_login_salesteam_rec.sales_group_id :=
6018: END IF;
6019:
6020: AS_ACCESS_PUB.Update_SalesTeam (
6021: p_api_version_number => 2.0
6022: ,p_init_msg_list => FND_API.G_FALSE
6023: ,p_commit => FND_API.G_FALSE
6024: ,p_validation_level => P_Validation_Level
6025: ,p_check_access_flag => p_check_access_flag -- 'Y'
6026: ,p_access_profile_rec => l_access_profile_rec
6019:
6020: AS_ACCESS_PUB.Update_SalesTeam (
6021: p_api_version_number => 2.0
6022: ,p_init_msg_list => FND_API.G_FALSE
6023: ,p_commit => FND_API.G_FALSE
6024: ,p_validation_level => P_Validation_Level
6025: ,p_check_access_flag => p_check_access_flag -- 'Y'
6026: ,p_access_profile_rec => l_access_profile_rec
6027: ,p_admin_flag => p_admin_flag
6053:
6054:
6055: AS_ACCESS_PUB.Create_SalesTeam (
6056: p_api_version_number => 2.0
6057: ,p_init_msg_list => FND_API.G_FALSE
6058: ,p_commit => FND_API.G_FALSE
6059: ,p_validation_level => p_Validation_Level
6060: ,p_access_profile_rec => l_access_profile_rec
6061: ,p_check_access_flag => P_Check_Access_flag
6054:
6055: AS_ACCESS_PUB.Create_SalesTeam (
6056: p_api_version_number => 2.0
6057: ,p_init_msg_list => FND_API.G_FALSE
6058: ,p_commit => FND_API.G_FALSE
6059: ,p_validation_level => p_Validation_Level
6060: ,p_access_profile_rec => l_access_profile_rec
6061: ,p_check_access_flag => P_Check_Access_flag
6062: ,p_admin_flag => P_Admin_Flag
6088:
6089: -- ffang 012501, if blank out the assign_to_salesforce_id, access
6090: -- record should be deleted
6091: IF l_tar_SALES_LEAD_rec.assign_to_salesforce_id IS NULL or
6092: l_tar_SALES_LEAD_rec.assign_to_salesforce_id = FND_API.G_MISS_NUM
6093: THEN
6094: -- Call update_salesteam to update the owner
6095:
6096: l_Sales_Team_Rec.last_updated_by := FND_GLOBAL.USER_ID;
6095:
6096: l_Sales_Team_Rec.last_updated_by := FND_GLOBAL.USER_ID;
6097: l_Sales_Team_Rec.last_update_login := FND_GLOBAL.CONC_LOGIN_ID;
6098: --l_Sales_Team_Rec.last_update_date := SYSDATE;
6099: -- l_Sales_Team_Rec.team_leader_flag := FND_API.G_MISS_CHAR;
6100: l_Sales_Team_Rec.customer_id := l_Customer_Id;
6101: l_Sales_Team_Rec.address_id := l_tar_SALES_LEAD_rec.Address_Id;
6102: -- only need to update the owner flag for the existing entry (owner)
6103: l_Sales_Team_Rec.salesforce_id :=
6127: END IF;
6128:
6129: AS_ACCESS_PUB.Update_SalesTeam (
6130: p_api_version_number => 2.0
6131: ,p_init_msg_list => FND_API.G_FALSE
6132: ,p_commit => FND_API.G_FALSE
6133: ,p_validation_level => P_Validation_Level
6134: ,p_check_access_flag => p_check_access_flag -- 'Y'
6135: ,p_access_profile_rec => l_access_profile_rec
6128:
6129: AS_ACCESS_PUB.Update_SalesTeam (
6130: p_api_version_number => 2.0
6131: ,p_init_msg_list => FND_API.G_FALSE
6132: ,p_commit => FND_API.G_FALSE
6133: ,p_validation_level => P_Validation_Level
6134: ,p_check_access_flag => p_check_access_flag -- 'Y'
6135: ,p_access_profile_rec => l_access_profile_rec
6136: ,p_admin_flag => p_admin_flag
6146:
6147: -- Call Delete_SalesTeam to delete access record
6148: /* AS_ACCESS_PUB.Delete_SalesTeam(
6149: p_api_version_number => 2.0,
6150: p_init_msg_list => FND_API.G_FALSE,
6151: p_commit => FND_API.G_FALSE,
6152: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6153: p_access_profile_rec => l_access_profile_rec,
6154: p_check_access_flag => 'Y',
6147: -- Call Delete_SalesTeam to delete access record
6148: /* AS_ACCESS_PUB.Delete_SalesTeam(
6149: p_api_version_number => 2.0,
6150: p_init_msg_list => FND_API.G_FALSE,
6151: p_commit => FND_API.G_FALSE,
6152: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6153: p_access_profile_rec => l_access_profile_rec,
6154: p_check_access_flag => 'Y',
6155: p_admin_flag => p_admin_flag,
6148: /* AS_ACCESS_PUB.Delete_SalesTeam(
6149: p_api_version_number => 2.0,
6150: p_init_msg_list => FND_API.G_FALSE,
6151: p_commit => FND_API.G_FALSE,
6152: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
6153: p_access_profile_rec => l_access_profile_rec,
6154: p_check_access_flag => 'Y',
6155: p_admin_flag => p_admin_flag,
6156: p_admin_group_id => p_admin_group_id,
6169: 'Delete_SalesTeam:x_access_id > ' || l_access_id);
6170:
6171: END IF;
6172:
6173: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6174: RAISE FND_API.G_EXC_ERROR;
6175: END IF;
6176:
6177: ELSIF l_tar_SALES_LEAD_rec.assign_to_salesforce_id IS NOT NULL AND
6170:
6171: END IF;
6172:
6173: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6174: RAISE FND_API.G_EXC_ERROR;
6175: END IF;
6176:
6177: ELSIF l_tar_SALES_LEAD_rec.assign_to_salesforce_id IS NOT NULL AND
6178: l_tar_SALES_LEAD_rec.assign_to_salesforce_id <>
6175: END IF;
6176:
6177: ELSIF l_tar_SALES_LEAD_rec.assign_to_salesforce_id IS NOT NULL AND
6178: l_tar_SALES_LEAD_rec.assign_to_salesforce_id <>
6179: FND_API.G_MISS_NUM AND
6180: l_tar_SALES_LEAD_rec.assign_to_salesforce_id <>
6181: l_assign_to_salesforce_id
6182: THEN
6183:
6183:
6184: l_Sales_Team_Rec.last_updated_by := FND_GLOBAL.USER_ID;
6185: l_Sales_Team_Rec.last_update_login := FND_GLOBAL.CONC_LOGIN_ID;
6186: --l_Sales_Team_Rec.last_update_date := SYSDATE;
6187: -- l_Sales_Team_Rec.team_leader_flag := FND_API.G_MISS_CHAR;
6188: l_Sales_Team_Rec.customer_id := l_Customer_Id;
6189: l_Sales_Team_Rec.address_id := l_tar_SALES_LEAD_rec.Address_Id;
6190:
6191: -- only need to update the owner flag for the existing entry (owner)
6200: l_tar_SALES_LEAD_rec.SALES_LEAD_ID;
6201:
6202: /*AS_ACCESS_PUB.Update_SalesTeam (
6203: p_api_version_number => 2.0
6204: ,p_init_msg_list => FND_API.G_FALSE
6205: ,p_commit => FND_API.G_FALSE
6206: ,p_validation_level => P_Validation_Level
6207: ,p_check_access_flag => p_check_access_flag -- 'Y'
6208: ,p_access_profile_rec => l_access_profile_rec
6201:
6202: /*AS_ACCESS_PUB.Update_SalesTeam (
6203: p_api_version_number => 2.0
6204: ,p_init_msg_list => FND_API.G_FALSE
6205: ,p_commit => FND_API.G_FALSE
6206: ,p_validation_level => P_Validation_Level
6207: ,p_check_access_flag => p_check_access_flag -- 'Y'
6208: ,p_access_profile_rec => l_access_profile_rec
6209: ,p_admin_flag => p_admin_flag
6224: 'Update_SalesTeam:x_access_id > ' || l_access_id);
6225:
6226: END IF;
6227:
6228: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6229: RAISE FND_API.G_EXC_ERROR;
6230: END IF;
6231:
6232: */
6225:
6226: END IF;
6227:
6228: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6229: RAISE FND_API.G_EXC_ERROR;
6230: END IF;
6231:
6232: */
6233:
6278: END IF;
6279:
6280: AS_ACCESS_PUB.Update_SalesTeam (
6281: p_api_version_number => 2.0
6282: ,p_init_msg_list => FND_API.G_FALSE
6283: ,p_commit => FND_API.G_FALSE
6284: ,p_validation_level => P_Validation_Level
6285: ,p_check_access_flag => p_check_access_flag -- 'Y'
6286: ,p_access_profile_rec => l_access_profile_rec
6279:
6280: AS_ACCESS_PUB.Update_SalesTeam (
6281: p_api_version_number => 2.0
6282: ,p_init_msg_list => FND_API.G_FALSE
6283: ,p_commit => FND_API.G_FALSE
6284: ,p_validation_level => P_Validation_Level
6285: ,p_check_access_flag => p_check_access_flag -- 'Y'
6286: ,p_access_profile_rec => l_access_profile_rec
6287: ,p_admin_flag => p_admin_flag
6309: l_Sales_Team_Rec.created_by_TAP_flag := 'N';
6310:
6311: AS_ACCESS_PUB.Create_SalesTeam (
6312: p_api_version_number => 2.0
6313: ,p_init_msg_list => FND_API.G_FALSE
6314: ,p_commit => FND_API.G_FALSE
6315: ,p_validation_level => p_Validation_Level
6316: ,p_access_profile_rec => l_access_profile_rec
6317: ,p_check_access_flag => P_Check_Access_flag
6310:
6311: AS_ACCESS_PUB.Create_SalesTeam (
6312: p_api_version_number => 2.0
6313: ,p_init_msg_list => FND_API.G_FALSE
6314: ,p_commit => FND_API.G_FALSE
6315: ,p_validation_level => p_Validation_Level
6316: ,p_access_profile_rec => l_access_profile_rec
6317: ,p_check_access_flag => P_Check_Access_flag
6318: ,p_admin_flag => P_Admin_Flag
6333: l_access_id);
6334: END IF;
6335: END IF;
6336:
6337: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6338: RAISE FND_API.G_EXC_ERROR;
6339: END IF;
6340:
6341:
6334: END IF;
6335: END IF;
6336:
6337: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6338: RAISE FND_API.G_EXC_ERROR;
6339: END IF;
6340:
6341:
6342: END IF;
6382: -- if new rank is g_miss , means anyways the rank is not changing so score is not changing.
6383: -- since we are re-using code from denorming for as_sales_leads, if l_new_lead_rank_score
6384: -- is g_miss then dont update as_accesses_all, basically simulate table handler
6385:
6386: if ( l_new_lead_rank_score <> FND_API.G_MISS_NUM ) THEN
6387: -- update the as_accesses_all.lead_rank_score if the rank has been changed i.e not g_miss
6388: update as_accesses_all
6389: set lead_rank_score = l_new_lead_rank_score , last_update_date = sysdate,
6390: last_updated_by = fnd_global.user_id,
6404: 'Validate BUDGET_AMOUNT');
6405: END IF;
6406:
6407: Validate_BUDGET_AMOUNTS(
6408: p_init_msg_list => FND_API.G_FALSE,
6409: p_validation_mode => AS_UTILITY_PVT.G_CREATE,
6410: p_SALES_LEAD_ID => l_tar_SALES_LEAD_rec.Sales_Lead_Id,
6411: x_return_status => x_return_status,
6412: x_msg_count => x_msg_count,
6411: x_return_status => x_return_status,
6412: x_msg_count => x_msg_count,
6413: x_msg_data => x_msg_data);
6414:
6415: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6416: raise FND_API.G_EXC_ERROR;
6417: END IF;
6418: */
6419:
6412: x_msg_count => x_msg_count,
6413: x_msg_data => x_msg_data);
6414:
6415: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6416: raise FND_API.G_EXC_ERROR;
6417: END IF;
6418: */
6419:
6420: --
6421: -- END of API body.
6422: --
6423:
6424: -- Standard check for p_commit
6425: IF FND_API.to_Boolean( p_commit )
6426: THEN
6427: COMMIT WORK;
6428: END IF;
6429:
6439: ( p_count => x_msg_count,
6440: p_data => x_msg_data );
6441:
6442: EXCEPTION
6443: WHEN FND_API.G_EXC_ERROR THEN
6444: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
6445: P_API_NAME => L_API_NAME
6446: ,P_PKG_NAME => G_PKG_NAME
6447: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
6449: ,X_MSG_COUNT => X_MSG_COUNT
6450: ,X_MSG_DATA => X_MSG_DATA
6451: ,X_RETURN_STATUS => X_RETURN_STATUS);
6452:
6453: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6454: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
6455: P_API_NAME => L_API_NAME
6456: ,P_PKG_NAME => G_PKG_NAME
6457: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
6479: -- function determines whether the Sales_Lead Is Qualified Or NOT.
6480: FUNCTION IS_LEAD_QUALIFIED(
6481: P_Sales_lead_rec IN AS_SALES_LEADS_PUB.SALES_LEAD_Rec_Type
6482: := AS_SALES_LEADS_PUB.G_MISS_SALES_LEAD_REC,
6483: p_phone_id IN NUMBER := FND_API.G_MISS_NUM,
6484: p_contact_role_code IN VARCHAR2 := FND_API.G_MISS_CHAR
6485: ) RETURN VARCHAR
6486: IS
6487: l_api_name CONSTANT VARCHAR2(30) := 'Is_Lead_Qualified';
6480: FUNCTION IS_LEAD_QUALIFIED(
6481: P_Sales_lead_rec IN AS_SALES_LEADS_PUB.SALES_LEAD_Rec_Type
6482: := AS_SALES_LEADS_PUB.G_MISS_SALES_LEAD_REC,
6483: p_phone_id IN NUMBER := FND_API.G_MISS_NUM,
6484: p_contact_role_code IN VARCHAR2 := FND_API.G_MISS_CHAR
6485: ) RETURN VARCHAR
6486: IS
6487: l_api_name CONSTANT VARCHAR2(30) := 'Is_Lead_Qualified';
6488: l_project_name_req varchar2(1);
6599:
6600:
6601: if l_project_name_req = 'Y' then
6602: if (p_sales_lead_rec.parent_project is null) or
6603: (p_sales_lead_rec.parent_project = FND_API.G_MISS_CHAR) then
6604: IF (AS_DEBUG_LOW_ON) THEN
6605:
6606: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6607: 'Qualification - parent_project');
6612: end if;
6613:
6614: if l_channel_req = 'Y' then
6615: if (P_Sales_lead_rec.CHANNEL_CODE is null) or
6616: (p_sales_lead_rec.CHANNEL_CODE = FND_API.G_MISS_CHAR) then
6617: IF (AS_DEBUG_LOW_ON) THEN
6618:
6619: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6620: 'Qualification - CHANNEL_CODE');
6625: end if;
6626:
6627: if l_time_frame_req = 'Y' then
6628: if (P_Sales_lead_rec.DECISION_TIMEFRAME_CODE is null) or
6629: (p_sales_lead_rec.DECISION_TIMEFRAME_CODE = FND_API.G_MISS_CHAR) then
6630: IF (AS_DEBUG_LOW_ON) THEN
6631:
6632: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6633: 'Qualification - DECISION_TIMEFRAME_CODE');
6638: end if;
6639:
6640: if l_total_budget_req = 'Y' then
6641: if (P_Sales_lead_rec.BUDGET_AMOUNT is null) or
6642: (p_sales_lead_rec.BUDGET_AMOUNT = FND_API.G_MISS_NUM) then
6643: IF (AS_DEBUG_LOW_ON) THEN
6644:
6645: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6646: 'Qualification - BUDGET_AMOUNT');
6651: end if;
6652:
6653: if l_contact_phone_req = 'Y' then
6654: if (p_phone_id is null) or
6655: (p_phone_id = FND_API.G_MISS_NUM) then
6656: IF (AS_DEBUG_LOW_ON) THEN
6657:
6658: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6659: 'Qualification - p_phone_id');
6665:
6666: -- change this to make sure contact role from as_sales_leads_contacts table is used
6667: if l_contact_role_req = 'Y' then
6668: if (p_contact_role_code is null) or
6669: (p_contact_role_code = FND_API.G_MISS_CHAR) then
6670: IF (AS_DEBUG_LOW_ON) THEN
6671:
6672: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6673: 'Qualification - CONTACT_ROLE_CODE');
6678: end if;
6679:
6680: if l_budget_status_req = 'Y' then
6681: if (P_Sales_lead_rec.BUDGET_STATUS_CODE is null) or
6682: (p_sales_lead_rec.BUDGET_STATUS_CODE = FND_API.G_MISS_CHAR) then
6683: IF (AS_DEBUG_LOW_ON) THEN
6684:
6685: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6686: 'Qualification - BUDGET_STATUS_CODE');
6691: end if;
6692:
6693: if l_campaign_code_req = 'Y' then
6694: if (P_Sales_lead_rec.SOURCE_PROMOTION_ID is null) or
6695: (p_sales_lead_rec.SOURCE_PROMOTION_ID = FND_API.G_MISS_NUM) then
6696: IF (AS_DEBUG_LOW_ON) THEN
6697:
6698: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6699: 'Qualification - SOURCE_PROMOTION_ID');