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