13:
14: -- Hint: Primary key needs to be returned.
15: PROCEDURE Create_obstacles(
16: P_Api_Version_Number IN NUMBER,
17: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
18: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
19: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
20: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
21: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
14: -- Hint: Primary key needs to be returned.
15: PROCEDURE Create_obstacles(
16: P_Api_Version_Number IN NUMBER,
17: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
18: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
19: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
20: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
21: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
22: P_Admin_Group_Id IN NUMBER,
15: PROCEDURE Create_obstacles(
16: P_Api_Version_Number IN NUMBER,
17: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
18: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
19: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
20: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
21: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
22: P_Admin_Group_Id IN NUMBER,
23: P_Identity_Salesforce_Id IN VARCHAR2 := FND_API.G_FALSE,
16: P_Api_Version_Number IN NUMBER,
17: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
18: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
19: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
20: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
21: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
22: P_Admin_Group_Id IN NUMBER,
23: P_Identity_Salesforce_Id IN VARCHAR2 := FND_API.G_FALSE,
24: P_profile_tbl IN AS_UTILITY_PUB.PROFILE_TBL_TYPE,
17: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
18: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
19: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
20: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
21: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
22: P_Admin_Group_Id IN NUMBER,
23: P_Identity_Salesforce_Id IN VARCHAR2 := FND_API.G_FALSE,
24: P_profile_tbl IN AS_UTILITY_PUB.PROFILE_TBL_TYPE,
25: p_partner_cont_party_id IN NUMBER := FND_API.G_MISS_NUM,
19: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
20: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
21: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
22: P_Admin_Group_Id IN NUMBER,
23: P_Identity_Salesforce_Id IN VARCHAR2 := FND_API.G_FALSE,
24: P_profile_tbl IN AS_UTILITY_PUB.PROFILE_TBL_TYPE,
25: p_partner_cont_party_id IN NUMBER := FND_API.G_MISS_NUM,
26: P_Obstacle_tbl IN AS_OPPORTUNITY_PUB.Obstacle_tbl_Type := AS_OPPORTUNITY_PUB.G_MISS_Obstacle_tbl,
27: --Hint: Add detail tables as parameter lists if it's master-detail relationship.
21: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
22: P_Admin_Group_Id IN NUMBER,
23: P_Identity_Salesforce_Id IN VARCHAR2 := FND_API.G_FALSE,
24: P_profile_tbl IN AS_UTILITY_PUB.PROFILE_TBL_TYPE,
25: p_partner_cont_party_id IN NUMBER := FND_API.G_MISS_NUM,
26: P_Obstacle_tbl IN AS_OPPORTUNITY_PUB.Obstacle_tbl_Type := AS_OPPORTUNITY_PUB.G_MISS_Obstacle_tbl,
27: --Hint: Add detail tables as parameter lists if it's master-detail relationship.
28: X_LEAD_OBSTACLE_out_tbl OUT NOCOPY AS_OPPORTUNITY_PUB.obstacle_out_tbl_type,
29: X_Return_Status OUT NOCOPY VARCHAR2,
47: -- Standard Start of API savepoint
48: SAVEPOINT CREATE_OBSTACLES_PVT;
49:
50: -- Standard call to check for call compatibility.
51: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
52: p_api_version_number,
53: l_api_name,
54: G_PKG_NAME)
55: THEN
52: p_api_version_number,
53: l_api_name,
54: G_PKG_NAME)
55: THEN
56: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
57: END IF;
58:
59:
60: -- Initialize message list if p_init_msg_list is set to TRUE.
57: END IF;
58:
59:
60: -- Initialize message list if p_init_msg_list is set to TRUE.
61: IF FND_API.to_Boolean( p_init_msg_list )
62: THEN
63: FND_MSG_PUB.initialize;
64: END IF;
65:
71:
72:
73:
74: -- Initialize API return status to SUCCESS
75: x_return_status := FND_API.G_RET_STS_SUCCESS;
76:
77: --
78: -- API body
79: --
84: IF(FND_PROFILE.VALUE('AS_PRE_CUSTOM_ENABLED')='Y')
85: THEN
86: AS_CALLOUT_PKG.Create_obstacle_BC(
87: p_api_version_number => 2.0,
88: p_init_msg_list => FND_API.G_FALSE,
89: p_commit => FND_API.G_FALSE,
90: p_validation_level => p_validation_level,
91: P_Obstacle_Rec => P_Obstacle_Rec,
92: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
85: THEN
86: AS_CALLOUT_PKG.Create_obstacle_BC(
87: p_api_version_number => 2.0,
88: p_init_msg_list => FND_API.G_FALSE,
89: p_commit => FND_API.G_FALSE,
90: p_validation_level => p_validation_level,
91: P_Obstacle_Rec => P_Obstacle_Rec,
92: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
93: x_return_status => x_return_status,
105: FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
106: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
107: FND_MSG_PUB.ADD;
108: END IF;
109: RAISE FND_API.G_EXC_ERROR;
110: END IF;
111:
112:
113: IF ( P_validation_level = FND_API.G_VALID_LEVEL_FULL) THEN
109: RAISE FND_API.G_EXC_ERROR;
110: END IF;
111:
112:
113: IF ( P_validation_level = FND_API.G_VALID_LEVEL_FULL) THEN
114: AS_SALES_ORG_MANAGER_PVT.Get_CurrentUser(
115: p_api_version_number => 2.0
116: ,p_init_msg_list => p_init_msg_list
117: ,p_salesforce_id => p_identity_salesforce_id
121: ,x_msg_data => x_msg_data
122: ,x_sales_member_rec => l_identity_sales_member_rec);
123: END IF;
124:
125: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
126: RAISE FND_API.G_EXC_ERROR;
127: END IF;
128:
129: -- Call Get_Access_Profiles to get access_profile_rec
122: ,x_sales_member_rec => l_identity_sales_member_rec);
123: END IF;
124:
125: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
126: RAISE FND_API.G_EXC_ERROR;
127: END IF;
128:
129: -- Call Get_Access_Profiles to get access_profile_rec
130: AS_OPPORTUNITY_PUB.Get_Access_Profiles(
155: AS_UTILITY_PVT.Set_Message(l_module, FND_MSG_PUB.G_MSG_LVL_ERROR,
156: 'API_NO_UPDATE_PRIVILEGE');
157: END IF;
158:
159: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
160: RAISE FND_API.G_EXC_ERROR;
161: END IF;
162:
163:
156: 'API_NO_UPDATE_PRIVILEGE');
157: END IF;
158:
159: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
160: RAISE FND_API.G_EXC_ERROR;
161: END IF;
162:
163:
164: -- Invoke table handler(AS_LEAD_OBSTACLES_PKG.Insert_Row)
163:
164: -- Invoke table handler(AS_LEAD_OBSTACLES_PKG.Insert_Row)
165: FOR I in 1 .. P_OBSTACLE_tbl.count LOOP
166:
167: X_LEAD_OBSTACLE_out_tbl(I).return_status := FND_API.G_RET_STS_SUCCESS;
168: l_LEAD_OBSTACLE_ID := P_OBSTACLE_Tbl(I).LEAD_OBSTACLE_ID;
169:
170: -- Progress Message
171: --
178: END IF;
179:
180: l_OBSTACLE_rec := P_OBSTACLE_Tbl(I);
181:
182: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
183: THEN
184: -- Debug message
185: IF l_debug THEN
186: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: Validate_obstacle');
188:
189:
190: -- Invoke validation procedures
191: Validate_obstacle(
192: p_init_msg_list => FND_API.G_FALSE,
193: p_validation_level => p_validation_level,
194: p_validation_mode => AS_UTILITY_PVT.G_CREATE,
195: P_Obstacle_Rec => l_Obstacle_Rec,
196: x_return_status => x_return_status,
197: x_msg_count => x_msg_count,
198: x_msg_data => x_msg_data);
199: END IF;
200:
201: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
202: RAISE FND_API.G_EXC_ERROR;
203: END IF;
204:
205: -- Hint: Add corresponding Master-Detail business logic here if necessary.
198: x_msg_data => x_msg_data);
199: END IF;
200:
201: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
202: RAISE FND_API.G_EXC_ERROR;
203: END IF;
204:
205: -- Hint: Add corresponding Master-Detail business logic here if necessary.
206:
248:
249: X_LEAD_OBSTACLE_out_tbl(I).LEAD_OBSTACLE_ID := l_LEAD_OBSTACLE_ID;
250: X_LEAD_OBSTACLE_out_tbl(I).return_status := x_return_status;
251:
252: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
253: RAISE FND_API.G_EXC_ERROR;
254: END IF;
255:
256:
249: X_LEAD_OBSTACLE_out_tbl(I).LEAD_OBSTACLE_ID := l_LEAD_OBSTACLE_ID;
250: X_LEAD_OBSTACLE_out_tbl(I).return_status := x_return_status;
251:
252: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
253: RAISE FND_API.G_EXC_ERROR;
254: END IF;
255:
256:
257: END LOOP;
259: -- End of API body
260: --
261:
262: -- Standard check for p_commit
263: IF FND_API.to_Boolean( p_commit )
264: THEN
265: COMMIT WORK;
266: END IF;
267:
285: IF(FND_PROFILE.VALUE('AS_POST_CUSTOM_ENABLED')='Y')
286: THEN
287: AS_CALLOUT_PKG.Create_obstacle_AC(
288: p_api_version_number => 2.0,
289: p_init_msg_list => FND_API.G_FALSE,
290: p_commit => FND_API.G_FALSE,
291: p_validation_level => p_validation_level,
292: P_Obstacle_Rec => P_Obstacle_Rec,
293: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
286: THEN
287: AS_CALLOUT_PKG.Create_obstacle_AC(
288: p_api_version_number => 2.0,
289: p_init_msg_list => FND_API.G_FALSE,
290: p_commit => FND_API.G_FALSE,
291: p_validation_level => p_validation_level,
292: P_Obstacle_Rec => P_Obstacle_Rec,
293: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
294: x_return_status => x_return_status,
315: ,X_MSG_DATA => X_MSG_DATA
316: ,X_RETURN_STATUS => X_RETURN_STATUS);
317:
318:
319: WHEN FND_API.G_EXC_ERROR THEN
320: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
321: P_MODULE => l_module
322: ,P_API_NAME => L_API_NAME
323: ,P_PKG_NAME => G_PKG_NAME
326: ,X_MSG_COUNT => X_MSG_COUNT
327: ,X_MSG_DATA => X_MSG_DATA
328: ,X_RETURN_STATUS => X_RETURN_STATUS);
329:
330: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
331: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
332: P_MODULE => l_module
333: ,P_API_NAME => L_API_NAME
334: ,P_PKG_NAME => G_PKG_NAME
353:
354: -- Hint: Add corresponding update detail table procedures if it's master-detail relationship.
355: PROCEDURE Update_obstacles(
356: P_Api_Version_Number IN NUMBER,
357: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
358: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
359: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
360: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
361: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
354: -- Hint: Add corresponding update detail table procedures if it's master-detail relationship.
355: PROCEDURE Update_obstacles(
356: P_Api_Version_Number IN NUMBER,
357: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
358: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
359: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
360: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
361: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
362: P_Admin_Group_Id IN NUMBER,
355: PROCEDURE Update_obstacles(
356: P_Api_Version_Number IN NUMBER,
357: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
358: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
359: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
360: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
361: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
362: P_Admin_Group_Id IN NUMBER,
363: P_Identity_Salesforce_Id IN NUMBER,
356: P_Api_Version_Number IN NUMBER,
357: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
358: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
359: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
360: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
361: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
362: P_Admin_Group_Id IN NUMBER,
363: P_Identity_Salesforce_Id IN NUMBER,
364: P_profile_tbl IN AS_UTILITY_PUB.PROFILE_TBL_TYPE,
357: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
358: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
359: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
360: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
361: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
362: P_Admin_Group_Id IN NUMBER,
363: P_Identity_Salesforce_Id IN NUMBER,
364: P_profile_tbl IN AS_UTILITY_PUB.PROFILE_TBL_TYPE,
365: p_partner_cont_party_id IN NUMBER := FND_API.G_MISS_NUM,
361: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
362: P_Admin_Group_Id IN NUMBER,
363: P_Identity_Salesforce_Id IN NUMBER,
364: P_profile_tbl IN AS_UTILITY_PUB.PROFILE_TBL_TYPE,
365: p_partner_cont_party_id IN NUMBER := FND_API.G_MISS_NUM,
366: P_Obstacle_tbl IN AS_OPPORTUNITY_PUB.Obstacle_tbl_type,
367: X_LEAD_OBSTACLE_out_tbl OUT NOCOPY AS_OPPORTUNITY_PUB.obstacle_out_tbl_type,
368: X_Return_Status OUT NOCOPY VARCHAR2,
369: X_Msg_Count OUT NOCOPY NUMBER,
427: -- Standard Start of API savepoint
428: SAVEPOINT UPDATE_OBSTACLES_PVT;
429:
430: -- Standard call to check for call compatibility.
431: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
432: p_api_version_number,
433: l_api_name,
434: G_PKG_NAME)
435: THEN
432: p_api_version_number,
433: l_api_name,
434: G_PKG_NAME)
435: THEN
436: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
437: END IF;
438:
439:
440: -- Initialize message list if p_init_msg_list is set to TRUE.
437: END IF;
438:
439:
440: -- Initialize message list if p_init_msg_list is set to TRUE.
441: IF FND_API.to_Boolean( p_init_msg_list )
442: THEN
443: FND_MSG_PUB.initialize;
444: END IF;
445:
451:
452:
453:
454: -- Initialize API return status to SUCCESS
455: x_return_status := FND_API.G_RET_STS_SUCCESS;
456:
457: --
458: -- Api body
459: --
463: IF(FND_PROFILE.VALUE('AS_PRE_CUSTOM_ENABLED')='Y')
464: THEN
465: AS_CALLOUT_PKG.Update_obstacle_BU(
466: p_api_version_number => 2.0,
467: p_init_msg_list => FND_API.G_FALSE,
468: p_commit => FND_API.G_FALSE,
469: p_validation_level => p_validation_level,
470: p_identity_salesforce_id => p_identity_salesforce_id,
471: P_Obstacle_Rec => P_Obstacle_Rec,
464: THEN
465: AS_CALLOUT_PKG.Update_obstacle_BU(
466: p_api_version_number => 2.0,
467: p_init_msg_list => FND_API.G_FALSE,
468: p_commit => FND_API.G_FALSE,
469: p_validation_level => p_validation_level,
470: p_identity_salesforce_id => p_identity_salesforce_id,
471: P_Obstacle_Rec => P_Obstacle_Rec,
472: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
475: x_msg_data => x_msg_data);
476: END IF;
477: */
478:
479: IF ( P_validation_level = FND_API.G_VALID_LEVEL_FULL) THEN
480: AS_SALES_ORG_MANAGER_PVT.Get_CurrentUser(
481: p_api_version_number => 2.0
482: ,p_init_msg_list => p_init_msg_list
483: ,p_salesforce_id => p_identity_salesforce_id
487: ,x_msg_data => x_msg_data
488: ,x_sales_member_rec => l_identity_sales_member_rec);
489: END IF;
490:
491: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
492: RAISE FND_API.G_EXC_ERROR;
493: END IF;
494:
495: -- Call Get_Access_Profiles to get access_profile_rec
488: ,x_sales_member_rec => l_identity_sales_member_rec);
489: END IF;
490:
491: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
492: RAISE FND_API.G_EXC_ERROR;
493: END IF;
494:
495: -- Call Get_Access_Profiles to get access_profile_rec
496: AS_OPPORTUNITY_PUB.Get_Access_Profiles(
521: AS_UTILITY_PVT.Set_Message(l_module, FND_MSG_PUB.G_MSG_LVL_ERROR,
522: 'API_NO_UPDATE_PRIVILEGE');
523: END IF;
524:
525: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
526: RAISE FND_API.G_EXC_ERROR;
527: END IF;
528:
529: FOR I in 1 .. P_Obstacle_tbl.count LOOP
522: 'API_NO_UPDATE_PRIVILEGE');
523: END IF;
524:
525: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
526: RAISE FND_API.G_EXC_ERROR;
527: END IF;
528:
529: FOR I in 1 .. P_Obstacle_tbl.count LOOP
530:
528:
529: FOR I in 1 .. P_Obstacle_tbl.count LOOP
530:
531: l_tar_Obstacle_rec := P_Obstacle_tbl(I);
532: X_LEAD_OBSTACLE_out_tbl(I).return_status := FND_API.G_RET_STS_SUCCESS;
533:
534: -- Progress Message
535: --
536: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
592: FND_MESSAGE.Set_Name('AS', 'API_MISSING_UPDATE_TARGET');
593: FND_MESSAGE.Set_Token ('INFO', 'obstacle', FALSE);
594: FND_MSG_PUB.Add;
595: END IF;
596: raise FND_API.G_EXC_ERROR;
597: END IF;
598: -- Debug Message
599: IF l_debug THEN
600: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: - Close Cursor');
602:
603: Close C_Get_obstacle;
604:
605: If (l_tar_Obstacle_rec.last_update_date is NULL or
606: l_tar_Obstacle_rec.last_update_date = FND_API.G_MISS_Date ) Then
607: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
608: THEN
609: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
610: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
609: FND_MESSAGE.Set_Name('AS', 'API_MISSING_ID');
610: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
611: FND_MSG_PUB.ADD;
612: END IF;
613: raise FND_API.G_EXC_ERROR;
614: End if;
615: -- Check Whether record has been changed by someone else
616: If (l_tar_Obstacle_rec.last_update_date <> l_ref_Obstacle_rec.last_update_date) Then
617: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
619: FND_MESSAGE.Set_Name('AS', 'API_RECORD_CHANGED');
620: FND_MESSAGE.Set_Token('INFO', 'obstacle', FALSE);
621: FND_MSG_PUB.ADD;
622: END IF;
623: raise FND_API.G_EXC_ERROR;
624: End if;
625:
626: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
627: THEN
622: END IF;
623: raise FND_API.G_EXC_ERROR;
624: End if;
625:
626: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
627: THEN
628: -- Debug message
629: IF l_debug THEN
630: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: Validate_obstacle');
632:
633:
634: -- Invoke validation procedures
635: Validate_obstacle(
636: p_init_msg_list => FND_API.G_FALSE,
637: p_validation_level => p_validation_level,
638: p_validation_mode => AS_UTILITY_PVT.G_UPDATE,
639: P_Obstacle_Rec => l_Obstacle_Rec,
640: x_return_status => x_return_status,
641: x_msg_count => x_msg_count,
642: x_msg_data => x_msg_data);
643: END IF;
644:
645: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
646: RAISE FND_API.G_EXC_ERROR;
647: END IF;
648:
649: -- Hint: Add corresponding Master-Detail business logic here if necessary.
642: x_msg_data => x_msg_data);
643: END IF;
644:
645: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
646: RAISE FND_API.G_EXC_ERROR;
647: END IF;
648:
649: -- Hint: Add corresponding Master-Detail business logic here if necessary.
650:
691:
692: X_LEAD_OBSTACLE_out_tbl(I).LEAD_OBSTACLE_ID := p_Obstacle_tbl(I).LEAD_OBSTACLE_ID;
693: X_LEAD_OBSTACLE_out_tbl(I).return_status := x_return_status;
694:
695: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
696: RAISE FND_API.G_EXC_ERROR;
697: END IF;
698:
699: END LOOP;
692: X_LEAD_OBSTACLE_out_tbl(I).LEAD_OBSTACLE_ID := p_Obstacle_tbl(I).LEAD_OBSTACLE_ID;
693: X_LEAD_OBSTACLE_out_tbl(I).return_status := x_return_status;
694:
695: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
696: RAISE FND_API.G_EXC_ERROR;
697: END IF;
698:
699: END LOOP;
700: --
701: -- End of API body.
702: --
703:
704: -- Standard check for p_commit
705: IF FND_API.to_Boolean( p_commit )
706: THEN
707: COMMIT WORK;
708: END IF;
709:
727: IF(FND_PROFILE.VALUE('AS_POST_CUSTOM_ENABLED')='Y')
728: THEN
729: AS_CALLOUT_PKG.Update_obstacle_AU(
730: p_api_version_number => 2.0,
731: p_init_msg_list => FND_API.G_FALSE,
732: p_commit => FND_API.G_FALSE,
733: p_validation_level => p_validation_level,
734: p_identity_salesforce_id => p_identity_salesforce_id,
735: P_Obstacle_Rec => P_Obstacle_Rec,
728: THEN
729: AS_CALLOUT_PKG.Update_obstacle_AU(
730: p_api_version_number => 2.0,
731: p_init_msg_list => FND_API.G_FALSE,
732: p_commit => FND_API.G_FALSE,
733: p_validation_level => p_validation_level,
734: p_identity_salesforce_id => p_identity_salesforce_id,
735: P_Obstacle_Rec => P_Obstacle_Rec,
736: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
757: ,X_MSG_DATA => X_MSG_DATA
758: ,X_RETURN_STATUS => X_RETURN_STATUS);
759:
760:
761: WHEN FND_API.G_EXC_ERROR THEN
762: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
763: P_MODULE => l_module
764: ,P_API_NAME => L_API_NAME
765: ,P_PKG_NAME => G_PKG_NAME
768: ,X_MSG_COUNT => X_MSG_COUNT
769: ,X_MSG_DATA => X_MSG_DATA
770: ,X_RETURN_STATUS => X_RETURN_STATUS);
771:
772: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
773: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
774: P_MODULE => l_module
775: ,P_API_NAME => L_API_NAME
776: ,P_PKG_NAME => G_PKG_NAME
796: -- Hint: Add corresponding delete detail table procedures if it's master-detail relationship.
797: -- The Master delete procedure may not be needed depends on different business requirements.
798: PROCEDURE Delete_obstacles(
799: P_Api_Version_Number IN NUMBER,
800: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
801: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
802: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
803: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
804: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
797: -- The Master delete procedure may not be needed depends on different business requirements.
798: PROCEDURE Delete_obstacles(
799: P_Api_Version_Number IN NUMBER,
800: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
801: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
802: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
803: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
804: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
805: P_Admin_Group_Id IN NUMBER,
798: PROCEDURE Delete_obstacles(
799: P_Api_Version_Number IN NUMBER,
800: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
801: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
802: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
803: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
804: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
805: P_Admin_Group_Id IN NUMBER,
806: P_profile_tbl IN AS_UTILITY_PUB.PROFILE_TBL_TYPE,
799: P_Api_Version_Number IN NUMBER,
800: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
801: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
802: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
803: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
804: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
805: P_Admin_Group_Id IN NUMBER,
806: P_profile_tbl IN AS_UTILITY_PUB.PROFILE_TBL_TYPE,
807: P_identity_salesforce_id IN NUMBER := NULL,
800: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
801: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
802: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
803: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
804: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
805: P_Admin_Group_Id IN NUMBER,
806: P_profile_tbl IN AS_UTILITY_PUB.PROFILE_TBL_TYPE,
807: P_identity_salesforce_id IN NUMBER := NULL,
808: p_partner_cont_party_id IN NUMBER := FND_API.G_MISS_NUM,
804: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
805: P_Admin_Group_Id IN NUMBER,
806: P_profile_tbl IN AS_UTILITY_PUB.PROFILE_TBL_TYPE,
807: P_identity_salesforce_id IN NUMBER := NULL,
808: p_partner_cont_party_id IN NUMBER := FND_API.G_MISS_NUM,
809: P_Obstacle_tbl IN AS_OPPORTUNITY_PUB.Obstacle_tbl_type,
810: X_LEAD_OBSTACLE_out_tbl OUT NOCOPY AS_OPPORTUNITY_PUB.obstacle_out_tbl_type,
811: X_Return_Status OUT NOCOPY VARCHAR2,
812: X_Msg_Count OUT NOCOPY NUMBER,
826: -- Standard Start of API savepoint
827: SAVEPOINT DELETE_OBSTACLES_PVT;
828:
829: -- Standard call to check for call compatibility.
830: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
831: p_api_version_number,
832: l_api_name,
833: G_PKG_NAME)
834: THEN
831: p_api_version_number,
832: l_api_name,
833: G_PKG_NAME)
834: THEN
835: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
836: END IF;
837:
838:
839: -- Initialize message list if p_init_msg_list is set to TRUE.
836: END IF;
837:
838:
839: -- Initialize message list if p_init_msg_list is set to TRUE.
840: IF FND_API.to_Boolean( p_init_msg_list )
841: THEN
842: FND_MSG_PUB.initialize;
843: END IF;
844:
849: END IF;
850:
851:
852: -- Initialize API return status to SUCCESS
853: x_return_status := FND_API.G_RET_STS_SUCCESS;
854:
855: --
856: -- Api body
857: --
861: IF(FND_PROFILE.VALUE('AS_PRE_CUSTOM_ENABLED')='Y')
862: THEN
863: AS_CALLOUT_PKG.Delete_obstacle_BD(
864: p_api_version_number => 2.0,
865: p_init_msg_list => FND_API.G_FALSE,
866: p_commit => FND_API.G_FALSE,
867: p_validation_level => p_validation_level,
868: p_identity_salesforce_id => p_identity_salesforce_id,
869: P_Obstacle_Rec => P_Obstacle_Rec,
862: THEN
863: AS_CALLOUT_PKG.Delete_obstacle_BD(
864: p_api_version_number => 2.0,
865: p_init_msg_list => FND_API.G_FALSE,
866: p_commit => FND_API.G_FALSE,
867: p_validation_level => p_validation_level,
868: p_identity_salesforce_id => p_identity_salesforce_id,
869: P_Obstacle_Rec => P_Obstacle_Rec,
870: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
873: x_msg_data => x_msg_data);
874: END IF;
875: */
876:
877: IF ( P_validation_level = FND_API.G_VALID_LEVEL_FULL) THEN
878: AS_SALES_ORG_MANAGER_PVT.Get_CurrentUser(
879: p_api_version_number => 2.0
880: ,p_init_msg_list => p_init_msg_list
881: ,p_salesforce_id => p_identity_salesforce_id
885: ,x_msg_data => x_msg_data
886: ,x_sales_member_rec => l_identity_sales_member_rec);
887: END IF;
888:
889: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
890: RAISE FND_API.G_EXC_ERROR;
891: END IF;
892:
893: -- Call Get_Access_Profiles to get access_profile_rec
886: ,x_sales_member_rec => l_identity_sales_member_rec);
887: END IF;
888:
889: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
890: RAISE FND_API.G_EXC_ERROR;
891: END IF;
892:
893: -- Call Get_Access_Profiles to get access_profile_rec
894: AS_OPPORTUNITY_PUB.Get_Access_Profiles(
919: AS_UTILITY_PVT.Set_Message(l_module, FND_MSG_PUB.G_MSG_LVL_ERROR,
920: 'API_NO_UPDATE_PRIVILEGE');
921: END IF;
922:
923: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
924: RAISE FND_API.G_EXC_ERROR;
925: END IF;
926:
927:
920: 'API_NO_UPDATE_PRIVILEGE');
921: END IF;
922:
923: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
924: RAISE FND_API.G_EXC_ERROR;
925: END IF;
926:
927:
928: -- Invoke table handler(AS_LEAD_OBSTACLES_PKG.Delete_Row)
927:
928: -- Invoke table handler(AS_LEAD_OBSTACLES_PKG.Delete_Row)
929: FOR I in 1 .. P_Obstacle_tbl.count LOOP
930:
931: X_LEAD_OBSTACLE_out_tbl(I).return_status := FND_API.G_RET_STS_SUCCESS;
932:
933: -- Progress Message
934: --
935: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
951:
952: X_LEAD_OBSTACLE_out_tbl(I).LEAD_OBSTACLE_ID := p_Obstacle_tbl(I).LEAD_OBSTACLE_ID;
953: X_LEAD_OBSTACLE_out_tbl(I).return_status := x_return_status;
954:
955: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
956: RAISE FND_API.G_EXC_ERROR;
957: END IF;
958:
959: END LOOP;
952: X_LEAD_OBSTACLE_out_tbl(I).LEAD_OBSTACLE_ID := p_Obstacle_tbl(I).LEAD_OBSTACLE_ID;
953: X_LEAD_OBSTACLE_out_tbl(I).return_status := x_return_status;
954:
955: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
956: RAISE FND_API.G_EXC_ERROR;
957: END IF;
958:
959: END LOOP;
960: --
961: -- End of API body
962: --
963:
964: -- Standard check for p_commit
965: IF FND_API.to_Boolean( p_commit )
966: THEN
967: COMMIT WORK;
968: END IF;
969:
987: IF(FND_PROFILE.VALUE('AS_POST_CUSTOM_ENABLED')='Y')
988: THEN
989: AS_CALLOUT_PKG.Delete_obstacle_AD(
990: p_api_version_number => 2.0,
991: p_init_msg_list => FND_API.G_FALSE,
992: p_commit => FND_API.G_FALSE,
993: p_validation_level => p_validation_level,
994: p_identity_salesforce_id => p_identity_salesforce_id,
995: P_Obstacle_Rec => P_Obstacle_Rec,
988: THEN
989: AS_CALLOUT_PKG.Delete_obstacle_AD(
990: p_api_version_number => 2.0,
991: p_init_msg_list => FND_API.G_FALSE,
992: p_commit => FND_API.G_FALSE,
993: p_validation_level => p_validation_level,
994: p_identity_salesforce_id => p_identity_salesforce_id,
995: P_Obstacle_Rec => P_Obstacle_Rec,
996: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
999: x_msg_data => x_msg_data);
1000: END IF;
1001: */
1002: EXCEPTION
1003: WHEN FND_API.G_EXC_ERROR THEN
1004: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
1005: P_MODULE => l_module
1006: ,P_API_NAME => L_API_NAME
1007: ,P_PKG_NAME => G_PKG_NAME
1010: ,X_MSG_COUNT => X_MSG_COUNT
1011: ,X_MSG_DATA => X_MSG_DATA
1012: ,X_RETURN_STATUS => X_RETURN_STATUS);
1013:
1014: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1015: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
1016: P_MODULE => l_module
1017: ,P_API_NAME => L_API_NAME
1018: ,P_PKG_NAME => G_PKG_NAME
1038:
1039:
1040: -- Item-level validation procedures
1041: PROCEDURE Validate_LEAD_OBSTACLE_ID (
1042: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1043: P_Validation_mode IN VARCHAR2,
1044: P_LEAD_OBSTACLE_ID IN NUMBER,
1045: -- 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.
1046: X_Return_Status OUT NOCOPY VARCHAR2,
1058:
1059: BEGIN
1060:
1061: -- Initialize message list if p_init_msg_list is set to TRUE.
1062: IF FND_API.to_Boolean( p_init_msg_list )
1063: THEN
1064: FND_MSG_PUB.initialize;
1065: END IF;
1066:
1065: END IF;
1066:
1067:
1068: -- Initialize API return status to SUCCESS
1069: x_return_status := FND_API.G_RET_STS_SUCCESS;
1070:
1071: IF(p_validation_mode = AS_UTILITY_PVT.G_CREATE)
1072: THEN
1073:
1070:
1071: IF(p_validation_mode = AS_UTILITY_PVT.G_CREATE)
1072: THEN
1073:
1074: IF (p_LEAD_OBSTACLE_ID is not NULL) and (p_LEAD_OBSTACLE_ID <> FND_API.G_MISS_NUM)
1075: THEN
1076: OPEN C_Lead_Obstacle_Id_Exists (p_Lead_Obstacle_Id);
1077: FETCH C_Lead_Obstacle_Id_Exists into l_val;
1078:
1081: p_module => l_module,
1082: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1083: p_msg_name => 'API_DUPLICATE_LEAD_OBSTACLE_ID');
1084:
1085: x_return_status := FND_API.G_RET_STS_ERROR;
1086: END IF;
1087:
1088: CLOSE C_Lead_Obstacle_Id_Exists;
1089: END IF;
1090:
1091: ELSIF(p_validation_mode = AS_UTILITY_PVT.G_UPDATE)
1092: THEN
1093:
1094: IF (p_LEAD_OBSTACLE_ID is NULL) or (p_LEAD_OBSTACLE_ID = FND_API.G_MISS_NUM)
1095: THEN
1096: AS_UTILITY_PVT.Set_Message(
1097: p_module => l_module,
1098: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1097: p_module => l_module,
1098: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1099: p_msg_name => 'API_MISSING_LEAD_OBSTACLE_ID');
1100:
1101: x_return_status := FND_API.G_RET_STS_ERROR;
1102: ELSE
1103: OPEN C_Lead_Obstacle_Id_Exists (p_Lead_Obstacle_Id);
1104: FETCH C_Lead_Obstacle_Id_Exists into l_val;
1105:
1111: p_msg_name => 'API_INVALID_LEAD_OBSTACLE_ID',
1112: p_token1 => 'VALUE',
1113: p_token1_value => p_LEAD_OBSTACLE_ID );
1114:
1115: x_return_status := FND_API.G_RET_STS_ERROR;
1116: END IF;
1117:
1118: CLOSE C_Lead_Obstacle_Id_Exists;
1119: END IF;
1129: END Validate_LEAD_OBSTACLE_ID;
1130:
1131:
1132: PROCEDURE Validate_LEAD_ID (
1133: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1134: P_Validation_mode IN VARCHAR2,
1135: P_LEAD_ID IN NUMBER,
1136: -- 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.
1137: X_Return_Status OUT NOCOPY VARCHAR2,
1150:
1151: BEGIN
1152:
1153: -- Initialize message list if p_init_msg_list is set to TRUE.
1154: IF FND_API.to_Boolean( p_init_msg_list )
1155: THEN
1156: FND_MSG_PUB.initialize;
1157: END IF;
1158:
1157: END IF;
1158:
1159:
1160: -- Initialize API return status to SUCCESS
1161: x_return_status := FND_API.G_RET_STS_SUCCESS;
1162:
1163: -- validate NOT NULL column
1164: IF(p_LEAD_ID is NULL)
1165: THEN
1168: 'ERROR',
1169: 'Private obstacle API: -Violate NOT NULL constraint(LEAD_ID)');
1170: END IF;
1171:
1172: x_return_status := FND_API.G_RET_STS_ERROR;
1173: END IF;
1174:
1175: IF (p_LEAD_ID is NULL) or (p_LEAD_ID = FND_API.G_MISS_NUM)
1176: THEN
1171:
1172: x_return_status := FND_API.G_RET_STS_ERROR;
1173: END IF;
1174:
1175: IF (p_LEAD_ID is NULL) or (p_LEAD_ID = FND_API.G_MISS_NUM)
1176: THEN
1177: AS_UTILITY_PVT.Set_Message(
1178: p_module => l_module,
1179: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1178: p_module => l_module,
1179: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
1180: p_msg_name => 'API_MISSING_LEAD_ID');
1181:
1182: x_return_status := FND_API.G_RET_STS_ERROR;
1183: ELSE
1184: OPEN C_Lead_Id_Exists (p_Lead_Id);
1185: FETCH C_Lead_Id_Exists into l_val;
1186:
1192: p_msg_name => 'API_INVALID_LEAD_ID',
1193: p_token1 => 'VALUE',
1194: p_token1_value => p_LEAD_ID );
1195:
1196: x_return_status := FND_API.G_RET_STS_ERROR;
1197: END IF;
1198:
1199: CLOSE C_Lead_Id_Exists;
1200: END IF;
1208: END Validate_LEAD_ID;
1209:
1210:
1211: PROCEDURE Validate_OBSTACLE_CODE (
1212: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1213: P_Validation_mode IN VARCHAR2,
1214: P_OBSTACLE_CODE IN VARCHAR2,
1215: -- 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.
1216: X_Return_Status OUT NOCOPY VARCHAR2,
1231: l_module CONSTANT VARCHAR2(255) := 'as.plsql.lobpv.Validate_OBSTACLE_CODE';
1232: BEGIN
1233:
1234: -- Initialize message list if p_init_msg_list is set to TRUE.
1235: IF FND_API.to_Boolean( p_init_msg_list )
1236: THEN
1237: FND_MSG_PUB.initialize;
1238: END IF;
1239:
1238: END IF;
1239:
1240:
1241: -- Initialize API return status to SUCCESS
1242: x_return_status := FND_API.G_RET_STS_SUCCESS;
1243:
1244: IF(p_OBSTACLE_CODE is NOT NULL) and (p_OBSTACLE_CODE <> FND_API.G_MISS_CHAR)
1245: THEN
1246: -- OBSTACLE_CODE should exist in as_lookups
1240:
1241: -- Initialize API return status to SUCCESS
1242: x_return_status := FND_API.G_RET_STS_SUCCESS;
1243:
1244: IF(p_OBSTACLE_CODE is NOT NULL) and (p_OBSTACLE_CODE <> FND_API.G_MISS_CHAR)
1245: THEN
1246: -- OBSTACLE_CODE should exist in as_lookups
1247: OPEN C_OBSTACLE_CODE_Exists ('ISSUE', p_OBSTACLE_CODE);
1248: FETCH C_OBSTACLE_CODE_Exists into l_val;
1257: p_msg_name => 'API_INVALID_OBSTACLE_CODE',
1258: p_token1 => 'VALUE',
1259: p_token1_value => p_OBSTACLE_CODE );
1260:
1261: x_return_status := FND_API.G_RET_STS_ERROR;
1262: END IF;
1263:
1264: CLOSE C_OBSTACLE_CODE_Exists;
1265: END IF;
1277: -- Hint: If p_validation_mode = AS_UTILITY_PVT.G_VALIDATE_UPDATE, we should use cursor
1278: -- to get old values for all fields used in inter-field validation and set all G_MISS_XXX fields to original value
1279: -- stored in database table.
1280: PROCEDURE Validate_Obstacle_rec(
1281: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1282: P_Validation_mode IN VARCHAR2,
1283: P_Obstacle_Rec IN AS_OPPORTUNITY_PUB.Obstacle_Rec_Type,
1284: X_Return_Status OUT NOCOPY VARCHAR2,
1285: X_Msg_Count OUT NOCOPY NUMBER,
1290: l_module CONSTANT VARCHAR2(255) := 'as.plsql.lobpv.Validate_Obstacle_rec';
1291: BEGIN
1292:
1293: -- Initialize message list if p_init_msg_list is set to TRUE.
1294: IF FND_API.to_Boolean( p_init_msg_list )
1295: THEN
1296: FND_MSG_PUB.initialize;
1297: END IF;
1298:
1297: END IF;
1298:
1299:
1300: -- Initialize API return status to SUCCESS
1301: x_return_status := FND_API.G_RET_STS_SUCCESS;
1302:
1303: -- Hint: Validate data
1304: -- If data not valid
1305: -- THEN
1302:
1303: -- Hint: Validate data
1304: -- If data not valid
1305: -- THEN
1306: -- x_return_status := FND_API.G_RET_STS_ERROR;
1307:
1308: -- Debug Message
1309: IF l_debug THEN
1310: AS_UTILITY_PVT.Debug_Message(l_module, FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'API_INVALID_RECORD');
1319:
1320: END Validate_Obstacle_Rec;
1321:
1322: PROCEDURE Validate_obstacle(
1323: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1324: P_Validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1325: P_Validation_mode IN VARCHAR2,
1326: P_Obstacle_Rec IN AS_OPPORTUNITY_PUB.Obstacle_Rec_Type,
1327: X_Return_Status OUT NOCOPY VARCHAR2,
1320: END Validate_Obstacle_Rec;
1321:
1322: PROCEDURE Validate_obstacle(
1323: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1324: P_Validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1325: P_Validation_mode IN VARCHAR2,
1326: P_Obstacle_Rec IN AS_OPPORTUNITY_PUB.Obstacle_Rec_Type,
1327: X_Return_Status OUT NOCOPY VARCHAR2,
1328: X_Msg_Count OUT NOCOPY NUMBER,
1341:
1342:
1343:
1344: -- Initialize API return status to SUCCESS
1345: x_return_status := FND_API.G_RET_STS_SUCCESS;
1346:
1347: IF (p_validation_level >= AS_UTILITY_PUB.G_VALID_LEVEL_ITEM) THEN
1348: -- Hint: We provide validation procedure for every column. Developer should delete
1349: -- unnecessary validation procedures.
1347: IF (p_validation_level >= AS_UTILITY_PUB.G_VALID_LEVEL_ITEM) THEN
1348: -- Hint: We provide validation procedure for every column. Developer should delete
1349: -- unnecessary validation procedures.
1350: Validate_LEAD_OBSTACLE_ID(
1351: p_init_msg_list => FND_API.G_FALSE,
1352: p_validation_mode => p_validation_mode,
1353: p_LEAD_OBSTACLE_ID => P_Obstacle_Rec.LEAD_OBSTACLE_ID,
1354: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1355: x_return_status => x_return_status,
1354: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1355: x_return_status => x_return_status,
1356: x_msg_count => x_msg_count,
1357: x_msg_data => x_msg_data);
1358: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1359: raise FND_API.G_EXC_ERROR;
1360: END IF;
1361:
1362: Validate_LEAD_ID(
1355: x_return_status => x_return_status,
1356: x_msg_count => x_msg_count,
1357: x_msg_data => x_msg_data);
1358: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1359: raise FND_API.G_EXC_ERROR;
1360: END IF;
1361:
1362: Validate_LEAD_ID(
1363: p_init_msg_list => FND_API.G_FALSE,
1359: raise FND_API.G_EXC_ERROR;
1360: END IF;
1361:
1362: Validate_LEAD_ID(
1363: p_init_msg_list => FND_API.G_FALSE,
1364: p_validation_mode => p_validation_mode,
1365: p_LEAD_ID => P_Obstacle_Rec.LEAD_ID,
1366: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1367: x_return_status => x_return_status,
1366: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1367: x_return_status => x_return_status,
1368: x_msg_count => x_msg_count,
1369: x_msg_data => x_msg_data);
1370: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1371: raise FND_API.G_EXC_ERROR;
1372: END IF;
1373:
1374: Validate_OBSTACLE_CODE(
1367: x_return_status => x_return_status,
1368: x_msg_count => x_msg_count,
1369: x_msg_data => x_msg_data);
1370: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1371: raise FND_API.G_EXC_ERROR;
1372: END IF;
1373:
1374: Validate_OBSTACLE_CODE(
1375: p_init_msg_list => FND_API.G_FALSE,
1371: raise FND_API.G_EXC_ERROR;
1372: END IF;
1373:
1374: Validate_OBSTACLE_CODE(
1375: p_init_msg_list => FND_API.G_FALSE,
1376: p_validation_mode => p_validation_mode,
1377: p_OBSTACLE_CODE => P_Obstacle_Rec.OBSTACLE_CODE,
1378: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1379: x_return_status => x_return_status,
1378: -- Hint: You may add x_item_property_rec as one of your OUT parameter if you'd like to pass back item property.
1379: x_return_status => x_return_status,
1380: x_msg_count => x_msg_count,
1381: x_msg_data => x_msg_data);
1382: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1383: raise FND_API.G_EXC_ERROR;
1384: END IF;
1385:
1386: END IF;
1379: x_return_status => x_return_status,
1380: x_msg_count => x_msg_count,
1381: x_msg_data => x_msg_data);
1382: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1383: raise FND_API.G_EXC_ERROR;
1384: END IF;
1385:
1386: END IF;
1387:
1389: IF (p_validation_level >= AS_UTILITY_PUB.G_VALID_LEVEL_RECORD) THEN
1390: -- Hint: Inter-field level validation can be added here
1391: -- invoke record level validation procedures
1392: Validate_Obstacle_Rec(
1393: p_init_msg_list => FND_API.G_FALSE,
1394: p_validation_mode => p_validation_mode,
1395: P_Obstacle_Rec => P_Obstacle_Rec,
1396: x_return_status => x_return_status,
1397: x_msg_count => x_msg_count,
1396: x_return_status => x_return_status,
1397: x_msg_count => x_msg_count,
1398: x_msg_data => x_msg_data);
1399:
1400: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1401: raise FND_API.G_EXC_ERROR;
1402: END IF;
1403: END IF;
1404: */
1397: x_msg_count => x_msg_count,
1398: x_msg_data => x_msg_data);
1399:
1400: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1401: raise FND_API.G_EXC_ERROR;
1402: END IF;
1403: END IF;
1404: */
1405: