11: G_PKG_NAME CONSTANT VARCHAR2(30):= 'ASO_HEADER_RLTSHIP_PVT';
12: G_FILE_NAME CONSTANT VARCHAR2(12) := 'asovhedb.pls';
13: PROCEDURE Create_header_rltship(
14: P_Api_Version_Number IN NUMBER,
15: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
16: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
17: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
18: P_HEADER_RLTSHIP_Rec IN ASO_QUOTE_PUB.HEADER_RLTSHIP_Rec_Type := ASO_QUOTE_PUB.G_MISS_HEADER_RLTSHIP_REC,
19: X_HEADER_RELATIONSHIP_ID OUT NOCOPY /* file.sql.39 change */ NUMBER,
12: G_FILE_NAME CONSTANT VARCHAR2(12) := 'asovhedb.pls';
13: PROCEDURE Create_header_rltship(
14: P_Api_Version_Number IN NUMBER,
15: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
16: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
17: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
18: P_HEADER_RLTSHIP_Rec IN ASO_QUOTE_PUB.HEADER_RLTSHIP_Rec_Type := ASO_QUOTE_PUB.G_MISS_HEADER_RLTSHIP_REC,
19: X_HEADER_RELATIONSHIP_ID OUT NOCOPY /* file.sql.39 change */ NUMBER,
20: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
13: PROCEDURE Create_header_rltship(
14: P_Api_Version_Number IN NUMBER,
15: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
16: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
17: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
18: P_HEADER_RLTSHIP_Rec IN ASO_QUOTE_PUB.HEADER_RLTSHIP_Rec_Type := ASO_QUOTE_PUB.G_MISS_HEADER_RLTSHIP_REC,
19: X_HEADER_RELATIONSHIP_ID OUT NOCOPY /* file.sql.39 change */ NUMBER,
20: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
21: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
32: -- Standard Start of API savepoint
33: SAVEPOINT CREATE_HEADER_RLTSHIP_PVT;
34:
35: -- Standard call to check for call compatibility.
36: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
37: p_api_version_number,
38: l_api_name,
39: G_PKG_NAME)
40: THEN
37: p_api_version_number,
38: l_api_name,
39: G_PKG_NAME)
40: THEN
41: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
42: END IF;
43:
44:
45: -- Initialize message list if p_init_msg_list is set to TRUE.
42: END IF;
43:
44:
45: -- Initialize message list if p_init_msg_list is set to TRUE.
46: IF FND_API.to_Boolean( p_init_msg_list )
47: THEN
48: FND_MSG_PUB.initialize;
49: END IF;
50:
50:
51:
52:
53: -- Initialize API return status to SUCCESS
54: x_return_status := FND_API.G_RET_STS_SUCCESS;
55:
56: --
57: -- API body
58: --
67: FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
68: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
69: FND_MSG_PUB.ADD;
70: END IF;
71: RAISE FND_API.G_EXC_ERROR;
72: END IF;
73:
74:
75:
72: END IF;
73:
74:
75:
76: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
77: THEN
78:
79: -- Invoke validation procedures
80: Validate_header_rltship(
77: THEN
78:
79: -- Invoke validation procedures
80: Validate_header_rltship(
81: p_init_msg_list => FND_API.G_FALSE,
82: p_validation_level => p_validation_level,
83: p_validation_mode => ASO_UTILITY_PVT.G_CREATE,
84: P_HEADER_RLTSHIP_Rec => P_HEADER_RLTSHIP_Rec,
85: x_return_status => x_return_status,
87: x_msg_data => x_msg_data);
88:
89: END IF;
90:
91: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
92: RAISE FND_API.G_EXC_ERROR;
93: END IF;
94:
95:
88:
89: END IF;
90:
91: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
92: RAISE FND_API.G_EXC_ERROR;
93: END IF;
94:
95:
96: -- Invoke table handler(ASO_HEADER_RELATIONSHIPS_PKG.Insert_Row)
111: p_RECIPROCAL_FLAG => p_HEADER_RLTSHIP_rec.RECIPROCAL_FLAG,
112: p_OBJECT_VERSION_NUMBER => p_HEADER_RLTSHIP_rec.OBJECT_VERSION_NUMBER
113: );
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: p_OBJECT_VERSION_NUMBER => p_HEADER_RLTSHIP_rec.OBJECT_VERSION_NUMBER
113: );
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: -- End of API body
120: -- End of API body
121: --
122:
123: -- Standard check for p_commit
124: IF FND_API.to_Boolean( p_commit )
125: THEN
126: COMMIT WORK;
127: END IF;
128:
132: ( p_count => x_msg_count,
133: p_data => x_msg_data
134: );
135: EXCEPTION
136: WHEN FND_API.G_EXC_ERROR THEN
137: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
138: P_API_NAME => L_API_NAME
139: ,P_PKG_NAME => G_PKG_NAME
140: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
142: ,X_MSG_COUNT => X_MSG_COUNT
143: ,X_MSG_DATA => X_MSG_DATA
144: ,X_RETURN_STATUS => X_RETURN_STATUS);
145:
146: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
147: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
148: P_API_NAME => L_API_NAME
149: ,P_PKG_NAME => G_PKG_NAME
150: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
166: End Create_header_rltship;
167:
168: PROCEDURE Update_header_rltship(
169: P_Api_Version_Number IN NUMBER,
170: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
171: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
172: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
173: P_HEADER_RLTSHIP_Rec IN ASO_quote_PUB.HEADER_RLTSHIP_Rec_Type,
174: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
167:
168: PROCEDURE Update_header_rltship(
169: P_Api_Version_Number IN NUMBER,
170: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
171: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
172: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
173: P_HEADER_RLTSHIP_Rec IN ASO_quote_PUB.HEADER_RLTSHIP_Rec_Type,
174: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
175: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
168: PROCEDURE Update_header_rltship(
169: P_Api_Version_Number IN NUMBER,
170: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
171: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
172: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
173: P_HEADER_RLTSHIP_Rec IN ASO_quote_PUB.HEADER_RLTSHIP_Rec_Type,
174: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
175: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
176: X_Msg_Data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
209: -- Standard Start of API savepoint
210: SAVEPOINT UPDATE_HEADER_RLTSHIP_PVT;
211:
212: -- Standard call to check for call compatibility.
213: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
214: p_api_version_number,
215: l_api_name,
216: G_PKG_NAME)
217: THEN
214: p_api_version_number,
215: l_api_name,
216: G_PKG_NAME)
217: THEN
218: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
219: END IF;
220:
221:
222: -- Initialize message list if p_init_msg_list is set to TRUE.
219: END IF;
220:
221:
222: -- Initialize message list if p_init_msg_list is set to TRUE.
223: IF FND_API.to_Boolean( p_init_msg_list )
224: THEN
225: FND_MSG_PUB.initialize;
226: END IF;
227:
227:
228:
229:
230: -- Initialize API return status to SUCCESS
231: x_return_status := FND_API.G_RET_STS_SUCCESS;
232:
233: --
234: -- Api body
235: --
260: FND_MESSAGE.Set_Name('ASO', 'API_MISSING_UPDATE_TARGET');
261: FND_MESSAGE.Set_Token ('INFO', 'header_rltship', FALSE);
262: FND_MSG_PUB.Add;
263: END IF;
264: raise FND_API.G_EXC_ERROR;
265: END IF;
266: Close C_Get_header_rltship;
267:
268: If (l_tar_HEADER_RLTSHIP_rec.last_update_date is NULL or
265: END IF;
266: Close C_Get_header_rltship;
267:
268: If (l_tar_HEADER_RLTSHIP_rec.last_update_date is NULL or
269: l_tar_HEADER_RLTSHIP_rec.last_update_date = FND_API.G_MISS_Date ) Then
270: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
271: THEN
272: FND_MESSAGE.Set_Name('ASO', 'API_MISSING_ID');
273: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
272: FND_MESSAGE.Set_Name('ASO', 'API_MISSING_ID');
273: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
274: FND_MSG_PUB.ADD;
275: END IF;
276: raise FND_API.G_EXC_ERROR;
277: End if;
278: -- Check Whether record has been changed by someone else
279: If (l_tar_HEADER_RLTSHIP_rec.last_update_date <> l_ref_HEADER_RLTSHIP_rec.last_update_date) Then
280: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
282: FND_MESSAGE.Set_Name('ASO', 'API_RECORD_CHANGED');
283: FND_MESSAGE.Set_Token('INFO', 'header_rltship', FALSE);
284: FND_MSG_PUB.ADD;
285: END IF;
286: raise FND_API.G_EXC_ERROR;
287: End if;
288:
289: -- Invoke table handler(ASO_HEADER_RELATIONSHIPS_PKG.Update_Row)
290: ASO_HEADER_RELATIONSHIPS_PKG.Update_Row(
308: -- End of API body.
309: --
310:
311: -- Standard check for p_commit
312: IF FND_API.to_Boolean( p_commit )
313: THEN
314: COMMIT WORK;
315: END IF;
316:
321: ( p_count => x_msg_count,
322: p_data => x_msg_data
323: );
324: EXCEPTION
325: WHEN FND_API.G_EXC_ERROR THEN
326: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
327: P_API_NAME => L_API_NAME
328: ,P_PKG_NAME => G_PKG_NAME
329: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
331: ,X_MSG_COUNT => X_MSG_COUNT
332: ,X_MSG_DATA => X_MSG_DATA
333: ,X_RETURN_STATUS => X_RETURN_STATUS);
334:
335: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
336: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
337: P_API_NAME => L_API_NAME
338: ,P_PKG_NAME => G_PKG_NAME
339: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
363: -- Pre-Req :
364: -- Parameters:
365: -- IN
366: -- p_api_version_number IN NUMBER Required
367: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
368: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
369: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
370: -- p_identity_salesforce_id IN NUMBER Optional Default = NULL
371: -- P_HEADER_RLTSHIP_Rec IN HEADER_RLTSHIP_Rec_Type Required
364: -- Parameters:
365: -- IN
366: -- p_api_version_number IN NUMBER Required
367: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
368: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
369: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
370: -- p_identity_salesforce_id IN NUMBER Optional Default = NULL
371: -- P_HEADER_RLTSHIP_Rec IN HEADER_RLTSHIP_Rec_Type Required
372: --
365: -- IN
366: -- p_api_version_number IN NUMBER Required
367: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
368: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
369: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
370: -- p_identity_salesforce_id IN NUMBER Optional Default = NULL
371: -- P_HEADER_RLTSHIP_Rec IN HEADER_RLTSHIP_Rec_Type Required
372: --
373: -- OUT NOCOPY /* file.sql.39 change */ :
375: -- x_msg_count OUT NOCOPY /* file.sql.39 change */ NUMBER
376: -- x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
377: PROCEDURE Delete_header_rltship(
378: P_Api_Version_Number IN NUMBER,
379: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
380: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
381: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
382: P_HEADER_RLTSHIP_id IN NUMBER,
383: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
376: -- x_msg_data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
377: PROCEDURE Delete_header_rltship(
378: P_Api_Version_Number IN NUMBER,
379: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
380: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
381: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
382: P_HEADER_RLTSHIP_id IN NUMBER,
383: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
384: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
377: PROCEDURE Delete_header_rltship(
378: P_Api_Version_Number IN NUMBER,
379: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
380: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
381: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
382: P_HEADER_RLTSHIP_id IN NUMBER,
383: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
384: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
385: X_Msg_Data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
391: -- Standard Start of API savepoint
392: SAVEPOINT DELETE_HEADER_RLTSHIP_PVT;
393:
394: -- Standard call to check for call compatibility.
395: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
396: p_api_version_number,
397: l_api_name,
398: G_PKG_NAME)
399: THEN
396: p_api_version_number,
397: l_api_name,
398: G_PKG_NAME)
399: THEN
400: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
401: END IF;
402:
403:
404: -- Initialize message list if p_init_msg_list is set to TRUE.
401: END IF;
402:
403:
404: -- Initialize message list if p_init_msg_list is set to TRUE.
405: IF FND_API.to_Boolean( p_init_msg_list )
406: THEN
407: FND_MSG_PUB.initialize;
408: END IF;
409:
407: FND_MSG_PUB.initialize;
408: END IF;
409:
410: -- Initialize API return status to SUCCESS
411: x_return_status := FND_API.G_RET_STS_SUCCESS;
412:
413: --
414: -- Api body
415: --
421: -- End of API body
422: --
423:
424: -- Standard check for p_commit
425: IF FND_API.to_Boolean( p_commit )
426: THEN
427: COMMIT WORK;
428: END IF;
429:
436: );
437:
438:
439: EXCEPTION
440: WHEN FND_API.G_EXC_ERROR THEN
441: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
442: P_API_NAME => L_API_NAME
443: ,P_PKG_NAME => G_PKG_NAME
444: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
446: ,X_MSG_COUNT => X_MSG_COUNT
447: ,X_MSG_DATA => X_MSG_DATA
448: ,X_RETURN_STATUS => X_RETURN_STATUS);
449:
450: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
451: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
452: P_API_NAME => L_API_NAME
453: ,P_PKG_NAME => G_PKG_NAME
454: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
469: End Delete_header_rltship;
470:
471: PROCEDURE Delete_header_rltship(
472: P_Api_Version_Number IN NUMBER,
473: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
474: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
475: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
476: P_HEADER_id IN NUMBER,
477: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
470:
471: PROCEDURE Delete_header_rltship(
472: P_Api_Version_Number IN NUMBER,
473: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
474: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
475: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
476: P_HEADER_id IN NUMBER,
477: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
478: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
471: PROCEDURE Delete_header_rltship(
472: P_Api_Version_Number IN NUMBER,
473: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
474: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
475: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
476: P_HEADER_id IN NUMBER,
477: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
478: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
479: X_Msg_Data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
492: -- Standard Start of API savepoint
493: SAVEPOINT DELETE_HEADER_RLTSHIP_PVT;
494:
495: -- Standard call to check for call compatibility.
496: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
497: p_api_version_number,
498: l_api_name,
499: G_PKG_NAME)
500: THEN
497: p_api_version_number,
498: l_api_name,
499: G_PKG_NAME)
500: THEN
501: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
502: END IF;
503:
504:
505: -- Initialize message list if p_init_msg_list is set to TRUE.
502: END IF;
503:
504:
505: -- Initialize message list if p_init_msg_list is set to TRUE.
506: IF FND_API.to_Boolean( p_init_msg_list )
507: THEN
508: FND_MSG_PUB.initialize;
509: END IF;
510:
509: END IF;
510:
511:
512: -- Initialize API return status to SUCCESS
513: x_return_status := FND_API.G_RET_STS_SUCCESS;
514:
515: --
516: -- Api body
517: --
523: X_Return_Status => x_return_status,
524: X_Msg_Count => x_msg_count,
525: X_Msg_Data => x_msg_data
526: ) ;
527: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
528: RAISE FND_API.G_EXC_ERROR;
529: END IF;
530: END LOOP;
531:
524: X_Msg_Count => x_msg_count,
525: X_Msg_Data => x_msg_data
526: ) ;
527: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
528: RAISE FND_API.G_EXC_ERROR;
529: END IF;
530: END LOOP;
531:
532: -- Standard check for p_commit
529: END IF;
530: END LOOP;
531:
532: -- Standard check for p_commit
533: IF FND_API.to_Boolean( p_commit )
534: THEN
535: COMMIT WORK;
536: END IF;
537:
542: p_data => x_msg_data
543: );
544:
545: EXCEPTION
546: WHEN FND_API.G_EXC_ERROR THEN
547: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
548: P_API_NAME => L_API_NAME
549: ,P_PKG_NAME => G_PKG_NAME
550: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
552: ,X_MSG_COUNT => X_MSG_COUNT
553: ,X_MSG_DATA => X_MSG_DATA
554: ,X_RETURN_STATUS => X_RETURN_STATUS);
555:
556: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
557: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
558: P_API_NAME => L_API_NAME
559: ,P_PKG_NAME => G_PKG_NAME
560: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
575: End Delete_header_rltship;
576:
577:
578: PROCEDURE Validate_HEADER_RLTSHIP_ID (
579: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
580: P_Validation_mode IN VARCHAR2,
581: P_HEADER_RELATIONSHIP_ID IN NUMBER,
582: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
583: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
586: IS
587: BEGIN
588:
589: -- Initialize message list if p_init_msg_list is set to TRUE.
590: IF FND_API.to_Boolean( p_init_msg_list )
591: THEN
592: FND_MSG_PUB.initialize;
593: END IF;
594:
593: END IF;
594:
595:
596: -- Initialize API return status to SUCCESS
597: x_return_status := FND_API.G_RET_STS_SUCCESS;
598:
599: -- validate NOT NULL column
600: IF(p_HEADER_RELATIONSHIP_ID is NULL)
601: THEN
598:
599: -- validate NOT NULL column
600: IF(p_HEADER_RELATIONSHIP_ID is NULL)
601: THEN
602: x_return_status := FND_API.G_RET_STS_ERROR;
603: END IF;
604:
605:
606: -- Standard call to get message count and if count is 1, get message info.
611:
612: END Validate_HEADER_RLTSHIP_ID;
613:
614: PROCEDURE Validate_REQUEST_ID (
615: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
616: P_Validation_mode IN VARCHAR2,
617: P_REQUEST_ID IN NUMBER,
618: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
619: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
622: IS
623: BEGIN
624:
625: -- Initialize message list if p_init_msg_list is set to TRUE.
626: IF FND_API.to_Boolean( p_init_msg_list )
627: THEN
628: FND_MSG_PUB.initialize;
629: END IF;
630:
629: END IF;
630:
631:
632: -- Initialize API return status to SUCCESS
633: x_return_status := FND_API.G_RET_STS_SUCCESS;
634:
635: -- Standard call to get message count and if count is 1, get message info.
636: FND_MSG_PUB.Count_And_Get
637: ( p_count => x_msg_count,
640:
641: END Validate_REQUEST_ID;
642:
643: PROCEDURE Validate_PROGRAM_APPL_ID (
644: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
645: P_Validation_mode IN VARCHAR2,
646: P_PROGRAM_APPLICATION_ID IN NUMBER,
647: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
648: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
652: IS
653: BEGIN
654:
655: -- Initialize message list if p_init_msg_list is set to TRUE.
656: IF FND_API.to_Boolean( p_init_msg_list )
657: THEN
658: FND_MSG_PUB.initialize;
659: END IF;
660:
659: END IF;
660:
661:
662: -- Initialize API return status to SUCCESS
663: x_return_status := FND_API.G_RET_STS_SUCCESS;
664:
665: -- Standard call to get message count and if count is 1, get message info.
666: FND_MSG_PUB.Count_And_Get
667: ( p_count => x_msg_count,
670:
671: END Validate_PROGRAM_APPL_ID;
672:
673: PROCEDURE Validate_PROGRAM_ID (
674: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
675: P_Validation_mode IN VARCHAR2,
676: P_PROGRAM_ID IN NUMBER,
677: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
678: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
681: IS
682: BEGIN
683:
684: -- Initialize message list if p_init_msg_list is set to TRUE.
685: IF FND_API.to_Boolean( p_init_msg_list )
686: THEN
687: FND_MSG_PUB.initialize;
688: END IF;
689:
688: END IF;
689:
690:
691: -- Initialize API return status to SUCCESS
692: x_return_status := FND_API.G_RET_STS_SUCCESS;
693:
694: -- Standard call to get message count and if count is 1, get message info.
695: FND_MSG_PUB.Count_And_Get
696: ( p_count => x_msg_count,
699:
700: END Validate_PROGRAM_ID;
701:
702: PROCEDURE Validate_PROGRAM_UPDATE_DATE (
703: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
704: P_Validation_mode IN VARCHAR2,
705: P_PROGRAM_UPDATE_DATE IN DATE,
706: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
707: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
710: IS
711: BEGIN
712:
713: -- Initialize message list if p_init_msg_list is set to TRUE.
714: IF FND_API.to_Boolean( p_init_msg_list )
715: THEN
716: FND_MSG_PUB.initialize;
717: END IF;
718:
717: END IF;
718:
719:
720: -- Initialize API return status to SUCCESS
721: x_return_status := FND_API.G_RET_STS_SUCCESS;
722:
723:
724: -- Standard call to get message count and if count is 1, get message info.
725: FND_MSG_PUB.Count_And_Get
729:
730: END Validate_PROGRAM_UPDATE_DATE;
731:
732: PROCEDURE Validate_QUOTE_HEADER_ID (
733: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
734: P_Validation_mode IN VARCHAR2,
735: P_QUOTE_HEADER_ID IN NUMBER,
736: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
737: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
741: l_count NUMBER;
742: BEGIN
743:
744: -- Initialize message list if p_init_msg_list is set to TRUE.
745: IF FND_API.to_Boolean( p_init_msg_list )
746: THEN
747: FND_MSG_PUB.initialize;
748: END IF;
749:
748: END IF;
749:
750:
751: -- Initialize API return status to SUCCESS
752: x_return_status := FND_API.G_RET_STS_SUCCESS;
753:
754: -- Standard call to get message count and if count is 1, get message info.
755: FND_MSG_PUB.Count_And_Get
756: ( p_count => x_msg_count,
759:
760: END Validate_QUOTE_HEADER_ID;
761:
762: PROCEDURE Validate_RELATED_HEADER_ID (
763: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
764: P_Validation_mode IN VARCHAR2,
765: P_RELATED_HEADER_ID IN NUMBER,
766: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
767: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
771: l_count NUMBER;
772: BEGIN
773:
774: -- Initialize message list if p_init_msg_list is set to TRUE.
775: IF FND_API.to_Boolean( p_init_msg_list )
776: THEN
777: FND_MSG_PUB.initialize;
778: END IF;
779:
778: END IF;
779:
780:
781: -- Initialize API return status to SUCCESS
782: x_return_status := FND_API.G_RET_STS_SUCCESS;
783: FND_MSG_PUB.Count_And_Get
784: ( p_count => x_msg_count,
785: p_data => x_msg_data
786: );
789:
790: END Validate_RELATED_HEADER_ID;
791:
792: PROCEDURE Validate_RLTSHIP_TYPE_CODE (
793: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
794: P_Validation_mode IN VARCHAR2,
795: P_RELATIONSHIP_TYPE_CODE IN VARCHAR2,
796: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
797: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
801: l_count NUMBER;
802: BEGIN
803:
804: -- Initialize message list if p_init_msg_list is set to TRUE.
805: IF FND_API.to_Boolean( p_init_msg_list )
806: THEN
807: FND_MSG_PUB.initialize;
808: END IF;
809:
808: END IF;
809:
810:
811: -- Initialize API return status to SUCCESS
812: x_return_status := FND_API.G_RET_STS_SUCCESS;
813:
814: -- validate NOT NULL column
815: IF(p_RELATIONSHIP_TYPE_CODE is NULL)
816: THEN
813:
814: -- validate NOT NULL column
815: IF(p_RELATIONSHIP_TYPE_CODE is NULL)
816: THEN
817: x_return_status := FND_API.G_RET_STS_ERROR;
818: END IF;
819:
820: IF((p_validation_mode = ASO_UTILITY_PVT.G_CREATE) OR (p_validation_mode = ASO_UTILITY_PVT.G_UPDATE and p_RELATIONSHIP_TYPE_CODE <> FND_API.G_MISS_CHAR))
821: THEN
816: THEN
817: x_return_status := FND_API.G_RET_STS_ERROR;
818: END IF;
819:
820: IF((p_validation_mode = ASO_UTILITY_PVT.G_CREATE) OR (p_validation_mode = ASO_UTILITY_PVT.G_UPDATE and p_RELATIONSHIP_TYPE_CODE <> FND_API.G_MISS_CHAR))
821: THEN
822: -- Hint: Validate data
823: -- IF p_RELATIONSHIP_TYPE_CODE is not NULL and p_RELATIONSHIP_TYPE_CODE <> G_MISS_CHAR
824: -- verify if data is valid
821: THEN
822: -- Hint: Validate data
823: -- IF p_RELATIONSHIP_TYPE_CODE is not NULL and p_RELATIONSHIP_TYPE_CODE <> G_MISS_CHAR
824: -- verify if data is valid
825: -- if data is not valid : x_return_status := FND_API.G_RET_STS_ERROR;
826: NULL;
827:
828:
829: select count(*) into l_count
831: where lookup_type = 'ASO_HEADER_RELATIONSHIP_TYPE'
832: and lookup_code = p_RELATIONSHIP_TYPE_CODE;
833:
834: if l_count < 1 then
835: x_return_status := FND_API.G_RET_STS_ERROR;
836: end if;
837: END IF;
838: -- Standard call to get message count and if count is 1, get message info.
839: FND_MSG_PUB.Count_And_Get
843:
844: END Validate_RLTSHIP_TYPE_CODE;
845:
846: PROCEDURE Validate_RECIPROCAL_FLAG (
847: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
848: P_Validation_mode IN VARCHAR2,
849: P_RECIPROCAL_FLAG IN VARCHAR2,
850: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
851: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
854: IS
855: BEGIN
856:
857: -- Initialize message list if p_init_msg_list is set to TRUE.
858: IF FND_API.to_Boolean( p_init_msg_list )
859: THEN
860: FND_MSG_PUB.initialize;
861: END IF;
862:
861: END IF;
862:
863:
864: -- Initialize API return status to SUCCESS
865: x_return_status := FND_API.G_RET_STS_SUCCESS;
866:
867: -- Standard call to get message count and if count is 1, get message info.
868: FND_MSG_PUB.Count_And_Get
869: ( p_count => x_msg_count,
872:
873: END Validate_RECIPROCAL_FLAG;
874:
875: PROCEDURE Validate_HEADER_RLTSHIP_rec(
876: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
877: P_Validation_mode IN VARCHAR2,
878: P_HEADER_RLTSHIP_Rec IN ASO_QUOTE_PUB.HEADER_RLTSHIP_Rec_Type,
879: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
880: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
883: IS
884: BEGIN
885:
886: -- Initialize message list if p_init_msg_list is set to TRUE.
887: IF FND_API.to_Boolean( p_init_msg_list )
888: THEN
889: FND_MSG_PUB.initialize;
890: END IF;
891:
890: END IF;
891:
892:
893: -- Initialize API return status to SUCCESS
894: x_return_status := FND_API.G_RET_STS_SUCCESS;
895:
896:
897: -- Standard call to get message count and if count is 1, get message info.
898: FND_MSG_PUB.Count_And_Get
902:
903: END Validate_HEADER_RLTSHIP_Rec;
904:
905: PROCEDURE Validate_header_rltship(
906: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
907: P_Validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
908: P_Validation_mode IN VARCHAR2,
909: P_HEADER_RLTSHIP_Rec IN ASO_quote_PUB.HEADER_RLTSHIP_Rec_Type,
910: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
903: END Validate_HEADER_RLTSHIP_Rec;
904:
905: PROCEDURE Validate_header_rltship(
906: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
907: P_Validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
908: P_Validation_mode IN VARCHAR2,
909: P_HEADER_RLTSHIP_Rec IN ASO_quote_PUB.HEADER_RLTSHIP_Rec_Type,
910: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
911: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
914: IS
915: l_api_name CONSTANT VARCHAR2(30) := 'Validate_header_rltship';
916: BEGIN
917: -- Initialize API return status to SUCCESS
918: x_return_status := FND_API.G_RET_STS_SUCCESS;
919:
920: Validate_QUOTE_HEADER_ID(
921: p_init_msg_list => FND_API.G_FALSE,
922: p_validation_mode => p_validation_mode,
917: -- Initialize API return status to SUCCESS
918: x_return_status := FND_API.G_RET_STS_SUCCESS;
919:
920: Validate_QUOTE_HEADER_ID(
921: p_init_msg_list => FND_API.G_FALSE,
922: p_validation_mode => p_validation_mode,
923: p_QUOTE_HEADER_ID => P_HEADER_RLTSHIP_Rec.QUOTE_HEADER_ID,
924: -- 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.
925: x_return_status => x_return_status,
924: -- 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.
925: x_return_status => x_return_status,
926: x_msg_count => x_msg_count,
927: x_msg_data => x_msg_data);
928: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
929: raise FND_API.G_EXC_ERROR;
930: END IF;
931:
932: Validate_RELATED_HEADER_ID(
925: x_return_status => x_return_status,
926: x_msg_count => x_msg_count,
927: x_msg_data => x_msg_data);
928: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
929: raise FND_API.G_EXC_ERROR;
930: END IF;
931:
932: Validate_RELATED_HEADER_ID(
933: p_init_msg_list => FND_API.G_FALSE,
929: raise FND_API.G_EXC_ERROR;
930: END IF;
931:
932: Validate_RELATED_HEADER_ID(
933: p_init_msg_list => FND_API.G_FALSE,
934: p_validation_mode => p_validation_mode,
935: p_RELATED_HEADER_ID => P_HEADER_RLTSHIP_Rec.RELATED_HEADER_ID,
936: -- 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.
937: x_return_status => x_return_status,
936: -- 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.
937: x_return_status => x_return_status,
938: x_msg_count => x_msg_count,
939: x_msg_data => x_msg_data);
940: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
941: raise FND_API.G_EXC_ERROR;
942: END IF;
943:
944: Validate_RLTSHIP_TYPE_CODE(
937: x_return_status => x_return_status,
938: x_msg_count => x_msg_count,
939: x_msg_data => x_msg_data);
940: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
941: raise FND_API.G_EXC_ERROR;
942: END IF;
943:
944: Validate_RLTSHIP_TYPE_CODE(
945: p_init_msg_list => FND_API.G_FALSE,
941: raise FND_API.G_EXC_ERROR;
942: END IF;
943:
944: Validate_RLTSHIP_TYPE_CODE(
945: p_init_msg_list => FND_API.G_FALSE,
946: p_validation_mode => p_validation_mode,
947: p_RELATIONSHIP_TYPE_CODE => P_HEADER_RLTSHIP_Rec.RELATIONAL_TYPE_CODE,
948: -- 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.
949: x_return_status => x_return_status,
948: -- 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.
949: x_return_status => x_return_status,
950: x_msg_count => x_msg_count,
951: x_msg_data => x_msg_data);
952: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
953: raise FND_API.G_EXC_ERROR;
954: END IF;
955:
956: Validate_RECIPROCAL_FLAG(
949: x_return_status => x_return_status,
950: x_msg_count => x_msg_count,
951: x_msg_data => x_msg_data);
952: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
953: raise FND_API.G_EXC_ERROR;
954: END IF;
955:
956: Validate_RECIPROCAL_FLAG(
957: p_init_msg_list => FND_API.G_FALSE,
953: raise FND_API.G_EXC_ERROR;
954: END IF;
955:
956: Validate_RECIPROCAL_FLAG(
957: p_init_msg_list => FND_API.G_FALSE,
958: p_validation_mode => p_validation_mode,
959: p_RECIPROCAL_FLAG => P_HEADER_RLTSHIP_Rec.RECIPROCAL_FLAG,
960: -- 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.
961: x_return_status => x_return_status,
960: -- 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.
961: x_return_status => x_return_status,
962: x_msg_count => x_msg_count,
963: x_msg_data => x_msg_data);
964: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
965: raise FND_API.G_EXC_ERROR;
966: END IF;
967:
968: END Validate_header_rltship;
961: x_return_status => x_return_status,
962: x_msg_count => x_msg_count,
963: x_msg_data => x_msg_data);
964: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
965: raise FND_API.G_EXC_ERROR;
966: END IF;
967:
968: END Validate_header_rltship;
969: