[Home] [Help]
16: PG_DEBUG NUMBER(2) := TO_NUMBER(NVL(FND_PROFILE.value('IEX_DEBUG_LEVEL'), '20'));
17:
18: PROCEDURE Create_litigation(
19: P_Api_Version_Number IN NUMBER,
20: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
21: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
22: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
23: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
24: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
17:
18: PROCEDURE Create_litigation(
19: P_Api_Version_Number IN NUMBER,
20: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
21: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
22: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
23: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
24: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
25: P_Admin_Group_Id IN NUMBER,
18: PROCEDURE Create_litigation(
19: P_Api_Version_Number IN NUMBER,
20: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
21: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
22: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
23: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
24: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
25: P_Admin_Group_Id IN NUMBER,
26: P_Identity_Salesforce_Id IN NUMBER,
19: P_Api_Version_Number IN NUMBER,
20: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
21: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
22: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
23: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
24: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
25: P_Admin_Group_Id IN NUMBER,
26: P_Identity_Salesforce_Id IN NUMBER,
27: -- P_profile_tbl IN AS_UTILITY_PUB.PROFILE_TBL_TYPE,
20: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
21: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
22: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
23: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
24: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
25: P_Admin_Group_Id IN NUMBER,
26: P_Identity_Salesforce_Id IN NUMBER,
27: -- P_profile_tbl IN AS_UTILITY_PUB.PROFILE_TBL_TYPE,
28: P_LTG_Rec IN LTG_Rec_Type := G_MISS_LTG_REC,
43: -- Standard Start of API savepoint
44: SAVEPOINT CREATE_LITIGATION_PVT;
45:
46: -- Standard call to check for call compatibility.
47: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
48: p_api_version_number,
49: l_api_name,
50: G_PKG_NAME)
51: THEN
48: p_api_version_number,
49: l_api_name,
50: G_PKG_NAME)
51: THEN
52: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
53: END IF;
54:
55:
56: -- Initialize message list if p_init_msg_list is set to TRUE.
53: END IF;
54:
55:
56: -- Initialize message list if p_init_msg_list is set to TRUE.
57: IF FND_API.to_Boolean( p_init_msg_list )
58: THEN
59: FND_MSG_PUB.initialize;
60: END IF;
61:
61:
62:
63:
64: -- Initialize API return status to SUCCESS
65: x_return_status := FND_API.G_RET_STS_SUCCESS;
66:
67: --
68: -- API body
69: --
77: FND_MESSAGE.Set_Name('IEX', 'UT_CANNOT_GET_PROFILE_VALUE');
78: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
79: FND_MSG_PUB.ADD;
80: END IF;
81: RAISE FND_API.G_EXC_ERROR;
82: END IF;
83:
84:
85: IF p_validation_level = FND_API.G_VALID_LEVEL_FULL
81: RAISE FND_API.G_EXC_ERROR;
82: END IF;
83:
84:
85: IF p_validation_level = FND_API.G_VALID_LEVEL_FULL
86: THEN
87: AS_SALES_ORG_MANAGER_PVT.Get_CurrentUser(
88: p_api_version_number => 2.0
89: ,p_init_msg_list => p_init_msg_list
94: ,x_msg_data => x_msg_data
95: ,x_sales_member_rec => l_identity_sales_member_rec);
96:
97:
98: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
99: RAISE FND_API.G_EXC_ERROR;
100: END IF;
101:
102: END IF;
95: ,x_sales_member_rec => l_identity_sales_member_rec);
96:
97:
98: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
99: RAISE FND_API.G_EXC_ERROR;
100: END IF;
101:
102: END IF;
103:
103:
104:
105: -- Invoke validation procedures
106: Validate_litigation(
107: p_init_msg_list => FND_API.G_FALSE,
108: p_validation_level => p_validation_level,
109: p_validation_mode => AS_UTILITY_PVT.G_CREATE,
110: P_LTG_Rec => P_LTG_Rec,
111: x_return_status => x_return_status,
111: x_return_status => x_return_status,
112: x_msg_count => x_msg_count,
113: x_msg_data => x_msg_data);
114:
115: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
116: RAISE FND_API.G_EXC_ERROR;
117: END IF;
118:
119:
112: x_msg_count => x_msg_count,
113: x_msg_data => x_msg_data);
114:
115: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
116: RAISE FND_API.G_EXC_ERROR;
117: END IF;
118:
119:
120: IF p_check_access_flag = 'Y'
138: -- ,x_access_flag => l_access_flag);
139:
140:
141:
142: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
143: RAISE FND_API.G_EXC_ERROR;
144: END IF;
145:
146: END IF;
139:
140:
141:
142: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
143: RAISE FND_API.G_EXC_ERROR;
144: END IF;
145:
146: END IF;
147: -- Hint: Add corresponding Master-Detail business logic here if necessary.
193: ,p_CONTRACT_NUMBER => p_LTG_rec.CONTRACT_NUMBER);
194: -- Hint: Primary key should be returned.
195: -- x_LITIGATION_ID := px_LITIGATION_ID;
196:
197: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
198: RAISE FND_API.G_EXC_ERROR;
199: END IF;
200:
201: --
194: -- Hint: Primary key should be returned.
195: -- x_LITIGATION_ID := px_LITIGATION_ID;
196:
197: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
198: RAISE FND_API.G_EXC_ERROR;
199: END IF;
200:
201: --
202: -- End of API body
202: -- End of API body
203: --
204:
205: -- Standard check for p_commit
206: IF FND_API.to_Boolean( p_commit )
207: THEN
208: COMMIT WORK;
209: END IF;
210:
216: p_data => x_msg_data
217: );
218:
219: EXCEPTION
220: WHEN FND_API.G_EXC_ERROR THEN
221: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
222: P_API_NAME => L_API_NAME
223: ,P_PKG_NAME => G_PKG_NAME
224: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
226: ,X_MSG_COUNT => X_MSG_COUNT
227: ,X_MSG_DATA => X_MSG_DATA
228: ,X_RETURN_STATUS => X_RETURN_STATUS);
229:
230: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
231: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
232: P_API_NAME => L_API_NAME
233: ,P_PKG_NAME => G_PKG_NAME
234: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
253:
254: -- Hint: Add corresponding update detail table procedures if it's master-detail relationship.
255: PROCEDURE Update_litigation(
256: P_Api_Version_Number IN NUMBER,
257: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
258: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
259: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
260: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
261: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
254: -- Hint: Add corresponding update detail table procedures if it's master-detail relationship.
255: PROCEDURE Update_litigation(
256: P_Api_Version_Number IN NUMBER,
257: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
258: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
259: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
260: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
261: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
262: P_Admin_Group_Id IN NUMBER,
255: PROCEDURE Update_litigation(
256: P_Api_Version_Number IN NUMBER,
257: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
258: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
259: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
260: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
261: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
262: P_Admin_Group_Id IN NUMBER,
263: P_Identity_Salesforce_Id IN NUMBER,
256: P_Api_Version_Number IN NUMBER,
257: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
258: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
259: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
260: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
261: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
262: P_Admin_Group_Id IN NUMBER,
263: P_Identity_Salesforce_Id IN NUMBER,
264: -- P_profile_tbl IN AS_UTILITY_PUB.PROFILE_TBL_TYPE,
257: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
258: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
259: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
260: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
261: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
262: P_Admin_Group_Id IN NUMBER,
263: P_Identity_Salesforce_Id IN NUMBER,
264: -- P_profile_tbl IN AS_UTILITY_PUB.PROFILE_TBL_TYPE,
265: P_LTG_Rec IN LTG_Rec_Type,
323: -- Standard Start of API savepoint
324: SAVEPOINT UPDATE_LITIGATION_PVT;
325:
326: -- Standard call to check for call compatibility.
327: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
328: p_api_version_number,
329: l_api_name,
330: G_PKG_NAME)
331: THEN
328: p_api_version_number,
329: l_api_name,
330: G_PKG_NAME)
331: THEN
332: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
333: END IF;
334:
335:
336: -- Initialize message list if p_init_msg_list is set to TRUE.
333: END IF;
334:
335:
336: -- Initialize message list if p_init_msg_list is set to TRUE.
337: IF FND_API.to_Boolean( p_init_msg_list )
338: THEN
339: FND_MSG_PUB.initialize;
340: END IF;
341:
341:
342:
343:
344: -- Initialize API return status to SUCCESS
345: x_return_status := FND_API.G_RET_STS_SUCCESS;
346:
347: --
348: -- Api body
349: --
347: --
348: -- Api body
349: --
350:
351: IF p_validation_level = FND_API.G_VALID_LEVEL_FULL
352: THEN
353: AS_SALES_ORG_MANAGER_PVT.Get_CurrentUser(
354: p_api_version_number => 2.0
355: ,p_init_msg_list => p_init_msg_list
360: ,x_msg_data => x_msg_data
361: ,x_sales_member_rec => l_identity_sales_member_rec);
362:
363:
364: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
365: RAISE FND_API.G_EXC_ERROR;
366: END IF;
367:
368: END IF;
361: ,x_sales_member_rec => l_identity_sales_member_rec);
362:
363:
364: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
365: RAISE FND_API.G_EXC_ERROR;
366: END IF;
367:
368: END IF;
369:
416: FND_MESSAGE.Set_Token ('INFO', 'litigation', FALSE);
417: FND_MSG_PUB.Add;
418: END IF;
419: Close C_Get_litigation;
420: raise FND_API.G_EXC_ERROR;
421: END IF;
422: Close C_Get_litigation;
423: */
424:
423: */
424:
425:
426: If (l_tar_LTG_rec.last_update_date is NULL or
427: l_tar_LTG_rec.last_update_date = FND_API.G_MISS_Date ) Then
428: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
429: THEN
430: FND_MESSAGE.Set_Name('IEX', 'API_MISSING_ID');
431: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
430: FND_MESSAGE.Set_Name('IEX', 'API_MISSING_ID');
431: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
432: FND_MSG_PUB.ADD;
433: END IF;
434: raise FND_API.G_EXC_ERROR;
435: End if;
436: -- Check Whether record has been changed by someone else
437: /*
438: If (l_tar_LTG_rec.last_update_date <> l_ref_LTG_rec.last_update_date) Then
441: FND_MESSAGE.Set_Name('IEX', 'API_RECORD_CHANGED');
442: FND_MESSAGE.Set_Token('INFO', 'litigation', FALSE);
443: FND_MSG_PUB.ADD;
444: END IF;
445: raise FND_API.G_EXC_ERROR;
446: End if;
447: */
448:
449: -- Invoke validation procedures
447: */
448:
449: -- Invoke validation procedures
450: Validate_litigation(
451: p_init_msg_list => FND_API.G_FALSE,
452: p_validation_level => p_validation_level,
453: p_validation_mode => AS_UTILITY_PVT.G_UPDATE,
454: P_LTG_Rec => P_LTG_Rec,
455: x_return_status => x_return_status,
455: x_return_status => x_return_status,
456: x_msg_count => x_msg_count,
457: x_msg_data => x_msg_data);
458:
459: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
460: RAISE FND_API.G_EXC_ERROR;
461: END IF;
462:
463:
456: x_msg_count => x_msg_count,
457: x_msg_data => x_msg_data);
458:
459: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
460: RAISE FND_API.G_EXC_ERROR;
461: END IF;
462:
463:
464: IF p_check_access_flag = 'Y'
482: -- ,x_access_flag => l_access_flag);
483:
484:
485:
486: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
487: RAISE FND_API.G_EXC_ERROR;
488: END IF;
489:
490: END IF;
483:
484:
485:
486: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
487: RAISE FND_API.G_EXC_ERROR;
488: END IF;
489:
490: END IF;
491: -- Hint: Add corresponding Master-Detail business logic here if necessary.
518: ,p_ATTRIBUTE12 => p_LTG_rec.ATTRIBUTE12
519: ,p_ATTRIBUTE13 => p_LTG_rec.ATTRIBUTE13
520: ,p_ATTRIBUTE14 => p_LTG_rec.ATTRIBUTE14
521: ,p_ATTRIBUTE15 => p_LTG_rec.ATTRIBUTE15
522: ,p_CREATED_BY => FND_API.G_MISS_NUM
523: ,p_CREATION_DATE => FND_API.G_MISS_DATE
524: ,p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID
525: ,p_LAST_UPDATE_DATE => SYSDATE
526: --,p_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID --commented for bug 10034220 gnramasa 24th Sep 10
519: ,p_ATTRIBUTE13 => p_LTG_rec.ATTRIBUTE13
520: ,p_ATTRIBUTE14 => p_LTG_rec.ATTRIBUTE14
521: ,p_ATTRIBUTE15 => p_LTG_rec.ATTRIBUTE15
522: ,p_CREATED_BY => FND_API.G_MISS_NUM
523: ,p_CREATION_DATE => FND_API.G_MISS_DATE
524: ,p_LAST_UPDATED_BY => FND_GLOBAL.USER_ID
525: ,p_LAST_UPDATE_DATE => SYSDATE
526: --,p_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID --commented for bug 10034220 gnramasa 24th Sep 10
527: ,p_LAST_UPDATE_LOGIN => FND_GLOBAL.USER_ID
541: -- End of API body.
542: --
543:
544: -- Standard check for p_commit
545: IF FND_API.to_Boolean( p_commit )
546: THEN
547: COMMIT WORK;
548: END IF;
549:
555: p_data => x_msg_data
556: );
557:
558: EXCEPTION
559: WHEN FND_API.G_EXC_ERROR THEN
560: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
561: P_API_NAME => L_API_NAME
562: ,P_PKG_NAME => G_PKG_NAME
563: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
565: ,X_MSG_COUNT => X_MSG_COUNT
566: ,X_MSG_DATA => X_MSG_DATA
567: ,X_RETURN_STATUS => X_RETURN_STATUS);
568:
569: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
570: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
571: P_API_NAME => L_API_NAME
572: ,P_PKG_NAME => G_PKG_NAME
573: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
593: -- Hint: Add corresponding delete detail table procedures if it's master-detail relationship.
594: -- The Master delete procedure may not be needed depends on different business requirements.
595: PROCEDURE Delete_litigation(
596: P_Api_Version_Number IN NUMBER,
597: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
598: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
599: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
600: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
601: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
594: -- The Master delete procedure may not be needed depends on different business requirements.
595: PROCEDURE Delete_litigation(
596: P_Api_Version_Number IN NUMBER,
597: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
598: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
599: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
600: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
601: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
602: P_Admin_Group_Id IN NUMBER,
595: PROCEDURE Delete_litigation(
596: P_Api_Version_Number IN NUMBER,
597: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
598: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
599: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
600: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
601: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
602: P_Admin_Group_Id IN NUMBER,
603: P_Identity_Salesforce_Id IN NUMBER,
596: P_Api_Version_Number IN NUMBER,
597: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
598: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
599: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
600: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
601: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
602: P_Admin_Group_Id IN NUMBER,
603: P_Identity_Salesforce_Id IN NUMBER,
604: P_Profile_Tbl IN AS_UTILITY_PUB.PROFILE_TBL_TYPE,
597: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
598: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
599: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
600: P_Check_Access_Flag IN VARCHAR2 := FND_API.G_FALSE,
601: P_Admin_Flag IN VARCHAR2 := FND_API.G_FALSE,
602: P_Admin_Group_Id IN NUMBER,
603: P_Identity_Salesforce_Id IN NUMBER,
604: P_Profile_Tbl IN AS_UTILITY_PUB.PROFILE_TBL_TYPE,
605: P_LTG_Rec IN LTG_Rec_Type,
616: -- Standard Start of API savepoint
617: SAVEPOINT DELETE_LITIGATION_PVT;
618:
619: -- Standard call to check for call compatibility.
620: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
621: p_api_version_number,
622: l_api_name,
623: G_PKG_NAME)
624: THEN
621: p_api_version_number,
622: l_api_name,
623: G_PKG_NAME)
624: THEN
625: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
626: END IF;
627:
628:
629: -- Initialize message list if p_init_msg_list is set to TRUE.
626: END IF;
627:
628:
629: -- Initialize message list if p_init_msg_list is set to TRUE.
630: IF FND_API.to_Boolean( p_init_msg_list )
631: THEN
632: FND_MSG_PUB.initialize;
633: END IF;
634:
634:
635:
636:
637: -- Initialize API return status to SUCCESS
638: x_return_status := FND_API.G_RET_STS_SUCCESS;
639:
640: --
641: -- Api body
642: --
640: --
641: -- Api body
642: --
643:
644: IF p_validation_level = FND_API.G_VALID_LEVEL_FULL
645: THEN
646: AS_SALES_ORG_MANAGER_PVT.Get_CurrentUser(
647: p_api_version_number => 2.0
648: ,p_init_msg_list => p_init_msg_list
653: ,x_msg_data => x_msg_data
654: ,x_sales_member_rec => l_identity_sales_member_rec);
655:
656:
657: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
658: RAISE FND_API.G_EXC_ERROR;
659: END IF;
660:
661: END IF;
654: ,x_sales_member_rec => l_identity_sales_member_rec);
655:
656:
657: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
658: RAISE FND_API.G_EXC_ERROR;
659: END IF;
660:
661: END IF;
662:
681: -- ,x_access_flag => l_access_flag);
682:
683:
684:
685: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
686: RAISE FND_API.G_EXC_ERROR;
687: END IF;
688:
689: END IF;
682:
683:
684:
685: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
686: RAISE FND_API.G_EXC_ERROR;
687: END IF;
688:
689: END IF;
690:
695: -- End of API body
696: --
697:
698: -- Standard check for p_commit
699: IF FND_API.to_Boolean( p_commit )
700: THEN
701: COMMIT WORK;
702: END IF;
703:
709: p_data => x_msg_data
710: );
711:
712: EXCEPTION
713: WHEN FND_API.G_EXC_ERROR THEN
714: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
715: P_API_NAME => L_API_NAME
716: ,P_PKG_NAME => G_PKG_NAME
717: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
719: ,X_MSG_COUNT => X_MSG_COUNT
720: ,X_MSG_DATA => X_MSG_DATA
721: ,X_RETURN_STATUS => X_RETURN_STATUS);
722:
723: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
724: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
725: P_API_NAME => L_API_NAME
726: ,P_PKG_NAME => G_PKG_NAME
727: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
843:
844:
845: AS_UTILITY_PVT.Translate_OrderBy(
846: p_api_version_number => 1.0
847: ,p_init_msg_list => FND_API.G_FALSE
848: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
849: ,p_order_by_tbl => l_util_order_by_tbl
850: ,x_order_by_clause => l_order_by_cl
851: ,x_return_status => x_return_status
844:
845: AS_UTILITY_PVT.Translate_OrderBy(
846: p_api_version_number => 1.0
847: ,p_init_msg_list => FND_API.G_FALSE
848: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
849: ,p_order_by_tbl => l_util_order_by_tbl
850: ,x_order_by_clause => l_order_by_cl
851: ,x_return_status => x_return_status
852: ,x_msg_count => x_msg_count
872: -- Only those that are not NULL
873:
874: -- The following example applies to all columns,
875: -- developers can copy and paste them.
876: IF( (P_LTG_Rec.LITIGATION_ID IS NOT NULL) AND (P_LTG_Rec.LITIGATION_ID <> FND_API.G_MISS_NUM) )
877: THEN
878: DBMS_SQL.BIND_VARIABLE(p_cur_get_LTG, ':p_LITIGATION_ID', P_LTG_Rec.LITIGATION_ID);
879: END IF;
880:
952: -- NUMBER, DATE, VARCHAR2.
953: -- Developer can copy and paste the following codes for your own record.
954:
955: -- example for NUMBER datatype
956: IF( (P_LTG_Rec.LITIGATION_ID IS NOT NULL) AND (P_LTG_Rec.LITIGATION_ID <> FND_API.G_MISS_NUM) )
957: THEN
958: IF(x_LTG_where IS NULL) THEN
959: x_LTG_where := 'Where';
960: ELSE
963: x_LTG_where := x_LTG_where || 'P_LTG_Rec.LITIGATION_ID = :p_LITIGATION_ID';
964: END IF;
965:
966: -- example for DATE datatype
967: IF( (P_LTG_Rec.JUDGEMENT_DATE IS NOT NULL) AND (P_LTG_Rec.JUDGEMENT_DATE <> FND_API.G_MISS_DATE) )
968: THEN
969: -- check if item value contains '%' wildcard
970: OPEN c_chk_str1(P_LTG_Rec.JUDGEMENT_DATE);
971: FETCH c_chk_str1 INTO str_csr1;
996: x_LTG_where := x_LTG_where || 'P_LTG_Rec.JUDGEMENT_DATE ' || l_operator || ' :p_JUDGEMENT_DATE';
997: END IF;
998:
999: -- example for VARCHAR2 datatype
1000: IF( (P_LTG_Rec.UNPAID_REASON_CODE IS NOT NULL) AND (P_LTG_Rec.UNPAID_REASON_CODE <> FND_API.G_MISS_CHAR) )
1001: THEN
1002: -- check if item value contains '%' wildcard
1003: OPEN c_chk_str1(P_LTG_Rec.UNPAID_REASON_CODE);
1004: FETCH c_chk_str1 INTO str_csr1;
1035: END Gen_LTG_Where;
1036:
1037: PROCEDURE Get_litigation(
1038: P_Api_Version_Number IN NUMBER,
1039: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1040: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1041: P_Admin_Group_id IN NUMBER,
1042: P_identity_salesforce_id IN NUMBER := NULL,
1043: P_LTG_Rec IN LTG_Rec_Type,
1036:
1037: PROCEDURE Get_litigation(
1038: P_Api_Version_Number IN NUMBER,
1039: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1040: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1041: P_Admin_Group_id IN NUMBER,
1042: P_identity_salesforce_id IN NUMBER := NULL,
1043: P_LTG_Rec IN LTG_Rec_Type,
1044: -- Hint: Add list of bind variables here
1043: P_LTG_Rec IN LTG_Rec_Type,
1044: -- Hint: Add list of bind variables here
1045: p_rec_requested IN NUMBER := G_DEFAULT_NUM_REC_FETCH,
1046: p_start_rec_prt IN NUMBER := 1,
1047: p_return_tot_count IN NUMBER := FND_API.G_FALSE,
1048: -- Hint: user defined record type
1049: p_order_by_rec IN LTG_sort_rec_type,
1050: x_return_status OUT NOCOPY VARCHAR2,
1051: x_msg_count OUT NOCOPY NUMBER,
1096: -- Standard Start of API savepoint
1097: SAVEPOINT GET_LITIGATION_PVT;
1098:
1099: -- Standard call to check for call compatibility.
1100: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1101: p_api_version_number,
1102: l_api_name,
1103: G_PKG_NAME)
1104: THEN
1101: p_api_version_number,
1102: l_api_name,
1103: G_PKG_NAME)
1104: THEN
1105: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1106: END IF;
1107:
1108:
1109: -- Initialize message list if p_init_msg_list is set to TRUE.
1106: END IF;
1107:
1108:
1109: -- Initialize message list if p_init_msg_list is set to TRUE.
1110: IF FND_API.to_Boolean( p_init_msg_list )
1111: THEN
1112: FND_MSG_PUB.initialize;
1113: END IF;
1114:
1114:
1115:
1116:
1117: -- Initialize API return status to SUCCESS
1118: x_return_status := FND_API.G_RET_STS_SUCCESS;
1119:
1120: --
1121: -- Api body
1122: --
1120: --
1121: -- Api body
1122: --
1123:
1124: IF p_validation_level = FND_API.G_VALID_LEVEL_FULL
1125: THEN
1126: AS_SALES_ORG_MANAGER_PVT.Get_CurrentUser(
1127: p_api_version_number => 2.0
1128: ,p_init_msg_list => p_init_msg_list
1133: ,x_msg_data => x_msg_data
1134: ,x_sales_member_rec => l_identity_sales_member_rec);
1135:
1136:
1137: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1138: RAISE FND_API.G_EXC_ERROR;
1139: END IF;
1140:
1141: END IF;
1134: ,x_sales_member_rec => l_identity_sales_member_rec);
1135:
1136:
1137: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1138: RAISE FND_API.G_EXC_ERROR;
1139: END IF;
1140:
1141: END IF;
1142: -- *************************************************
1219: LOOP
1220: -- 1. There are more rows in the cursor.
1221: -- 2. User does not care about total records, and we need to return more.
1222: -- 3. Or user cares about total number of records.
1223: IF((dbms_sql.fetch_rows(l_cur_get_LTG)>0) AND ((p_return_tot_count = FND_API.G_TRUE)
1224: OR (l_returned_rec_count
1226:
1227: -- Hint: Developer need to implement this part
1220: -- 1. There are more rows in the cursor.
1221: -- 2. User does not care about total records, and we need to return more.
1222: -- 3. Or user cares about total number of records.
1223: IF((dbms_sql.fetch_rows(l_cur_get_LTG)>0) AND ((p_return_tot_count = FND_API.G_TRUE)
1224: OR (l_returned_rec_count
1226:
1227: -- Hint: Developer need to implement this part
1228: -- dbms_sql.column_value(l_cur_get_opp, 1, l_opp_rec.lead_id);
1260: p_data => x_msg_data
1261: );
1262:
1263: EXCEPTION
1264: WHEN FND_API.G_EXC_ERROR THEN
1265: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
1266: P_API_NAME => L_API_NAME
1267: ,P_PKG_NAME => G_PKG_NAME
1268: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
1270: ,X_MSG_COUNT => X_MSG_COUNT
1271: ,X_MSG_DATA => X_MSG_DATA
1272: ,X_RETURN_STATUS => X_RETURN_STATUS);
1273:
1274: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1275: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
1276: P_API_NAME => L_API_NAME
1277: ,P_PKG_NAME => G_PKG_NAME
1278: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
1296:
1297:
1298: -- Item-level validation procedures
1299: PROCEDURE Validate_LITIGATION_ID (
1300: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1301: P_Validation_mode IN VARCHAR2,
1302: P_LITIGATION_ID IN NUMBER,
1303: -- 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.
1304: X_Return_Status OUT NOCOPY VARCHAR2,
1308: IS
1309: BEGIN
1310:
1311: -- Initialize message list if p_init_msg_list is set to TRUE.
1312: IF FND_API.to_Boolean( p_init_msg_list )
1313: THEN
1314: FND_MSG_PUB.initialize;
1315: END IF;
1316:
1315: END IF;
1316:
1317:
1318: -- Initialize API return status to SUCCESS
1319: x_return_status := FND_API.G_RET_STS_SUCCESS;
1320:
1321: -- validate NOT NULL column
1322: IF(p_LITIGATION_ID is NULL)
1323: THEN
1320:
1321: -- validate NOT NULL column
1322: IF(p_LITIGATION_ID is NULL)
1323: THEN
1324: x_return_status := FND_API.G_RET_STS_ERROR;
1325: END IF;
1326:
1327: IF(p_validation_mode = AS_UTILITY_PVT.G_CREATE)
1328: THEN
1328: THEN
1329: -- Hint: Validate data
1330: -- IF p_LITIGATION_ID is not NULL and p_LITIGATION_ID <> G_MISS_CHAR
1331: -- verify if data is valid
1332: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1333: NULL;
1334: ELSIF(p_validation_mode = AS_UTILITY_PVT.G_UPDATE)
1335: THEN
1336: -- Hint: Validate data
1335: THEN
1336: -- Hint: Validate data
1337: -- IF p_LITIGATION_ID <> G_MISS_CHAR
1338: -- verify if data is valid
1339: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1340: NULL;
1341: END IF;
1342:
1343: -- Standard call to get message count and if count is 1, get message info.
1349: END Validate_LITIGATION_ID;
1350:
1351:
1352: PROCEDURE Validate_DELINQUENCY_ID (
1353: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1354: P_Validation_mode IN VARCHAR2,
1355: P_DELINQUENCY_ID IN NUMBER,
1356: -- 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.
1357: X_Return_Status OUT NOCOPY VARCHAR2,
1361: IS
1362: BEGIN
1363:
1364: -- Initialize message list if p_init_msg_list is set to TRUE.
1365: IF FND_API.to_Boolean( p_init_msg_list )
1366: THEN
1367: FND_MSG_PUB.initialize;
1368: END IF;
1369:
1368: END IF;
1369:
1370:
1371: -- Initialize API return status to SUCCESS
1372: x_return_status := FND_API.G_RET_STS_SUCCESS;
1373:
1374: IF(p_validation_mode = AS_UTILITY_PVT.G_CREATE)
1375: THEN
1376: -- Hint: Validate data
1375: THEN
1376: -- Hint: Validate data
1377: -- IF p_DELINQUENCY_ID is not NULL and p_DELINQUENCY_ID <> G_MISS_CHAR
1378: -- verify if data is valid
1379: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1380: NULL;
1381: ELSIF(p_validation_mode = AS_UTILITY_PVT.G_UPDATE)
1382: THEN
1383: -- Hint: Validate data
1382: THEN
1383: -- Hint: Validate data
1384: -- IF p_DELINQUENCY_ID <> G_MISS_CHAR
1385: -- verify if data is valid
1386: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1387: NULL;
1388: END IF;
1389:
1390: -- Standard call to get message count and if count is 1, get message info.
1396: END Validate_DELINQUENCY_ID;
1397:
1398:
1399: PROCEDURE Validate_PARTY_ID (
1400: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1401: P_Validation_mode IN VARCHAR2,
1402: P_PARTY_ID IN NUMBER,
1403: -- 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.
1404: X_Return_Status OUT NOCOPY VARCHAR2,
1408: IS
1409: BEGIN
1410:
1411: -- Initialize message list if p_init_msg_list is set to TRUE.
1412: IF FND_API.to_Boolean( p_init_msg_list )
1413: THEN
1414: FND_MSG_PUB.initialize;
1415: END IF;
1416:
1415: END IF;
1416:
1417:
1418: -- Initialize API return status to SUCCESS
1419: x_return_status := FND_API.G_RET_STS_SUCCESS;
1420:
1421: IF(p_validation_mode = AS_UTILITY_PVT.G_CREATE)
1422: THEN
1423: -- Hint: Validate data
1422: THEN
1423: -- Hint: Validate data
1424: -- IF p_PARTY_ID is not NULL and p_PARTY_ID <> G_MISS_CHAR
1425: -- verify if data is valid
1426: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1427: NULL;
1428: ELSIF(p_validation_mode = AS_UTILITY_PVT.G_UPDATE)
1429: THEN
1430: -- Hint: Validate data
1429: THEN
1430: -- Hint: Validate data
1431: -- IF p_PARTY_ID <> G_MISS_CHAR
1432: -- verify if data is valid
1433: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1434: NULL;
1435: END IF;
1436:
1437: -- Standard call to get message count and if count is 1, get message info.
1443: END Validate_PARTY_ID;
1444:
1445:
1446: PROCEDURE Validate_UNPAID_REASON_CODE (
1447: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1448: P_Validation_mode IN VARCHAR2,
1449: P_UNPAID_REASON_CODE IN VARCHAR2,
1450: -- 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.
1451: X_Return_Status OUT NOCOPY VARCHAR2,
1455: IS
1456: BEGIN
1457:
1458: -- Initialize message list if p_init_msg_list is set to TRUE.
1459: IF FND_API.to_Boolean( p_init_msg_list )
1460: THEN
1461: FND_MSG_PUB.initialize;
1462: END IF;
1463:
1462: END IF;
1463:
1464:
1465: -- Initialize API return status to SUCCESS
1466: x_return_status := FND_API.G_RET_STS_SUCCESS;
1467:
1468: IF(p_validation_mode = AS_UTILITY_PVT.G_CREATE)
1469: THEN
1470: -- Hint: Validate data
1469: THEN
1470: -- Hint: Validate data
1471: -- IF p_UNPAID_REASON_CODE is not NULL and p_UNPAID_REASON_CODE <> G_MISS_CHAR
1472: -- verify if data is valid
1473: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1474: NULL;
1475: ELSIF(p_validation_mode = AS_UTILITY_PVT.G_UPDATE)
1476: THEN
1477: -- Hint: Validate data
1476: THEN
1477: -- Hint: Validate data
1478: -- IF p_UNPAID_REASON_CODE <> G_MISS_CHAR
1479: -- verify if data is valid
1480: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1481: NULL;
1482: END IF;
1483:
1484: -- Standard call to get message count and if count is 1, get message info.
1490: END Validate_UNPAID_REASON_CODE;
1491:
1492:
1493: PROCEDURE Validate_JUDGEMENT_DATE (
1494: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1495: P_Validation_mode IN VARCHAR2,
1496: P_JUDGEMENT_DATE IN DATE,
1497: -- 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.
1498: X_Return_Status OUT NOCOPY VARCHAR2,
1502: IS
1503: BEGIN
1504:
1505: -- Initialize message list if p_init_msg_list is set to TRUE.
1506: IF FND_API.to_Boolean( p_init_msg_list )
1507: THEN
1508: FND_MSG_PUB.initialize;
1509: END IF;
1510:
1509: END IF;
1510:
1511:
1512: -- Initialize API return status to SUCCESS
1513: x_return_status := FND_API.G_RET_STS_SUCCESS;
1514:
1515: IF(p_validation_mode = AS_UTILITY_PVT.G_CREATE)
1516: THEN
1517: -- Hint: Validate data
1516: THEN
1517: -- Hint: Validate data
1518: -- IF p_JUDGEMENT_DATE is not NULL and p_JUDGEMENT_DATE <> G_MISS_CHAR
1519: -- verify if data is valid
1520: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1521: NULL;
1522: ELSIF(p_validation_mode = AS_UTILITY_PVT.G_UPDATE)
1523: THEN
1524: -- Hint: Validate data
1523: THEN
1524: -- Hint: Validate data
1525: -- IF p_JUDGEMENT_DATE <> G_MISS_CHAR
1526: -- verify if data is valid
1527: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1528: NULL;
1529: END IF;
1530:
1531: -- Standard call to get message count and if count is 1, get message info.
1537: END Validate_JUDGEMENT_DATE;
1538:
1539:
1540: PROCEDURE Validate_DISPOSITION_CODE (
1541: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1542: P_Validation_mode IN VARCHAR2,
1543: P_DISPOSITION_CODE IN VARCHAR2,
1544: -- 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.
1545: X_Return_Status OUT NOCOPY VARCHAR2,
1549: IS
1550: BEGIN
1551:
1552: -- Initialize message list if p_init_msg_list is set to TRUE.
1553: IF FND_API.to_Boolean( p_init_msg_list )
1554: THEN
1555: FND_MSG_PUB.initialize;
1556: END IF;
1557:
1556: END IF;
1557:
1558:
1559: -- Initialize API return status to SUCCESS
1560: x_return_status := FND_API.G_RET_STS_SUCCESS;
1561:
1562: IF(p_validation_mode = AS_UTILITY_PVT.G_CREATE)
1563: THEN
1564: -- Hint: Validate data
1563: THEN
1564: -- Hint: Validate data
1565: -- IF p_DISPOSITION_CODE is not NULL and p_DISPOSITION_CODE <> G_MISS_CHAR
1566: -- verify if data is valid
1567: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1568: NULL;
1569: ELSIF(p_validation_mode = AS_UTILITY_PVT.G_UPDATE)
1570: THEN
1571: -- Hint: Validate data
1570: THEN
1571: -- Hint: Validate data
1572: -- IF p_DISPOSITION_CODE <> G_MISS_CHAR
1573: -- verify if data is valid
1574: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1575: NULL;
1576: END IF;
1577:
1578: -- Standard call to get message count and if count is 1, get message info.
1584: END Validate_DISPOSITION_CODE;
1585:
1586:
1587: PROCEDURE v_CREDIT_HOLD_REQUEST_FLAG (
1588: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1589: P_Validation_mode IN VARCHAR2,
1590: P_CREDIT_HOLD_REQUEST_FLAG IN VARCHAR2,
1591: -- 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.
1592: X_Return_Status OUT NOCOPY VARCHAR2,
1596: IS
1597: BEGIN
1598:
1599: -- Initialize message list if p_init_msg_list is set to TRUE.
1600: IF FND_API.to_Boolean( p_init_msg_list )
1601: THEN
1602: FND_MSG_PUB.initialize;
1603: END IF;
1604:
1603: END IF;
1604:
1605:
1606: -- Initialize API return status to SUCCESS
1607: x_return_status := FND_API.G_RET_STS_SUCCESS;
1608:
1609: IF(p_validation_mode = AS_UTILITY_PVT.G_CREATE)
1610: THEN
1611: -- Hint: Validate data
1610: THEN
1611: -- Hint: Validate data
1612: -- IF p_CREDIT_HOLD_REQUEST_FLAG is not NULL and p_CREDIT_HOLD_REQUEST_FLAG <> G_MISS_CHAR
1613: -- verify if data is valid
1614: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1615: NULL;
1616: ELSIF(p_validation_mode = AS_UTILITY_PVT.G_UPDATE)
1617: THEN
1618: -- Hint: Validate data
1617: THEN
1618: -- Hint: Validate data
1619: -- IF p_CREDIT_HOLD_REQUEST_FLAG <> G_MISS_CHAR
1620: -- verify if data is valid
1621: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1622: NULL;
1623: END IF;
1624:
1625: -- Standard call to get message count and if count is 1, get message info.
1631: END v_CREDIT_HOLD_REQUEST_FLAG;
1632:
1633:
1634: PROCEDURE v_CREDIT_HOLD_APPROVED_FLAG (
1635: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1636: P_Validation_mode IN VARCHAR2,
1637: P_CREDIT_HOLD_APPROVED_FLAG IN VARCHAR2,
1638: -- 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.
1639: X_Return_Status OUT NOCOPY VARCHAR2,
1643: IS
1644: BEGIN
1645:
1646: -- Initialize message list if p_init_msg_list is set to TRUE.
1647: IF FND_API.to_Boolean( p_init_msg_list )
1648: THEN
1649: FND_MSG_PUB.initialize;
1650: END IF;
1651:
1650: END IF;
1651:
1652:
1653: -- Initialize API return status to SUCCESS
1654: x_return_status := FND_API.G_RET_STS_SUCCESS;
1655:
1656: IF(p_validation_mode = AS_UTILITY_PVT.G_CREATE)
1657: THEN
1658: -- Hint: Validate data
1657: THEN
1658: -- Hint: Validate data
1659: -- IF p_CREDIT_HOLD_APPROVED_FLAG is not NULL and p_CREDIT_HOLD_APPROVED_FLAG <> G_MISS_CHAR
1660: -- verify if data is valid
1661: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1662: NULL;
1663: ELSIF(p_validation_mode = AS_UTILITY_PVT.G_UPDATE)
1664: THEN
1665: -- Hint: Validate data
1664: THEN
1665: -- Hint: Validate data
1666: -- IF p_CREDIT_HOLD_APPROVED_FLAG <> G_MISS_CHAR
1667: -- verify if data is valid
1668: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1669: NULL;
1670: END IF;
1671:
1672: -- Standard call to get message count and if count is 1, get message info.
1678: END v_CREDIT_HOLD_APPROVED_FLAG;
1679:
1680:
1681: PROCEDURE v_SERVICE_HOLD_REQUEST_FLAG (
1682: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1683: P_Validation_mode IN VARCHAR2,
1684: P_SERVICE_HOLD_REQUEST_FLAG IN VARCHAR2,
1685: -- 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.
1686: X_Return_Status OUT NOCOPY VARCHAR2,
1690: IS
1691: BEGIN
1692:
1693: -- Initialize message list if p_init_msg_list is set to TRUE.
1694: IF FND_API.to_Boolean( p_init_msg_list )
1695: THEN
1696: FND_MSG_PUB.initialize;
1697: END IF;
1698:
1697: END IF;
1698:
1699:
1700: -- Initialize API return status to SUCCESS
1701: x_return_status := FND_API.G_RET_STS_SUCCESS;
1702:
1703: IF(p_validation_mode = AS_UTILITY_PVT.G_CREATE)
1704: THEN
1705: -- Hint: Validate data
1704: THEN
1705: -- Hint: Validate data
1706: -- IF p_SERVICE_HOLD_REQUEST_FLAG is not NULL and p_SERVICE_HOLD_REQUEST_FLAG <> G_MISS_CHAR
1707: -- verify if data is valid
1708: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1709: NULL;
1710: ELSIF(p_validation_mode = AS_UTILITY_PVT.G_UPDATE)
1711: THEN
1712: -- Hint: Validate data
1711: THEN
1712: -- Hint: Validate data
1713: -- IF p_SERVICE_HOLD_REQUEST_FLAG <> G_MISS_CHAR
1714: -- verify if data is valid
1715: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1716: NULL;
1717: END IF;
1718:
1719: -- Standard call to get message count and if count is 1, get message info.
1725: END v_SERVICE_HOLD_REQUEST_FLAG;
1726:
1727:
1728: PROCEDURE v_SERVICE_HOLD_APPROVED_FLAG (
1729: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1730: P_Validation_mode IN VARCHAR2,
1731: P_SERVICE_HOLD_APPROVED_FLAG IN VARCHAR2,
1732: -- 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.
1733: X_Return_Status OUT NOCOPY VARCHAR2,
1737: IS
1738: BEGIN
1739:
1740: -- Initialize message list if p_init_msg_list is set to TRUE.
1741: IF FND_API.to_Boolean( p_init_msg_list )
1742: THEN
1743: FND_MSG_PUB.initialize;
1744: END IF;
1745:
1744: END IF;
1745:
1746:
1747: -- Initialize API return status to SUCCESS
1748: x_return_status := FND_API.G_RET_STS_SUCCESS;
1749:
1750: IF(p_validation_mode = AS_UTILITY_PVT.G_CREATE)
1751: THEN
1752: -- Hint: Validate data
1751: THEN
1752: -- Hint: Validate data
1753: -- IF p_SERVICE_HOLD_APPROVED_FLAG is not NULL and p_SERVICE_HOLD_APPROVED_FLAG <> G_MISS_CHAR
1754: -- verify if data is valid
1755: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1756: NULL;
1757: ELSIF(p_validation_mode = AS_UTILITY_PVT.G_UPDATE)
1758: THEN
1759: -- Hint: Validate data
1758: THEN
1759: -- Hint: Validate data
1760: -- IF p_SERVICE_HOLD_APPROVED_FLAG <> G_MISS_CHAR
1761: -- verify if data is valid
1762: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1763: NULL;
1764: END IF;
1765:
1766: -- Standard call to get message count and if count is 1, get message info.
1772: END v_SERVICE_HOLD_APPROVED_FLAG;
1773:
1774:
1775: PROCEDURE v_SUGGESTION_APPROVED_FLAG (
1776: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1777: P_Validation_mode IN VARCHAR2,
1778: P_SUGGESTION_APPROVED_FLAG IN VARCHAR2,
1779: -- 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.
1780: X_Return_Status OUT NOCOPY VARCHAR2,
1784: IS
1785: BEGIN
1786:
1787: -- Initialize message list if p_init_msg_list is set to TRUE.
1788: IF FND_API.to_Boolean( p_init_msg_list )
1789: THEN
1790: FND_MSG_PUB.initialize;
1791: END IF;
1792:
1791: END IF;
1792:
1793:
1794: -- Initialize API return status to SUCCESS
1795: x_return_status := FND_API.G_RET_STS_SUCCESS;
1796:
1797: IF(p_validation_mode = AS_UTILITY_PVT.G_CREATE)
1798: THEN
1799: -- Hint: Validate data
1798: THEN
1799: -- Hint: Validate data
1800: -- IF p_SUGGESTION_APPROVED_FLAG is not NULL and p_SUGGESTION_APPROVED_FLAG <> G_MISS_CHAR
1801: -- verify if data is valid
1802: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1803: NULL;
1804: ELSIF(p_validation_mode = AS_UTILITY_PVT.G_UPDATE)
1805: THEN
1806: -- Hint: Validate data
1805: THEN
1806: -- Hint: Validate data
1807: -- IF p_SUGGESTION_APPROVED_FLAG <> G_MISS_CHAR
1808: -- verify if data is valid
1809: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1810: NULL;
1811: END IF;
1812:
1813: -- Standard call to get message count and if count is 1, get message info.
1823: -- Hint: If p_validation_mode = AS_UTILITY_PVT.G_VALIDATE_UPDATE, we should use cursor
1824: -- to get old values for all fields used in inter-field validation and set all G_MISS_XXX fields to original value
1825: -- stored in database table.
1826: PROCEDURE Validate_LTG_rec(
1827: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1828: P_Validation_mode IN VARCHAR2,
1829: P_LTG_Rec IN LTG_Rec_Type,
1830: X_Return_Status OUT NOCOPY VARCHAR2,
1831: X_Msg_Count OUT NOCOPY NUMBER,
1834: IS
1835: BEGIN
1836:
1837: -- Initialize message list if p_init_msg_list is set to TRUE.
1838: IF FND_API.to_Boolean( p_init_msg_list )
1839: THEN
1840: FND_MSG_PUB.initialize;
1841: END IF;
1842:
1841: END IF;
1842:
1843:
1844: -- Initialize API return status to SUCCESS
1845: x_return_status := FND_API.G_RET_STS_SUCCESS;
1846:
1847: -- Hint: Validate data
1848: -- If data not valid
1849: -- THEN
1846:
1847: -- Hint: Validate data
1848: -- If data not valid
1849: -- THEN
1850: -- x_return_status := FND_API.G_RET_STS_ERROR;
1851:
1852:
1853: -- Standard call to get message count and if count is 1, get message info.
1854: FND_MSG_PUB.Count_And_Get
1858:
1859: END Validate_LTG_Rec;
1860:
1861: PROCEDURE Validate_litigation(
1862: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1863: P_Validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1864: P_Validation_mode IN VARCHAR2,
1865: P_LTG_Rec IN LTG_Rec_Type,
1866: X_Return_Status OUT NOCOPY VARCHAR2,
1859: END Validate_LTG_Rec;
1860:
1861: PROCEDURE Validate_litigation(
1862: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1863: P_Validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1864: P_Validation_mode IN VARCHAR2,
1865: P_LTG_Rec IN LTG_Rec_Type,
1866: X_Return_Status OUT NOCOPY VARCHAR2,
1867: X_Msg_Count OUT NOCOPY NUMBER,
1873:
1874:
1875:
1876: -- Initialize API return status to SUCCESS
1877: x_return_status := FND_API.G_RET_STS_SUCCESS;
1878:
1879: IF (p_validation_level >= AS_UTILITY_PUB.G_VALID_LEVEL_ITEM) THEN
1880: -- Hint: We provide validation procedure for every column. Developer should delete
1881: -- unnecessary validation procedures.
1879: IF (p_validation_level >= AS_UTILITY_PUB.G_VALID_LEVEL_ITEM) THEN
1880: -- Hint: We provide validation procedure for every column. Developer should delete
1881: -- unnecessary validation procedures.
1882: Validate_LITIGATION_ID(
1883: p_init_msg_list => FND_API.G_FALSE,
1884: p_validation_mode => p_validation_mode,
1885: p_LITIGATION_ID => P_LTG_Rec.LITIGATION_ID,
1886: -- Hint: You may add x_item_property_rec as one of your OUT NOCOPY parameter if you'd like to pass back item property.
1887: x_return_status => x_return_status,
1888: x_msg_count => x_msg_count,
1889: x_msg_data => x_msg_data);
1890:
1891: Validate_DELINQUENCY_ID(
1892: p_init_msg_list => FND_API.G_FALSE,
1893: p_validation_mode => p_validation_mode,
1894: p_DELINQUENCY_ID => P_LTG_Rec.DELINQUENCY_ID,
1895: -- Hint: You may add x_item_property_rec as one of your OUT NOCOPY parameter if you'd like to pass back item property.
1896: x_return_status => x_return_status,
1897: x_msg_count => x_msg_count,
1898: x_msg_data => x_msg_data);
1899:
1900: Validate_PARTY_ID(
1901: p_init_msg_list => FND_API.G_FALSE,
1902: p_validation_mode => p_validation_mode,
1903: p_PARTY_ID => P_LTG_Rec.PARTY_ID,
1904: -- Hint: You may add x_item_property_rec as one of your OUT NOCOPY parameter if you'd like to pass back item property.
1905: x_return_status => x_return_status,
1906: x_msg_count => x_msg_count,
1907: x_msg_data => x_msg_data);
1908:
1909: Validate_UNPAID_REASON_CODE(
1910: p_init_msg_list => FND_API.G_FALSE,
1911: p_validation_mode => p_validation_mode,
1912: p_UNPAID_REASON_CODE => P_LTG_Rec.UNPAID_REASON_CODE,
1913: -- Hint: You may add x_item_property_rec as one of your OUT NOCOPY parameter if you'd like to pass back item property.
1914: x_return_status => x_return_status,
1915: x_msg_count => x_msg_count,
1916: x_msg_data => x_msg_data);
1917:
1918: Validate_JUDGEMENT_DATE(
1919: p_init_msg_list => FND_API.G_FALSE,
1920: p_validation_mode => p_validation_mode,
1921: p_JUDGEMENT_DATE => P_LTG_Rec.JUDGEMENT_DATE,
1922: -- Hint: You may add x_item_property_rec as one of your OUT NOCOPY parameter if you'd like to pass back item property.
1923: x_return_status => x_return_status,
1924: x_msg_count => x_msg_count,
1925: x_msg_data => x_msg_data);
1926:
1927: Validate_DISPOSITION_CODE(
1928: p_init_msg_list => FND_API.G_FALSE,
1929: p_validation_mode => p_validation_mode,
1930: p_DISPOSITION_CODE => P_LTG_Rec.DISPOSITION_CODE,
1931: -- Hint: You may add x_item_property_rec as one of your OUT NOCOPY parameter if you'd like to pass back item property.
1932: x_return_status => x_return_status,
1933: x_msg_count => x_msg_count,
1934: x_msg_data => x_msg_data);
1935:
1936: v_CREDIT_HOLD_REQUEST_FLAG(
1937: p_init_msg_list => FND_API.G_FALSE,
1938: p_validation_mode => p_validation_mode,
1939: p_CREDIT_HOLD_REQUEST_FLAG => P_LTG_Rec.CREDIT_HOLD_REQUEST_FLAG,
1940: -- Hint: You may add x_item_property_rec as one of your OUT NOCOPY parameter if you'd like to pass back item property.
1941: x_return_status => x_return_status,
1942: x_msg_count => x_msg_count,
1943: x_msg_data => x_msg_data);
1944:
1945: v_CREDIT_HOLD_APPROVED_FLAG(
1946: p_init_msg_list => FND_API.G_FALSE,
1947: p_validation_mode => p_validation_mode,
1948: p_CREDIT_HOLD_APPROVED_FLAG => P_LTG_Rec.CREDIT_HOLD_APPROVED_FLAG,
1949: -- Hint: You may add x_item_property_rec as one of your OUT NOCOPY parameter if you'd like to pass back item property.
1950: x_return_status => x_return_status,
1951: x_msg_count => x_msg_count,
1952: x_msg_data => x_msg_data);
1953:
1954: v_SERVICE_HOLD_REQUEST_FLAG(
1955: p_init_msg_list => FND_API.G_FALSE,
1956: p_validation_mode => p_validation_mode,
1957: p_SERVICE_HOLD_REQUEST_FLAG => P_LTG_Rec.SERVICE_HOLD_REQUEST_FLAG,
1958: -- Hint: You may add x_item_property_rec as one of your OUT NOCOPY parameter if you'd like to pass back item property.
1959: x_return_status => x_return_status,
1960: x_msg_count => x_msg_count,
1961: x_msg_data => x_msg_data);
1962:
1963: v_SERVICE_HOLD_APPROVED_FLAG(
1964: p_init_msg_list => FND_API.G_FALSE,
1965: p_validation_mode => p_validation_mode,
1966: p_SERVICE_HOLD_APPROVED_FLAG => P_LTG_Rec.SERVICE_HOLD_APPROVED_FLAG,
1967: -- Hint: You may add x_item_property_rec as one of your OUT NOCOPY parameter if you'd like to pass back item property.
1968: x_return_status => x_return_status,
1969: x_msg_count => x_msg_count,
1970: x_msg_data => x_msg_data);
1971:
1972: v_SUGGESTION_APPROVED_FLAG(
1973: p_init_msg_list => FND_API.G_FALSE,
1974: p_validation_mode => p_validation_mode,
1975: p_SUGGESTION_APPROVED_FLAG => P_LTG_Rec.SUGGESTION_APPROVED_FLAG,
1976: -- Hint: You may add x_item_property_rec as one of your OUT NOCOPY parameter if you'd like to pass back item property.
1977: x_return_status => x_return_status,
1983: IF (p_validation_level >= AS_UTILITY_PUB.G_VALID_LEVEL_RECORD) THEN
1984: -- Hint: Inter-field level validation can be added here
1985: -- invoke record level validation procedures
1986: Validate_LTG_Rec(
1987: p_init_msg_list => FND_API.G_FALSE,
1988: p_validation_mode => p_validation_mode,
1989: P_LTG_Rec => P_LTG_Rec,
1990: x_return_status => x_return_status,
1991: x_msg_count => x_msg_count,
1990: x_return_status => x_return_status,
1991: x_msg_count => x_msg_count,
1992: x_msg_data => x_msg_data);
1993:
1994: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1995: raise FND_API.G_EXC_ERROR;
1996: END IF;
1997: END IF;
1998:
1991: x_msg_count => x_msg_count,
1992: x_msg_data => x_msg_data);
1993:
1994: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1995: raise FND_API.G_EXC_ERROR;
1996: END IF;
1997: END IF;
1998:
1999: IF (p_validation_level >= AS_UTILITY_PUB.G_VALID_LEVEL_INTER_RECORD) THEN