21: -- Pre-Req :
22: -- Parameters:
23: -- IN
24: -- p_api_version_number IN NUMBER Required
25: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
26: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
27: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
28: -- P_PRICE_ADJ_RLTSHIP_Rec IN PRICE_ADJ_RLTSHIP_Rec_Type Required
29: --
22: -- Parameters:
23: -- IN
24: -- p_api_version_number IN NUMBER Required
25: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
26: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
27: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
28: -- P_PRICE_ADJ_RLTSHIP_Rec IN PRICE_ADJ_RLTSHIP_Rec_Type Required
29: --
30: -- OUT:
23: -- IN
24: -- p_api_version_number IN NUMBER Required
25: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
26: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
27: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
28: -- P_PRICE_ADJ_RLTSHIP_Rec IN PRICE_ADJ_RLTSHIP_Rec_Type Required
29: --
30: -- OUT:
31: -- x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
38: -- End of Comments
39: --
40: PROCEDURE Create_price_adj_rltship(
41: P_Api_Version_Number IN NUMBER,
42: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
43: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
44: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
45: P_PRICE_ADJ_RLTSHIP_Rec IN ASO_QUOTE_PUB.PRICE_ADJ_RLTSHIP_Rec_Type
46: := ASO_QUOTE_PUB.G_MISS_PRICE_ADJ_RLTSHIP_REC,
39: --
40: PROCEDURE Create_price_adj_rltship(
41: P_Api_Version_Number IN NUMBER,
42: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
43: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
44: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
45: P_PRICE_ADJ_RLTSHIP_Rec IN ASO_QUOTE_PUB.PRICE_ADJ_RLTSHIP_Rec_Type
46: := ASO_QUOTE_PUB.G_MISS_PRICE_ADJ_RLTSHIP_REC,
47: --Hint: Add detail tables as parameter lists if it's master-detail relationship.
40: PROCEDURE Create_price_adj_rltship(
41: P_Api_Version_Number IN NUMBER,
42: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
43: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
44: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
45: P_PRICE_ADJ_RLTSHIP_Rec IN ASO_QUOTE_PUB.PRICE_ADJ_RLTSHIP_Rec_Type
46: := ASO_QUOTE_PUB.G_MISS_PRICE_ADJ_RLTSHIP_REC,
47: --Hint: Add detail tables as parameter lists if it's master-detail relationship.
48: X_ADJ_RELATIONSHIP_ID OUT NOCOPY /* file.sql.39 change */ NUMBER,
61: -- Standard Start of API savepoint
62: SAVEPOINT CREATE_PRICE_ADJ_RLTSHIP_PVT;
63:
64: -- Standard call to check for call compatibility.
65: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
66: p_api_version_number,
67: l_api_name,
68: G_PKG_NAME)
69: THEN
66: p_api_version_number,
67: l_api_name,
68: G_PKG_NAME)
69: THEN
70: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
71: END IF;
72:
73:
74: -- Initialize message list if p_init_msg_list is set to TRUE.
71: END IF;
72:
73:
74: -- Initialize message list if p_init_msg_list is set to TRUE.
75: IF FND_API.to_Boolean( p_init_msg_list )
76: THEN
77: FND_MSG_PUB.initialize;
78: END IF;
79:
78: END IF;
79:
80:
81: -- Initialize API return status to SUCCESS
82: x_return_status := FND_API.G_RET_STS_SUCCESS;
83:
84: --
85: -- API body
86: --
91: IF(FND_PROFILE.VALUE('AS_PRE_CUSTOM_ENABLED')='Y')
92: THEN
93: AS_CALLOUT_PKG.Create_line_rltship_BC(
94: p_api_version_number => 2.0,
95: p_init_msg_list => FND_API.G_FALSE,
96: p_commit => FND_API.G_FALSE,
97: p_validation_level => p_validation_level,
98: P_LINE_RLTSHIP_Rec => P_LINE_RLTSHIP_Rec,
99: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
92: THEN
93: AS_CALLOUT_PKG.Create_line_rltship_BC(
94: p_api_version_number => 2.0,
95: p_init_msg_list => FND_API.G_FALSE,
96: p_commit => FND_API.G_FALSE,
97: p_validation_level => p_validation_level,
98: P_LINE_RLTSHIP_Rec => P_LINE_RLTSHIP_Rec,
99: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
100: x_return_status => x_return_status,
112: FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
113: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
114: FND_MSG_PUB.ADD;
115: END IF;
116: RAISE FND_API.G_EXC_ERROR;
117: END IF;
118:
119:
120: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
116: RAISE FND_API.G_EXC_ERROR;
117: END IF;
118:
119:
120: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
121: THEN
122:
123: Validate_PRICE_ADJ_RLTSHIP(
124: P_Validation_level => p_validation_level,
128: x_msg_count => x_msg_count,
129: x_msg_data => x_msg_data);
130:
131: END IF;
132: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
133: RAISE FND_API.G_EXC_ERROR;
134: END IF;
135:
136:
129: x_msg_data => x_msg_data);
130:
131: END IF;
132: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
133: RAISE FND_API.G_EXC_ERROR;
134: END IF;
135:
136:
137: -- Invoke table handler
155:
156: -- Hint: Primary key should be returned.
157: -- x_LINE_RELATIONSHIP_ID := px_LINE_RELATIONSHIP_ID;
158:
159: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
160: RAISE FND_API.G_EXC_ERROR;
161: END IF;
162:
163: --
156: -- Hint: Primary key should be returned.
157: -- x_LINE_RELATIONSHIP_ID := px_LINE_RELATIONSHIP_ID;
158:
159: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
160: RAISE FND_API.G_EXC_ERROR;
161: END IF;
162:
163: --
164: -- End of API body
164: -- End of API body
165: --
166:
167: -- Standard check for p_commit
168: IF FND_API.to_Boolean( p_commit )
169: THEN
170: COMMIT WORK;
171: END IF;
172:
183: IF(FND_PROFILE.VALUE('AS_POST_CUSTOM_ENABLED')='Y')
184: THEN
185: AS_CALLOUT_PKG.Create_line_rltship_AC(
186: p_api_version_number => 2.0,
187: p_init_msg_list => FND_API.G_FALSE,
188: p_commit => FND_API.G_FALSE,
189: p_validation_level => p_validation_level,
190: P_LINE_RLTSHIP_Rec => P_LINE_RLTSHIP_Rec,
191: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
184: THEN
185: AS_CALLOUT_PKG.Create_line_rltship_AC(
186: p_api_version_number => 2.0,
187: p_init_msg_list => FND_API.G_FALSE,
188: p_commit => FND_API.G_FALSE,
189: p_validation_level => p_validation_level,
190: P_LINE_RLTSHIP_Rec => P_LINE_RLTSHIP_Rec,
191: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
192: x_return_status => x_return_status,
194: x_msg_data => x_msg_data);
195: END IF;
196: */
197: EXCEPTION
198: WHEN FND_API.G_EXC_ERROR THEN
199: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
200: P_API_NAME => L_API_NAME
201: ,P_PKG_NAME => G_PKG_NAME
202: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
204: ,X_MSG_COUNT => X_MSG_COUNT
205: ,X_MSG_DATA => X_MSG_DATA
206: ,X_RETURN_STATUS => X_RETURN_STATUS);
207:
208: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
209: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
210: P_API_NAME => L_API_NAME
211: ,P_PKG_NAME => G_PKG_NAME
212: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
235: -- Pre-Req :
236: -- Parameters:
237: -- IN
238: -- p_api_version_number IN NUMBER Required
239: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
240: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
241: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
242: -- p_identity_salesforce_id IN NUMBER Optional Default = NULL
243: -- P_PRICE_ADJ_RLTSHIP_Rec IN PRICE_ADJ_RLTSHIP_Rec_Type Required
236: -- Parameters:
237: -- IN
238: -- p_api_version_number IN NUMBER Required
239: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
240: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
241: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
242: -- p_identity_salesforce_id IN NUMBER Optional Default = NULL
243: -- P_PRICE_ADJ_RLTSHIP_Rec IN PRICE_ADJ_RLTSHIP_Rec_Type Required
244: --
237: -- IN
238: -- p_api_version_number IN NUMBER Required
239: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
240: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
241: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
242: -- p_identity_salesforce_id IN NUMBER Optional Default = NULL
243: -- P_PRICE_ADJ_RLTSHIP_Rec IN PRICE_ADJ_RLTSHIP_Rec_Type Required
244: --
245: -- OUT:
254: --
255: -- Hint: Add corresponding update detail table procedures if it's master-detail relationship.
256: PROCEDURE Update_price_adj_rltship(
257: P_Api_Version_Number IN NUMBER,
258: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
259: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
260: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
261: P_PRICE_ADJ_RLTSHIP_Rec IN ASO_QUOTE_PUB.PRICE_ADJ_RLTSHIP_Rec_Type,
262: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
255: -- Hint: Add corresponding update detail table procedures if it's master-detail relationship.
256: PROCEDURE Update_price_adj_rltship(
257: P_Api_Version_Number IN NUMBER,
258: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
259: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
260: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
261: P_PRICE_ADJ_RLTSHIP_Rec IN ASO_QUOTE_PUB.PRICE_ADJ_RLTSHIP_Rec_Type,
262: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
263: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
256: PROCEDURE Update_price_adj_rltship(
257: P_Api_Version_Number IN NUMBER,
258: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
259: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
260: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
261: P_PRICE_ADJ_RLTSHIP_Rec IN ASO_QUOTE_PUB.PRICE_ADJ_RLTSHIP_Rec_Type,
262: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
263: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
264: X_Msg_Data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
296: -- Standard Start of API savepoint
297: SAVEPOINT UPDATE_PRICE_ADJ_RLTSHIP_PVT;
298:
299: -- Standard call to check for call compatibility.
300: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
301: p_api_version_number,
302: l_api_name,
303: G_PKG_NAME)
304: THEN
301: p_api_version_number,
302: l_api_name,
303: G_PKG_NAME)
304: THEN
305: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
306: END IF;
307:
308:
309: -- Initialize message list if p_init_msg_list is set to TRUE.
306: END IF;
307:
308:
309: -- Initialize message list if p_init_msg_list is set to TRUE.
310: IF FND_API.to_Boolean( p_init_msg_list )
311: THEN
312: FND_MSG_PUB.initialize;
313: END IF;
314:
313: END IF;
314:
315:
316: -- Initialize API return status to SUCCESS
317: x_return_status := FND_API.G_RET_STS_SUCCESS;
318:
319: --
320: -- Api body
321: --
325: IF(FND_PROFILE.VALUE('AS_PRE_CUSTOM_ENABLED')='Y')
326: THEN
327: AS_CALLOUT_PKG.Update_line_rltship_BU(
328: p_api_version_number => 2.0,
329: p_init_msg_list => FND_API.G_FALSE,
330: p_commit => FND_API.G_FALSE,
331: p_validation_level => p_validation_level,
332: p_identity_salesforce_id => p_identity_salesforce_id,
333: P_LINE_RLTSHIP_Rec => P_LINE_RLTSHIP_Rec,
326: THEN
327: AS_CALLOUT_PKG.Update_line_rltship_BU(
328: p_api_version_number => 2.0,
329: p_init_msg_list => FND_API.G_FALSE,
330: p_commit => FND_API.G_FALSE,
331: p_validation_level => p_validation_level,
332: p_identity_salesforce_id => p_identity_salesforce_id,
333: P_LINE_RLTSHIP_Rec => P_LINE_RLTSHIP_Rec,
334: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
363: FND_MESSAGE.Set_Name('ASO', 'API_MISSING_UPDATE_TARGET');
364: FND_MESSAGE.Set_Token ('INFO', 'price_adj_rltship', FALSE);
365: FND_MSG_PUB.Add;
366: END IF;
367: raise FND_API.G_EXC_ERROR;
368: END IF;
369: -- Debug Message
370: -- ASO_UTILITY_PVT.Print(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW,'Private API: - Close Cursor');
371: Close C_Get_price_rltship;
372:
373:
374:
375: If (l_tar_PRICE_ADJ_RLTSHIP_rec.last_update_date is NULL or
376: l_tar_PRICE_ADJ_RLTSHIP_rec.last_update_date = FND_API.G_MISS_Date ) Then
377: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
378: THEN
379: FND_MESSAGE.Set_Name('ASO', 'API_MISSING_ID');
380: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
379: FND_MESSAGE.Set_Name('ASO', 'API_MISSING_ID');
380: FND_MESSAGE.Set_Token('COLUMN', 'Last_Update_Date', FALSE);
381: FND_MSG_PUB.ADD;
382: END IF;
383: raise FND_API.G_EXC_ERROR;
384: End if;
385: -- Check Whether record has been changed by someone else
386: If (l_tar_PRICE_ADJ_RLTSHIP_rec.last_update_date <> l_ref_PRICE_ADJ_RLTSHIP_rec.last_update_date) Then
387: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
389: FND_MESSAGE.Set_Name('ASO', 'API_RECORD_CHANGED');
390: FND_MESSAGE.Set_Token('INFO', 'price_adj_rltship', FALSE);
391: FND_MSG_PUB.ADD;
392: END IF;
393: raise FND_API.G_EXC_ERROR;
394: End if;
395:
396: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
397: THEN
392: END IF;
393: raise FND_API.G_EXC_ERROR;
394: End if;
395:
396: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
397: THEN
398:
399: -- Invoke validation procedures
400: Validate_PRICE_ADJ_RLTSHIP(
406: x_msg_data => x_msg_data);
407:
408: END IF;
409:
410: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
411: RAISE FND_API.G_EXC_ERROR;
412: END IF;
413:
414: -- Hint: Add corresponding Master-Detail business logic here if necessary.
407:
408: END IF;
409:
410: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
411: RAISE FND_API.G_EXC_ERROR;
412: END IF;
413:
414: -- Hint: Add corresponding Master-Detail business logic here if necessary.
415:
440: -- End of API body.
441: --
442:
443: -- Standard check for p_commit
444: IF FND_API.to_Boolean( p_commit )
445: THEN
446: COMMIT WORK;
447: END IF;
448:
459: IF(FND_PROFILE.VALUE('AS_POST_CUSTOM_ENABLED')='Y')
460: THEN
461: AS_CALLOUT_PKG.Update_line_rltship_AU(
462: p_api_version_number => 2.0,
463: p_init_msg_list => FND_API.G_FALSE,
464: p_commit => FND_API.G_FALSE,
465: p_validation_level => p_validation_level,
466: p_identity_salesforce_id => p_identity_salesforce_id,
467: P_LINE_RLTSHIP_Rec => P_LINE_RLTSHIP_Rec,
460: THEN
461: AS_CALLOUT_PKG.Update_line_rltship_AU(
462: p_api_version_number => 2.0,
463: p_init_msg_list => FND_API.G_FALSE,
464: p_commit => FND_API.G_FALSE,
465: p_validation_level => p_validation_level,
466: p_identity_salesforce_id => p_identity_salesforce_id,
467: P_LINE_RLTSHIP_Rec => P_LINE_RLTSHIP_Rec,
468: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
471: x_msg_data => x_msg_data);
472: END IF;
473: */
474: EXCEPTION
475: WHEN FND_API.G_EXC_ERROR THEN
476: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
477: P_API_NAME => L_API_NAME
478: ,P_PKG_NAME => G_PKG_NAME
479: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
481: ,X_MSG_COUNT => X_MSG_COUNT
482: ,X_MSG_DATA => X_MSG_DATA
483: ,X_RETURN_STATUS => X_RETURN_STATUS);
484:
485: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
486: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
487: P_API_NAME => L_API_NAME
488: ,P_PKG_NAME => G_PKG_NAME
489: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
512: -- Pre-Req :
513: -- Parameters:
514: -- IN
515: -- p_api_version_number IN NUMBER Required
516: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
517: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
518: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
519: -- p_identity_salesforce_id IN NUMBER Optional Default = NULL
520: -- P_PRICE_ADJ_RLTSHIP_Rec IN PRICE_ADJ_RLTSHIP_Rec_Type Required
513: -- Parameters:
514: -- IN
515: -- p_api_version_number IN NUMBER Required
516: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
517: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
518: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
519: -- p_identity_salesforce_id IN NUMBER Optional Default = NULL
520: -- P_PRICE_ADJ_RLTSHIP_Rec IN PRICE_ADJ_RLTSHIP_Rec_Type Required
521: --
514: -- IN
515: -- p_api_version_number IN NUMBER Required
516: -- p_init_msg_list IN VARCHAR2 Optional Default = FND_API_G_FALSE
517: -- p_commit IN VARCHAR2 Optional Default = FND_API.G_FALSE
518: -- p_validation_level IN NUMBER Optional Default = FND_API.G_VALID_LEVEL_FULL
519: -- p_identity_salesforce_id IN NUMBER Optional Default = NULL
520: -- P_PRICE_ADJ_RLTSHIP_Rec IN PRICE_ADJ_RLTSHIP_Rec_Type Required
521: --
522: -- OUT:
534:
535:
536: PROCEDURE Delete_price_adj_rltship(
537: P_Api_Version_Number IN NUMBER,
538: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
539: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
540: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
541: P_PRICE_ADJ_RLTSHIP_Rec IN ASO_QUOTE_PUB.PRICE_ADJ_RLTSHIP_Rec_Type,
542: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
535:
536: PROCEDURE Delete_price_adj_rltship(
537: P_Api_Version_Number IN NUMBER,
538: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
539: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
540: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
541: P_PRICE_ADJ_RLTSHIP_Rec IN ASO_QUOTE_PUB.PRICE_ADJ_RLTSHIP_Rec_Type,
542: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
543: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
536: PROCEDURE Delete_price_adj_rltship(
537: P_Api_Version_Number IN NUMBER,
538: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
539: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
540: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
541: P_PRICE_ADJ_RLTSHIP_Rec IN ASO_QUOTE_PUB.PRICE_ADJ_RLTSHIP_Rec_Type,
542: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
543: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,
544: X_Msg_Data OUT NOCOPY /* file.sql.39 change */ VARCHAR2
557: -- Standard Start of API savepoint
558: SAVEPOINT DELETE_PRICE_ADJ_RLTSHIP_PVT;
559:
560: -- Standard call to check for call compatibility.
561: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
562: p_api_version_number,
563: l_api_name,
564: G_PKG_NAME)
565: THEN
562: p_api_version_number,
563: l_api_name,
564: G_PKG_NAME)
565: THEN
566: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
567: END IF;
568:
569:
570: -- Initialize message list if p_init_msg_list is set to TRUE.
567: END IF;
568:
569:
570: -- Initialize message list if p_init_msg_list is set to TRUE.
571: IF FND_API.to_Boolean( p_init_msg_list )
572: THEN
573: FND_MSG_PUB.initialize;
574: END IF;
575:
574: END IF;
575:
576:
577: -- Initialize API return status to SUCCESS
578: x_return_status := FND_API.G_RET_STS_SUCCESS;
579:
580: --
581: -- API body
582: --
587: IF(FND_PROFILE.VALUE('AS_PRE_CUSTOM_ENABLED')='Y')
588: THEN
589: AS_CALLOUT_PKG.Create_line_rltship_BC(
590: p_api_version_number => 2.0,
591: p_init_msg_list => FND_API.G_FALSE,
592: p_commit => FND_API.G_FALSE,
593: p_validation_level => p_validation_level,
594: P_LINE_RLTSHIP_Rec => P_LINE_RLTSHIP_Rec,
595: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
588: THEN
589: AS_CALLOUT_PKG.Create_line_rltship_BC(
590: p_api_version_number => 2.0,
591: p_init_msg_list => FND_API.G_FALSE,
592: p_commit => FND_API.G_FALSE,
593: p_validation_level => p_validation_level,
594: P_LINE_RLTSHIP_Rec => P_LINE_RLTSHIP_Rec,
595: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
596: x_return_status => x_return_status,
608: FND_MESSAGE.Set_Name(' + appShortName +', 'UT_CANNOT_GET_PROFILE_VALUE');
609: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
610: FND_MSG_PUB.ADD;
611: END IF;
612: RAISE FND_API.G_EXC_ERROR;
613: END IF;
614:
615:
616: For i in C_adj_rltship(P_PRICE_ADJ_RLTSHIP_Rec.quote_line_id) LOOP
618: ASO_PRICE_RLTSHIPS_PKG.Delete_Row(
619: p_ADJ_RELATIONSHIP_ID => i.adj_relationship_id);
620: END LOOP;
621:
622: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
623: RAISE FND_API.G_EXC_ERROR;
624: END IF;
625:
626: --
619: p_ADJ_RELATIONSHIP_ID => i.adj_relationship_id);
620: END LOOP;
621:
622: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
623: RAISE FND_API.G_EXC_ERROR;
624: END IF;
625:
626: --
627: -- End of API body
627: -- End of API body
628: --
629:
630: -- Standard check for p_commit
631: IF FND_API.to_Boolean( p_commit )
632: THEN
633: COMMIT WORK;
634: END IF;
635:
646: IF(FND_PROFILE.VALUE('AS_POST_CUSTOM_ENABLED')='Y')
647: THEN
648: AS_CALLOUT_PKG.Create_line_rltship_AC(
649: p_api_version_number => 2.0,
650: p_init_msg_list => FND_API.G_FALSE,
651: p_commit => FND_API.G_FALSE,
652: p_validation_level => p_validation_level,
653: P_LINE_RLTSHIP_Rec => P_LINE_RLTSHIP_Rec,
654: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
647: THEN
648: AS_CALLOUT_PKG.Create_line_rltship_AC(
649: p_api_version_number => 2.0,
650: p_init_msg_list => FND_API.G_FALSE,
651: p_commit => FND_API.G_FALSE,
652: p_validation_level => p_validation_level,
653: P_LINE_RLTSHIP_Rec => P_LINE_RLTSHIP_Rec,
654: -- Hint: Add detail tables as parameter lists if it's master-detail relationship.
655: x_return_status => x_return_status,
657: x_msg_data => x_msg_data);
658: END IF;
659: */
660: EXCEPTION
661: WHEN FND_API.G_EXC_ERROR THEN
662: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
663: P_API_NAME => L_API_NAME
664: ,P_PKG_NAME => G_PKG_NAME
665: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
667: ,X_MSG_COUNT => X_MSG_COUNT
668: ,X_MSG_DATA => X_MSG_DATA
669: ,X_RETURN_STATUS => X_RETURN_STATUS);
670:
671: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
672: ASO_UTILITY_PVT.HANDLE_EXCEPTIONS(
673: P_API_NAME => L_API_NAME
674: ,P_PKG_NAME => G_PKG_NAME
675: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
703: --
704: -- End of Comments
705:
706: PROCEDURE Validate_ADJ_RELATIONSHIP_ID (
707: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
708: P_Validation_mode IN VARCHAR2,
709: P_ADJ_RELATIONSHIP_ID IN NUMBER,
710: -- Hint: You may add 'X_Item_Property_Rec OUT NOCOPY /* file.sql.39 change */ AS_UTILITY_PVT.ITEM_PROPERTY_REC_TYPE' here if you'd like to pass back item property.
711: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
728: --
729: -- End of Comments
730:
731: PROCEDURE Validate_PROGRAM_APPL_ID (
732: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
733: P_Validation_mode IN VARCHAR2,
734: P_PROGRAM_APPLICATION_ID IN NUMBER,
735: -- Hint: You may add 'X_Item_Property_Rec OUT NOCOPY /* file.sql.39 change */ AS_UTILITY_PVT.ITEM_PROPERTY_REC_TYPE' here if you'd like to pass back item property.
736: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
753: --
754: -- End of Comments
755:
756: PROCEDURE Validate_PROGRAM_ID (
757: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
758: P_Validation_mode IN VARCHAR2,
759: P_PROGRAM_ID IN NUMBER,
760: -- Hint: You may add 'X_Item_Property_Rec OUT NOCOPY /* file.sql.39 change */ AS_UTILITY_PVT.ITEM_PROPERTY_REC_TYPE' here if you'd like to pass back item property.
761: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
778: --
779: -- End of Comments
780:
781: PROCEDURE Validate_PROGRAM_UPDATE_DATE (
782: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
783: P_Validation_mode IN VARCHAR2,
784: P_PROGRAM_UPDATE_DATE IN DATE,
785: -- Hint: You may add 'X_Item_Property_Rec OUT NOCOPY /* file.sql.39 change */ AS_UTILITY_PVT.ITEM_PROPERTY_REC_TYPE' here if you'd like to pass back item property.
786: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
803: --
804: -- End of Comments
805:
806: PROCEDURE Validate_REQUEST_ID (
807: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
808: P_Validation_mode IN VARCHAR2,
809: P_REQUEST_ID IN NUMBER,
810: -- Hint: You may add 'X_Item_Property_Rec OUT NOCOPY /* file.sql.39 change */ AS_UTILITY_PVT.ITEM_PROPERTY_REC_TYPE' here if you'd like to pass back item property.
811: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
828: --
829: -- End of Comments
830:
831: PROCEDURE Validate_QUOTE_LINE_ID (
832: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
833: P_Validation_mode IN VARCHAR2,
834: P_QUOTE_LINE_ID IN NUMBER,
835: -- Hint: You may add 'X_Item_Property_Rec OUT NOCOPY /* file.sql.39 change */ AS_UTILITY_PVT.ITEM_PROPERTY_REC_TYPE' here if you'd like to pass back item property.
836: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
853: --
854: -- End of Comments
855:
856: PROCEDURE Validate_PRICE_ADJUSTMENT_ID (
857: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
858: P_Validation_mode IN VARCHAR2,
859: P_PRICE_ADJUSTMENT_ID IN NUMBER,
860: -- Hint: You may add 'X_Item_Property_Rec OUT NOCOPY /* file.sql.39 change */ AS_UTILITY_PVT.ITEM_PROPERTY_REC_TYPE' here if you'd like to pass back item property.
861: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
878: --
879: -- End of Comments
880:
881: PROCEDURE Validate_RLTD_PRICE_ADJ_ID (
882: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
883: P_Validation_mode IN VARCHAR2,
884: P_RLTD_PRICE_ADJ_ID IN NUMBER,
885: -- Hint: You may add 'X_Item_Property_Rec OUT NOCOPY /* file.sql.39 change */ AS_UTILITY_PVT.ITEM_PROPERTY_REC_TYPE' here if you'd like to pass back item property.
886: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
903: -- 2. Developer can manually added inter-field level validation.
904: -- End of Comments
905:
906: PROCEDURE Validate_PRICE_ADJ_RLTSHIP_rec(
907: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
908: P_Validation_mode IN VARCHAR2,
909: P_PRICE_ADJ_RLTSHIP_Rec IN ASO_QUOTE_PUB.PRICE_ADJ_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,
927: -- 2. We can also validate table instead of record. There will be an option for user to choose.
928: -- End of Comments
929:
930: PROCEDURE Validate_price_adj_rltship(
931: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
932: P_Validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
933: P_Validation_mode IN VARCHAR2,
934: P_PRICE_ADJ_RLTSHIP_Rec IN ASO_QUOTE_PUB.PRICE_ADJ_RLTSHIP_Rec_Type,
935: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
928: -- End of Comments
929:
930: PROCEDURE Validate_price_adj_rltship(
931: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
932: P_Validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
933: P_Validation_mode IN VARCHAR2,
934: P_PRICE_ADJ_RLTSHIP_Rec IN ASO_QUOTE_PUB.PRICE_ADJ_RLTSHIP_Rec_Type,
935: X_Return_Status OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
936: X_Msg_Count OUT NOCOPY /* file.sql.39 change */ NUMBER,