58:
59: BEGIN
60: -- Debug Message
61: IF l_debug THEN
62: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API1: ' || l_api_name || 'start');
63: END IF;
64:
65:
66:
85:
86:
87: -- Debug Message
88: IF l_debug THEN
89: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API2: ' || l_api_name || 'start');
90: END IF;
91:
92:
93:
127:
128: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
129: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
130: IF l_debug THEN
131: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
132: 'Private API3: Get_CurrentUser fail');
133: END IF;
134:
135: END IF;
139: END IF;
140:
141: -- Debug message
142: IF l_debug THEN
143: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API4: Validate_decision_factor');
144: END IF;
145:
146:
147: IF(P_Check_Access_Flag = 'Y') THEN
175:
176: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
177: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
178: IF l_debug THEN
179: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
180: 'Private API5: has_updateOpportunityAccess fail');
181: END IF;
182: END IF;
183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
192: RAISE FND_API.G_EXC_ERROR;
193: ELSE
194: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
195: IF l_debug THEN
196: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
197: 'Private API6: has_updateOpportunityAccess succeed');
198: END IF;
199:
200: END IF;
209: -- Invoke validation procedures
210: Validate_decision_factor(
211: p_init_msg_list => FND_API.G_FALSE,
212: p_validation_level => p_validation_level,
213: p_validation_mode => AS_UTILITY_PVT.G_CREATE,
214: P_Decision_Factor_Rec => l_decision_factor_rec,
215: x_return_status => x_return_status,
216: x_msg_count => x_msg_count,
217: x_msg_data => x_msg_data);
222:
223:
224: -- Debug Message
225: IF l_debug THEN
226: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API7: Calling create table handler');
227: END IF;
228:
229: -- Invoke table handler(AS_LEAD_DECISION_FACTORS_PKG.Insert_Row)
230: AS_LEAD_DECISION_FACTORS_PKG.Insert_Row(
280:
281:
282: -- Debug Message
283: IF l_debug THEN
284: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API8: ' || l_api_name || 'end');
285: END IF;
286:
287:
288:
298: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
299: THEN
300: --FND_MESSAGE.Set_Name('AS', 'API_DUP_DECIS_FACTOR_CODE');
301: --FND_MSG_PUB.ADD;
302: AS_UTILITY_PVT.Set_Message(
303: p_module => l_module,
304: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
305: p_msg_name => 'API_DUP_DECIS_FACTOR_CODE',
306: p_token1 => 'VALUE',
307: p_token1_value => l_Decision_Factor_rec.DECISION_FACTOR_CODE);
308:
309: END IF;
310:
311: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
312: P_MODULE => l_module
313: ,P_API_NAME => L_API_NAME
314: ,P_PKG_NAME => G_PKG_NAME
315: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
312: P_MODULE => l_module
313: ,P_API_NAME => L_API_NAME
314: ,P_PKG_NAME => G_PKG_NAME
315: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
316: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
317: ,X_MSG_COUNT => X_MSG_COUNT
318: ,X_MSG_DATA => X_MSG_DATA
319: ,X_RETURN_STATUS => X_RETURN_STATUS);
320:
320:
321:
322:
323: WHEN FND_API.G_EXC_ERROR THEN
324: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
325: P_MODULE => l_module
326: ,P_API_NAME => L_API_NAME
327: ,P_PKG_NAME => G_PKG_NAME
328: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
325: P_MODULE => l_module
326: ,P_API_NAME => L_API_NAME
327: ,P_PKG_NAME => G_PKG_NAME
328: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
329: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
330: ,X_MSG_COUNT => X_MSG_COUNT
331: ,X_MSG_DATA => X_MSG_DATA
332: ,X_RETURN_STATUS => X_RETURN_STATUS);
333:
331: ,X_MSG_DATA => X_MSG_DATA
332: ,X_RETURN_STATUS => X_RETURN_STATUS);
333:
334: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
335: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
336: P_MODULE => l_module
337: ,P_API_NAME => L_API_NAME
338: ,P_PKG_NAME => G_PKG_NAME
339: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
336: P_MODULE => l_module
337: ,P_API_NAME => L_API_NAME
338: ,P_PKG_NAME => G_PKG_NAME
339: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
340: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
341: ,X_MSG_COUNT => X_MSG_COUNT
342: ,X_MSG_DATA => X_MSG_DATA
343: ,X_RETURN_STATUS => X_RETURN_STATUS);
344:
342: ,X_MSG_DATA => X_MSG_DATA
343: ,X_RETURN_STATUS => X_RETURN_STATUS);
344:
345: WHEN OTHERS THEN
346: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
347: P_MODULE => l_module
348: ,P_API_NAME => L_API_NAME
349: ,P_PKG_NAME => G_PKG_NAME
350: ,P_EXCEPTION_LEVEL => AS_UTILITY_PVT.G_EXC_OTHERS
346: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
347: P_MODULE => l_module
348: ,P_API_NAME => L_API_NAME
349: ,P_PKG_NAME => G_PKG_NAME
350: ,P_EXCEPTION_LEVEL => AS_UTILITY_PVT.G_EXC_OTHERS
351: ,P_SQLCODE => SQLCODE
352: ,P_SQLERRM => SQLERRM
353: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
354: ,X_MSG_COUNT => X_MSG_COUNT
349: ,P_PKG_NAME => G_PKG_NAME
350: ,P_EXCEPTION_LEVEL => AS_UTILITY_PVT.G_EXC_OTHERS
351: ,P_SQLCODE => SQLCODE
352: ,P_SQLERRM => SQLERRM
353: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
354: ,X_MSG_COUNT => X_MSG_COUNT
355: ,X_MSG_DATA => X_MSG_DATA
356: ,X_RETURN_STATUS => X_RETURN_STATUS);
357: End Create_decision_factors;
424:
425:
426: -- Debug Message
427: IF l_debug THEN
428: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API9: ' || l_api_name || 'start');
429: END IF;
430:
431:
432: -- Initialize API return status to SUCCESS
451:
452: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
453: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
454: IF l_debug THEN
455: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
456: 'Private API10: Get_CurrentUser fail');
457: END IF;
458:
459: END IF;
492:
493: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
494: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
495: IF l_debug THEN
496: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
497: 'Private API11: has_updateOpportunityAccess fail');
498: END IF;
499:
500: END IF;
510: RAISE FND_API.G_EXC_ERROR;
511: ELSE
512: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
513: IF l_debug THEN
514: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
515: 'Private API12: has_updateOpportunityAccess succeed');
516: END IF;
517:
518: END IF;
524: -- Hint: Add corresponding Master-Detail business logic here if necessary.
525:
526: -- Debug Message
527: IF l_debug THEN
528: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API13: Calling update table handler');
529: END IF;
530:
531:
532: -- Invoke validation procedures
535:
536: Validate_decision_factor(
537: p_init_msg_list => FND_API.G_FALSE,
538: p_validation_level => p_validation_level,
539: p_validation_mode => AS_UTILITY_PVT.G_UPDATE,
540: P_Decision_Factor_Rec => l_Decision_Factor_Rec,
541: x_return_status => x_return_status,
542: x_msg_count => x_msg_count,
543: x_msg_data => x_msg_data);
594:
595:
596: -- Debug Message
597: IF l_debug THEN
598: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API14: ' || l_api_name || 'end');
599: END IF;
600:
601:
602:
612: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
613: THEN
614: --FND_MESSAGE.Set_Name('AS', 'API_DUP_DECIS_FACTOR_CODE');
615: --FND_MSG_PUB.ADD;
616: AS_UTILITY_PVT.Set_Message(
617: p_module => l_module,
618: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
619: p_msg_name => 'API_DUP_DECIS_FACTOR_CODE',
620: p_token1 => 'VALUE',
621: p_token1_value => l_Decision_Factor_rec.DECISION_FACTOR_CODE);
622:
623: END IF;
624:
625: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
626: P_MODULE => l_module
627: ,P_API_NAME => L_API_NAME
628: ,P_PKG_NAME => G_PKG_NAME
629: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
626: P_MODULE => l_module
627: ,P_API_NAME => L_API_NAME
628: ,P_PKG_NAME => G_PKG_NAME
629: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
630: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
631: ,X_MSG_COUNT => X_MSG_COUNT
632: ,X_MSG_DATA => X_MSG_DATA
633: ,X_RETURN_STATUS => X_RETURN_STATUS);
634:
633: ,X_RETURN_STATUS => X_RETURN_STATUS);
634:
635:
636: WHEN FND_API.G_EXC_ERROR THEN
637: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
638: P_MODULE => l_module
639: ,P_API_NAME => L_API_NAME
640: ,P_PKG_NAME => G_PKG_NAME
641: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
638: P_MODULE => l_module
639: ,P_API_NAME => L_API_NAME
640: ,P_PKG_NAME => G_PKG_NAME
641: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
642: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
643: ,X_MSG_COUNT => X_MSG_COUNT
644: ,X_MSG_DATA => X_MSG_DATA
645: ,X_RETURN_STATUS => X_RETURN_STATUS);
646:
644: ,X_MSG_DATA => X_MSG_DATA
645: ,X_RETURN_STATUS => X_RETURN_STATUS);
646:
647: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
648: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
649: P_MODULE => l_module
650: ,P_API_NAME => L_API_NAME
651: ,P_PKG_NAME => G_PKG_NAME
652: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
649: P_MODULE => l_module
650: ,P_API_NAME => L_API_NAME
651: ,P_PKG_NAME => G_PKG_NAME
652: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
653: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
654: ,X_MSG_COUNT => X_MSG_COUNT
655: ,X_MSG_DATA => X_MSG_DATA
656: ,X_RETURN_STATUS => X_RETURN_STATUS);
657:
655: ,X_MSG_DATA => X_MSG_DATA
656: ,X_RETURN_STATUS => X_RETURN_STATUS);
657:
658: WHEN OTHERS THEN
659: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
660: P_MODULE => l_module
661: ,P_API_NAME => L_API_NAME
662: ,P_PKG_NAME => G_PKG_NAME
663: ,P_EXCEPTION_LEVEL => AS_UTILITY_PVT.G_EXC_OTHERS
659: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
660: P_MODULE => l_module
661: ,P_API_NAME => L_API_NAME
662: ,P_PKG_NAME => G_PKG_NAME
663: ,P_EXCEPTION_LEVEL => AS_UTILITY_PVT.G_EXC_OTHERS
664: ,P_SQLCODE => SQLCODE
665: ,P_SQLERRM => SQLERRM
666: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
667: ,X_MSG_COUNT => X_MSG_COUNT
662: ,P_PKG_NAME => G_PKG_NAME
663: ,P_EXCEPTION_LEVEL => AS_UTILITY_PVT.G_EXC_OTHERS
664: ,P_SQLCODE => SQLCODE
665: ,P_SQLERRM => SQLERRM
666: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
667: ,X_MSG_COUNT => X_MSG_COUNT
668: ,X_MSG_DATA => X_MSG_DATA
669: ,X_RETURN_STATUS => X_RETURN_STATUS);
670: End Update_decision_factors;
731:
732:
733: -- Debug Message
734: IF l_debug THEN
735: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API15: ' || l_api_name || 'start');
736: END IF;
737:
738:
739:
758:
759: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
760: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
761: IF l_debug THEN
762: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
763: 'Private API16: Get_CurrentUser fail');
764: END IF;
765:
766: END IF;
799:
800: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
801: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
802: IF l_debug THEN
803: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
804: 'Private API17: has_updateOpportunityAccess fail');
805: END IF;
806:
807: END IF;
817: RAISE FND_API.G_EXC_ERROR;
818: ELSE
819: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
820: IF l_debug THEN
821: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
822: 'Private API18: has_updateOpportunityAccess succeed');
823: END IF;
824:
825: END IF;
828:
829:
830: -- Debug Message
831: IF l_debug THEN
832: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API19: Calling delete table handler');
833: END IF;
834:
835:
836: FOR l_curr_row in 1 .. l_count LOOP
853:
854:
855: -- Debug Message
856: IF l_debug THEN
857: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API20: ' || l_api_name || 'end');
858: END IF;
859:
860:
861:
866: );
867:
868: EXCEPTION
869: WHEN FND_API.G_EXC_ERROR THEN
870: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
871: P_MODULE => l_module
872: ,P_API_NAME => L_API_NAME
873: ,P_PKG_NAME => G_PKG_NAME
874: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
871: P_MODULE => l_module
872: ,P_API_NAME => L_API_NAME
873: ,P_PKG_NAME => G_PKG_NAME
874: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
875: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
876: ,X_MSG_COUNT => X_MSG_COUNT
877: ,X_MSG_DATA => X_MSG_DATA
878: ,X_RETURN_STATUS => X_RETURN_STATUS);
879:
877: ,X_MSG_DATA => X_MSG_DATA
878: ,X_RETURN_STATUS => X_RETURN_STATUS);
879:
880: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
881: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
882: P_MODULE => l_module
883: ,P_API_NAME => L_API_NAME
884: ,P_PKG_NAME => G_PKG_NAME
885: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
882: P_MODULE => l_module
883: ,P_API_NAME => L_API_NAME
884: ,P_PKG_NAME => G_PKG_NAME
885: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
886: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
887: ,X_MSG_COUNT => X_MSG_COUNT
888: ,X_MSG_DATA => X_MSG_DATA
889: ,X_RETURN_STATUS => X_RETURN_STATUS);
890:
888: ,X_MSG_DATA => X_MSG_DATA
889: ,X_RETURN_STATUS => X_RETURN_STATUS);
890:
891: WHEN OTHERS THEN
892: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
893: P_MODULE => l_module
894: ,P_API_NAME => L_API_NAME
895: ,P_PKG_NAME => G_PKG_NAME
896: ,P_EXCEPTION_LEVEL => AS_UTILITY_PVT.G_EXC_OTHERS
892: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
893: P_MODULE => l_module
894: ,P_API_NAME => L_API_NAME
895: ,P_PKG_NAME => G_PKG_NAME
896: ,P_EXCEPTION_LEVEL => AS_UTILITY_PVT.G_EXC_OTHERS
897: ,P_SQLCODE => SQLCODE
898: ,P_SQLERRM => SQLERRM
899: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
900: ,X_MSG_COUNT => X_MSG_COUNT
895: ,P_PKG_NAME => G_PKG_NAME
896: ,P_EXCEPTION_LEVEL => AS_UTILITY_PVT.G_EXC_OTHERS
897: ,P_SQLCODE => SQLCODE
898: ,P_SQLERRM => SQLERRM
899: ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
900: ,X_MSG_COUNT => X_MSG_COUNT
901: ,X_MSG_DATA => X_MSG_DATA
902: ,X_RETURN_STATUS => X_RETURN_STATUS);
903: End Delete_decision_factors;
924:
925: -- Initialize API return status to SUCCESS
926: x_return_status := FND_API.G_RET_STS_SUCCESS;
927:
928: IF(p_validation_mode = AS_UTILITY_PVT.G_CREATE)
929: THEN
930: -- Hint: Validate data
931: -- IF p_REQUEST_ID is not NULL and p_REQUEST_ID <> G_MISS_CHAR
932: -- verify if data is valid
931: -- IF p_REQUEST_ID is not NULL and p_REQUEST_ID <> G_MISS_CHAR
932: -- verify if data is valid
933: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
934: NULL;
935: ELSIF(p_validation_mode = AS_UTILITY_PVT.G_UPDATE)
936: THEN
937: -- Hint: Validate data
938: -- IF p_REQUEST_ID <> G_MISS_CHAR
939: -- verify if data is valid
953: PROCEDURE Validate_DECISION_RANK (
954: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
955: P_Validation_mode IN VARCHAR2,
956: P_DECISION_RANK IN NUMBER,
957: -- Hint: You may add 'X_Item_Property_Rec OUT NOCOPY AS_UTILITY_PVT.ITEM_PROPERTY_REC_TYPE' here if you'd like to pass back item property.
958: X_Return_Status OUT NOCOPY VARCHAR2,
959: X_Msg_Count OUT NOCOPY NUMBER,
960: X_Msg_Data OUT NOCOPY VARCHAR2
961: )
971:
972: -- Initialize API return status to SUCCESS
973: x_return_status := FND_API.G_RET_STS_SUCCESS;
974:
975: IF(p_validation_mode = AS_UTILITY_PVT.G_CREATE)
976: THEN
977: -- Hint: Validate data
978: -- IF p_DECISION_RANK is not NULL and p_DECISION_RANK <> G_MISS_CHAR
979: -- verify if data is valid
978: -- IF p_DECISION_RANK is not NULL and p_DECISION_RANK <> G_MISS_CHAR
979: -- verify if data is valid
980: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
981: NULL;
982: ELSIF(p_validation_mode = AS_UTILITY_PVT.G_UPDATE)
983: THEN
984: -- Hint: Validate data
985: -- IF p_DECISION_RANK <> G_MISS_CHAR
986: -- verify if data is valid
1000: PROCEDURE Validate_DECISION_PRIOR_CODE (
1001: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1002: P_Validation_mode IN VARCHAR2,
1003: P_DECISION_PRIORITY_CODE IN VARCHAR2,
1004: -- Hint: You may add 'X_Item_Property_Rec OUT AS_UTILITY_PVT.ITEM_PROPERTY_REC_TYPE' here if you'd like to pass back item property.
1005: X_Return_Status OUT NOCOPY VARCHAR2,
1006: X_Msg_Count OUT NOCOPY NUMBER,
1007: X_Msg_Data OUT NOCOPY VARCHAR2
1008: )
1031: FETCH C_Decis_Prior_Code_Exists into l_val;
1032: IF C_Decis_Prior_Code_Exists%NOTFOUND
1033: THEN
1034: IF l_debug THEN
1035: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1036: 'Private API21: DECISION_PRIORITY_CODE is not valid:' ||P_DECISION_PRIORITY_CODE);
1037: END IF;
1038:
1039:
1036: 'Private API21: DECISION_PRIORITY_CODE is not valid:' ||P_DECISION_PRIORITY_CODE);
1037: END IF;
1038:
1039:
1040: AS_UTILITY_PVT.Set_Message(
1041: p_module => l_module,
1042: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1043: p_msg_name => 'API_INVALID_DECISION_PRIORITY',
1044: p_token1 => 'COLUMN',
1064: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1065: P_Validation_mode IN VARCHAR2,
1066: P_DECISION_FACTOR_CODE IN VARCHAR2,
1067: P_LEAD_LINE_ID IN NUMBER,
1068: -- Hint: You may add 'X_Item_Property_Rec OUT AS_UTILITY_PVT.ITEM_PROPERTY_REC_TYPE' here if you'd like to pass back item property.
1069: X_Return_Status OUT NOCOPY VARCHAR2,
1070: X_Msg_Count OUT NOCOPY NUMBER,
1071: X_Msg_Data OUT NOCOPY VARCHAR2
1072: )
1095:
1096: -- Initialize API return status to SUCCESS
1097: x_return_status := FND_API.G_RET_STS_SUCCESS;
1098:
1099: IF(p_validation_mode = AS_UTILITY_PVT.G_CREATE) OR (p_validation_mode = AS_UTILITY_PVT.G_UPDATE)
1100: THEN
1101:
1102: -- OPEN C_D_Decis_Factor_Code_Exists (P_LEAD_LINE_ID);
1103: -- FETCH C_D_Decis_Factor_Code_Exists into l_val;
1101:
1102: -- OPEN C_D_Decis_Factor_Code_Exists (P_LEAD_LINE_ID);
1103: -- FETCH C_D_Decis_Factor_Code_Exists into l_val;
1104: -- IF C_D_Decis_Factor_Code_Exists%FOUND THEN
1105: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1106: -- 'Private API24: DECISION_FACTOR_CODE exist');
1107:
1108: --AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
1109: -- 'Duplicate DECISION_FACTOR_CODE ');
1104: -- IF C_D_Decis_Factor_Code_Exists%FOUND THEN
1105: -- AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1106: -- 'Private API24: DECISION_FACTOR_CODE exist');
1107:
1108: --AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
1109: -- 'Duplicate DECISION_FACTOR_CODE ');
1110:
1111: -- AS_UTILITY_PVT.Set_Message(
1112: -- p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1107:
1108: --AS_UTILITY_PVT.Debug_Message(FND_MSG_PUB.G_MSG_LVL_ERROR,
1109: -- 'Duplicate DECISION_FACTOR_CODE ');
1110:
1111: -- AS_UTILITY_PVT.Set_Message(
1112: -- p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1113: -- p_msg_name => 'API_DUP_DECIS_FACTOR_CODE',
1114: --p_token1 => 'COLUMN',
1115: --p_token1_value => '',
1124:
1125: IF (P_DECISION_FACTOR_CODE is NULL) or (P_DECISION_FACTOR_CODE = FND_API.G_MISS_CHAR)
1126: THEN
1127: IF l_debug THEN
1128: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1129: 'Private API22: Violate NOT NULL constraint(DECISION_FACTOR_CODE)');
1130: END IF;
1131:
1132:
1129: 'Private API22: Violate NOT NULL constraint(DECISION_FACTOR_CODE)');
1130: END IF;
1131:
1132:
1133: AS_UTILITY_PVT.Set_Message(
1134: p_module => l_module,
1135: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1136: p_msg_name => 'API_MISSING_ID',
1137: p_token1 => 'COLUMN',
1143: FETCH C_Decis_Factor_Code_Exists into l_val;
1144: IF C_Decis_Factor_Code_Exists%NOTFOUND
1145: THEN
1146: IF l_debug THEN
1147: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1148: 'Private API23: DECISION_FACTOR_CODE is not valid:' ||
1149: P_DECISION_FACTOR_CODE);
1150: END IF;
1151:
1149: P_DECISION_FACTOR_CODE);
1150: END IF;
1151:
1152:
1153: AS_UTILITY_PVT.Set_Message(
1154: p_module => l_module,
1155: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1156: p_msg_name => 'API_INVALID_DECISION_FACTOR',
1157: p_token1 => 'COLUMN',
1177: PROCEDURE Validate_L_DECISION_FACTOR_ID (
1178: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1179: P_Validation_mode IN VARCHAR2,
1180: P_LEAD_DECISION_FACTOR_ID IN NUMBER,
1181: -- Hint: You may add 'X_Item_Property_Rec OUT AS_UTILITY_PVT.ITEM_PROPERTY_REC_TYPE' here if you'd like to pass back item property.
1182: X_Return_Status OUT NOCOPY VARCHAR2,
1183: X_Msg_Count OUT NOCOPY NUMBER,
1184: X_Msg_Data OUT NOCOPY VARCHAR2
1185: )
1205: -- Initialize API return status to SUCCESS
1206: x_return_status := FND_API.G_RET_STS_SUCCESS;
1207:
1208: -- Calling from Create API
1209: IF(p_validation_mode = AS_UTILITY_PVT.G_CREATE)
1210: THEN
1211: IF (P_LEAD_DECISION_FACTOR_ID is NOT NULL) and (p_LEAD_DECISION_FACTOR_ID <> FND_API.G_MISS_NUM)
1212: THEN
1213: OPEN C_L_Decis_Factor_Id_Exists (P_LEAD_DECISION_FACTOR_ID);
1213: OPEN C_L_Decis_Factor_Id_Exists (P_LEAD_DECISION_FACTOR_ID);
1214: FETCH C_L_Decis_Factor_Id_Exists into l_val;
1215: IF C_L_Decis_Factor_Id_Exists%FOUND THEN
1216: IF l_debug THEN
1217: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1218: 'Private API24: LEAD_LINE_ID exist');
1219: END IF;
1220:
1221: AS_UTILITY_PVT.Set_Message(
1217: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1218: 'Private API24: LEAD_LINE_ID exist');
1219: END IF;
1220:
1221: AS_UTILITY_PVT.Set_Message(
1222: p_module => l_module,
1223: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1224: p_msg_name => 'API_DUP_DECIS_FACT_ID',
1225: p_token1 => 'COLUMN',
1232: CLOSE C_L_Decis_Factor_Id_Exists;
1233: END IF;
1234:
1235: -- Calling from Update API
1236: ELSIF(p_validation_mode = AS_UTILITY_PVT.G_UPDATE)
1237: THEN
1238: -- validate NOT NULL column
1239: IF (P_LEAD_DECISION_FACTOR_ID is NULL) or (P_LEAD_DECISION_FACTOR_ID = FND_API.G_MISS_NUM)
1240: THEN
1238: -- validate NOT NULL column
1239: IF (P_LEAD_DECISION_FACTOR_ID is NULL) or (P_LEAD_DECISION_FACTOR_ID = FND_API.G_MISS_NUM)
1240: THEN
1241: IF l_debug THEN
1242: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1243: 'Private API25: Violate NOT NULL constraint(LEAD_DECISION_FACTOR_ID)');
1244: END IF;
1245:
1246: AS_UTILITY_PVT.Set_Message(
1242: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1243: 'Private API25: Violate NOT NULL constraint(LEAD_DECISION_FACTOR_ID)');
1244: END IF;
1245:
1246: AS_UTILITY_PVT.Set_Message(
1247: p_module => l_module,
1248: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1249: p_msg_name => 'API_MISSING_ID',
1250: p_token1 => 'COLUMN',
1256: FETCH C_L_Decis_Factor_Id_Exists into l_val;
1257: IF C_L_Decis_Factor_Id_Exists%NOTFOUND
1258: THEN
1259: IF l_debug THEN
1260: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1261: 'Private API26: LEAD_DECISION_FACTOR_ID is not valid');
1262: END IF;
1263:
1264: AS_UTILITY_PVT.Set_Message(
1260: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1261: 'Private API26: LEAD_DECISION_FACTOR_ID is not valid');
1262: END IF;
1263:
1264: AS_UTILITY_PVT.Set_Message(
1265: p_module => l_module,
1266: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1267: p_msg_name => 'API_INVALID_DECIS_FACT_ID',
1268: p_token1 => 'COLUMN',
1290: PROCEDURE Validate_LEAD_LINE_ID (
1291: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1292: P_Validation_mode IN VARCHAR2,
1293: P_LEAD_LINE_ID IN NUMBER,
1294: -- Hint: You may add 'X_Item_Property_Rec OUT AS_UTILITY_PVT.ITEM_PROPERTY_REC_TYPE' here if you'd like to pass back item property.
1295: X_Return_Status OUT NOCOPY VARCHAR2,
1296: X_Msg_Count OUT NOCOPY NUMBER,
1297: X_Msg_Data OUT NOCOPY VARCHAR2
1298: )
1319:
1320: IF (P_LEAD_LINE_ID is NULL) or (P_LEAD_LINE_ID = FND_API.G_MISS_NUM)
1321: THEN
1322: IF l_debug THEN
1323: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1324: 'Private API27: Violate NOT NULL constraint(LEAD_LINE_ID)');
1325: END IF;
1326:
1327:
1324: 'Private API27: Violate NOT NULL constraint(LEAD_LINE_ID)');
1325: END IF;
1326:
1327:
1328: AS_UTILITY_PVT.Set_Message(
1329: p_module => l_module,
1330: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1331: p_msg_name => 'API_MISSING_ID',
1332: p_token1 => 'COLUMN',
1338: FETCH C_Lead_Line_Id_Exists into l_val;
1339: IF C_Lead_Line_Id_Exists%NOTFOUND
1340: THEN
1341: IF l_debug THEN
1342: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1343: 'Private API28: LEAD_LEAD_ID is not valid:' ||
1344: P_LEAD_LINE_ID);
1345: END IF;
1346:
1343: 'Private API28: LEAD_LEAD_ID is not valid:' ||
1344: P_LEAD_LINE_ID);
1345: END IF;
1346:
1347: AS_UTILITY_PVT.Set_Message(
1348: p_module => l_module,
1349: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1350: p_msg_name => 'API_INVALID_OPP_LEAD_LINE_ID',
1351: p_token1 => 'COLUMN',
1370: PROCEDURE Validate_CREATE_BY (
1371: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1372: P_Validation_mode IN VARCHAR2,
1373: P_CREATE_BY IN NUMBER,
1374: -- Hint: You may add 'X_Item_Property_Rec OUT AS_UTILITY_PVT.ITEM_PROPERTY_REC_TYPE' here if you'd like to pass back item property.
1375: X_Return_Status OUT NOCOPY VARCHAR2,
1376: X_Msg_Count OUT NOCOPY NUMBER,
1377: X_Msg_Data OUT NOCOPY VARCHAR2
1378: )
1394: -- validate NOT NULL column
1395: IF(p_CREATE_BY is NULL)
1396: THEN
1397: IF l_debug THEN
1398: AS_UTILITY_PVT.Debug_Message(l_module, 'ERROR', 'Private decision_factor API: -Violate NOT NULL constraint(CREATE_BY)');
1399: END IF;
1400:
1401: x_return_status := FND_API.G_RET_STS_ERROR;
1402: END IF;
1400:
1401: x_return_status := FND_API.G_RET_STS_ERROR;
1402: END IF;
1403:
1404: IF(p_validation_mode = AS_UTILITY_PVT.G_CREATE)
1405: THEN
1406: -- Hint: Validate data
1407: -- IF p_CREATE_BY is not NULL and p_CREATE_BY <> G_MISS_CHAR
1408: -- verify if data is valid
1407: -- IF p_CREATE_BY is not NULL and p_CREATE_BY <> G_MISS_CHAR
1408: -- verify if data is valid
1409: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1410: NULL;
1411: ELSIF(p_validation_mode = AS_UTILITY_PVT.G_UPDATE)
1412: THEN
1413: -- Hint: Validate data
1414: -- IF p_CREATE_BY <> G_MISS_CHAR
1415: -- verify if data is valid
1426: END Validate_CREATE_BY;
1427:
1428:
1429: -- Hint: inter-field level validation can be added here.
1430: -- Hint: If p_validation_mode = AS_UTILITY_PVT.G_VALIDATE_UPDATE, we should use cursor
1431: -- to get old values for all fields used in inter-field validation and set all G_MISS_XXX fields to original value
1432: -- stored in database table.
1433: PROCEDURE Validate_Decision_Factor_rec(
1434: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1459: -- x_return_status := FND_API.G_RET_STS_ERROR;
1460:
1461: -- Debug Message
1462: IF l_debug THEN
1463: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'API_INVALID_RECORD');
1464: END IF;
1465:
1466: -- Standard call to get message count and if count is 1, get message info.
1467: FND_MSG_PUB.Count_And_Get
1489: BEGIN
1490:
1491: -- Debug Message
1492: IF l_debug THEN
1493: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API29: ' || l_api_name || 'start');
1494: END IF;
1495:
1496:
1497:
1512: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1513: raise FND_API.G_EXC_ERROR;
1514: END IF;
1515: IF l_debug THEN
1516: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1517: 'Private API30: Validated DECISION_PRIOR_CODE');
1518: END IF;
1519:
1520:
1532: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1533: raise FND_API.G_EXC_ERROR;
1534: END IF;
1535: IF l_debug THEN
1536: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1537: 'Private API31: Validated DECISION_FACTOR_CODE');
1538: END IF;
1539:
1540:
1550: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1551: raise FND_API.G_EXC_ERROR;
1552: END IF;
1553: IF l_debug THEN
1554: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1555: 'Private API32: Validated LEAD_DECISION_FACTOR_ID');
1556: END IF;
1557:
1558:
1570: raise FND_API.G_EXC_ERROR;
1571: END IF;
1572:
1573: IF l_debug THEN
1574: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,
1575: 'Private API33: Validated LEAD_LINE_ID');
1576: END IF;
1577:
1578:
1608: */
1609:
1610: -- Debug Message
1611: IF l_debug THEN
1612: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API34: ' || l_api_name || 'end');
1613: END IF;
1614:
1615: END Validate_decision_factor;
1616: