[Home] [Help]
16:
17: -- Hint: Primary key needs to be returned.
18: PROCEDURE Create_party_rltship(
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_PARTY_RLTSHIP_Rec IN ASO_quote_PUB.PARTY_RLTSHIP_Rec_Type := ASO_quote_PUB.G_MISS_PARTY_RLTSHIP_REC,
24: X_PARTY_RELATIONSHIP_ID OUT NOCOPY /* file.sql.39 change */ NUMBER,
17: -- Hint: Primary key needs to be returned.
18: PROCEDURE Create_party_rltship(
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_PARTY_RLTSHIP_Rec IN ASO_quote_PUB.PARTY_RLTSHIP_Rec_Type := ASO_quote_PUB.G_MISS_PARTY_RLTSHIP_REC,
24: X_PARTY_RELATIONSHIP_ID OUT NOCOPY /* file.sql.39 change */ NUMBER,
25: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
18: PROCEDURE Create_party_rltship(
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_PARTY_RLTSHIP_Rec IN ASO_quote_PUB.PARTY_RLTSHIP_Rec_Type := ASO_quote_PUB.G_MISS_PARTY_RLTSHIP_REC,
24: X_PARTY_RELATIONSHIP_ID OUT NOCOPY /* file.sql.39 change */ NUMBER,
25: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
26: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
36: -- Standard Start of API savepoint
37: SAVEPOINT CREATE_PARTY_RLTSHIP_PVT;
38:
39: -- Standard call to check for call compatibility.
40: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
41: p_api_version_number,
42: l_api_name,
43: G_PKG_NAME)
44: THEN
41: p_api_version_number,
42: l_api_name,
43: G_PKG_NAME)
44: THEN
45: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
46: END IF;
47:
48:
49: -- Initialize message list if p_init_msg_list is set to TRUE.
46: END IF;
47:
48:
49: -- Initialize message list if p_init_msg_list is set to TRUE.
50: IF FND_API.to_Boolean( p_init_msg_list )
51: THEN
52: FND_MSG_PUB.initialize;
53: END IF;
54:
57: -- ASO_UTILITY_PVT.Print(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'start');
58:
59:
60: -- Initialize API return status to SUCCESS
61: x_return_status := FND_API.G_RET_STS_SUCCESS;
62:
63: --
64: -- API body
65: --
74: FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
75: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
76: FND_MSG_PUB.ADD;
77: END IF;
78: RAISE FND_API.G_EXC_ERROR;
79: END IF;
80:
81:
82: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
78: RAISE FND_API.G_EXC_ERROR;
79: END IF;
80:
81:
82: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
83: THEN
84: -- Debug message
85: -- ASO_UTILITY_PVT.Print(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: Validate_party_rltship');
86:
85: -- ASO_UTILITY_PVT.Print(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: Validate_party_rltship');
86:
87: -- Invoke validation procedures
88: Validate_party_rltship(
89: p_init_msg_list => FND_API.G_FALSE,
90: p_validation_level => p_validation_level,
91: p_validation_mode => ASO_UTILITY_PVT.G_CREATE,
92: P_PARTY_RLTSHIP_Rec => P_PARTY_RLTSHIP_Rec,
93: x_return_status => x_return_status,
94: x_msg_count => x_msg_count,
95: x_msg_data => x_msg_data);
96: END IF;
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: -- Hint: Add corresponding Master-Detail business logic here if necessary.
95: x_msg_data => x_msg_data);
96: END IF;
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: -- Hint: Add corresponding Master-Detail business logic here if necessary.
103:
123: p_RELATIONSHIP_TYPE_CODE => p_PARTY_RLTSHIP_rec.RELATIONSHIP_TYPE_CODE,
124: p_OBJECT_VERSION_NUMBER => p_PARTY_RLTSHIP_rec.OBJECT_VERSION_NUMBER);
125: -- x_PARTY_RELATIONSHIP_ID := px_PARTY_RELATIONSHIP_ID;
126:
127: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
128: RAISE FND_API.G_EXC_ERROR;
129: END IF;
130:
131: --
124: p_OBJECT_VERSION_NUMBER => p_PARTY_RLTSHIP_rec.OBJECT_VERSION_NUMBER);
125: -- x_PARTY_RELATIONSHIP_ID := px_PARTY_RELATIONSHIP_ID;
126:
127: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
128: RAISE FND_API.G_EXC_ERROR;
129: END IF;
130:
131: --
132: -- End of API body
132: -- End of API body
133: --
134:
135: -- Standard check for p_commit
136: IF FND_API.to_Boolean( p_commit )
137: THEN
138: COMMIT WORK;
139: END IF;
140:
150: );
151:
152: -- Un-comment the following statements when AS_CALLOUT_PKG is ready.
153: EXCEPTION
154: WHEN FND_API.G_EXC_ERROR THEN
155: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
156: P_API_NAME => L_API_NAME
157: ,P_PKG_NAME => G_PKG_NAME
158: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
160: ,X_MSG_COUNT => X_MSG_COUNT
161: ,X_MSG_DATA => X_MSG_DATA
162: ,X_RETURN_STATUS => X_RETURN_STATUS);
163:
164: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
165: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
166: P_API_NAME => L_API_NAME
167: ,P_PKG_NAME => G_PKG_NAME
168: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
184:
185:
186: PROCEDURE Update_party_rltship(
187: P_Api_Version_Number IN NUMBER,
188: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
189: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
190: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
191: -- P_Identity_Salesforce_Id IN NUMBER := NULL,
192: P_PARTY_RLTSHIP_Rec IN ASO_quote_PUB.PARTY_RLTSHIP_Rec_Type,
185:
186: PROCEDURE Update_party_rltship(
187: P_Api_Version_Number IN NUMBER,
188: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
189: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
190: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
191: -- P_Identity_Salesforce_Id IN NUMBER := NULL,
192: P_PARTY_RLTSHIP_Rec IN ASO_quote_PUB.PARTY_RLTSHIP_Rec_Type,
193: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
186: PROCEDURE Update_party_rltship(
187: P_Api_Version_Number IN NUMBER,
188: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
189: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
190: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
191: -- P_Identity_Salesforce_Id IN NUMBER := NULL,
192: P_PARTY_RLTSHIP_Rec IN ASO_quote_PUB.PARTY_RLTSHIP_Rec_Type,
193: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
194: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
229: -- Standard Start of API savepoint
230: SAVEPOINT UPDATE_PARTY_RLTSHIP_PVT;
231:
232: -- Standard call to check for call compatibility.
233: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
234: p_api_version_number,
235: l_api_name,
236: G_PKG_NAME)
237: THEN
234: p_api_version_number,
235: l_api_name,
236: G_PKG_NAME)
237: THEN
238: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
239: END IF;
240:
241:
242: -- Initialize message list if p_init_msg_list is set to TRUE.
239: END IF;
240:
241:
242: -- Initialize message list if p_init_msg_list is set to TRUE.
243: IF FND_API.to_Boolean( p_init_msg_list )
244: THEN
245: FND_MSG_PUB.initialize;
246: END IF;
247:
250: -- ASO_UTILITY_PVT.Print(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'start');
251:
252:
253: -- Initialize API return status to SUCCESS
254: x_return_status := FND_API.G_RET_STS_SUCCESS;
255:
256: --
257: -- Api body
258: --
283: FND_MESSAGE.Set_Name('ASO', 'API_MISSING_UPDATE_TARGET');
284: FND_MESSAGE.Set_Token ('INFO', 'party_rltship', FALSE);
285: FND_MSG_PUB.Add;
286: END IF;
287: raise FND_API.G_EXC_ERROR;
288: END IF;
289: -- Debug Message
290: --ASO_UTILITY_PVT.Print(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: - Close Cursor');
291: Close C_Get_party_rltship;
291: Close C_Get_party_rltship;
292:
293:
294: If (l_tar_PARTY_RLTSHIP_rec.last_update_date is NULL or
295: l_tar_PARTY_RLTSHIP_rec.last_update_date = FND_API.G_MISS_Date ) Then
296: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
297: THEN
298: FND_MESSAGE.Set_Name('ASO', 'API_MISSING_ID');
299: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
298: FND_MESSAGE.Set_Name('ASO', 'API_MISSING_ID');
299: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
300: FND_MSG_PUB.ADD;
301: END IF;
302: raise FND_API.G_EXC_ERROR;
303: End if;
304: -- Check Whether record has been changed by someone else
305: If (l_tar_PARTY_RLTSHIP_rec.last_update_date <> l_ref_PARTY_RLTSHIP_rec.last_update_date) Then
306: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
308: FND_MESSAGE.Set_Name('ASO', 'API_RECORD_CHANGED');
309: FND_MESSAGE.Set_Token('INFO', 'party_rltship', FALSE);
310: FND_MSG_PUB.ADD;
311: END IF;
312: raise FND_API.G_EXC_ERROR;
313: End if;
314:
315: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
316: THEN
311: END IF;
312: raise FND_API.G_EXC_ERROR;
313: End if;
314:
315: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
316: THEN
317: -- Debug message
318: -- ASO_UTILITY_PVT.Print(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: Validate_party_rltship');
319:
318: -- ASO_UTILITY_PVT.Print(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: Validate_party_rltship');
319:
320: -- Invoke validation procedures
321: Validate_party_rltship(
322: p_init_msg_list => FND_API.G_FALSE,
323: p_validation_level => p_validation_level,
324: p_validation_mode => ASO_UTILITY_PVT.G_UPDATE,
325: P_PARTY_RLTSHIP_Rec => P_PARTY_RLTSHIP_Rec,
326: x_return_status => x_return_status,
327: x_msg_count => x_msg_count,
328: x_msg_data => x_msg_data);
329: END IF;
330:
331: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
332: RAISE FND_API.G_EXC_ERROR;
333: END IF;
334:
335:
328: x_msg_data => x_msg_data);
329: END IF;
330:
331: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
332: RAISE FND_API.G_EXC_ERROR;
333: END IF;
334:
335:
336: -- Debug Message
358: -- End of API body.
359: --
360:
361: -- Standard check for p_commit
362: IF FND_API.to_Boolean( p_commit )
363: THEN
364: COMMIT WORK;
365: END IF;
366:
376: );
377:
378: -- Un-comment the following statements when AS_CALLOUT_PKG is ready.
379: EXCEPTION
380: WHEN FND_API.G_EXC_ERROR THEN
381: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
382: P_API_NAME => L_API_NAME
383: ,P_PKG_NAME => G_PKG_NAME
384: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
386: ,X_MSG_COUNT => X_MSG_COUNT
387: ,X_MSG_DATA => X_MSG_DATA
388: ,X_RETURN_STATUS => X_RETURN_STATUS);
389:
390: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
391: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
392: P_API_NAME => L_API_NAME
393: ,P_PKG_NAME => G_PKG_NAME
394: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
411:
412: -- The Master delete procedure may not be needed depends on different business requirements.
413: PROCEDURE Delete_party_rltship(
414: P_Api_Version_Number IN NUMBER,
415: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
416: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
417: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
418: -- P_identity_salesforce_id IN NUMBER := NULL,
419: P_PARTY_RLTSHIP_Rec IN ASO_quote_PUB.PARTY_RLTSHIP_Rec_Type,
412: -- The Master delete procedure may not be needed depends on different business requirements.
413: PROCEDURE Delete_party_rltship(
414: P_Api_Version_Number IN NUMBER,
415: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
416: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
417: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
418: -- P_identity_salesforce_id IN NUMBER := NULL,
419: P_PARTY_RLTSHIP_Rec IN ASO_quote_PUB.PARTY_RLTSHIP_Rec_Type,
420: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
413: PROCEDURE Delete_party_rltship(
414: P_Api_Version_Number IN NUMBER,
415: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
416: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
417: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
418: -- P_identity_salesforce_id IN NUMBER := NULL,
419: P_PARTY_RLTSHIP_Rec IN ASO_quote_PUB.PARTY_RLTSHIP_Rec_Type,
420: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
421: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
430: -- Standard Start of API savepoint
431: SAVEPOINT DELETE_PARTY_RLTSHIP_PVT;
432:
433: -- Standard call to check for call compatibility.
434: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
435: p_api_version_number,
436: l_api_name,
437: G_PKG_NAME)
438: THEN
435: p_api_version_number,
436: l_api_name,
437: G_PKG_NAME)
438: THEN
439: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
440: END IF;
441:
442:
443: -- Initialize message list if p_init_msg_list is set to TRUE.
440: END IF;
441:
442:
443: -- Initialize message list if p_init_msg_list is set to TRUE.
444: IF FND_API.to_Boolean( p_init_msg_list )
445: THEN
446: FND_MSG_PUB.initialize;
447: END IF;
448:
451: -- ASO_UTILITY_PVT.Print(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'start');
452:
453:
454: -- Initialize API return status to SUCCESS
455: x_return_status := FND_API.G_RET_STS_SUCCESS;
456:
457: --
458: -- Api body
459: --
465: -- End of API body
466: --
467:
468: -- Standard check for p_commit
469: IF FND_API.to_Boolean( p_commit )
470: THEN
471: COMMIT WORK;
472: END IF;
473:
483: );
484:
485: -- Un-comment the following statements when AS_CALLOUT_PKG is ready.
486: EXCEPTION
487: WHEN FND_API.G_EXC_ERROR THEN
488: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
489: P_API_NAME => L_API_NAME
490: ,P_PKG_NAME => G_PKG_NAME
491: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
493: ,X_MSG_COUNT => X_MSG_COUNT
494: ,X_MSG_DATA => X_MSG_DATA
495: ,X_RETURN_STATUS => X_RETURN_STATUS);
496:
497: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
498: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
499: P_API_NAME => L_API_NAME
500: ,P_PKG_NAME => G_PKG_NAME
501: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
520:
521:
522: -- Item-level validation procedures
523: PROCEDURE Validate_PARTY_RLTSHIP_ID (
524: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
525: P_Validation_mode IN VARCHAR2,
526: P_PARTY_RELATIONSHIP_ID IN NUMBER,
527: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
528: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
531: IS
532: BEGIN
533:
534: -- Initialize message list if p_init_msg_list is set to TRUE.
535: IF FND_API.to_Boolean( p_init_msg_list )
536: THEN
537: FND_MSG_PUB.initialize;
538: END IF;
539:
538: END IF;
539:
540:
541: -- Initialize API return status to SUCCESS
542: x_return_status := FND_API.G_RET_STS_SUCCESS;
543:
544: -- validate NOT NULL column
545: IF(p_PARTY_RELATIONSHIP_ID is NULL)
546: THEN
544: -- validate NOT NULL column
545: IF(p_PARTY_RELATIONSHIP_ID is NULL)
546: THEN
547: --ASO_UTILITY_PVT.Print('ERROR', 'Private party_rltship API: -Violate NOT NULL constraint(PARTY_RELATIONSHIP_ID)');
548: x_return_status := FND_API.G_RET_STS_ERROR;
549: END IF;
550:
551: IF(p_validation_mode = ASO_UTILITY_PVT.G_CREATE)
552: THEN
552: THEN
553: -- Hint: Validate data
554: -- IF p_PARTY_RELATIONSHIP_ID is not NULL and p_PARTY_RELATIONSHIP_ID <> G_MISS_CHAR
555: -- verify if data is valid
556: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
557: NULL;
558: ELSIF(p_validation_mode = ASO_UTILITY_PVT.G_UPDATE)
559: THEN
560: -- Hint: Validate data
559: THEN
560: -- Hint: Validate data
561: -- IF p_PARTY_RELATIONSHIP_ID <> G_MISS_CHAR
562: -- verify if data is valid
563: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
564: NULL;
565: END IF;
566:
567: -- Standard call to get message count and if count is 1, get message info.
573: END Validate_PARTY_RLTSHIP_ID;
574:
575:
576: PROCEDURE Validate_REQUEST_ID (
577: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
578: P_Validation_mode IN VARCHAR2,
579: P_REQUEST_ID IN NUMBER,
580: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
581: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
584: IS
585: BEGIN
586:
587: -- Initialize message list if p_init_msg_list is set to TRUE.
588: IF FND_API.to_Boolean( p_init_msg_list )
589: THEN
590: FND_MSG_PUB.initialize;
591: END IF;
592:
591: END IF;
592:
593:
594: -- Initialize API return status to SUCCESS
595: x_return_status := FND_API.G_RET_STS_SUCCESS;
596:
597: IF(p_validation_mode = ASO_UTILITY_PVT.G_CREATE)
598: THEN
599: -- Hint: Validate data
598: THEN
599: -- Hint: Validate data
600: -- IF p_REQUEST_ID is not NULL and p_REQUEST_ID <> G_MISS_CHAR
601: -- verify if data is valid
602: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
603: NULL;
604: ELSIF(p_validation_mode = ASO_UTILITY_PVT.G_UPDATE)
605: THEN
606: -- Hint: Validate data
605: THEN
606: -- Hint: Validate data
607: -- IF p_REQUEST_ID <> G_MISS_CHAR
608: -- verify if data is valid
609: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
610: NULL;
611: END IF;
612:
613: -- Standard call to get message count and if count is 1, get message info.
619: END Validate_REQUEST_ID;
620:
621:
622: PROCEDURE Validate_PROG_APPL_ID (
623: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
624: P_Validation_mode IN VARCHAR2,
625: P_PROGRAM_APPLICATION_ID IN NUMBER,
626: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
627: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
630: IS
631: BEGIN
632:
633: -- Initialize message list if p_init_msg_list is set to TRUE.
634: IF FND_API.to_Boolean( p_init_msg_list )
635: THEN
636: FND_MSG_PUB.initialize;
637: END IF;
638:
637: END IF;
638:
639:
640: -- Initialize API return status to SUCCESS
641: x_return_status := FND_API.G_RET_STS_SUCCESS;
642:
643: IF(p_validation_mode = ASO_UTILITY_PVT.G_CREATE)
644: THEN
645: -- Hint: Validate data
644: THEN
645: -- Hint: Validate data
646: -- IF p_PROGRAM_APPLICATION_ID is not NULL and p_PROGRAM_APPLICATION_ID <> G_MISS_CHAR
647: -- verify if data is valid
648: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
649: NULL;
650: ELSIF(p_validation_mode = ASO_UTILITY_PVT.G_UPDATE)
651: THEN
652: -- Hint: Validate data
651: THEN
652: -- Hint: Validate data
653: -- IF p_PROGRAM_APPLICATION_ID <> G_MISS_CHAR
654: -- verify if data is valid
655: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
656: NULL;
657: END IF;
658:
659: -- Standard call to get message count and if count is 1, get message info.
665: END Validate_PROG_APPL_ID;
666:
667:
668: PROCEDURE Validate_PROGRAM_ID (
669: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
670: P_Validation_mode IN VARCHAR2,
671: P_PROGRAM_ID IN NUMBER,
672: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
673: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
676: IS
677: BEGIN
678:
679: -- Initialize message list if p_init_msg_list is set to TRUE.
680: IF FND_API.to_Boolean( p_init_msg_list )
681: THEN
682: FND_MSG_PUB.initialize;
683: END IF;
684:
683: END IF;
684:
685:
686: -- Initialize API return status to SUCCESS
687: x_return_status := FND_API.G_RET_STS_SUCCESS;
688:
689: IF(p_validation_mode = ASO_UTILITY_PVT.G_CREATE)
690: THEN
691: -- Hint: Validate data
690: THEN
691: -- Hint: Validate data
692: -- IF p_PROGRAM_ID is not NULL and p_PROGRAM_ID <> G_MISS_CHAR
693: -- verify if data is valid
694: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
695: NULL;
696: ELSIF(p_validation_mode = ASO_UTILITY_PVT.G_UPDATE)
697: THEN
698: -- Hint: Validate data
697: THEN
698: -- Hint: Validate data
699: -- IF p_PROGRAM_ID <> G_MISS_CHAR
700: -- verify if data is valid
701: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
702: NULL;
703: END IF;
704:
705: -- Standard call to get message count and if count is 1, get message info.
711: END Validate_PROGRAM_ID;
712:
713:
714: PROCEDURE Validate_PROGRAM_UPDATE_DATE (
715: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
716: P_Validation_mode IN VARCHAR2,
717: P_PROGRAM_UPDATE_DATE IN DATE,
718: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
719: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
722: IS
723: BEGIN
724:
725: -- Initialize message list if p_init_msg_list is set to TRUE.
726: IF FND_API.to_Boolean( p_init_msg_list )
727: THEN
728: FND_MSG_PUB.initialize;
729: END IF;
730:
729: END IF;
730:
731:
732: -- Initialize API return status to SUCCESS
733: x_return_status := FND_API.G_RET_STS_SUCCESS;
734:
735: IF(p_validation_mode = ASO_UTILITY_PVT.G_CREATE)
736: THEN
737: -- Hint: Validate data
736: THEN
737: -- Hint: Validate data
738: -- IF p_PROGRAM_UPDATE_DATE is not NULL and p_PROGRAM_UPDATE_DATE <> G_MISS_CHAR
739: -- verify if data is valid
740: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
741: NULL;
742: ELSIF(p_validation_mode = ASO_UTILITY_PVT.G_UPDATE)
743: THEN
744: -- Hint: Validate data
743: THEN
744: -- Hint: Validate data
745: -- IF p_PROGRAM_UPDATE_DATE <> G_MISS_CHAR
746: -- verify if data is valid
747: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
748: NULL;
749: END IF;
750:
751: -- Standard call to get message count and if count is 1, get message info.
757: END Validate_PROGRAM_UPDATE_DATE;
758:
759:
760: PROCEDURE Validate_QUOTE_OBJECT_TYPE (
761: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
762: P_Validation_mode IN VARCHAR2,
763: P_QUOTE_OBJECT_TYPE IN VARCHAR2,
764: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
765: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
768: IS
769: BEGIN
770:
771: -- Initialize message list if p_init_msg_list is set to TRUE.
772: IF FND_API.to_Boolean( p_init_msg_list )
773: THEN
774: FND_MSG_PUB.initialize;
775: END IF;
776:
775: END IF;
776:
777:
778: -- Initialize API return status to SUCCESS
779: x_return_status := FND_API.G_RET_STS_SUCCESS;
780:
781: IF(p_validation_mode = ASO_UTILITY_PVT.G_CREATE)
782: THEN
783: -- Hint: Validate data
782: THEN
783: -- Hint: Validate data
784: -- IF p_QUOTE_OBJECT_TYPE is not NULL and p_QUOTE_OBJECT_TYPE <> G_MISS_CHAR
785: -- verify if data is valid
786: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
787: NULL;
788: ELSIF(p_validation_mode = ASO_UTILITY_PVT.G_UPDATE)
789: THEN
790: -- Hint: Validate data
789: THEN
790: -- Hint: Validate data
791: -- IF p_QUOTE_OBJECT_TYPE <> G_MISS_CHAR
792: -- verify if data is valid
793: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
794: NULL;
795: END IF;
796:
797: -- Standard call to get message count and if count is 1, get message info.
803: END Validate_QUOTE_OBJECT_TYPE;
804:
805:
806: PROCEDURE Validate_QUOTE_OBJECT_ID (
807: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
808: P_Validation_mode IN VARCHAR2,
809: P_QUOTE_OBJECT_ID IN NUMBER,
810: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
811: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
814: IS
815: BEGIN
816:
817: -- Initialize message list if p_init_msg_list is set to TRUE.
818: IF FND_API.to_Boolean( p_init_msg_list )
819: THEN
820: FND_MSG_PUB.initialize;
821: END IF;
822:
821: END IF;
822:
823:
824: -- Initialize API return status to SUCCESS
825: x_return_status := FND_API.G_RET_STS_SUCCESS;
826:
827: IF(p_validation_mode = ASO_UTILITY_PVT.G_CREATE)
828: THEN
829: -- Hint: Validate data
828: THEN
829: -- Hint: Validate data
830: -- IF p_QUOTE_OBJECT_ID is not NULL and p_QUOTE_OBJECT_ID <> G_MISS_CHAR
831: -- verify if data is valid
832: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
833: NULL;
834: ELSIF(p_validation_mode = ASO_UTILITY_PVT.G_UPDATE)
835: THEN
836: -- IF p_QUOTE_OBJECT_ID <> G_MISS_CHAR
834: ELSIF(p_validation_mode = ASO_UTILITY_PVT.G_UPDATE)
835: THEN
836: -- IF p_QUOTE_OBJECT_ID <> G_MISS_CHAR
837: -- verify if data is valid
838: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
839: NULL;
840: END IF;
841:
842: -- Standard call to get message count and if count is 1, get message info.
848: END Validate_QUOTE_OBJECT_ID;
849:
850:
851: PROCEDURE Validate_RLTSHIP_TYPE_CODE (
852: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
853: P_Validation_mode IN VARCHAR2,
854: P_RELATIONSHIP_TYPE_CODE IN VARCHAR2,
855: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
856: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
859: IS
860: BEGIN
861:
862: -- Initialize message list if p_init_msg_list is set to TRUE.
863: IF FND_API.to_Boolean( p_init_msg_list )
864: THEN
865: FND_MSG_PUB.initialize;
866: END IF;
867:
866: END IF;
867:
868:
869: -- Initialize API return status to SUCCESS
870: x_return_status := FND_API.G_RET_STS_SUCCESS;
871:
872: -- validate NOT NULL column
873: IF(p_RELATIONSHIP_TYPE_CODE is NULL)
874: THEN
872: -- validate NOT NULL column
873: IF(p_RELATIONSHIP_TYPE_CODE is NULL)
874: THEN
875: --ASO_UTILITY_PVT.Print('ERROR', 'Private party_rltship API: -Violate NOT NULL constraint(RELATIONSHIP_TYPE_CODE)');
876: x_return_status := FND_API.G_RET_STS_ERROR;
877: END IF;
878:
879: IF(p_validation_mode = ASO_UTILITY_PVT.G_CREATE)
880: THEN
880: THEN
881: -- Hint: Validate data
882: -- IF p_RELATIONSHIP_TYPE_CODE is not NULL and p_RELATIONSHIP_TYPE_CODE <> G_MISS_CHAR
883: -- verify if data is valid
884: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
885: NULL;
886: ELSIF(p_validation_mode = ASO_UTILITY_PVT.G_UPDATE)
887: THEN
888: -- Hint: Validate data
887: THEN
888: -- Hint: Validate data
889: -- IF p_RELATIONSHIP_TYPE_CODE <> G_MISS_CHAR
890: -- verify if data is valid
891: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
892: NULL;
893: END IF;
894:
895: -- Standard call to get message count and if count is 1, get message info.
901: END Validate_RLTSHIP_TYPE_CODE;
902:
903:
904: PROCEDURE Validate_RELATED_OBJ_TYPE_CODE (
905: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
906: P_Validation_mode IN VARCHAR2,
907: P_RELATED_OBJECT_TYPE_CODE IN VARCHAR2,
908: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
909: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
912: IS
913: BEGIN
914:
915: -- Initialize message list if p_init_msg_list is set to TRUE.
916: IF FND_API.to_Boolean( p_init_msg_list )
917: THEN
918: FND_MSG_PUB.initialize;
919: END IF;
920:
919: END IF;
920:
921:
922: -- Initialize API return status to SUCCESS
923: x_return_status := FND_API.G_RET_STS_SUCCESS;
924:
925: IF(p_validation_mode = ASO_UTILITY_PVT.G_CREATE)
926: THEN
927: -- Hint: Validate data
926: THEN
927: -- Hint: Validate data
928: -- IF p_RELATED_OBJECT_TYPE_CODE is not NULL and p_RELATED_OBJECT_TYPE_CODE <> G_MISS_CHAR
929: -- verify if data is valid
930: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
931: NULL;
932: ELSIF(p_validation_mode = ASO_UTILITY_PVT.G_UPDATE)
933: THEN
934: -- Hint: Validate data
933: THEN
934: -- Hint: Validate data
935: -- IF p_RELATED_OBJECT_TYPE_CODE <> G_MISS_CHAR
936: -- verify if data is valid
937: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
938: NULL;
939: END IF;
940:
941: -- Standard call to get message count and if count is 1, get message info.
947: END Validate_RELATED_OBJ_TYPE_CODE;
948:
949:
950: PROCEDURE Validate_RELATED_OBJECT_ID (
951: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
952: P_Validation_mode IN VARCHAR2,
953: P_RELATED_OBJECT_ID IN NUMBER,
954: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
955: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
958: IS
959: BEGIN
960:
961: -- Initialize message list if p_init_msg_list is set to TRUE.
962: IF FND_API.to_Boolean( p_init_msg_list )
963: THEN
964: FND_MSG_PUB.initialize;
965: END IF;
966:
965: END IF;
966:
967:
968: -- Initialize API return status to SUCCESS
969: x_return_status := FND_API.G_RET_STS_SUCCESS;
970:
971: IF(p_validation_mode = ASO_UTILITY_PVT.G_CREATE)
972: THEN
973: -- Hint: Validate data
972: THEN
973: -- Hint: Validate data
974: -- IF p_RELATED_OBJECT_ID is not NULL and p_RELATED_OBJECT_ID <> G_MISS_CHAR
975: -- verify if data is valid
976: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
977: NULL;
978: ELSIF(p_validation_mode = ASO_UTILITY_PVT.G_UPDATE)
979: THEN
980: -- Hint: Validate data
979: THEN
980: -- Hint: Validate data
981: -- IF p_RELATED_OBJECT_ID <> G_MISS_CHAR
982: -- verify if data is valid
983: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
984: NULL;
985: END IF;
986:
987: -- Standard call to get message count and if count is 1, get message info.
993: END Validate_RELATED_OBJECT_ID;
994:
995:
996: PROCEDURE Validate_QUOTE_HEADER_ID (
997: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
998: P_Validation_mode IN VARCHAR2,
999: P_QUOTE_HEADER_ID IN NUMBER,
1000: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
1001: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
1004: IS
1005: BEGIN
1006:
1007: -- Initialize message list if p_init_msg_list is set to TRUE.
1008: IF FND_API.to_Boolean( p_init_msg_list )
1009: THEN
1010: FND_MSG_PUB.initialize;
1011: END IF;
1012:
1011: END IF;
1012:
1013:
1014: -- Initialize API return status to SUCCESS
1015: x_return_status := FND_API.G_RET_STS_SUCCESS;
1016:
1017: -- validate NOT NULL column
1018: IF(p_QUOTE_HEADER_ID is NULL)
1019: THEN
1017: -- validate NOT NULL column
1018: IF(p_QUOTE_HEADER_ID is NULL)
1019: THEN
1020: --ASO_UTILITY_PVT.Print('ERROR', 'Private party_rltship API: -Violate NOT NULL constraint(QUOTE_HEADER_ID)');
1021: x_return_status := FND_API.G_RET_STS_ERROR;
1022: END IF;
1023:
1024: IF(p_validation_mode = ASO_UTILITY_PVT.G_CREATE)
1025: THEN
1025: THEN
1026: -- Hint: Validate data
1027: -- IF p_QUOTE_HEADER_ID is not NULL and p_QUOTE_HEADER_ID <> G_MISS_CHAR
1028: -- verify if data is valid
1029: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1030: NULL;
1031: ELSIF(p_validation_mode = ASO_UTILITY_PVT.G_UPDATE)
1032: THEN
1033: -- Hint: Validate data
1032: THEN
1033: -- Hint: Validate data
1034: -- IF p_QUOTE_HEADER_ID <> G_MISS_CHAR
1035: -- verify if data is valid
1036: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1037: NULL;
1038: END IF;
1039:
1040: -- Standard call to get message count and if count is 1, get message info.
1046: END Validate_QUOTE_HEADER_ID;
1047:
1048:
1049: PROCEDURE Validate_QUOTE_LINE_ID (
1050: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1051: P_Validation_mode IN VARCHAR2,
1052: P_QUOTE_LINE_ID IN NUMBER,
1053: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
1054: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
1057: IS
1058: BEGIN
1059:
1060: -- Initialize message list if p_init_msg_list is set to TRUE.
1061: IF FND_API.to_Boolean( p_init_msg_list )
1062: THEN
1063: FND_MSG_PUB.initialize;
1064: END IF;
1065:
1064: END IF;
1065:
1066:
1067: -- Initialize API return status to SUCCESS
1068: x_return_status := FND_API.G_RET_STS_SUCCESS;
1069:
1070: -- validate NOT NULL column
1071: IF(p_QUOTE_LINE_ID is NULL)
1072: THEN
1070: -- validate NOT NULL column
1071: IF(p_QUOTE_LINE_ID is NULL)
1072: THEN
1073: --ASO_UTILITY_PVT.Print('ERROR', 'Private party_rltship API: -Violate NOT NULL constraint(QUOTE_LINE_ID)');
1074: x_return_status := FND_API.G_RET_STS_ERROR;
1075: END IF;
1076:
1077: IF(p_validation_mode = ASO_UTILITY_PVT.G_CREATE)
1078: THEN
1078: THEN
1079: -- Hint: Validate data
1080: -- IF p_QUOTE_LINE_ID is not NULL and p_QUOTE_LINE_ID <> G_MISS_CHAR
1081: -- verify if data is valid
1082: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1083: NULL;
1084: ELSIF(p_validation_mode = ASO_UTILITY_PVT.G_UPDATE)
1085: THEN
1086: -- Hint: Validate data
1085: THEN
1086: -- Hint: Validate data
1087: -- IF p_QUOTE_LINE_ID <> G_MISS_CHAR
1088: -- verify if data is valid
1089: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1090: NULL;
1091: END IF;
1092:
1093: -- Standard call to get message count and if count is 1, get message info.
1099: END Validate_QUOTE_LINE_ID;
1100:
1101:
1102: PROCEDURE Validate_OBJECT_TYPE_CODE (
1103: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1104: P_Validation_mode IN VARCHAR2,
1105: P_OBJECT_TYPE_CODE IN VARCHAR2,
1106: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
1107: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
1110: IS
1111: BEGIN
1112:
1113: -- Initialize message list if p_init_msg_list is set to TRUE.
1114: IF FND_API.to_Boolean( p_init_msg_list )
1115: THEN
1116: FND_MSG_PUB.initialize;
1117: END IF;
1118:
1117: END IF;
1118:
1119:
1120: -- Initialize API return status to SUCCESS
1121: x_return_status := FND_API.G_RET_STS_SUCCESS;
1122:
1123: -- validate NOT NULL column
1124: IF(p_OBJECT_TYPE_CODE is NULL)
1125: THEN
1123: -- validate NOT NULL column
1124: IF(p_OBJECT_TYPE_CODE is NULL)
1125: THEN
1126: --ASO_UTILITY_PVT.Print('ERROR', 'Private party_rltship API: -Violate NOT NULL constraint(OBJECT_TYPE_CODE)');
1127: x_return_status := FND_API.G_RET_STS_ERROR;
1128: END IF;
1129:
1130: IF(p_validation_mode = ASO_UTILITY_PVT.G_CREATE)
1131: THEN
1131: THEN
1132: -- Hint: Validate data
1133: -- IF p_OBJECT_TYPE_CODE is not NULL and p_OBJECT_TYPE_CODE <> G_MISS_CHAR
1134: -- verify if data is valid
1135: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1136: NULL;
1137: ELSIF(p_validation_mode = ASO_UTILITY_PVT.G_UPDATE)
1138: THEN
1139: -- Hint: Validate data
1138: THEN
1139: -- Hint: Validate data
1140: -- IF p_OBJECT_TYPE_CODE <> G_MISS_CHAR
1141: -- verify if data is valid
1142: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1143: NULL;
1144: END IF;
1145:
1146: -- Standard call to get message count and if count is 1, get message info.
1152: END Validate_OBJECT_TYPE_CODE;
1153:
1154:
1155: PROCEDURE Validate_OBJECT_ID (
1156: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1157: P_Validation_mode IN VARCHAR2,
1158: P_OBJECT_ID IN NUMBER,
1159: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
1160: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
1163: IS
1164: BEGIN
1165:
1166: -- Initialize message list if p_init_msg_list is set to TRUE.
1167: IF FND_API.to_Boolean( p_init_msg_list )
1168: THEN
1169: FND_MSG_PUB.initialize;
1170: END IF;
1171:
1170: END IF;
1171:
1172:
1173: -- Initialize API return status to SUCCESS
1174: x_return_status := FND_API.G_RET_STS_SUCCESS;
1175:
1176: -- validate NOT NULL column
1177: IF(p_OBJECT_ID is NULL)
1178: THEN
1176: -- validate NOT NULL column
1177: IF(p_OBJECT_ID is NULL)
1178: THEN
1179: --ASO_UTILITY_PVT.Print('ERROR', 'Private party_rltship API: -Violate NOT NULL constraint(OBJECT_ID)');
1180: x_return_status := FND_API.G_RET_STS_ERROR;
1181: END IF;
1182:
1183: IF(p_validation_mode = ASO_UTILITY_PVT.G_CREATE)
1184: THEN
1184: THEN
1185: -- Hint: Validate data
1186: -- IF p_OBJECT_ID is not NULL and p_OBJECT_ID <> G_MISS_CHAR
1187: -- verify if data is valid
1188: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1189: NULL;
1190: ELSIF(p_validation_mode = ASO_UTILITY_PVT.G_UPDATE)
1191: THEN
1192: -- Hint: Validate data
1191: THEN
1192: -- Hint: Validate data
1193: -- IF p_OBJECT_ID <> G_MISS_CHAR
1194: -- verify if data is valid
1195: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
1196: NULL;
1197: END IF;
1198:
1199: -- Standard call to get message count and if count is 1, get message info.
1209: -- Hint: If p_validation_mode = ASO_UTILITY_PVT.G_VALIDATE_UPDATE, we should use cursor
1210: -- to get old values for all fields used in inter-field validation and set all G_MISS_XXX fields to original value
1211: -- stored in database table.
1212: PROCEDURE Validate_PARTY_RLTSHIP_rec(
1213: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1214: P_Validation_mode IN VARCHAR2,
1215: P_PARTY_RLTSHIP_Rec IN ASO_quote_PUB.PARTY_RLTSHIP_Rec_Type,
1216: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
1217: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
1220: IS
1221: BEGIN
1222:
1223: -- Initialize message list if p_init_msg_list is set to TRUE.
1224: IF FND_API.to_Boolean( p_init_msg_list )
1225: THEN
1226: FND_MSG_PUB.initialize;
1227: END IF;
1228:
1227: END IF;
1228:
1229:
1230: -- Initialize API return status to SUCCESS
1231: x_return_status := FND_API.G_RET_STS_SUCCESS;
1232:
1233: -- Hint: Validate data
1234: -- If data not valid
1235: -- THEN
1232:
1233: -- Hint: Validate data
1234: -- If data not valid
1235: -- THEN
1236: -- x_return_status := FND_API.G_RET_STS_ERROR;
1237:
1238: -- Debug Message
1239: --ASO_UTILITY_PVT.Print(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'API_INVALID_RECORD');
1240:
1246:
1247: END Validate_PARTY_RLTSHIP_Rec;
1248:
1249: PROCEDURE Validate_party_rltship(
1250: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1251: P_Validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1252: P_Validation_mode IN VARCHAR2,
1253: P_PARTY_RLTSHIP_Rec IN ASO_quote_PUB.PARTY_RLTSHIP_Rec_Type,
1254: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
1247: END Validate_PARTY_RLTSHIP_Rec;
1248:
1249: PROCEDURE Validate_party_rltship(
1250: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
1251: P_Validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1252: P_Validation_mode IN VARCHAR2,
1253: P_PARTY_RLTSHIP_Rec IN ASO_quote_PUB.PARTY_RLTSHIP_Rec_Type,
1254: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
1255: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
1263: -- --ASO_UTILITY_PVT.Print(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW, 'Private API: ' || l_api_name || 'start');
1264:
1265:
1266: -- Initialize API return status to SUCCESS
1267: x_return_status := FND_API.G_RET_STS_SUCCESS;
1268:
1269: IF (p_validation_level >= ASO_UTILITY_PVT.G_VALID_LEVEL_ITEM) THEN
1270: -- Hint: We provide validation procedure for every column. Developer should delete
1271: -- unnecessary validation procedures.
1269: IF (p_validation_level >= ASO_UTILITY_PVT.G_VALID_LEVEL_ITEM) THEN
1270: -- Hint: We provide validation procedure for every column. Developer should delete
1271: -- unnecessary validation procedures.
1272: Validate_PARTY_RLTSHIP_ID(
1273: p_init_msg_list => FND_API.G_FALSE,
1274: p_validation_mode => p_validation_mode,
1275: p_PARTY_RELATIONSHIP_ID => P_PARTY_RLTSHIP_Rec.PARTY_RELATIONSHIP_ID,
1276: -- Hint: You may add x_item_property_rec as one of your OUT NOCOPY /* file.sql.39 change */ parameter if you'd like to pass back item property.
1277: x_return_status => x_return_status,
1276: -- Hint: You may add x_item_property_rec as one of your OUT NOCOPY /* file.sql.39 change */ parameter if you'd like to pass back item property.
1277: x_return_status => x_return_status,
1278: x_msg_count => x_msg_count,
1279: x_msg_data => x_msg_data);
1280: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1281: raise FND_API.G_EXC_ERROR;
1282: END IF;
1283:
1284: /* Validate_REQUEST_ID(
1277: x_return_status => x_return_status,
1278: x_msg_count => x_msg_count,
1279: x_msg_data => x_msg_data);
1280: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1281: raise FND_API.G_EXC_ERROR;
1282: END IF;
1283:
1284: /* Validate_REQUEST_ID(
1285: p_init_msg_list => FND_API.G_FALSE,
1281: raise FND_API.G_EXC_ERROR;
1282: END IF;
1283:
1284: /* Validate_REQUEST_ID(
1285: p_init_msg_list => FND_API.G_FALSE,
1286: p_validation_mode => p_validation_mode,
1287: p_REQUEST_ID => P_PARTY_RLTSHIP_Rec.REQUEST_ID,
1288: x_return_status => x_return_status,
1289: x_msg_count => x_msg_count,
1287: p_REQUEST_ID => P_PARTY_RLTSHIP_Rec.REQUEST_ID,
1288: x_return_status => x_return_status,
1289: x_msg_count => x_msg_count,
1290: x_msg_data => x_msg_data);
1291: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1292: raise FND_API.G_EXC_ERROR;
1293: END IF;
1294:
1295: Validate_PROGRAM_APPLICATION_ID(
1288: x_return_status => x_return_status,
1289: x_msg_count => x_msg_count,
1290: x_msg_data => x_msg_data);
1291: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1292: raise FND_API.G_EXC_ERROR;
1293: END IF;
1294:
1295: Validate_PROGRAM_APPLICATION_ID(
1296: p_init_msg_list => FND_API.G_FALSE,
1292: raise FND_API.G_EXC_ERROR;
1293: END IF;
1294:
1295: Validate_PROGRAM_APPLICATION_ID(
1296: p_init_msg_list => FND_API.G_FALSE,
1297: p_validation_mode => p_validation_mode,
1298: p_PROGRAM_APPLICATION_ID => P_PARTY_RLTSHIP_Rec.PROGRAM_APPLICATION_ID,
1299: x_return_status => x_return_status,
1300: x_msg_count => x_msg_count,
1298: p_PROGRAM_APPLICATION_ID => P_PARTY_RLTSHIP_Rec.PROGRAM_APPLICATION_ID,
1299: x_return_status => x_return_status,
1300: x_msg_count => x_msg_count,
1301: x_msg_data => x_msg_data);
1302: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1303: raise FND_API.G_EXC_ERROR;
1304: END IF;
1305:
1306: Validate_PROGRAM_ID(
1299: x_return_status => x_return_status,
1300: x_msg_count => x_msg_count,
1301: x_msg_data => x_msg_data);
1302: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1303: raise FND_API.G_EXC_ERROR;
1304: END IF;
1305:
1306: Validate_PROGRAM_ID(
1307: p_init_msg_list => FND_API.G_FALSE,
1303: raise FND_API.G_EXC_ERROR;
1304: END IF;
1305:
1306: Validate_PROGRAM_ID(
1307: p_init_msg_list => FND_API.G_FALSE,
1308: p_validation_mode => p_validation_mode,
1309: p_PROGRAM_ID => P_PARTY_RLTSHIP_Rec.PROGRAM_ID,
1310: x_return_status => x_return_status,
1311: x_msg_count => x_msg_count,
1309: p_PROGRAM_ID => P_PARTY_RLTSHIP_Rec.PROGRAM_ID,
1310: x_return_status => x_return_status,
1311: x_msg_count => x_msg_count,
1312: x_msg_data => x_msg_data);
1313: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1314: raise FND_API.G_EXC_ERROR;
1315: END IF;
1316:
1317: Validate_PROGRAM_UPDATE_DATE(
1310: x_return_status => x_return_status,
1311: x_msg_count => x_msg_count,
1312: x_msg_data => x_msg_data);
1313: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1314: raise FND_API.G_EXC_ERROR;
1315: END IF;
1316:
1317: Validate_PROGRAM_UPDATE_DATE(
1318: p_init_msg_list => FND_API.G_FALSE,
1314: raise FND_API.G_EXC_ERROR;
1315: END IF;
1316:
1317: Validate_PROGRAM_UPDATE_DATE(
1318: p_init_msg_list => FND_API.G_FALSE,
1319: p_validation_mode => p_validation_mode,
1320: p_PROGRAM_UPDATE_DATE => P_PARTY_RLTSHIP_Rec.PROGRAM_UPDATE_DATE,
1321: x_return_status => x_return_status,
1322: x_msg_count => x_msg_count,
1320: p_PROGRAM_UPDATE_DATE => P_PARTY_RLTSHIP_Rec.PROGRAM_UPDATE_DATE,
1321: x_return_status => x_return_status,
1322: x_msg_count => x_msg_count,
1323: x_msg_data => x_msg_data);
1324: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1325: raise FND_API.G_EXC_ERROR;
1326: END IF;
1327:
1328:
1321: x_return_status => x_return_status,
1322: x_msg_count => x_msg_count,
1323: x_msg_data => x_msg_data);
1324: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1325: raise FND_API.G_EXC_ERROR;
1326: END IF;
1327:
1328:
1329: Validate_QUOTE_OBJECT_TYPE(
1326: END IF;
1327:
1328:
1329: Validate_QUOTE_OBJECT_TYPE(
1330: p_init_msg_list => FND_API.G_FALSE,
1331: p_validation_mode => p_validation_mode,
1332: p_QUOTE_OBJECT_TYPE => P_PARTY_RLTSHIP_Rec.QUOTE_OBJECT_TYPE,
1333: x_return_status => x_return_status,
1334: x_msg_count => x_msg_count,
1332: p_QUOTE_OBJECT_TYPE => P_PARTY_RLTSHIP_Rec.QUOTE_OBJECT_TYPE,
1333: x_return_status => x_return_status,
1334: x_msg_count => x_msg_count,
1335: x_msg_data => x_msg_data);
1336: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1337: raise FND_API.G_EXC_ERROR;
1338: END IF;
1339:
1340: Validate_QUOTE_OBJECT_ID(
1333: x_return_status => x_return_status,
1334: x_msg_count => x_msg_count,
1335: x_msg_data => x_msg_data);
1336: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1337: raise FND_API.G_EXC_ERROR;
1338: END IF;
1339:
1340: Validate_QUOTE_OBJECT_ID(
1341: p_init_msg_list => FND_API.G_FALSE,
1337: raise FND_API.G_EXC_ERROR;
1338: END IF;
1339:
1340: Validate_QUOTE_OBJECT_ID(
1341: p_init_msg_list => FND_API.G_FALSE,
1342: p_validation_mode => p_validation_mode,
1343: p_QUOTE_OBJECT_ID => P_PARTY_RLTSHIP_Rec.QUOTE_OBJECT_ID,
1344: x_return_status => x_return_status,
1345: x_msg_count => x_msg_count,
1343: p_QUOTE_OBJECT_ID => P_PARTY_RLTSHIP_Rec.QUOTE_OBJECT_ID,
1344: x_return_status => x_return_status,
1345: x_msg_count => x_msg_count,
1346: x_msg_data => x_msg_data);
1347: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1348: raise FND_API.G_EXC_ERROR;
1349: END IF;
1350: */
1351: Validate_RLTSHIP_TYPE_CODE(
1344: x_return_status => x_return_status,
1345: x_msg_count => x_msg_count,
1346: x_msg_data => x_msg_data);
1347: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1348: raise FND_API.G_EXC_ERROR;
1349: END IF;
1350: */
1351: Validate_RLTSHIP_TYPE_CODE(
1352: p_init_msg_list => FND_API.G_FALSE,
1348: raise FND_API.G_EXC_ERROR;
1349: END IF;
1350: */
1351: Validate_RLTSHIP_TYPE_CODE(
1352: p_init_msg_list => FND_API.G_FALSE,
1353: p_validation_mode => p_validation_mode,
1354: p_RELATIONSHIP_TYPE_CODE => P_PARTY_RLTSHIP_Rec.RELATIONSHIP_TYPE_CODE,
1355: x_return_status => x_return_status,
1356: x_msg_count => x_msg_count,
1354: p_RELATIONSHIP_TYPE_CODE => P_PARTY_RLTSHIP_Rec.RELATIONSHIP_TYPE_CODE,
1355: x_return_status => x_return_status,
1356: x_msg_count => x_msg_count,
1357: x_msg_data => x_msg_data);
1358: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1359: raise FND_API.G_EXC_ERROR;
1360: END IF;
1361: /*
1362: Validate_RELATED_OBJ_TYPE_CODE(
1355: x_return_status => x_return_status,
1356: x_msg_count => x_msg_count,
1357: x_msg_data => x_msg_data);
1358: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1359: raise FND_API.G_EXC_ERROR;
1360: END IF;
1361: /*
1362: Validate_RELATED_OBJ_TYPE_CODE(
1363: p_init_msg_list => FND_API.G_FALSE,
1359: raise FND_API.G_EXC_ERROR;
1360: END IF;
1361: /*
1362: Validate_RELATED_OBJ_TYPE_CODE(
1363: p_init_msg_list => FND_API.G_FALSE,
1364: p_validation_mode => p_validation_mode,
1365: p_RELATED_OBJECT_TYPE_CODE => P_PARTY_RLTSHIP_Rec.RELATED_OBJECT_TYPE_CODE,
1366: x_return_status => x_return_status,
1367: x_msg_count => x_msg_count,
1365: p_RELATED_OBJECT_TYPE_CODE => P_PARTY_RLTSHIP_Rec.RELATED_OBJECT_TYPE_CODE,
1366: x_return_status => x_return_status,
1367: x_msg_count => x_msg_count,
1368: x_msg_data => x_msg_data);
1369: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1370: raise FND_API.G_EXC_ERROR;
1371: END IF;
1372:
1373: Validate_RELATED_OBJECT_ID(
1366: x_return_status => x_return_status,
1367: x_msg_count => x_msg_count,
1368: x_msg_data => x_msg_data);
1369: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1370: raise FND_API.G_EXC_ERROR;
1371: END IF;
1372:
1373: Validate_RELATED_OBJECT_ID(
1374: p_init_msg_list => FND_API.G_FALSE,
1370: raise FND_API.G_EXC_ERROR;
1371: END IF;
1372:
1373: Validate_RELATED_OBJECT_ID(
1374: p_init_msg_list => FND_API.G_FALSE,
1375: p_validation_mode => p_validation_mode,
1376: p_RELATED_OBJECT_ID => P_PARTY_RLTSHIP_Rec.RELATED_OBJECT_ID,
1377: x_return_status => x_return_status,
1378: x_msg_count => x_msg_count,
1376: p_RELATED_OBJECT_ID => P_PARTY_RLTSHIP_Rec.RELATED_OBJECT_ID,
1377: x_return_status => x_return_status,
1378: x_msg_count => x_msg_count,
1379: x_msg_data => x_msg_data);
1380: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1381: raise FND_API.G_EXC_ERROR;
1382: END IF;
1383: */
1384: Validate_QUOTE_HEADER_ID(
1377: x_return_status => x_return_status,
1378: x_msg_count => x_msg_count,
1379: x_msg_data => x_msg_data);
1380: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1381: raise FND_API.G_EXC_ERROR;
1382: END IF;
1383: */
1384: Validate_QUOTE_HEADER_ID(
1385: p_init_msg_list => FND_API.G_FALSE,
1381: raise FND_API.G_EXC_ERROR;
1382: END IF;
1383: */
1384: Validate_QUOTE_HEADER_ID(
1385: p_init_msg_list => FND_API.G_FALSE,
1386: p_validation_mode => p_validation_mode,
1387: p_QUOTE_HEADER_ID => P_PARTY_RLTSHIP_Rec.QUOTE_HEADER_ID,
1388: x_return_status => x_return_status,
1389: x_msg_count => x_msg_count,
1387: p_QUOTE_HEADER_ID => P_PARTY_RLTSHIP_Rec.QUOTE_HEADER_ID,
1388: x_return_status => x_return_status,
1389: x_msg_count => x_msg_count,
1390: x_msg_data => x_msg_data);
1391: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1392: raise FND_API.G_EXC_ERROR;
1393: END IF;
1394:
1395: Validate_QUOTE_LINE_ID(
1388: x_return_status => x_return_status,
1389: x_msg_count => x_msg_count,
1390: x_msg_data => x_msg_data);
1391: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1392: raise FND_API.G_EXC_ERROR;
1393: END IF;
1394:
1395: Validate_QUOTE_LINE_ID(
1396: p_init_msg_list => FND_API.G_FALSE,
1392: raise FND_API.G_EXC_ERROR;
1393: END IF;
1394:
1395: Validate_QUOTE_LINE_ID(
1396: p_init_msg_list => FND_API.G_FALSE,
1397: p_validation_mode => p_validation_mode,
1398: p_QUOTE_LINE_ID => P_PARTY_RLTSHIP_Rec.QUOTE_LINE_ID,
1399: x_return_status => x_return_status,
1400: x_msg_count => x_msg_count,
1398: p_QUOTE_LINE_ID => P_PARTY_RLTSHIP_Rec.QUOTE_LINE_ID,
1399: x_return_status => x_return_status,
1400: x_msg_count => x_msg_count,
1401: x_msg_data => x_msg_data);
1402: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1403: raise FND_API.G_EXC_ERROR;
1404: END IF;
1405:
1406: Validate_OBJECT_TYPE_CODE(
1399: x_return_status => x_return_status,
1400: x_msg_count => x_msg_count,
1401: x_msg_data => x_msg_data);
1402: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1403: raise FND_API.G_EXC_ERROR;
1404: END IF;
1405:
1406: Validate_OBJECT_TYPE_CODE(
1407: p_init_msg_list => FND_API.G_FALSE,
1403: raise FND_API.G_EXC_ERROR;
1404: END IF;
1405:
1406: Validate_OBJECT_TYPE_CODE(
1407: p_init_msg_list => FND_API.G_FALSE,
1408: p_validation_mode => p_validation_mode,
1409: p_OBJECT_TYPE_CODE => P_PARTY_RLTSHIP_Rec.OBJECT_TYPE_CODE,
1410: x_return_status => x_return_status,
1411: x_msg_count => x_msg_count,
1409: p_OBJECT_TYPE_CODE => P_PARTY_RLTSHIP_Rec.OBJECT_TYPE_CODE,
1410: x_return_status => x_return_status,
1411: x_msg_count => x_msg_count,
1412: x_msg_data => x_msg_data);
1413: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1414: raise FND_API.G_EXC_ERROR;
1415: END IF;
1416:
1417: Validate_OBJECT_ID(
1410: x_return_status => x_return_status,
1411: x_msg_count => x_msg_count,
1412: x_msg_data => x_msg_data);
1413: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1414: raise FND_API.G_EXC_ERROR;
1415: END IF;
1416:
1417: Validate_OBJECT_ID(
1418: p_init_msg_list => FND_API.G_FALSE,
1414: raise FND_API.G_EXC_ERROR;
1415: END IF;
1416:
1417: Validate_OBJECT_ID(
1418: p_init_msg_list => FND_API.G_FALSE,
1419: p_validation_mode => p_validation_mode,
1420: p_OBJECT_ID => P_PARTY_RLTSHIP_Rec.OBJECT_ID,
1421: x_return_status => x_return_status,
1422: x_msg_count => x_msg_count,
1420: p_OBJECT_ID => P_PARTY_RLTSHIP_Rec.OBJECT_ID,
1421: x_return_status => x_return_status,
1422: x_msg_count => x_msg_count,
1423: x_msg_data => x_msg_data);
1424: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1425: raise FND_API.G_EXC_ERROR;
1426: END IF;
1427:
1428: END IF;
1421: x_return_status => x_return_status,
1422: x_msg_count => x_msg_count,
1423: x_msg_data => x_msg_data);
1424: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1425: raise FND_API.G_EXC_ERROR;
1426: END IF;
1427:
1428: END IF;
1429:
1430: /* IF (p_validation_level >= ASO_UTILITY_PVT.G_VALID_LEVEL_RECORD) THEN
1431: -- Hint: Inter-field level validation can be added here
1432: -- invoke record level validation procedures
1433: Validate_PARTY_RLTSHIP_Rec(
1434: p_init_msg_list => FND_API.G_FALSE,
1435: p_validation_mode => p_validation_mode,
1436: P_PARTY_RLTSHIP_Rec => P_PARTY_RLTSHIP_Rec,
1437: x_return_status => x_return_status,
1438: x_msg_count => x_msg_count,
1437: x_return_status => x_return_status,
1438: x_msg_count => x_msg_count,
1439: x_msg_data => x_msg_data);
1440:
1441: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1442: raise FND_API.G_EXC_ERROR;
1443: END IF;
1444: END IF;
1445:
1438: x_msg_count => x_msg_count,
1439: x_msg_data => x_msg_data);
1440:
1441: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1442: raise FND_API.G_EXC_ERROR;
1443: END IF;
1444: END IF;
1445:
1446: IF (p_validation_level >= ASO_UTILITY_PVT.G_VALID_LEVEL_INTER_RECORD) THEN