[Home] [Help]
118:
119:
120: -- ffang 092000 for bug 1400244
121: -- solin 122000 for bug 1514981
122: AS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
123: AS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
124: AS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
125: AS_DEBUG_ERROR_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_ERROR);
126:
119:
120: -- ffang 092000 for bug 1400244
121: -- solin 122000 for bug 1514981
122: AS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
123: AS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
124: AS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
125: AS_DEBUG_ERROR_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_ERROR);
126:
127: PROCEDURE Set_default_values (
120: -- ffang 092000 for bug 1400244
121: -- solin 122000 for bug 1514981
122: AS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
123: AS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
124: AS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
125: AS_DEBUG_ERROR_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_ERROR);
126:
127: PROCEDURE Set_default_values (
128: p_mode IN VARCHAR2,
121: -- solin 122000 for bug 1514981
122: AS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
123: AS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
124: AS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
125: AS_DEBUG_ERROR_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_ERROR);
126:
127: PROCEDURE Set_default_values (
128: p_mode IN VARCHAR2,
129: px_SALES_LEAD_rec IN OUT NOCOPY AS_SALES_LEADS_PUB.SALES_LEAD_Rec_Type
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:
292: -- Initialize API return status to SUCCESS
293: x_return_status := FND_API.G_RET_STS_SUCCESS;
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);
303: FND_MSG_PUB.ADD;
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);
303: FND_MSG_PUB.ADD;
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
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);
313: FND_MSG_PUB.ADD;
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);
313: FND_MSG_PUB.ADD;
314: END IF;
315: END IF;
316: END IF;
317:
315: END IF;
316: END IF;
317:
318: -- Standard call to get message count and IF count is 1, get message info.
319: FND_MSG_PUB.Count_And_Get
320: ( p_count => x_msg_count,
321: p_data => x_msg_data );
322: END Validate_LEAD_NUMBER;
323: */
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:
349: -- Initialize API return status to SUCCESS
350: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
355:
356: -- ffang 092000 for bug 1406777
357: -- Calling from Create API
365:
366: IF C_Sales_Lead_Id_Exists%NOTFOUND
367: THEN
368: AS_UTILITY_PVT.Set_Message(
369: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
370: p_msg_name => 'API_INVALID_ID',
371: p_token1 => 'SALES_LEAD_ID',
372: p_token1_value => p_Sales_Lead_Id);
373:
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');
388:
389: x_return_status := FND_API.G_RET_STS_ERROR;
390: ELSE
393:
394: IF C_Sales_Lead_Id_Exists%NOTFOUND
395: THEN
396: AS_UTILITY_PVT.Set_Message(
397: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
398: p_msg_name => 'API_INVALID_LEAD_ID',
399: p_token1 => 'VALUE',
400: p_token1_value => p_sales_lead_id );
401:
407: END IF;
408: -- end ffang 092000 for bug 1306777
409:
410: -- Standard call to get message count and IF count is 1, get message info.
411: FND_MSG_PUB.Count_And_Get
412: ( p_count => x_msg_count,
413: p_data => x_msg_data );
414:
415: END Validate_SALES_LEAD_ID;
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:
464: -- Initialize API return status to SUCCESS
465: x_return_status := FND_API.G_RET_STS_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,
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))
478: FETCH C_Methodology_Exists into l_val;
479: IF C_Methodology_Exists%NOTFOUND
480: THEN
481: AS_UTILITY_PVT.Set_Message(
482: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
483: p_msg_name => 'API_INVALID_ID',
484: p_token1 => 'COLUMN',
485: p_token1_value => 'SALES METHODOLOGY',
486: p_token2 => 'VALUE',
492: END IF;
493:
494:
495: -- Standard call to get message count and IF count is 1, get message info.
496: FND_MSG_PUB.Count_And_Get
497: ( p_count => x_msg_count,
498: p_data => x_msg_data );
499: END Validate_Sales_Methodology_ID;
500:
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:
546: -- Initialize API return status to SUCCESS
547: x_return_status := FND_API.G_RET_STS_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,
552: 'Validate SALES Stage id');
553:
554: END IF;
555:
562: FETCH C_Sales_Stage_Exists into l_val;
563: IF C_Sales_Stage_Exists%NOTFOUND
564: THEN
565: AS_UTILITY_PVT.Set_Message(
566: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
567: p_msg_name => 'API_INVALID_ID',
568: p_token1 => 'COLUMN',
569: p_token1_value => 'SALES STAGE',
570: p_token2 => 'VALUE',
576: END IF;
577:
578:
579: -- Standard call to get message count and IF count is 1, get message info.
580: FND_MSG_PUB.Count_And_Get
581: ( p_count => x_msg_count,
582: p_data => x_msg_data );
583: END Validate_Sales_Stage_ID;
584:
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:
620: -- Initialize API return status to SUCCESS
621: x_return_status := FND_API.G_RET_STS_SUCCESS;
626: (p_CUSTOMER_ID is NULL AND p_validation_mode=AS_UTILITY_PVT.G_UPDATE)
627: THEN
628: IF (AS_DEBUG_LOW_ON) THEN
629:
630: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
631: 'Private API: Violate NOT NULL constraint(CUSTOMER_ID)');
632: END IF;
633:
634: AS_UTILITY_PVT.Set_Message(
631: 'Private API: Violate NOT NULL constraint(CUSTOMER_ID)');
632: END IF;
633:
634: AS_UTILITY_PVT.Set_Message(
635: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
636: p_msg_name => 'API_MISSING_ID',
637: p_token1 => 'COLUMN',
638: p_token1_value => 'CUSTOMER_ID');
639:
645: IF C_Customer_Id_Exists%NOTFOUND
646: THEN
647: IF (AS_DEBUG_LOW_ON) THEN
648:
649: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
650: 'Private API: CUSTOMER_ID is not valid:' ||
651: p_Customer_Id);
652: END IF;
653:
651: p_Customer_Id);
652: END IF;
653:
654: AS_UTILITY_PVT.Set_Message(
655: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
656: p_msg_name => 'API_INVALID_CUSTOMER_ID',
657: p_token1 => 'COLUMN',
658: p_token1_value => 'CUSTOMER_ID',
659: p_token2 => 'VALUE',
671: IF (l_status <> 'A') -- take care of party merge
672: THEN
673: IF (AS_DEBUG_LOW_ON) THEN
674:
675: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
676: 'Private API: CUSTOMER_ID is not active:' ||
677: p_Customer_Id);
678: END IF;
679:
677: p_Customer_Id);
678: END IF;
679:
680: AS_UTILITY_PVT.Set_Message(
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;
690:
691: END IF;
692:
693: -- Standard call to get message count and if count is 1, get message info.
694: FND_MSG_PUB.Count_And_Get
695: ( p_count => x_msg_count,
696: p_data => x_msg_data
697: );
698:
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:
722: -- Initialize API return status to SUCCESS
723: x_return_status := FND_API.G_RET_STS_SUCCESS;
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:
732: AS_UTILITY_PVT.Set_Message(
733: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
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:
732: AS_UTILITY_PVT.Set_Message(
733: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
734: p_msg_name => 'API_MISSING_ID',
735: p_token1 => 'COLUMN',
736: p_token1_value => 'CUSTOMER_ID');
737:
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');
753: END IF;
754:
755: AS_UTILITY_PVT.Set_Message(
752: 'Private API: ADDRESS_ID is invalid');
753: END IF;
754:
755: AS_UTILITY_PVT.Set_Message(
756: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
757: p_msg_name => 'API_INVALID_ID',
758: p_token1 => 'COLUMN',
759: p_token1_value => 'ADDRESS_ID',
760: p_token2 => 'VALUE',
771: -- to check if address_id is required or not
772: -- AS_CUSTOMER_ADDRESS_REQUIRED is obsoleted. Use AS_LEAD_ADDRESS_REQUIRED
773: IF (AS_DEBUG_LOW_ON) THEN
774:
775: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
776: 'ADDRESS_ID is not entered');
777: END IF;
778: IF (AS_DEBUG_LOW_ON) THEN
779:
776: 'ADDRESS_ID is not entered');
777: END IF;
778: IF (AS_DEBUG_LOW_ON) THEN
779:
780: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
781: 'ADDRESS_REQUIRED: ' || FND_PROFILE.Value('AS_LEAD_ADDRESS_REQUIRED'));
782: --FND_PROFILE.Value('AS_CUSTOMER_ADDRESS_REQUIRED'));
783: END IF;
784:
787: nvl(FND_PROFILE.Value('AS_LEAD_ADDRESS_REQUIRED'),'Y');
788: IF (l_check_address = 'Y')
789: THEN
790: AS_UTILITY_PVT.Set_Message(
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.
800: FND_MSG_PUB.Count_And_Get
801: ( p_count => x_msg_count,
802: p_data => x_msg_data
803: );
804:
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:
850: -- Initialize API return status to SUCCESS
851: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
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
862: AS_UTILITY_PVT.Set_Message(
863: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
864: p_msg_name => 'API_MISSING_ID',
865: p_token1 => 'COLUMN',
866: p_token1_value => 'STATUS_CODE' );
867:
874:
875: IF C_Status_Exists%NOTFOUND
876: THEN
877: AS_UTILITY_PVT.Set_Message(
878: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
879: p_msg_name => 'API_INVALID_ID',
880: p_token1 => 'COLUMN',
881: p_token1_value => 'STATUS_CODE',
882: p_token2 => 'VALUE',
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'
908: );
909:
910: x_return_status := FND_API.G_RET_STS_ERROR;
917: if ((l_newStateTransition = 'Y') AND (p_validation_mode = AS_UTILITY_PVT.G_CREATE)
918: AND (p_status_code = l_linkStatus) )
919: then
920: AS_UTILITY_PVT.Set_Message(
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;
937:
938: if (p_status_code = l_linkStatus) then
939:
940: AS_UTILITY_PVT.Set_Message(
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;
955:
956: IF C_opp_exists%NOTFOUND
957: THEN
958: AS_UTILITY_PVT.Set_Message(
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;
975:
976:
977:
978: -- Standard call to get message count and IF count is 1, get message info.
979: FND_MSG_PUB.Count_And_Get
980: ( p_count => x_msg_count,
981: p_data => x_msg_data );
982: END Validate_STATUS_CODE;
983:
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:
1016: -- Initialize API return status to SUCCESS
1017: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
1022:
1023: IF (AS_DEBUG_LOW_ON) THEN
1024:
1023: IF (AS_DEBUG_LOW_ON) THEN
1024:
1025:
1026:
1027: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1028: 'SOURCE CODE REQUIRED: ' ||
1029: FND_PROFILE.Value('AS_SOURCE_CODE_MANDATORY_LEADS'));
1030:
1031: END IF;
1042: (l_source_promotion_id='Y' AND p_source_promotion_id IS NULL
1043: AND p_validation_mode=AS_UTILITY_PVT.G_UPDATE)
1044: THEN
1045: AS_UTILITY_PVT.Set_Message(
1046: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1047: p_msg_name => 'API_MISSING_ID',
1048: p_token1 => 'COLUMN',
1049: p_token1_value => 'SOURCE NAME');
1050:
1059: FETCH C_Promotion_Exists into l_val;
1060: IF C_Promotion_Exists%NOTFOUND
1061: THEN
1062: AS_UTILITY_PVT.Set_Message(
1063: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1064: p_msg_name => 'API_INVALID_ID',
1065: p_token1 => 'COLUMN',
1066: p_token1_value => 'SOURCE PROMOTION',
1067: p_token2 => 'VALUE',
1073: END IF;
1074:
1075:
1076: -- Standard call to get message count and IF count is 1, get message info.
1077: FND_MSG_PUB.Count_And_Get
1078: ( p_count => x_msg_count,
1079: p_data => x_msg_data );
1080: END Validate_SOURCE_PROMOTION_ID;
1081:
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:
1109: -- Initialize API return status to SUCCESS
1110: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
1115:
1116: -- Validate channel code
1117: IF (p_channel_code is NOT NULL
1121: FETCH C_Aso_Channel_Exists into l_val;
1122: IF C_Aso_Channel_Exists%NOTFOUND
1123: THEN
1124: AS_UTILITY_PVT.Set_Message(
1125: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1126: p_msg_name => 'API_INVALID_ID',
1127: p_token1 => 'COLUMN',
1128: p_token1_value => 'LEAD CHANNEL',
1129: p_token2 => 'VALUE',
1134: CLOSE C_Aso_Channel_Exists;
1135: END IF;
1136:
1137: -- Standard call to get message count and IF count is 1, get message info.
1138: FND_MSG_PUB.Count_And_Get
1139: ( p_count => x_msg_count,
1140: p_data => x_msg_data );
1141: END Validate_CHANNEL_CODE;
1142:
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:
1172: -- Initialize API return status to SUCCESS
1173: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
1178:
1179: -- Validate Currency Code
1180: IF (p_currency_code is NOT NULL
1183: OPEN C_Currency_Exists ( p_currency_code );
1184: FETCH C_Currency_Exists into l_val;
1185: IF C_Currency_Exists%NOTFOUND THEN
1186: AS_UTILITY_PVT.Set_Message(
1187: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1188: p_msg_name => 'API_INVALID_ID',
1189: p_token1 => 'COLUMN',
1190: p_token1_value => 'CURRENCY',
1191: p_token2 => 'VALUE',
1196: CLOSE C_Currency_Exists;
1197: END IF;
1198:
1199: -- Standard call to get message count and IF count is 1, get message info.
1200: FND_MSG_PUB.Count_And_Get
1201: ( p_count => x_msg_count,
1202: p_data => x_msg_data );
1203: END Validate_CURRENCY_CODE;
1204:
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:
1232: -- Initialize API return status to SUCCESS
1233: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
1238:
1239: -- Validate decision timeframe code
1240: IF (p_decision_timeframe_code is NOT NULL
1244:
1245: IF C_Lookup_Exists%NOTFOUND
1246: THEN
1247: AS_UTILITY_PVT.Set_Message(
1248: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1249: p_msg_name => 'API_INVALID_ID',
1250: p_token1 => 'COLUMN',
1251: p_token1_value => 'DECISION TIMEFRAME_CODE',
1252: p_token2 => 'VALUE',
1256: END IF;
1257: CLOSE C_Lookup_Exists;
1258: END IF;
1259:
1260: FND_MSG_PUB.Count_And_Get
1261: ( p_count => x_msg_count,
1262: p_data => x_msg_data );
1263: END Validate_DECN_TIMEFRAME_CODE;
1264:
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:
1291: -- Initialize API return status to SUCCESS
1292: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
1297:
1298: -- Validate Close Reason
1299: IF (p_close_reason is NOT NULL AND p_close_reason <> FND_API.G_MISS_CHAR)
1302: FETCH C_Lookup_Exists into l_val;
1303:
1304: IF C_Lookup_Exists%NOTFOUND
1305: THEN
1306: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1307: THEN
1308: AS_UTILITY_PVT.Set_Message(
1309: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1310: p_msg_name => 'API_INVALID_ID',
1305: THEN
1306: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1307: THEN
1308: AS_UTILITY_PVT.Set_Message(
1309: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1310: p_msg_name => 'API_INVALID_ID',
1311: p_token1 => 'COLUMN',
1312: p_token1_value => 'CLOSE REASON',
1313: p_token2 => 'VALUE',
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.
1321: FND_MSG_PUB.Count_And_Get
1322: ( p_count => x_msg_count,
1323: p_data => x_msg_data );
1324: END Validate_CLOSE_REASON;
1325:
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:
1349: -- Initialize API return status to SUCCESS
1350: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
1355:
1356: -- Validate rank id
1357: IF (p_LEAD_RANK_ID is NOT NULL
1362:
1363: IF C_Rank_Exists%NOTFOUND
1364: THEN
1365: AS_UTILITY_PVT.Set_Message(
1366: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1367: p_msg_name => 'API_INVALID_ID',
1368: p_token1 => 'COLUMN',
1369: p_token1_value => 'LEAD_RANK_ID',
1370: p_token2 => 'VALUE',
1373: END IF;
1374: CLOSE C_Rank_Exists;
1375: END IF;
1376:
1377: FND_MSG_PUB.Count_And_Get
1378: ( p_count => x_msg_count,
1379: p_data => x_msg_data );
1380: END Validate_LEAD_RANK_ID;
1381:
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:
1413: -- Initialize API return status to SUCCESS
1414: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
1419:
1420: -- Validate ASSIGN_TO_PERSON_ID
1421: IF (p_assign_to_person_id IS NOT NULL
1425: FETCH C_Check_Assign_Person INTO l_val;
1426: IF (C_Check_Assign_Person%NOTFOUND)
1427: THEN
1428: AS_UTILITY_PVT.Set_Message(
1429: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1430: p_msg_name => 'API_INVALID_ID',
1431: p_token1 => 'COLUMN',
1432: p_token1_value => 'ASSIGN_TO_PERSON_ID',
1433: p_token2 => 'VALUE',
1437: END IF;
1438: CLOSE C_Check_Assign_Person;
1439: END IF;
1440:
1441: FND_MSG_PUB.Count_And_Get
1442: ( p_count => x_msg_count,
1443: p_data => x_msg_data );
1444: END Validate_ASSIGN_TO_PERSON_ID;
1445:
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:
1489: -- Initialize API return status to SUCCESS
1490: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
1495:
1496: -- Validate ASSIGN_TO_SALESFORCE_ID
1497: IF (p_assign_to_salesforce_id IS NOT NULL
1501: FETCH C_Check_Assign_Salesforce INTO l_val;
1502: IF (C_Check_Assign_Salesforce%NOTFOUND)
1503: THEN
1504: AS_UTILITY_PVT.Set_Message(
1505: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1506: p_msg_name => 'API_INVALID_ID',
1507: p_token1 => 'COLUMN',
1508: p_token1_value => 'ASSIGN_TO_SALESFORCE_ID',
1509: p_token2 => 'VALUE',
1513: END IF;
1514: CLOSE C_Check_Assign_Salesforce;
1515: END IF;
1516:
1517: FND_MSG_PUB.Count_And_Get
1518: ( p_count => x_msg_count,
1519: p_data => x_msg_data );
1520: END Validate_ASSIGN_TO_SF_ID;
1521:
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:
1548: -- Initialize API return status to SUCCESS
1549: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
1554:
1555: -- Validate budget status code
1556: IF (p_budget_status_code is NOT NULL
1561:
1562: IF C_Lookup_Exists%NOTFOUND
1563: THEN
1564: AS_UTILITY_PVT.Set_Message(
1565: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1566: p_msg_name => 'API_INVALID_ID',
1567: p_token1 => 'COLUMN',
1568: p_token1_value => 'BUDGET_STATUS_CODE',
1569: p_token2 => 'VALUE',
1573: CLOSE C_Lookup_Exists;
1574: END IF;
1575:
1576: -- Standard call to get message count and IF count is 1, get message info.
1577: FND_MSG_PUB.Count_And_Get
1578: ( p_count => x_msg_count,
1579: p_data => x_msg_data );
1580: END Validate_BUDGET_STATUS_CODE;
1581:
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:
1608: -- Initialize API return status to SUCCESS
1609: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
1614:
1615: -- Validate Vehicle Response Code
1616: IF (P_VEHICLE_RESPONSE_CODE is NOT NULL
1620: FETCH C_Lookup_Exists into l_val;
1621: IF C_Lookup_Exists%NOTFOUND
1622: THEN
1623: AS_UTILITY_PVT.Set_Message(
1624: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1625: p_msg_name => 'API_INVALID_ID',
1626: p_token1 => 'COLUMN',
1627: p_token1_value => 'VEHICLE_RESPONSE_CODE',
1628: p_token2 => 'VALUE',
1633: CLOSE C_Lookup_Exists;
1634: END IF;
1635:
1636: -- Standard call to get message count and IF count is 1, get message info.
1637: FND_MSG_PUB.Count_And_Get
1638: ( p_count => x_msg_count,
1639: p_data => x_msg_data );
1640: END Validate_VEHICLE_RESPONSE_CODE;
1641:
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:
1668: -- Initialize API return status to SUCCESS
1669: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
1674:
1675: -- Validate Reject Reason Code
1676: IF (P_REJECT_REASON_CODE is NOT NULL
1680: FETCH C_Lookup_Exists into l_val;
1681: IF C_Lookup_Exists%NOTFOUND
1682: THEN
1683: AS_UTILITY_PVT.Set_Message(
1684: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1685: p_msg_name => 'API_INVALID_ID',
1686: p_token1 => 'COLUMN',
1687: p_token1_value => 'REJECT_REASON_CODE',
1688: p_token2 => 'VALUE',
1693: CLOSE C_Lookup_Exists;
1694: END IF;
1695:
1696: -- Standard call to get message count and IF count is 1, get message info.
1697: FND_MSG_PUB.Count_And_Get
1698: ( p_count => x_msg_count,
1699: p_data => x_msg_data );
1700: END Validate_REJECT_REASON_CODE;
1701:
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:
1720: -- Initialize API return status to SUCCESS
1721: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
1726:
1727: -- Validate IF the flag value is 'Y' or 'N'
1728: IF (P_FLAG_VALUE is NOT NULL
1730: THEN
1731: IF (P_FLAG_VALUE <>'Y' AND P_FLAG_VALUE <> 'N')
1732: THEN
1733: AS_UTILITY_PVT.Set_Message(
1734: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1735: p_msg_name => 'API_INVALID_ID',
1736: p_token1 => 'COLUMN',
1737: p_token1_value => P_FLAG_TYPE,
1738: p_token2 => 'VALUE',
1741: END IF;
1742: END IF;
1743:
1744: -- Standard call to get message count and IF count is 1, get message info.
1745: FND_MSG_PUB.Count_And_Get
1746: ( p_count => x_msg_count,
1747: p_data => x_msg_data );
1748: END Validate_FLAGS;
1749:
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:
1769: -- Initialize API return status to SUCCESS
1770: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
1775:
1776: -- Validate if ACCEPT_FLAG = 'Y' then REJECT_REASON_CODE should be null
1777: -- if REJECT_REASON_CODE is NOT NULL then ACCEPT_FLAG should not be 'Y'
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'
1787: );
1788: x_return_status := FND_API.G_RET_STS_ERROR;
1789: END IF;
1789: END IF;
1790: END IF;
1791:
1792: -- Standard call to get message count and IF count is 1, get message info.
1793: FND_MSG_PUB.Count_And_Get
1794: ( p_count => x_msg_count,
1795: p_data => x_msg_data );
1796: END Validate_ACCEPT_REJECT_REASON;
1797:
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:
1825: -- Initialize API return status to SUCCESS
1826: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
1831:
1832: -- IF opp_open_status_flag = 'N' (closed status) then close_reason_code
1833: -- can not be NULL
1837:
1838: l_profile_opp_lead_link := FND_PROFILE.Value('AS_LEAD_LINK_STATUS');
1839: IF (AS_DEBUG_LOW_ON) THEN
1840:
1841: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
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,
1851: 'close check');
1852: END IF;
1853:
1854: IF l_profile_opp_lead_link <> P_STATUS_CODE
1854: IF l_profile_opp_lead_link <> P_STATUS_CODE
1855: THEN
1856: IF (AS_DEBUG_LOW_ON) THEN
1857:
1858: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1859: 'not lead link');
1860: END IF;
1861: AS_UTILITY_PVT.Set_Message(
1862: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1858: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1859: 'not lead link');
1860: END IF;
1861: AS_UTILITY_PVT.Set_Message(
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;
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,
1871: 'yes lead link');
1872: END IF;
1873: l_profile_def_close_reason := FND_PROFILE.Value('AS_DEFAULT_LEAD_CLOSE_REASON');
1874: IF (AS_DEBUG_LOW_ON) THEN
1872: END IF;
1873: l_profile_def_close_reason := FND_PROFILE.Value('AS_DEFAULT_LEAD_CLOSE_REASON');
1874: IF (AS_DEBUG_LOW_ON) THEN
1875:
1876: 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
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
1902:
1903:
1904:
1905: -- Standard call to get message count and IF count is 1, get message info.
1906: FND_MSG_PUB.Count_And_Get
1907: ( p_count => x_msg_count,
1908: p_data => x_msg_data );
1909: END Validate_STATUS_CLOSE_REASON;
1910:
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:
1932: -- Initialize API return status to SUCCESS
1933: x_return_status := FND_API.G_RET_STS_SUCCESS;
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');
1947:
1948: x_return_status := FND_API.G_RET_STS_ERROR;
1949: END IF;
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');
1957:
1958: x_return_status := FND_API.G_RET_STS_ERROR;
1959: END IF;
1970:
1971: THEN
1972:
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:
1982:
1983: END IF;
1984:
1985: -- Standard call to get message count and IF count is 1, get message info.
1986: FND_MSG_PUB.Count_And_Get
1987: ( p_count => x_msg_count,
1988: p_data => x_msg_data );
1989: END Validate_REF_BY_REF_TYPE;
1990:
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:
2034: -- Initialize API return status to SUCCESS
2035: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
2040:
2041: IF (p_OFFER_ID is NOT NULL) and (p_OFFER_ID <> FND_API.G_MISS_NUM)
2042: THEN
2046:
2047: IF C_OFFER_ID_Exists%NOTFOUND THEN
2048: IF (AS_DEBUG_LOW_ON) THEN
2049:
2050: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2051: 'Private API: OFFER_ID is invalid');
2052: END IF;
2053: AS_UTILITY_PVT.Set_Message(
2054: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
2050: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2051: 'Private API: OFFER_ID is invalid');
2052: END IF;
2053: AS_UTILITY_PVT.Set_Message(
2054: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
2055: p_msg_name => 'API_INVALID_ID',
2056: p_token1 => 'COLUMN',
2057: p_token1_value => 'OFFER',
2058: p_token2 => 'VALUE',
2063: CLOSE C_OFFER_ID_Exists;
2064: END IF;
2065:
2066: -- Standard call to get message count and IF count is 1, get message info.
2067: FND_MSG_PUB.Count_And_Get
2068: ( p_count => x_msg_count,
2069: p_data => x_msg_data
2070: );
2071:
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:
2099:
2100: -- Initialize API return status to SUCCESS
2108:
2109: IF C_INC_PRTN_PARTY_ID_Exist%NOTFOUND THEN
2110: IF (AS_DEBUG_LOW_ON) THEN
2111:
2112: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2113: 'Private API: INCUMBENT_PARTNER_PARTY_ID is invalid');
2114: END IF;
2115:
2116: AS_UTILITY_PVT.Set_Message(
2113: 'Private API: INCUMBENT_PARTNER_PARTY_ID is invalid');
2114: END IF;
2115:
2116: AS_UTILITY_PVT.Set_Message(
2117: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
2118: p_msg_name => 'API_INVALID_ID',
2119: p_token1 => 'COLUMN',
2120: p_token1_value => 'INCUMBENT_PARTNER_PARTY_ID',
2121: p_token2 => 'VALUE',
2127: -- end ffang 092800
2128: END IF;
2129:
2130: -- Standard call to get message count and if count is 1, get message info.
2131: FND_MSG_PUB.Count_And_Get
2132: ( p_count => x_msg_count,
2133: p_data => x_msg_data
2134: );
2135:
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:
2165: -- Initialize API return status to SUCCESS
2166: x_return_status := FND_API.G_RET_STS_SUCCESS;
2174:
2175: IF C_RESOURCE_ID_Exists%NOTFOUND THEN
2176: IF (AS_DEBUG_LOW_ON) THEN
2177:
2178: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2179: 'Private API: INCUMBENT_PARTNER_RESOURCE_ID is invalid');
2180: END IF;
2181:
2182: AS_UTILITY_PVT.Set_Message(
2179: 'Private API: INCUMBENT_PARTNER_RESOURCE_ID is invalid');
2180: END IF;
2181:
2182: AS_UTILITY_PVT.Set_Message(
2183: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
2184: p_msg_name => 'API_INVALID_ID',
2185: p_token1 => 'COLUMN',
2186: p_token1_value => 'INCUMBENT_PARTNER_RESOURCE_ID',
2187: p_token2 => 'VALUE',
2193: CLOSE C_RESOURCE_ID_Exists;
2194: END IF;
2195:
2196: -- Standard call to get message count and if count is 1, get message info.
2197: FND_MSG_PUB.Count_And_Get
2198: ( p_count => x_msg_count,
2199: p_data => x_msg_data
2200: );
2201:
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:
2222: -- Initialize API return status to SUCCESS
2223: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
2228:
2229: IF (p_PRM_EXEC_SPONSOR_FLAG is NOT NULL) and
2230: (p_PRM_EXEC_SPONSOR_FLAG <> FND_API.G_MISS_CHAR)
2233: (UPPER(p_PRM_EXEC_SPONSOR_FLAG) <> 'N')
2234: THEN
2235: IF (AS_DEBUG_LOW_ON) THEN
2236:
2237: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2238: 'Private API: PRM_EXEC_SPONSOR_FLAG is invalid');
2239: END IF;
2240:
2241: AS_UTILITY_PVT.Set_Message(
2238: 'Private API: PRM_EXEC_SPONSOR_FLAG is invalid');
2239: END IF;
2240:
2241: AS_UTILITY_PVT.Set_Message(
2242: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
2243: p_msg_name => 'API_INVALID_ID',
2244: p_token1 => 'COLUMN',
2245: p_token1_value => 'PRM_EXEC_SPONSOR_FLAG',
2246: p_token2 => 'VALUE',
2250: END IF;
2251: END IF;
2252:
2253: -- Standard call to get message count and IF count is 1, get message info.
2254: FND_MSG_PUB.Count_And_Get
2255: ( p_count => x_msg_count,
2256: p_data => x_msg_data
2257: );
2258:
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:
2279: -- Initialize API return status to SUCCESS
2280: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
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)
2290: (UPPER(p_PRM_PRJ_LEAD_IN_PLACE_FLAG) <> 'N')
2291: THEN
2292: IF (AS_DEBUG_LOW_ON) THEN
2293:
2294: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2295: 'Private API: PRM_PRJ_LEAD_IN_PLACE_FLAG is invalid');
2296: END IF;
2297:
2298: AS_UTILITY_PVT.Set_Message(
2295: 'Private API: PRM_PRJ_LEAD_IN_PLACE_FLAG is invalid');
2296: END IF;
2297:
2298: AS_UTILITY_PVT.Set_Message(
2299: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
2300: p_msg_name => 'API_INVALID_ID',
2301: p_token1 => 'COLUMN',
2302: p_token1_value => 'PRM_PRJ_LEAD_IN_PLACE_FLAG',
2303: p_token2 => 'VALUE',
2307: END IF;
2308: END IF;
2309:
2310: -- Standard call to get message count and IF count is 1, get message info.
2311: FND_MSG_PUB.Count_And_Get
2312: ( p_count => x_msg_count,
2313: p_data => x_msg_data
2314: );
2315:
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:
2344:
2345: -- Initialize API return status to SUCCESS
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;
2351:
2352: IF (p_PRM_LEAD_TYPE is NOT NULL) and
2353: (p_PRM_LEAD_TYPE <> FND_API.G_MISS_CHAR)
2358:
2359: IF C_PRM_LEAD_TYPE_Exists%NOTFOUND THEN
2360: IF (AS_DEBUG_LOW_ON) THEN
2361:
2362: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2363: 'Private API: PRM_LEAD_TYPE is invalid');
2364: END IF;
2365: AS_UTILITY_PVT.Set_Message(
2366: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
2362: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2363: 'Private API: PRM_LEAD_TYPE is invalid');
2364: END IF;
2365: AS_UTILITY_PVT.Set_Message(
2366: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
2367: p_msg_name => 'API_INVALID_ID',
2368: p_token1 => 'COLUMN',
2369: p_token1_value => 'PRM_LEAD_TYPE',
2370: p_token2 => 'VALUE',
2374: CLOSE C_PRM_LEAD_TYPE_Exists;
2375: END IF;
2376:
2377: -- Standard call to get message count and IF count is 1, get message info.
2378: FND_MSG_PUB.Count_And_Get
2379: ( p_count => x_msg_count,
2380: p_data => x_msg_data
2381: );
2382:
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:
2411:
2412: -- Initialize API return status to SUCCESS
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;
2418:
2419: IF (p_PRM_IND_CLASSIFICATION_CODE is NOT NULL) and
2420: (p_PRM_IND_CLASSIFICATION_CODE <> FND_API.G_MISS_CHAR)
2425:
2426: IF C_PRM_IND_CLS_CODE_Exists%NOTFOUND THEN
2427: IF (AS_DEBUG_LOW_ON) THEN
2428:
2429: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2430: 'Private API: PRM_IND_CLASSIFICATION_CODE is invalid');
2431: END IF;
2432: AS_UTILITY_PVT.Set_Message(
2433: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
2429: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2430: 'Private API: PRM_IND_CLASSIFICATION_CODE is invalid');
2431: END IF;
2432: AS_UTILITY_PVT.Set_Message(
2433: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
2434: p_msg_name => 'API_INVALID_ID',
2435: p_token1 => 'COLUMN',
2436: p_token1_value => 'PRM_IND_CLASSIFICATION_CODE',
2437: p_token2 => 'VALUE',
2441: CLOSE C_PRM_IND_CLS_CODE_Exists;
2442: END IF;
2443:
2444: -- Standard call to get message count and IF count is 1, get message info.
2445: FND_MSG_PUB.Count_And_Get
2446: ( p_count => x_msg_count,
2447: p_data => x_msg_data
2448: );
2449:
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:
2480:
2481: -- Initialize API return status to SUCCESS
2489: p_AUTO_ASSIGNMENT_TYPE);
2490: FETCH C_AUTO_ASGN_TYPE_Exists into l_val;
2491:
2492: IF C_AUTO_ASGN_TYPE_Exists%NOTFOUND THEN
2493: -- IF (AS_DEBUG_ERROR_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
2494: -- 'Private API: AUTO_ASSIGNMENT_TYPE is invalid'); END IF;
2495:
2496: AS_UTILITY_PVT.Set_Message(
2497: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
2493: -- IF (AS_DEBUG_ERROR_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
2494: -- 'Private API: AUTO_ASSIGNMENT_TYPE is invalid'); END IF;
2495:
2496: AS_UTILITY_PVT.Set_Message(
2497: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
2498: p_msg_name => 'API_INVALID_AUTO_ASGN_TYPE',
2499: p_token1 => 'VALUE',
2500: p_token1_value => p_AUTO_ASSIGNMENT_TYPE );
2501:
2505: CLOSE C_AUTO_ASGN_TYPE_Exists;
2506: END IF;
2507:
2508: -- Standard call to get message count and if count is 1, get message info.
2509: FND_MSG_PUB.Count_And_Get
2510: ( p_count => x_msg_count,
2511: p_data => x_msg_data
2512: );
2513:
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:
2542: -- Initialize API return status to SUCCESS
2543: x_return_status := FND_API.G_RET_STS_SUCCESS;
2550: p_PRM_ASSIGNMENT_TYPE);
2551: FETCH C_PRM_ASGN_TYPE_Exists into l_val;
2552:
2553: IF C_PRM_ASGN_TYPE_Exists%NOTFOUND THEN
2554: -- IF (AS_DEBUG_ERROR_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
2555: -- 'Private API: PRM_ASSIGNMENT_TYPE is invalid'); END IF;
2556:
2557: AS_UTILITY_PVT.Set_Message(
2558: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
2554: -- IF (AS_DEBUG_ERROR_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
2555: -- 'Private API: PRM_ASSIGNMENT_TYPE is invalid'); END IF;
2556:
2557: AS_UTILITY_PVT.Set_Message(
2558: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
2559: p_msg_name => 'API_INVALID_PRM_ASGN_TYPE',
2560: p_token1 => 'VALUE',
2561: p_token1_value => p_PRM_ASSIGNMENT_TYPE );
2562:
2566: CLOSE C_PRM_ASGN_TYPE_Exists;
2567: END IF;
2568:
2569: -- Standard call to get message count and if count is 1, get message info.
2570: FND_MSG_PUB.Count_And_Get
2571: ( p_count => x_msg_count,
2572: p_data => x_msg_data
2573: );
2574:
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:
2616: -- Initialize API return status to SUCCESS
2617: x_return_status := FND_API.G_RET_STS_SUCCESS;
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;
2622:
2623: -- The summary of lines' budget_amount should be equal to header's
2624: -- budget_amount
2632:
2633: IF l_header_amount <> l_lines_amounts
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:
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
2643: ( p_count => x_msg_count,
2644: p_data => x_msg_data );
2645: END Validate_Budget_Amounts;
2646:
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:
2674: -- Debug Message
2675: IF (AS_DEBUG_LOW_ON) THEN
2673:
2674: -- Debug Message
2675: IF (AS_DEBUG_LOW_ON) THEN
2676:
2677: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
2678: 'PVT:' || l_api_name || ' Start');
2679: END IF;
2680:
2681: -- Initialize API return status to SUCCESS
3186:
3187: -- Debug Message
3188: IF (AS_DEBUG_LOW_ON) THEN
3189:
3190: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
3191: 'PVT: ' || l_api_name || ' End');
3192: END IF;
3193: END Validate_sales_lead;
3194:
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:
3388:
3389: -- Debug Message
3388:
3389: -- Debug Message
3390: IF (AS_DEBUG_LOW_ON) THEN
3391:
3392: AS_UTILITY_PVT.Debug_Message( FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
3393: 'PVT: ' || l_api_name || ' Start');
3394: END IF;
3395:
3396: -- Initialize API return status to SUCCESS
3404: -- Validate Environment
3405: -- ******************************************************************
3406: IF FND_GLOBAL.User_Id IS NULL
3407: THEN
3408: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
3409: THEN
3410: AS_UTILITY_PVT.Set_Message(
3411: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3412: p_msg_name => 'UT_CANNOT_GET_PROFILE_VALUE',
3407: THEN
3408: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
3409: THEN
3410: AS_UTILITY_PVT.Set_Message(
3411: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
3412: p_msg_name => 'UT_CANNOT_GET_PROFILE_VALUE',
3413: p_token1 => 'PROFILE',
3414: p_token1_value => 'USER_ID');
3415:
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,
3455: 'Calling Set_default_values');
3456: END IF;
3457:
3458: Set_default_values(
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');
3480: END IF;
3481:
3482: END IF;
3487:
3488: -- Debug message
3489: IF (AS_DEBUG_LOW_ON) THEN
3490:
3491: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
3492: 'Calling Validate_sales_lead');
3493: END IF;
3494:
3495: -- Invoke validation procedures
3511: IF(P_Check_Access_Flag = 'Y') THEN
3512: -- Call Get_Access_Profiles to get access_profile_rec
3513: IF (AS_DEBUG_LOW_ON) THEN
3514:
3515: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
3516: 'Calling Get_Access_Profiles');
3517: END IF;
3518:
3519: AS_SALES_LEADS_PUB.Get_Access_Profiles(
3523: IF (AS_DEBUG_LOW_ON) THEN
3524:
3525:
3526:
3527: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
3528: 'Calling Has_viewCustomerAccess');
3529:
3530: END IF;
3531:
3549:
3550: IF l_access_flag <> 'Y' THEN
3551: IF (AS_DEBUG_ERROR_ON) THEN
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;
3564:
3565: -- Debug Message
3566: IF (AS_DEBUG_LOW_ON) THEN
3567:
3568: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
3569: 'Calling Sales_Lead_Insert_Row');
3570: END IF;
3571:
3572: -- auto qualify lead
3576: -- auto-qualification.
3577:
3578: -- ffang 100200: for bug 1416170
3579: -- Do auto-qualify only when keep_flag <> 'Y' or keep_flag is NULL
3580: -- IF (AS_DEBUG_LOW_ON) THEN AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
3581: -- 'keep_flag : ' || l_sales_lead_rec.keep_flag); END IF;
3582: -- IF (l_sales_lead_rec.keep_flag <> 'Y') or
3583: -- (l_sales_lead_rec.keep_flag is NULL)
3584:
3687:
3688: -- now this lead rank score will be logged in the sales lead table.
3689: IF (AS_DEBUG_LOW_ON) THEN
3690:
3691: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
3692: 'lead_rank_score : ' || l_lead_rank_score);
3693:
3694: END IF;
3695:
3710: l_default_sales_stage := null;
3711:
3712: IF (AS_DEBUG_LOW_ON) THEN
3713:
3714: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
3715: 'sales meth'|| l_sales_lead_rec.SALES_METHODOLOGY_ID);
3716: END IF;
3717:
3718: IF (AS_DEBUG_LOW_ON) THEN
3716: END IF;
3717:
3718: IF (AS_DEBUG_LOW_ON) THEN
3719:
3720: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
3721: 'sales stage'|| l_sales_lead_rec.SALES_STAGE_ID);
3722: END IF;
3723:
3724:
3730:
3731: IF (AS_DEBUG_LOW_ON) THEN
3732:
3733:
3734: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
3735: 'CK:: defaulting sales stage');
3736:
3737: end if;
3738:
3895: END IF;
3896:
3897: IF (AS_DEBUG_LOW_ON) THEN
3898:
3899: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
3900: 'xSalesLeadID is '||l_sales_lead_id);
3901:
3902: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
3903: 'Calling AS_SALES_LEADS_LOG_PKG.Insert_Row');
3898:
3899: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
3900: 'xSalesLeadID is '||l_sales_lead_id);
3901:
3902: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
3903: 'Calling AS_SALES_LEADS_LOG_PKG.Insert_Row');
3904: END IF;
3905:
3906: -- Call API to create log entry
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;
3973:
3974: AS_SALES_LEAD_REFERRAL.Notify_Party (
3975: p_api_version => 1.0 ,
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');
3993: END IF;
3994: END IF;
3995:
3996: IF (AS_DEBUG_LOW_ON) THEN
3997:
3998:
3999:
4000: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
4001: 'After notify party');
4002:
4003: END IF; */
4004: end if;
4037:
4038: -- Debug Message
4039: IF (AS_DEBUG_LOW_ON) THEN
4040:
4041: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
4042: 'Calling Create_SalesTeam');
4043: END IF;
4044:
4045: AS_ACCESS_PUB.Create_SalesTeam (
4064: IF (AS_DEBUG_LOW_ON) THEN
4065:
4066:
4067:
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
4078: IF p_SALES_LEAD_LINE_tbl.COUNT >= 1 THEN
4079: -- Debug Message
4080: IF (AS_DEBUG_LOW_ON) THEN
4081:
4082: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
4083: 'Calling Create_sales_lead_lines');
4084: END IF;
4085:
4086: -- ffang020201, if sales lead isn't assigned, access record hasn't been
4116:
4117: -- IF l_SALES_LEAD_rec.BUDGET_AMOUNT <> l_lines_amount
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:
4126: IF p_SALES_LEAD_CONTACT_tbl.COUNT >= 1 THEN
4127: -- Debug Message
4128: IF (AS_DEBUG_LOW_ON) THEN
4129:
4130: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
4131: 'Calling Create_sales_lead_contacts');
4132: END IF;
4133:
4134: -- ffang020201, if sales lead isn't assigned, access record hasn't been
4159:
4160: -- Debug Message
4161: IF (AS_DEBUG_LOW_ON) THEN
4162:
4163: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
4164: 'Calling Check_primary_contact');
4165: END IF;
4166:
4167: -- Check IF there is only one primary contact
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,
4197: 'CK:Desc null');
4198: END IF;
4199:
4200: OPEN C_get_primary_contact_name(l_sales_lead_id);
4213: CLOSE C_get_primary_contact_name ;
4214:
4215: IF (AS_DEBUG_LOW_ON) THEN
4216:
4217: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
4218: 'CK:def name:'||l_default_lead_name);
4219: END IF;
4220:
4221: update as_sales_leads set description = l_default_lead_name where sales_lead_id =
4240:
4241: -- Debug Message
4242: IF (AS_DEBUG_LOW_ON) THEN
4243:
4244: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
4245: 'PVT: ' || l_api_name || ' End');
4246: END IF;
4247:
4248: -- Standard call to get message count and IF count is 1, get message info.
4245: 'PVT: ' || l_api_name || ' End');
4246: END IF;
4247:
4248: -- Standard call to get message count and IF count is 1, get message info.
4249: FND_MSG_PUB.Count_And_Get
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
4259: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
4260: ,X_MSG_COUNT => X_MSG_COUNT
4261: ,X_MSG_DATA => X_MSG_DATA
4262: ,X_RETURN_STATUS => X_RETURN_STATUS);
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
4269: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
4270: ,X_MSG_COUNT => X_MSG_COUNT
4271: ,X_MSG_DATA => X_MSG_DATA
4272: ,X_RETURN_STATUS => X_RETURN_STATUS);
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:
4609: -- Debug Message
4610: IF (AS_DEBUG_LOW_ON) THEN
4608:
4609: -- Debug Message
4610: IF (AS_DEBUG_LOW_ON) THEN
4611:
4612: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
4613: 'PVT: ' || l_api_name || ' Start');
4614: END IF;
4615:
4616: -- Initialize API return status to SUCCESS
4638:
4639: -- Debug Message
4640: IF (AS_DEBUG_LOW_ON) THEN
4641:
4642: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
4643: 'Open Cursor C_Get_sales_leads');
4644: END IF;
4645:
4646: Open C_Get_sales_leads( l_tar_SALES_LEAD_rec.SALES_LEAD_ID);
4663:
4664: IF ( C_Get_sales_leads%NOTFOUND) THEN
4665: Close C_Get_sales_leads;
4666:
4667: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
4668: 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;
4667: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
4668: 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:
4675:
4676: -- Debug Message
4677: IF (AS_DEBUG_LOW_ON) THEN
4678:
4679: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
4680: 'Close Cursor C_Get_sales_leads');
4681: END IF;
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');
4691: FND_MESSAGE.Set_Token('COLUMN', 'LAST_UPDATE_DATE', FALSE);
4692: FND_MSG_PUB.ADD;
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');
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:
4695: END IF;
4696:
4697: IF (l_tar_SALES_LEAD_rec.last_update_date <> l_last_update_date)
4698: THEN
4699: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
4700: THEN
4701: FND_MESSAGE.Set_Name('AS', 'API_RECORD_CHANGED');
4702: FND_MESSAGE.Set_Token('INFO', 'SALES_LEAD', FALSE);
4703: FND_MSG_PUB.ADD;
4699: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
4700: 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:
4717: (l_tar_SALES_LEAD_rec.lead_rank_ind is NULL)
4718: THEN
4719: IF (AS_DEBUG_LOW_ON) THEN
4720:
4721: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
4722: 'Calling Set_default_values');
4723: END IF;
4724:
4725: Set_default_values(
4730:
4731: -- Debug message
4732: IF (AS_DEBUG_LOW_ON) THEN
4733:
4734: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
4735: 'Calling Validate_sales_lead');
4736: END IF;
4737:
4738: -- Invoke validation procedures
4754:
4755: -- Call Get_Access_Profiles to get access_profile_rec
4756: IF (AS_DEBUG_LOW_ON) THEN
4757:
4758: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
4759: 'Calling Get_Access_Profiles');
4760: END IF;
4761:
4762: AS_SALES_LEADS_PUB.Get_Access_Profiles(
4770: IF (AS_DEBUG_LOW_ON) THEN
4771:
4772:
4773:
4774: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
4775: 'Calling Has_updateLeadAccess');
4776:
4777: END IF;
4778:
4797:
4798: IF l_update_access_flag <> 'Y' THEN
4799: IF (AS_DEBUG_ERROR_ON) THEN
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;
4834: --Fetch c_check_owner into l_check_owner;
4835: --Close c_check_owner;
4836: IF (AS_DEBUG_LOW_ON) THEN
4837:
4838: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
4839: 'Calling Has_leadOwnerAccess');
4840: END IF;
4841: AS_ACCESS_PVT.has_leadOwnerAccess(
4842: p_api_version_number => 2.0
4874: -- change owner. Update access checking in security API
4875: THEN
4876: IF (AS_DEBUG_ERROR_ON) THEN
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;
4887:
4888: -- if user is declining , then if not owner AND profile not set then throw error
4889: IF (AS_DEBUG_LOW_ON) THEN
4890:
4891: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
4892: 'l_check_owner is'|| l_check_owner);
4893: END IF;
4894:
4895: IF (AS_DEBUG_LOW_ON) THEN
4895: IF (AS_DEBUG_LOW_ON) THEN
4896:
4897:
4898:
4899: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
4900: 'l_lead_owner_privilege is'|| l_lead_owner_privilege);
4901:
4902: END IF;
4903:
4908: -- change owner. Update access checking in security API
4909: THEN
4910: IF (AS_DEBUG_ERROR_ON) 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;
4922: -- change owner. Update access checking in security API
4923: THEN
4924: IF (AS_DEBUG_ERROR_ON) 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;
4963: IF (AS_DEBUG_LOW_ON) THEN
4964:
4965:
4966:
4967: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
4968: 'l_auto_qualify_profile is '|| l_auto_qualify_profile);
4969:
4970: END IF;
4971:
4977: THEN
4978: -- Launch auto-qualification
4979: IF (AS_DEBUG_LOW_ON) THEN
4980:
4981: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
4982: 'Launch auto-qualification');
4983: END IF;
4984:
4985: OPEN C_PHONE_ID_Exists (P_SALES_LEAD_Rec.sales_lead_id);
5008: l_qualified := l_isQualified;
5009: ELSE
5010: IF (AS_DEBUG_LOW_ON) THEN
5011:
5012: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5013: 'Doing manual qualification');
5014: END IF;
5015:
5016:
5028:
5029: -- Debug Message
5030: IF (AS_DEBUG_LOW_ON) THEN
5031:
5032: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5033: 'Calling Sales_Lead_Update_Row');
5034: END IF;
5035:
5036: IF (AS_DEBUG_LOW_ON) THEN
5036: IF (AS_DEBUG_LOW_ON) THEN
5037:
5038:
5039:
5040: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5041: 'p_sf_id:'||p_sales_lead_rec.assign_to_salesforce_id);
5042:
5043: END IF;
5044: IF (AS_DEBUG_LOW_ON) THEN
5042:
5043: END IF;
5044: IF (AS_DEBUG_LOW_ON) THEN
5045:
5046: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5047: 'sf_id:'||l_tar_SALES_LEAD_rec.assign_to_salesforce_id);
5048: END IF;
5049:
5050:
5188: END IF;
5189:
5190: IF (AS_DEBUG_LOW_ON) THEN
5191:
5192: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5193: 'lead_rank_score : ' || l_new_lead_rank_score);
5194: END IF;
5195:
5196: -- if new rank score is null, make it 0
5208:
5209: IF (AS_DEBUG_LOW_ON) THEN
5210:
5211:
5212: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5213: 'Just before AS_SALES_LEADS_PKG.Sales_Lead_Update_Row');
5214:
5215:
5216: END IF;
5266: FETCH c_get_rank_score INTO l_last_score;
5267: CLOSE c_get_rank_score;
5268:
5269: IF (AS_DEBUG_LOW_ON) THEN
5270: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5271: 'current_score=' || l_current_score);
5272: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5273: 'last_score=' || l_last_score);
5274: END IF;
5268:
5269: IF (AS_DEBUG_LOW_ON) THEN
5270: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5271: 'current_score=' || l_current_score);
5272: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5273: 'last_score=' || l_last_score);
5274: END IF;
5275: IF l_current_score > l_last_score
5276: THEN
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');
5434: END IF;
5435: RAISE FND_API.G_EXC_ERROR;
5436: END IF;
5452: IF (AS_DEBUG_LOW_ON) THEN
5453:
5454:
5455:
5456: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5457: 'Just after AS_SALES_LEADS_PKG.Sales_Lead_Update_Row');
5458:
5459: END IF;
5460:
5521:
5522: THEN
5523: IF (AS_DEBUG_LOW_ON) THEN
5524:
5525: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5526: 'Nothing to log ');
5527: END IF;
5528:
5529: ELSE
5528:
5529: ELSE
5530: IF (AS_DEBUG_LOW_ON) THEN
5531:
5532: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5533: 'Just after AS_SALES_LEADS_PKG.Sales_Lead_Update_Row');
5534: END IF;
5535:
5536:
5538: l_log_status_code := l_old_status_code;
5539: end if;
5540:
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;
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,
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;
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,
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;
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;
5564:
5565:
5566: if (l_tar_sales_lead_rec.lead_rank_id = FND_API.G_MISS_NUM) then
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,
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;
5581:
5582: -- Debug Message
5583: IF (AS_DEBUG_LOW_ON) THEN
5584:
5585: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5586: 'Calling AS_SALES_LEADS_LOG_PKG.Insert_Row');
5587: END IF;
5588:
5589: -- Call API to create log entry
5628:
5629: -- Debug Message
5630: IF (AS_DEBUG_LOW_ON) THEN
5631:
5632: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5633: 'Not Calling AS_SALES_LEADS_LOG_PKG.Insert_Row');
5634: END IF;
5635:
5636: */
5706:
5707:
5708:
5709:
5710: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5711: 'x_return_status: '|| x_return_status);
5712:
5713:
5714:
5719: IF (AS_DEBUG_LOW_ON) THEN
5720:
5721:
5722:
5723: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5724: 'l_assign_sf_id:' ||l_assign_to_salesforce_id);
5725:
5726: END IF;
5727: IF (AS_DEBUG_LOW_ON) THEN
5725:
5726: END IF;
5727: IF (AS_DEBUG_LOW_ON) THEN
5728:
5729: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5730: 'l_tar.assign_sf_id:' || l_tar_SALES_LEAD_rec.assign_to_salesforce_id);
5731: END IF;
5732:
5733: -- Call Create, Update or Delete Sales Team
5774:
5775: -- Debug Message
5776: IF (AS_DEBUG_LOW_ON) THEN
5777:
5778: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5779: 'Calling Create_SalesTeam');
5780: END IF;
5781:
5782: AS_ACCESS_PUB.Create_SalesTeam (
5798:
5799: -- Debug Message
5800: IF (AS_DEBUG_LOW_ON) THEN
5801:
5802: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5803: 'Create_SalesTeam:x_access_id > ' ||
5804: l_access_id);
5805: END IF;
5806:
5889:
5890:
5891: IF (AS_DEBUG_LOW_ON) THEN
5892:
5893: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5894: 'CK:bef grp');
5895: END IF;
5896:
5897:
5900: Close c_get_group_id;
5901:
5902: IF (AS_DEBUG_LOW_ON) THEN
5903:
5904: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5905: 'CK:usgid:'||l_login_user_sg_id);
5906: END IF;
5907:
5908:
5913:
5914:
5915: IF (AS_DEBUG_LOW_ON) THEN
5916:
5917: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
5918: 'CK:uspid:'||l_login_user_person_id);
5919: END IF;
5920:
5921:
6012:
6013: -- Debug Message
6014: IF (AS_DEBUG_LOW_ON) THEN
6015:
6016: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6017: 'CK:Calling Update_SalesTeam');
6018: END IF;
6019:
6020: AS_ACCESS_PUB.Update_SalesTeam (
6038:
6039: -- Debug Message
6040: IF (AS_DEBUG_LOW_ON) THEN
6041:
6042: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6043: 'CK:Calling Create_SalesTeam');
6044: END IF;
6045:
6046: l_login_salesteam_rec.last_update_date := SYSDATE;
6071:
6072: -- Debug Message
6073: IF (AS_DEBUG_LOW_ON) THEN
6074:
6075: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6076: 'CK:Create_SalesTeam:x_access_id > ' ||
6077: l_login_Access_Id);
6078: END IF;
6079: END IF;
6112: IF (AS_DEBUG_LOW_ON) THEN
6113:
6114:
6115:
6116: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6117: 'Access id is'|| l_sales_team_rec.access_id);
6118:
6119: END IF;
6120:
6121:
6122: -- Debug Message
6123: IF (AS_DEBUG_LOW_ON) THEN
6124:
6125: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6126: 'Calling Update_SalesTeam');
6127: END IF;
6128:
6129: AS_ACCESS_PUB.Update_SalesTeam (
6164: IF (AS_DEBUG_LOW_ON) THEN
6165:
6166:
6167:
6168: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6169: 'Delete_SalesTeam:x_access_id > ' || l_access_id);
6170:
6171: END IF;
6172:
6219: IF (AS_DEBUG_LOW_ON) THEN
6220:
6221:
6222:
6223: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6224: 'Update_SalesTeam:x_access_id > ' || l_access_id);
6225:
6226: END IF;
6227:
6272:
6273: -- Debug Message
6274: IF (AS_DEBUG_LOW_ON) THEN
6275:
6276: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6277: 'Calling Update_SalesTeam');
6278: END IF;
6279:
6280: AS_ACCESS_PUB.Update_SalesTeam (
6298:
6299: -- Debug Message
6300: IF (AS_DEBUG_LOW_ON) THEN
6301:
6302: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6303: 'Calling Create_SalesTeam');
6304: END IF;
6305:
6306: l_Sales_Team_Rec.last_update_date := SYSDATE;
6327:
6328: -- Debug Message
6329: IF (AS_DEBUG_LOW_ON) THEN
6330:
6331: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6332: 'Create_SalesTeam:x_access_id > ' ||
6333: l_access_id);
6334: END IF;
6335: END IF;
6399: /*
6400: -- Debug Message
6401: IF (AS_DEBUG_LOW_ON) THEN
6402:
6403: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6404: 'Validate BUDGET_AMOUNT');
6405: END IF;
6406:
6407: Validate_BUDGET_AMOUNTS(
6429:
6430: -- Debug Message
6431: IF (AS_DEBUG_LOW_ON) THEN
6432:
6433: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6434: 'PVT: ' || l_api_name || ' End');
6435: END IF;
6436:
6437: -- Standard call to get message count and IF count is 1, get message info.
6434: 'PVT: ' || l_api_name || ' End');
6435: END IF;
6436:
6437: -- Standard call to get message count and IF count is 1, get message info.
6438: FND_MSG_PUB.Count_And_Get
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
6448: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
6449: ,X_MSG_COUNT => X_MSG_COUNT
6450: ,X_MSG_DATA => X_MSG_DATA
6451: ,X_RETURN_STATUS => X_RETURN_STATUS);
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
6458: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
6459: ,X_MSG_COUNT => X_MSG_COUNT
6460: ,X_MSG_DATA => X_MSG_DATA
6461: ,X_RETURN_STATUS => X_RETURN_STATUS);
6499: IF (AS_DEBUG_LOW_ON) THEN
6500:
6501:
6502:
6503: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6504: 'p_phone_id is '||p_phone_id);
6505:
6506: END IF;
6507: IF (AS_DEBUG_LOW_ON) THEN
6505:
6506: END IF;
6507: IF (AS_DEBUG_LOW_ON) THEN
6508:
6509: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6510: 'p_contact_role_code is '||p_contact_role_code);
6511: END IF;
6512:
6513: -- get all of the required variables for a Lead to be qualified
6526:
6527:
6528:
6529:
6530: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6531: 'profile - parent_project'||l_project_name_req);
6532:
6533:
6534: END IF;
6536: IF (AS_DEBUG_LOW_ON) THEN
6537:
6538:
6539:
6540: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6541: 'profile - channel'||l_channel_req);
6542:
6543: END IF;
6544:
6545: IF (AS_DEBUG_LOW_ON) THEN
6546:
6547:
6548:
6549: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6550: 'profile - time frame'||l_time_frame_req);
6551:
6552: END IF;
6553:
6554: IF (AS_DEBUG_LOW_ON) THEN
6555:
6556:
6557:
6558: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6559: 'profile - total budget'||l_total_budget_req);
6560:
6561: END IF;
6562:
6563: IF (AS_DEBUG_LOW_ON) THEN
6564:
6565:
6566:
6567: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6568: 'profile - contact phone'||l_contact_phone_req);
6569:
6570: END IF;
6571:
6572: IF (AS_DEBUG_LOW_ON) THEN
6573:
6574:
6575:
6576: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6577: 'profile - contact role'||l_contact_role_req);
6578:
6579: END IF;
6580:
6581: IF (AS_DEBUG_LOW_ON) THEN
6582:
6583:
6584:
6585: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6586: 'profile - budget_status'||l_budget_status_req);
6587:
6588: END IF;
6589:
6590: IF (AS_DEBUG_LOW_ON) THEN
6591:
6592:
6593:
6594: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6595: 'profile - campaign code'||l_campaign_code_req);
6596:
6597: END IF;
6598:
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');
6608: END IF;
6609: l_isQualified := 'N';
6610: return l_isQualified;
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');
6621: END IF;
6622: l_isQualified := 'N';
6623: return l_isQualified;
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');
6634: END IF;
6635: l_isQualified := 'N';
6636: return l_isQualified;
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');
6647: END IF;
6648: l_isQualified := 'N';
6649: return l_isQualified;
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');
6660: END IF;
6661: l_isQualified := 'N';
6662: return l_isQualified;
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');
6674: END IF;
6675: l_isQualified := 'N';
6676: return l_isQualified;
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');
6687: END IF;
6688: l_isQualified := 'N';
6689: return l_isQualified;
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');
6700: END IF;
6701: l_isQualified := 'N';
6702: return l_isQualified;
6709: IF (AS_DEBUG_LOW_ON) THEN
6710:
6711:
6712:
6713: AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
6714: 'PVT: ' || l_api_name || ' End');
6715:
6716: END IF;
6717: